9            REM 704 FORTRAN SELF LOADING RECORD 1 TO CS.                                 
1                                        704 FORTRAN SELF LOADING RECORD 1 TO CS.                                 
       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      30           0           0           0           0
 LIB       0           0           0           0           0
 COL      30           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       38                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM FORTRAN II CARD-TO-TAPE                                                  
1                                        FORTRAN II CARD-TO-TAPE                                                  
                        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                                                                    
       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                                                                        
 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                                                                    
 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     192           0           0           0           0
 LIB       0           0           0           0           0
 COL     192           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      201                  
0NUMBER OF SYMBOLS,  DEF    49,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* 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    
                        00201  SW3   EQU 129                                                                      
                        00202  SW4   EQU 130                                                                      
                        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 RECO3,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 RECO3,1                                                      F6R00290    
       00242  0 60200 0 00776        SLW DATA3                                                        F6R00300    
       00243 -0 50000 1 01161        CAL RECO2,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    
       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    
       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    
       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    
       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    
       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    
       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    
       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  RECO2 SYN REC-3                                                        F6R03980    
                        01162  RECO3 SYN REC-2                                                        F6R03990    
                        01163  RECOR SYN REC-1                                                        F6R04000    
 A                      00000        END                                                              F6R04001    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     419           0           0           0           0
 LIB       0           0           0           0           0
 COL     419           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      427                  
0NUMBER OF SYMBOLS,  DEF   117,DEFOP     0,UNDEF     0      
9            REM                                                              F6R04011    
1                                                                                                     F6R04011    
                                         ************* 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    
 M     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    
 M     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    
 M     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    
 M     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    
       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    
 M     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    
 M     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    
       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    
       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    
 A                      00000        END                                                              F6S01720    
                              0 LIB1 00216,00217
                              0 LIB2 00612,00226
                              0 LIB5 00616,00332
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     176           0           0           0           0
 LIB       0           0           0           0           0
 COL     176           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      187                  
0NUMBER OF SYMBOLS,  DEF   193,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION SIX ************************F6T00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6T00010    
                                         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                                                                      
                        00201  SW3   EQU 129                                                                      
                        00202  SW4   EQU 130                                                                      
                                         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 00377        ARS 255                                                          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    
       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    32,DEFOP     0,UNDEF     0      
9            REM SUCCESSFUL COMPILATION RECORD                                F1SC0010    
1                                        SUCCESSFUL COMPILATION RECORD                                F1SC0010    
                                         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      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       28                  
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    
                                         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      32           0           0           0           0
 LIB       0           0           0           0           0
 COL      32           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       41                  
0NUMBER OF SYMBOLS,  DEF     5,DEFOP     0,UNDEF     0      
9            REM  MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
1                                         MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
                                         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    
       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    
       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    
       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    
       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    
       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    
       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    
       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     354           0           0           0           0
 LIB       0           0           0           0           0
 COL     354           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      402                  
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    
                                         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      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       24                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM PST                                                                      
1                                        PST                                                                      
                                         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     
                                         CIT00,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     
                                                                                                      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     
                                                                                                      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     
       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 ALT,,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  TXH 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 ALT,,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 ALT,,I                     4F10208     
                                                                                                      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 ALT,,I                     4F10214     
                                                                                                      4F10215     
       00437  0 00006 0 01137        PZE E+3+6,,6                  TAU3  ) ARG1+L,,L                  4F10216     
       00440  0 00000 0 01356        PZE TAU3,,**                          TDA,,N                     4F10217     
       00441 -3 00060 0 01356        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 ALT,,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 ALT,,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 ALT,,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 ALT,,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 00132 0 00000        PZE 0,,90                             DBL,,J                     4F10243     
       00467  1 00002 0 02071 DIM3IX TXI DIMALT,,5-3                   TXI ALT,,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     
                        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     
       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 FXD-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     
       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 +170000000000     15P   DEC 15B5                       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     
       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  504751000000    L(QPR) BCD 1QPR000                    CONSTANT USED BY C3200.           4F10435     
       01570  506724000000    L(QXD) BCD 1QXD000                    CONSTANT USED BY C3200.           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  633167000001    L(TIX) BCD 1TIX001                                                      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 01113        STO 2G                         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     
                                                                                                      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     
                                                                                                      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     
                                         CIT00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN   4F10584     
                                         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 2 00640        STO CIB,2                     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     
       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     
                                                                                                      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    CLA 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     
 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     
       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     
                                         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 01607 0 01322        PZE DEL(D),,ENDDDR-ORGD                                          4F10903     
       02435  0 01302 0 02210        PZE DEL(B),,ENDBDR-ORGB                                          4F10904     
       02436  0 01330 0 02373        PZE DEL(C),,ENDCDR-ORGC                                          4F10905     
                                          END OF PROGRAM MTR000.                                      4F10906     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907     
                                                                                                      4F10908     
                                         RA000,4/ CALLERS=LPR,ARITH.                                  4F10909     
                                         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     
                                         RDRX READS A BLOCK OF 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  1 77777 0 02610 ENDWRD TXI 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     
       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 01414 SS001  LXA L(6),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 4 02644 SS0016 TIX SS0015,4,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     
       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  CAL 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     
       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     
       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     
       03117  0 10000 0 03216 3D0350 TZE NOTAG                     --DON,T ENTER FORTAG.              4F11234     
       03120 -0 50000 0 00030 FTG000 CAL 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       4F11240     
       03126  0 07400 1 03321        TSX TET00,1                 * ENTER INTO FORTAG TABLE            4F11241     
       03127  0 00000 0 00004        PZE 4                         (TET TABLE 4).                     4F11242     
 D     03130  1 00000 0 03220        TXI SAEXIT,0                  GO TO EXIT.                        4F11243     
       03131  0 53400 4 01412 2D0000 LXA L(4),4                    THEN PICKUP AND                    4F11244     
       03132  0 56000 4 01135 2D0001 LDQ E+7,4                     CONVERT COEFFICIENTS               4F11245     
       03133  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY),                   4F11246     
       03134  0 60100 4 01135        STO E+7,4                     AND STORE BACK IN E+3 AND E+5,     4F11247     
       03135  2 00002 4 03132        TIX 2D0001,4,2                WHEN DONE,                         4F11248     
       03136  0 53400 4 01410        LXA L(2),4                    PREPARE TO                         4F11249     
       03137  0 50000 4 01143 2D0002 CLA E+13,4                    PICKUP THE TWO ADDENDS.            4F11250     
       03140  0 60200 0 01347        SLW G                         STRIP OFF                          4F11251     
       03141  0 56000 0 01347        LDQ G                         THEIR SIGNS,                       4F11252     
       03142  0 07400 1 02566        TSX SR6DC1,1                * CONVERT THEM FROM BCD TO BINARY,   4F11253     
       03143  0 56000 4 01143        LDQ E+13,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11254     
       03144  0 16200 0 03146        TQP 2D0040                    IF PLUS--SKIP NEXT,                4F11255     
       03145 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11256     
       03146  0 60100 4 01143 2D0040 STO E+13,4                    AND STORE BACK IN E+11 AND E+12.   4F11257     
       03147  2 00001 4 03137        TIX 2D0002,4,1                WHEN DONE,                         4F11258     
       03150  0 07400 4 01775        TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F11259     
       03151  0 07400 4 03400        TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11260     
       03152  0 50000 0 01131 2D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11261     
       03153  0 76700 0 00022        ALS 18                        PACK TOGETHER                      4F11262     
       03154  0 40000 0 01133        ADD E+5                       COEFFICENTS 1 AND 2,               4F11263     
       03155  0 60100 0 01131        STO E+3                       AND STORE THEM IN E+3,             4F11264     
       03156  0 50000 0 01134        CLA E+6                       MOVE SUBSCRIPT 2 INTO E+5          4F11265     
       03157  0 60100 0 01133        STO E+5                       (NEXT TO SUBSCRIPT 1 IN E+4),      4F11266     
       03160  0 50000 0 01101        CLA D12                       OBTAIN                             4F11267     
       03161 -0 32000 0 01527        ANA MASK1                     DIMENSION 1, AND MOVE IT           4F11268     
       03162  0 60100 0 01134        STO E+6                       INTO E+6.                          4F11269     
       03163 -0 50000 0 01141        CAL E+11                      PACK TOGETHER                      4F11270     
       03164  0 76700 0 00022        ALS 18                        ADDENDS 1 AND 2,                   4F11271     
       03165 -0 50100 0 01142        ORA E+12                      AND STORE THEM                     4F11272     
       03166  0 60200 0 01141        SLW E+11                      IN E+11.                           4F11273     
       03167  0 07400 4 00436        TSX TAU2IX,4                * GO SEATCH TAU2 TABLE.              4F11274     
       03170  0 76700 0 00030        ALS 24                        POSITION TAU2 TAG, AND             4F11275     
       03171 -0 60200 0 01126        ORS E                         PLACE TAU2 TAG IN TAG WORD.        4F11276     
       03172 -0 50000 0 01132        CAL E+4                       COMBINE SUBSCRIPTS 1 AND 2, AND    4F11277     
 D     03173  1 00000 0 03116        TXI 3D0340,0                  GO TO FORTAG SECTION.              4F11278     
       03174  0 56000 0 01131 1D0000 LDQ E+3                       PICKUP AND CONVERT COEFFICIENTS    4F11279     
       03175  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND               4F11280     
       03176  0 76700 0 00022        ALS 18                        THEN ADJUST THEM,                  4F11281     
       03177  0 60100 0 01131        STO E+3                       AND STORE THEM BACK IN E+3.        4F11282     
       03200  0 50000 0 01141        CLA E+11                      PICKUP ADDEND,                     4F11283     
       03201  0 60200 0 01347        SLW G                         STRIP OFF SIGN,                    4F11284     
       03202  0 56000 0 01347        LDQ G                         CONVERT ADDEND                     4F11285     
       03203  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND THEN          4F11286     
       03204  0 56000 0 01141        LDQ E+11                      PUT SIGN IN S-BIT OF MQ,           4F11287     
       03205  0 16200 0 03207        TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11288     
       03206 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11289     
       03207  0 76700 0 00022 1D0001 ALS 18                        THEN ADJUST AND STORE              4F11290     
       03210  0 60200 0 01141        SLW E+11                      BACK INTO E+11.                    4F11291     
       03211  0 07400 4 00431        TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11292     
       03212  0 76700 0 00030        ALS 24                        POSITION TAU1 TAG, AND             4F11293     
       03213 -0 60200 0 01126        ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11294     
       03214 -0 50000 0 01132        CAL E+4                       TAKE SUBSCRIPT, AND                4F11295     
 D     03215  1 00000 0 03117        TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11296     
       03216 -0 50000 0 01471 NOTAG  CAL FNIND                     POSITION SIGMA1 TAG, AND           4F11297     
       03217 -0 60200 0 01126        ORS E                         PLACE SIGMA1 TAG IN TAGE WORD.     4F11298     
       03220 -0 53400 1 02730 SAEXIT LXD SXR1,1                    RESTORE THE C(XR1)                 4F11299     
       03221 -0 53400 2 02731        LXD SXR2,2                    RESTORE THE C(XR2)                 4F11200     
       03222 -0 53400 4 02732        LXD SXR4,4                    RESTORE THE C(XR4)                 4F11301     
       03223  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11302     
                                          END OF PROGRAM SS000.                                       4F11303     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304     
                                                                                                      4F11305     
                                         SUBX00,4/ CALLERS=C3000,C3300.                               4F11306     
                                         SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES.              4F11307     
       03224  0 53400 3 01414 SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11308     
       03225  0 56000 0 01112        LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11309     
       03226 -0 75400 0 00000 SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11310     
       03227 -0 76300 0 00006        LGL 6                         SEARCH FOR A BLANK                 4F11311     
       03230  0 40200 0 01430        SUB BLANK                     CHARACTER IN THIS NAME.            4F11312     
       03231  0 10000 0 03235        TZE SUBX03                    IF NOT BLANK, THEN                 4F11313     
       03232  1 00006 1 03233        TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11314     
       03233  2 00001 2 03226 SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315     
       03234  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11316     
       03235  0 56000 0 01526 SUBX03 LDQ BLANKS                    IF LESS THEN 6 CHARACTERRS IN NAME,4F11317     
       03236 -0 76300 1 00044        LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11318     
       03237 -0 60200 0 01112        ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11319     
       03240  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11320     
                                          END OF PROGRAM SUBX00.                                      4F11321     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322     
                                                                                                      4F11323     
                                         TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11324     
                                         TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES.           4F11325     
       03241 -0 50000 0 01331 TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11326     
       03242  0 34000 0 01423        CAS L(H)                      WITH H.                            4F11327     
       03243  0 34000 0 01425        CAS L(O)                      IF GREATER THEN H, COMPARE WITH O. 4F11328     
       03244  0 02000 1 00001        TRA 1,1                     * IF NOT GREATER THEN H, LESS THEN O,4F11329     
       03245  0 02000 1 00001        TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11330     
       03246  0 02000 1 00002        TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11331     
                                          END OF PROGRAM TESTFX.                                      4F11332     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333     
                                                                                                      4F11334     
                                         TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335     
                                         C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11336     
                                         TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11337     
                                         TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11338     
       03247  0 34000 0 01376 TESTA0 CAS COMMA                                                        4F11339     
       03250  0 02000 0 03252        TRA TESTA1                                                       4F11340     
       03251  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11341     
       03252  0 40200 0 01374 TESTA1 SUB ENDMK                                                        4F11342     
       03253  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11343     
       03254  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11344     
                                         TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11345     
       03255  0 34000 0 01376 TESTB0 CAS COMMA                                                        4F11346     
       03256  0 02000 0 03260        TRA TESTB1                                                       4F11347     
       03257  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11348     
       03260  0 40200 0 01377 TESTB1 SUB CLOS                                                         4F11349     
       03261  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11350     
       03262  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11351     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11352     
       03263  0 34000 0 01375 TESTC0 CAS OPEN                                                         4F11353     
       03264  0 02000 0 03266        TRA TESTC1                                                       4F11354     
       03265  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11355     
       03266  0 40200 0 01374 TESTC1 SUB ENDMK                                                        4F11356     
       03267  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11357     
       03270  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11358     
                                         TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11359     
       03271  0 34000 0 01374 TESTD0 CAS ENDMK                                                        4F11360     
       03272  0 07400 4 03400 ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11361     
       03273  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11362     
       03274  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11363     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11364     
       03275  0 34000 0 01375 TESTE0 CAS OPEN                                                         4F11365     
       03276  0 02000 0 03300        TRA TESTE1                                                       4F11366     
       03277  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11367     
       03300  0 07400 4 03400 TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11368     
                                         TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11369     
       03301  0 34000 0 01377 TESTF0 CAS CLOS                                                         4F11370     
       03302  0 02000 0 03304        TRA TESTF1                                                       4F11371     
       03303  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11372     
       03304  0 07400 4 03400 TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11373     
                                         TEST CHARACTER IN THE AC FOR COMMA.                          4F11374     
       03305  0 34000 0 01376 TESTG0 CAS COMMA                                                        4F11375     
       03306  0 02000 0 03310        TRA TESTG1                                                       4F11376     
       03307  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11377     
       03310  0 07400 4 03400 TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11378     
                                         TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11379     
       03311  0 34000 0 01417 TESTH0 CAS L(9)                                                         4F11380     
       03312  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11381     
       03313  0 76100 0 00000        NOP                                                              4F11382     
       03314  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11383     
                                         TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11384     
       03315  0 34000 0 01417 TESTI0 CAS L(9)                                                         4F11385     
       03316  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11386     
       03317  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11387     
       03320  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11388     
                                          END OF PROGRAM TEST...                                      4F11389     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390     
                                                                                                      4F11391     
                                         TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11392     
                                         C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11393     
                                         TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11394     
                                         FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11395     
       03321 -0 63400 2 01100 TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11396     
       03322 -0 63400 4 01101        SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11397     
       03323 -0 60000 0 01103        STQ TETMQR                    SAVE THE C(MQR).                   4F11398     
       03324  0 50000 1 00001        CLA 1,1                       COMPUTE TABLE NUMBER               4F11399     
       03325  0 76700 0 00001        ALS 1                         TIMES 3                            4F11400     
       03326  0 40000 1 00001        ADD 1,1                       AND                                4F11401     
       03327  0 76000 0 00006        COM                           PLACE THE 2S COMPLEMENT            4F11402     
       03330  0 40000 0 01407        ADD L(1)                      OF THIS                            4F11403     
       03331  0 73400 2 00000        PAX ,2                        IN XR2                             4F11404     
       03332  0 50000 2 00322        CLA INTET,2                   OBTAIN THE CURRENT                 4F11405     
       03333  0 77100 0 00022        ARS 18                        B (BUFFER CAPACITY),               4F11406     
       03334  0 60100 0 01102        STO TETWRK                    AND SAVE IT. THEN                  4F11407     
       03335  0 50000 2 00324        CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11408     
       03336  0 77100 0 00022        ARS 18                        AND                                4F11409     
       03337  0 40200 0 01102        SUB TETWRK                    COMPARE TO B.                      4F11410     
       03340 -0 10000 0 03356        TNZ TET03                     IF BUFFER IS FULL,                 4F11411     
       03341  0 62200 2 00324        STD INTET+2,2                 SET P = 0, AND                     4F11412     
       03342  0 76600 0 00224 TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11413     
       03343  0 53400 4 01102        LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11414     
       03344  0 50000 0 01102        CLA TETWRK                    ADD BLOCK SIZE TO                  4F11415     
       03345  0 40000 2 00322        ADD INTET,2                   ORGIN OF CURRENT BLOCK (O).        4F11416     
       03346  0 62100 0 03350        STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11417     
       03347  0 70000 1 00001        CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11418     
       03350  0 70000 4 00000 TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11419     
       03351  2 00001 4 03350        TIX TET02,4,1                 TABLE TAPE, AND                    4F11420     
       03352  0 76600 0 00333        IOD                           WHEN DONE,                         4F11421     
       03353  0 50000 2 00324        CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11422     
       03354  0 40000 0 01407        ADD L(1)                      BY 1 FOR                           4F11423     
       03355  0 62100 2 00324        STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11424     
       03356  0 50000 2 00324 TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11425     
       03357  0 77100 0 00022        ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11426     
       03360  0 40000 2 00322        ADD INTET,2                   BUFFER) TO SET                     4F11427     
       03361  0 62100 0 03371        STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11428     
       03362  0 50000 2 00323        CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11429     
       03363  0 62100 0 03370        STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11430     
       03364 -0 73400 4 00000        PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431     
       03365  0 40000 2 00324        ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11432     
       03366  0 62200 2 00324        STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11433     
       03367 -0 53400 2 01406        LXD L(0),2                    SET XR2 = 0. THEN                  4F11434     
       03370  0 50000 2 00000 TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11435     
       03371  0 60100 2 00000 TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11436     
       03372  1 77777 2 03373        TXI TET06,2,-1                WHEN                               4F11437     
       03373  2 00001 4 03370 TET06  TIX TET04,4,1                 DONE,                              4F11438     
       03374  0 56000 0 01103        LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11439     
       03375 -0 53400 2 01100        LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11440     
       03376 -0 53400 4 01101        LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11441     
       03377  0 02000 1 00002        TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11442     
                                          END OF PROGRAM TET00.                                       4F11443     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444     
                                                                                                      4F11445     
                                         DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11446     
                                         C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11447     
                                         SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,  4F11448     
                                         CMA,EMK,BEG(TYP),VRA(VRD).                                   4F11449     
                                         (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE   4F11450     
                                         BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO      4F11451     
                                         THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)   4F11452     
 D     03400  1 00000 0 00004 DIAG   TXI 4,0                     * GO GET THE DIAGNOSTIC.             4F11453     
                                          END OF PROGRAM DIAG.                                        4F11454     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11455     
                                                                                                      4F11456     
                                         ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.                4F11457     
       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    
       03437  1 00000 0 01731 FLTR05 TXI CIT00,0,**        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     
                                         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     
       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     
                                         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     
                                                                                                      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     
                                         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     
       03526  0 07400 4 01707 CD700  TSX C0190,4                 * 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     
       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     
       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     
                                          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     
       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     
 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     
       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     
                                         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 01425        SUB L(O)                      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     
       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     
       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     
                                         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     
       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 04506        TXI C3002,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    
       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(QPR)                    WORD2--QPR000                      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     
                                                                                                      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     
       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 01366        STA SET                       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     
       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     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *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 01504        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     
       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     
                                         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     
       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     
       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     
       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 00000 4 05352        TXL SPCR,4,0                 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 70373 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     
       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 = REENTRY 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     
       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 01501        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     
       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     
                                         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 01404        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     
                                                                                                      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     
       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     
       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 LIB.                                          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     
       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 01501        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     
       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     
       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     
 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     
                                         ( 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     
       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     
       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     
       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     
       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     
       03773  0 07400 1 03242        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     
       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     
       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     
       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     
       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     
       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     
       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     
       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     
       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     
       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     
                                                                                                      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     
       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     
       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     
       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     
       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     
       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     
       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 01425        CAS L(O)                                                         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     
       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 01425        CAS L(O)                                                         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     
       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 01425        CAS L(O)                                                         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 01350        CPY G+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     
       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     
       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     
       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     
       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     
                                         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      MIN1                                       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     
       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 01425        CAS L(O)                                                         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     
       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 01356 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     
       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 05104        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 05112 CP1150 TSX AC0000,C          ADDRESS COMPILE SYM1 (S(I))                4F15111     
       03713  0 07400 2 05104        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     
       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 05112        TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15131     
       03737  0 07400 2 05104        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 05104        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 05104        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 05112 CP1690 TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15155     
       03767  0 07400 2 05104        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 05104        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 05104        TSX COMP,B            COMPILE LDQ 700000                         4F15168     
       04004  0 76000 0 00143 CP1840 SLN 3                 TURN LATE 3 ON                             4F15169     
       04005  0 07400 4 05112        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     
       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 05104        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 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15209     
       04055  0 07400 2 05104        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 01573        HTR L(STQ)                                                       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     
       04076  0 60200 0 06165        SLW CW+1                                                         4F15227     
       04077  0 07400 4 05112        TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15228     
       04100  0 07400 2 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)), J=4,...        4F15239     
       04113  0 07400 2 05104        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 05104        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 05104        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 05241        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 05104        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     
       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 05104 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 05112 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 05112 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 05104        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 05104        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 05104        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 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15333     
       04243  0 07400 2 05104        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     
       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 05112 CP3420 TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15344     
       04256  0 07400 2 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15353     
       04267  0 07400 2 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15365     
       04303  0 07400 2 05104        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 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15390     
       04334  0 07400 2 05104        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     
       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 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYM2(S(II)                 4F15410     
       04360  0 07400 2 05104        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 60000 0 06166        STQ 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 05112 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 05104        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 05104        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 05112 CP4470 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15446     
       04424  0 07400 2 05104        TSX COMP,B            COMPILE LDQ SYM2 (S(I))                    4F15447     
       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 05104        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 05104        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 05112        TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15484     
       04465  0 07400 2 05104        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 05112        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     
       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 05104        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 05104        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 05104        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 05104        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 05112        TSX AC0000,C          NONSUBSCRIPTED                             4F15559     
       04577  1 00000 0 04607 STACTR TXI CP5720,0,0                                                   4F15560     
       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 05104 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 05104        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 05100        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 01425        CAS L(O)                                                         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     
       04666  0 50000 0 01573 ES0710 CLA L(STQ)            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 05120        TSX AC0060,C          ADDRESS COMPILE VARIABLE ON LEFT           4F15625     
       04701  0 07400 2 05104        TSX COMP,B            COMPILE STO/STQ LEFT+2                     4F15626     
       04702  0 02000 0 05064        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 05104        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 05104        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     
       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 05104        TSX COMP,B            COMPILE STQ 700000                         4F15674     
       04762  0 50000 0 01541        CLA L(CLA)                                                       4F15675     
       04763  0 60100 0 06165        STO CW+1                                                         4F15676     
       04764  0 07400 2 05104        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 05104        TSX COMP,B            COMPILE TRA  1,4                           4F15701     
       05015  0 02000 0 05064        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 05104        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 05104        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     
       05042  0 00000 0 00002        PZE 2                         INTO  TIFGO  TABLE  (TABLE 2),     4F15723     
       05043  0 02000 0 05050        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     
       05047  0 00000 0 00020            16                                                           4F15728     
       05050 -0 76000 0 00142 ES1530 SLT 2                                                            4F15729     
       05051  0 02000 0 05064        TRA ES1590            EXIT TO  FETCH STATE A                     4F15730     
       05052  0 07400 4 01731        TSX CIT00,C           COMPILE  LLS 37                            4F15731     
       05053  0 00000 0 01406            L(0)                                                         4F15732     
       05054  0 00000 0 01573            L(STQ)                                                       4F15733     
       05055  0 00000 0 01505            X(                                                           4F15734     
       05056  0 00000 0 01406            L(0)                                                         4F15735     
       05057  0 07400 4 01731        TSX CIT00,4                                                      4F15736     
       05060  0 00000 0 01406            L(0)                                                         4F15737     
       05061  0 00000 0 01541            L(CLA)                                                       4F15738     
       05062  0 00000 0 01505            X(                                                           4F15739     
       05063  0 00000 0 01406            L(0)                                                         4F15740     
       05064  0 50000 0 06160 ES1590 CLA FNSW                                                         4F15741     
       05065  0 10000 0 02402        TZE MTR000                                                       4F15742     
       05066  0 50000 0 01151        CLA F-1                                                          4F15743     
       05067  0 40200 0 01477        SUB 5BLANS                                                       4F15744     
       05070  0 10000 0 02402        TZE MTR000                                                       4F15745     
       05071  0 50200 0 00030        CLS EIFNO                                                        4F15746     
       05072  0 60100 0 00030        STO EIFNO                                                        4F15747     
       05073  0 07400 1 03321        TSX TET00,A                                                      4F15748     
       05074  0 00000 0 00000        HTR 0                                                            4F15749     
       05075  0 50200 0 00030        CLS EIFNO                                                        4F15750     
       05076  0 60100 0 00030        STO EIFNO                                                        4F15751     
       05077  0 02000 0 02402        TRA MTR000                                                       4F15752     
       05100 -0 53400 2 00637 ES1710 LXD BBOX,B                                                       4F15753     
       05101  0 50000 0 01362        CLA OPNWRD                                                       4F15754     
       05102  0 60100 2 00635        STO CIB-3,B                                                      4F15755     
       05103  0 02000 0 02402        TRA MTR000                                                       4F15756     
                                                                                                      4F15757     
       05104  0 07400 4 01731 COMP   TSX CIT00,C                                                      4F15758     
       05105  0 00000 0 06164        HTR CW                                                           4F15759     
       05106  0 00000 0 06165        HTR CW+1                                                         4F15760     
       05107  0 00000 0 06166        HTR CW+2                                                         4F15761     
       05110  0 00000 0 06167        HTR CW+3                                                         4F15762     
       05111  0 02000 2 00001        TRA 1,B                                                          4F15763     
                                                                                                      4F15764     
       05112  0 50000 1 06650 AC0000 CLA SCRIPL,A                                                     4F15765     
       05113  0 60100 0 06170        STO TAGWRD                                                       4F15766     
       05114  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15767     
       05115  0 60100 0 06171        STO OPWORD                                                       4F15768     
       05116  0 50000 1 06652        CLA SCRIPL+2,A                                                   4F15769     
       05117  0 60100 0 06172        STO SYMWRD                                                       4F15770     
       05120 -0 50000 0 06170 AC0060 CAL TAGWRD                                                       4F15771     
       05121 -0 32000 0 01527        ANA MASK1             EXTRACT  TAGS IN ACC.                      4F15772     
       05122 -0 76000 0 00001        PBT                                                              4F15773     
       05123  0 02000 0 05204        TRA AC0540                                                       4F15774     
       05124 -0 75400 0 00000        PXD 0,0               NON-SUBSCRIPTED SYMBOL                     4F15775     
       05125  0 56000 0 06172        LDQ SYMWRD                                                       4F15776     
       05126 -0 76300 0 00001        LGL 1                                                            4F15777     
       05127  0 76000 0 00001        LBT                                                              4F15778     
       05130  0 16200 0 05175        TQP AC0460            SYMBOL IS SOME S(K)                        4F15779     
       05131 -0 76300 0 00013        LGL 11                NON-SUBSCRIPTED EX/INTERNAL VARIABLE       4F15760     
       05132  0 40200 0 01444        SUB L(A()             IS THIS A FLO PT CONSTANT                  4F15781     
       05133  0 10000 0 05170        TZE AC0410            YES                                        4F15782     
       05134  0 40000 0 01444        ADD L(A()             NO                                         4F15783     
       05135  0 40200 0 01446        SUB L(I()             IS THIS A FIX PT CONSTANT                  4F15784     
       05136  0 10000 0 05166        TZE AC0390            YES                                        4F15785     
       05137  0 40000 0 01446        ADD L(I()             NO                                         4F15786     
       05140  0 40200 0 01445        SUB L(H()             IS THIS A HOLLERITH FIELD                  4F15787     
       05141  0 10000 0 05164        TZE AC0350            YES                                        4F15788     
       05142  0 56000 0 06171        LDQ OPWORD            NON-SUBSCRIPTED EXTERNAL VARIABLE          4F15789     
       05143 -0 76300 0 00015        LGL 13                IS THIS A FREE VARIABLE                    4F15790     
       05144  0 16200 0 05161        TQP AC0340            NO                                         4F15791     
       05145  0 76300 0 00017        LLS 15                YES                                        4F15792     
       05146  0 76000 0 00006        COM                                                              4F15793     
       05147  0 40200 0 01407        SUB L(1)                                                         4F15794     
       05150  0 73400 2 00000        PAX 0,B                                                          4F15795     
       05151 -0 75400 0 00000        PXD 0,8                                                          4F15796     
       05152  0 60200 0 06167        SLW CW+3              STORE ARGUMENT BUFFER RELATIVE ADDRESS     4F15797     
       05153 -0 53400 2 00470        LXD BK,B                                                         4F15798     
       05154 -0 50000 2 00470        CAL FORSUB-1,B                                                   4F15799     
       05155 -0 32000 0 01452        ANA MASK2             EXTRACT FUNCTION STATEMENT TYPE            4F15600     
       05156 -0 50100 0 01503        ORA P(                                                           4F15801     
       05157  0 60200 0 06166 AC0320 SLW CW+2                                                         4F15802     
       05160  0 02000 4 00001        TRA 1,C               RETURN                                     4F15803     
       05161  0 60000 0 06167 AC0340 STZ CW+3              NON-SUBSCRIPTED, REAL VARIABLE             4F15804     
       05162 -0 50000 0 06172        CAL SYMWRD                                                       4F15805     
       05163  0 02000 0 05157        TRA AC0320                                                       4F15806     
       05164 -0 50000 0 01522 AC0350 CAL H(                                                           4F15807     
       05165  0 02000 0 05171        TRA AC0420                                                       4F15808     
       05166  0 50000 0 01501 AC0390 CLA I(                FIX PT INTERNAL VARIABLE                   4F15809     
       05167  0 02000 0 05171        TRA AC0420                                                       4F15810     
       05170  0 50000 0 01502 AC0410 CLA A(                FLO PT INTERNAL VARIABLE                   4F15811     
       05171  0 60100 0 06166 AC0420 STO CW+2                                                         4F15812     
       05172 -0 77300 0 00006        RQL 6                                                            4F15813     
       05173 -0 60000 0 06167        STQ CW+3                                                         4F15814     
       05174  0 02000 4 00001        TRA 1,C               RETURN                                     4F15815     
       05175 -0 76300 0 00043 AC0460 LGL 35                SYMBOL IS SOME S(K)                        4F15616     
       05176  0 73400 2 00000 TDRADD PAX 0,B                                                          4F15817     
       05177 -0 50000 6 06174        CAL CPBETA,6                                                     4F15618     
       05200 -0 32000 0 01527        ANA MASK1             EXTRACT PHI(K)                             4F15819     
       05201  0 60200 0 06167        SLW CW+3                                                         4F15820     
       05202 -0 50000 0 01120        CAL ARERAS                                                       4F15621     
       05203  0 02000 0 05157        TRA AC0320                                                       4F15822     
       05204  0 60200 0 06170 AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823     
       05205  0 56000 0 06170        LDQ TAGWRD                                                       4F15824     
       05206 -0 75400 0 00000        PXD ,0                CLEAR AC.                                  4F15825     
       05207 -0 76300 0 00014        LGL 12                I-TAU  TAGS TO AC                          4F15826     
       05210  0 60200 0 06167        SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827     
       05211  0 16200 0 05214        TQP *+3                                                          4F15828     
       05212  0 60000 0 06167        STZ CW+3                                                         4F15829     
       05213 -0 50000 0 01454        CAL 2E18              REPLACE NULL TAG,                          4F15830     
       05214  0 60200 0 06173        SLW TAGPRT            SAVE FOR LATER USE.                        4F15831     
       05215 -0 76300 0 00001        LGL 1                                                            4F15832     
       05216 -0 75400 0 00000        PXD ,0                CLEAR AC                                   4F15833     
       05217 -0 76300 0 00010        LGL 8                 FORM TWICE SIGMA TAG.                      4F15834     
       05220  0 76700 0 00001        ALS 1                                                            4F15835     
       05221  0 40100 0 00446        ADM SIG1IX-2          FORM BASE OF TABLE + SIGMA TAG.            4F15836     
       05222  0 62100 0 05223        STA SDRADD                                                       4F15837     
       05223 -0 75400 0 00000 SDRADD PXD **,0                                                         4F15838     
       05224  0 76200 0 00302        RDR 2                                                            4F15839     
       05225  0 46000 0 05223        LDA SDRADD                                                       4F15840     
       05226 -0 70000 0 02365        CAD DUMP                                                         4F15841     
       05227  0 76000 0 00006        COM                                                              4F15842     
       05230 -0 70000 0 02365        CAD DUMP                                                         4F15843     
       05231  0 76000 0 00006        COM                                                              4F15844     
       05232  0 10000 0 05234        TZE *+2               CHECK SUM TEST,                            4F15845     
       05233  0 07400 4 03400        TSX DIAG,4            ERROR SIGMA1 CKSUM FAILS                   4F15846     
       05234 -0 50000 0 02365        CAL DUMP                                                         4F15847     
       05235 -0 60200 0 06167        ORS CW+3              ADD RELATIVE ADDRESS TO I-TAU TAG.         4F15848     
       05236  0 50000 0 06172        CLA SYMWRD            MOVE VARIABLE NAME FOR NEXT CIT ENTRY.     4F15849     
       05237  0 60100 0 06166        STO CW+2                                                         4F15850     
       05240  0 02000 4 00001        TRA 1,4               RETURN  TO CALLER                          4F15851     
                                                                                                      4F158511    
       05241  0 07400 4 03401 CP6000 TSX FLTR00,4          COMPILE FLOW TRACE INFORMATION AND THEN    4F158512    
       05242  0 00000 0 06164            CW                COMPILE LXD 7(TYPE =*4                     4F158513    
       05243  0 00000 0 06165            CW+1                                                         4F158514    
       05244  0 00000 0 06166            CW+2                                                         4F158515    
       05245  0 00000 0 06167            CW+3                                                         4F158516    
       05246  0 02000 0 04622        TRA ES0000                                                       4F158517    
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852     
                        05247 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     
                        01501 2P     SYN I(                                                           4F15873     
                        01531 36ONES SYN ALL1                                                         4F15874     
                        01102 3E     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15875     
                        01117 3QBAR  SYN 3LBAR                                                        4F15876     
                        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     
                        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     
                        01404 PLUS   SYN 12Z                                                          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     
                        01356 TAU3   SYN 0750                      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     
                        01504 ZER    SYN O(                                                           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    6030           0           0           0           0
 LIB       0           0           0           0           0
 COL    6030           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     6039                  
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                                                                  
       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    
       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    
       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    
       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    
       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    
       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    
       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    
       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    
                        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    
       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    
       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    
       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    
       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    
                                                                                                      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    
       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    
       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    
       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    
                                                                                                      4F1D5550    
       15333  676767676767           BCD  XXXXXX002741      A SUBSCRIPT HAS A  DOUBLE ADDEND.         4F1D5560    
       15334  000002070401    
       15335  606060606060    
       15336  216062642262    
       15337  235131476360    
       15340  302162602160    
       15341  602446642243    
       15342  256021242425    
       15343  452433606060    
       15344  606060606060    
                                                                                                      4F1D5570    
       15345  676767676767           BCD  XXXXXX002744      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580    
       15346  000002070404    
       15347  606060606060    
       15350  216062642262    
       15351  235131476360    
       15352  316260454663    
       15353  602160263167    
       15354  252460474631    
       15355  456360652151    
       15356  312122432533    
                                                                                                      4F1D5590    
       15357  676767676767           BCD  XXXXXX002764      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5600    
       15360  000002070604    
       15361  606060606060    
       15362  216062642262    
       15363  235131476360    
       15364  316260454663    
       15365  602160263167    
       15366  252460474631    
       15367  456360652151    
       15370  312122432533    
                                                                                                      4F1D5610    
       15371  676767676767           BCD  XXXXXX003023      A SUBSCRIPT ADDEND IS NOT A CONSTANT.     4F1D5620    
       15372  000003000203    
       15373  606060606060    
       15374  216062642262    
       15375  235131476360    
       15376  212424254524    
       15377  603162604546    
       15400  636021602346    
       15401  456263214563    
       15402  336060606060    
                                                                                                      4F1D5630    
       15403  676767676767           BCD  XXXXXX003026      THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640    
       15404  000003000206    
       15405  606060606060    
       15406  633025512560    
       15407  316260216047    
       15410  215125456330    
       15411  256231626044    
       15412  316262314527    
       15413  603145606246    
       15414  442560626422    
       15415  622351314763           BCD 4SCRIPT COMBINATION.                                         4F1D5650    
       15416  602346442231    
       15417  452163314645    
       15420  336060606060    
                                                                                                      4F1D5660    
       15421  676767676767           BCD  XXXXXX003064      A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670    
       15422  000003000604    
       15423  606060606060    
       15424  216003602431    
       15425  442545623146    
       15426  452143606264    
       15427  226223513147    
       15430  632524606521    
       15431  513121224325    
       15432  602446256260    
       15433  454663603021           BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY.                       4F1D5680    
       15434  652560216024    
       15435  314425456231    
       15436  464560626321    
       15437  632544254563    
       15440  602545635170    
       15441  336060606060    
                                                                                                      4F1D5690    
       15442  676767676767           BCD  XXXXXX003151      A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5700    
       15443  000003010501    
       15444  606060606060    
       15445  216002602431    
       15446  442545623146    
       15447  452143606264    
       15450  226223513147    
       15451  632524606521    
       15452  513121224325    
       15453  602446256260    
       15454  454663603021           BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY.                       4F1D5710    
       15455  652560216024    
       15456  314425456231    
       15457  464560626321    
       15460  632544254563    
       15461  602545635170    
       15462  336060606060    
                                                                                                      4F1D5720    
       15463  676767676767           BCD  XXXXXX003254      PROGRAM EXPECTS COMMA OR END OF STATEMENT.4F1D5730    
       15464  000003020504    
       15465  606060606060    
       15466  475146275121    
       15467  446025674725    
       15470  236362602346    
       15471  444421604651    
       15472  602545246046    
       15473  266062632163    
       15474  254425456333    
                                                                                                      4F1D5740    
       15475  676767676767           BCD  XXXXXX003262      PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750    
       15476  000003020602    
       15477  606060606060    
       15500  475146275121    
       15501  446025674725    
       15502  236362602346    
       15503  444421604651    
       15504  605131273063    
       15505  604721512545    
       15506  633025623162    
       15507  336060606060           BCD 1.                                                           4F1D5760    
                                                                                                      4F1D5770    
       15510  676767676767           BCD  XXXXXX003270      PROGRAM EXPECTS LEFT PARENTHESIS OR END OF4F1D5780    
       15511  000003020700    
       15512  606060606060    
       15513  475146275121    
       15514  446025674725    
       15515  236362604325    
       15516  266360472151    
       15517  254563302562    
       15520  316260465160    
       15521  254524604626    
       15522  606263216325           BCD 2 STATEMENT.                                                 4F1D5790    
       15523  442545633360    
                                                                                                      4F1D5800    
       15524  676767676767           BCD  XXXXXX003272      MACHINE ERROR. AC GREATER THAN OCTAL 77.  4F1D5810    
       15525  000003020702    
       15526  606060606060    
       15527  442123303145    
       15530  256025515146    
       15531  513360212360    
       15532  275125216325    
       15533  516063302145    
       15534  604623632143    
       15535  600707336060    
                                                                                                      4F1D5820    
       15536  676767676767           BCD 9XXXXXX003274      PROGRAM EXPECTS END OF STATEMENTS         4F1D5830    
       15537  000003020704    
       15540  606060606060    
       15541  475146275121    
       15542  446025674725    
       15543  236362602545    
       15544  246046266062    
       15545  632163254425    
       15546  456362606060    
                                                                                                      4F1D5840    
       15547  676767676767           BCD 9XXXXXX003300      PROGRAM EXPECTS LEFT PARENTHESIS.         4F1D5850    
       15550  000003030000    
       15551  606060606060    
       15552  475146275121    
       15553  446025674725    
       15554  236362604325    
       15555  266360472151    
       15556  254563302562    
       15557  316233606060    
                                                                                                      4F1D5860    
       15560  676767676767           BCD 9XXXXXX003304      PROGRAM EXPECTS RIGHT PARENTHESIS.        4F1D5870    
       15561  000003030004    
       15562  606060606060    
       15563  475146275121    
       15564  446025674725    
       15565  236362605131    
       15566  273063604721    
       15567  512545633025    
       15570  623162336060    
                                                                                                      4F1D5880    
       15571  676767676767           BCD 7XXXXXX003310      PROGRAM EXPECTS COMMA.                    4F1D5690    
       15572  000003030100    
       15573  606060606060    
       15574  475146275121    
       15575  446025674725    
       15576  236362602346    
       15577  444421336060    
                                                                                                      4F1D5900    
       15600  676767676767           BCD  XXXXXX003314      SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910    
       15601  000003030104    
       15602  606060606060    
       15603  627044224643    
       15604  602225273145    
       15605  626045644425    
       15606  513123606630    
       15607  312330603162    
       15610  603143432527    
       15611  214360314560    
       15612  633031626023           BCD 3THIS CONTEXT.                                               4F1D5920    
       15613  464563256763    
       15614  336060606060    
       15615  676767676767           BCD  XXXXXX003316      SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940    
       15616  000003030106    
       15617  606060606060    
       15620  627044224643    
       15621  602225273145    
       15622  626045464540    
       15623  456444255131    
       15624  236066303123    
       15625  306031626031    
       15626  434325272143    
       15627  603145606330           BCD 3 IN THIS CONTEXT.                                           4F1D5950    
       15630  316260234645    
       15631  632567633360    
                                                                                                      4F1D5960    
                                         STATE A                                                      4F1D5970    
                                                                                                      4F1D5980    
       15632  676767676767           BCD  XXXXXX003542      THE CHARACTER $ OCCURS IN THIS STATEMENT  4F1D5990    
       15633  000003050402    
       15634  606060606060    
       15635  633025602330    
       15636  215121236325    
       15637  516053604623    
       15640  236451626031    
       15641  456063303162    
       15642  606263216325    
       15643  442545636060    
       15644  606246442566           BCD 8 SOMEWHERE OTHER THAN IN HOLLERITH TEXT.                    4F1D6000    
       15645  302551256046    
       15646  633025516063    
       15647  302145603145    
       15650  603046434325    
       15651  513163306063    
       15652  256763336060    
       15653  606060606060    
                                                                                                      4F1D6010    
       15654  676767676767           BCD  XXXXXX003545      THE ILLEGAL CHARACTER    (0-8-2 PUNCH) OCC4F1D6020    
       15655  000003050405    
       15656  606060606060    
       15657  633025603143    
       15660  432527214360    
       15661  233021512123    
       15662  632551606060    
       15663  607400401040    
       15664  026047644523    
       15665  303460462323    
       15666  645162603145           BCD 4URS INTHIS STATEMENT.                                       4F1D6030    
       15667  633031626062    
       15670  632163254425    
       15671  456333606060    
                                                                                                      4F1D6040    
       15672  676767676767           BCD  XXXXXX003550      THE ILLEGAL CHARACTER -0 (11-8-2 PUNCH) O 4F1D6050    
       15673  000003050500    
       15674  606060606060    
       15675  633025603143    
       15676  432527214360    
       15677  233021512123    
       15700  632551604000    
       15701  607401014010    
       15702  400260476445    
       15703  233034604660    
       15704  232364516260           BCD 4CCURS IN THIS STATEMENTS.                                   4F1D6060    
       15705  314560633031    
       15706  626062632163    
       15707  254425456362    
                                                                                                      4F1D6070    
       15710  676767676767           BCD  XXXXXX003553      THE ILLEGAL CHARACTER +0 112-6-2 PUNCH) 0 4F1D6080    
       15711  000003050503    
       15712  606060606060    
       15713  633025603143    
       15714  432527214360    
       15715  233021512123    
       15716  632551602000    
       15717  600101024006    
       15720  400260476445    
       15721  233034600060    
       15722  232364516260           BCD 4CCURS IN THIS STATEMENT.                                    4F1D6090    
       15723  314560633031    
       15724  626062632163    
       15725  254425456333    
                                                                                                      4F1D6100    
       15726  676767676767           BCD  XXXXXX003556      THE ILLEGAL CHARACTER - (8-4 PUNCH) OCCUR 4F1D6110    
       15727  000003050506    
       15730  606060606060    
       15731  633025603143    
       15732  432527214360    
       15733  233021512123    
       15734  632551604060    
       15735  741040046047    
       15736  644523303460    
       15737  462323645160    
       15740  626031456063           BCD 4S IN THIS STATEMENT.                                        4F1D6120    
       15741  303162606263    
       15742  216325442545    
       15743  633360606060    
                                                                                                      4F1D6130    
       15744  676767676767           BCD  XXXXXX003561      THE NON BCD CHARACTER 001010 HAS BEEN RE  4F1D6140    
       15745  000003050601    
       15746  606060606060    
       15747  633025604546    
       15750  456022232460    
       15751  233021512123    
       15752  632551600000    
       15753  010001006030    
       15754  216260222525    
       15755  456051256060    
       15756  212460265146           BCD 8AD FROM TAPE WHILE PROCESSING THIS STATEMENT.               4F1D6150    
       15757  446063214725    
       15760  606630314325    
       15761  604751462325    
       15762  626231452760    
       15763  633031626062    
       15764  632163254425    
       15765  456333606060    
                                                                                                      4F1D6160    
       15766  676767676767           BCD 8XXXXXX003615      TOO MANY RIGHT PARENTHESIS.               4F1D6170    
       15767  000003060105    
       15770  606060606060    
       15771  634646604421    
       15772  457060513127    
       15773  306360472151    
       15774  254563302562    
       15775  316233606060    
                                                                                                      4F1D6180    
       15776  676767676767           BCD  XXXXXX003624      NON-ARITHMETIC STATEMENT OF A TYPE WHICH I4F1D6190    
       15777  000003060204    
       16000  606060606060    
       16001  454645402151    
       16002  316330442563    
       16003  312360626321    
       16004  632544254563    
       16005  604626602160    
       16006  637047256066    
       16007  303123306031    
       16010  626045466360           BCD 4S NOT IN DICTIONARY.                                        4F1D6200    
       16011  314560243123    
       16012  633146452151    
       16013  703360606060    
                                                                                                      4F1D6210    
       16014  676767676767           BCD  XXXXXX004055      TOO FEW RIGHT PARENTHESES.                4F1D6220    
       16015  000004000505    
       16016  606060606060    
       16017  634646602625    
       16020  666051312730    
       16021  636047215125    
       16022  456330256225    
       16023  623360606060    
       16024  606060606060    
       16025  606060606060    
                                                                                                      4F104230    
       16026  676767676767           BCD 7XXXXXX004225      PROGRAM EXPECTS TO .                      4F1D6240    
       16027  000004020205    
       16030  606060606060    
       16031  475146275121    
       16032  446025674725    
       16033  236362606346    
       16034  603360606060    
                                                                                                      4F106250    
       16035  676767676767           BCD  XXXXXX004304      A VARIABLE IN THIS LIST APPEARED PREVIOUSL4F1D6260    
       16036  000004030004    
       16037  606060606060    
       16040  216065215131    
       16041  212243256031    
       16042  456063303162    
       16043  604331626360    
       16044  214747252151    
       16045  252460475125    
       16046  653146646243    
       16047  706031456021           BCD 5Y IN ADIMENSION STATEMENT.                                  4F1D6270    
       16050  243144254562    
       16051  314645606263    
       16052  216325442545    
       16053  633360606060    
                                                                                                      4F1D6280    
       16054  676767676767           BCD  XXXXXX004323      MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290    
       16055  000004030203    
       16056  606060606060    
       16057  444651256063    
       16060  302145600360    
       16061  243144254562    
       16062  314645626046    
       16063  516044316262    
       16064  314527605131    
       16065  273063604721    
       16066  512545633025           BCD 2RENTHESIS.                                                  4F1D6300    
       16067  623162336060    
                                                                                                      4F1D6310    
       16070  676767676767           BCD  XXXXXX004444      A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320    
       16071  000004040404    
       16072  606060606060    
       16073  216062642251    
       16074  466463314525    
       16075  604651602664    
       16076  452363314645    
       16077  606263216325    
       16100  442545636021    
       16101  474725215162    
       16102  432163255160           BCD  LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330    
       16103  633021456063    
       16104  302560263151    
       16105  626360626321    
       16106  632544254563    
       16107  604626606330    
       16110  256047514627    
       16111  512144336047    
       16112  514622212243    
       16113  706021636325    
       16114  444763606346           BCD  MPT TOBATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN.            4F1D6340    
       16115  222163233060    
       16116  234644473143    
       16117  256066316330    
       16120  466463606225    
       16121  456225606266    
       16122  316323306006    
       16123  602446664533    
       16124  606060606060    
       16125  606060606060    
                                                                                                      4F1D6350    
       16126  676767676767           BCD  XXXXXX004544      A RETURN STATEMENT HAS OCCURRED IN A PROGR4F1D6360    
       16127  000004050404    
       16130  606060606060    
       16131  216051256364    
       16132  514560626321    
       16133  632544254563    
       16134  603021626046    
       16135  232364515125    
       16136  246031456021    
       16137  604751462751    
       16140  214460454663           BCD  AM NOTDEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM.    4F1D6370    
       16141  242526314525    
       16142  246063466022    
       16143  256021606264    
       16144  225146646331    
       16145  452560465160    
       16146  266445236331    
       16147  464560626422    
       16150  475146275121    
       16151  443360606060    
                                                                                                      4F1D6380    
       16152  676767676767           BCD  XXXXXX004663      SENSE SWITCH SETTING OTHER THAN 0,1 OR 2  4F1D6390    
       16153  000004060603    
       16154  606060606060    
       16155  622545622560    
       16156  626631632330    
       16157  606225636331    
       16160  452760466330    
       16161  255160633021    
       16162  456000730160    
       16163  465160026060    
       16164  465160444651           BCD 7OR MORE THAN 5 SETTINGS OR WRONG FORMAT.                    4F1D6400    
       16165  256063302145    
       16166  600560622563    
       16167  633145276260    
       16170  465160665146    
       16171  452760264651    
       16172  442163336060    
                                                                                                      4F1D6410    
       16173  676767676767           BCD 8XXXXXX004705      VARIABLE FORMAT NUMBER.                   4F1D6420    
       16174  000004070005    
       16175  606060606060    
       16176  652151312122    
       16177  432560264651    
       16200  442163604564    
       16201  442225513360    
       16202  606060606060    
                                                                                                      4F1D6430    
       16203  676767676767           BCD 6XXXXXX004707      NO FORMAT NUMBER.                         4F1D6440    
       16204  000004070007    
       16205  606060606060    
       16206  454660264651    
       16207  442163604564    
       16210  442225513360    
                                                                                                      4F1D6450    
       16211  676767676767           BCD  XXXXXX005170      MORE THAN SIX CHARACTERS IN SOME SYMBOL.  4F1D6460    
       16212  000005010700    
       16213  606060606060    
       16214  444651256063    
       16215  302145606231    
       16216  676023302151    
       16217  212363255162    
       16220  603145606246    
       16221  442560627044    
       16222  224643336060    
                                                                                                      4F1D6470    
       16223  676767676767           BCD  XXXXXX005200      ILLEGAL CHARACTER IN THIS LIST.           4F1D6480    
       16224  000005020000    
       16225  606060606060    
       16226  314343252721    
       16227  436023302151    
       16230  212363255160    
       16231  314560633031    
       16232  626043316263    
       16233  336060606060    
       16234  606060606060    
                                                                                                      4F1D6490    
       16235  676767676767           BCD  XXXXXX005260      MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500    
       16236  000005020600    
       16237  606060606060    
       16240  444651256063    
       16241  302145606330    
       16242  512525604325    
       16243  652543626031    
       16244  456063303162    
       16245  604331626360    
       16246  744525626325    
       16247  006047215125           BCD 30 PARENTHESIS).                                             4F1D6510    
       16250  456330256231    
       16251  623433606060    
                                                                                                      4F1D6520    
       16252  676767676767           BCD  XXXXXX005263      ATTEMPT TO SPECIFY SUBSCRIPT RANGE WITHO  4F1D6530    
       16253  000005020603    
       16254  606060606060    
       16255  216363254447    
       16256  636063466062    
       16257  472523312670    
       16260  606264226223    
       16261  513147636051    
       16262  214527256066    
       16263  316330466060    
       16264  646360646225           BCD 4UT USEOF PARENTHESIS.                                       4F1D6540    
       16265  462660472151    
       16266  254563302562    
       16267  316233606060    
                                                                                                      4F1D6550    
       16270  676767676767           BCD  XXXXXX005305      INCOMPLETE STATEMENT OR INCOMPLETE CLOSURE4F1D6560    
       16271  000005030005    
       16272  606060606060    
       16273  314523464447    
       16274  432563256062    
       16275  632163254425    
       16276  456360465160    
       16277  314523464447    
       16300  432563256023    
       16301  434662645125    
       16302  462660472151           BCD 3OF PARENTHESIS.                                             4F1D6570    
       16303  254563302562    
       16304  316233606060    
                                                                                                      4F1D6580    
       16305  676767676767           BCD  XXXXXX005306      ILLEGAL CHARACTER IN D0 SPECIFICATION IN L4F1D6590    
       16306  000005030006    
       16307  606060606060    
       16310  314343252721    
       16311  436023302151    
       16312  212363255160    
       16313  314560240060    
       16314  624725233126    
       16315  312321633146    
       16316  456031456043    
       16317  316263736060           BCD 1IST,                                                        4F1D6600    
                                                                                                      4F1D6610    
       16320  676767676767           BCD 8XXXXXX005401      TOO MANY RIGHT PARENTHESIS.               4F1D6620    
       16321  000005040001    
       16322  606060606060    
       16323  634646604421    
       16324  457060513127    
       16325  306360472151    
       16326  254563302562    
       16327  316233606060    
                                                                                                      4F1D6630    
       16330  676767676767           BCD 6XXXXXX005416      CONSTANT IN LIST.                         4F1D6640    
       16331  000005040106    
       16332  606060606060    
       16333  234645626321    
       16334  456360314560    
       16335  433162633360    
                                                                                                      4F1D6650    
       16336  676767676767           BCD 8XXXXXX005552      TOO MANY LEFT PARENTHESIS.                4F1D6660    
       16337  000005050502    
       16340  606060606060    
       16341  634646604421    
       16342  457060432526    
       16343  636047215125    
       16344  456330256231    
       16345  623360606060    
                                                                                                      4F1D6670    
       16346  676767676767           BCD  XXXXXX005607      ILLEGAL CHARACTER IN THIS STATEMENT.      4F1D6680    
       16347  000005060007    
       16350  606060606060    
       16351  314343252721    
       16352  436023302151    
       16353  212363255160    
       16354  314560633031    
       16355  626062632163    
       16356  254425456333    
       16357  606060606060    
                                                                                                      4F1D6690    
       16360  676767676767           BCD  XXXXXX005715      A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700    
       16361  000005070105    
       16362  606060606060    
       16363  216063214725    
       16364  602330252342    
       16365  603021626046    
       16366  232364515125    
       16367  246063305125    
       16370  256063314425    
       16371  626031456021    
       16372  636325444763           BCD  TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710    
       16373  314527606346    
       16374  605125212460    
       16375  216051252346    
       16376  512460462660    
       16377  633025606246    
       16400  645123256047    
       16401  514627512144    
       16402  602651464460    
       16403  632147256002    
       16404  336021636325           BCD  . ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720    
       16405  444763606346    
       16406  605125212460    
       16407  212221452446    
       16410  452524336063    
       16411  302560626321    
       16412  632544254563    
       16413  603145654643    
       16414  652524603162    
       16415  604546636047    
       16416  514623256262           BCD  ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730    
       16417  252433603126    
       16420  606330256051    
       16421  252346512460    
       16422  662162604546    
       16423  636063302560    
       16424  432162636051    
       16425  252346512460    
       16426  462660216062    
       16427  632163254425    
       16430  456360633025           BCD  NT THEFOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C 4F1D6740    
       16431  264643434666    
       16432  314527602431    
       16433  212745466263    
       16434  312360234644    
       16435  442545636031    
       16436  626044252145    
       16437  314527432562    
       16440  626021452460    
       16441  662162602360    
       16442  646225246022           BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT.          4F1D6750    
       16443  706021456021    
       16444  636325444763    
       16445  606346604751    
       16446  462325626260    
       16447  216047215163    
       16450  312143606263    
       16451  216325442545    
       16452  633360606060    
       16453  606060606060    
                                                                                                      4F1D6760    
       16454  676767676767           BCD  XXXXXX006042      ILLEGAL USE OF FLOATING POINT VARIABLE.   4F1D6770    
       16455  000006000402    
       16456  606060606060    
       16457  314343252721    
       16460  436064622560    
       16461  462660264346    
       16462  216331452760    
       16463  474631456360    
       16464  652151312122    
       16465  432533606060    
                                                                                                      4F1D6780    
                                         STATE  B                                                     4F1D6790    
                                                                                                      4F1D6800    
       16466  676767676767           BCD 8XXXXXX003527      TOO MANY CHARACTERS IN SYMBOL,            4F1D6810    
       16467  000003050207    
       16470  606060606060    
       16471  634646604421    
       16472  457060233021    
       16473  512123632551    
       16474  626031456062    
       16475  704422464373    
                                                                                                      4F1D6820    
       16476  676767676767           BCD 8XXXXXX003602      ILLEGAL USE OF  .  CHARACTER.             4F1D6830    
       16477  000003060002    
       16500  606060606060    
       16501  314343252721    
       16502  436064622560    
       16503  462660603360    
       16504  602330215121    
       16505  236325513360    
                                                                                                      4F1D6840    
       16506  676767676767           BCD 7XXXXXX003613      ARGREG SIZE EXCEEDED.                     4F1D6850    
       16507  000003060103    
       16510  606060606060    
       16511  215127512527    
       16512  606231712560    
       16513  256723252524    
       16514  252433606060    
                                                                                                      4F1D6860    
       16515  676767676767           BCD  XXXXXX003615      ILLEGAL USE OF HOLLERITH SPECIFICATION.   4F1D6870    
       16516  000003060105    
       16517  606060606060    
       16520  314343252721    
       16521  436064622560    
       16522  462660304643    
       16523  432551316330    
       16524  606247252331    
       16525  263123216331    
       16526  464533606060    
                                                                                                      4F1D6880    
       16527  676767676767           BCD 8XXXXXX003654      NON-ZERO LEVEL REDUCTION.                 4F1D6890    
       16530  000003060504    
       16531  606060606060    
       16532  454645407125    
       16533  514660432565    
       16534  254360512524    
       16535  642363314645    
       16536  336060606060    
                                                                                                      4F1D6900    
       16537  676767676767           BCD 8XXXXXX003671      ILLEGAL USE OF  =  SIGN.                  4F1D6910    
       16540  000003060701    
       16541  606060606060    
       16542  314343252721    
       16543  436064622560    
       16544  462660601360    
       16545  606231274533    
       16546  606060606060    
                                                                                                      4F1D6920    
       16547  676767676767           BCD 8XXXXXX003724      ILLEGAL USE OF  .  SIGN,                  4F1D6930    
       16550  000003070204    
       16551  606060606060    
       16552  314343252721    
       16553  436064622560    
       16554  462660603360    
       16555  606231274573    
       16556  606060606060    
                                                                                                      4F1D6940    
       16557  676767676767           BCD  XXXXXX004046      THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950    
       16560  000004000406    
       16561  606060606060    
       16562  633025604564    
       16563  442551312360    
       16564  234645635146    
       16565  436046266021    
       16566  603046434325    
       16567  513163306063    
       16570  256763603162    
       16571  432151272551           BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H.       4F1D6960    
       16572  606330214560    
       16573  633025604564    
       16574  442225516046    
       16575  266023302151    
       16576  212363255162    
       16577  602646434346    
       16600  663145276063    
       16601  302560303360    
                                                                                                      4F1D6970    
       16602  676767676767           BCD 8XXXXXX004136      LAMBDA TABLE SIZE EXCEEDED,               4F1D6980    
       16603  000004010306    
       16604  606060606060    
       16605  432144222421    
       16606  606321224325    
       16607  606231712560    
       16610  256723252524    
       16611  252473606060    
                                                                                                      4F1D6990    
       16612  676767676767           BCD 6XXXXXX004140      BETA TABLE SIZE EXCEEDED.                 4F1D7000    
       16613  000004010400    
       16614  606060606060    
       16615  222563216063    
       16616  212243256062    
       16617  317125602567    
                                                                                                      4F1D7010    
       16620  676767676767           BCD 8XXXXXXG04143      ALPHA TABLE SIZE EXCEEDED,                4F1D7020    
       16621  270004010403    
       16622  606060606060    
       16623  214347302160    
       16624  632122432560    
       16625  623171256025    
       16626  672325252425    
       16627  247360606060    
                                                                                                      4F1D7030    
       16630  676767676767           BCD  XXXXXX0C4647      FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040    
       16631  002304060407    
       16632  606060606060    
       16633  264346216331    
       16634  452760474631    
       16635  456360234645    
       16636  626321456360    
       16637  466463623124    
       16640  256051214527    
       16641  256046266044    
       16642  212330314525           BCD 2ACHINE.                                                     4F1D7050    
       16643  336060606060    
                                                                                                      4F1D7060    
                                         STATE C                                                      4F1D7070    
                                                                                                      4F1D7080    
       16644  676767676767           BCD  XXXXXX004347      CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090    
       16645  000004030407    
       16646  606060606060    
       16647  233025234260    
       16650  626444602551    
       16651  514651603145    
       16652  605125212431    
       16653  452760263167    
       16654  252460474631    
       16655  456360234645    
       16656  626321456360           BCD 3STANT FROM DRUM 2.                                          4F1D7100    
       16657  265146446024    
       16660  516444600233    
                                                                                                      4F1D7110    
                                         STATE D                                                      4F1D7120    
                                                                                                      4F1D7130    
       16661  676767676767           BCD 6XXXXXX003501      MIXED  EXPRESSION.                        4F1D7140    
       16662  000003050001    
       16663  606060606060    
       16664  443167252460    
       16665  602567475125    
       16666  626231464533    
                                                                                                      4F1D7150    
       16667  676767676767           BCD 6XXXXXX003503      MIXED  EXPRESSION                         4F1D7160    
       16670  000003050003    
       16671  606060606060    
       16672  443167252460    
       16673  602567475125    
       16674  626231464560    
                                                                                                      4F1D7170    
       16675  676767676767           BCD  XXXXXXOO5233      CHECK SUM ERROR IN READING SIGMA TABLE ENT            
       16676  464605020303    
       16677  606060606060    
       16700  233025234260    
       16701  626444602551    
       16702  514651603145    
       16703  605125212431    
       16704  452760623127    
       16705  442160632122    
       16706  432560254563    
       16707  517060265146           BCD 3RY FROM DRUM 2.                                                         
       16710  446024516444    
       16711  600233606060    
                                                                                                                  
                                         LOCATIONS OF STAE B,C,D CALLS IN 8K SECTION ONE.                         
                                                                                                                  
       16712  676767676767           BCD 8XXXXXX006412      TOO MANY CHARACTERS IN SYMBOL.                        
       16713  000006040102    
       16714  606060606060    
       16715  634646604421    
       16716  457060233021    
       16717  512123632551    
       16720  626031456062    
       16721  704422464333    
                                                                                                                  
       16722  676767676767           BCD 8XXXXXXOO6465      ILLEGAL USE OF   .   CHARACTER,                       
       16723  464606040605    
       16724  606060606060    
       16725  314343252721    
       16726  436064622560    
       16727  462660606033    
       16730  606060233021    
       16731  512123632551    
                                                                                                                  
       16732  676767676767           BCD 7XXXXXX006476      ARGREG SIZE EXCEEDED.                                 
       16733  000006040706    
       16734  606060606060    
       16735  215127512527    
       16736  606231712560    
       16737  256723252524    
       16740  252433606060    
                                                                                                                  
       16741  676767676767           BCD  XXXXXX006500      ILLEGAL USE OF HOLLERITH SPECIFICATION.               
       16742  000006050000    
       16743  606060606060    
       16744  314343252721    
       16745  436064622560    
       16746  462660304643    
       16747  432551316330    
       16750  606247252331    
       16751  263123216331    
       16752  464533606060    
                                                                                                                  
       16753  676767676767           BCD 8XXXXXX006537      NON-ZERO LEVEL REDUCTION.                             
       16754  000006050307    
       16755  606060606060    
       16756  454645407125    
       16757  514660432565    
       16760  254360512524    
       16761  642363314645    
       16762  336060606060    
                                                                                                                  
       16763  676767676767           BCD 8XXXXXX006554      ILLEGAL USE OF  =  SIGN.                              
       16764  000006050504    
       16765  606060606060    
       16766  314343252721    
       16767  436064622560    
       16770  462660601360    
       16771  606231274533    
       16772  606060606060    
                                                                                                                  
       16773  676767676767           BCD 8XXXXXX006554      ILLEGAL USE OF  .  SIGN,                              
       16774  000006050504    
       16775  606060606060    
       16776  314343252721    
       16777  436064622560    
       17000  462660603360    
       17001  606231274573    
       17002  606060606060    
                                                                                                                  
       17003  676767676767           BCD  XXXXXX006731      THE NUMERIC CONTROL OF A HOLLERITH TEXT  IS           
       17004  000006070301    
       17005  606060606060    
       17006  633025604564    
       17007  442551312360    
       17010  234645635146    
       17011  436046266021    
       17012  603046434325    
       17013  513163306063    
       17014  256763606031    
                                                                                                                  
       17015  432151272551           BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H.                   
       17016  606330214560    
       17017  633025604564    
       17020  442225516046    
       17021  266023302151    
       17022  212363255162    
       17023  602646434346    
       17024  663145276063    
       17025  302560303360    
                                                                                                                  
       17026  676767676767           BCD 8XXXXXX007021      LAMBDA TABLE SIZE EXCEEDED.                           
       17027  000007000201    
       17030  606060606060    
       17031  432144222421    
       17032  606321224325    
       17033  606231712560    
       17034  256723252524    
       17035  252433606060    
                                                                                                                  
       17036  676767676767           BCD 6XXXXXX007023      BETA TABLE SIZE EXCEEDED.                             
       17037  000007000203    
       17040  606060606060    
       17041  222563216063    
       17042  212243256062    
       17043  317125602567    
                                                                                                                  
       17044  676767676767           BCD 8XXXXXX007026      ALPHA TABLE SIZE EXCEEDED.                            
       17045  000007000206    
       17046  606060606060    
       17047  214347302160    
       17050  632122432560    
       17051  623171256025    
       17052  672325252425    
       17053  243360606060    
                                                                                                                  
       17054  676767676767           BCD  XXXXXX007532      FLOATING POINT CONSTANT OUTSIDE RANGE OF M            
       17055  000007050302    
       17056  606060606060    
       17057  264346216331    
       17060  452760474631    
       17061  456360234645    
       17062  626321456360    
       17063  466463623124    
       17064  256051214527    
       17065  256046266044    
                                                                                                                  
       17066  212330314525           BCD 2ACHINE.                                                                 
       17067  336060606060    
                                                                                                                  
       17070  676767676767           BCD  XXXXXX010534      CHECK SUM ERROR TN READING FIXED POINT CON            
       17071  000100050304    
       17072  606060606060    
       17073  233025234260    
       17074  626444602551    
       17075  514651606345    
       17076  605125212431    
       17077  452760263167    
       17100  252460474631    
       17101  456360234645    
       17102  626321456360           BCD 3STANT FROM DRUM 2.                                                      
       17103  265146446024    
       17104  516444600233    
                                                                                                                  
       17105  676767676767           BCD 6XXXXXX011216      MIXED EXPRESSION.                                     
       17106  000101020106    
       17107  606060606060    
       17110  443167252460    
       17111  256747512562    
       17112  623146453360    
                                                                                                                  
       17113  676767676767           BCD 6XXXXXX011220      MIXED EXPRESSION                                      
       17114  000101020200    
       17115  606060606060    
       17116  443167252460    
       17117  256747512562    
       17120  623146456060    
                                                                                                                  
       17121  676767676767           BCD  XXXXXX012750      CHECK SUM ERROR IN READING SIGMA TABLE ENT            
       17122  000102070500    
       17123  606060606060    
       17124  233025234260    
       17125  626444602551    
       17126  514651603145    
       17127  605125212431    
       17130  452760623127    
       17131  442160632122    
       17132  432560254563    
       17133  517060265146           BCD 3RY FROM DRUM 2.                                                         
       17134  446024516444    
       17135  600233606060    
                                                                                                                  
                                                                                                      4F1D7200    
                                                                                                      4F1D7210    
                                         1NITALIZATION RECORD F015.                                   4F1D7220    
                                                                                                      4F1D7230    
       17136  676767676767           BCD  XXXXXX000553      FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240    
       17137  000000050503    
       17140  606060606060    
       17141  263165256023    
       17142  464562252364    
       17143  633165256026    
       17144  213143645125    
       17145  626031456021    
       17146  636325444763    
       17147  314527606300    
       17150  606651316325           BCD 7 WRITESTATE A OF SECTION ONE ON DRUM 1.                     4F1D7250    
       17151  626321632560    
       17152  216046266062    
       17153  252363314645    
       17154  604645256046    
       17155  456024516444    
       17156  600133606060    
                                                                                                      4F1D7260    
       17157  676767676767           BCD  XXXXXX000560      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7270    
       17160  000000050600    
       17161  606060606060    
       17162  263165256023    
       17163  464562252364    
       17164  633165256026    
       17165  213143645125    
       17166  626031456021    
       17167  636325444763    
       17170  314527606346    
       17171  606651316325           BCD 7 WRITESTATE D OF SECTION ONE ON DRUM 2.                     4F1D7280    
       17172  626321632560    
       17173  246046266062    
       17174  252363314645    
       17175  604645256046    
       17176  456024516444    
       17177  600233606060    
                                                                                                      4F1D7290    
       17200  676767676767           BCD  XXXXXX000563      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7300    
       17201  000000050603    
       17202  606060606060    
       17203  263165256023    
       17204  464562252364    
       17205  633165256026    
       17206  213143645125    
       17207  626031456021    
       17210  636325444763    
       17211  314527606346    
       17212  606651316325           BCD 7 WRITESTATE B OF SECTION ONE ON DRUM 3,                     4F1D7310    
       17213  626321632560    
       17214  226046266062    
       17215  252363314645    
       17216  604645256046    
       17217  456024516444    
       17220  600373606060    
                                                                                                      4F1D7320    
       17221  676767676767           BCD  XXXXXX000566      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330    
       17222  000000050606    
       17223  606060606060    
       17224  263165256023    
       17225  464562252364    
       17226  633165256026    
       17227  213143645125    
       17230  626031456021    
       17231  636325444763    
       17232  314527606346    
       17233  606651316325           BCD 7 WRITESTATE C OF SECTION ONE ON DRUM 4,                     4F1D7340    
       17234  626321632560    
       17235  236046266062    
       17236  252363314645    
       17237  604645256046    
       17240  456024516444    
       17241  600473606060    
                                                                                                      4F1D7350    
       17242  676767676767           BCD 2XXXXXXXXXXXX                                                4F1D7360    
       17243  676767676767    
 A                      00000        END                                                              4F1D7370    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     780           0           0           0           0
 LIB       0           0           0           0           0
 COL     780           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     2018                  
0NUMBER OF SYMBOLS,  DEF   167,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000,  F1P00010    
1                                        704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000,  F1P00010    
                                         ----------FILE: 185.PNG-----------------------------BEFORE LINE ABOVE    
                        00000        ORG 0                                                            F1P00020    
       00000  0 01146 0 01146        PZE ORG1PA,,ORG1PA                                               F1P00030    
       00001  0 00000 0 03161        PZE END1PA-1                                                     F1P00040    
                                                                                                      F1P00050    
                                         THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME               F1P00060    
                                                                                                      F1P00070    
                        01146 ORG1PA ORG 614                                                          F1P00080    
       01146  0 76100 0 00000        NOP                           TO PERMIT STOP FOR TESTING RUNS,   F1P00090    
       01147  0 77000 0 00204 PARTA  WEF 4                                                            F1P00100    
                                                 TABLE SAVING PROGRAM                                 F1P00110    
                                         WRITE FIXCON WORD COUNT ON DRUM                              F1P00120    
       01150  0 76600 0 00302        WRS 194                                                          F1P00130    
       01151  0 50000 0 00414        CLA FXCNIX-3                                                     F1P00140    
       01152  0 77100 0 00021        ARS 17                                                           F1P00150    
       01153  0 60100 0 02107        STO WORKCL                                                       F1P00160    
       01154  0 70000 0 02107        CPY WORKCL                                                       F1P00170    
       01155  0 70000 0 02107        CPY WORKCL                                                       F1P00180    
                                         PROGRAM FOR SAVING COMPAIL TABLE                             F1P00190    
       01156 -0 53400 2 00637        LXD BBOX,2                                                       F1P00200    
       01157  3 00000 2 01161        TXH A1PTS,2,0                                                    F1P00210    
       01160  0 07400 4 00004        TSX DIAG,4                    STOP FOR NO INSTRUCTIONS COMPILED  F1P00220    
       01161  0 76600 0 00223 A1PTS  WRS 147                                                          F1P00230    
       01162  0 53400 1 07730        LXA L(0),1                    SAVE                               F1P00240    
       01163  0 70000 1 00640 AA3PTS CPY CIB,1                     CIT                                F1P00250    
       01164  1 77777 1 01165        TXI AA1PTS,1,-1               BUFFER                             F1P00260    
       01165  1 00001 2 01166 AA1PTS TXI AA2PTS,2,1                                                   F1P00270    
       01166  3 00000 2 01163 AA2PTS TXH AA3PTS,2,0                                                   F1P00280    
       01167  0 77000 0 00223        WEF 147                                                          F1P00290    
       01170  0 77200 0 00223        REW 147                                                          F1P00300    
       01171 -0 76000 0 00012 A5PTS  RTT                           TURN OFF TAPE CHECK                F1P00310    
       01172  0 76100 0 00000        NOP                           INDICATOR AND LIGHTS               F1P00320    
       01173  0 53400 1 07734        LXA L(4),1                                                       F1P00330    
       01174  0 53400 4 07730        LXA L(0),4                                                       F1P00340    
       01175  0 76200 0 00223 A14PTS RDS 147                                                          F1P00350    
       01176  0 70000 4 03163 A6PTS  CPY COMP,4                    COPY A RECORD OF COMPILED          F1P00360    
       01177  1 77777 4 01176        TXI A6PTS,4,-1                INSTRUCTIONS INTO STORAGE          F1P00370    
       01200  0 02000 0 01222        TRA A10PTS                    EOF                                F1P00380    
       01201  0 76600 0 00333        WRS 219                       EOR                                F1P00390    
       01202 -0 76000 0 00012        RTT                                                              F1P00400    
       01203  0 02000 0 01217        TRA A11PTS                    TAPE CHECK ON                      F1P00410    
       01204  0 76600 0 00222        WRS 146                                                          F1P00420    
       01205  0 50000 0 02245        CLA CMPREC                    COUNT EACH                         F1P00430    
       01206  0 40000 0 07731        ADD L(1)                      COMPAIL                            F1P00440    
       01207  0 60100 0 02245        STO CMPREC                    RECORD                             F1P00450    
       01210  0 53400 1 07732        LXA L(2),1                                                       F1P00460    
       01211  0 53400 2 07730        LXA L(0),2                    TRANSFER  RECORD                   F1P00470    
       01212  0 70000 2 03163 A9PTS  CPY COMP,2                    FROM STORAGE                       F1P00480    
       01213  1 77777 2 01214        TXI A7PTS,2,-1                TO TAPE 2                          F1P00490    
       01214  1 00001 4 01215 A7PTS  TXI A8PTS,4,1                                                    F1P00500    
       01215  3 00000 4 01212 A8PTS  TXH A9PTS,4,0                                                    F1P00510    
       01216  0 02000 0 01175        TRA A14PTS                                                       F1P00520    
       01217  0 76401 0 00223 A11PTS BST 147,0,1                   PREPARE TO READ RECORD AGAIN       F1P00530    
       01220  2 00001 1 01174        TIX A14PTS-1,1,1              TEST FOR 2 TAPE CHECKS,            F1P00540    
       01221  0 07400 4 00004        TSX DIAG,4         STOP FOR 5TH READ CHECK                       F1P00550    
       01222  0 77000 0 00222 A10PTS WEF 146                       END OF COMPAIL ON TAPE 2           F1P00560    
       01223  0 76600 0 00222        WRS 146                                                          F1P00570    
       01224  0 70000 0 02245        CPY CMPREC                                                       F1P00580    
                                         PROGRAM  TO SAVE FORSUB TABLE                                F1P00590    
       01225 -0 53400 1 00470        LXD BK,1                                                         F1P00600    
       01226 -3 00000 1 01234        TXL WEF,1,0                   TEST FOR EMPTY TABLE               F1P00610    
       01227  0 53400 2 07730        LXA L(0),2                                                       F1P00620    
       01230  0 70000 2 00471        CPY FORSUB,2                                                     F1P00630    
       01231  1 77777 2 01232        TXI A15PTS,2,-1                                                  F1P00640    
       01232  1 00001 1 01233 A15PTS TXI A15PTS+1,1,1                                                 F1P00650    
       01233  3 00000 1 01230        TXH A15PTS-2,1,0                                                 F1P00660    
       01234  0 77000 0 00222 WEF    WEF 146                                                          F1P00670    
                                         PROGRAM FOR SAVING FLOCON TABLE                              F1P00680    
       01235 -0 53400 4 00421 FL00   LXD FLCNIX-3,4      (N)                                          F1P00690    
       01236 -0 75400 4 00000        PXD 0,4                                                          F1P00700    
       01237  0 77100 0 00022        ARS 18                                                           F1P00710    
       01240  0 60100 0 02244        STO FLSIZE    LOAD FLSIZE WITH N                                 F1P00720    
       01241 -3 00000 4 01276        TXL FL09,4,0      IS TABLE EMPTY                                 F1P00730    
       01242 -0 50000 0 07742        CAL MSK                                                          F1P00740    
       01243  0 32000 0 00422        ANS FLCNIX-2                                                     F1P00750    
       01244  0 32000 0 00421        ANS FLCNIX-3                                                     F1P00760    
       01245  0 50000 0 00421        CLA FLCNIX-3     GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770    
       01246  0 40200 0 00422        SUB FLCNIX-2                                                     F1P00780    
       01247  0 62100 0 01256        STA FL04       SAVE L                                            F1P00790    
       01250  0 53400 2 07735 FL01   LXA L(5),2            SET TO TRY FIVE TIMES IF CK SUM FAILS      F1P00800    
       01251  0 53400 4 01256 FL02   LXA FL04,4    (L)                                                F1P00810    
       01252  0 76200 0 00302        RDR 2                                                            F1P00820    
       01253  0 46000 0 00422        LDA FLCNIX-2                                                     F1P00830    
       01254  0 70000 4 05453 FL03   CPY OTA+450,4       COPY FLOCON FROM DRUM                        F1P00840    
       01255  2 00001 4 01254        TIX FL03,4,1                                                     F1P00850    
       01256 -0 75400 0 00000 FL04   PXD **,0                                                         F1P00860    
       01257  0 53400 4 01256        LXA FL04,4      COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK    F1P00870    
       01260  0 53400 1 07737        LXA L(50),1     SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS  F1P00880    
       01261  0 36100 4 05453 FL05   ACL OTA+450,4   FOLLOWED BY THE FIFTY WORDS                      F1P00890    
       01262  0 76000 0 00006        COM                                                              F1P00900    
       01263 -2 00001 4 01307        TNX ERROR,4,1                                                    F1P00910    
       01264  0 36100 4 05453 FL06   ACL OTA+450,4                                                    F1P00920    
       01265 -2 00001 4 01271        TNX FL07,4,1      FINAL ENRTY , GET OUT OF CK SUM LOOP           F1P00930    
       01266  2 00001 1 01264        TIX FL06,1,1                                                     F1P00940    
       01267  0 76000 0 00006        COM                                                              F1P00950    
       01270  1 00061 1 01261        TXI FL05,1,49                                                    F1P00960    
       01271  0 76000 0 00006 FL07   COM                                                              F1P00970    
       01272  0 10000 0 01275        TZE FL08   TEST CK SUM                                           F1P00980    
       01273  2 00001 2 01251        TIX FL02,2,1   CK SUM FAILED, TRY AGAIN                          F1P00990    
       01274  0 07400 4 00004        TSX DIAG,4            CK SUM FAILED FIVE TIMES                   F1P01000    
       01275  0 53400 4 01256 FL08   LXA FL04,4   (L)                                                 F1P01010    
       01276  0 76600 0 00222 FL09   WTB 2                                                            F1P01020    
       01277  0 70000 0 02244        CPY FLSIZE                                                       F1P01030    
       01300 -3 00000 4 01310        TXL PROFOR,4,0      IS FLOCON EMPTY                              F1P01040    
       01301  0 53400 1 07737        LXA L(50),1                                                      F1P01050    
       01302 -2 00001 4 01307 FL10   TNX ERROR,4,1                                                    F1P01060    
       01303  0 70000 4 05453 FL11   CPY OTA+450,4                                                    F1P01070    
       01304 -2 00001 4 01310        TNX PROFOR,4,1   FINISHED, GET OUT OF LOOP                       F1P01080    
       01305  2 00001 1 01303        TIX FL11,1,1                                                     F1P01090    
       01306  1 00061 1 01302        TXI FL10,1,49                                                    F1P01100    
       01307  0 07400 4 00004 ERROR  TSX DIAG,4                  INDEX RAN OUT AT CK SUM              F1P01110    
                                         ROUTINE TO PROCESS FORMAT TABLE                              F1P01120    
       01310  0 07400 1 07505 PROFOR TSX TAP00,1                                                      F1P01130    
       01311  0 00000 0 00012        HTR 10                                                           F1P01140    
       01312  0 00000 0 04551            OTA                                                          F1P01150    
       01313  0 07400 1 07656        TSX WAT00,1                                                      F1P01160    
       01314  0 00000 0 00012        HTR 10                                                           F1P01170    
       01315  0 00000 0 04551            OTA                                                          F1P01180    
                                         ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE.                  F1P01190    
       01316 -0 53400 4 00452 ADD00  LXD DIM1IX-3,4           ENTRY COUNT                             F1P01200    
       01317 -3 00000 4 01346        TXL ADD07,4,0         TABLE EMPTY                                F1P01210    
       01320  0 53400 2 07735 ADD01  LXA L(5),2                                                       F1P01220    
       01321  0 76200 0 00303 ADD02  RDR 3                                                            F1P01230    
       01322  0 53400 1 07730        LXA L(0),1                                                       F1P01240    
       01323  0 46000 0 00453        LDA ORGDM1                                                       F1P01250    
       01324 -0 75400 0 00000        PXD 0,0                                                          F1P01260    
       01325  0 70000 1 04551 ADD03  CPY OTA,1             COPY NAME                                  F1P01270    
       01326  0 70000 1 04552        CPY OTA+1,1           COPY N1                                    F1P01280    
       01327  1 77776 1 01330        TXI ADD04,1,-2                                                   F1P01290    
       01330 -0 70000 0 02106 ADD04  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01300    
       01331  2 00001 4 01325        TIX ADD03,4,1                                                    F1P01310    
       01332  0 76000 0 00006        COM                                                              F1P01320    
       01333 -0 53400 4 00452        LXD DIM1IX-3,4                                                   F1P01330    
       01334  0 53400 1 07730        LXA L(0),1                                                       F1P01340    
       01335  0 36100 1 04551 ADD05  ACL OTA,1             SUM ENTRIES                                F1P01350    
       01336  0 36100 1 04552        ACL OTA+1,1                                                      F1P01360    
       01337  1 77776 1 01340        TXI ADD06,1,-2                                                   F1P01370    
       01340  2 00001 4 01335 ADD06  TIX ADD05,4,1                                                    F1P01380    
       01341  0 76000 0 00006        COM                                                              F1P01390    
       01342  0 10000 0 01347        TZE ADD08                                                        F1P01400    
       01343 -0 53400 4 00452        LXD DIM1IX-3,4        CHECK SUM ERROR,  TRY AGAIN                F1P01410    
       01344  2 00001 2 01321        TIX ADD02,2,1                                                    F1P01420    
       01345  0 07400 4 00004        TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P01430    
       01346  0 53400 1 07730 ADD07  LXA L(0),1                                                       F1P01440    
       01347 -0 63400 1 02110 ADD08  SXD NEWBAS,1                                                     F1P01450    
                                         NOW READ DIM2 TABLE                                          F1P01460    
       01350 -0 53400 4 00457        LXD DIM2IX-3,4                                                   F1P01470    
       01351 -3 00000 4 01413        TXL ADD18,4,0         TABLE EMPTY                                F1P01480    
       01352  0 53400 2 07735 ADD09  LXA L(5),2                                                       F1P01490    
       01353  0 76200 0 00303 ADD10  RDR 3                                                            F1P01500    
       01354 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01510    
       01355  0 46000 0 00460        LDA ORGDM2                                                       F1P01520    
       01356 -0 75400 0 00000        PXD 0,0                                                          F1P01530    
       01357  0 70000 1 04551 ADD11  CPY OTA,1             COPY NAME                                  F1P01540    
       01360  0 70000 1 04552        CPY OTA+1,1           COPY N1 N2                                 F1P01550    
       01361  1 77776 1 01362        TXI ADD12,1,-2                                                   F1P01560    
       01362 -0 70000 0 02106 ADD12  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01570    
       01363  2 00001 4 01357        TIX ADD11,4,1                                                    F1P01580    
       01364  0 76000 0 00006        COM                                                              F1P01590    
       01365 -0 53400 4 00457        LXD DIM2IX-3,4                                                   F1P01600    
       01366 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01610    
       01367  0 36100 1 04551 ADD13  ACL OTA,1                                                        F1P01620    
       01370  0 36100 1 04552        ACL OTA+1,1                                                      F1P01630    
       01371  1 77776 1 01372        TXI ADD14,1,-2                                                   F1P01640    
       01372  2 00001 4 01367 ADD14  TIX ADD13,4,1                                                    F1P01650    
       01373  0 76000 0 00006        COM                                                              F1P01660    
       01374  0 10000 0 01400        TZE ADD15                                                        F1P01670    
       01375 -0 53400 4 00457        LXD DIM2IX-3,4        CK SUM ERROR TRY AGAIN                     F1P01680    
       01376  2 00001 2 01353        TIX ADD10,2,1                                                    F1P01690    
       01377  0 07400 4 00004        TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P01700    
       01400 -0 53400 4 00457 ADD15  LXD DIM2IX-3,4                                                   F1P01710    
       01401 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01720    
       01402  0 60000 0 02107        STZ WORKCL                                                       F1P01730    
       01403  0 50000 1 04552 ADD16  CLA OTA+1,1                                                      F1P01740    
       01404  0 62100 0 02107        STA WORKCL                                                       F1P01750    
       01405  0 76500 0 00065        LRS 53                                                           F1P01760    
       01406  0 20000 0 02107        MPY WORKCL    N1*N2                                              F1P01770    
       01407 -0 60000 1 04552        STQ OTA+1,1                                                      F1P01780    
       01410  1 77776 1 01411        TXI ADD17,1,-2                                                   F1P01790    
       01411  2 00001 4 01403 ADD17  TIX ADD16,4,1                                                    F1P01600    
       01412 -0 63400 1 02110        SXD NEWBAS,1    UPDATE NEWBAS FOR DIM3 ROUTINE                   F1P01810    
                                         NOW READ DIM3 TABLE.                                         F1P01820    
       01413 -0 53400 4 00464 ADD18  LXD DIM3IX-3,4                                                   F1P01830    
       01414 -3 00000 4 01462        TXL ADD28,4,0         DIM3 TABLE EMPTY                           F1P01840    
       01415  0 53400 2 07735 ADD19  LXA L(5),2                                                       F1P01850    
       01416  0 76200 0 00303 ADD20  RDR 3                                                            F1P01860    
       01417 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01870    
       01420  0 46000 0 00465        LDA ORGDM3                                                       F1P01680    
       01421 -0 75400 0 00000        PXD 0,0                                                          F1P01890    
       01422  0 70000 1 04551 ADD21  CPY OTA,1                                                        F1P01900    
       01423  0 70000 1 04552        CPY OTA+1,1                                                      F1P01910    
       01424  0 70000 4 02243        CPY BUFFER,4                                                     F1P01920    
       01425  1 77776 1 01426        TXI ADD22,1,-2                                                   F1P01930    
       01426 -0 70000 0 02106 ADD22  CAD GARBGE                                                       F1P01940    
       01427  2 00001 4 01422        TIX ADD21,4,1                                                    F1P01950    
       01430  0 76000 0 00006        COM                                                              F1P01960    
       01431 -0 53400 4 00464        LXD DIM3IX-3,4                                                   F1P01970    
       01432 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01980    
       01433  0 36100 1 04551 ADD23  ACL OTA,1                                                        F1P01990    
       01434  0 36100 1 04552        ACL OTA+1,1                                                      F1P02000    
       01435  0 36100 4 02243        ACL BUFFER,4                                                     F1P02010    
       01436  1 77776 1 01437        TXI ADD24,1,-2                                                   F1P02020    
       01437  2 00001 4 01433 ADD24  TIX ADD23,4,1                                                    F1P02030    
       01440  0 76000 0 00006        COM                                                              F1P02040    
       01441  0 10000 0 01445        TZE ADD25                                                        F1P02050    
       01442 -0 53400 4 00464        LXD DIM3IX-3,4                                                   F1P02060    
       01443  2 00001 2 01416        TIX ADD20,2,1   CK SUM FAILED TRY AGAIN                          F1P02070    
       01444  0 07400 4 00004        TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P02080    
       01445 -0 53400 4 00464 ADD25  LXD DIM3IX-3,4                                                   F1P02090    
       01446 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P02100    
       01447  0 50000 1 04552 ADD26  CLA OTA+1,1                                                      F1P02110    
       01450  0 60000 0 02107        STZ WORKCL                                                       F1P02120    
       01451  0 62100 0 02107        STA WORKCL                                                       F1P02130    
       01452  0 76500 0 00065        LRS 53                                                           F1P02140    
       01453  0 20000 0 02107        MPY WORKCL      N1*N2                                            F1P02150    
       01454  0 20000 4 02243        MPY BUFFER,4          N3*(N1*N2)                                 F1P02160    
       01455 -0 60000 1 04552        STQ OTA+1,1                                                      F1P02170    
       01456  1 77776 1 01457        TXI ADD27,1,-2                                                   F1P02160    
       01457  2 00001 4 01447 ADD27  TIX ADD26,4,1                                                    F1P02190    
       01460  0 76100 0 00000        NOP                   NOT USED.                                  F1P02200    
       01461  0 76100 0 00000        NOP                   NOT USED.                                  F1P02210    
                                         NOW WRITE SIZ TABLE ON TAPE 2.                               F1P02220    
       01462 -0 75400 1 00000 ADD28  PXD 0,1                                                          F1P02230    
       01463  0 76000 0 00006        COM                                                              F1P02240    
       01464  0 40000 0 07740        ADD DECR1                                                        F1P02250    
       01465 -0 73400 4 00000        PDX 0,4                                                          F1P02260    
       01466 -0 75400 4 00000        PXD 0,4                                                          F1P02270    
       01467  0 77100 0 00022        ARS 18                                                           F1P02280    
       01470  0 60100 0 02107        STO WORKCL                                                       F1P02290    
       01471  0 40000 0 07731        ADD L(1)                                                         F1P02300    
       01472  0 73400 1 00000        PAX 0,1                                                          F1P02310    
       01473  0 53400 2 07730        LXA L(0),2                                                       F1P02320    
       01474 -0 75400 0 00000        PXD 0,0                                                          F1P02330    
       01475  0 36100 2 04551 ADD33  ACL OTA,2             COMPUTE CK SUM FOR SIZ TABLE               F1P02340    
       01476  1 77777 2 01477        TXI ADD32,2,-1                                                   F1P02350    
       01477  2 00001 4 01475 ADD32  TIX ADD33,4,1                                                    F1P02360    
       01500  0 60200 2 04551        SLW OTA,2                                                        F1P02370    
       01501  0 50000 0 02101        CLA DMASK                                                        F1P02380    
       01502  0 32000 0 00030        ANS EIFNO                                                        F1P02390    
       01503  0 76600 0 00222        WTB 2                                                            F1P02400    
       01504  0 70000 0 00030        CPY EIFNO                                                        F1P02410    
       01505  0 70000 0 02107        CPY WORKCL                                                       F1P02420    
       01506 -3 00001 1 01513        TXL ADD31,1,1                                                    F1P02430    
       01507  0 53400 2 07730        LXA L(0),2                                                       F1P02440    
       01510  0 70000 2 04551 ADD29  CPY OTA,2                                                        F1P02450    
       01511  1 77777 2 01512        TXI ADD30,2,-1                                                   F1P02460    
       01512  2 00001 1 01510 ADD30  TIX ADD29,1,1                                                    F1P02470    
       01513  0 77000 0 00202 ADD31  WEF 2                                                            F1P02480    
       01514  0 76600 0 00222        WTB 2                         WRITE SENSE SWITCH SETTINGS AS RE- F1P02490    
       01515  0 53400 1 07735        LXA L(5),1                    CORD ONE, FILE FIVE, TAPE TWO      F1P02500    
       01516  0 70000 1 00036 X0010  CPY ENDI1+5,1                                                    F1P02510    
       01517  2 00001 1 01516        TIX X0010,1,1                                                    F1P02520    
       01520  0 07400 1 07505        TSX TAP00,1           ASSEMBLE AND WRITE SUBDEF TABLE            F1P02530    
       01521  0 00000 0 00013            11                                                           F1P02540    
       01522  0 00000 0 04551            OTA                                                          F1P02550    
       01523  0 07400 1 07656        TSX WAT00,1                                                      F1P02560    
       01524  0 00000 0 00013            11                                                           F1P02570    
       01525  0 00000 0 04551            OTA                                                          F1P02580    
       01526  0 07400 1 07505        TSX TAP00,1           ASSEMBLE AND WRITE COMMON TABLE            F1P02590    
       01527  0 00000 0 00014            12                                                           F1P02600    
       01530  0 00000 0 04551            OTA                                                          F1P02610    
       01531  0 07400 1 07656        TSX WAT00,1                                                      F1P02620    
       01532  0 00000 0 00014            12                                                           F1P02630    
       01533  0 00000 0 04551            OTA                                                          F1P02640    
       01534  0 07400 1 07505        TSX TAP00,1           ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS F1P02650    
       01535  0 00000 0 00015            13                                                           F1P02660    
       01536  0 00000 0 04551            OTA                                                          F1P02670    
       01537  0 07400 1 07656        TSX WAT00,1                                                      F1P02680    
       01540  0 00000 0 00015            13                                                           F1P02690    
       01541  0 00000 0 04551            OTA                                                          F1P02700    
       01542  0 07400 1 07505        TSX TAP00,1           ASSEMBLE TEIFNO FROM TAPE 4                F1P02710    
       01543  0 00000 0 00000        HTR 0                                                            F1P02720    
       01544  0 00000 0 04551        HTR OTA                                                          F1P02730    
       01545  0 60000 0 02105        STZ PAT15             INSURE DECREMENT IS CLEAR                  F1P02740    
       01546 -0 53400 4 04550        LXD OTA-1,4           LENGTH OF TEIFNO INTO I.R.4                F1P02750    
       01547 -3 00001 4 01606        TXL WRITE,4,1         IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY F1P02760    
       01550 -0 53400 1 02103        LXD PAT13,1           INITIALIZE I.R. TO STEP THROUGH TABLE      F1P02770    
       01551 -0 63400 4 02104        SXD PAT14,4           SAVE WORD COUNT                            F1P02780    
       01552 -0 53400 4 02104 ISPLUS LXD PAT14,4           REINTIALIZE FOR FURTHER SEARCHING          F1P02790    
       01553  0 50000 1 04551 NEXT   CLA OTA,1             PICK UP NEXT ENTRY IN TEIFNO               F1P02800    
       01554  0 12000 0 01561        TPL MASK              HAS THIS BEEN PROCESSED                    F1P02810    
       01555  0 60200 1 04551        SLW OTA,1                                                        F1P02820    
       01556  1 77777 1 01557        TXI ISTHRU,1,-1       NO, SET I.R. TO LOOK AT NEXT ENTRY         F1P02830    
       01557  2 00001 4 01553 ISTHRU TIX NEXT,4,1          HAVE ALL ENTRIES BEEN EXAMINED             F1P02840    
       01560  0 02000 0 01606        TRA WRITE             YES, FINISHED                              F1P02850    
       01561  0 62100 0 02105 MASK   STA PAT15             STORE COMPERAND                            F1P02860    
       01562  1 77777 1 01563        TXI RECOMP,1,-1       SET I.R.S TO START COMPARISON              F1P02870    
       01563 -0 75400 1 00000 RECOMP PXD 0,1                                                          F1P02880    
       01564 -0 73400 2 00000        PDX 0,2                                                          F1P02890    
       01565 -2 00001 4 01606        TNX WRITE,4,1         HAVE ALL ENTRIES BEEN EXAMINED             F1P02900    
       01566 -0 63400 4 02104        SXD PAT14,4           SAVE NUMBER OF ENTRIES YET TO BE TREATED   F1P02910    
       01567  0 50000 2 04551 PAT16  CLA OTA,2             PICK UP ENTRY TO BE COMPARED               F1P02920    
       01570 -0 12000 0 01575        TMI NODUP             NO SEARCH NECESSARY IF NEGATIVE            F1P02930    
       01571 -0 32000 0 02102        ANA PAT11             ISOLATE EXTERNAL FORMULA NUMBER            F1P02940    
       01572  0 34000 0 02105        CAS PAT15             COMPARE TO REMAINING ENTRIES               F1P02950    
       01573  0 02000 0 01575        TRA NODUP             NO DUPLICATE                               F1P02960    
       01574  0 02000 0 01600        TRA PAT9              DUPLICATE                                  F1P02970    
       01575  1 77777 2 01576 NODUP  TXI PAT8,2,-1         NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRYF1P02980    
                                         FOR COMPARISON                                               F1P02990    
       01576  2 00001 4 01567 PAT8   TIX PAT16,4,1         HAVE ALL ENTRIES BEEN COMPARED             F1P03000    
       01577  0 02000 0 01552        TRA ISPLUS            YES                                        F1P03010    
       01600  0 50000 2 04551 PAT9   CLA OTA,2             FLAG DUPLICATE ENTRY NEGATIVE              F1P03020    
       01601 -0 76000 0 00003        SSM                                                              F1P03030    
       01602  0 60100 2 04551        STO OTA,2                                                        F1P03040    
       01603  0 50200 1 04550        CLS OTA-1,1                                                      F1P03050    
       01604  0 60100 1 04550        STO OTA-1,1                                                      F1P03060    
       01605  0 02000 0 01552        TRA ISPLUS                                                       F1P03070    
       01606  0 07400 1 07656 WRITE  TSX WAT00,1           WRITE TEIFNO ON TAPE                       F1P03080    
       01607  0 00000 0 00000        HTR 0                                                            F1P03090    
       01610  0 00000 0 04551            OTA                                                          F1P03100    
       01611  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE TIFGO                     F1P03110    
       01612  0 00000 0 00002        HTR 2                                                            F1P03120    
       01613  0 00000 0 03163 L(2TA) HTR 2TA                                                          F1P03130    
                                         START  PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO         F1P03140    
       01614  0 50000 0 03162 MFGTP  CLA 2TA-1                    GET NUMBER OF WORDS IN 2TA.         F1P03150    
       01615  0 10000 0 01751        TZE WFG00                    EXIT FOR NO ENTRIES IN TABLE,       F1P03160    
       01616 -0 73400 2 00000        PDX 0,2                      SET INDEX B TO NUMBER OF WORDS,     F1P03170    
       01617  0 77100 0 00022        ARS 18                       COMPUTE                             F1P03180    
       01620  0 40000 0 01613        ADD L(2TA)                   2TA                                 F1P03190    
       01621  0 62100 0 01646        STA MFG00                    PLUS                                F1P03200    
       01622  0 62100 0 01663        STA MFG03                    NUMBER                              F1P03210    
       01623  0 62100 0 01665        STA MFG05                    OF                                  F1P03220    
       01624  0 62100 0 01701        STA MFG08                    WORDS                               F1P03230    
       01625  0 62100 0 01702        STA MFG09                    IN                                  F1P03240    
       01626  0 62100 0 01716        STA MFG12                    2TA                                 F1P03250    
       01627  0 62100 0 01740        STA MFG18                    AND                                 F1P03260    
       01630  0 62100 0 01747        STA MFG20                    INITIALIZE  ADDRESSES               F1P03270    
       01631  0 50000 0 04550        CLA OTA-1                    GET NUM WORDS IN OTA                F1P03280    
       01632 -0 10000 0 01634        TNZ MFGOK                    TABLE EXISTS                        F1P03290    
       01633  0 02000 0 07751        TRA TEIFER           STOP FOR NO TABLE IN OTA                    F1P03300    
       01634  0 77100 0 00022 MFGOK  ARS 18                       NUMBER WORDS PUT IN AC ADDRESS      F1P03310    
       01635  0 40000 0 07750        ADD L(OTA)                   ADD OTA ORIGIN                      F1P03320    
       01636  0 62100 0 01652        STA MFG01                    INITIALIZE ADDRESSES WITH           F1P03330    
       01637  0 62100 0 01661        STA MFG02                    OTA + NUM WORDS                     F1P03340    
       01640  0 62100 0 01670        STA MFG06                                                        F1P03350    
       01641  0 62100 0 01677        STA MFG07                                                        F1P03360    
       01642  0 62100 0 01706        STA MFG10                                                        F1P03370    
       01643  0 62100 0 01715        STA MFG11                                                        F1P03380    
       01644  0 62100 0 01736        STA MFG17                                                        F1P03390    
       01645  0 62100 0 01745        STA MFG19                                                        F1P03400    
       01646  0 50000 2 00000 MFG00  CLA 0,2                      ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410    
       01647  0 12000 0 01722        TPL MFG14                    SIGN IS PLUS.                       F1P03420    
       01650  0 62100 0 07746        STA E3                       SAVE A1.                            F1P03430    
       01651 -0 53400 4 04550        LXD OTA-1,4                  SET INDEX C TO NUM WORDS IN OTA.(2) F1P03440    
       01652  0 50000 4 00000 MFG01  CLA 0,4                      AL  PRIME  AND AL  GO TO AC.        F1P03450    
       01653 -0 32000 0 07742        ANA MSK                      ERASE AL  PRIME IN AC.              F1P03460    
       01654  0 40200 0 07746        SUB E3                       COMPARE TEIFNO ARGUMENT WITH A1.    F1P03470    
       01655  0 10000 0 01661        TZE MFG02                    AL  EQUALS ARGUMENT.                F1P03480    
       01656  2 00001 4 01652        TIX MFG01,4,1                COMP AL VS NEXT  TEIFNO ENTRY. (3A1)F1P03490    
       01657  0 50000 0 02103        CLA PAT13                                                        F1P03500    
       01660  0 02000 0 01663        TRA MFG03                                                        F1P03510    
       01661  0 50000 4 00000 MFG02  CLA 0,4                      A1 PRIME AND A1L  GO TO AC.         F1P03520    
       01662  0 77100 0 00022        ARS 18                       A1 PRIME GOES TO ADDRESS OF AC      F1P03530    
       01663  0 62100 2 00000 MFG03  STA 0,2                      (I)  A1 PRIME REPLACES A1           F1P03540    
       01664  1 77777 2 01665 MFG04  TXI MFG05,2,-1               TAKE WORD  2  OF TIFGO  ENTRY       F1P03550    
       01665  0 50000 2 00000 MFG05  CLA 0,2                      (1).  AC DECK IS  A2, ADDR IS  A3   F1P03560    
       01666  0 62100 0 07746        STA E3                       SAVE A3                             F1P03570    
       01667 -0 53400 4 04550        LXD OTA-1,4                  (2)                                 F1P03580    
       01670  0 50000 4 00000 MFG06  CLA 0,4                      A3  PRIME AND A3  GO TO  AC         F1P03590    
       01671 -0 32000 0 07742        ANA MSK                      ERASE A3 PRIME IN  AC               F1P03600    
       01672  0 40200 0 07746        SUB E3                       COMPARE TEIFNO ARGUMENT  WITH A3    F1P03610    
       01673  0 10000 0 01677        TZE MFG07                    A3  EQUALS ARGUMENT                 F1P03620    
       01674  2 00001 4 01670        TIX MFG06,4,1                (3A3)                               F1P03630    
       01675  0 50000 0 02103        CLA PAT13                                                        F1P03640    
       01676  0 02000 0 01701        TRA MFG08                                                        F1P03650    
       01677  0 50000 4 00000 MFG07  CLA 0,4                      A3 PRIME AND A3 GO TO AC            F1P03660    
       01700  0 77100 0 00022        ARS 18                       A3 PRIME GOES TO ADDR OF AC         F1P03670    
       01701  0 62100 2 00000 MFG08  STA 0,2                      (1). A3 PRIME REPLACES A3           F1P03680    
       01702  0 50000 2 00000 MFG09  CLA 0,2                      (1). A2 AND A3 PRIME GO TO AC       F1P03690    
       01703  0 77100 0 00022        ARS 18                       A2 GOES TO ADDR OF AC               F1P03700    
       01704  0 62100 0 07746        STA E3                       SAVE A2                             F1P03710    
       01705 -0 53400 4 04550        LXD OTA-1,4                  (2)                                 F1P03720    
       01706  0 50000 4 00000 MFG10  CLA 0,4                      A2 PRIME AND A2 GO TO AC            F1P03730    
       01707 -0 32000 0 07742        ANA MSK                      ERASE A2 PRIME IN AC                F1P03740    
       01710  0 40200 0 07746        SUB E3                       COMPARE TEIFNO ARGUMENT WITH A2     F1P03750    
       01711  0 10000 0 01715        TZE MFG11                    A2 EQUALS ARGUMENT                  F1P03760    
       01712  2 00001 4 01706        TIX MFG10,4,1                (3A2)                               F1P03770    
       01713  0 50000 0 02103        CLA PAT13                                                        F1P03780    
       01714  0 02000 0 01716        TRA MFG12                                                        F1P03790    
       01715  0 50000 4 00000 MFG11  CLA 0,4                      A2 PRIME AND A2 GO TO AC            F1P03800    
       01716  0 62200 2 00000 MFG12  STD 0,2                      (1) A2 PRIME REPLACES A2            F1P03810    
       01717  2 00001 2 01646        TIX MFG00,2,1                TAKE FIRST WORD OF NEXT 2TA ENTRY   F1P03820    
       01720  2 00001 2 01717 MFG13  TIX MFG13-1,2,1              TAKE SECOND WORD OF 2TA ENTRY       F1P03830    
       01721  0 02000 0 01751        TRA WFG00                    EXIT TO TAPE WRITING PROGRAM        F1P03840    
       01722  0 73400 4 00000 MFG14  PAX 0,4                      INTEGER N GOES TO INDEX C           F1P03850    
       01723  0 02000 4 01733        TRA MFG14+9,4                                                    F1P03860    
       01724  0 02000 0 01720        TRA MFG13                    N EQUALS 7 NO MODIFICATION          F1P03670    
       01725  0 02000 0 01734        TRA MFG15                    N EQUALS 6                          F1P03880    
       01726  0 02000 0 01664        TRA MFG04                    N EQUALS 5                          F1P03890    
       01727  0 02000 0 01664        TRA MFG04                    N EQUALS 4                          F1P03900    
       01730  0 02000 0 01664        TRA MFG04                    N EQUALS 3                          F1P03910    
       01731  0 02000 0 01720        TRA MFG13                    N EQUALS 2 NO MODIFICATION          F1P03920    
       01732  0 02000 0 01720        TRA MFG13                     N EQUALS 1 NO MODIFICATION         F1P03930    
       01733  0 02000 0 01734        TRA MFG15                     N EQUALS 0                         F1P03940    
       01734  1 77777 2 01735 MFG15  TXI MFG16,2,-1                TAKE WORD 2 OF 2TA ENTRY           F1P03950    
       01735 -0 53400 4 04550 MFG16  LXD OTA-1,4                   (2)                                F1P03960    
       01736  0 50000 4 00000 MFG17  CLA 0,4                       K PRIME AND K GO TO AC             F1P03970    
       01737 -0 32000 0 07742        ANA MSK                       ERASE K PRIME                      F1P03980    
       01740  0 40200 2 00000 MFG18  SUB 0,2                       (1). COMPARE K WITH TEIFNO ARGUMENTF1P03990    
       01741  0 10000 0 01745        TZE MFG19                     K EQUALS ARGUMENT                  F1P04000    
       01742  2 00001 4 01736        TIX MFG17,4,1                 (3K)                               F1P04010    
       01743  0 50000 0 02103        CLA PAT13                                                        F1P04020    
       01744  0 02000 0 01747        TRA MFG20                                                        F1P04030    
       01745  0 50000 4 00000 MFG19  CLA 0,4                       K PRIME AND K GO TO AC             F1P04040    
       01746  0 77100 0 00022        ARS 18                        K PRIME GOES TO ADDRESS OF AC      F1P04050    
       01747  0 62100 2 00000 MFG20  STA 0,2                       (1). K PRIME REPLACES K            F1P04060    
       01750  2 00001 2 01646        TIX MFG00,2,1                 TAKE FIRST WORD OF NEXT 2TA ENTRY  F1P04070    
       01751  0 07400 1 07656 WFG00  TSX WAT00,1                   WRITE 2TA ON TAPE                  F1P04080    
       01752  0 00000 0 00002            2                                                            F1P04090    
       01753  0 00000 0 03163        HTR 2TA                                                          F1P04100    
       01754  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE  TRAD                     F1P04110    
       01755  0 00000 0 00003        HTR 3                                                            F1P04120    
       01756  0 00000 0 03163 L(3TA) HTR 3TA                                                          F1P04130    
                                               PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO           F1P04140    
       01757  0 50000 0 03162 MTRTP  CLA 3TA-1                     GET NUM OF WORDS IN 3TA            F1P04150    
       01760  0 10000 0 02011        TZE WTR00                     NO ENTRIES IN TABLE                F1P04160    
       01761 -0 73400 2 00000        PDX 0,2                       NUMBER OF WORDS PUT IN INDEX B     F1P04170    
       01762  0 77100 0 00022        ARS 18                        RESET ADDRESSES                    F1P04180    
       01763  0 40000 0 01756        ADD L(3TA)                                                       F1P0419O    
       01764  0 62100 0 02000        STA MTR02                                                        F1P04200    
       01765  0 62100 0 02007        STA MTR04                                                        F1P04210    
       01766  0 50000 0 04550        CLA OTA-1                     GET NUMBER WORDS IN OTA.           F1P04220    
       01767 -0 10000 0 01771        TNZ MTROK                     TABLE EXISTS                       F1P04230    
       01770  0 02000 0 07751        TRA TEIFER            STOP FOR NO TABLE IN OTA                   F1P04240    
       01771  0 77100 0 00022 MTROK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P04250    
       01772  0 40000 0 07750        ADD L(OTA)                    ADD OTA ORIGIN                     F1P04260    
       01773  0 62100 0 01775        STA MTR01                     INITIALIZE ADDRESS                 F1P04270    
       01774 -0 53400 4 04550 MTR00  LXD OTA-1,4                   SET INDEX C TO NUM WORDS IN OTA    F1P04280    
       01775  0 50000 4 00000 MTR01  CLA 0,4                       A SUB I PRIME AND A SUB I GO TO AC F1P04290    
       01776  0 62200 0 07746        STD E3                        SAVE A SUB I PRIME                 F1P04300    
       01777 -0 32000 0 07742        ANA MSK                       ERASE SUB I PRIME                  F1P04310    
       02000  0 40200 2 00000 MTR02  SUB 0,2                       ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320    
       02001  0 10000 0 02005        TZE MTR03                     A SUB I EQUALS ARGUMENT            F1P04330    
       02002  2 00001 4 01775        TIX MTR01,4,1                 A SUB I NOT EQUAL TO ARGUMENT      F1P04340    
       02003  0 50000 0 02103        CLA PAT13                                                        F1P04350    
       02004  0 02000 0 02007        TRA MTR04                                                        F1P04360    
       02005  0 50000 0 07746 MTR03  CLA E3                        A SUB I PRIME GOES TO AC DECR.     F1P04370    
       02006  0 77100 0 00022        ARS 18                        A SUB I PRIME GOES TO AC ADDR.     F1P04380    
       02007  0 62100 2 00000 MTR04  STA 0,2                       (1). A SUB I PRIME REPLACES A SUB IF1P04390    
       02010  2 00001 2 01774        TIX MTR00,2,1                 TAKE NEXT WORD OF 3TA              F1P04400    
       02011  0 07400 1 07656 WTR00  TSX WAT00,1                   ALL WORDS OF 3TA EXAMINED SO       F1P04410    
       02012  0 00000 0 00003            3                         WRITE 3TA ON TAPE                  F1P04420    
       02013  0 00000 0 03163            3TA                                                          F1P04430    
       02014  0 07400 1 07505 AD000  TSX TAP00,1                   ASSEMBLE TDO                       F1P04440    
       02015  0 00000 0 00001            1                                                            F1P04450    
       02016  0 00000 0 03163 OATDO      1TA                       ORIGIN OF ASSEMBLED TDO            F1P04460    
                                                PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO           F1P04470    
       02017  0 50000 0 03162 MDOTP  CLA 1TA-1                     GET NUMBER OF WORDS IN ITA         F1P04480    
       02020  0 10000 0 02074        TZE WDO00                     EXIT FOR NO WORDS IN TABLE         F1P04490    
       02021 -0 73400 2 00000        PDX 0,2                       NUMBER OF WORDS IN ITA PUT IN IRB  F1P04500    
       02022  0 77100 0 00022        ARS 18                        NUM WORDS PUT IN AC ADDR           F1P04510    
       02023  0 40000 0 02016        ADD OATDO                     ADD ORIGIN OF ASSEMBLED TDO        F1P04520    
       02024  0 62100 0 02036        STA MDO00                     INITIALIZE ADDRESSES               F1P84530    
       02025  0 62100 0 02072        STA MDO06                                                        F1P04540    
       02026  0 62100 0 02041        STA MDO30                                                        F1P04550    
       02027  0 50000 0 04550        CLA OTA-1                     GET NUMBER WORDS IN OTA            F1P04560    
       02030  0 77100 0 00022 MDOOK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P04570    
       02031  0 40000 0 07750        ADD L(OTA)                    ADD OTA ORIGIN AND                 F1P04580    
       02032  0 62100 0 02050        STA MDO02                     INITIALIZE ADDRESSES               F1P04590    
       02033  0 62100 0 02057        STA MDO03                                                        F1P04600    
       02034  0 62100 0 02062        STA MDO04                                                        F1P04610    
       02035  0 62100 0 02070        STA MDO041                                                       F1P04620    
       02036  0 50000 2 00000 MDO00  CLA 0,2                       ADDR IS ITA + NUMBER WORDS    (1)  F1P04630    
       02037  0 12000 0 02043        TPL MDO01                     SIGN OF  WORD  IS  PLUS            F1P04640    
       02040  0 76000 0 00003        SSP                           CHANGE SIGN OF WORD  IN  TABLE     F1P04650    
       02041  0 60100 2 00000 MDO30  STO 0,2                                                          F1P04660    
       02042  0 02000 0 02073        TRA MDO07                                                        F1P04670    
       02043 -0 32000 0 07742 MDO01  ANA MSK                       ERASE DECR  IN AC                  F1P04680    
       02044  0 62100 0 07747        STA E1                        SAVE BETA                          F1P04690    
       02045 -0 53400 4 04550        LXD OTA-1,4                   SET  INDEX C TO NUM WORDS IN OTA   F1P04700    
       02046  3 00000 4 02050        TXH MDO02,4,0                 TEST FOR TEIFNO                    F1P04710    
       02047  0 02000 0 07751        TRA TEIFER            STOP FOR NO TEIFNO                         F1P04720    
       02050  0 50000 4 00000 MDO02  CLA 0,4                       BETA PRIME AND BETA GO TO AC       F1P04730    
       02051 -0 32000 0 07742        ANA MSK                       ERASE BETA PRIME                   F1P04740    
       02052  0 40200 0 07747        SUB E1                        BETA COMPARED WITH TABLE ARGUMENT  F1P04750    
       02053  0 10000 0 02057        TZE MDO03                     BETA EQUALS ARGUMENT               F1P04760    
       02054  2 00001 4 02050        TIX MDO02,4,1                 BETA NOT EQUAL TO ARGUMENT         F1P04770    
       02055  0 50000 0 02103        CLA PAT13                                                        F1P04780    
       02056  0 02000 0 02072        TRA MDO06                                                        F1P04790    
       02057  0 50000 4 00000 MDO03  CLA 0,4                       BETA PRIME AND BETA GO TO AC       F1P04800    
       02060  0 62200 0 07746        STD E2                        SAVE DECR OF FIRST POSSIBILITY     F1P04810    
       02061 -2 00001 4 02066        TNX MDO08,4,1                 SEE IF THERE ARE 2 ENTRIES FOR     F1P04820    
       02062  0 50000 4 00000 MDO04  CLA 0,4                       ONE ARGUMENT                       F1P04830    
       02063 -0 32000 0 07742        ANA MSK                       ERASE DECR IN AC                   F1P04840    
       02064  0 40200 0 07747        SUB E1                                                           F1P04650    
       02065  0 10000 0 02070        TZE MDO041                    THERE ARE 2 ENTRIES                F1P04860    
       02066  0 50000 0 07746 MDO08  CLA E2                        THERE IS ONLY ONE ENTRY            F1P04870    
       02067  0 02000 0 02071        TRA MDO05                     FOR THIS ARGUMENT                  F1P04860    
       02070  0 50000 4 00000 MDO041 CLA 0,4                                                          F1P04890    
       02071  0 77100 0 00022 MDO05  ARS 18                                                           F1P04900    
       02072  0 62100 2 00000 MDO06  STA 0,2                       (I)* BETA PRIME REPLACES BETA      F1P04910    
       02073  2 00005 2 02036 MDO07  TIX MDO00,2,5                 TAKE NEXT ENTRY IN ITA             F1P04920    
       02074  0 07400 1 07656 WDO00  TSX WAT00,1                   WRITE  TDO ON TAPE                 F1P04930    
       02075  0 00000 0 00001        HTR 1                                                            F1P04940    
       02076  0 00000 0 03163 T0T1   HTR 1TA                                                          F1P04950    
       02077  0 76200 0 00221        RTB 1                                                            F1P04960    
       02100  0 02000 0 00004        TRA 4                         GO TO 1-CS FOR PART B OF ONE PRIME F1P04970    
       02101  0 77777 0 00000 DMASK      0,0,32767                                                    F1P04980    
       02102 +000000077777    PAT11  OCT 77777                                                        F1P04990    
       02103  0 00000 0 00000 PAT13  HTR 0                                                            F1P05000    
       02104  0 00000 0 00000 PAT14  HTR 0                                                            F1P05010    
       02105  0 00000 0 00000 PAT15  HTR 0                                                            F1P05020    
                        02106 GARBGE BSS 1                                                            F1P05030    
                        02107 WORKCL BSS 1                                                            F1P05040    
                        02110 NEWBAS BSS 1                                                            F1P05050    
                        02243 BUFFER BES 90                                                           F1P05060    
                        02243 E1PTS  BSS 1                                                            F1P05070    
                        02244 FLSIZE BSS 1                                                            F1P05080    
                        02245 CMPREC BSS 1                                                            F1P05090    
                        03162 END1PA ORG 1650                                                         F1P05100    
                        03162 1TAM1  BSS 1                         NO OF WORDS IN BLOCK               F1P05110    
                        03163 1TA    BSS 750                       BLOCK FOR TABLE ASSEMBLING         F1P05120    
                                                                                                      F1P05130    
                                                                                                      F1P05140    
                                         704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B =  F0240000. F1P05150    
                        00000        ORG 0                                                            F1P05160    
       00000  0 00507 0 00507        PZE ORG1PB,,ORG1PB                                               F1P05170    
       00001  0 00000 0 01613        PZE END1PB                                                       F1P05180    
                                                                                                      F1P05190    
                                         THIS  IS PART B OF 2 PARTS OF SECTION ONE PRIME              F1P05200    
                                                                                                      F1P05210    
                        00507 ORG1PB ORG 327                                                          F1P05220    
       00507  0 76100 0 00000        NOP                            TO PERMIT A STOP FOR TESTING USE. F1P05230    
       00510  0 07400 1 07505        TSX TAP00,1                    ASSEMBLE FORVAL                   F1P05240    
       00511  0 00000 0 00006 TNT6   HTR 6                                                            F1P05250    
       00512  0 00000 0 01614 TOT6   HTR 6TA                                                          F1P05260    
       00513 -0 53400 4 01613        LXD 6TA-1,4           TEST FOR ENTRIES IN FORVAL, IF NONE WRITE  F1P05270    
       00514 -3 00000 4 00546        TXL CLMD09,4,0        IDENTIFICATION WORD AND ZERO WORD.         F1P05280    
                                                                                                      F1P05290    
       00515  0 07400 1 07505        TSX TAP00,1           ASSEMBLE TABLE OF FIRST, LAST FORMULA      F1P05300    
       00516  0 00000 0 00020            16                NUMBERS OF CALL STATEMENTS.                F1P05310    
       00517  0 00000 0 03564 L16TA      16TA                                                         F1P05320    
                                                                                                      F1P05330    
       00520 -0 53400 2 03563        LXD 16TA-1,2          TEST FOR ANY ENTRIES IN CALL NUMBER TABLE, F1P05340    
       00521 -3 00000 2 00546        TXL CLMD09,2,0        IF NONE WRITE OUT FORVAL TABLE.            F1P05350    
                                                                                                      F1P05360    
                                         THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER  TABLES.    F1P05370    
                                         THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE   F1P05380    
                                         REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT.   F1P05390    
                                         THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO      F1P05400    
                                         TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA        F1P05410    
                                         NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH,               F1P05420    
                                                                                                      F1P05430    
       00522  0 60000 0 02107        STZ WORKCL                                                       F1P05440    
       00523  0 53400 1 07730        LXA L(0),1       PREPARE FOR FORWARD SEARCH.                     F1P05450    
       00524 -0 53400 4 01613        LXD 6TA-1,4      NO OF ENTRIES IN FORVAL.                        F1P05460    
       00525 -0 75400 2 00000        PXD ,2                                                           F1P05470    
       00526  0 77100 0 00022        ARS 18                                                           F1P05480    
       00527  0 40000 0 00517        ADD L16TA                                                        F1P05490    
       00530  0 62100 0 00531        STA *+1                                                          F1P05500    
                                                                                                      F1P05510    
 U     00531  0 50000 2       CLMD01 CLA ..,2              GET NEXT ENTRY IN CALL TABLE.              F1P05520    
       00532  0 62200 0 02107        STD WORKCL            DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530    
       00533 -0 32000 0 07742        ANA MSK                                                          F1P05540    
       00534  0 76700 0 00022        ALS 18                                                           F1P05550    
       00535  0 34000 1 01614 CLMD02 CAS 6TA,1             COMPARE CALL FIRST IN AC TO NEXT FORVAL.   F1P05560    
       00536  1 77777 1 00545        TXI CLMD04,1,-1       CALL GREATER THAN FORVAL                   F1P05570    
       00537  0 02000 0 00542        TRA CLMD03            CALL EQUAL FORVAL.                         F1P05580    
       00540  2 00001 2 00531        TIX CLMD01,2,1        GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE   F1P05590    
       00541  0 02000 0 00546        TRA CLMD09            GO WRITE FORVAL TABLE.                     F1P05600    
                                                                                                      F1P05610    
       00542  0 50000 0 02107 CLMD03 CLA WORKCL            REPLACE FORMULA NUMBER IN FORVAL WHICH IS  F1P05620    
       00543  0 62200 1 01614        STD 6TA,1             FIRST RELATED TO CALL WITH LAST.           F1P05630    
       00544  1 77777 1 00545        TXI *+1,1,-1                                                     F1P05640    
       00545  2 00001 4 00535 CLMD04 TIX CLMD02,4,1        GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650    
                                                           IF NOT GO WRITE FORVAL TABLE.              F1P05660    
                                                                                                      F1P05670    
       00546  0 07400 1 07656 CLMD09 TSX WAT00,1                                                      F1P05680    
       00547  0 00000 0 00006        HTR 6                         FORVAL                             F1P05690    
       00550  0 00000 0 01614        HTR 6TA                       ON TAPE                            F1P05700    
       00551  0 50000 0 01613        CLA 6TA-1                     GET NUMBER OF WORDS IN FORVAL      F1P05710    
       00552 -0 10000 0 00554        TNZ WFD00                     TABLE EXISTS                       F1P05720    
       00553  0 02000 0 00610        TRA A4VAR                     EXIT 10 ASSEMBLE NEXT TABLE        F1P05730    
       00554  0 76600 0 00302 WFD00  WRS 194                       PREPARE TO WRITE FORVAL ON DRUM    F1P05740    
       00555 -0 73400 1 00000 WFD01  PDX 0,1                       SET INDEX A TO NUM OF WORDS        F1P05750    
       00556  0 53400 2 00555        LXA WFD01,2                   SET INDEX B TO ZERO                F1P05760    
       00557  0 77100 0 00022        ARS 18                        PUT NUM OF WORDS IN AC             F1P05770    
       00560  0 40000 0 00512        ADD TOT6                                                         F1P05780    
       00561  0 62100 0 00571        STA WFD04                     INITIALIZE                         F1P05790    
       00562  0 62100 0 00602        STA WFD07                                                        F1P05800    
       00563  0 40200 0 07731        SUB L(1)                      ADDRESSES                          F1P05810    
       00564  0 62100 0 00570        STA WFD03                                                        F1P05820    
       00565  0 62100 0 00601        STA WFD06                                                        F1P05830    
       00566  1 77777 1 00567        TXI WFD02,1,-1                SUBTRACT ONE FROM INDEX A          F1P05840    
       00567  0 76000 0 00000 WFD02  CLM                           COMPUTE CHECK SUM                  F1P05850    
       00570  0 36100 1 00000 WFD03  ACL 0,1                       FOR EACH FORVAL                    F1P05860    
       00571  0 36100 1 00000 WFD04  ACL 0,1                       ENTRY AND SAVE IN                  F1P05870    
       00572  0 60200 2 03564        SLW FRCHS,2                   SEPARATE TABLE                     F1P05880    
       00573  1 77777 2 00574        TXI WFD05,2,-1                                                   F1P05890    
       00574  2 00002 1 00567 WFD05  TIX WFD02,1,2                 TEST END OF FORVAL ENTRIES         F1P05900    
       00575  0 53400 2 00555        LXA WFD01,2                   SET INDEX B TO ZERO                F1P05910    
       00576 -0 53400 1 01613        LXD 6TA-1,1                                                      F1P05920    
       00577  0 46000 0 07744        LDA DRL02                                                        F1P05930    
       00600  1 77777 1 00601        TXI WFD06,1,-1                                                   F1P05940    
       00601  0 70000 1 00000 WFD06  CPY 0,1                       WRITE FORVAL                       F1P05950    
       00602  0 70000 1 00000 WFD07  CPY 0,1                       ENTRY                              F1P05960    
       00603 -2 00002 1 00606        TNX WFD08,1,2                 TEST END OF FORVAL ENTRIES         F1P05970    
       00604  0 70000 2 03564        CPY FRCHS,2                   WRITE CHECK SUM                    F1P05980    
       00605  1 77777 2 00601        TXI WFD06,2,-1                FOR ABOVE ENTRY                    F1P05990    
       00606  0 70000 2 03564 WFD08  CPY FRCHS,2                   WRITE CHECK SUM FOR LAST ENTRY     F1P06000    
       00607  0 70000 0 07743        CPY FRCON                     WRITE END OF TABLE SIGNAL          F1P06010    
       00610  0 07400 1 07505 A4VAR  TSX TAP00,1                   ASSEMBLE FORVAR.                   F1P06020    
       00611  0 00000 0 00005 TNT5   HTR 5                                                            F1P06030    
       00612  0 00000 0 01614        HTR 5TA                                                          F1P06040    
       00613  0 07400 1 07656        TSX WAT00,1                   WRITE FORVAR ON TAPE               F1P06050    
       00614  0 00000 0 00005        HTR 5                                                            F1P06060    
       00615  0 00000 0 01614        HTR 5TA                                                          F1P06070    
       00616  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE FORTAG                    F1P06080    
       00617  0 00000 0 00004        HTR 4                                                            F1P06090    
       00620  0 00000 0 01614        HTR 4TA                                                          F1P06100    
       00621  0 07400 1 07656        TSX WAT00,1                   WRITE FORTAG ON TAPE               F1P06110    
       00622  0 00000 0 00004        HTR 4                                                            F1P06120    
       00623  0 00000 0 01614        HTR 4TA                                                          F1P06130    
                                         PROGRAM  FOR PROCESSING FREQUENCY TABLE. FRET                F1P06140    
       00624  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE FRET.                     F1P06150    
       00625  0 00000 0 00007        HTR 7                                                            F1P06160    
       00626  0 00000 0 01614 TOT7   HTR 7TA                       ORIGIN OF ASSEMBLED FRET,          F1P06170    
       00627  0 50000 0 01613 MFRTP  CLA 7TA-1                     GET NUM OF WORDS IN TABLE          F1P06180    
       00630  0 10000 0 01114        TZE WFR00                     EXIT FOR EMPTY TABLE               F1P06190    
       00631 -0 73400 2 00000        PDX 0,2                       SET INDEX B TO NUM WORDS IN TABLE  F1P06200    
       00632  0 77100 0 00022        ARS 18                        PUT NUMBER IN AC ADDRESS AND       F1P06210    
       00633  0 40000 0 00626        ADD TOT7                      INITIALIZE ADDRESSES               F1P06220    
       00634  0 62100 0 00645        STA MFR00                                                        F1P06230    
       00635  0 62100 0 00662        STA MFR03                                                        F1P06240    
       00636  0 50000 0 04550        CLA OTA-1                     GET NUMBER OF WORDS IN OTA         F1P06250    
       00637 -0 10000 0 00641        TNZ MFROK                     TABLE EXISTS                       F1P06260    
       00640  0 02000 0 07751        TRA TEIFER       STOP  FOR NO TABLE IN OTA                       F1P06270    
       00641  0 77100 0 00022 MFROK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P06280    
       00642  0 40000 0 07750        ADD L(OTA)                    ADD OTA ORIGIN AND                 F1P06290    
       00643  0 62100 0 00651        STA MFR01                     INITIALIZE ADDRESSES               F1P06300    
       00644  0 62100 0 00660        STA MFR02                                                        F1P06344    
       00645  0 50000 2 00000 MFR00  CLA 0,2                       ADDR IS 7TA + NUMBER OF WORDS      F1P06320    
       00646  0 12000 0 00663        TPL MFR04                     DO NOT MODIFY THIS WORD            F1P06330    
       00647  0 62100 0 01604        STA E10                       SAVE ABSOLUTE PART OF WORD         F1P06340    
       00650 -0 53400 1 04550        LXD OTA-1,1                   SET INDEX TO NUM WORDS IN OTA      F1P06350    
       00651  0 50000 1 00000 MFR01  CLA 0,1                       TEIFNO ARGUMENT IS IN AC.          F1P06360    
       00652 -0 32000 0 07742        ANA MSK                       COMPARE WITH 7TA WORD              F1P06370    
       00653  0 40200 0 01604        SUB E10                                                          F1P06380    
       00654  0 10000 0 00660        TZE MFR02                     MODIFY 7TA WORD                    F1P06390    
       00655  2 00001 1 00651        TIX MFR01,1,1                 GO TO NEXT TEIFNO WORD             F1P06400    
       00656  0 50000 0 07730        CLA L(0)         NO ENTRY FOUND IN TEIFNO.  IGNORE.              F1P06410    
       00657  0 02000 0 00662        TRA MFR03                                                        F1P06420    
       00660  0 50000 1 04551 MFR02  CLA OTA,1                     TEIFNO WORD GOES TO AC             F1P06430    
       00661  0 77100 0 00022        ARS 18                        INTERNAL FORMULA NUM IN AC ADDR,   F1P06440    
       00662  0 62100 2 00000 MFR03  STA 0,2                       INTERNAL FORMULA NUM GOES TO 7TA   F1P06450    
       00663  2 00001 2 00645 MFR04  TIX MFR00,2,1                 EXAMINE NEXT WORD OF 7TA           F1P06460    
                                         PROGRAM FOR SORTING FRET                                     F1P06470    
       00664  0 50000 0 01613 SFRTP  CLA 7TA-1                     GET NUMBER OF WORDS IN FRET        F1P06480    
       00665  0 77100 0 00022        ARS 18                        NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490    
       00666  0 40000 0 00626        ADD TOT7                      COMPUTE NUMBER OF WORDS IN TABLE   F1P06500    
       00667  0 62100 0 00701        STA SFR01                     PLUS ORIGIN OF TABLE AND INITIALIZEF1P06510    
       00670  0 62100 0 00707        STA SFR03                     ADDRESSES                          F1P06520    
       00671  0 62100 0 00721        STA SFR06                                                        F1P06530    
       00672  0 62100 0 00724        STA SFR07                                                        F1P06540    
       00673  0 62100 0 00733        STA SFR11                                                        F1P06550    
       00674  0 62100 0 00743        STA SFR13                                                        F1P06560    
       00675  0 62100 0 00753        STA SFR17                                                        F1P06570    
       00676  0 76000 0 00000 SFR00  CLM                           SET E12 TO ZERO TO INDICATE        F1P06580    
       00677  0 60100 0 07746        STO E12                       TABLE IS IN ORDER.                 F1P06590    
       00700 -0 53400 1 01613        LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN 7TA F1P06600    
       00701  0 50000 1 00000 SFR01  CLA 0,1                       A WORD OF 7TA GOES TO AC.          F1P06610    
       00702 -0 12000 0 00704        TMI SFR02                     COMPARE THIS WORD. IT IS ALPHA ONE F1P06620    
       00703  1 77777 1 00701        TXI SFR01,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06630    
       00704  0 62100 0 01605 SFR02  STA E11                       SAVE ALPHA ONE FOR COMPARISON      F1P06640    
       00705 -0 63400 1 01606        SXD A1BOX,1                   SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650    
       00706 -2 00001 1 00762        TNX SFR21,1,1                 EXAMINE NEXT WORD OF 7TA           F1P06660    
       00707  0 50000 1 00000 SFR03  CLA 0,1                       PUT NEXT WORD OF 7TA IN AC.        F1P06670    
       00710 -0 12000 0 00713        TMI SFR05                     COMPARE THIS WORD. IT IS ALPHA TWO F1P06680    
       00711 -3 00001 1 00762        TXL SFR21,1,1                 EXIT FOR END OF TABLE              F1P06690    
       00712  1 77777 1 00707        TXI SFR03,1,-1                EXAMINE NEXT 7TA WORD              F1P06700    
       00713  0 76000 0 00003 SFR05  SSP                           COMPUTE ALPHA TWO                  F1P06710    
       00714  0 40200 0 01605        SUB E11                       MINUS ALPHA ONE                    F1P06720    
       00715  0 12000 0 00701        TPL SFR01                     ALPHA ONE IS SMALLER               F1P06730    
       00716  0 50000 0 07731        CLA L(1)                      C(E12) NOT ZERO INDICATES TABLE WASF1P06740    
       00717  0 60100 0 07746        STO E12                       NOT IN ORDER ON THIS PASS.         F1P06750    
       00720  0 53400 4 07730        LXA L(0),4                    SET INDEX C TO ZERO TO INDEX OTA   F1P06760    
       00721  0 50000 1 00000 SFR06  CLA 0,1                       ALPHA TWO GOES TO  AC              F1P06770    
       00722  0 60100 4 04551        STO OTA,4                     SAVE ALPHA TWO                     F1P06780    
       00723  1 77777 1 00724        TXI SFR07,1,-1                GET NEXT WORD OF ALPHA TWO ENTRY   F1P06790    
       00724  0 50000 1 00000 SFR07  CLA 0,1                       PUT THIS WORD IN AC                F1P06800    
       00725 -0 12000 0 00732        TMI SFR10                     ALL WORDS OF ALPHA TWO ENTRY SAVED F1P06810    
       00726  1 77777 4 00727        TXI SFR09,4,-1                GO TO NEXT WORD OF OTA             F1P06820    
       00727  0 60100 4 04551 SFR09  STO OTA,4                     SAVE WORDS OF ALPHA TWO ENTRY      F1P06830    
       00730 -3 00001 1 00732        TXL SFR10,1,1                 ALPHA TWO ENTRY IS END OF TABLE    F1P06840    
       00731  1 77777 1 00724        TXI SFR07,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06850    
       00732 -0 53400 1 01606 SFR10  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860    
       00733  0 50000 1 00000 SFR11  CLA 0,1                       ALPHA ONE GOES TO AC               F1P06870    
       00734  1 77777 4 00735        TXI SFR12,4,-1                GO TO NEXT WORD OF OTA             F1P06880    
       00735  0 60100 4 04551 SFR12  STO OTA,4                     SAVE ALPHA ONE                     F1P06890    
       00736 -0 63400 4 01607        SXD A2BOX,4                   COMPUTE INDEX FOR                  F1P06900    
       00737  0 50000 0 01606        CLA A1BOX                     RETURNING TO ALPHA ONE             F1P06910    
       00740  0 40000 0 01607        ADD A2BOX                     AFTER TRANSPOSING                  F1P06920    
       00741  0 62200 0 01607        STD A2BOX                     ALPHA ONE AND ALPHA TWO ENTRIES    F1P06930    
       00742  1 77777 1 00743        TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06940    
       00743  0 50000 1 00000 SFR13  CLA 0,1                       PUT NEXT WORD IN AC                F1P06950    
       00744 -0 12000 0 00750        TMI SFR15                     FINISHED SAVING ALPHA ONE ENTRY    F1P06960    
       00745  1 77777 4 00746        TXI SFR14,4,-1                GO TO NEXT WORD OF OTA             F1P06970    
       00746  0 60100 4 04551 SFR14  STO OTA,4                     SAVE WORDS OF ALPHA ONE ENTRY      F1P06980    
       00747  1 77777 1 00743        TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06990    
       00750 -0 53400 1 01606 SFR15  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000    
       00751  0 53400 2 07730        LXA L(0),2                    SET INDEX B TO INDEX OTA           F1P07010    
       00752  0 50000 2 04551 SFR16  CLA OTA,2                     ALPHA ONE ENTRY AND ALPHA TWO ENTRYF1P07020    
       00753  0 60100 1 00000 SFR17  STO 0,1                       ARE INTERCHANGED                   F1P07030    
       00754  1 77777 2 00755        TXI SFR18,2,-1                GO TO NEXT WORD OF OTA             F1P07040    
       00755 -2 00001 1 00676 SFR18  TNX SFR00,1,1                 END OF TABLE EXIT                  F1P07050    
       00756 -3 00001 4 00760        TXL SFR20,4,1                 TEST IF OTA IS EMPTIED             F1P07060    
       00757  1 00001 4 00752        TXI SFR16,4,1                 COUNT WORDS TAKEN FROM OTA         F1P07070    
       00760 -0 53400 1 01607 SFR20  LXD A2BOX,1                   GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07080    
       00761  0 02000 0 00701        TRA SFR01                     START OVER WITH NEW ALPHA ONE      F1P07090    
       00762  0 50000 0 07746 SFR21  CLA E12                       TEST IF TABLE IS IN ORDER          F1P07100    
       00763 -0 10000 0 00676        TNZ SFR00                     EXAMINE TABLE AGAIN                F1P07110    
                                         PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN   F1P07120    
                                         TIFGD                                                        F1P07130    
       00764  0 76400 0 00222 RFT00  BST 146                       MOVE TAPE                          F1P07140    
       00765  0 76400 0 00222        BST 146                       THRU TABLES                        F1P07150    
       00766  0 76400 0 00222        BST 146                       ALREADY WRITTEN                    F1P07160    
       00767  0 76400 0 00222        BST 146                       TO OBTAIN                          F1P07170    
       00770  0 76400 0 00222        BST 146                       TIFGO                              F1P07180    
       00771  0 76400 0 00222        BST 146                                                          F1P07190    
       00772  0 76200 0 00222        RDS 146                       SELECT TAPE FOR READING            F1P07200    
       00773  0 50000 0 07734        CLA L(4)              PREPARE TO COUNT                           F1P07210    
       00774  0 60100 0 01610        STO IT1                       TWO TAPE TESTS                     F1P07220    
       00775  0 70000 0 07747        CPY E1RF                      GET TABLE NUMBER                   F1P07230    
       00776  0 50000 0 07747        CLA E1RF                      AND COMPARE WITH                   F1P07240    
       00777  0 40200 0 07745        SUB TNT2                      TABLE CALLED FOR                   F1P07250    
       01000  0 10000 0 01002        TZE RFT01                     TABLE NUMBERS AGREE                F1P07260    
       01001  0 07400 4 00004        TSX DIAG,4                    STOP FOR TABLE NOT IN RIGHT RECORD F1P07270    
       01002  0 70000 0 04550 RFT01  CPY OTA-1                     GET NUMBER OF WORDS                F1P07280    
       01003  0 50000 0 04550        CLA OTA-1                     IN TAPE RECORD                     F1P07290    
       01004  0 10000 0 01107        TZE WFR01                     EXIT FOR EMPTY TABLE ON TAPE       F1P07300    
       01005  0 62200 0 01022        STD RFT05                                                        F1P07310    
       01006 -0 76000 0 00012        RTT                           TURN OFF TAPE                      F1P07320    
       01007  0 76100 0 00000        NOP                           CHECK INDICATOR AND LIGHTS         F1P07330    
       01010  0 53400 2 07730 RFT02  LXA L(0),2                    SET INDEX B TO ZERO                F1P07340    
       01011  0 70000 2 04551 RFT03  CPY OTA,2                                                        F1P07350    
       01012  1 77777 2 01011        TXI RFT03,2,-1                COPY LOOP                          F1P07360    
       01013  0 76100 0 00000        NOP                           END OF FILE JUMP                   F1P07370    
       01014  0 76600 0 00333        WRS 219                       END OF RECORD. DELAY FOR TAPE TEST F1P07380    
       01015 -0 76000 0 00012        RTT                           TAPE TEST                          F1P07390    
       01016  0 02000 0 01020        TRA RFT04                     TAPE TEST ON                       F1P07400    
       01017  0 02000 0 01032        TRA RFT07                     TAPE TEST OFF                      F1P07410    
       01020  0 76400 0 00224 RFT04  BST 148                       REPEAT RECORD                      F1P07420    
       01021  0 76200 0 00224        RDS 148                       PREPARE TO READ RECORD             F1P07430    
       01022  1 00000 2 01023 RFT05  TXI RFT06,2,**                COMPENSATE FOR REREADING RECORD    F1P07440    
       01023  0 50000 0 01610 RFT06  CLA IT1                       COUNT                              F1P07450    
       01024  0 40200 0 07731        SUB L(1)                      TWO                                F1P07460    
       01025  0 60100 0 01610        STO IT1                       TAPE TESTS                         F1P07470    
       01026  0 70000 0 07747        CPY E1RF                      GET TABLE NUMBER                   F1P07480    
       01027  0 70000 0 07747        CPY E1RF                      GET NUMBER OF WORDS IN TABLE       F1P07490    
       01030  0 12000 0 01010        TPL RFT02                     GO TO READ TAPE                    F1P07500    
       01031  0 07400 4 00004        TSX DIAG,4                    STOP FOR SECOND TAPE TEST          F1P07510    
       01032  0 50000 0 01613 RFT07  CLA 7TA-1                     COMPUTE TABLE                      F1P07520    
       01033  0 77100 0 00022        ARS 18                        ORIGIN PLUS                        F1P07530    
       01034  0 40000 0 00626        ADD TOT7                      NUMBER OF                          F1P07540    
       01035  0 62100 0 01057        STA RFT09                     WORDS IN                           F1P07540    
       01036  0 62100 0 01072        STA RFT13                     FRET AND                           F1P07560    
       01037  0 62100 0 01103        STA RFT18                     INITIALIZE ADDRESSES               F1P07570    
       01040  0 50000 0 04550        CLA OTA-1                     GET NUMBER OF WORDS IN TI FGO      F1P07580    
       01041  0 77100 0 00022        ARS 18                        PUT IN AC AND                      F1P07590    
       01042  0 40200 0 07731        SUB L(1)                      SUBTRACT ONE                       F1P07600    
       01043  0 73400 4 00000        PAX 0,4                       SET INDEX C TO THIS NUMBER         F1P07610    
       01044  0 40000 0 07750        ADD TOTO                      ADD ORIGIN OF TIFGO ADD            F1P07620    
       01045  0 62100 0 01050        STA RFT08                     INITIALIZE ADDRESS                 F1P07630    
       01046  0 76000 0 00000        CLM                                                              F1P07640    
       01047  0 60200 0 01611        SLW E1RFT                                                        F1P07650    
       01050  0 50000 4 00000 RFT08  CLA 0,4                       GET FIRST WORD OF TIFGO ENTRY      F1P07660    
       01051  0 62200 0 01611        STD E1RFT                     SAVE FORMULA NUMBER                F1P07670    
       01052 -0 12000 0 01056        TMI RFT09-1                   ENTRY IS AN IF(E)                  F1P07680    
       01053 -0 32000 0 07742        ANA MSK                       ERASE DECREMENT OF AC              F1P07690    
       01054  0 40200 0 07732        SUB L(2)                      TEST FOR GO TO VECTOR ENTRY        F1P07700    
       01055 -0 10000 0 01106        TNZ RFT20                     EXIT FOR ENTRY NOT A GO TO VECTOR  F1P07710    
       01056 -0 53400 1 01613        LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN FRETF1P07720    
       01057  0 50000 1 00000 RFT09  CLA 0,1                       GET WORD OF FRET ENTRY             F1P07730    
       01060  0 12000 0 01065        TPL RFT10                     TEST FOR FIRST WORD OF ENTRY       F1P07740    
       01061  0 76000 0 00003        SSP                           PUT FORMULA NUMBER                 F1P07750    
       01062  0 76700 0 00022        ALS 18                        IN DECREMENT OF AC                 F1P07760    
       01063  0 40200 0 01611        SUB E1RFT                     COMPARE FORMULA NUMBERS            F1P07770    
       01064  0 10000 0 01067        TZE RFT11                     FORMULA NUMBERS MATCH              F1P07780    
       01065  2 00001 1 01057 RFT10  TIX RFT09,1,1                 TEST END OF FRET                   F1P07790    
       01066  0 02000 0 01106        TRA RFT20                     EXIT FOR END OF FRET               F1P07800    
       01067 -2 00001 1 01106 RFT11  TNX RFT20,1,1                 PREPARE FOR SECOND WORD OF ENTRY   F1P07810    
       01070 -0 63400 1 01612 RFT12  SXD E2RFT,1                   AND SAVE INDEX A FOR RETURN        F1P07820    
       01071  0 53400 2 07730        LXA L(0),2                    SET INDEX B TO ZERO                F1P07830    
       01072  0 50000 1 00000 RFT13  CLA 0,1                       GET FREQUENCY PART OF ENTRY        F1P07840    
       01073 -0 12000 0 01077        TMI RFT15                     TEST END OF ENTRY                  F1P07850    
       01074  0 60100 2 03172        STO FRTS,2                    SAVE FREQUENCY                     F1P07860    
       01075  1 77777 2 01076        TXI RFT14,2,-1                TAKE NEXT FRTS WORD                F1P07870    
       01076  2 00001 1 01072 RFT14  TIX RFT13,1,1                 TAKE NEXT FRET WORD                F1P07880    
       01077 -3 00000 2 01106 RFT15  TXL RFT20,2,0                 EXIT FOR NO FREQUENCY IN ENTRY     F1P07890    
       01100 -0 53400 1 01612        LXD E2RFT,1                   SET INDEX A TO GET 2ND ENTRY WORD  F1P07900    
       01101  1 00001 2 01102 RFT16  TXI RFT17,2,1                 GET FREQUENCIES                    F1P07910    
       01102  0 50000 2 03172 RFT17  CLA FRTS,2                    IN REVERSE ORDER                   F1P07920    
       01103  0 60100 1 00000 RFT18  STO 0,1                       AND REPLACE IN FRET ENTRY          F1P07930    
       01104  1 77777 1 01105        TXI RFT19,1,-1                TAKE NEXT WORD OF FRET ENTRY       F1P07940    
       01105  3 00000 2 01101 RFT19  TXH RFT16,2,0                 TEST END OF ENTRY                  F1P07950    
       01106  2 00002 4 01050 RFT20  TIX RFT08,4,2                 TEST END OF TIFGO                  F1P07960    
       01107  0 76200 0 00222 WFR01  RDS 146                       POSITION                           F1P07970    
       01110  0 76200 0 00222        RDS 146                       TAPE                               F1P07980    
       01111  0 76200 0 00222        RDS 146                       FOR                                F1P07990    
       01112  0 76200 0 00222        RDS 146                       WRITING                            F1P08000    
       01113  0 76200 0 00222        RDS 146                       FRET                               F1P08010    
       01114  0 07400 1 07656 WFR00  TSX WAT00,1                   WRITE                              F1P08020    
       01115  0 00000 0 00007        HTR 7                         FRET                               F1P08030    
       01116  0 00000 0 01614        HTR 7TA                       ON TAPE                            F1P08040    
       01117  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE EQUIT.                    F1P08050    
       01120  0 00000 0 00010            8                                                            F1P08060    
       01121  0 00000 0 04551            EQ                                                           F1P08070    
                                         PROGRAM FOR CLASSES OF EQUIVALENCE                           F1P08080    
                                         INITIALIZATION OF ADDRESSES AND STORAGE                      F1P08090    
       01122  0 50000 0 04550 CLEQ   CLA EQM1                      COMPUTE EO ORIGIN PLUS             F1P08100    
       01123  0 77100 0 00022        ARS 18                        NUMBER OF WORDS IN TABLE           F1P08110    
       01124  0 40000 0 01574        ADD L(EQ)                                                        F1P08120    
       01125  0 62100 0 01165        STA B7CLQ                                                        F1P08130    
       01126  0 62100 0 01171        STA B8CLQ                                                        F1P08140    
       01127  0 62100 0 01200        STA B9CLQ                                                        F1P08150    
       01130  0 62100 0 01174        STA B2CLQ                                                        F1P08160    
       01131  0 62100 0 01213        STA B11CLQ                                                       F1P08170    
       01132  0 62100 0 01225        STA C2CLQ                                                        F1P08180    
       01133  0 62100 0 01230        STA C3CLQ                                                        F1P08190    
       01134  0 62100 0 01271        STA A10CLQ                                                       F1P08200    
       01135  0 62100 0 01302        STA A11CLQ                                                       F1P08210    
       01136  0 62100 0 01315        STA A12CLQ                                                       F1P08220    
       01137  0 62100 0 01326        STA A13CLQ                                                       F1P08230    
       01140  0 62100 0 01306        STA A17CLQ                                                       F1P08240    
       01141  0 62100 0 01237        STA C10CLQ                                                       F1P08250    
       01142  0 76000 0 00000 OADDR  CLM                                                              F1P08260    
       01143  0 60200 0 01613        SLW MEEQM1                                                       F1P08270    
       01144  0 60200 0 01575        SLW BOX1                                                         F1P08280    
       01145  0 60200 0 01577        SLW E1CLEQ                                                       F1P08290    
       01146  0 60200 0 01600        SLW E2CLEQ                                                       F1P08300    
       01147  0 60200 0 01601        SLW E3CLEQ                                                       F1P08310    
       01150  0 60200 0 01602        SLW E4CLEQ                                                       F1P08320    
       01151  0 60200 0 01603        SLW E5CLEQ                                                       F1P08330    
       01152  0 53400 2 01142        LXA OADDR,2                                                      F1P08340    
       01153 -0 53400 4 04550        LXD EQM1,4                                                       F1P08350    
       01154  0 60200 2 01614 G2CLQ  SLW MEEQ,2                                                       F1P08360    
       01155  1 77777 2 01156        TXI G1CLQ,2,-1                                                   F1P08370    
       01156  2 00001 4 01154 G1CLQ  TIX G2CLQ,4,1                                                    F1P08380    
       01157  0 50000 0 07740        CLA DECR1                                                        F1P08390    
       01160  0 60100 0 01576        STO BOX2                                                         F1P08400    
                                         INITIALIZATION OF AN EQUIVALENCE CLASS                       F1P08410    
       01161 -0 53400 1 04550 BOCLQ  LXD EQM1,1                    SET INDEX A TO MUM OF WORDS IN EQ  F1P08420    
       01162 -3 00000 1 01454        TXL OUT,1,0                   EXIT FOR EMPTY EQ TABLE            F1P08430    
       01163 -0 53400 2 01576        LXD BOX2,2                    PREPARE TO ENTER                   F1P06440    
       01164  1 77777 2 01165        TXI B7CLQ,2,-1                A WORD IN MEEQ                     F1P08450    
       01165  0 50000 1 00000 B7CLQ  CLA 0,1                       OBTAIN EQ WORD                     F1P06460    
       01166  0 10000 0 01212        TZE B5CLQ                     EXIT FOR DELETED EQ SET            F1P08470    
       01167  0 60100 2 01614        STO MEEQ,2                    SAVE EQ SET IN TABLE MEEQ          F1P08480    
       01170  0 76000 0 00000        CLM                           INDICATE                           F1P08490    
       01171  0 60200 1 00000 B8CLQ  SLW 0,1                       DELETED                            F1P08500    
       01172  1 77777 2 01173        TXI B1CLQ,2,-1                EQ SET                             F1P08510    
       01173 -2 00001 1 00000 B1CLQ  TNX 0,1,1                     EXIT FOR END OF EQ TABLE           F1P08520    
       01174  0 50000 1 00000 B2CLQ  CLA 0,1                       OBTAIN EQ SUBSCRIPT                F1P08530    
       01175 -0 12000 0 01206        TMI B4CLQ                     EXIT FOR END OF EQ SET             F1P08540    
       01176  0 60100 2 01614        STO MEEQ,2                    SAVE REST OF EQ SET                F1P08550    
       01177  1 77777 1 01200        TXI B9CLQ,1,-1                                                   F1P08560    
       01200  0 50000 1 00000 B9CLQ  CLA 0,1                       OBTAIN EQ SYMBOL                   F1P08570    
       01201  1 77777 2 01202        TXI B10CLQ,2,-1                                                  F1P08580    
       01202  0 60100 2 01614 B10CLQ STO MEEQ,2                                                       F1P08590    
       01203  1 77777 2 01204        TXI B3CLQ,2,-1                IN TABLE MEEQ                      F1P08600    
       01204  2 00001 1 01174 B3CLQ  TIX B2CLQ,1,1                                                    F1P08610    
       01205  0 02000 0 00000        TRA **                        EXIT FOR END OF EQ TABLE           F1P08620    
       01206  0 76000 0 00003 B4CLQ  SSP                           SAVE LAST                          F1P08630    
       01207  0 60100 2 01614        STO MEEQ,2                    SUBSCRIPT OF EQ SET                F1P08640    
       01210 -0 63400 2 01576        SXD BOX2,2                    AND ITS MEEQ INDEX                 F1P08650    
       01211  0 02000 0 01220        TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P08660    
       01212  1 77777 1 01213 B5CLQ  TXI B11CLQ,1,-1                                                  F1P08670    
       01213  0 50000 1 00000 B11CLQ CLA 0,1                       LOOP TO                            F1P08680    
       01214  0 12000 0 01216        TPL B6CLQ                     GO THROUGH                         F1P08690    
       01215  2 00001 1 01165        TIX B7CLQ,1,1                 DELETED SET                        F1P08700    
       01216  2 00002 1 01213 B6CLQ  TIX B11CLQ,1,2                                                   F1P08710    
       01217  0 02000 0 01360        TRA END                       EXIT FOR COMPLETELY DELETED EO TABLF1P08720    
                                         COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS                   F1P08730    
       01220 -0 53400 2 01576 C0CLQ  LXD BOX2,2                    INITIALIZE TEST                    F1P06740    
       01221 -0 63400 2 01253        SXD C5CLQ,2                   FOR END OF MEEO TABLE              F1P08750    
       01222 -0 53400 2 01575        LXD BOX1,2                    SET INDEX B TO GET 1ST SYMB OF MEEQF1P08760    
       01223 -0 53400 1 04550 C6CLQ  LXD EQ-1,1                    PREPARE TO SCAN EQ TABLE           F1P08770    
       01224 -0 63400 1 01577 C7CLQ  SXD E1CLEQ,1                  SAVE INDEX OF 1ST WORD OF EQ SET   F1P08760    
       01225  0 50000 1 00000 C2CLQ  CLA 0,1                       OBTAIN EQ WORD                     F1P08790    
       01226 -0 10000 0 01235        TNZ C4CLQ                     SET NOT DELETED                    F1P08800    
       01227  1 77777 1 01230        TXI C3CLQ,1,-1                                                   F1P08810    
       01230  0 50000 1 00000 C3CLQ  CLA 0,1                       LOOP TO GO THRU                    F1P08820    
       01231 -0 12000 0 01233        TMI C1CLQ                     DELETED SET                        F1P08830    
       01232  2 00002 1 01230        TIX C3CLQ,1,2                                                    F1P08840    
       01233  2 00001 1 01224 C1CLQ  TIX C7CLQ,1,1                 EXAMINE NEXT EQ SET                F1P08850    
       01234  0 02000 0 01252        TRA C9CLQ                     EXIT FOR END OF EO TABLE           F1P08860    
       01235  0 60100 0 01603 C4CLQ  STO E5CLEQ                    SAVE EQ SYMBOL                     F1P08870    
       01236  1 77777 1 01237        TXI C10CLQ,1,-1                                                  F1P08880    
       01237  0 50000 1 00000 C10CLQ CLA 0,1                       GET EQ SUBSCRIPT                   F1P08890    
       01240  0 12000 0 01246        TPL C8CLQ                     NOT END OF EQ SET                  F1P08900    
       01241  0 50000 0 01603        CLA E5CLEQ                    GET LAST SYMBOL OF EQ SET          F1P08910    
       01242  0 40200 2 01614        SUB MEEQ,2                    COMPARE WITH MEEQ SYMBOL           F1P08920    
       01243  0 10000 0 01263        TZE A0CLQ                     MATCH                              F1P08930    
       01244  2 00001 1 01224        TIX C7CLQ,1,1                 NO MATCH                           F1P08940    
       01245  0 02000 0 01252        TRA C9CLQ                                                        F1P08950    
       01246  0 50000 0 01603 C8CLQ  CLA E5CLEQ                                                       F1P08960    
       01247  0 40200 2 01614        SUB MEEQ,2                                                       F1P08970    
       01250  0 10000 0 01263        TZE A0CLQ                                                        F1P08980    
       01251  2 00001 1 01225        TIX C2CLQ,1,1                                                    F1P08990    
       01252  1 77776 2 01253 C9CLQ  TXI C5CLQ,2,-2                GET NEXT MEEQ SYMBOL               F1P09000    
       01253  3 00000 2 01223 C5CLQ  TXH C6CLQ,2,**                TEST END OF TABLE MEEQ             F1P09010    
                                          END OF TABLE MEEQ, NO MATCH IN TABLE EQ                     F1P09020    
       01254 -0 53400 2 01576 F2CLQ  LXD BOX2,2                    INDICATE                           F1P09030    
       01255  0 50000 2 01614        CLA MEEQ,2                    END OF SET                         F1P09040    
       01256 -0 76000 0 00003        SSM                           IN TABLE                           F1P09050    
       01257  0 60100 2 01614        STO MEEQ,2                    MEEQ                               F1P09060    
       01260  1 77777 2 01261        TXI F1CLQ,2,-1                INITIALIZE INDEX OF                F1P09070    
       01261 -0 63400 2 01575 F1CLQ  SXD BOX1,2                    NEXT SET IN TABLE MEEO AND         F1P09080    
       01262  0 02000 0 01161        TRA BOCLQ                     INITIALIZE THE SET                 F1P09090    
                                         MEEQ SYMBOL MATCHES EQ SYMBOL                                F1P09100    
       01263  1 00001 1 01264 A0CLQ  TXI A14CLQ,1,1                                                   F1P09110    
       01264 -0 63400 1 01314 A14CLQ SXD A6CLQ,1                   SAVE EO INDEX OF MATCHED SYMBOL    F1P09120    
       01265  2 00001 1 01266        TIX A1CLQ,1,1                                                    F1P09130    
       01266  1 77777 2 01267 A1CLQ  TXI A2CLQ,2,-1                                                   F1P09140    
       01267  0 50000 2 01614 A2CLQ  CLA MEEQ,2                                                       F1P09150    
       01270  0 62100 0 01600        STA E2CLEQ                    SAVE SUBSCRIPT OF MEEQ SYMBOL      F1P09160    
       01271  0 50000 1 00000 A10CLQ CLA 0,1                                                          F1P09170    
       01272  0 62100 0 01601        STA E3CLEQ                    SAVE SUBSCRIPT OF EQ SYMBOL        F1P09160    
       01273 -0 53400 2 01576        LXD BOX2,2                                                       F1P09190    
       01274  1 77777 2 01275        TXI A16CLQ,2,-1                                                  F1P09200    
       01275 -0 63400 2 01356 A16CLQ SXD E1CLQ,2                                                      F1P09210    
       01276  1 00001 2 01277        TXI A15CLQ,2,1                                                   F1P09220    
       01277 -0 12000 0 01313 A15CLQ TMI A9CLQ                     MATCHED SYMBOL IS END OF EQ SET    F1P09230    
       01300  1 77777 2 01301 A4CLQ  TXI A3CLQ,2,-1                LOOP TO TRANSFER                   F1P09240    
       01301 -2 00001 1 00000 A3CLQ  TNX 0,1,1                     TO MEEO SYMBOLS OF                 F1P09250    
       01302  0 50000 1 00000 A11CLQ CLA 0,1                       EQ BELOW MATCHED SYMBOL            F1P09260    
       01303  0 60100 2 01614        STO MEEQ,2                                                       F1P09270    
       01304 -2 00001 1 00000        TNX 0,1,1                                                        F1P09280    
       01305  1 77777 2 01306        TXI A17CLQ,2,-1                                                  F1P09290    
       01306  0 50000 1 00000 A17CLQ CLA 0,1                                                          F1P09300    
       01307 -0 12000 0 01312        TMI A5CLQ                                                        F1P09310    
       01310  0 60100 2 01614        STO MEEQ,2                                                       F1P09320    
       01311  0 02000 0 01300        TRA A4CLQ                                                        F1P09330    
       01312  0 62100 2 01614 A5CLQ  STA MEEQ,2                    SAVE SBSCR OF LAST SYMBOL OF EQ SETF1P09340    
       01313 -0 53400 1 01577 A9CLQ  LXD E1CLEQ,1                                                     F1P09350    
       01314 -3 00000 1 01321 A6CLQ  TXL A8CLQ,1,**                EXIT FOR MATCHED SYMBOL REACHED    F1P09360    
       01315  0 50000 1 00000 A12CLQ CLA 0,1                       LOOP TO TRANSFER                   F1P09370    
       01316  1 77777 2 01317        TXI A7CLQ,2,-1                TO MEEO SYMBOLS OF                 F1P09380    
       01317  0 60100 2 01614 A7CLQ  STO MEEQ,2                    EQ ABOVE MATCHED                   F1P09390    
       01320  1 77777 1 01314        TXI A6CLQ,1,-1                SYMBOL                             F1P09400    
       01321 -0 63400 2 01576 A8CLQ  SXD BOX2,2                                                       F1P09410    
       01322 -0 63400 2 01343        SXD D2CLQ,2                                                      F1P09420    
       01323 -0 63400 2 01336        SXD D4CLQ,2                                                      F1P09430    
       01324 -0 53400 1 01577        LXD E1CLEQ,1                  INDICATE                           F1P09440    
       01325  0 76000 0 00000        CLM                           DELETED                            F1P09450    
       01326  0 60200 1 00000 A13CLQ SLW 0,1                       EQ SET                             F1P09460    
                                         NORMALIZATION OF MEEQ SUBSCRIPTS                             F1P09470    
       01327  0 50000 0 01601        CLA E3CLEQ                    GET EQ SUBSCRIPT                   F1P09480    
       01330  0 40200 0 01600        SUB E2CLEQ                    COMPARE WITH MEEQ SUBSCRIPT        F1P09490    
       01331  0 10000 0 01220        TZE C0CLQ                     SUBSCRIPTS MATCH                   F1P09500    
       01332  0 62100 0 01602        STA E4CLEQ                                                       F1P09510    
       01333  0 12000 0 01350        TPL E0CLQ                                                        F1P09520    
                                         EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT                        F1P09530    
       01334 -0 53400 2 01356        LXD E1CLQ,2                                                      F1P09540    
       01335  1 77777 2 01336        TXI D4CLQ,2,-1                                                   F1P09550    
       01336 -3 00000 2 01344 D4CLQ  TXL D3CLQ,2,**                                                   F1P09560    
       01337  0 50000 2 01614 D1CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPTS               F1P09570    
       01340  0 40000 0 01602        ADD E4CLEQ                    OF NEW SYMBOLS                     F1P09580    
       01341  0 62100 2 01614        STA MEEQ,2                    IN MEEQ SET                        F1P09590    
       01342  1 77776 2 01343        TXI D2CLQ,2,-2                                                   F1P09600    
       01343  3 00000 2 01337 D2CLQ  TXH D1CLQ,2,**                                                   F1P09610    
       01344  0 50000 2 01614 D3CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPT                F1P09620    
       01345  0 40000 0 01602        ADD E4CLEQ                    OF LAST NEW SYMBOL                 F1P09630    
       01346  0 62100 2 01614        STA MEEQ,2                    ENTERED IN MEEQ SET                F1P09640    
       01347  0 02000 0 01220        TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P09650    
                                         EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT                     F1P09660    
       01350 -0 53400 2 01575 E0CLQ  LXD BOX1,2                                                       F1P09670    
       01351  1 77777 2 01352        TXI E2CLQ,2,-1                                                   F1P09680    
       01352  0 50000 2 01614 E2CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPTS               F1P09690    
       01353  0 40000 0 01602        ADD E4CLEQ                    OF OLD SYMBOLS                     F1P09700    
       01354  0 62100 2 01614        STA MEEQ,2                    IN MEEQ SET                        F1P09710    
       01355  1 77776 2 01356        TXI E1CLQ,2,-2                                                   F1P09720    
       01356  3 00000 2 01352 E1CLQ  TXH E2CLQ,2,**                                                   F1P09730    
       01357  0 02000 0 01220        TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P09740    
       01360  0 50000 0 01576 END    CLA BOX2                      COMPUTE                            F1P09750    
       01361  0 76000 0 00006        COM                           NUMBER                             F1P09760    
       01362  0 40000 0 07741        ADD DECR2                     OF WORDS                           F1P09770    
       01363 -0 73400 2 00000        PDX 0,2                       IN TABLE                           F1P09780    
       01364 -0 75400 2 00000        PXD 0,2                       MEEO AND                           F1P09790    
       01365  0 62200 0 01613        STD MEEQM1                    SAVE WITH TABLE                    F1P09800    
                                         REDUNDANCY AND INCONSISTENCY TEST OF EQUIVALENCE SENTENCES   F1P09810    
       01366 -0 53400 2 01576        LXD BOX2,2                    INITIALIZATION                     F1P09820    
       01367 -0 63400 2 01417        SXD M11CLQ,2                  OF                                 F1P09830    
       01370  0 53400 2 01142        LXA OADDR,2                   INDEXING                           F1P09840    
       01371 -0 63400 2 01575        SXD BOX1,2                                                       F1P09850    
       01372 -0 53400 2 01575 M6CLQ  LXD BOX1,2                    OBTAIN                             F1P09860    
       01373  0 50000 2 01614        CLA MEEQ,2                    FIXED                              F1P09870    
       01374  0 60100 0 01577        STO SMBL                      SYMBOL                             F1P09880    
       01375  1 77777 2 01376        TXI M10CLQ,2,-1               AND                                F1P09890    
       01376  0 50000 2 01614 M10CLQ CLA MEEQ,2                    ITS                                F1P09900    
       01377  0 60100 0 01600        STO SBSCR                     SUBSCRIPT                          F1P09910    
       01400  1 77777 2 01401        TXI M1CLQ,2,-1                                                   F1P09920    
       01401  0 50000 2 01614 M1CLQ  CLA MEEQ,2                    GET CHANGING SYMBOL AND            F1P09930    
       01402  0 34000 0 01577        CAS SMBL                      COMPARE WITH FIXED SYMBOL          F1P09940    
       01403  0 02000 0 01405        TRA M2CLQ                     NO MATCH                           F1P09950    
       01404  0 02000 0 01423        TRA K1CLQ                     MATCH                              F1P09960    
       01405  1 77777 2 01406 M2CLQ  TXI M3CLQ,2,-1                HAS END OF CHANGING SYMBOLS        F1P09970    
       01406  0 50000 2 01614 M3CLQ  CLA MEEQ,2                    BEEN REACHED, NO MATCH CASE        F1P09980    
       01407 -0 12000 0 01411        TMI M4CLQ                     YES                                F1P09990    
       01410  1 77777 2 01401        TXI M1CLQ,2,-1                NO                                 F1P10000    
       01411 -0 63400 2 01416 M4CLQ  SXD M7CLQ,2                                                      F1P10010    
       01412 -0 53400 2 01575 M9CLQ  LXD BOX1,2                    PREPARE TO GET                     F1P10020    
       01413  1 77776 2 01414        TXI M5CLQ,2,-2                NEXT  FIXED                        F1P10030    
       01414 -0 63400 2 01575 M5CLQ  SXD BOX1,2                    SYMBOL                             F1P10040    
       01415  1 77777 2 01416        TXI M7CLQ,2,-1                                                   F1P10050    
       01416  3 00000 2 01372 M7CLQ  TXH M6CLQ,2,**                TEST END OF MEEQ SET               F1P10060    
       01417 -3 00000 2 01450 M11CLQ TXL CLQOUT,2,0                                                   F1P10070    
       01420  1 77777 2 01421        TXI M8CLQ,2,-1                                                   F1P10080    
       01421 -0 63400 2 01575 M8CLQ  SXD BOX1,2                                                       F1P10090    
       01422  0 02000 0 01372        TRA M6CLQ                                                        F1P10100    
       01423  1 77777 2 01424 K1CLQ  TXI K2CLQ,2,-1                GET SUBSCRIPT                      F1P10110    
       01424  0 50000 2 01614 K2CLQ  CLA MEEQ,2                    OF CHANGING SYMBOL                 F1P10120    
       01425 -0 12000 0 01443        TMI K4CLQ                     END OF SET REACHED                 F1P10130    
       01426  0 34000 0 01600        CAS SBSCR                     COMPARE SUBSCRIPTS OF MATCHED SYMBLF1P10140    
       01427  0 02000 0 01431        TRA K3CLQ                     NO MATCH, INCONSISTENT CASE        F1P10150    
       01430  1 77777 2 01401        TXI M1CLQ,2,-1                MATCH, REDUNDANT CASE              F1P10160    
       01431 -0 53400 4 01442 K3CLQ  LXD NEWTBL,4                                                     F1P10170    
       01432  3 00000 4 01435        TXH ERSTOR,4,0                                                   F1P10180    
       01433  0 50000 0 07743        CLA FRCON                                                        F1P10190    
       01434  0 60100 0 01614        STO MEEQ                                                         F1P10200    
       01435  0 50000 0 01577 ERSTOR CLA SMBL                                                         F1P10210    
       01436  0 60100 4 01615        STO MEEQ+1,4                                                     F1P10220    
       01437  1 77777 4 01440        TXI SAVIR4,4,-1                                                  F1P10230    
       01440 -0 63400 4 01442 SAVIR4 SXD NEWTBL,4                                                     F1P10240    
       01441  0 02000 0 01412        TRA M9CLQ                     GET NEXT SYMBOL                    F1P10250    
       01442  0 00000 0 00000 NEWTBL HTR 0                                                            F1P10260    
       01443  0 76000 0 00003 K4CLQ  SSP                                                              F1P10270    
       01444  0 34000 0 01600        CAS SBSCR                                                        F1P10280    
       01445  0 02000 0 01431        TRA K3CLQ                                                        F1P10290    
       01446  0 02000 0 01412        TRA M9CLQ                                                        F1P10300    
       01447  0 02000 0 01431        TRA K3CLQ                                                        F1P10310    
       01450 -0 53400 4 01442 CLQOUT LXD NEWTBL,4                                                     F1P10320    
       01451 -3 00000 4 01454        TXL OUT,4,0                                                      F1P10330    
       01452  0 50000 0 07743        CLA FRCON                                                        F1P10340    
       01453  0 60100 4 01615        STO MEEQ+1,4                                                     F1P10350    
       01454  0 07400 1 07656 OUT    TSX WAT00,1                   WRITE EQUIT ON TAPE.               F1P10360    
       01455  0 00000 0 00010            8                                                            F1P10370    
       01456  0 00000 0 01614            MEEQ                                                         F1P10380    
       01457  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE TABLE CLOSUB              F1P10390    
       01460  0 00000 0 00011            9                                                            F1P10400    
       01461  0 00000 0 01614 TOT9       9TA                       ORIGIN OF TABLE 9                  F1P10410    
                                         PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB     F1P10420    
       01462  0 50000 0 01613 RDCTP  CLA 9TA-1                     GET NUMBER OF WORDS IN 9TA         F1P10430    
       01463  0 10000 0 01514        TZE REC07                     EXIT FOR EMPTY TABLE               F1P10440    
       01464 -0 73400 4 00000        PDX 0,4                       SET INDEX C TO NUM OF WORDS IN 9TA F1P10450    
       01465  0 77100 0 00022        ARS 18                        COMPUTE TABLE ORIGIN PLUS          F1P10460    
       01466  0 40000 0 01461        ADD TOT9                      NUMBER OF WORDS IN TABLE           F1P10470    
       01467  0 62100 0 01473        STA REC01                     AND INITIALIZE ADDRESS             F1P10480    
       01470 -0 53400 2 01477        LXD REC03,2                   SET INDEX B TO COMP 1 AND          F1P10490    
       01471 -0 63400 2 01500        SXD REC04,2                   SAVE COMP 1 IN DECR OF REC04       F1P10500    
       01472  0 53400 2 07730 REC00  LXA L(0),2                    SET INDEX B TO ZERO                F1P10510    
       01473  0 50000 4 00000 REC01  CLA 0,4                       GET 9TA WORD AND                   F1P10520    
       01474  0 34000 2 01614 REC02  CAS 9TA,2                     COMPARE WITH 9TA WORD              F1P10530    
       01475  0 02000 0 01477        TRA REC03                     9TA WORDS NOT EQUAL                F1P10540    
       01476  0 02000 0 01505        TRA REC06                     9TA WORDS ARE EQUAL                F1P10550    
       01477  1 77777 2 01500 REC03  TXI REC04,2,-1                TAKE NEXT 9TA WORD                 F1P10560    
       01500  3 00000 2 01474 REC04  TXH REC02,2,**                TEST FOR END OF NEW 9TA TABLE      F1P10570    
       01501 -0 53400 1 01500        LXD REC04,1                   ADD COMP 1 TO DECR OF              F1P10580    
       01502  1 77777 1 01503        TXI REC05,1,-1                REC04 TO ACCOUNT FOR               F1P10590    
       01503 -0 63400 1 01500 REC05  SXD REC04,1                   FOLLOWING ENTRY                    F1P10600    
       01504  0 60100 2 01614        STO 9TA,2                     ENTER UNEQUAL 9TA WORD IN TABLE    F1P10610    
       01505  2 00001 4 01472 REC06  TIX REC00,4,1                 TEST END OF OLD 9TA TABLE          F1P10620    
       01506 -0 53400 4 01500        LXD REC04,4                   GET TWOS COMP OF NUMBER            F1P10630    
       01507 -0 75400 4 00000        PXD 0,4                       OF WORDS ENTERED IN 9TA            F1P10640    
       01510  0 76000 0 00006        COM                           COMPUTE TRUE FIGURE AND            F1P10650    
       01511  0 40000 0 07731        ADD L(1)                      STORE IN 9TA-1                     F1P10660    
       01512 -0 73400 4 00000        PDX 0,4                                                          F1P10670    
       01513 -0 63400 4 01613        SXD 9TA-1,4                                                      F1P10680    
       01514  0 07400 1 07656 REC07  TSX WAT00,1                   WRITE MODIFIED                     F1P10690    
       01515  0 00000 0 00011        HTR 9                         TABLE CLOSUB                       F1P10700    
       01516  0 00000 0 01614        HTR 9TA                       ON TAPE                            F1P10710    
       01517  0 77000 0 00222        WEF 146                       END OF TAPE TABLES FILE            F1P10720    
       01520  0 77200 0 00203        REW 3                                                            F1P10730    
       01521  0 50000 0 01573        CLA WAT99        CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3       F1P10740    
       01522  0 62100 0 07661        STA WAT09                                                        F1P10750    
       01523  0 62100 0 07701        STA WAT05+2                                                      F1P10760    
       01524  0 62100 0 07704        STA WAT07-1                                                      F1P10770    
       01525  0 62100 0 07721        STA WAT08                                                        F1P10780    
       01526  0 50000 0 07703        CLA WAT05+4      NOP                                             F1P10790    
       01527  0 60100 0 07673        STO WAT04-1      OVER COPY IDENTIFICATION                        F1P10800    
       01530  0 60100 0 07674        STO WAT04        OVER COPY WORD COUNT                            F1P10810    
       01531  0 60100 0 07665        STO WAT03-1      OVER STA FOR WORD COUNT                         F1P10820    
       01532  0 50000 0 07752        CLA TP3TRA                                                       F1P10830    
       01533  0 60100 0 07676        STO WAT04+2                                                      F1P10840    
       01534  0 07400 1 07505        TSX TAP00,1      ASSEMBLE NONEXC TABLE                           F1P10850    
       01535  0 00000 0 00016            14                                                           F1P10860    
       01536  0 00000 0 01614            XTA                                                          F1P10870    
       01537  0 07400 1 07656        TSX WAT00,1      WRITE NONEXC TABLE ON TAPE 3                    F1P10880    
       01540  0 00000 0 00016            14                                                           F1P10890    
       01541  0 00000 0 01614            XTA                                                          F1P10900    
       01542  0 07400 1 07505        TSX TAP00,1      ASSEMBLE TSTOPS TABLE                           F1P10910    
       01543  0 00000 0 00017            15                                                           F1P10920    
       01544  0 00000 0 01614            XTA                                                          F1P10930    
       01545  0 07400 1 07656        TSX WAT00,1      WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3      F1P10940    
       01546  0 00000 0 00017            15                                                           F1P10950    
       01547  0 00000 0 01614            XTA                                                          F1P10960    
       01550  0 50000 0 00030        CLA EIFNO                                                        F1P10970    
       01551  0 40000 0 07740        ADD DECR1        SET EIFNO TO LAST ADD IN PROBLEM PLUS 1         F1P10980    
       01552  0 60100 0 00030        STO EIFNO                                                        F1P10990    
       01553 -0 50000 0 07741        CAL DECR2                                                        F1P11000    
       01554  0 76000 0 00006        COM                                                              F1P11010    
       01555  0 32000 0 00020        ANS 16                                                           F1P11020    
       01556  0 50000 0 00034        CLA ENDI4                                                        F1P11030    
       01557  0 34000 0 07731        CAS L(1)                                                         F1P11040    
       01560  0 02000 0 01564        TRA *+4                                                          F1P11050    
       01561  0 50000 0 07741        CLA DECR2                                                        F1P11060    
       01562 -0 60200 0 00020        ORS 16                                                           F1P11070    
       01563  0 02000 0 01571        TRA SPACE                                                        F1P11080    
       01564 -0 75400 0 00000        PXD ,0                                                           F1P11090    
       01565  0 76000 0 00164        SWT 4                                                            F1P11100    
       01566  0 02000 0 01571        TRA SPACE                                                        F1P11110    
       01567  0 50000 0 07741        CLA DECR2                                                        F1P11120    
       01570 -0 60200 0 00020        ORS 16                                                           F1P11130    
       01571  0 76200 0 00221 SPACE  RTB 1                                                            F1P11140    
       01572  0 02000 0 00004        TRA 4                                                            F1P11150    
       01573  0 00000 0 00223 WAT99      147               ADD OF TAPE 3 IN BINARY MODE               F1P11160    
                                         WORKING STORAGE FOR PROGRAM CLEQ                             F1P11170    
       01574  0 00000 0 04551 L(EQ)      EQ                                                           F1P11180    
       01575  0 00000 0 00000 BOX1                                                                    F1P11190    
       01576  0 00000 0 00000 BOX2                                                                    F1P11200    
       01577  0 00000 0 00000 E1CLEQ                                                                  F1P11210    
       01600  0 00000 0 00000 E2CLEQ                                                                  F1P11220    
       01601  0 00000 0 00000 E3CLEQ                                                                  F1P11230    
       01602  0 00000 0 00000 E4CLEQ                                                                  F1P11240    
       01603  0 00000 0 00000 E5CLEQ                                                                  F1P11250    
                                         WORKING STORAGE FOR PROGRAM AMW                              F1P11260    
       01604  0 00000 0 00000 E10                                                                     F1P11270    
       01605  0 00000 0 00000 E11                            AMW2105                                  F1P11280    
       01606  0 00000 0 00000 A1BOX                          AMW 2106                                 F1P11290    
       01607  0 00000 0 00000 A2BOX                          AMW 2305                                 F1P11300    
       01610  0 00000 0 00000 IT1                            AMW 2510                                 F1P11310    
       01611  0 00000 0 00000 E1RFT                                                                   F1P11320    
       01612  0 00000 0 00000 E2RFT                                                                   F1P11330    
                        01613 END1PB ORG 907                                                          F1P11340    
                        01613 XTAM1  BSS 1                                                            F1P11350    
                        01614 XTA    BSS 1500         THIS IS TABLE ASSEMBLY BUFFER OF PART 2         F1P11360    
                                                                                                      F1P11370    
                                                                                                      F1P11380    
                                         704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000.  F1P11390    
                        00000        ORG 0                                                            F1P11400    
       00000  0 00004 0 04550        PZE ORG1PC,,1TOCS                                                F1P11410    
       00001  0 00000 0 07760        PZE END1PC                                                       F1P11420    
                                                                                                      F1P11430    
                                         COMMON TO SECTION ONE PRIME                                  F1P11440    
                                                                                                      F1P11450    
                        04550 ORG1PC ORG 2408                                                         F1P11460    
                        04550 OTAM1  BSS 1            LOCATION OF NUM OF WORDS IN TEIFNO              F1P11470    
                        04551 OTA    BSS 1500         BLOCK FOR ASSEMBLED TEIFNO                      F1P11480    
                                         TABLE ASSEMBLY PROGRAM                                       F1P11490    
       07505  0 77200 0 00204 TAP00  REW 4                                                            F1P11500    
       07506 -0 60000 0 07754        STQ E2A                                                          F1P11510    
       07507 -0 63400 2 07755        SXD E3A,2                                                        F1P11520    
       07510 -0 63400 4 07756        SXD E4A,4                                                        F1P11530    
       07511  0 50000 1 00001        CLA 1,1          GET TABLE NUMBER                                F1P11540    
       07512  0 62100 0 07513        STA TAP00+6                                                      F1P11550    
       07513  0 73400 2 00000        PAX ,2                                                           F1P11560    
       07514  0 76700 0 00001        ALS 1                                                            F1P11570    
       07515  0 40000 1 00001        ADD 1,1          FORM 3I                                         F1P11580    
       07516  0 40000 0 07630        ADD OAD                                                          F1P11590    
       07517  0 62100 0 07574        STA TAP06                                                        F1P11600    
       07520  0 62100 0 07541        STA TAP20                                                        F1P11610    
       07521  0 40000 0 07732        ADD L(2)         FORM INTET + 3I +2                              F1P11620    
       07522  0 62100 0 07531        STA TAP01                                                        F1P11630    
       07523  0 62100 0 07570        STA TAP05                                                        F1P11640    
       07524  0 50000 2 07655        CLA MWN+10,2                                                     F1P11650    
       07525  0 73400 2 00000        PAX ,2           TABLE MAXIMUM                                   F1P11660    
       07526 -0 63400 2 07601        SXD TAP081,2                                                     F1P11670    
       07527 -0 63400 2 07617        SXD OVTEST,2                                                     F1P11680    
       07530  0 53400 2 07730        LXA L(0),2                                                       F1P11690    
       07531  0 53400 4 00000 TAP01  LXA **,4         NO OF BLOCKS OF THIS TABLE ON TAPE 4            F1P11700    
       07532  0 50000 1 00002        CLA 2,1                                                          F1P11710    
       07533  0 62100 0 07561        STA TAP03                                                        F1P11720    
       07534  0 62100 0 07577        STA TAP08                                                        F1P11730    
       07535  0 40200 0 07731        SUB L(1)                                                         F1P11740    
       07536  0 62100 0 07603        STA TAP11                                                        F1P11750    
       07537  0 62100 0 07612        STA TAP12                                                        F1P11760    
       07540 -3 00000 4 07570        TXL TAP05,4,0         TEST FOR NO TAPE RECORDS                   F1P11770    
       07541  0 50000 0 00000 TAP20  CLA **                                                           F1P11780    
       07542  0 62200 0 07622        STD TAP14+1                                                      F1P11790    
       07543 -0 76000 0 00012        RTT                   TURN OFF INDICATOR                         F1P11600    
       07544  3 00000 0 00000        TXH 0,0,0                                                        F1P11810    
       07545  0 76600 0 00333 TAP02  IOD                                                              F1P11820    
       07546 -0 76000 0 00012        RTT                   TEST INDICATOR                             F1P11830    
       07547  1 00001 4 07621        TXI TAP14,4,1         ON                                         F1P11840    
       07550  0 50000 0 07734        CLA L(4)              OFF                                        F1P11850    
       07551  0 60100 0 07757        STO E5A                                                          F1P11860    
       07552  0 76200 0 00224 READ4  RTB 4                                                            F1P11870    
       07553  0 70000 0 07753        CPY E1A               COPY IDENTIFICATION                        F1P11880    
       07554  0 02000 0 07556        TRA TAP025                                                       F1P11890    
       07555  0 07400 4 00004        TSX DIAG,4            EOF MACHINE ERROR                          F1P11900    
       07556  0 50000 0 07753 TAP025 CLA E1A                                                          F1P11910    
       07557  0 40200 1 00001        SUB 1,1               TEST FOR RECORD OF TABLE BEING ASSEMBLED   F1P11920    
       07560 -0 10000 0 07552        TNZ READ4                                                        F1P11930    
       07561  0 70000 2 00000 TAP03  CPY **,2                                                         F1P11940    
       07562  1 77777 2 07617        TXI OVTEST,2,-1                                                  F1P11950    
       07563  0 07400 4 00004        TSX DIAG,4            EOF MACHINE ERROR                          F1P11960    
       07564  2 00001 4 07545        TIX TAP02,4,1                                                    F1P11970    
       07565  0 76600 0 00333 TAP04  IOD                                                              F1P11980    
       07566 -0 76000 0 00012        RTT                                                              F1P11990    
       07567  0 02000 0 07621        TRA TAP14                                                        F1P12000    
       07570  0 50000 0 00000 TAP05  CLA **                                                           F1P12010    
       07571  0 77100 0 00022        ARS 18                                                           F1P12020    
       07572  0 10000 0 07603        TZE TAP11                                                        F1P12030    
       07573  0 73400 4 00000        PAX ,4                                                           F1P12040    
       07574  0 40000 0 00000 TAP06  ADD **                                                           F1P12050    
       07575  0 62100 0 07576        STA TAP07                                                        F1P12060    
       07576  0 50000 4 00000 TAP07  CLA **,4                                                         F1P12070    
       07577  0 60100 2 00000 TAP08  STO **,2                                                         F1P12080    
       07600  1 77777 2 07601        TXI TAP081,2,-1                                                  F1P12090    
       07601 -3 00000 2 07620 TAP081 TXL OVFLOW,2,**                                                  F1P12100    
       07602  2 00001 4 07576 TAP09  TIX TAP07,4,1                                                    F1P12110    
       07603  0 60000 0 00000 TAP11  STZ **                                                           F1P12120    
       07604 -0 75400 2 00000        PXD ,2                                                           F1P12130    
       07605  0 10000 0 07613        TZE TAP13                                                        F1P12140    
       07606  0 77100 0 00022        ARS 18                                                           F1P12150    
       07607  0 76000 0 00006        COM                                                              F1P12160    
       07610  0 40000 0 07731        ADD L(1)                                                         F1P12170    
       07611  0 73400 2 00000        PAX ,2                                                           F1P12180    
       07612 -0 63400 2 00000 TAP12  SXD **,2                                                         F1P12190    
       07613  0 56000 0 07754 TAP13  LDQ E2A                                                          F1P12200    
       07614 -0 53400 2 07755        LXD E3A,2                                                        F1P12210    
       07615 -0 53400 4 07756        LXD E4A,4                                                        F1P12220    
       07616  0 02000 1 00003        TRA 3,1               RETURN TO CALLER                           F1P12230    
       07617  3 00000 2 07561 OVTEST TXH TAP03,2,**                                                   F1P12240    
       07620  0 07400 4 00004 OVFLOW TSX DIAG,4            BUFFER AREA EXCEEDED                       F1P12250    
       07621  0 76400 0 00204 TAP14  BST 4                                                            F1P12260    
       07622  1 00000 2 07623        TXI TAP14+2,2,**                                                 F1P12270    
       07623  0 50000 0 07757        CLA E5A                                                          F1P12280    
       07624  0 40200 0 07731        SUB L(1)                                                         F1P12290    
       07625  0 60100 0 07757        STO E5A                                                          F1P12300    
       07626 -0 10000 0 07552        TNZ READ4                                                        F1P12310    
       07627  0 07400 4 00004        TSX DIAG,4            THREE FAILURES IN READING A RECORD FROM T4 F1P12320    
       07630  0 00000 0 00322 OAD        INTET                                                        F1P12330    
                        07631        BSS 3                                                            F1P12340    
                                         MAXIMUM NUMBER OF WORDS ALLOWED IN VARIOUS TABLES            F1P12350    
       07634  0 00000 0 77634            -100              FMTEFN,   TABLE 17                         F1P12360    
       07635  0 00000 0 77634            -100              CALLFN,   TABLE 16                         F1P12370    
       07636  0 00000 0 77324            -300              TSTOPS,   TABLE 15                         F1P12380    
       07637  0 00000 0 76422            -750              NONEXC,   TABLE 14                         F1P12390    
       07640  0 00000 0 76174            -900              HOLARG,   TABLE 13                         F1P12400    
       07641  0 00000 0 76650            -600              COMMON,   TABLE 12                         F1P12410    
       07642  0 00000 0 76174            -900              SUBDEF,   TABLE 11                         F1P12420    
       07643  0 00000 0 75152 MWN        -1430             FORMAT,   TABLE 10                         F1P12430    
       07644  0 00000 0 75044            -1500             CLOSUB,   TABLE  9                         F1P12440    
       07645  0 00000 0 75044            -1500             EQUIT,    TABLE  8                         F1P12450    
       07646  0 00000 0 76422            -750              FRET,     TABLE  7                         F1P12460    
       07647  0 00000 0 76030            -1000             FORVAL,   TABLE  6                         F1P12470    
       07650  0 00000 0 75044            -1500             FORVAR,   TABLE  5                         F1P12480    
       07651  0 00000 0 75044            -1500             FORTAG,   TABLE  4                         F1P12490    
       07652  0 00000 0 77406            -250              TRAD,     TABLE  3                         F1P12500    
       07653  0 00000 0 76650            -600              TIFGO     TABLE  2                         F1P12510    
       07654  0 00000 0 76422            -750              TDO,      TABLE  1                         F1P12520    
       07655  0 00000 0 76422            -750              TEIFNO,   TABLE  0                         F1P12530    
                                                                                                      F1P12540    
                                         PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE               F1P12550    
       07656 -0 63400 2 07726 WAT00  SXD E1W,2                     START PROGRAM WAT                  F1P12560    
       07657  0 50000 0 07734        CLA L(4)         PREPARE TO COUNT                                F1P12570    
       07660  0 60100 0 07727        STO E2W                       TWO TAPE TESTS                     F1P12580    
       07661  0 76600 0 00222 WAT09  WRS 146                       PREPARE TO WRITE ON TAPE 2         F1P12590    
       07662  0 50000 1 00002        CLA 2,1                       COMPUTE LOCATION OF NUMBER OF WORDSF1P12600    
       07663  0 40200 0 07731        SUB L(1)                      IN TABLE AND INITIALIZE ADDRESSES  F1P12610    
       07664  0 62100 0 07666        STA WAT03                                                        F1P12620    
       07665  0 62100 0 07674        STA WAT04                                                        F1P12630    
       07666  0 50000 0 00000 WAT03  CLA **                        ADDRESS IS NTA-1                   F1P12640    
       07667  0 77100 0 00022        ARS 18                        NUMBER OF WORDS IN TABLE PUT IN    F1P12650    
       07670  0 73400 2 00000        PAX 0,2                       INDEX B                            F1P12660    
       07671  0 40000 1 00002        ADD 2,1                       RESET ADDRESS                      F1P12670    
       07672  0 62100 0 07677        STA WAT05                                                        F1P12680    
       07673  0 70000 1 00001        CPY 1,1                       IDENTIFY TABLE ON TAPE             F1P12690    
       07674  0 70000 0 00000 WAT04  CPY **                        NUM OF WORDS IN TABLE PUT ON TAPE  F1P12700    
       07675  0 40200 1 00002        SUB 2,1                                                          F1P12710    
       07676  0 10000 0 07724        TZE WAT06                     NO ENTRIES IN TABLE                F1P12720    
       07677  0 70000 2 00000 WAT05  CPY 0,2                       ADDR IS NTA + NUM WORDS IN NTA     F1P12730    
       07700  2 00001 2 07677        TIX WAT05,2,1                 COPY LOOP                          F1P12740    
       07701  0 76400 0 00222        BST 146                                                          F1P12750    
       07702 -0 76000 0 00012        RTT                                                              F1P12760    
       07703  0 76100 0 00000        NOP                                                              F1P12770    
       07704  0 76200 0 00222        RDS 146                                                          F1P12780    
       07705  0 70000 0 07754 WAT07  CPY E2A                                                          F1P12790    
       07706  0 02000 0 07705        TRA WAT07                                                        F1P12800    
       07707  0 76100 0 00000        NOP                           E O R                              F1P12810    
       07710  0 76600 0 00333        WRS 219                       E O F                              F1P12820    
       07711 -0 76000 0 00012        RTT                                                              F1P12830    
       07712  0 02000 0 07714        TRA WAT10                     TAPE CHECK ON                      F1P12840    
       07713  0 02000 0 07724        TRA WAT06                     TAPE CHECK OFF                     F1P12850    
       07714  0 50000 0 07727 WAT10  CLA E2W                                                          F1P12860    
       07715  0 40200 0 07731        SUB L(1)                                                         F1P12870    
       07716  0 60100 0 07727        STO E2W                                                          F1P12880    
       07717  0 12000 0 07721        TPL WAT08                                                        F1P12890    
       07720  0 07400 4 00004        TSX DIAG,4                    STOP FOR THIRD TAPE CHECK          F1P12900    
       07721  0 76400 0 00222 WAT08  BST 146                                                          F1P12910    
       07722  0 02000 0 07661        TRA WAT09                                                        F1P12920    
       07723  0 70000 0 07730        CPY L(0)                                                         F1P12930    
       07724 -0 53400 2 07726 WAT06  LXD E1W,2                     RESTORE INDEX B                    F1P12940    
       07725  0 02000 1 00003        TRA 3,1                       RETURN TO MAIN PROGRAM             F1P12950    
                                                                                                      F1P12960    
       07726  0 00000 0 00000 E1W                                                                     F1P12970    
       07727  0 00000 0 00000 E2W                                                                     F1P12980    
       07730  0 00000 0 00000 L(0)       0                                                            F1P12990    
       07731  0 00000 0 00001 L(1)       1                                                            F1P13000    
       07732  0 00000 0 00002 L(2)       2                                                            F1P13010    
       07733  0 00000 0 00003 L(3)       3                                                            F1P13020    
       07734  0 00000 0 00004 L(4)       4                                                            F1P13030    
       07735  0 00000 0 00005 L(5)       5                                                            F1P13040    
       07736  0 00000 0 00010 L(8)       8                                                            F1P13050    
       07737  0 00000 0 00062 L(50)      50                                                           F1P13060    
       07740  0 00001 0 00000 DECR1      0,0,1                                                        F1P13070    
       07741  0 00002 0 00000 DECR2      0,0,2                                                        F1P13080    
       07742 +000000077777      MSK  OCT 77777                     AMWO5O3                            F1P13090    
       07743 +377777777777    FRCON  OCT 377777777777              35 ONES. AMW 1318                  F1P13100    
       07744  0 00000 0 00312 DRL02      202                       LOCATION OF FIRST WORD ON DRUM     F1P13110    
       07745  0 00000 0 00002 TNT2       2                                                            F1P13120    
       07746  0 00000 0 00000 E3                                   NON ERASABLE     0416 TO 0908      F1P13130    
       07747  0 00000 0 00000 E4                                                                      F1P13140    
       07750  0 00000 0 04551 L(0TA)     OTA                                                          F1P13150    
       07751  0 07400 4 00004 TEIFER TSX DIAG,4                                                       F1P13160    
       07752  0 10000 0 07723 TP3TRA TZE WAT06-1                                                      F1P13170    
                        07753 E1A    BSS 1                                                            F1P13180    
                        07754 E2A    BSS 1                                                            F1P13190    
                        07755 E3A    BSS 1                                                            F1P13200    
                        07756 E4A    BSS 1                                                            F1P13210    
                        07757 E5A    BSS 1                                                            F1P13220    
                        07747 E1     SYN E4                                                           F1P13230    
                        07746 E2     SYN E3                                                           F1P13240    
                        07505 TAPOO  SYN TAP00                                                        F1P13250    
                        07656 WATOO  SYN WAT00                                                        F1P13260    
                        07750 L(OTA) SYN L(0TA)                                                       F1P13270    
                        00004 DIAG   SYN 4                                                            F1P13280    
                        03163 COMP   SYN 1TA                                                          F1P13290    
                        03163 2TA    SYN 1TA                                                          F1P13300    
                        03163 3TA    SYN 1TA                                                          F1P13310    
                        07750 TOTO   SYN L(OTA)                                                       F1P13320    
                        04550 EQM1   SYN OTA-1                                                        F1P13330    
                        04551 EQ     SYN OTA                                                          F1P13340    
                        01614 4TA    SYN XTA                                                          F1P13350    
                        01614 5TA    SYN XTA                                                          F1P13360    
                        01614 6TA    SYN XTA                                                          F1P13370    
                        01614 7TA    SYN XTA                                                          F1P13380    
                        01614 9TA    SYN XTA                                                          F1P13390    
                        01613 MEEQM1 SYN XTA-1                                                        F1P13400    
                        01614 MEEQ   SYN XTA                                                          F1P13410    
                        03172 FRTS   SYN XTA+750                                                      F1P13420    
                        03564 FRCHS  SYN XTA+1000                                                     F1P13430    
                        07746 E12    SYN E3                                                           F1P13440    
                        07747 E1RF   SYN E4                                                           F1P13450    
                        01577 SMBL   SYN E1CLEQ                                                       F1P13460    
                        01600 SBSCR  SYN E2CLEQ                                                       F1P13470    
                        03564 16TA   SYN 6TA+1000                                                     F1P13480    
                        00004 1TOCS  SYN 4                                                            F1P13490    
                                                                                                      F1P13500    
                                         THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER F1P13510    
                                         FROM SECTION ONE TO SECTION ONE PRIME.                       F1P13520    
                        00030 EIFNO  SYN 24                                                           F1P13530    
                        00031 ENDI1  SYN 25                                                           F1P13540    
                        00034 ENDI4  SYN 28                                                           F1P13550    
                        00322 INTET  SYN 210                                                          F1P13560    
                        00417 FXCNIX SYN 271                                                          F1P13570    
                        00424 FLCNIX SYN 276                                                          F1P13580    
                        00453 ORGDM1 SYN 299                                                          F1P13590    
                        00455 DIM1IX SYN 301                                                          F1P13600    
                        00460 ORGDM2 SYN 304                                                          F1P13610    
                        00462 DIM2IX SYN 306                                                          F1P13620    
                        00465 ORGDM3 SYN 309                                                          F1P13630    
                        00467 DIM3IX SYN 311                                                          F1P13640    
                        00470 BK     SYN 312                                                          F1P13650    
                        00471 FORSUB SYN 313                                                          F1P13660    
                        00637 BBOX   SYN 415                                                          F1P13670    
                        00640 CIB    SYN 416                                                          F1P13680    
                        07760 END1PC BSS 0                                                            F1P13690    
 A                      00000        END                                                              F1P13700    
                        00001 0   ..
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    1371           0           0           0           0
 LIB       0           0           0           0           0
 COL    1371           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1381                  
0NUMBER OF SYMBOLS,  DEF   421,DEFOP     0,UNDEF     1      
9            ORG 25                                                                       
1                       00031        ORG 25                                                                       
                        77777 ERLIST SYN 32767                                                                    
                        77633 TABLE  SYN ERLIST-100                                                               
                        75435  TRADT SYN ERLIST-1250                                                              
                        75434  BETA  SYN ERLIST-1251                                                              
                        75433 TIFGOT SYN ERLIST-1252                                                              
                        75433 ALPHA  SYN ERLIST-1252                                                              
                        74303 NONEXT SYN ERLIST-1852                                                              
       00031  0 77200 0 00202        REW 2                                                                        
       00032  0 77200 0 00203        REW 3                                                                        
       00033  0 53400 4 01151        LXA IR2,4                                                                    
       00034  0 76200 0 00202 RDFILE RTD 2                   WILL READ ANY KIND OF END FILE MARK                  
       00035  0 70000 0 00000        CPY 0                                                                        
       00036  0 02000 0 00034        TRA RDFILE                                                                   
       00037  2 00001 4 00034        TIX RDFILE,4,1           SPACE OVER 2 FILES AND OVER 1ST RECORD OF           
       00040  0 76200 0 00222        RTB 2                    3RD FILE                                            
       00041  0 76100 0 00000        NOP                                                                          
       00042  0 53400 1 01152        LXA IR4,1                                                                    
       00043  0 70000 1 77634  CP    CPY TABLE+1,1                                                                
       00044  1 00001 1 00043        TXI CP,1,1                                                                   
       00045  0 02000 0 00037        TRA831                  START AGAIN, CANNOT GET END FILE                     
       00046  2 00001 1 00124        TIX FORSUB,1,1          DROP COUNT OF 2ND FILE                               
       00047  0 76200 0 00222  OVER  RTB 2                   SPACE OVER END FILE AFTER FORSUB                     
       00050  0 76200 0 00222        RTB 2                   SPACE OVER FLOCON                                    
       00051  0 76200 0 00222        RTB 2                   SPACE OVER FORMAT                                    
       00052  0 53400 1 01152 RDREC  LXA IR4,1                                                                    
       00053  0 76200 0 00222        RTB 2                                                                        
       00054  0 70000 0 01174        CPY IDENT                                                                    
       00055  0 70000 0 01175        CPY WDCONT                                                                   
       00056  0 70000 1 77633  COPY  CPY TABLE,1             ALTERNATE FOR READING TRAD CPY TRAD,2                
       00057  1 00001 1 00056 CPTXI  TXI COPY,1,1                                       TIX COPYAA,1,1            
       00060  1 77777 4 00056 COPYAA TXI COPY,4,-1                                                                
       00061 -0 75400 1 00000        PXD 0,1                                                                      
       00062  0 02000 0 01254  RDA   TRA PTCH                NOP GOES HERE AFTER SIZ TABLES ARE READ              
       00063  0 40200 0 01175 SUBWDS SUB WDCONT                                                                   
       00064  0 10000 0 00135 RDAAB  TZE SIZ          TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ              
       00065 -0 53400 4 01201        LXD BST,4                                                                    
       00066 -3 00016 4 00072        TXL TRY,4,14                                                                 
       00067  0 56000 0 01174        LDQ IDENT                                                                    
       00070  0 07400 4 01033 BADWC  TSX ERROR,4                                                                  
       00071  0 02000 0 00777        TRA DIAGND                                                                   
       00072  1 00001 4 00073  TRY   TXI RDSXD,4,1                                                                
       00073 -0 63400 4 01201 RDSXD  SXD BST,4                                                                    
       00074  0 76400 0 00202        BST 2                                                                        
       00075  0 02000 0 00052        TRA RDREC                                                                    
       00076  0 60000 0 01201 IDNTFY STZ BST                 FORMAT SIZE AND ALL TAPE TABLES HAVE                 
       00077  0 53400 2 01253        LXA TAPTAB,2            IDENTIFICATION WORD AS FIRST WORD OF                 
       00100  0 50000 0 01174        CLA IDENT               TAPE RECORD, NOT INCLUDED IN WORD                    
       00101  0 34000 2 01253  CAS   CAS TAPTAB,2            COUNT                                                
       00102  0 02000 0 00104        TRA NEXT                                                                     
       00103  0 02000 0 00116        TRA HAVE                                                                     
       00104  2 00002 2 00101  NEXT  TIX CAS,2,2                                                                  
       00105 -0 53400 4 01202        LXD BSTA,4              BACK SPACE RECORD AND TRY AGAIN 15 TIMES             
       00106 -3 00016 4 00112        TXL TRYA,4,14           IF  NECESSARY                                        
       00107  0 56000 0 01174        LDQ IDENT                                                                    
       00110  0 07400 4 01033 NOIDEN TSX ERROR,4                                                                  
       00111  0 02000 0 00777        TRA DIAGND                                                                   
       00112  1 00001 4 00113 TRYA   TXI IDNSXD,4,1                                                               
       00113 -0 63400 4 01202 IDNSXD SXD BSTA,4                                                                   
       00114  0 76400 0 00202        BST 2                                                                        
       00115  0 02000 0 00052        TRA RDREC                                                                    
       00116  0 60000 0 01202 HAVE   STZ BSTA                                                                     
       00117  0 50000 2 01254        CLA TAPTAB+1,2                                                               
       00120  0 62100 0 00121        STA TRA                                                                      
       00121  0 02000 0 00000 TRA    TRA 0                                                                        
       00122  0 76200 0 00222 NOTIFG RTB 2                   IF NO TIFGO ENTRY, IGNORE TRAD ENTRY                 
       00123  0 02000 0 00052        TRA RDREC                                                                    
       00124  2 00002 1 00126 FORSUB TIX SAVEA,1,2                                                                
       00125  0 53400 1 01152        LXA IR4,1                                                                    
       00126 -0 63400 1 00133 SAVEA  SXD TXLA,1                                                                   
       00127  0 53400 1 01152        LXA IR4,1                                                                    
       00130  0 56000 1 77633 LDQA   LDQ TABLE,1                                                                  
       00131  0 07400 4 01066 TSXA   TSX CHECKA,4                                                                 
       00132  1 00002 1 00133        TXI TXLA,1,2                                                                 
       00133 -3 00000 1 00130 TXLA   TXL LDQA,1,0                                                                 
       00134  0 02000 0 00047        TRA OVER                                                                     
       00135 -3 00000 1 00146 SIZ    TXL SETRD,1,0           IF NO ENTRIES, GET NEXT TAPE RECORDS                 
       00136  2 00002 1 00140        TIX SAVEB,1,2           REDUCE WORD COUNT FOR END OF ENTRIES TEST            
       00137  0 53400 1 01152        LXA IR4,1               IF TOO SMALL, SET TO ZERO                            
       00140 -0 63400 1 00145 SAVEB  SXD TXLB,1                                                                   
       00141  0 53400 1 01152        LXA IR4,1               START AT FIRST ENTRY, THAT IS IR IS ZERO             
       00142  0 56000 1 77633 LDQB   LDQ TABLE,1                                                                  
       00143  0 07400 4 01066 TSXB   TSX CHECKA,4                                                                 
       00144  1 00002 1 00145        TXI TXLB,1,2            GET NEXT 2 WORD ENTRY                                
       00145 -3 00000 1 00142  TXLB  TXL LDQB,1,0                                                                 
       00146  0 76200 0 00222 SETRD  RTB 2                   SPACE OVER GAP AT END OF 4TH FILE                    
       00147  0 76200 0 00222        RTB 2                   SPACE OVER 5 WORD END RECORD                         
       00150  0 50000 0 01232        CLA AFTRSZ                                                                   
       00151  0 62100 0 00064        STA RDAAB                                                                    
       00152  0 50000 0 01205        CLA NOP                                                                      
       00153  0 60100 0 00062        STO RDA                 RESET TEST AT END OF READ LOOP                       
       00154  0 02000 0 00052        TRA RDREC                                                                    
       00155 -3 00000 1 00052 SUBARG TXL RDREC,1,0           INITIALIZATION OF END ENTRIES TEST                   
       00156  2 00001 1 00160        TIX SAVEC,1,1                                                                
       00157  0 53400 1 01152        LXA IR4,1                                                                    
       00160 -0 63400 1 00165 SAVEC  SXD TXLC,1                                                                   
       00161  0 53400 1 01152        LXA IR4,1                                                                    
       00162  0 56000 1 77633 LDQC   LDQ TABLE,1                                                                  
       00163  0 07400 4 01066 TSXC   TSX CHECKA,4                                                                 
       00164  1 00001 1 00165        TXI TXLC,1,1            1 WORD ENTRIES                                       
       00165 -3 00000 1 00162 TXLC   TXL LDQC,1,0                                                                 
       00166  0 02000 0 00052        TRA RDREC                                                                    
       00167 -3 00000 1 00200 UPPER  TXL UPPRTB,1,0          INITIALIZE END OF ENTRIES TEST                       
       00170  2 00001 1 00172        TIX SAVED,1,1                                                                
       00171  0 53400 1 01152        LXA IR4,1                                                                    
       00172 -0 63400 1 00177 SAVED  SXD TXLD,1                                                                   
       00173  0 53400 1 01152        LXA IR4,1                                                                    
       00174  0 56000 1 77633 LDQD   LDQ TABLE,1                                                                  
       00175  0 07400 4 01066 TSXD   TSX CHECKA,4                                                                 
       00176  1 00001 1 00177        TXI TXLD,1,1            1 WORD ENTRIES                                       
       00177 -3 00000 1 00174 TXLD   TXL LDQD,1,0                                                                 
       00200  0 76200 0 00222 UPPRTB RTB 2                   NO SCAN OF HOLARG RECORD                             
       00201  0 02000 0 00052        TRA RDREC                                                                    
       00202 -3 00000 1 00052 TEIFNO TXL RDREC,1,0           INITIALIZE END OF ENTRIES TEST                       
       00203  2 00001 1 00205        TIX SAVEE,1,1                                                                
       00204  0 53400 1 01152        LXA IR4,1                                                                    
       00205 -0 63400 1 00214 SAVEE  SXD TXLE,1                                                                   
       00206  0 53400 1 01152        LXA IR4,1                                                                    
       00207  0 50000 1 77633 CLAE   CLA TABLE,1             MINUS ENTRY MEANS BETA IS                            
       00210  0 12000 0 00213        TPL TSTE                DUPLICATED IN SOURCE PROGRAM                         
       00211  0 56000 1 77633        LDQ TABLE,1                                                                  
       00212  0 07400 4 01033 TSXE   TSX ERROR,4                                                                  
       00213  1 00001 1 00214 TSTE   TXI TXLE,1,1                                                                 
       00214 -3 00000 1 00207 TXLE   TXL CLAE,1,0                                                                 
       00215  0 50000 0 01164        CLA ADTIFG                                                                   
       00216  0 62100 0 00056        STA COPY                                                                     
       00217  0 02000 0 00052        TRA RDREC                                                                    
       00220 -3 00000 1 01260 TIFGO  TXL PATIF,1,0           IF NO ENTRIES, IGNORE TRAD IDENTIFICATION            
       00221  2 00002 1 00223        TIX SAVEF,1,2                                                                
       00222  0 53400 1 01152        LXA IR4,1                                                                    
       00223 -0 63400 1 00310 SAVEF  SXD TXLF,1                                                                   
       00224  0 50000 0 01165        CLA ADTRAD              SET READ LOOP TO READ TRAD                           
       00225  0 60100 0 00056        STO COPY                UPWARDS IN MEMORY. BUT                               
       00226  0 50000 0 01166        CLA CPTRAD              KEEP TRACK OF WORD COUNT                             
       00227  0 62100 0 00057        STA CPTXI               AS USUAL                                             
       00230  0 53400 4 01152        LXA IR4,4                                                                    
       00231  0 02000 0 00052        TRA RDREC                                                                    
       00232  0 50000 0 01163 TRAD   CLA ADTABL              RESTORE COPY LOOP                                    
       00233  0 60100 0 00056        STO COPY                                                                     
       00234  0 50000 0 00060        CLA COPYAA                                                                   
       00235  0 62100 0 00057        STA CPTXI                                                                    
       00236  1 77777 4 00237        TXI SXDG,4,-1                                                                
       00237 -0 63400 4 00572 SXDG   SXD BETANB,4            SAVE NUMBER OF ENTRIES IN BETA TABLE                 
       00240  0 50000 0 00030        CLA 24                  ADD ONE TO LAST TEIFNO                               
       00241  0 76100 0 00000        NOP                     GET LAST TEIFNO                                      
       00242  0 77100 0 00022        ARS 18                                                                       
       00243  0 60000 0 75434        STZ BETA                                                                     
       00244  0 62100 0 75434        STA BETA                                                                     
       00245  0 76200 0 00223        RTB 3                                                                        
       00246  0 53400 2 01152        LXA IR4,2               READ IN TABLE OF NON EXECUTABLE                      
       00247  0 70000 0 00000 CPNON  CPY 0                   STATEMENTS AND SAVE                                  
       00250 -0 53400 4 00000        LXD 0,4                 DECREMENT OF TABLE IN                                
       00251  0 02000 0 00253        TRA PXDH                ADDRESS OF MEMORY                                    
       00252  0 02000 0 00257        TRA SAVXNB                                                                   
       00253 -0 75400 4 00000 PXDH   PXD 0,4                                                                      
       00254  0 77100 0 00022        ARS 18                                                                       
       00255  0 60100 2 74303        STO NONEXT,2                                                                 
       00256  1 00001 2 00247        TXI CPNON,2,1                                                                
       00257  2 00001 2 00261 SAVXNB TIX SAVEH,2,1           SET END OF ENTRIES TEST                              
       00260  0 53400 2 01152        LXA IR4,2                                                                    
       00261 -0 63400 2 01055 SAVEH  SXD TXLH,2              SET END OF ENTRIES TEST                              
       00262  0 53400 1 01152        LXA IR4,1                                                                    
       00263  0 50000 1 75433 CLAF   CLA TIFGOT,1            SAVE ALPHA IN CASE OF ERROR, AND                     
       00264  0 77100 0 00022        ARS 18                  ALSO TO PUT IN ALPHA TABLE AT                        
       00265  0 62100 0 01170        STA ALFA                END OF PROCESSING EACH KIND OF TIFGO                 
       00266  0 50000 1 75433        CLA TIFGOT,1            DETERMINE KIND OF ENTRY                              
       00267 -0 12000 0 00312        TMI TIFMI                                                                    
       00270  0 73400 2 00000        PAX 0,2                                                                      
       00271 -3 00000 2 00345        TXL TIFZRO,2,0                                                               
       00272 -3 00001 2 00363        TXL TIFGO1,2,1                                                               
       00273 -3 00002 2 00410        TXL TIFGO2,2,2                                                               
       00274 -3 00003 2 00435        TXL TIFGO3,2,3                                                               
       00275 -3 00004 2 00461        TXL TIFGO4,2,4                                                               
       00276 -3 00005 2 00505        TXL TIFGO5,2,5                                                               
       00277 -3 00006 2 00531        TXL TIFGO6,2,6                                                               
       00300  0 56000 1 75433        LDQ TIFGOT,1            NOT IDENTIFYABLE, SAVE IN ERROR                      
       00301  0 07400 4 01033 WHATIF TSX ERROR,4             TABLE,  BUT PUT ALPHA IN TABLE ANYWAY                
       00302 -0 53400 4 00635 NXTIFG LXD ALFANB,4            STORE ALPHA IN TABLE                                 
       00303  0 50000 0 01170        CLA ALFA                                                                     
       00304  0 60100 4 75433        STO ALPHA,4                                                                  
       00305  1 00001 4 00306        TXI FSAVE,4,1                                                                
       00306 -0 63400 4 00635 FSAVE  SXD ALFANB,4                                                                 
       00307  1 00002 1 00310 RETIF6 TXI TXLF,1,2     TYPE 6  TIFGO ENTRIES DO  NOT  GO IN                        
       00310 -3 00000 1 00263 TXLF   TXL CLAF,1,0     ALPHA TABLE                                                 
       00311  0 02000 0 00536        TRA STOPS        WHEN TIFGO FINISHED,  READ IN  STOPS                        
       00312 -0 32000 0 01157 TIFMI  ANA ADDMSK                                                                   
       00313 -0 10000 0 00316        TNZ SAVEB1       IF  BETA IS ZERO,  THERE WAS NO ENTRY                       
       00314  0 07400 4 01022 MINB1  TSX NOBETA,4     CORRESPONDING  TO  IT  IN COL 1  TO 5  OF                   
       00315  0 02000 0 00321        TRA NOWB2        SOURCE  PROGRAM, SKIP  REST OF PROCESSING                   
       00316  0 07400 4 01047 SAVEB1 TSX ISNONX,4     IF  BETA IS NOT EXECUTABLE, DO NOT  PUT  IN                 
       00317 -0 12000 0 00321        TMI NOWB2        BETA TABLE                                                  
       00320  0 07400 4 01131        TSX MORBTS,4                                                                 
       00321  0 50000 1 75432 NOWB2  CLA TIFGOT-1,1                                                               
       00322  0 77100 0 00022        ARS 18                                                                       
       00323 -0 32000 0 01157        ANA ADDMSK                                                                   
       00324 -0 10000 0 00327        TNZ SAVEB2                                                                   
       00325  0 07400 4 01022 MINB2  TSX NOBETA,4                                                                 
       00326  0 02000 0 00332        TRA NOWB3                                                                    
       00327  0 07400 4 01047 SAVEB2 TSX ISNONX,4                                                                 
       00330 -0 12000 0 00332        TMI NOWB3                                                                    
       00331  0 07400 4 01131        TSX MORBTS,4                                                                 
       00332  0 50000 1 75432 NOWB3  CLA TIFGOT-1,1                                                               
       00333 -0 32000 0 01157        ANA ADDMSK                                                                   
       00334 -0 10000 0 00337        TNZ SAVEB3                                                                   
       00335  0 07400 4 01022 MINB3  TSX NOBETA,4                                                                 
       00336  0 02000 0 00342        TRA ALFAD1                                                                   
       00337  0 07400 4 01047 SAVEB3 TSX ISNONX,4                                                                 
       00340 -0 12000 0 00342        TMI ALFAD1                                                                   
       00341  0 07400 4 01131        TSX MORBTS,4                                                                 
       00342  0 50000 0 01156 ALFAD1 CLA DECTRE                                                                   
       00343  0 62200 0 01170        STD ALFA                                                                     
       00344  0 02000 0 00302        TRA NXTIFG                                                                   
       00345  0 50000 1 75432 TIFZRO CLA TIFGOT-1,1                                                               
       00346 -0 32000 0 01157        ANA ADDMSK                                                                   
       00347 -0 10000 0 00352        TNZ TIFOB                                                                    
       00350  0 07400 4 01022 TSXTFO TSX NOBETA,4                                                                 
       00351  0 02000 0 00355        TRA NEXTI        KEEP TRACK OF NUMBER OF BETAS                               
       00352  0 07400 4 01047 TIFOB  TSX ISNONX,4                                                                 
       00353 -0 12000 0 00355        TMI NEXTI                                                                    
       00354  0 07400 4 01131        TSX MORBTS,4                                                                 
       00355  0 50000 1 75432 NEXTI  CLA TIFGOT-1,1   DO NOT PUT IN ALPHA TABLE IF                                
       00356 -0 73400 4 00000        PDX 0,4          ENTRY BY IRV FOR SAP INSTRUCTIONS                           
       00357  3 00000 4 00307        TXH RETIF6,4,0                                                               
       00360  0 50000 0 01154        CLA DECONE                                                                   
       00361  0 62200 0 01170        STD ALFA                                                                     
       00362  0 02000 0 00302        TRA NXTIFG                                                                   
       00363  0 60000 0 01172 TIFGO1 STZ TRADNB                                                                   
       00364  0 50000 1 75432 CLAJ   CLA TIFGOT-1,1   PREPARE TO READ RELATED TRAD ENTRIES                        
       00365 -0 73400 2 00000        PDX 0,2                                                                      
       00366  0 76700 0 00022        ALS 18                                                                       
       00367  0 62200 0 00404        STD TXHJ                                                                     
       00370  0 50000 2 76027 MORTR  CLA TRADT+250,2                                                              
       00371 -0 10000 0 00374        TNZ TRADX1                                                                   
       00372  0 07400 4 01022 BTIFG1 TSX NOBETA,4                                                                 
       00373  0 02000 0 00400        TRA ADDJ                                                                     
       00374  0 07400 4 01047 TRADX1 TSX ISNONX,4     IF TRAD IS NON EXECUTABLE, MAKE ENTRY                       
       00375  0 12000 0 00400        TPL ADDJ         FAIL ANY ALPHA PLUS 1 SEARCH LATER ON                       
       00376  0 50000 0 01154        CLA DECONE       BY PUTING NUMBER IN DECFIELD                                
       00377  0 62200 2 76027        STD TRADT+250,2  BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN                  
       00400  0 50000 0 01172 ADDJ   CLA TRADNB                                                                   
       00401  0 40000 0 01154        ADD DECONE                                                                   
       00402  0 60100 0 01172        STO TRADNB                                                                   
       00403  1 77777 2 00404        TXI TXHJ,2,-1                                                                
       00404  3 00000 2 00370 TXHJ   TXH MORTR,2,0                                                                
       00405  0 50000 0 01172        CLA TRADNB                                                                   
       00406  0 62200 0 01170        STD ALFA                                                                     
       00407  0 02000 0 00302        TRA NXTIFG                                                                   
       00410  0 60000 0 01172 TIFGO2 STZ TRADNB                                                                   
       00411  0 50000 1 75432 CLAK   CLA TIFGOT-1,1                                                               
       00412 -0 73400 2 00000        PDX 0,2                                                                      
       00413  0 76700 0 00022        ALS 18                                                                       
       00414  0 62200 0 00431        STD TXHK                                                                     
       00415  0 50000 2 76027 MORTRD CLA TRADT+250,2                                                              
       00416 -0 10000 0 00421        TNZ TRADX2                                                                   
       00417  0 07400 4 01022 BTIFG2 TSX NOBETA,4                                                                 
       00420  0 02000 0 00425        TRA ADDK                                                                     
       00421  0 07400 4 01047 TRADX2 TSX ISNONX,4                                                                 
       00422  0 12000 0 00425        TPL ADDK                                                                     
       00423  0 50000 0 01154        CLA DECONE                                                                   
       00424  0 62200 2 76027        STD TRADT+250,2                                                              
       00425  0 50000 0 01172 ADDK   CLA TRADNB                                                                   
       00426  0 40000 0 01154        ADD DECONE                                                                   
       00427  0 60100 0 01172        STO TRADNB                                                                   
       00430  1 77777 2 00431        TXI TXHK,2,-1                                                                
       00431  3 00000 2 00415 TXHK   TXH MORTRD,2,0                                                               
       00432  0 50000 0 01172        CLA TRADNB                                                                   
       00433  0 62200 0 01170        STD ALFA                                                                     
       00434  0 02000 0 00302        TRA NXTIFG                                                                   
       00435  0 50000 1 75432 TIFGO3 CLA TIFGOT-1,1                                                               
       00436  0 77100 0 00022        ARS 18                                                                       
       00437 -0 32000 0 01157        ANA ADDMSK                                                                   
       00440 -0 10000 0 00443        TNZ TIF3B1                                                                   
       00441  0 07400 4 01022 B1TIF3 TSX NOBETA,4                                                                 
       00442  0 02000 0 00446        TRA NEXTL                                                                    
       00443  0 07400 4 01047 TIF3B1 TSX ISNONX,4                                                                 
       00444 -0 12000 0 00446        TMI NEXTL                                                                    
       00445  0 07400 4 01131        TSX MORBTS,4                                                                 
       00446  0 50000 1 75433 NEXTL  CLA TIFGOT-1*,1                                                              
       00447 -0 32000 0 01157        ANA ADDMSK                                                                   
       00450 -0 10000 0 00453        TNZ TIF3B2                                                                   
       00451  0 07400 4 01022 B2TIF3 TSX NOBETA,4                                                                 
       00452  0 02000 0 00456        TRA ADDL                                                                     
       00453  0 07400 4 01047 TIF3B2 TSX ISNONX,4                                                                 
       00454 -0 12000 0 00456        TMI ADDL                                                                     
       00455  0 07400 4 01131        TSX MORBTS,4                                                                 
       00456  0 50000 0 01155 ADDL   CLA DECTWO                                                                   
       00457  0 62200 0 01170        STD ALFA                                                                     
       00460  0 02000 0 00302        TRA NXTIFG                                                                   
       00461  0 50000 1 75432 TIFGO4 CLA TIFGOT-1,1                                                               
       00462  0 77100 0 00022        ARS 18                                                                       
       00463 -0 32000 0 01157        ANA ADDMSK                                                                   
       00464 -0 10000 0 00467        TNZ TIF4B1                                                                   
       00465  0 07400 4 01022 B1TIF4 TSX NOBETA,4                                                                 
       00466  0 02000 0 00472        TRA NEXTM                                                                    
       00467  0 07400 4 01047 TIF4B1 TSX ISNONX,4                                                                 
       00470 -0 12000 0 00472        TMI NEXTM                                                                    
       00471  0 07400 4 01131        TSX MORBTS,4                                                                 
       00472  0 50000 1 75432 NEXTM  CLA TIFGOT-1,1                                                               
       00473 -0 32000 0 01157        ANA ADDMSK                                                                   
       00474 -0 10000 0 00477        TNZ TIF4B2                                                                   
       00475  0 07400 4 01022 B2TIF4 TSX NOBETA,4                                                                 
       00476  0 02000 0 00502        TRA ADDM                                                                     
       00477  0 07400 4 01047 TIF4B2 TSX ISNONX,4                                                                 
       00500 -0 12000 0 00502        TMI ADDM                                                                     
       00501  0 07400 4 01131        TSX MORBTS,4                                                                 
       00502  0 50000 0 01155 ADDM   CLA DECTWO                                                                   
       00503  0 62200 0 01170        STD ALFA                                                                     
       00504  0 02000 0 00302        TRA NXTIFG                                                                   
       00505  0 50000 1 75432 TIFGO5 CLA TIFGOT-1,1                                                               
       00506  0 77100 0 00022        ARS 18                                                                       
       00507 -0 32000 0 01157        ANA ADDMSK                                                                   
       00510 -0 10000 0 00513        TNZ TIF5B1                                                                   
       00511  0 07400 4 01022 B1TIF5 TSX NOBETA,4                                                                 
       00512  0 02000 0 00516        TRA NEXTN                                                                    
       00513  0 07400 4 01047 TIF5B1 TSX ISNONX,4                                                                 
       00514 -0 12000 0 00516        TMI NEXTN                                                                    
       00515  0 07400 4 01131        TSX MORBTS,4                                                                 
       00516  0 50000 1 75432 NEXTN  CLA TIFGOT-1,1                                                               
       00517 -0 32000 0 01157        ANA ADDMSK                                                                   
       00520 -0 10000 0 00523        TNZ TIF5B2                                                                   
       00521  0 07400 4 01022 B2TIF5 TSX NOBETA,4                                                                 
       00522  0 02000 0 00526        TRA ADDN                                                                     
       00523  0 07400 4 01047 TIF5B2 TSX ISNONX,4                                                                 
       00524 -0 12000 0 00526        TMI ADDN                                                                     
       00525  0 07400 4 01131        TSX MORBTS,4                                                                 
       00526  0 50000 0 01155 ADDN   CLA DECTWO                                                                   
       00527  0 62200 0 01170        STD ALFA                                                                     
       00530  0 02000 0 00302        TRA NXTIFG                                                                   
       00531  0 50000 1 75432 TIFGO6 CLA TIFGOT-1,1                                                               
       00532 -0 32000 0 01157        ANA ADDMSK                                                                   
       00533 -0 10000 0 00307        TNZ RETIF6                                                                   
       00534  0 07400 4 01022 TIF6B  TSX NOBETA,4                                                                 
       00535  0 02000 0 00307        TRA RETIF6                                                                   
       00536  0 76200 0 00223 STOPS  RTB 3                                                                        
       00537 -0 53400 1 00635        LXD ALFANB,1     LOAD NUMBER ALREADY IN ALPHA TABLE                          
       00540  0 70000 0 00000 CPSTOP CPY 0            READ TABLE OF STOPS INTO REST OF                            
       00541 -0 53400 4 00000        LXD 0,4          ALPHA TABLE, PUT DECREMENT OF                               
       00542  0 02000 0 00544        TRA PDXP         TAPE TABLE INTO ADDRESS OF MEMORY                           
       00543  0 02000 0 00550        TRA TIXP                                                                     
       00544 -0 75400 4 00000 PDXP   PXD 0,4                                                                      
       00545  0 77100 0 00022        ARS 18                                                                       
       00546  0 60100 1 75433        STO ALPHA,1                                                                  
       00547  1 00001 1 00540        TXI CPSTOP,1,1                                                               
       00550  2 00001 1 00552 TIXP   TIX NEXTP,1,1                                                                
       00551  0 53400 1 01152        LXA IR4,1                                                                    
       00552 -0 63400 1 00600 NEXTP  SXD ENDALF,1                                                                 
       00553 -0 63400 1 00635        SXD ALFANB,1                                                                 
       00554 -0 63400 1 00754        SXD FRETST,1                                                                 
       00555  0 50000 0 01167        CLA CHNONX       RESET ISNONX ROUTINE SO IT IS                               
       00556  0 62100 0 01053        STA YESNOX       MERELY INFORMATIVE AND DOES NOT                             
       00557  0 53400 1 01152        LXA IR4,1        MAKE ENTRIES IN ERROR TABLE                                 
       00560  0 50000 1 75433 CLAQ   CLA ALPHA,1                                                                  
       00561  0 02000 0 01271 QADD   TRA PAQADD                                                                   
       00562  0 60000 0 01170 ADDQ   STZ ALFA                                                                     
       00563  0 62100 0 01170        STA ALFA                                                                     
       00564  0 53400 2 01152        LXA IR4,2                                                                    
       00565  0 50000 2 75434 NXTBTA CLA BETA,2                                                                   
       00566  0 34000 0 01170        CAS ALFA                                                                     
       00567  0 02000 0 00571        TRA NEXTQ                                                                    
       00570  0 02000 0 00577        TRA NXTALF                                                                   
       00571  1 77777 2 00572 NEXTQ  TXI BETANB,2,-1                                                              
       00572  3 00000 2 00565 BETANB TXH NXTBTA,2,0                                                               
       00573  0 50000 0 01170        CLA ALFA                                                                     
       00574  0 07400 4 01047        TSX ISNONX,4     IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA                  
       00575 -0 12000 0 00602        TMI ALAND1       TABLE FOR ALPHA +2 ETC                                      
       00576  0 07400 4 01022 NOTRA  TSX NOBETA,4     NOT EITHER TABLE,  PART OF PROG NOT ENTERED                 
       00577  1 00001 1 00600 NXTALF TXI ENDALF,1,1                                                               
       00600 -3 00000 1 00560 ENDALF TXL CLAQ,1,0                                                                 
       00601  0 02000 0 00052        TRA RDREC                                                                    
       00602  0 50000 0 01170 ALAND1 CLA ALFA                                                                     
       00603  0 02000 0 00561        TRA QADD                                                                     
       00604 -3 00000 1 00723 TDO    TXL SPACES,1,0                                                               
       00605  2 00005 1 00607        TIX SAVES,1,5    INITIALIZE END OF ENTRIES TEST                              
       00606  0 53400 1 01152        LXA IR4,1                                                                    
       00607 -0 63400 1 00722 SAVES  SXD TXLS,1                                                                   
       00610  0 53400 1 01152        LXA IR4,1                                                                    
       00611  0 50000 1 77633 CLADO  CLA TABLE,1                                                                  
       00612 -0 32000 0 01160        ANA TAGMSK       SAVE TAG FIELD FOR PROCESSING N1,N2,N3                      
       00613  0 76700 0 00022        ALS 18                                                                       
       00614  0 63000 0 01203        STP DOTAG                                                                    
       00615  0 50000 1 77633        CLA TABLE,1      SAVE ALPHA IN CASE OF ERROR                                 
       00616  0 77100 0 00022        ARS 18                                                                       
       00617  0 62100 0 01170        STA ALFA                                                                     
       00620  0 50000 1 77633        CLA TABLE,1                                                                  
       00621 -0 32000 0 01157        ANA ADDMSK                                                                   
       00622 -0 10000 0 00625        TNZ BINTIF                                                                   
       00623  0 07400 4 01022 DONOBT TSX NOBETA,4                                                                 
       00624  0 02000 0 00643        TRA DOALF                                                                    
       00625  0 53400 2 01152 BINTIF LXA IR4,2        IS BETA IN DO TABLE A CONDITIONAL                           
       00626  0 60100 0 01204        STO DOBETA       TRANSFER, THAT IS, IS IT IN ALPHA TABLE                     
       00627  0 50000 2 75433 SCLA   CLA ALPHA,2                                                                  
       00630 -0 32000 0 01157        ANA ADDMSK       MASK OUT NUMBER OF BRANCHES                                 
       00631  0 34000 0 01204        CAS DOBETA                                                                   
       00632  0 02000 0 00634        TRA TIXS                                                                     
       00633  0 02000 0 00727        TRA CONBET       THIS IS AN ERROR                                            
       00634  1 00001 2 00635 TIXS   TXI ALFANB,2,1                                                               
       00635 -3 00000 2 00627 ALFANB TXL SCLA,2,0                                                                 
       00636  0 50000 0 01204        CLA DOBETA                                                                   
       00637  0 07400 4 01047        TSX ISNONX,4                                                                 
       00640  0 12000 0 00643        TPL DOALF        IF BETA IN TO IS NON EXECUTABLE THIS                        
       00641  0 07400 4 01022 DOBTNX TSX NOBETA,4                                                                 
       00642  0 07400 4 01141        TSX ADOB,4                                                                   
       00643  0 50000 0 01170 DOALF  CLA ALFA                                                                     
       00644 -0 32000 0 01157        ANA ADDMSK       CLEAR ANY HASH LEFT FROM ERROR RECODING                     
       00645  0 40000 0 01153        ADD ADDONE                                                                   
       00646  0 07400 4 01047        TSX ISNONX,4     IF ALPHA PLUS 1 IS NON EXECUTABLE                           
       00647  0 12000 0 00652        TPL DOSYMB       THIS IS ERROR                                               
       00650  0 07400 4 01022 DOALNX TSX NOBETA,4                                                                 
       00651  0 07400 4 01141        TSX ADOB,4                                                                   
       00652  0 56000 1 77632 DOSYMB LDQ TABLE-1,1    DOES SYMBOL CONTAIN ANY ILLEGAL                             
       00653  0 07400 4 01066 PUNSYM TSX CHECKA,4     PUNCTUATION                                                 
       00654  0 12000 0 00656        TPL IJKSYM                                                                   
       00655  0 07400 4 01141        TSX ADOB,4                                                                   
       00656  0 07400 4 01113 IJKSYM TSX CHECKB,4     DOES SYMBOL BEGIN WITH IJKLM OR N                           
       00657  0 12000 0 00661        TPL NL                                                                       
       00660  0 07400 4 01141        TSX ADOB,4                                                                   
       00661 -0 50000 0 01203 NL     CAL DOTAG                                                                    
       00662 -0 76000 0 00001        PBT                                                                          
       00663  0 02000 0 00674        TRA N2+1         NO                                                          
       00664  0 56000 1 77631        LDQ TABLE-2,1    YES                                                         
       00665  0 07400 4 01066 PUNN1  TSX CHECKA,4                                                                 
       00666  0 12000 0 00670        TPL IJKN1                                                                    
       00667  0 07400 4 01141        TSX ADOB,4                                                                   
       00670  0 07400 4 01113 IJKN1  TSX CHECKB,4                                                                 
       00671  0 12000 0 00673        TPL N2                                                                       
       00672  0 07400 4 01141        TSX ADOB,4                                                                   
       00673 -0 50000 0 01203 N2     CAL DOTAG                                                                    
       00674  0 76700 0 00001        ALS 1                                                                        
       00675 -0 76000 0 00001        PBT                                                                          
       00676  0 02000 0 00706        TRA N3                                                                       
       00677  0 56000 1 77630        LDQ TABLE-3,1                                                                
       00700  0 07400 4 01066 PUNN2  TSX CHECKA,4                                                                 
       00701  0 12000 0 00703        TPL IJKN2                                                                    
       00702  0 07400 4 01141        TSX ADOB,4                                                                   
       00703  0 07400 4 01113 IJKN2  TSX CHECKB,4                                                                 
       00704  0 12000 0 00706        TPL N3                                                                       
       00705  0 07400 4 01141        TSX ADOB,4                                                                   
       00706 -0 50000 0 01203 N3     CAL DOTAG                                                                    
       00707  0 76700 0 00002        ALS 2                                                                        
       00710 -0 76000 0 00001        PBT                                                                          
       00711  0 02000 0 00721        TRA NXTDO                                                                    
       00712  0 56000 1 77627        LDQ TABLE-4,1                                                                
       00713  0 07400 4 01066 PUNN3  TSX CHECKA,4                                                                 
       00714  0 12000 0 00716        TPL IJKN3                                                                    
       00715  0 07400 4 01141        TSX ADOB,4                                                                   
       00716  0 07400 4 01113 IJKN3  TSX CHECKB,4                                                                 
       00717  0 12000 0 00721        TPL NXTDO                                                                    
       00720  0 07400 4 01141        TSX ADOB,4                                                                   
       00721  1 00005 1 00722 NXTDO  TXI TXLS,1,5                                                                 
       00722 -3 00000 1 00611 TXLS   TXL CLADO,1,0                                                                
       00723  0 76200 0 00222 SPACES RTB 2            SPACE OVER FORVAL                                           
       00724  0 76200 0 00222        RTB 2            SPACE OVER FORVAR                                           
       00725  0 76200 0 00222        RTB 2            SPACE OVER FORTAG                                           
       00726  0 02000 0 00052        TRA RDREC                                                                    
       00727  0 07400 4 01022 CONBET TSX NOBETA,4                                                                 
       00730  0 07400 4 01141        TSX ADOB,4                                                                   
       00731  0 02000 0 00643        TRA DOALF        AND TEST ALPHA                                              
       00732 -3 00002 1 00052 FRET   TXL RDREC,1,2    GO THRO THIS TABLE FROM LAST TO FIRST                       
       00733  0 53400 2 01152 NEXTT  LXA IR4,2                                                                    
       00734  0 50000 1 77634 CLAT   CLA TABLE+1,1                                                                
       00735 -0 12000 0 00740        TMI NEWFRT                                                                   
       00736  1 00001 2 00737        TXI TNEXT,2,1                                                                
       00737  2 00001 1 00734 TNEXT  TIX CLAT,1,1     WILL NOT FAIL BEFORE THE TMI                                
       00740 -0 63400 2 01206 NEWFRT SXD FRETNB,2     SAVE NUMBER OF FREQUENCIES                                  
       00741 -0 32000 0 01157        ANA ADDMSK                                                                   
       00742  0 60100 0 01170        STO ALFA         FREQUENCY OF BETA IS IGNORED BY                             
       00743 -0 10000 0 00745        TNZ BRANCH       FORTRAN IF NO CORRESPONDING BETA IN                         
       00744  0 02000 0 00763        TRA NXTFRT       COLUMN 1 TO 5 OF SOURCE PROGRAM                             
       00745  0 53400 4 01152 BRANCH LXA IR4,4                                                                    
       00746  0 50000 4 75433 TCLAT  CLA ALPHA,4                                                                  
       00747 -0 32000 0 01157        ANA ADDMSK                                                                   
       00750  0 34000 0 01170        CAS ALFA                                                                     
       00751  0 02000 0 00753        TRA TIXT                                                                     
       00752  0 02000 0 00756        TRA HAVALF                                                                   
       00753  1 00001 4 00754 TIXT   TXI FRETST,4,1                                                               
       00754 -3 00000 4 00746 FRETST TXL TCLAT,4,0    SET AT END OF READING IN STOP TABLE                         
       00755  0 02000 0 00763        TRA NXTFRT                                                                   
       00756  0 50000 4 75433 HAVALF CLA ALPHA,4      THE ONLY TIME A FREQUENCY STATEMENT CAN                     
       00757 -0 32000 0 01161        ANA DECMSK       LOUSE UP THE OBJECT PROGRAM IS WHEN                         
       00760  0 40200 0 01206        SUB FRETNB       THERE ARE MORE FREQUENCIES GIVEN THAN                       
       00761  0 12000 0 00763        TPL NXTFRT       BRANCHES.                                                   
       00762  0 07400 4 01022 FRETIF TSX NOBETA,4                                                                 
       00763  2 00001 1 00733 NXTFRT TIX NEXTT,1,1                                                                
       00764  0 02000 0 00052        TRA RDREC                                                                    
       00765  0 50000 0 77633 EQUIV  CLA TABLE        FIRST WORD IN TABLE WILL BE 35 ONES                         
       00766  0 40200 0 01162        SUB MSK35        IF THERE HAVE BEEN INCONSISTANT                             
       00767 -0 10000 0 00777        TNZ DIAGND                                                                   
       00770  0 53400 1 01152        LXA IR4,1                                                                    
       00771  0 50000 1 77632 NXTEQV CLA TABLE-1,1                                                                
       00772  0 40200 0 01162        SUB MSK35        LAST INCONSISTANCY IS FOLLOWED BY                           
       00773  0 10000 0 00777        TZE DIAGND       ANOTHER WORD OF ONES                                        
       00774  0 56000 1 77632        LDQ TABLE-1,1                                                                
       00775  0 07400 4 01033 NOTEQV TSX ERROR,4                                                                  
       00776  1 00001 1 00771        TXI NXTEQV,1,1                                                               
       00777  0 50000 0 01173 DIAGND CLA ERNBR                                                                    
       01000  0 10000 0 01263        TZE SPACE2       IF NO ERROR, READ IN SECTION II                             
       01001  0 60100 0 00030        STO 24           SAVE FOR BIG D                                              
       01002  0 50000 0 01171        CLA TW13         PUT RECORD NUMBER IN 2 FOR PRINT OUT                        
       01003  0 60100 0 00002        STO 2                                                                        
       01004  0 53400 2 01152        LXA IR4,2                                                                    
       01005  0 76200 0 00201 DIAGRD RTD 1            SPACE OVER REST OF SYSTEM IN FORTRAN                        
       01006  0 70000 0 00000        CPY 0                                                                        
       01007  0 02000 0 01005        TRA DIAGRD                                                                   
       01010  1 00001 2 01011        TXI TST2FL,2,1                                                               
       01011 -3 00001 2 01005 TST2FL TXL DIAGRD,2,1                                                               
       01012  0 76200 0 00221        RTB 1            END FILE SKIP, START TO READ BIG D                          
       01013  0 53400 1 01152        LXA IR4,1                                                                    
       01014  0 70000 1 00031 DCPY   CPY 25,1                                                                     
       01015  1 77777 1 01014        TXI DCPY,1,-1                                                                
       01016  0 76100 0 00000        NOP                                                                          
       01017  0 07400 4 00032 BIGD   TSX 26,4                                                                     
       01020  0 76100 0 00000 REW    NOP              REPLACED BY SPACE2 AT 1263. WAS REWIND                      
       01021  0 76100 0 00000        NOP                                                                          
                                         ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE                             
                                         WHICH HAS MISSING BETA, IN DEC OF AC AND                                 
                                         ALPHA IN ADDRESS OF AC.                                                  
       01022 -0 63400 4 01170 NOBETA SXD ALFA,4                                                                   
       01023  0 07400 4 01026        TSX SAVALF,4                                                                 
       01024 -0 53400 4 01170        LXD ALFA,4                                                                   
       01025  0 02000 4 00001        TRA 1,4                                                                      
                                         ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC                 
       01026 -0 63400 4 01177 SAVALF SXD ERAS,4                                                                   
       01027 -0 53400 4 01173        LXD ERNBR,4                                                                  
       01030  0 50000 0 01170        CLA ALFA                                                                     
       01031  0 60100 4 77777        STO ERLIST,4                                                                 
       01032  1 00001 4 01044        TXI NEXTA,4,1           SAME RETURN AS ERROR ROUTINE.                        
                                         ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA                                
                                         MAKES 2 WORD ENTRY IN ERROR LIST                                         
                                                  1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND                 
                                                  2...CONTENTS OF MQ                                              
                                         EXIT AC HASH, MQ NOT CHANGED                                             
       01033 -0 75400 4 00000 ERROR  PXD 0,4          PUT TSX FROM SECTION SCANNING                               
       01034 -0 53400 4 01173        LXD ERNBR,4      FOR ERROR, IN DEC OF 1ST WORD                               
       01035  0 62200 0 01177        STD ERAS                                                                     
       01036  0 62200 4 77777        STD ERLIST,4                                                                 
       01037  0 50000 0 01152        CLA IR4          PUT TSX FROM DABLE IN WHI+H                                 
       01040  0 77100 0 00022        ARS 18           ERROR WAS FOUND, IN ADDR. OF 1ST WORD                       
       01041  0 62100 4 77777        STA ERLIST,4                                                                 
       01042 -0 60000 4 77776        STQ ERLIST-1,4   PUT MQ IN 2ND WORD                                          
       01043  1 00002 4 01044        TXI NEXTA,4,2                                                                
       01044 -0 63400 4 01173 NEXTA  SXD ERNBR,4                                                                  
       01045 -0 53400 4 01177        LXD ERAS,4                                                                   
       01046  0 02000 4 00001        TRA 1,4                                                                      
                                         ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA                    
                                         FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME.  EXIT SAME, EXCEPT              
                                         WHERE MATCH IS FOUND, THEN AC HAS HASH                                   
       01047 -0 63400 4 01152 ISNONX SXD IR4,4        ERROR WILL RECORD WHICH TABLE WAS SCANNED                   
       01050  0 02000 0 01274        TRA PATS2                                                                    
       01051  0 34000 2 74303 CASH   CAS NONEXT,2                                                                 
       01052  0 02000 0 01054        TRA NEXTH                                                                    
       01053  0 02000 0 01057 YESNOX TRA NONEXB       THIS WILL  BE  CHANGED TO BYPASS ERROR  WHEN                
       01054  1 00001 2 01055 NEXTH  TXI TXLH,2,1     SCANNING BETA TABLE                                         
       01055 -3 00000 2 01051 TXLH   TXL CASH,2,0                                                                 
       01056  0 02000 0 01277        TRA PATRE2                                                                   
       01057  0 76700 0 00022 NONEXB ALS 18           ERROR, SAVE  BETA AND ALPHA IN LIST                         
       01060  0 62200 0 01170        STD ALFA                                                                     
       01061  0 56000 0 01170        LDQ ALFA                                                                     
       01062  0 07400 4 01033 TSXH   TSX ERROR,4                                                                  
       01063 -0 53400 4 01152 INFORM LXD IR4,4                                                                    
       01064 -0 76000 0 00003        SSM              SET  RETURN TO SHOW  ERROR                                  
       01065  0 02000 0 01277        TRA PATRE2                                                                   
                                         ENTER WITH HASH  IN AC  MQ  HAS BCD SYMBOL.  EXIT WITH  HASH IN          
                                         AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS  ONLY WHEN              
                                         ILLEGAL CHARACTER PRESENT                                                
       01066 -0 60000 0 01176 CHECKA STQ NAME                                                                     
       01067 -0 63400 4 01152        SXD IR4,4                                                                    
       01070 -0 63400 2 01151        SXD IR2,2                                                                    
       01071 -0 63400 1 01150        SXD IR1,1                                                                    
       01072 -0 53400 1 01231        LXD SYMBL,1      6 INTO IR1                                                  
       01073  0 53400 2 01231 NXTNAM LXA SYMBL,2      10 INTO IR2                                                 
       01074 -0 75400 0 00000        PXD 0,0          CLEAR AC AND COMPARE NEXT BCD                               
       01075 -0 76300 0 00006        LGL 6            CHARACTER WITH TABLE OF ILLEGAL SYMBOLS                     
       01076  0 34000 2 01231 ACAS   CAS SYMBL,2                                                                  
       01077  0 02000 0 01101        TRA ATIX                                                                     
       01100  0 02000 0 01107        TRA WRONG                                                                    
       01101  2 00001 2 01076 ATIX   TIX ACAS,2,1     GET NEXT ILLEGAL SYMBOL FOR COMPARISON                      
       01102  2 00001 1 01073        TIX NXTNAM,1,1          GET NEXT BCD CHARACTER FOR COMPARISON                
       01103 -0 53400 4 01152 RETNA  LXD IR4,4                                                                    
       01104 -0 53400 2 01151        LXD IR2,2                                                                    
       01105 -0 53400 1 01150        LXD IR1,1                                                                    
       01106  0 02000 4 00001        TRA 1,4                                                                      
       01107  0 56000 0 01176 WRONG  LDQ NAME                                                                     
       01110  0 07400 4 01033 CHATSX TSX ERROR,4                                                                  
       01111 -0 76000 0 00003        SSM              SIGNAL THAT ERROR HAS BEEN PICKED UP                        
       01112  0 02000 0 01103        TRA RETNA                                                                    
                                         ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH              
                                         THEN MINUS                                                               
       01113  0 56000 0 01176 CHECKB LDQ NAME                                                                     
       01114 -0 63400 4 01152        SXD IR4,4                                                                    
       01115  0 53400 4 01215        LXA IJK,4                                                                    
       01116 -0 75400 0 00000        PXD 0,0                                                                      
       01117 -0 76300 0 00006        LGL 6                                                                        
       01120  0 34000 4 01215 BCAS   CAS IJK,4                                                                    
       01121  0 02000 0 01123        TRA BTIX                                                                     
       01122  0 02000 0 01127        TRA RETNB                                                                    
       01123  2 00001 4 01120  BTIX  TIX BCAS,4,1                                                                 
       01124  0 56000 0 01176        LDQ NAME                                                                     
       01125  0 07400 4 01033 CHBTSX TSX ERROR,4                                                                  
       01126 -0 76000 0 00003        SSM                                                                          
       01127 -0 53400 4 01152 RETNB  LXD IR4,4                                                                    
       01130  0 02000 4 00001        TRA 1,4                                                                      
                                         ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0,            
                                         3,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY             
                                         IN BETA TABLE. EXIT  WITH SAME.                                          
       01131 -0 63400 4 01177 MORBTS SXD ERAS,4                                                                   
       01132 -0 53400 4 00572        LXD BETANB,4                                                                 
       01133  0 60100 4 75434 STOBET STO BETA,4                                                                   
       01134  1 77777 4 01135        TXI STBET,4,-1                                                               
       01135 -0 63400 4 00572 STBET  SXD BETANB,4                                                                 
       01136 -0 63400 4 00572        SXD BETANB,4                                                                 
       01137 -0 53400 4 01177        LXD ERAS,4                                                                   
       01140  0 02000 4 00001        TRA 1,4                                                                      
       01141 -0 63400 4 01177 ADOB   SXD ERAS,4                                                                   
       01142 -0 53400 4 01173        LXD ERNBR,4                                                                  
       01143  0 50000 1 77633        CLA TABLE,1                                                                  
       01144  0 60100 4 77777        STO ERLIST,4                                                                 
       01145  0 50000 1 77632        CLA TABLE-1,1                                                                
       01146  0 60100 4 77776        STO ERLIST-1,4                                                               
       01147  1 00002 4 01044        TXI NEXTA,4,2                                                                
 A     01150  0 00000 0 00000  IR1   HTR                                                                          
       01151  0 00000 0 00002  IR2   HTR 2                                                                        
       01152  0 00000 0 00000  IR4   HTR 0                                                                        
       01153  0 00000 0 00001 ADDONE HTR 1                                                                        
       01154  0 00001 0 00000 DECONE HTR 0,0,1                                                                    
       01155  0 00002 0 00000 DECTWO HTR 0,0,2                                                                    
       01156  0 00003 0 00000 DECTRE HTR 0,0,3                                                                    
       01157 +000000077777    ADDMSK OCT 000000077777                                                             
       01160 +000000700000    TAGMSK OCT 000000700000                                                             
       01161 +077777000000    DECMSK OCT 077777000000                                                             
       01162 +377777777777    MSK35  OCT 377777777777                                                             
       01163  0 70000 1 77633 ADTABL CPY TABLE,1                                                                  
       01164  0 00000 0 75433 ADTIFG HTR TIFGOT                                                                   
       01165  0 70000 4 75435 ADTRAD CPY TRADT,4                                                                  
       01166  0 00000 0 00060 CPTRAD HTR COPYAA                                                                   
       01167  0 00000 0 01063 CHNONX HTR INFORM                                                                   
       01170  0 00000 0 00000 ALFA                                                                                
       01171  0 00000 0 00325 TW13   HTR 213                                                                      
       01172  0 00000 0 00000 TRADNB                                                                              
       01173  0 00000 0 00000 ERNBR                                                                               
       01174  0 00000 0 00000 IDENT                                                                               
       01175  0 00000 0 00000 WDCONT                                                                              
       01176  0 00000 0 00000 NAME                                                                                
       01177  0 00000 0 00000 ERAS                                                                                
       01200  0 00000 0 00000 XERAS                                                                               
       01201  0 00000 0 00000 BST                            STORE NUMBER OF TIMES WORD COUNT WRONG               
       01202  0 00000 0 00000 BSTA                           DITTO IDENTIFICATION                                 
       01203  0 00000 0 00000 DOTAG                                                                               
       01204  0 00000 0 00000 DOBETA                                                                              
       01205  0 76100 0 00000  NOP   NOP                                                                          
       01206  0 00000 0 00000 FRETNB                                                                              
       01207  000000000031           BCD 100000I                                                                  
       01210  000000000042           BCD 100000K                                                                  
       01211  000000000041           BCD 100000J                                                                  
       01212  000000000043           BCD 100000L                                                                  
       01213  000000000044           BCD 100000M                                                                  
       01214  000000000045           BCD 100000N                                                                  
       01215  0 00000 0 00006  IJK   HTR 6,0,0                                                                    
       01216  000000000020           BCD 100000+                                                                  
       01217 +000000000014           OCT 000000000014        OTHER MINUS SIGN                                     
       01220  000000000060           BCD 100000                                                                   
       01221  000000000061           BCD 100000/                                                                  
       01222  000000000053           BCD 100000$                                                                  
       01223  000000000074           BCD 100000(                                                                  
       01224  000000000034           BCD 100000)                                                                  
       01225  000000000013           BCD 100000=                                                                  
       01226  000000000073           BCD 100000,                                                                  
       01227  000000000033           BCD 100000.                                                                  
       01230  000000000054           BCD 100000*                                                                  
       01231  0 00006 0 00013  SYMBL HTR 11,0,6                                                                   
       01232  0 00000 0 00076 AFTRSZ HTR IDNTFY                                                                   
       01233 +000000000013           OCT 000000000013                                                             
       01234  0 00000 0 00155        HTR SUBARG                                                                   
       01235 +000000000014           OCT 000000000014                                                             
       01236  0 00000 0 00167        HTR UPPER                                                                    
       01237 +000000000000           OCT 000000000000                                                             
       01240  0 00000 0 00202        HTR TEIFNO                                                                   
       01241 +000000000002           OCT 000000000002                                                             
       01242  0 00000 0 00220        HTR TIFGO                                                                    
       01243 +000000000003           OCT 000000000003                                                             
       01244  0 00000 0 00232        HTR TRAD                                                                     
       01245 +000000000001           OCT 000000000001                                                             
       01246  0 00000 0 00604        HTR TDO                                                                      
       01247 +000000000007           OCT 000000000007                                                             
       01250  0 00000 0 00732        HTR FRET                                                                     
       01251 +000000000010           OCT 000000000010                                                             
       01252  0 00000 0 00765        HTR EQUIV                                                                    
       01253  0 00000 0 00020 TAPTAB HTR 16                                                                       
       01254  2 00001 1 01255  PTCH  TIX SZW,1,1        SIZ TABLE HAS CHECK SUM ENTRY NOT                         
       01255 -0 75400 1 00000   SZW  PXD 0,1            NOT INCLUDED IN WORD COUNT                                
       01256  0 77100 0 00022        ARS 18                                                                       
       01257  0 02000 0 00063        TRA SUBWDS                                                                   
       01260  0 50000 0 01163  PATIF CLA ADTABL                                                                   
       01261  0 60100 0 00056        STO COPY                                                                     
       01262  0 02000 0 00122        TRA NOTIFG                                                                   
       01263  0 76200 0 00222 SPACE2 RTB 2                                                                        
       01264  0 76200 0 00222        RTB 2                                                                        
       01265  0 76600 0 00333        IOD                                                                          
       01266 -0 76000 0 00012        RTT                                                                          
       01267  0 76100 0 00000        NOP                                                                          
       01270  0 02000 0 00004        TRA 4                                                                        
       01271  0 10000 0 00577 PAQADD TZE NXTALF                                                                   
       01272  0 40000 0 01153        ADD ADDONE                                                                   
       01273  0 02000 0 00562        TRA ADDQ                                                                     
       01274 -0 63400 2 01301 PATS2  SXD PATERA,2                                                                 
       01275  0 53400 2 01152        LXA IR4,2                                                                    
       01276  0 02000 0 01051        TRA CASH                                                                     
       01277 -0 53400 2 01301 PATRE2 LXD PATERA,2                                                                 
       01300  0 02000 4 00001        TRA 1,4                                                                      
       01301  0 00000 0 00000 PATERA                                                                              
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     710           0           0           0           0
 LIB       0           0           0           0           0
 COL     710           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      719                  
0NUMBER OF SYMBOLS,  DEF   256,DEFOP     0,UNDEF     0      
9            REM        BLOCK ONE OF SECTION TWO.                                         
1                                               BLOCK ONE OF SECTION TWO.                                         
                                         BLOCK ONE OF SECTION TWO.                                                
                                            MASTER RECORD CARD = FN027                                F2100000    
                                         BLOCK ONE OF SECTION TWO PERFORMS THE                        F2100001    
                                         PRELIMINARY DO NEST STRUCTURE ANALYSIS                       F2100002    
                                         REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS               F2100003    
                                         LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY.                  F2100004    
                                         TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED      F2100005    
                                         INTO TABLE TRALEV. IF THERE IS A VARIABLE                    F2100006    
                                         PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION            F2100007    
                                         IS ASSIGNED.                                                 F2100008    
                                         FINALLY, A SEARCH IS MADE T0 DETERMINE                       F2100009    
                                         WHETHER A DO INDEX COUNTER IS                                F2100010    
                                         NECESSARY T0 KEEP CURRENT THE VALUES                         F2100011    
                                         OF THE DO INDEX.                                             F2100012    
                        00031        ORG 25                                                           F2100015    
                        00031 DOTAG  BSS 1                                                            F2100017    
                        00032        BSS 1349                                                         F2100020    
                        02537 DOTAGZ BSS 1                                                            F2100030    
                        02540 TIFGO  BSS 1                                                            F2100040    
                        02541        BSS 599                                                          F2100050    
                        03670 TIFZ   BSS 1                                                            F2100060    
                        03671 TRAD   BSS 1                                                            F2100070    
                        03672        BSS 249                                                          F2100080    
                        04263 TRADZ  BSS 1                                                            F2100090    
                        04264 TRALEV BSS 1                                                            F2100100    
                        04265        BSS 599                                                          F2100110    
                        05414 TLTZ   BSS 1                                                            F2100120    
                        02540        ORG 1376                                                         F2100130    
                        02540 FORVAL BSS 1                                                            F2100140    
                        02541        BSS 999                                                          F2100150    
                        04510 4VALZ  BSS 1                                                            F2100160    
                        02540        ORG 1376                                                         F2100170    
                        02540 FORVAR BSS 1                                                            F2100180    
                        02541        BSS 1499                                                         F2100190    
                        05474 4VARZ  BSS 1                                                            F2100200    
                        00734        ORG 476                                                          F2100210    
                        00734 FORTAG BSS 1                                                            F2100211    
                        00735        BSS 1499                                                         F2100230    
                        03670 FORTZ  BSS 1                                                            F2100240    
                                         PROGRAM C ONSTANTS                                           F2100250    
                        05474        ORG 2876                                                         F2100260    
       05474  0 00000 0 00000 L(0)       0,0,0                                                        F2100270    
       05475  0 00001 0 00000 L(1)       0,0,1                                                        F2100280    
       05476  0 00002 0 00000 L(2)       0,0,2                                                        F2100290    
       05477  0 00003 0 00000 L(3)       0,0,3                                                        F2100300    
       05500  0 00004 0 00000 L(4)       0,0,4                                                        F2100310    
       05501  0 00005 0 00000 L(5)       0,0,5                                                        F2100320    
       05502  0 00006 0 00000 L(6)       0,0,6                                                        F2100330    
       05503  0 00011 0 00000 L(9)       0,0,9                                                        F2100340    
       05504  0 01130 0 00000 L(600)     0,0,600                                                      F2100350    
       05505  0 01750 0 00000 L(1000     0,0,1000                                                     F2100360    
       05506  0 02506 0 00000 L(1350     0,0,1350                                                     F2100370    
       05507  0 02734 0 00000 L(1500     0,0,1500                                                     F2100380    
       05510 -0 00000 0 00000 L(MZ)  MZE                                                              F2100390    
       05511 +200000000000    BITONE OCT 200000000000                                                 F2100400    
       05512 +100000000000    BITTWO OCT 100000000000                                                 F2100410    
       05513 +077777077777    DECADD OCT 77777077777                                                  F2100420    
       05514 +077777000000    DECMSK OCT 77777000000                                                  F2100430    
       05515 +000000700000    TAGMSK OCT 700000                                                       F2100440    
       05516 +000000077777    ADDMSK OCT 77777                                                        F2100450    
       05517 -377777477777    NCMSK  OCT -377777477777                                                F2100460    
       05520 +000000100000    CR1    OCT 100000                                                       F2100470    
       05521 +000000200000    CR2    OCT 200000                                                       F2100480    
                                         BEGIN BLO CK ONE.                                            F2100490    
       05522  0 77200 0 00224 TAP00  REW 148                                                          F2100500    
       05523  0 77200 0 00223        REW 147                                                          F2100510    
       05524 -0 76000 0 00012        RTT                                                              F2100520    
       05525  0 76100 0 00000        NOP                                                              F2100530    
       05526  0 76400 0 00222        BST TTAPE                     POSITION TAPE TWO                  F2100540    
       05527 -0 53400 1 05503        LXD L(9),1                    FOR READING IN TAPE                F2100550    
       05530  0 76400 0 00222 TAP10  BST TTAPE                     TABLES                             F2100560    
       05531  2 00001 1 05530        TIX TAP10,1,1                                                    F2100570    
       05532  0 76000 0 00140        PSE 96                        ALL LIGHTS OFF                     F2100580    
       05533  0 76000 0 00142        PSE 98                        TRALEV LIGHT 98 ON                 F2100590    
       05534 -0 53400 2 05476        LXD L(2),2                    READ                               F2100600    
       05535  0 50000 0 07153        CLA TIFAD                     IN                                 F2100610    
       05536  0 07400 4 07060        TSX RTAPE,4                   TIEFGO                             F2100620    
       05537 -0 63400 1 02537        SXD TIFGO-1,1                 SAVE NEXT UNUSED INDEX             F2100630    
       05540 -0 53400 2 05477        LXD L(3),2                    READ                               F2100640    
       05541  0 50000 0 07154        CLA TRADAD                    IN                                 F2100650    
       05542  0 07400 4 07060        TSX RTAPE,4                   TRAD                               F2100660    
       05543 -0 63400 1 03670        SXD TRAD-1,1                  SAVE NEXT UNUSED INDEX             F2100670    
       05544 -0 53400 2 05475        LXD L(1),2                    READ                               F2100680    
       05545  0 50000 0 07151        CLA DOAD                      IN                                 F2100690    
       05546  0 07400 4 07060        TSX RTAPE,4                   TDO WITH DOTAG FORMAT              F2100700    
       05547 -0 63400 1 00030        SXD DOTAG-1,1                 SAVE NEXT UNUSED INDEX             F2100710    
       05550 -3 02505 1 05553        TXL MR00,1,1349               TEST FOR EMPTY DOTAG               F2100720    
       05551  0 76000 0 00143        PSE 99                        DOTAG EMPTY                        F2100730    
       05552  0 02000 0 06567        TRA TS4VAL                                                       F2100740    
                                         MR00 COMPUTES LEVEL, X, CARRY BITS.                          F2100750    
       05553 -0 53400 1 00030 MR00   LXD DOTAG-1,1                 INITIALIZE TEST                    F2100760    
       05554 -0 63400 1 05630        SXD MR70,1                    INSTRUCTION.                       F2100770    
       05555 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA TO MAX DOTAG.       F2100780    
       05556  0 50000 0 05475 MR05   CLA L(1)                      INITIALIZE LEVEL TO ONE            F2100790    
       05557 -0 73400 2 00000 MR10   PDX 0,2                       PUT LEVEL IN XRB                   F2100800    
       05560  0 60100 1 02544        STO DOTAGZ+5,1                STORE LEVEL IN L WORD              F2100810    
       05561  0 50000 1 02537        CLA DOTAGZ,1                  INSPECT TAG OF FIRST WORD)         F2100820    
       05562 -0 63400 4 05567        SXD MR14,4                                                       F2100830    
       05563  0 73400 4 00000        PAX 0,4                                                          F2100840    
       05564  0 62200 0 05565        STD MR12                                                         F2100850    
 D     05565  3 00000 4 05570 MR12   TXH MR15,4                                                       F2100860    
       05566  0 02000 0 07303        TRA ERBETA            BETA LESS THAN OR EQUAL TO ALPHA           F2100871    
 A     05567  0 00000 0 00000 MR14   HTR                                                              F2100880    
       05570 -0 53400 4 05567 MR15   LXD MR14,4                                                       F2100890    
       05571 -0 32000 0 05515        ANA TAGMSK                    IF ZERO( TRA TO MR20)              F2100900    
       05572  0 10000 0 05576        TZE MR20                      IF NOT ZERO( PUT BIT               F2100910    
       05573  0 50000 0 05512        CLA BITTWO                    IN L WORD FOR X NOT                F2100920    
       05574 -0 60200 1 02544        ORS DOTAGZ+5,1                COMPUTABLE AND GO TO               F2100930    
       05575  0 02000 0 05625        TRA MR60                      END.                               F2100940    
       05576  0 50000 1 02542 MR20   CLA DOTAGZ+3,1                COMPUTE X AND STORE IN             F2100950    
       05577  0 40200 1 02541        SUB DOTAGZ+2,1                L WORD                             F2100960    
       05600  0 40000 1 02543        ADD DOTAGZ+4,1                                                   F2100970    
       05601  0 76500 0 00043        LRS 35                                                           F2100980    
       05602  0 22000 1 02543        DVH DOTAGZ+4,1                                                   F2100990    
       05603  0 20000 1 02543        MPY DOTAGZ+4,1                                                   F2101000    
       05604  0 76300 0 00043        LLS 35                                                           F2101010    
       05605  0 62100 1 02544        STA DOTAGZ+5,1                                                   F2101020    
       05606 -3 00001 2 05625        TXL MR60,2,1                  IF L IS ONE( SKIP CARRY TEST)      F2101030    
       05607  0 50000 4 02537        CLA DOTAGZ,4                  OBTAIN NEXT BACK.SUBNEST           F2101040    
       05610  0 77100 0 00017        ARS 15                        DO( FIRST WORD. IN-SPECT TAG       F2101050    
       05611  0 76000 0 00001        LBT                           FOR VARIABLE N3) IF NOT.           F2101060    
       05612  0 02000 0 05614        TRA MR30                      0) VARIABLE( CONTINUE-WITH MR30,   F2101070    
       05613  0 02000 0 05625        TRA MR60                      1) OTHERWISE GO TO END.            F2101080    
       05614  0 50000 4 02537 MR30   CLA DOTAGZ,4                  OBTAIN FIRST WORD OF NEXT          F2101090    
       05615 -0 32000 0 05513        ANA DECADD                    BACK SUBNEST DO, REMOVE            F2101100    
       05616  0 40000 0 05475        ADD L(1)                      TAG, AND ADD ONE TO ALPHA.         F2101110    
       05617  0 40200 1 02537        SUB DOTAGZ,1                  SUB FIRST WORD CURRENT DO.         F2101120    
       05620 -0 10000 0 05623        TNZ MR40                      (TAG IS ZERO). IF RESULT IS        F2101130    
       05621  0 50000 0 05520        CLA CR1                       ZERO, CARRY IS TYPE ONE,           F2101140    
       05622  0 02000 0 05624        TRA MR50                      IF NOT ZERO, CARRY IS TYPE         F2101150    
       05623  0 50000 0 05521 MR40   CLA CR2                       TWO. INDICATE TYPE IN              F2101160    
       05624 -0 60200 1 02544 MR50   ORS DOTAGZ+5,1                L WORD OF CURRENT DA.              F2101170    
       05625 -0 75400 1 00000 MR60   PXD 0,1                       MAKE CURRENT.DO NEXT BACK          F2101180    
       05626 -0 73400 4 00000        PDX 0,4                       SUBNEST DO.                        F2101190    
       05627  1 77767 1 05630        TXI MR70,1,-9                 TAKE NEXT DO IN DOTAG.             F2101200    
       05630 -3 00000 1 07316 MR70   TXL ERTST,1,0          NO MORE DOS, EXIT TO TEST IF ERRORS       F2101211    
       05631  0 50000 1 02537        CLA DOTAGZ,1                  OBTAIN FIRST WORD NEW DO.          F2101220    
       05632 -0 32000 0 05516        ANA ADDMSK                    OBTAIN BETA                        F2101230    
       05633  0 60100 0 05660        STO MRES                      AND SAVE                           F2101240    
       05634  0 50000 4 02537 MR75   CLA DOTAGZ,4                  OBTAIN BETA OF XRC DO,             F2101250    
       05635 -0 32000 0 05516        ANA ADDMSK                    AND SUBTRCT NEW BETA..             F2101260    
       05636  0 60100 0 05661        STO MRES1                                                        F2101270    
       05637  0 40200 0 05660        SUB MRES                      IF NOT NEGATIVE, XRC DD            F2101280    
       05640 -0 12000 0 05645        TMI MR80                      CONTAINS NEW DO. OTHERWISE, TRA    F2101290    
       05641  0 50000 4 02544        CLA DOTAGZ+5,4                XRC DO CONTAINS NEW DO,            F2101300    
       05642 -0 32000 0 05514        ANA DECMSK                    OBTAIN LEVEL OF XRC DO,            F2101310    
       05643  0 40000 0 05475        ADD L(1)                      ADD ONE, STORE IN L.               F2101320    
       05644  0 02000 0 05557        TRA MR10                      GO TO MR10                         F2101330    
       05645  0 50000 1 02537 MR80   CLA DOTAGZ,1                                                     F2101340    
       05646 -0 32000 0 05514        ANA DECMSK                                                       F2101350    
       05647  0 77100 0 00022        ARS 18                                                           F2101360    
       05650  0 34000 0 05661        CAS MRES1                                                        F2101370    
       05651  0 02000 0 05654        TRA MR85                      ALPHA(XRA) GREATER THAN BETA(XRC)  F2101380    
       05652  0 02000 0 07263        TRA ERLIST             EQUALITY                                  F2101391    
       05653  0 02000 0 07263        TRA ERLIST            LESS THAN                                  F2101401    
       05654  0 50000 4 02544 MR85   CLA DOTAGZ+5,4                                                   F2101410    
       05655 -0 73400 2 00000        PDX 0,2                       NEWDO. IF XRL DO IS OF             F2101420    
       05656 -3 00001 2 05556        TXL MR05,2,1                  LEVEL ONE, START NEW NEST          F2101430    
       05657  1 00011 4 05634        TXI MR75,4,9                  BY TRA TO MR05. ELSE TRA MR75,     F2101440    
 A     05660  0 00000 0 00000 MRES   HTR                           ES                                 F2101450    
 A     05661  0 00000 0 00000 MRES1  HTR                                                              F2101460    
                                         FLOW, TRANSFER ANALYS1S,                                     F2101470    
       05662 -0 53400 4 02537 FLOW   LXD TIFGO-1,4                 TEST FOR EMPTY TIFGO               F2101480    
       05663  3 01127 4 06307        TXH SV00,4,599                                                   F2101490    
       05664 -0 53400 1 00030        LXD DOTAG-1,1                 INITIALIZE                         F2101500    
       05665 -0 63400 1 05703        SXD FLO30,1                   TEST                               F2101510    
       05666 -0 63400 4 05723        SXD FLO60,4                   INSTRUCTIONS                       F2101520    
       05667 -0 63400 1 06240        SXD ADL60,1                                                      F2101530    
       05670 -0 63400 1 06113        SXD INC40,1                                                      F2101540    
       05671 -0 63400 1 06166        SXD RNC70,1                                                      F2101550    
       05672  0 53400 1 06274        LXA TLT50,1                   INITIALIZE TRALEV                  F2101560    
       05673 -0 63400 1 06274        SXD TLT50,1                   INDEX VALUE                        F2101570    
       05674 -0 53400 4 05504 FLO10  LXD L(600),4                  INIT1ALIZE                         F2101580    
       05675 -0 63400 4 06306        SXD TIFX,4                    CURRENT TIFGO INDEX                F2101590    
       05676 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA, DOTAG INDEX        F2101600    
       05677  0 50000 1 02544 FLO15  CLA DOTAGZ+5,1                OBTAIN LEVEL OF DO                 F2101610    
       05700 -0 73400 2 00000        PDX 0,2                       AND                                F2101620    
       05701 -3 00001 2 05705        TXL FLO40,2,1                 TRA IF LEVEL ONE. IF NOT           F2101630    
       05702  1 77767 1 05703 FLO20  TXI FLO30,1,-9                LEVEL ONE, FIND NEXT               F2101640    
 D     05703  3 00000 1 05677 FLO30  TXH FLO15,1                   LEVEL ONE, IF ANY.                 F2101650    
       05704  0 02000 0 05775        TRA FLOEND                                                       F2101660    
       05705 -0 63400 1 06275 FLO40  SXD BNX,1                     SAVE BEGINNING 0O NEST INDEX.      F2101670    
       05706  0 50000 1 02537        CLA DOTAGZ,1                  INITIALIZE                         F2101680    
       05707  0 73400 2 00000        PAX 0,2                       BEGINNING OF NEST                  F2101690    
       05710 -0 32000 0 05514        ANA DECMSK                    AND                                F2101700    
       05711  0 60100 0 06276        STO BNA                       END OF NEST                        F2101710    
       05712 -0 75400 2 00000        PXD 0,2                       ADDRESSES                          F2101720    
       05713  0 60100 0 06277        STO ENA                                                          F2101730    
       05714 -0 53400 4 06306        LXD TIFX,4                    OBTAIN CURRENT T1FGO INDEX         F2101740    
       05715  0 50000 4 03670 FLO50  CLA TIFZ,4                    AND SEARCH FOR TIFGO               F2101750    
       05716 -0 32000 0 05514        ANA DECMSK                    ENTRY IN NEST.                     F2101760    
       05717  0 34000 0 06276        CAS BNA                       COMPARE WITH BNA                   F2101770    
       05720  0 02000 0 05727        TRA FLO70                     GREATER THAN OR EQUAL TO           F2101780    
       05721  0 07400 4 00004        TSX DIAG,4  BNA, MAY BE IN NEST.        ERROR. GO TO DIAGNOSTIC. F2101795    
       05722  1 77776 4 05723 FLO55  TXI FLO60,4,-2                LESS THAN BNA, GO BACK             F2101800    
 D     05723  3 00000 4 05715 FLO60  TXH FLO50,4                   FOR NEXT TIFGO ENTRY,              F2101810    
       05724  0 02000 0 05775        TRA FLOEND                    IF ANY. IF NONE, EXIT              F2101820    
       05725 -0 53400 1 06275 FLO65  LXD BNX,1                                                        F2101830    
       05726  0 02000 0 05702        TRA FLO20                                                        F2101840    
       05727 -0 63400 4 06306 FLO70  SXD TIFX,4                    SAVE CURRENT TIFGO INDEX           F2101850    
       05730  0 34000 0 06277        CAS ENA                       COMPARE G AND ENA                  F2101860    
       05731  0 02000 0 05725        TRA FLO65                     G GREATER, GO BACK FOR NEXT NEST.  F2101870    
       05732  0 76100 0 00000        NOP                           G EQUAL TO                         F2101880    
       05733  0 60100 0 06300        STO G                         OR LESS THAN G, SAVE G.            F2101890    
       05734  0 50000 4 03670        CLA TIFZ,4                    TEST FOR THREE ADDRESS IF.         F2101900    
       05735 -0 12000 0 05743        TMI FLO75                     USE ADDRESS TO DETERMINE           F2101910    
       05736  0 73400 2 00000        PAX 0,2                       WHETHER OR NOT THIS IS AN          F2101920    
       05737 -3 00005 2 05743        TXL FLO75,2,5                 ASSIGN FORMULA. IF IT IS,          F2101930    
       05740 -3 00006 2 05722        TXL FLO55,2,6                 IGNORE, TAKE NEXT TIFGO ENTRY      F2101940    
       05741 -3 00007 2 05743        TXL FLO75,2,7                 TEST FOR ADD. GREATER THAN         F2101950    
       05742  0 07400 4 00004        TSX DIAG,4  SEVEN.                      ERROR. GO TO DIAGN0STIC. F2101965    
       05743  0 50000 0 06300 FLO75  CLA G                         OBTAIN G                           F2101970    
       05744 -0 53400 1 06275        LXD BNX,1                     OBTAIN CURRENT NEST INDEX          F2101980    
       05745  0 07400 4 06216        TSX ADLOC,4                   OBTAIN XDG AND LDG                 F2101990    
       05746  0 50000 0 05511        CLA BITONE                    PUT BIT IN DOTAG FOR TRA           F2102000    
       05747 -0 60200 1 02545        ORS DOTAGZ+6,1                IN IMMEDIATE RANGE.                F2102010    
       05750 -0 75400 1 00000        PXD 0,1                       SAVE                               F2102020    
       05751  0 60100 0 06301        STO XDG                       XDG                                F2102030    
       05752 -0 75400 2 00000        PXD 0,2                       AND                                F2102040    
       05753  0 60100 0 06302        STO LDG                       LDG                                F2102050    
       05754  0 50200 0 06300        CLS G                         LIST MINUS G                       F2102060    
       05755  0 07400 4 06253        TSX TLT00,4                   IN TRALEV BUFFER.                  F2102070    
       05756 -0 53400 4 06306        LXD TIFX,4                    OBTAIN FIRST WORD OF               F2102080    
       05757  0 50000 4 03670        CLA TIFZ,4                    TIFGO ENTRY                        F2102090    
       05760 -0 12000 0 06001        TMI 3ADIF                     TRA IF 3ADIF                       F2102100    
       05761  0 73400 2 00000        PAX 0,2                       PUT ADDRESS IN XRB                 F2102110    
       05762  0 02000 2 05772 FLO80  TRA FLO80+8,2                 INDEXED TRA,                       F2102120    
       05763  0 07400 4 00004        TSX DIAG,4  7, R0YS TRA.                ERROR, GO TO DIAGNOSTIC. F2102135    
       05764  0 07400 4 00004        TSX DIAG,4  6, ASSIGN FORMULA           ERROR. GO TO DIAGNOSTIC. F2102145    
       05765  0 02000 0 06005        TRA 2ADIF                     5, 2 ADDRESS TYPE                  F2102150    
       05766  0 02000 0 06005        TRA 2ADIF                     4, 2 ADIF                          F2102160    
       05767  0 02000 0 06005        TRA 2ADIF                     3, 2ADIF                           F2102170    
       05770  0 02000 0 06016        TRA GOTOVN                    2 VECTOR TYPE TRA                  F2102180    
       05771  0 02000 0 06016        TRA GOTOVN                    1 GO TO N (ASSIGN)                 F2102190    
       05772  0 02000 0 06011        TRA GOTOK                     0 GO TO CONSTANT                   F2102200    
       05773 -0 53400 4 06306 FLO90  LXD TIFX,4                    GO BACK FOR NEXT                   F2102210    
       05774  1 77776 4 05723        TXI FLO60,4,-2                TIFGO ENTRY,                       F2102220    
       05775 -0 53400 1 06274 FLOEND LXD TLT50,1                   TEST IF ANY TRALEV ENTRIES         F2102230    
       05776  3 01127 1 06307        TXH SV00,1,599                                                   F2102240    
       05777  0 07400 4 06261        TSX TLT20,4                   IF SO, GO TO WRITE ROUTINE         F2102250    
       06000  0 02000 0 06307        TRA SV00                                                         F2102260    
                                         CONTROL ROUTINES                                             F2102270    
       06001 -0 32000 0 05516 3ADIF  ANA ADDMSK                    THE FOLLOWING ROUTINES             F2102280    
       06002  0 76700 0 00022        ALS 18                        ARRANGE TO PROCESS ALL OF          F2102290    
       06003  0 07400 4 06033        TSX FA000,4                   THE ADDRESSES ASSOCIATED           F2102300    
       06004 -0 53400 4 06306        LXD TIFX,4                    WITH THE TIFGO ENTRY,              F2102310    
       06005  0 50000 4 03671 2ADIF  CLA TIFZ+1,4                  ONE AT A TIME.                     F2102320    
       06006 -0 32000 0 05514        ANA DECMSK                    WHEN ALL ADDRESSES                 F2102330    
       06007  0 07400 4 06033        TSX FA000,4                   ARE PR0CESSED,                     F2102340    
       06010 -0 53400 4 06306        LXD TIFX,4                    CONTR0L IS RETURED TO              F2102350    
       06011  0 50000 4 03671 GOTOK  CLA TIFZ+1,4                  FLO90 FOR NEXT                     F2102360    
       06012 -0 32000 0 05516        ANA ADDMSK                    TIFGO ENTRY.                       F2102370    
       06013  0 76700 0 00022        ALS 18                                                           F2102380    
       06014  0 07400 4 06033        TSX FA000,4                                                      F2102390    
       06015  0 02000 0 05773        TRA FLO90                                                        F2102400    
       06016  0 50000 4 03671 GOTOVN CLA TIFZ+1,4                  FOR GOTOV TRANSFERS,               F2102410    
       06017  0 73400 4 00000        PAX 0,4                       USE WORD TWO                       F2102420    
       06020 -0 63400 4 06031        SXD GTV20,4                   FOR INDEXING                       F2102430    
       06021 -0 73400 4 00000        PDX 0,4                       VALUES NECESSARY                   F2102440    
       06022  0 02000 0 06031        TRA GTV20                                                        F2102450    
       06023  0 50000 4 04263 GTV10  CLA TRADZ,4                   TO GET ADDRESSES                   F2102460    
       06024  0 76700 0 00022        ALS 18                        FR0M TABLE TRAD.                   F2102470    
       06025 -0 63400 4 06032        SXD GTV30,4                   FOR GOTON (ASSIGN) TYPE            F2102480    
       06026  0 07400 4 06033        TSX FA000,4                   TRANSFERS, ALL ADDRESSES           F2102490    
       06027 -0 53400 4 06032        LXD GTV30,4                   MUST BE PROCESSED EVEN             F2102500    
       06030  1 77777 4 06031        TXI GTV20,4,-1                THOUGH THEY ARE ON SAME            F2102510    
 D     06031  3 00000 4 06023 GTV20  TXH GTV10,4                   LEVEL BECAUSE OF                   F2102520    
 D     06032 -3 00000 0 05773 GTV30  TXL FLO90,0                   CARRY RESTRICTIONS.                F2102530    
                                         ANALYSIS OF ADDRESS                                          F2102540    
       06033 -0 63400 4 06076 FA000  SXD RS60,4                    SAVE TSX SET                       F2102550    
       06034  0 60100 0 06303        STO A                         SAVE ADDRESS                       F2102560    
       06035 -0 53400 1 06275        LXD BNX,1                     OBTAIN                             F2102570    
       06036  0 07400 4 06216        TSX ADLOC,4                   INDEX OF DO CONTAINING             F2102580    
       06037 -0 75400 1 00000        PXD 0,1                       ADDRESS AND LEVEL OF               F2102590    
       06040  0 60100 0 06304        STO XDA                       THAT DO.                           F2102600    
       06041 -0 75400 2 00000        PXD 0,2                       SAVE IN                            F2102610    
       06042  0 60100 0 06305        STO LDA                       XDA AND LDA.                       F2102620    
       06043 -3 00024 2 06045        TXL FA010,2,20                TEST LEVEL                         F2102630    
       06044  0 07400 4 00004        TSX DIAG,4  LEV. ADD OF TRA EXCEEDS 20. ERROR. GO TO DIAGNOSTIC. F2102645    
       06045  0 77100 0 00022 FA010  ARS 18                                                           F2102650    
       06046  0 62100 0 06051        STA FA020                     TRANSFER                           F2102660    
       06047 -0 50000 0 05510        CAL L(MZ)                     LEVEL IN                           F2102670    
       06050 -0 53400 1 06301        LXD XDG,1                     XDG DO.                            F2102680    
 A     06051  0 77100 0 00000 FA020  ARS                                                              F2102690    
       06052 -0 60200 1 02546        ORS DOTAGZ+7,1                                                   F2102700    
       06053  0 50000 0 06305        CLA LDA                       LIST                               F2102710    
       06054  0 77100 0 00022        ARS 18                        ADDRESS AND LEVEL                  F2102720    
       06055  0 40000 0 06303        ADD A                         IN                                 F2102730    
       06056  0 07400 4 06253        TSX TLT00,4                   TLT. CONTINUE WITH RS00            F2102740    
                                         TRANSFER BIT INSERTION IN DO FORMULA                         F2102750    
       06057 -0 53400 1 06301 RS00   LXD XDG,1                     XRA CONTAINS XDG                   F2102760    
       06060 -0 53400 2 06302        LXD LDG,2                     XRB CONTAINS LDG                   F2102770    
       06061 -0 75400 2 00000 RS10   PXD 0,2                       IF G AND A IN SAME DO,             F2102780    
       06062  0 40200 0 06305        SUB LDA                       EXIT. THIS ROUTINE INSERTS         F2102790    
       06063  0 10000 0 06077        TZE INC00                     BIT MEANING THERE IS A JUMP        F2102800    
       06064  0 12000 0 06066        TPL RS20                      OUT OF THE RANGE OF THIS DO.       F2102810    
       06065  0 07400 4 00004        TSX DIAG,4  JUMP INTO HIGHER LEVEL.     ERROR. GO TO DIAGNOSTIC. F2102825    
       06066 -0 50000 0 05510 RS20   CAL L(MZ)                                                        F2102830    
       06067 -0 60200 1 02544        ORS DOTAGZ+5,1                                                   F2102840    
       06070 -3 00001 2 06077        TXL INC00,2,1                 FIND NEXT BACK SUBNEST             F2102850    
       06071  1 00011 1 06072 RS30   TXI RS40,1,9                  DO FORMULA                         F2102860    
       06072  0 50000 1 02544 RS40   CLA DOTAGZ+5,1                AND RETURN                         F2102870    
       06073  0 62200 0 06074        STD RS50                      TO TEST                            F2102880    
 D     06074 -3 00000 2 06071 RS50   TXL RS30,2                    LEVEL                              F2102890    
       06075 -0 73400 2 00000        PDX 0,2                       AT                                 F2102900    
 D     06076 -3 00000 0 06061 RS60   TXL RS10,0                    RS10                               F2102910    
                                         INDEXING NO CARRY CONDITION                                  F2102920    
       06077  0 50000 0 06305 INC00  CLA LDA                       EXIT IF                            F2102930    
       06100  0 10000 0 06142        TZE RNC00                     LDA IS ZERO.                       F2102940    
       06101  0 50000 0 06300        CLA G                         PLACE G ANDA                       F2102950    
       06102  0 56000 0 06303        LDQ A                         IN                                 F2102960    
       06103  0 04000 0 06107        TLQ INC20                     INCX AND INCY SO THAT              F2102970    
       06104  0 60100 0 06140        STO INCX                      INCX IS LESS THAN INCY.            F2102980    
       06105 -0 60000 0 06141        STQ INCY                                                         F2102990    
       06106  0 02000 0 06111        TRA INC30                                                        F2103000    
       06107 -0 60000 0 06140 INC20  STQ INCX                                                         F2103010    
       06110  0 60100 0 06141        STO INCY                                                         F2103020    
       06111 -0 53400 1 06304 INC30  LXD XDA,1                     INITIALIZE XRA                     F2103030    
       06112  1 77767 1 06113 INC35  TXI INC40,1,-9                FIND DO OF LEVEL LDA               F2103040    
 D     06113 -3 00000 1 06142 INC40  TXL RNC00,1                   PLUS ONE.                          F2103050    
       06114  0 50000 1 02544        CLA DOTAGZ+5,1                                                   F2103060    
       06115 -0 32000 0 05514        ANA DECMSK                                                       F2103070    
       06116  0 40200 0 06305        SUB LDA                                                          F2103080    
       06117  0 40200 0 05475        SUB L(1)                                                         F2103090    
       06120  0 10000 0 06123        TZE INC50                     DO OF LEVEL LDA PLUS ONE FOUND.    F2103100    
       06121  0 12000 0 06112        TPL INC35                     LEVEL TO HIGH, GO BACK.            F2103110    
       06122  0 02000 0 06142        TRA RNC00                     LEVEL TO LOW, DA EXHAUSTED.        F2103120    
       06123  0 50000 1 02537 INC50  CLA DOTAGZ,1                  OBTAIN BETA OF                     F2103130    
       06124  0 73400 2 00000        PAX 0,2                       THIS DO IN DECREMENT.              F2103140    
       06125 -0 75400 2 00000        PXD 0,2                                                          F2103150    
       06126  0 34000 0 06141        CAS INCY                      COMPARE WITH INCY.                 F2103160    
       06127  0 02000 0 06142        TRA RNC00                     GREATER THAN OR EQUAL TO           F2103170    
       06130  0 02000 0 06142        TRA RNC00                     GREATEST OF G, A, EXIT.            F2103180    
       06131  0 34000 0 06140        CAS INCX                      LESS THAN INCY, COMPARE            F2103190    
       06132  0 02000 0 06135        TRA INC60                     WITH INCX. GREATER THAN            F2103200    
       06133  0 02000 0 06135        TRA INC60                     OR EQUAL TO INCX, GO TO INC60.     F2103210    
       06134  0 02000 0 06112        TRA INC35                     LESS THAN INCX, GET NEXT DO.       F2103220    
       06135 -0 50000 0 05517 INC60  CAL NCMSK                     AND OUT CARRY BITS.                F2103230    
       06136  0 32000 1 02544        ANS DOTAGZ+5,1                                                   F2103240    
       06137  0 02000 0 06112        TRA INC35                     GO BACK FOR NEXT DO.               F2103250    
 A     06140  0 00000 0 00000 INCX   HTR                           ES.                                F2103260    
 A     06141  0 00000 0 00000 INCY   HTR                           ES.                                F2103270    
                                         RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL            F2103280    
       06142  0 50000 0 06305 RNC00  CLA LDA                       EXIT IF LDA IS ZERO                F2103290    
       06143  0 10000 0 06214        TZE RNC95                                                        F2103300    
       06144  0 50000 0 06302        CLA LDG                       EXIT IF                            F2103310    
       06145  0 40200 0 06305        SUB LDA                       LDA EQUALS                         F2103320    
       06146  0 10000 0 06214        TZE RNC95                     LDG                                F2103330    
       06147 -0 73400 4 00000        PDX 0,4                       INITIALIZE COUNTER XR6             F2103340    
       06150 -0 53400 1 06301        LXD XDG,1                     INITIALIZE XRA                     F2103350    
       06151  0 50000 0 06302        CLA LDG                       AND                                F2103360    
       06152 -0 73400 2 00000        PDX 0,2                       XRB. C(ACC) LDG.                   F2103370    
       06153  1 00001 2 06161        TXI RNC50,2,1                 C(XRB) LDG PLUS ONE.               F2103380    
       06154  1 00011 1 06155 RNC20  TXI RNC30,1,9                 FIND NEXT BACKS                    F2103390    
       06155  3 02506 1 06214 RNC30  TXH RNC95,1,1350              SUBNESTDO.                         F2103400    
       06156  0 50000 1 02544        CLA DOTAGZ+5,1                                                   F2103410    
       06157  0 62200 0 06160        STD RNC40                                                        F2103420    
 D     06160 -3 00000 2 06154 RNC40  TXL RNC20,2                                                      F2103430    
       06161 -0 63400 1 06206 RNC50  SXD RNC75,1                   SAVE XRA                           F2103440    
       06162  0 62200 0 06212        STD RNC85                     SAVE LEVEL OF THIS DO              F2103450    
       06163 -0 75400 2 00000        PXD 0,2                       SAVE LEVEL OF NEXT INNER           F2103460    
       06164  0 60100 0 06213        STO RNC90                     SUBNEST DO.                        F2103470    
       06165  1 77767 1 06166 RNC60  TXI RNC70,1,-9                TAKE NEXT DOWN DO IF ANY.          F2103480    
 D     06166 -3 00000 1 06207 RNC70  TXL RNC80,1                                                      F2103490    
       06167  0 50000 1 02537        CLA DOTAGZ,1                  IF BETA                            F2103500    
       06170 -0 32000 0 05516        ANA ADDMSK                    OF THIS DO                         F2103510    
       06171  0 76700 0 00022        ALS 18                        IS LESS                            F2103520    
       06172  0 40200 0 06300        SUB G                         THAN G,                            F2103530    
       06173  0 12000 0 06207        TPL RNC80                     TEST LEVEL                         F2103540    
       06174  0 50000 1 02544        CLA DOTAGZ+5,1                TO SEE IF                          F2103550    
       06175 -0 32000 0 05514        ANA DECMSK                    THIS DO IS OF SAME                 F2103560    
       06176  0 40200 0 06213        SUB RNC90                     LEVEL AS NEXT INNERMOST            F2103570    
       06177 -0 10000 0 06165        TNZ RNC60                     SUBNEST DO. IF NOT, GET NEXT DO.   F2103580    
       06200  0 50000 1 02545        CLA DOTAGZ+6,1                IF SO, MAKE NO CARRY               F2103590    
       06201 -0 32000 0 05514        ANA DECMSK                    TRANSFER LEVEL OF THIS             F2103600    
       06202  0 40200 0 06305        SUB LDA                       DO EQUAL TO GREATER                F2103610    
       06203  0 12000 0 06165        TPL RNC60                     OF PREVIOUS VALUE                  F2103620    
       06204  0 50000 0 06305        CLA LDA                       AND CURRENT LDA.                   F2103630    
       06205  0 62200 1 02545        STD DOTAGZ+6,1                                                   F2103640    
 D     06206 -3 00000 0 06165 RNC75  TXL RNC60,0                   GO BACK FOR NEXT TEST DO           F2103650    
       06207 -0 53400 1 06206 RNC80  LXD RNC75,1                   GO BACK FOR NEXT SUBNEST DO,       F2103660    
       06210 -0 53400 2 06212        LXD RNC85,2                   IF COUNTER PERMITS.                F2103670    
       06211  2 00001 4 06154        TIX RNC20,4,1                 OTHERWISE, EXIT.                   F2103680    
 D     06212 -3 00000 0 06214 RNC85  TXL RNC95,0                                                      F2103690    
 A     06213  0 00000 0 00000 RNC90  HTR                           ES                                 F2103700    
       06214 -0 53400 4 06076 RNC95  LXD RS60,4                    GO BACK TO CONTROL ROUTINE         F2103710    
       06215  0 02000 4 00001        TRA 1,4                       FOR NEXT ADDRESS.                  F2103720    
                                         INDEX AND LEVEL OF ADDRESS                                   F2103730    
       06216 -0 63400 4 06226 ADLOC  SXD ADL20,4                   SAVE TSX SET                       F2103740    
       06217 -0 53400 4 05474        LXD L(0),4                    INITIALIZE XRC,                    F2103750    
       06220 -0 63400 4 06227        SXD ADL30,4                   AND DEC OF ADL30, PUT ADDRESS      F2103760    
       06221  0 60100 0 06252        STO ADL90                     IN ADL90. XRA CONTAINS BNX         F2103770    
       06222  0 50000 1 02537 ADL10  CLA DOTAGZ,1                  OBTAIN FIRST WORD.                 F2103780    
       06223  0 73400 2 00000        PAX 0,2                       SAVE BETA                          F2103790    
       06224 -0 32000 0 05514        ANA DECMSK                    GET ALPHA ALONE.                   F2103800    
       06225  0 34000 0 06252        CAS ADL90                     COMPARE WITH ADDRESS. IF           F2103810    
 D     06226 -3 00000 0 06244 ADL20  TXL ADL70,0                   ALPHA NOT LESS THAN ADD, THEN      F2103820    
 D     06227 -3 00000 0 06244 ADL30  TXL ADL70,0                   ADD IN LAST CHOOSEN DO.            F2103830    
       06230 -0 75400 2 00000        PXD 0,2                       IF ALPHA LESS THAN ADD,            F2103840    
       06231  0 34000 0 06252        CAS ADL90                     COMPARE WITH BETA.                 F2103850    
       06232  0 76100 0 00000        NOP                           IF BETA IS NOT LESS THAN           F2103860    
       06233  0 02000 0 06236        TRA ADL40                     ADDRESS, THIS DO CONTAINS          F2103870    
       06234  3 00000 4 06237        TXH ADL50,4,0                 ADDRESS. EXIT IF OUT OF NEST       F2103880    
       06235  0 02000 0 06244        TRA ADL70                     TO ADL 70. OTHERWISE, GO TO 30     F2103890    
       06236 -0 63400 1 06227 ADL40  SXD ADL30,1                   IF DO IN THIS NEST, SXD.           F2103900    
       06237  1 77767 1 06240 ADL50  TXI ADL60,1,-9                IN ANY CASE, TAKE NEXT DOWN        F2103910    
 D     06240 -3 00000 1 06244 ADL60  TXL ADL70,1                   DO, IF ANY,                        F2103920    
       06241  0 50000 1 02544        CLA DOTAGZ+5,1                PUT LEVEL IN XRC.                  F2103930    
       06242 -0 73400 4 00000        PDX 0,4                       AND GO BACK FOR TEST               F2103940    
       06243  3 00001 4 06222        TXH ADL10,4,1                 UNLESS NGW DO HAS LEVEL ONE.       F2103950    
       06244 -0 53400 3 06227 ADL70  LXD ADL30,3                   OBTAIN XDA IN XRA, XRB.            F2103960    
       06245 -3 00000 1 06250        TXL ADL80,1,0                 EXIT IF ZERO.                      F2103970    
       06246  0 50000 1 02544        CLA DOTAGZ+5,1                IF NOT ZERO, GET LDA IN            F2103980    
       06247 -0 73400 2 00000        PDX 0,2                       XRB, PUT                           F2103990    
       06250 -0 53400 4 06226 ADL80  LXD ADL20,4                   TSX SET IN XRC                     F2104000    
       06251  0 02000 4 00001        TRA 1,4                       AND RETURN.                        F2104010    
 A     06252  0 00000 0 00000 ADL90  HTR                                                              F2104020    
                                         TRALEV LISTING                                               F2104030    
       06253 -0 53400 1 06274 TLT00  LXD TLT50,1                   OBTAIN CURRENT TRALEV              F2104040    
       06254  0 60100 1 05414        STO TLTZ,1                    INDEX. STORE ENTRY.                F2104030    
       06255  1 77777 1 06256        TXI TLT10,1,-1                IF TABLE NOW FULL, GO TO           F2104060    
       06256 -0 63400 1 06274 TLT10  SXD TLT50,1                   TAPE WRITING ROUTINE.              F2104070    
       06257 -3 00000 1 06261        TXL TLT20,1,0                 OTHERWISE, SAVE NEW INDEX          F2104080    
       06260  0 02000 4 00001        TRA 1,4                       AND RETURN.                        F2104090    
       06261  0 76600 0 00224 TLT20  WRS TLTAPE                    SELECT TAPE TO WRITE AWAY          F2104100    
       06262 -0 53400 1 06274        LXD TLT50,1                   BUFFER. INITIALIZE XRA             F2104110    
       06263 -0 63400 1 06272        SXD TLT40,1                   AND TEST INSTR.                    F2104120    
       06264 -0 76000 0 00142        MSE 98                        TURN OFF TRALEV TAPE EMPTY         F2104130    
       06265  0 76100 0 00000        NOP                           LIGHT                              F2104140    
       06266  0 53400 1 06274        LXA TLT50,1                   RE-INITIALIZE INDEX QUANTITIES     F2104150    
       06267 -0 63400 1 06274        SXD TLT50,1                                                      F2104160    
       06270  0 70000 1 05414 TLT30  CPY TLTZ,1                    COPY BUFFER.                       F2104170    
       06271  1 77777 1 06272        TXI TLT40,1,-1                                                   F2104180    
 D     06272  3 00000 1 06270 TLT40  TXH TLT30,1                                                      F2104190    
       06273  0 02000 4 00001        TRA 1,4                       RETURN.                            F2104200    
       06274  0 00000 0 01130 TLT50  HTR 600                       BUFFER SIZE                        F2104210    
                                         ES FORFLOW                                                   F2104220    
                        06275 BNX    BSS 1                         BEGINNING OF NEST INDEX            F2104230    
                        06276 BNA    BSS 1                         BEGINNING OF NEST ADDRESS          F2104240    
                        06277 ENA    BSS 1                         END OF NEST ADDRESS                F2104250    
                        06300 G      BSS 1                         GAMMA OF SOME TIFGO ENTRY          F2104260    
                        06301 XDG    BSS 1                         INDEX OF DO WITH G IN IMMED.       F2104270    
                        06302 LDG    BSS 1                         RANGE. LEVEL OF XDG.               F2104280    
                        06303 A      BSS 1                         AN ADDRESS TO WHICH G TRANSFERS.   F2104290    
                        06304 XDA    BSS 1                         1NDEX OF DO WITH A IN IMMED.       F2104300    
                        06305 LDA    BSS 1                         RANGE. LEVEL OF XDA.               F2104310    
                        06306 TIFX   BSS 1                         CURRENT TIFGO INDEX.               F2104320    
                                         DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS       F2104330    
       06307 -0 53400 1 00030 SV00   LXD DOTAG-1,1                                                    F2104340    
       06310 -0 63400 1 06333        SXD SV80,1                                                       F2104350    
       06311 -0 63400 1 06340        SXD SV95,1                                                       F2104360    
       06312 -0 63400 1 06510        SXD TRA40,1                                                      F2104370    
       06313 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA                     F2104380    
       06314 -0 63400 1 06325        SXD SV44,1                    SAVE CURRENT DO INDEX              F2104390    
       06315 -0 63400 1 06345 SV10   SXD SV98,1                    SAVE NEST INDEX                    F2104400    
       06316  0 50000 1 02537 SV20   CLA DOTAGZ,1                  OBTAIN FIRST WORD CURRENT          F2104410    
       06317 -0 32000 0 05515        ANA TAGMSK                    DO AND INSPECT TAG                 F2104420    
       06320  0 10000 0 06337        TZE SV90                      IF ZERO, GO TO INDEXING            F2104430    
       06321 -0 53400 4 06345        LXD SV98,4                    OTHERWISE, NEST INDEX IN XRC       F2104440    
       06322  0 50000 4 02540 SV30   CLA DOTAGZ+1,4                OBTAIN SYM OF XRC,                 F2104450    
       06323 -0 53400 2 05477        LXD L(3),2                    INITIALIZE XRB COUNTER             F2104460    
       06324  0 34000 1 02543 SV40   CAS DOTAGZ+4,1                AND TEST FOR SYM EQUALS VAR.N.     F2104470    
 D     06325 -3 00000 0 06327 SV44   TXL SV50,0                    CURRENT DO INDEX STORAGE.          F2104480    
 D     06326 -3 00000 0 06346 SV48   TXL SF00,0                    INDEX STO  OF N IN CUR. DO         F2104490    
       06327  1 00001 1 06330 SV50   TXI SV60,1,1                  TAKE NEXT.N, COUNT                 F2104500    
       06330  2 00001 2 06324 SV60   TIX SV40,2,1                  IN XRB AND GO BACK.                F2104510    
       06331 -0 53400 1 06325 SV65   LXD SV44,1                    SYM NOT VAR.N., PUT CURRENT        F2104520    
       06332  1 77767 4 06333 SV70   TXI SV80,4,-9                 DO INDEX IN XRA AND INDEX          F2104530    
 D     06333 -3 00000 4 06337 SV80   TXL SV90,4                    XRC. IF TABLE ENDS, GO70 SU90.     F2104540    
       06334  0 50000 4 02544        CLA DOTAGZ+5,4                OTHERWISE TEST FOR,NEW NEST,       F2104550    
       06335 -0 73400 2 00000        PDX 0,2                       IF NOT NEW NEST, GO BACK TO.       F2104560    
       06336  3 00001 2 06322        TXH SV30,2,1                  TEST SYM. OTHERWISE.               F2104570    
       06337  1 77767 1 06340 SV90   TXI SV95,1,-9                 TAKE NEXT DOWN DO                  F2104580    
 D     06340 -3 00000 1 06567 SV95   TXL TS4VAL,1                  POSSIBLE. OTHERWISE, EXIT          F2104590    
       06341 -0 63400 1 06325        SXD SV44,1                    SAVE CURRENT DO INDEX.             F2104600    
       06342  0 50000 1 02544        CLA DOTAGZ+5,1                                                   F2104610    
       06343 -0 73400 2 00000        PDX 0,2                       INSPECT LEVEL.                     F2104620    
       06344  3 00001 2 06316        TXH SV20,2,1                  IF NOT NEW NEST, TRA SV20          F2104630    
 D     06345 -3 00000 0 06315 SV98   TXL SV10,0                    1F NEW NEST, SV10 (NEST.INDEX STO.)F2104640    
       06346 -0 63400 1 06326 SF00   SXD SV48,1                    SAVE INDEX OF N. N CURRENT DO      F2104650    
       06347 -0 63400 2 06356        SXD SF10,2                    SAVE N COUNTER.                    F2104660    
       06350 -0 63400 4 06361        SXD SF15,4                                                       F2104670    
       06351 -0 75400 4 00000        PXD 0,4                       SAVE INDEX OF SYMBOL DO            F2104680    
       06352  0 60100 0 06467        STO SFES1                     IN FULL WORD.                      F2104690    
       06353 -0 53400 1 06325        LXD SV44,1                    OBTAIN INDEX OF CURRENT DO         F2104700    
       06354 -0 75400 1 00000        PXD 0,1                       IN ACC. AND COMPARE                F2104710    
       06355  0 34000 0 06467        CAS SFES1                     WITH INDEX OF SYMBOL DO.           F2104720    
 D     06356 -3 00000 0 06362 SF10   TXL SF20,0                    CURRENT INDEX GREATER.             F2104730    
       06357  0 02000 0 06424        TRA SF79                      EQUALITY                           F2104740    
       06360  0 76000 0 00141        PSE 97                        SYMBOL INDEX GREATER,              F2104750    
 D     06361 -3 00000 0 06366 SF15   TXL SF30,0                    TURN ON LIGHT 97.                  F2104760    
       06362 -0 53400 4 06325 SF20   LXD SV44,4                    CUR. IND. GREATER, PUT IN XRC      F2104770    
       06363 -0 53400 1 06467        LXD SFES1,1                   SYM. IND. IN XRA.                  F2104780    
       06364 -0 76000 0 00141        MSE 97                        LIGHT 97 OFF.                      F2104790    
       06365  0 76100 0 00000        NOP                           AT SF30, XRA CONTAIN LEAST         F2104800    
       06366 -0 75400 4 00000 SF30   PXD 0,4                       OF CUR. IND, SYM. IND. XRC         F2104810    
       06367  0 60100 0 06467        STO SFES1                     CONTAINS GREATER. PUT IN ES.       F2104820    
       06370  0 50000 1 02544 SF35   CLA DOTAGZ+5,1                PUT LEVEL OF D(XRA) IN             F2104830    
       06371 -0 73400 2 00000        PDX 0,2                       XRB. HALT IF                       F2104840    
       06372  3 00001 2 06374        TXH SF40,2,1                  LEVEL                              F2104850    
       06373  0 07400 4 00004        TSX DIAG,4  IS ONE                      ERROR. GO TO DIAGNOSTIC  F2104865    
       06374  1 00011 1 06375 SF40   TXI SF50,1,9                  BACK UP IN XRA-                    F2104870    
       06375 -3 02506 1 06377 SF50   TXL SF60,1,1350               HALT IF TOP OD DOTAG               F2104880    
       06376  0 07400 4 00004        TSX DIAG,4  PASSED.                     ERROR. GO TO DIAGNOSTIC  F2104893    
       06377  0 50000 1 02544 SF60   CLA DOTAGZ+5,1                THIS ROUTINE, BY RAISING           F2104900    
       06400  0 62200 0 06401        STD SF70                      XRA, EXITS TO SF80 OR              F2104910    
 D     06401 -3 00000 2 06374 SF70   TXL SF40,2                    SF90 UPON FINDING A DO             F2104920    
       06402 -0 75400 1 00000        PXD 0,1                       IN THE SUBNEST OF XRA              F2104930    
       06403  0 34000 0 06467        CAS SFES1                     WHICH IS THE DO OF XRC OR          F2104940    
       06404  0 02000 0 06407        TRA SF73                      CONTAINS THE DO OF XRC             F2104950    
       06405  0 02000 0 06431        TRA SF80                      AND CURRENT DO.                    F2104960    
       06406  0 02000 0 06370        TRA SF35                      GO BACK FOR NEXT DO                F2104970    
       06407 -0 63400 1 06422 SF73   SXD SF76,1                    THIS ROUTINE (THROUGH SF76)        F2104980    
       06410 -0 53400 1 06361 SF74   LXD SF15,1                                                       F2104990    
       06411  0 07400 4 06470        TSX TRA00,4                   USES TRA00                         F2105000    
       06412  0 10000 0 06465        TZE SFEND                                                        F2105010    
       06413  0 60100 0 06423        STO SF78                      TO DETERMINE THE                   F2105020    
       06414 -0 53400 1 06422        LXD SF76,1                    GREATEST EXIT LEVEL OF             F2105030    
       06415  0 50000 1 02544        CLA DOTAGZ+5,1                DEFINITION FROM A                  F2105040    
       06416 -0 32000 0 05514        ANA DECMSK                    DO SYM NOT IN THE                  F2105050    
       06417  0 34000 0 06423        CAS SF78                      SUBNEST OF A DO WITH               F2105060    
       06420  0 50000 0 06423        CLA SF78                      VARIABLE NS, BUT IN A              F2105070    
       06421  0 76100 0 00000        NOP                           SUBNEST WHICH HAS A                F2105080    
 D     06422 -3 00000 0 06437 SF76   TXL SF90,0                    NON EMPTY INTERSECTION             F2105090    
 A     06423  0 00000 0 00000 SF78   HTR                           WITH THAT SUB NEST.                F2105100    
       06424  0 50000 1 02544 SF79   CLA DOTAGZ+5,1                                                   F2105110    
       06425 -0 32000 0 05514        ANA DECMSK                                                       F2111120    
       06426  0 40200 0 05475        SUB L(1)                                                         F2105130    
       06427 -0 10000 0 06437        TNZ SF90                                                         F2105140    
       06430  0 02000 0 06465        TRA SFEND                                                        F2105150    
       06431 -0 76000 0 00141 SF80   MSE 97                        EQUALITY, IF SYM DO IS             F2105160    
       06432  0 07400 4 00004        TSX DIAG,4  CURRENT DO,                 ERROR. GO TO DIAGNOSTIC. F2105173    
       06433  0 50000 0 05511        CLA BITONE                                                       F2105180    
       06434 -0 60200 1 02544        ORS DOTAGZ+5,1                                                   F2105190    
       06435  0 50000 1 02544        CLA DOTAGZ+5,1                OBTAIN LEVEL OF DEFINITION         F2105200    
       06436 -0 32000 0 05514        ANA DECMSK                    AND STORE                          F2105210    
       06437  0 77100 0 00022 SF90   ARS 18                        IN ADDRESS PART                    F2105220    
       06440  0 60100 0 06467        STO SFES1                     OF SFESI.                          F2105230    
       06441 -0 53400 1 06326        LXD SV48,1                    INDEX OF VAR.N. IN CUR. DO.        F2105240    
       06442  0 50000 1 02547        CLA DOTAGZ+8,1                OBTAIN PREVIOUS LEV. DEF.          F2105250    
       06443 -0 32000 0 05516        ANA ADDMSK                    AND COMPARE                        F2105260    
       06444  0 34000 0 06467        CAS SFES1                     WITH NEW,                          F2105270    
       06445  0 02000 0 06465        TRA SFEND                     EXIT UNLESS                        F2105280    
       06446  0 02000 0 06465        TRA SFEND                     NEW LEV.                           F2105290    
       06447  0 50000 0 06467        CLA SFES1                     IS LARGGER, IN WHICH CASE          F2105300    
       06450  0 62100 1 02547        STA DOTAGZ+8,1                REPLACE OLD WITH NEW               F2105310    
       06451 -0 53400 2 06356        LXD SF10,2                    OBTAIN N COUNTER IN XRB            F2105320    
       06452  0 50000 1 02543 SF92   CLA DOTAGZ+4,1                OBTAIN VAR. N IN ACC.              F2105330    
       06453  0 02000 0 06457        TRA SF96                      GO TO INDEXING.                    F2105340    
       06454  0 34000 1 02543 SF94   CAS DOTAGZ+4,1                COMPARE, TO FIND DUPLICATE         F2105350    
       06455  0 02000 0 06457        TRA SF96                      N S.                               F2105360    
       06456  0 02000 0 06462        TRA SF99                      DUPE FOUND.                        F2105370    
       06457  1 00001 1 06460 SF96   TXI SF98,1,1                  INDEX IN DO FORMULA                F2105380    
       06460  2 00001 2 06454 SF98   TIX SF94,2,1                  AND IN COUNTER                     F2105390    
       06461  0 02000 0 06465        TRA SFEND                                                        F2105400    
       06462  0 50000 0 06467 SF99   CLA SFES1                     REPLACE                            F2105410    
       06463  0 62100 1 02547        STA DOTAGZ+8,1                OLD LEVEL                          F2105420    
       06464  0 02000 0 06452        TRA SF92                      OF DEFINITION.                     F2105430    
       06465 -0 53400 4 06361 SFEND  LXD SF15,4                    GO BACK FOR NEXT                   F2105440    
       06466  0 02000 0 06331        TRA SV65                      SYMBOL DO                          F2105450    
 A     06467  0 00000 0 00000 SFES1  HTR                           ES,                                F2105460    
                                          GREATEST TRANSFER LEVEL OUT OF DO FORMULA                   F2105470    
       06470  0 50000 1 02544 TRA00  CLA DOTAGZ+5,1                OBTAIL LEVEL OF DO                 F2105480    
       06471 -0 73400 2 00000        PDX 0,2                       USE MAX LEV TWENTY                 F2105490    
       06472 -3 00024 2 06474 TRA10  TXL TRA20,2,20                                                   F2105500    
       06473 -0 53400 2 06472        LXD TRA10,2                                                      F2105510    
       06474 -0 63400 2 06513 TRA20  SXD TRA50,2                   INITIALIZE TEST INSTR.             F2105520    
       06475 -0 75400 2 00000        PXD 0,2                       COMPUTE LEVEL MINUS ONE            F2105530    
       06476  0 77100 0 00022        ARS 18                        AND INITIALIZE SHIFT INSTR.        F2105540    
       06477  0 40200 0 06537        SUB TRAN1                     COMPUTE 35 MINUS (L M1NUS          F2105530    
       06500  0 62100 0 06515        STA TRA70                     ONE) AND                           F2105560    
       06501  0 40200 0 06540        SUB TRAN2                     INITIALIZE                         F2105570    
       06502  0 62100 0 06516        STA TRA80                     SHIFT INSTR.                       F2105580    
       06503 -0 75400 0 00000        PXD 0,0                       INITIALIZE                         F2105590    
       06504  0 60100 0 06542        STO TRAN5                     ES LOCATION TO ZERO                F2105600    
       06505 -0 50000 1 02546 TRA30  CAL DOTAGZ+7,1                OR INTO TRAN5 ALL THE              F2105610    
       06506 -0 60200 0 06542        ORS TRAN5                     T2 WORDS OF THIS DO                F2105620    
       06507  1 77767 1 06510        TXI TRA40,1,-9                AND ALL DOS CONTAINED              F2105630    
 D     06510 -3 00000 1 06514 TRA40  TXL TRA60,1                   BY THIS DO.                        F2105640    
       06511  0 50000 1 02544        CLA DOTAGZ+5,1                                                   F2105650    
       06512 -0 73400 2 00000        PDX 0,2                                                          F2105660    
 D     06513  3 00000 2 06505 TRA50  TXH TRA30,2                                                      F2105670    
       06514  0 56000 0 06541 TRA60  LDQ TRAN4                     PUT MASK IN QUOTIENT               F2105680    
 A     06515  0 76300 0 00000 TRA70  LLS                           REGISTER, SHIFT COMPUTED           F2105690    
 A     06516  0 76700 0 00000 TRA80  ALS                           AMOUNTS TO CONSTRUCT               F2105700    
       06517 -0 32000 0 06542        ANA TRAN5                     MASK IN ACC. AND IN                F2105710    
       06520  0 10000 0 06536        TZE TRA95                     UNION OF T2 WORDS. EXIT IF ZERO.   F2105720    
       06521  0 60100 0 06542        STO TRAN5                     OBTAIN LOW ORDER BIT               F2105730    
       06522  0 40200 0 06537        SUB TRAN1                     IN ACC.                            F2105740    
       06523  0 60100 0 06543        STO TRAN6                                                        F2105750    
       06524 -0 50100 0 06542        ORA TRAN5                                                        F2105760    
       06525  0 40200 0 06543        SUB TRAN6                                                        F2105770    
       06526 -0 53400 1 05475        LXD L(1),1                                                       F2105780    
       06527  0 34000 1 06567 TRA85  CAS TRATAB+19,1               SEARCH TABLE                       F2105790    
       06530  0 02000 0 06532        TRA TRA86                     TO OBTAIN                          F2105800    
       06531  0 02000 0 06535        TRA TRA90                     LEVEL INTEGER                      F2105810    
       06532  1 00001 1 06533 TRA86  TXI TRA87,1,1                                                    F2105820    
       06533 -3 00023 1 06527 TRA87  TXL TRA85,1,19                                                   F2105830    
       06534  0 07400 4 00004        TSX DIAG,4                              ERROR  GO TO DIAGNOSTIC. F2103845    
       06535 -0 75400 1 00000 TRA90  PXD 0,1                       PUT LEVEL IN ACC DECREMENT         F2105850    
       06536  0 02000 4 00001 TRA95  TRA 1,4                       EXIT.                              F2105860    
       06537  0 00000 0 00001 TRAN1  HTR 1                                                            F2105870    
       06540  0 00000 0 00043 TRAN2  HTR 35                                                           F2105880    
       06541 +377777777777    TRAN4  OCT 377777777777                                                 F2105890    
 A     06542  0 00000 0 00000 TRAN5  HTR                                                              F2105900    
 A     06543  0 00000 0 00000 TRAN6  HTR                                                              F2105910    
       06544 +000000200000    TRATAB OCT 200000                                                       F2105920    
       06545 +000000400000           OCT 400000                                                       F2105930    
       06546 +000001000000           OCT 1000000                                                      F2105940    
       06547 +000002000000           OCT 2000000                                                      F2105950    
       06550 +000004000000           OCT 4000000                                                      F2105960    
       06551 +000010000000           OCT 10000000                                                     F2105970    
       06552 +000020000000           OCT 20000000                                                     F2105980    
       06553 +000040000000           OCT 40000000                                                     F2105990    
       06554 +000100000000           OCT 100000000                                                    F2106000    
       06555 +000200000000           OCT 200000000                                                    F2106010    
       06556 +000400000000           OCT 400000000                                                    F2106020    
       06557 +001000000000           OCT 1000000000                                                   F2106030    
       06560 +002000000000           OCT 2000000000                                                   F2106040    
       06561 +004000000000           OCT 4000000000                                                   F2106050    
       06562 +010000000000           OCT 10000000000                                                  F2106060    
       06563 +020000000000           OCT 20000000000                                                  F2106070    
       06564 +040000000000           OCT 40000000000                                                  F2106080    
       06565 +100000000000           OCT 100000000000                                                 F2106090    
       06566 +200000000000           OCT 200000000000                                                 F2106100    
                                         FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS       F2106110    
       06567  0 50000 0 07152 TS4VAL CLA 4VALAD                    READ IN                            F2106120    
       06570 -0 53400 2 05502        LXD L(6),2                    FORVAL                             F2106130    
       06571  0 07400 4 07060        TSX RTAPE,4                                                      F2106140    
       06572 -3 01747 1 06575        TXL TSV10,1,999                                                  F2106150    
       06573  0 76000 0 00144        PSE 100                       IF FORVAL EMPTY, SET               F2106160    
       06574  0 02000 0 06753        TRA T190                      SENSE LIGHT AND EXTT               F2106170    
       06575 -0 63400 1 06652 TSV10  SXD TS40,1                    INITIALIZE TEST INSTRS.            F2106180    
       06576 -0 63400 1 06673        SXD TS75,1                                                       F2106190    
       06577 -0 76000 0 00143        MSE 99                        TEST FOR EMPTY DOTAG               F2106200    
       06600  0 02000 0 06603        TRA TSV20                     OFF, NOT EMPTY                     F2106210    
       06601  0 76000 0 00143        PSE 99                        ON, DOTAG EMPTY                    F2106220    
       06602  0 02000 0 06753        TRA T190                      EXIT                               F2106230    
       06603 -0 53400 1 00030 TSV20  LXD DOTAG-1,1                 DOTAG TEST INITIALIZING            F2106240    
       06604 -0 63400 1 06650        SXD TS35,1                                                       F2106230    
       06605 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA                     F2106260    
       06606 -0 53400 4 05505        LXD L(1000,4                  AND                                F2106270    
       06607 -0 63400 4 06755        SXD XFOR,4                    XFOR. CONTINUE WITH TS00           F2106280    
       06610 -0 76000 0 00141 TS00   MSE 97                        SENSE LIGHT-97 OFF                 F2106290    
       06611  0 76100 0 00000        NOP                                                              F2106300    
       06612  0 50000 1 02544 TS10   CLA DOTAGZ+5,1                OBTAIN LEVEL OF CURRENT            F2106310    
       06613 -0 73400 2 00000        PDX 0,2                       DO IN XRB. IF L IS ONE,            F2106320    
       06614 -3 00001 2 06621        TXL TS15,2,1                  GO TO NEST PROCEDURE. IF           F2106330    
       06615 -0 76000 0 00141        MSE 97                        L 1S NOT ONE AND LIGHT IS          F2106340    
       06616  0 02000 0 06644        TRA TS30,0                    OFF, GO TO INNER DO PRECEDURE,     F2106350    
       06617  0 76000 0 00141        PSE 97                        IF LIGHT IS ON, CONTINUE           F2106360    
       06620  1 77767 1 06650        TXI TS35,1,-9                 INDEXING FOR NEXT NEST.            F2106370    
       06621 -0 76000 0 00141 TS15   MSE 97                                                           F2106380    
       06622  0 76100 0 00000        NOP                                                              F2106390    
       06623  0 50000 1 02537        CLA DOTAGZ,1                  L IS ONE, DO NEST PR0CEDURE.       F2106400    
       06624  0 73400 2 00000        PAX 0,2                       ESTABLISH BEGINNING OF             F2106410    
       06625 -0 32000 0 05514        ANA DECMSK                    NEST ADDRESS BNA, AND              F2106420    
       06626  0 60100 0 06756        STO TBNA                      END OF NEST ADDRESS ENA.           F2106430    
       06627 -0 75400 2 00000        PXD 0,2                       SEARCH IN FORTAG UNTIL             F2106440    
       06630  0 60100 0 06757        STO TENA                      FOR NRS. FOUND GREATER             F2106450    
       06631 -0 53400 4 06755        LXD XFOR,4                    THAN ENA. IF NONE, EXIT            F2106460    
       06632  0 50000 0 06756        CLA TBNA                      FROM ENTIRE ROUTINE.               F2106470    
       06633  0 34000 4 04510 TS20   CAS 4VALZ,4                   TEST WHETHER FIRST SUCH            F2106480    
       06634  1 77776 4 06652        TXI TS40,4,-2                 NR. IS IN NEST IF NOT,             F2106490    
       06635  0 07400 4 00004        TSX DIAG,4  FIND NEXT NEST. IF SO,     (ERROR. GO TO DIAGNOSTIC.)F2106503    
       06636 -0 63400 4 06755        SXD XFOR,4                    GO TO INDEXING INSTRS.             F2106510    
       06637  0 50000 0 06757        CLA TENA                      FOR NEXT DO.                       F2106520    
       06640  0 40200 4 04510        SUB 4VALZ,4                                                      F2106530    
       06641  0 12000 0 06643        TPL TS25                                                         F2106540    
       06642  0 76000 0 00141        PSE 97            RECORD NO FORVAL FALLS IN THIS NEST.           F2106550    
       06643  1 77767 1 06650 TS25   TXI TS35,1,-9                                                    F2106560    
       06644  0 50000 1 02537 TS30   CLA DOTAGZ,1                  INNER DO PROCEDURE.                F2106570    
       06645 -0 32000 0 05515        ANA TAGMSK                    TEST FOR NON ZERO TAG,             F2106580    
       06646 -0 10000 0 06654        TNZ TS50                      IN WHICH CASE TRA FOR              F2106590    
       06647  1 77767 1 06650 TS33   TXI TS35,1,-9                 TABLE SEARCH. OTHERWISE,           F2106600    
 D     06650  3 00000 1 06612 TS35   TXH TS10,1                    INDEX FOR NEXT DO, IF POSSIBLE.    F2106610    
 D     06651 -3 00000 0 06753 TS38   TXL T190,0                    EXIT, STORAGE FOR INDEX CUR. DO.   F2106620    
 D     06652  3 00000 4 06633 TS40   TXH TS20,4                    INDEX TEST FOR FORVAL              F2106630    
       06653  0 02000 0 06753        TRA T190                      EXIT                               F2106640    
       06654 -0 63400 1 06651 TS50   SXD TS38,1                    SAVE INDEX OF CURRENT DO           F2106650    
       06655 -0 63400 2 06722        SXD T110,2                    SAVE LEVEL OF CURRENT DO           F2106660    
       06656 -0 53400 4 06755        LXD XFOR,4                    OBTAIN FORVAL INDEX IN XRC         F2106670    
       06657 -0 53400 2 05477 TS55   LXD L(3),2                    PUT THREE IN XRC                   F2106680    
       06660 -0 53400 1 06651        LXD TS38,1                    CURRENT DO IN XRA                  F2106690    
       06661  0 50000 0 06757        CLA TENA                      TEST FOR END OF NEST               F2106700    
       06662  0 40200 4 04510        SUB 4VALZ,4                                                      F2106710    
       06663 -0 12000 0 06647        TMI TS33                      NOT IN NEST TRA FOR NEXT DO.       F2106720    
       06664  0 50000 4 04511        CLA 4VALZ+1,4                 IN NEST 0BTAIN FORTAG              F2106730    
       06665  0 34000 1 02543 TS60   CAS DOTAGZ+4,1                SYMBOL, COMPARE WITH VAR           F2106740    
       06666  0 02000 0 06670        TRA TS65                      N SYMBOLS.                         F2106750    
       06667  0 02000 0 06676        TRA TS80                      EQUALITY                           F2106760    
       06670  1 00001 1 06671 TS65   TXI TS70,1,1                  INDEX IN XRA,                      F2106770    
       06671  2 00001 2 06665 TS70   TIX TS60,2,1                  COUNT IN XRB                       F2106780    
       06672  1 77776 4 06673        TXI TS75,4,-2                 TAKE NEXT FORTAG ENTRY,            F2106790    
 D     06673  3 00000 4 06657 TS75   TXH TS55,4                    IF ANY                             F2106800    
       06674 -0 53400 1 06651        LXD TS38,1                    RESTORE CURRENT DO INDEX           F2106810    
       06675  1 77767 1 06650        TXI TS35,1,-9                 AND TRA FOR NEXT DO.               F2106820    
       06676 -0 63400 2 06743 TS80   SXD T148,2                    SAVE VAR. N. COUNTER.              F2106830    
       06677 -0 63400 1 06742        SXD T144,1                    SAVE COUNTER OF SYM IN DO          F2106840    
       06700 -0 53400 1 06651        LXD TS38,1                    CURRENT DO INDEX IN XRA            F2106850    
       06701 -0 53400 2 06722        LXD T110,2                    CURRENT DO LEVEL IN XRB            F2106860    
       06702  1 00001 2 06703        TXI TS85,2,1                  ADJUST XRB FOR CURRENT DO TEST.    F2106870    
       06703  0 50000 1 02544 TS85   CLA DOTAGZ+5,1                OBTAIN NEXT BACK DO IN             F2106880    
       06704  0 62200 0 06705        STD TS90                      SUBNEST. ON FIRST TIME             F2106890    
 D     06705  3 00000 2 06711 TS90   TXH T100,2                    THROUGH, CURRENT DO IS             F2106900    
       06706  1 00011 1 06703 TS92   TXI TS85,1,9                  PRODUCED.                          F2106910    
       06707  2 00001 2 06706 TS94   TIX TS92,2,1                  ADJUST LEVEL.                      F2106920    
       06710  0 07400 4 00004        TSX DIAG,4  IF NOT IN NEST,             ERROR. GO TO DIAGNOSTIC. F2106933    
       06711  0 50000 1 02537 T100   CLA DOTAGZ,1                  NEXT BACK DO FOUND.                F2106940    
       06712 -0 32000 0 05514        ANA DECMSK                    TEST TO SEE IF FORTAG              F2106950    
       06713  0 40200 4 04510        SUB 4VALZ,4                   FORMULA NR. IS IN THIS             F2106960    
       06714  0 12000 0 06707        TPL TS94                      DO. IF NOT, GO TO TS94             F2106970    
       06715  0 50000 1 02537        CLA DOTAGZ,1                  TO ADJUST LEVEL FOR                F2106980    
       06716 -0 32000 0 05516        ANA ADDMSK                    OBTAINING NEW SUBNEST DO.          F2106990    
       06717  0 76700 0 00022        ALS 18                                                           F2107000    
       06720  0 40200 4 04510        SUB 4VALZ,4                                                      F2107010    
       06721 -0 12000 0 06707        TMI TS94                                                         F2107020    
 D     06722 -3 00000 2 06724 T110   TXL T120,2                    DEC CONTAINS CURRENT LEVEL.        F2107030    
       06723  0 02000 0 06746        TRA T170          APPARENT DEFINITION  OF A VARIABLE N WITHIN    F2107044    
                                                       RANGE OF THE DO WITH VARIABLE N. IGNORE AND    F2107046    
                                                       GET NEXT FORVAL.                               F2107047    
       06724 -0 53400 1 06742 T120   LXD T144,1                    PUT CUR. VAR. DO INDEX IN          F2107050    
       06725  0 50000 1 02547        CLA DOTAGZ+8,1                XRA, AND OBTAIN LEV. DEF,          F2107060    
       06726  0 73400 2 00000        PAX 0,2                       OF VAR. N.                         F2107070    
       06727 -0 63400 2 06731        SXD T130,2                    STORE IN DEC OF T130.              F2107080    
       06730 -0 53400 2 06705        LXD TS90,2                    OBTAIN LEVEL OF DO CONTAINING      F2107000    
 D     06731 -3 00000 2 06746 T130   TXL T170,2                    FURTAG FOR. NR.                    F2107100    
       06732 -0 75400 2 00000        PXD 0,2                       CHOOSE LARGER AND PUT IN           F2107110    
       06733  0 77100 0 00022        ARS 18                        LEV, DEF. FIELD OF CURRENT DO.     F2107120    
       06734  0 62100 1 02547        STA DOTAGZ+8,1                IF CHANGE MADE, SAVE               F2107130    
       06735  0 60100 0 06754        STO T195                      LEVEL,                             F2107140    
       06736 -0 53400 2 06743        LXD T148,2                    AND TEST TO SEE IF THIS            F2107150    
       06737  0 50000 1 02543        CLA DOTAGZ+4,1                SYMBOL                             F2107160    
       06740  1 00001 1 06745        TXI T160,1,1                  DUPLICATED                         F2107170    
       06741  0 34000 1 02543 T140   CAS DOTAGZ+4,1                IN DO VAR.N S.                     F2107180    
 D     06742 -3 00000 0 06744 T144   TXL T150,0        IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100    
 D     06743 -3 00000 0 06747 T148   TXL T180,0        OF DEF  BY THIS ( DEC HAS 3,2,1 IF FORVAL      F2107200    
                                                       MATCHES VARIABLE N3,N2,N1)                     F2107201    
       06744  1 00001 1 06745 T150   TXI T160,1,1                  NEW LEVEL.                         F2107210    
       06745  2 00001 2 06741 T160   TIX T140,2,1                                                     F2107220    
       06746  1 77776 4 06673 T170   TXI TS75,4,-2                                                    F2107230    
       06747  0 50000 0 06754 T180   CLA T195                                                         F2107240    
       06750  0 62100 1 02547        STA DOTAGZ+8,1                                                   F2107230    
       06751  0 50000 1 02543        CLA DOTAGZ+4,1                                                   F2107260    
       06752  1 00001 1 06745        TXI T160,1,1                                                     F2107270    
       06753  0 02000 0 06760 T190   TRA RH00                      EXIT                               F2107280    
 A     06754  0 00000 0 00000 T195   HTR                           ES                                 F2107290    
 A     06755  0 00000 0 00000 XFOR   HTR                           FORTAG INDEX                       F2107300    
 A     06756  0 00000 0 00000 TBNA   HTR                           ES                                 F2107310    
 A     06757  0 00000 0 00000 TENA   HTR                           ES                                 F2107320    
                                         USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH.  F2107330    
       06760 -0 53400 2 05501 RH00   LXD L(5),2                    READ IN                            F2107340    
       06761  0 50000 0 07155        CLA 4VARAD                    FORVAR                             F2107350    
       06762  0 07400 4 07060        TSX RTAPE,4                                                      F2107360    
       06763  3 02733 1 07053        TXH RH95,1,1499               EXIT IF FORVAR EMPTY               F2107370    
       06764 -0 76000 0 00143        MSE 99                        TEST FOR EMPTY DOTAG.              F2107380    
       06765  0 02000 0 06770        TRA RH05                      NOT EMPTY                          F2107390    
       06766  0 76000 0 00143        PSE 99                        EMTPY, RESTORE SENSE LIGHT         F2107400    
       06767  0 02000 0 07053        TRA RH95                      AND EXIT.                          F2107410    
       06770 -0 63400 1 07032 RH05   SXD RH60,1                    FORVAR.TEST                        F2107420    
       06771 -0 63400 1 07043        SXD RH75,1                    INIT1ALIZING                       F2107430    
       06772 -0 53400 1 00030        LXD DOTAG-1,1                 DOTAG TEST                         F2107440    
       06773 -0 63400 1 07052        SXD RH90,1                    INITIALIZING                       F2107450    
       06774 -0 53400 1 05507        LXD L(1500,1                  MAX WORDS IN FORVAL                F2107460    
       06775 -0 63400 1 07054        SXD RHNNX,1                   IN NEXT NEST INDEX.                F2107470    
       06776 -0 76000 0 00141        MSE 97                        TURN LIGHT 97 OFF.                 F2107480    
       06777  0 76100 0 00000        NOP                                                              F2107490    
       07000 -0 53400 1 05506        LXD L(1350,1                  PUT MAX WDS IN DOTAG IN XRA.       F2107500    
       07001  0 50000 1 02537 RH10   CLA DOTAGZ,1                  OBTAIN FIRST DOTAG WORD.           F2107510    
       07002  0 73400 2 00000        PAX 0,2                       SEPARATE ALPHA AND BETA,           F2107520    
       07003 -0 32000 0 05514        ANA DECMSK                    STORE IN RFIRST AND RLAST          F2107530    
       07004  0 60100 0 07056        STO RFIRST                                                       F2107540    
       07005 -0 75400 2 00000        PXD 0,2                                                          F2107550    
       07006  0 60100 0 07057        STO RLAST                                                        F2107560    
       07007  0 50000 1 02544        CLA DOTAGZ+5,1                OBTAIN LEVEL IN XRB.               F2107570    
       07010 -0 73400 2 00000        PDX 0,2                                                          F2107580    
       07011  3 00001 2 07017        TXH RH30,2,1                  TRA IF LEVEL GREATER THAN ONE.     F2107590    
       07012 -0 76000 0 00141        MSE 97                        LEVEL IS ONE, TEST WHETHER,        F2107600    
       07013  0 02000 0 07015        TRA RH20                      ON LAST LEVEL ONE, FORVAR          F2107610    
       07014  0 02000 0 07053        TRA RH95                      EXHAUSTED, IF SO, EXIT,            F2107620    
       07015 -0 53400 4 07054 RH20   LXD RHNNX,4                   OTHERWISE, ADJUST FORVAR           F2107630    
       07016 -0 63400 4 07055        SXD RHCNX,4                   1NDEX TO SKIP LAST NEST AREA       F2107640    
       07017 -0 53400 4 07055 RH30   LXD RHCNX,4                   PUT FORVAR INDEX IN XRC            F2107650    
       07020  0 50000 0 07056        CLA RFIRST                    BEGIN SEARCH FOR FIRSTL.           F2107660    
       07021  0 34000 4 05474 RH40   CAS 4VARZ,4                   FORVAR ENTRY IN RANGE.             F2107670    
       07022  1 77776 4 07032        TXI RH60,4,-2                                                    F2107680    
       07023  0 07400 4 00004        TSX DIAG,4                              ERROR  GO TO DIAGNOSTIC  F2107695    
       07024 -0 63400 4 07055        SXD RHCNX,4                   SAVE INDEX AT THIS POINT,          F2107700    
       07025  0 50000 0 07057 RH50   CLA RLAST                     FOR NEXT DO, AND COMPARE           F2107710    
       07026  0 34000 4 05474        CAS 4VARZ,4                   FORVAR ENTRY WITH RLAST            F2107720    
       07027  0 76100 0 00000        NOP                                                              F2107730    
       07030  0 02000 0 07034        TRA RH70                      TRA, IN RANGE.                     F2107740    
       07031  0 02000 0 07047        TRA RH80                      TRA, NOT IN RANGE                  F2107750    
 D     07032  3 00000 4 07021 RH60   TXH RH40,4                    IF NO ENTRIES GREATER              F2107760    
       07033  0 02000 0 07053        TRA RH95                      THAN RFIRST, EXIT.                 F2107770    
       07034  0 50000 1 02540 RH70   CLA DOTAGZ+1,1                IN RANGE, COMPARE SYMB0LS          F2107780    
       07035  0 40200 4 05475        SUB 4VARZ+1,4                 IF EQUAL, PUT BIT IN               F2107790    
       07036 -0 10000 0 07042        TNZ RH72                      DOTAG-ENTRY.                       F2107800    
       07037  0 50000 0 05511        CLA BITONE                                                       F2107810    
       07040 -0 60200 1 02544        ORS DOTAGZ+5,1                                                   F2107820    
       07041  3 00001 2 07051        TXH RH85,2,1                                                     F2107830    
       07042  1 77776 4 07043 RH72   TXI RH75,4,-2                 INDEX FORVAR AND GO BACK,          F2107840    
 D     07043  3 00000 4 07025 RH75   TXH RH50,4                    IF POSSIBLE. OTHERWISE,            F2107850    
       07044  3 00001 2 07051        TXH RH85,2,1                  TEST LEVEL. IF LEVEL IS            F2107860    
       07045  0 76000 0 00141        PSE 97                        ONE, ARRANGE TO EXIT WHEN          F2107870    
       07046  0 02000 0 07051        TRA RH85                      NEXT LEVEL ONE ENCOUNTERED         F2107880    
       07047  3 00001 2 07051 RH80   TXH RH85,2,1                  N0T IN RANGE, TEST LEVEL           F2107890    
       07050 -0 63400 4 07054        SXD RHNNX,4                   SET NEXT NEST INDEX IF L IS ONE.   F2107900    
       07051  1 77767 1 07052 RH85   TXI RH90,1,-9                 INDEX IN DOTAG AND GO              F2107910    
 D     07052  3 00000 1 07001 RH90   TXH RH10,1                    BACK, IF POSSIBLE.                 F2107920    
       07053  0 02000 0 07157 RH95   TRA LB00                      EXIT                               F2107930    
 A     07054  0 00000 0 00000 RHNNX  HTR                           NEXT NGST INDEX                    F2107940    
 A     07055  0 00000 0 00000 RHCNX  HTR                           CURRENT NEST INDEX                 F2107950    
 A     07056  0 00000 0 00000 RFIRST HTR                           ALPHA ADDRESS                      F2107960    
 A     07057  0 00000 0 00000 RLAST  HTR                           BETA ADDRESS                       F2107970    
                                          TAPE READING ROUTINE                                        F2107980    
       07060  0 62100 0 07101 RTAPE  STA RT40                      INITIALIZE TABLE ADDRESS           F2107990    
       07061  0 60100 0 07126        STO RT92                                                         F2108000    
       07062 -0 63400 4 07124        SXD RT80,4                    SAVEXRC, TSX SET                   F2108010    
       07063 -0 75400 2 00000        PXD 0,2                       SAVE XRB,                          F2108020    
       07064  0 77100 0 00022        ARS 18                        TABLE NR, IN ADDRESS.              F2108030    
       07065  0 60100 0 07125        STO RT90                                                         F2108040    
       07066 -0 53400 4 07136        LXD RTD18,4       INITIALIZE ERROR COUNTER.                      F2108050    
       07067 -0 63400 4 07121        SXD RT73,4                                                       F2108060    
       07070  0 76200 0 00222 RT10   RDS TTAPE                     SELECT TAPE                        F2108070    
       07071 -0 53400 1 07126        LXD RT92,1                    PUT MAX NR WORDS IN XRA            F2108080    
       07072 -0 53400 4 05476        LXD L(2),4                    PUT TWO IN XRC                     F2108090    
       07073  0 70000 4 07131 RT20   CPY RT95+2,4                  COPY FIRST TWO WORDS.              F2108100    
       07074  0 02000 0 07077        TRA RT30                      INTO E.S.                          F2108110    
       07075  0 07400 4 00004        TSX DIAG,4  EOF.                        ERROR. GO TO DIAGNOSTIC  F2108125    
       07076  0 07400 4 00004        TSX DIAG,4  EOR                         ERROR. GO TO DIAGNOSTIC. F2108135    
       07077  2 00001 4 07073 RT30   TIX RT20,4,1                                                     F2108140    
       07100 -3 00001 2 07131        TXL RTDO0,2,1                                                    F2108150    
       07101  0 70000 1 00000 RT40   CPY 0,1                       COPY TABLE                         F2108160    
       07102  1 77777 1 07101        TXI RT40,1,-1                 COUNT NR. OF WORDS.                F2108170    
       07103  0 07400 4 00004        TSX DIAG,4  EOF                         ERROR. GO TO DIAGNOSTIC. F2108183    
       07104  0 76600 0 00333 RT45   WRS 219                                 ERROR. GO TO DIAGNOSTIC. F2108183    
       07105 -0 76000 0 00012        RTT                           ERROR TEST                         F2108190    
       07106  0 02000 0 07115        TRA RT70                      ERROR, TRA                         F2108200    
       07107  0 50000 0 07125        CLA RT90                      NO ERROR,                          F2108220    
       07110  0 40200 0 07127        SUB RT95                      TEST TABLE NR.                     F2108230    
       07111  0 10000 0 07113        TZE RT60                      NO ERROR                           F2108240    
       07112  0 07400 4 00004        TSX DIAG,4  WRONG TABLE 1DENT NR.       ERROR. GO TO DIAGNOSTIC. F2108255    
       07113 -0 53400 4 07124 RT60   LXD RT80,4                    TABLE CORRECT,                     F2108260    
       07114  0 02000 4 00001        TRA 1,4                       RETURN.                            F2108270    
       07115 -0 53400 4 07121 RT70   LXD RT73,4                                                       F2108280    
       07116  0 76400 0 00222        BST TTAPE                     ERROR, BACKSPACE TAPE              F2108290    
       07117 -2 00001 4 07122        TNX RT75,4,1                                                     F2108300    
       07120 -0 63400 4 07121        SXD RT73,4                    COUNT DOWN ERROR COUNTER           F2108310    
 D     07121 -3 00000 0 07070 RT73   TXL RT10,0                                                       F2108320    
       07122  0 56000 0 07125 RT75   LDQ RT90          IF FIVE FAILURES, PUT                          F2108332    
       07123  0 07400 4 00004        TSX DIAG,4  TABLE NR. IN MQ.            ERROR. GO TO DIAGNOSTIC. F2108344    
 A     07124  0 00000 0 00000 RT80   HTR                           TSX INDEX STORAGE                  F2108350    
 A     07125  0 00000 0 00000 RT90   HTR                           TABLE NR STORAGE, C.S.             F2108360    
 A     07126  0 00000 0 00000 RT92   HTR                           ADDRESS WORD STORAGE               F2108370    
 A     07127  0 00000 0 00000 RT95   HTR                           TABLE NR, WD ONE OF TABLE.         F2108380    
 A     07130  0 00000 0 00000 RT96   HTR                           NR. OF WDS IN DEC.                 F2108390    
       07131 -0 75400 0 00000 RTDO0  PXD 0,0                       THIS ROUTINE                       F2108400    
       07132 -0 53400 4 07136 RTD10  LXD RTD18,4                   READS IN ONE                       F2108410    
       07133  0 70000 1 02537 RTD15  CPY DOTAGZ,1                  ENTRY FROM                         F2108420    
       07134  1 77777 1 07137        TXI RTD20,1,-1                TDO, AFTER WHICH                   F2108430    
       07135  0 07400 4 00004        TSX DIAG,4  FOUR ZERO WORDS            =ERROR. GO TO DIAGNOSTIC. F2108445    
       07136 -3 00005 0 07104 RTD18  TXL RT45,0,5                  ARE STORED,BEFORE                  F2108450    
       07137  2 00001 4 07133 RTD20  TIX RTD15,4,1                 READING IN                         F2108460    
       07140  1 00003 4 07141 RTD23  TXI RTD25,4,3                 THE NEXT ENTRY.                    F2108470    
       07141  0 60100 1 02537 RTD25  STO DOTAGZ,1                  STORE ZERO                         F2108480    
       07142  1 77777 1 07143        TXI RTD30,1,-1                INDEX                              F2108490    
       07143  0 60100 1 02537 RTD30  STO DOTAGZ,1                  AND REPEAT.                        F2108500    
       07144  1 77777 1 07145        TXI RTD35,1,-1                WHEN DOTAG                         F2108510    
       07145  0 60100 1 02537 RTD35  STO DOTAGZ,1                  ENTRY IS                           F2108520    
       07146  1 77777 1 07147        TXI RTD40,1,-1                COMPLETE,                          F2108530    
       07147  0 60100 1 02537 RTD40  STO DOTAGZ,1                  TRA                                F2108540    
       07150  1 77777 1 07132        TXI RTD10,1,-1                TO RTD10                           F2108550    
       07151  0 02506 0 02537 DOAD   HTR DOTAGZ,0,1350             ADDRESS PART CONTAINS              F2108560    
       07152  0 01750 0 04510 4VALAD HTR 4VALZ,0,1000              ADDRESS OF LAST WORD IN            F2108570    
       07153  0 01130 0 03670 TIFAD  HTR TIFZ,0,600                TABLE PLUS ONE.                    F2108580    
       07154  0 00372 0 04263 TRADAD HTR TRADZ,0,250               DEC CONTAINS MAX NR OF             F2108590    
       07155  0 02734 0 05474 4VARAD HTR 4VARZ,0,1500              WRDS.                              F2108600    
       07156  0 02734 0 03670 4TAGAD HTR FORTZ,0,1500                                                 F2108610    
                                         TRANSFER IN EXTENDED RANGE BIT.                              F2108620    
       07157 -0 76000 0 00143 LB00   MSE 99                        TEST FOR EMPTY DOTAG               F2108630    
       07160  0 02000 0 07163        TRA LB02                      OFF, NOT EMPTY                     F2108640    
       07161  0 76000 0 00143        PSE 99                        ON, EMPTY, RESET LIGHT             F2108650    
       07162  0 02000 0 07211        TRA EB00                      AND EX1T                           F2108660    
       07163 -0 53400 1 00030 LB02   LXD DOTAG-1,1                 OBTAIN NEXT UNUSED INDEX           F2108670    
 D     07164 -3 00000 0 07207 LB05   TXL LB60,0                    TRA TO ADJUST FOR LAST DO.         F2108680    
       07165  0 50000 1 02545 LB10   CLA DOTAGZ+6,1                OBTAIN T1 WORD.                    F2108690    
       07166 -0 12000 0 07207        TMI LB60                      TEST SIGN, TRA IF NEG.             F2108700    
       07167 -0 32000 0 05511        ANA BITONE                    TEST FOR TRA IN IMMED. RANGE.      F2108710    
       07170  0 10000 0 07207        TZE LB60                      IF NONE,TRA.                       F2108720    
       07171 -0 63400 1 07164        SXD LB05,1                    SAVE XRA                           F2108730    
       07172  0 50000 1 02544        CLA DOTAGZ+5,1                PUT LEVEL                          F2108740    
       07173 -0 73400 2 00000        PDX 0,2                       IN XRB                             F2108750    
       07174 -0 50000 0 05510 LB20   CAL LMSK                      OR IN                              F2108760    
       07175 -0 60200 1 02545        ORS DOTAGZ+6,1                MSK                                F2108770    
       07176 -3 00001 2 07206        TXL LB50,2,1                  EXIT IF LEVEL ONE.                 F2108780    
       07177  1 00011 1 07200 LB25   TXI LB30,1,9                  FIND NEXT BACK                     F2108790    
       07200  0 50000 1 02544 LB30   CLA DOTAGZ+5,1                SUBNEST DO,                        F2108800    
       07201  0 62200 0 07202        STD LB40                                                         F2108810    
 D     07202 -3 00000 2 07177 LB40   TXL LB25,2                                                       F2108820    
       07203 -0 73400 2 00000        PDX 0,2                       SAVE NEW LEVEL IN XRB.             F2108830    
       07204  0 50000 1 02545        CLA DOTAGZ+6,1                TEST SIGN OF WORD T1.              F2108840    
       07205  0 12000 0 07174        TPL LB20                      IF PLUS GO TO PUT IN MSK.          F2108850    
       07206 -0 53400 1 07164 LB50   LXD LB05,1                    IF NOT, FIND NEXT DO               F2108860    
       07207  1 00011 1 07210 LB60   TXI LB70,1,9                  IN MAIN PASS.                      F2108870    
       07210 -3 02506 1 07165 LB70   TXL LB10,1,1350               EB00 FOLLOWS                       F2108880    
                                         END OF BLOCK ROUTINE                                         F2108890    
       07211  0 77200 0 00223 EB00   REW 147                       REWIND DOTAG TAPE                  F2108900    
       07212 -0 76000 0 00143        MSE 99                        TEST FOR EMPTY DQTAG               F2108910    
       07213  0 02000 0 07216        TRA EB10                      OFF, NOT EMPTY                     F2108920    
       07214  0 76000 0 00143        PSE 99                        ON, EMPTY, RESTORE AND TRA.        F2108930    
       07215  0 02000 0 07233        TRA EB50                                                         F2108940    
       07216 -0 53400 1 00030 EB10   LXD DOTAG-1,1                 INITIALIZE TEST INSTR.             F2108950    
       07217 -0 63400 1 07230        SXD EB40,1                    AND                                F2108960    
       07220 -0 53400 1 05506        LXD L(1350,1                  XRA                                F2108970    
       07221 -0 53400 4 05503 EB20   LXD L(9),4                    WRITE                              F2108980    
       07222  0 50000 1 02544        CLA DOTAGZ+5,1                DOTAG                              F2108990    
       07223 -0 73400 2 00000        PDX 0,2                       ON                                 F2109000    
       07224  3 00001 2 07226        TXH EB30,2,1                  TAPE                               F2109010    
       07225  0 76600 0 00223        WRS 147                       ONE                                F2109020    
       07226  0 70000 1 02537 EB30   CPY DOTAGZ,1                  NEST                               F2109030    
       07227  1 77777 1 07230        TXI EB40,1,-1                 PER                                F2109040    
 D     07230 -3 00000 1 07233 EB40   TXL EB50,1                    RECORD                             F2109050    
       07231  2 00001 4 07226        TIX EB30,4,1                                                     F2109060    
       07232  0 02000 0 07221        TRA EB20                                                         F2109070    
       07233  0 77000 0 00223 EB50   WEF 147                       WRITE END OF FILE                  F2109080    
       07234 -0 53400 2 05500 EB60   LXD L(4),2                    READ                               F2109090    
       07235  0 50000 0 07156        CLA 4TAGAD                    IN                                 F2109100    
       07236  0 07400 4 07060        TSX RTAPE,4                   FORTAG.                            F2109110    
       07237 -0 63400 1 00733        SXD FORTAG-1,1                SET SENSE LIGHT 97                 F2109120    
       07240 -0 76000 0 00141        MSE 97                        ON IF FORTAG                       F2109130    
       07241  0 76100 0 00000        NOP                           EMPTY, OFF IF                      F2109140    
       07242 -3 02733 1 07244        TXL EB70,1,1499               FORTAG                             F2109150    
       07243  0 76000 0 00141        PSE 97                        NOT EMPTY.                         F2109160    
       07244  0 76200 0 00222 EB70   RDS TTAPE                     MOVE TTAPE PAST                    F2109170    
       07245  0 70000 0 07251        CPY EB80                      END OF FILE MARK.                  F2109180    
       07246  0 02000 0 07244        TRA EB70                                                         F2109190    
       07247  0 02000 0 07252        TRA EB90                      EOF                                F2109200    
       07250  0 07400 4 00004        TSX DIAG,4  SHOULD NOT BE EOR HERE.     ERROR. GO TO DIAGNOSTIC. F2III215    
 A     07251  0 00000 0 00000 EB80   HTR                           ES                                 F2109220    
       07252 -0 76000 0 00142 EB90   MSE 98            IS TRALEV TALBE EMPTY                          F2109230    
       07253  0 02000 0 07260        TRA EB95                                                         F2109240    
       07254  0 76600 0 00224        WRS TLTAPE                    ON, EMPTY.                         F2109250    
       07255  0 70000 0 05474        CPY L(0)                                                         F2109260    
       07256  0 70000 0 05474        CPY L(0)                                                         F2109270    
       07257  0 76000 0 00142        PSE 98                                                           F2109280    
       07260  0 77000 0 00224 EB95   WEF TLTAPE        TRALEV TAPE                                    F2109290    
       07261  0 76200 0 00221        RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE     F2109295    
       07262  0 02000 0 00004        TRA ONETCS        GO TO ONE TO CS ( MONITOR).                    F2109296    
       07263 -0 63400 2 07301 ERLIST SXD ERIR2,2           SAVE X R  B                                F2109311    
       07264 -0 53400 2 07302        LXD ERNBR,2           GET ERROR NUMBER                           F2109321    
       07265  0 50000 4 02537        CLA DOTAGZ,4          SAVE ALPHA DO BETA                         F2109331    
       07266  0 60100 2 77777        STO LIST,2            IN LIST                                    F2109141    
       07267  0 50000 4 02540        CLA DOTAGZ+1,4        AND SYMBOL                                 F2109351    
       07270  0 60100 2 77776        STO LIST-1,2                                                     F2109361    
       07271  0 50000 1 02537        CLA DOTAGZ,1          SAVE OTHER ALPHA DO BETA                   F2109371    
       07272  0 60100 2 77775        STO LIST-2,2                                                     F2109181    
       07273  0 50000 1 02540        CLA DOTAGZ+1,1        AND SYMBOL                                 F2109391    
       07274  0 60100 2 77774        STO LIST-3,2                                                     F2102401    
       07275  1 00004 2 07276        TXI ERNXT,2,4                                                    F2109411    
       07276 -0 63400 2 07302 ERNXT  SXD ERNBR,2                                                      F2109421    
       07277 -0 53400 2 07301        LXD ERIR2,2                                                      F2109431    
       07300  0 02000 0 05625        TRA MR60                                                         F2109441    
       07301  0 00000 0 00000 ERIR2                                                                   F2109451    
       07302  0 00000 0 00000 ERNBR                                                                   F2109461    
       07303 -0 63400 2 07301 ERBETA SXD ERIR2,2           SAVE ALPHA DO BETA                         F2109471    
       07304 -0 53400 2 07302        LXD ERNBR,2           WHERE ALPHA                                F2109481    
       07305  0 60000 2 77777        STZ LIST,2            IS GREATER THAN                            F2109491    
       07306  0 50000 1 02537        CLA DOTAGZ,1          ITS BETA                                   F2109501    
       07307  0 60100 2 77776        STO LIST-1,2                                                     F2109511    
       07310  0 50000 1 02540        CLA DOTAGZ+1,1                                                   F2109521    
       07311  0 60100 2 77775        STO LIST-2,2                                                     F2109531    
       07312  1 00003 2 07313        TXI ERNX,2,3                                                     F2109541    
       07313 -0 63400 2 07302 ERNX   SXD ERNBR,2                                                      F2109551    
       07314 -0 53400 2 07301        LXD ERIR2,2                                                      F2109561    
       07315  0 02000 0 05570        TRA MR15                                                         F2109571    
       07316 -0 53400 2 07302 ERTST  LXD ERNBR,2                                                      F2109581    
       07317 -3 00000 2 05662        TXL FLOW,2,0                                                     F2109591    
       07320  0 07400 4 00004        TSX 4,4                                                          F2109601    
                        77777 LIST   SYN 32767                                                        F2109611    
                        00004 ONETCS EQU 4                                                            F2109710    
                        00004 DIAG   EQU 4                                                            F2109711    
                        05510 LMSK   SYN L(MZ)                                                        F2109712    
                        00222 TTAPE  EQU 146                                                          F2109722    
                        00224 TLTAPE EQU 148                                                          F2109732    
 A                      00000        END               END OF BLOCK 1                                 F2109742    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     987           0           0           0           0
 LIB       0           0           0           0           0
 COL     987           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      996                  
0NUMBER OF SYMBOLS,  DEF   318,DEFOP     0,UNDEF     0      
9            REM BLOCK TWO OF SECTION TWO.                                                
1                                        BLOCK TWO OF SECTION TWO.                                                
                                           MASTER RECORD CARD = FN034                                 F2200004    
                                         BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE   F2200006    
                                         SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS                 F2200010    
                                         SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE   F2200020    
                                         DOS. THERE ARE TWO MACHINE STATES, ONE                       F2200030    
                                         OF WHICH IS RESERVED EXCLUSIVELY                             F2200040    
                                         FOR THOSE SUBSCRIPT COMBINATIONS                             F2200050    
                                         SOME SUBSCRIPT ELEMENT/S OF WHICH ARE                        F2200060    
                                         NOT UNDER CONTROL OF A DO (RELATIVE                          F2200070    
                                         CONSTANT).                                                   F2200080    
                        00031        ORG 25                                                           F2200090    
                        00031 DOTAG  BSS 1                                                            F2200100    
                        00032        BSS 449                                                          F2200110    
                        00733 DOTAGZ BSS 1                                                            F2200120    
                        00734 FORTAG BSS 1                                                            F2200140    
                        00735        BSS 1499                                                         F2200150    
                        03670 FORTZ  BSS 1                                                            F2200160    
                        03670        ORG 1976                                                         F2200170    
                        03670 DOREC  BSS 1                     (INIT ZERO)                            F2200180    
                        03671        BSS 1                                                            F2200190    
                        03672 ATSW   BSS 1             ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITOF2200200    
                        03673 NEWTAG BSS 1                    (INIT 4000M0DS, FIRSTTAG)               F2200210    
                        03674 XC     BSS 1             IX CURRENT DO.                                 F2200220    
                        03675 LC     BSS 1             LEV CURRENT DO                                 F2200230    
                        03676 ALPHA  BSS 1             ALPHA CURRENT DO                               F2200240    
                        03677 BETA   BSS 1             BETA CURRENT DO                                F2200250    
                        03700 TAG    BSS 1             TAG CURRENT TAG IN ROUTINE TAG                 F2200260    
                        03701 TS     BSS 1             TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT  F2200270    
                        03702 TAG1   BSS 1             4TH WD OF TAGTAG                               F2200280    
                        03703 GR0UP  BSS 1             GROUP NR. IN DEC                               F2200290    
                        03704 C1     BSS 1             COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOMF2200300    
                        03705 S1     BSS 1             SUBSCR 1ST SYMB                                F2200310    
                        03706 C2     BSS 1             COEFF 2ND SYMB                                 F2200320    
                        03707 S2     BSS 1             SUBSC 2ND                                      F2200330    
                        03710 C3     BSS 1             COEFF 3RD                                      F2200340    
                        03711 S3     BSS 1             SUBSC 3RD                                      F2200350    
                        03712 D1     BSS 1             DIMENSION 1ST                                  F2200360    
                        03713 D2     BSS 1             DIM 2ND                                        F2200370    
                        03714 X1     BSS 1             IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD     F2200380    
                        03715 L1     BSS 1             LEV DO MATCHING 1ST SYMB    BELOW, INIT 0,IDENTF2200390    
                        03716 X2     BSS 1             IX DO MATHCING 2ND SYMB                        F2200400    
                        03717 L2     BSS 1             LEV DO MATCHING  2ND                           F2200410    
                        03720 X3     BSS 1             IX DO MATCHING 3RD                             F2200420    
                        03721 L3     BSS 1             LEV DO MATCHING 3RD                            F2200430    
                        03722 XL     BSS 1             IX LOWEST LEVEL DOSUB                          F2200440    
                        03723 LL     BSS 1             LEV LOWEST LEVEL DOSUB                         F2200450    
                        03724 NRSUBS BSS 1             NR. SUBSCRIPTS IN SUBSCR COMBINATION           F2200460    
                        03725 NRRC   BSS 1             NR. RELCONS IN SUBSCR COMBINATION              F2200470    
                        03726 NRDS   BSS 1             NR DOSUBS IN S.C.                              F2200480    
                        03727 DORC   BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC  F2200490    
                        03730 RCSUBS BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCONF2200500    
                        03731 DOSUBS BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB F2200510    
                        03732 DELTA  BSS 1                                                            F2200520    
                        03733 RCDUP  BSS 1             BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS   F2200530    
                        03734 DUPES  BSS 1             BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS   F2200540    
                        03735 RSYM1  BSS 1                                                       --   F2200550    
                        03736 RSYM2  BSS 1                                                            F2200560    
                        03737 CARWRD BSS 1             BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2,   F2200570    
                                                       13 CENTER TYPE 1, 14 CENTER TYPE 2.            F2200571    
                                                       S SET NEG IF COUNTER AND TEST FOUND            F2200572    
                        03740 TL1    BSS 1                                                            F2200580    
                        03741 TL2    BSS 1                                                            F2200590    
                        03742 A      BSS 1                                                            F2200600    
                        03743 B      BSS 1                                                            F2200610    
                        03744 NEXTA  BSS 1                                                            F2200620    
                        03745 LASTB  BSS 1                                                            F2200630    
                        03746 REBITS BSS 1                                                            F2200640    
                        03747 TRABIT BSS 1                                                            F2200650    
                        03750 LOWP0S BSS 1             5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID)   F2200660    
       03751  0 00000 0 00000 L(0)       0,0,0                                                        F2200670    
       03752  0 00001 0 00000 L(1)       0,0,1                                                        F2200680    
       03753  0 00002 0 00000 L(2)       0,0,2                                                        F2200690    
       03754  0 00003 0 00000 L(3)       0,0,3                                                        F2200711    
       03755  0 00004 0 00000 L(4)       0,0,4                                                        F2200710    
       03756  0 00005 0 00000 L(5)       0,0,5                                                        F2200720    
       03757  0 00006 0 00000 L(6)       0,0,6                                                        F2200730    
       03760  0 00024 0 00000 L(20)      0,0,20                                                       F2200740    
       03761  0 00044 0 00000 L(36)      0,0,36                                                       F2200750    
       03762  0 00074 0 00000 L(60)      0,0,60                                                       F2200760    
       03763  0 00702 0 00000 L(450)     0,0,450                                                      F2200770    
       03764  0 02734 0 00000 L(1500     0,0,1500                                                     F2200780    
       03765  0 00000 0 00001 L(1)A      1                                                            F2200790    
       03766  0 00000 0 00002 L(2)A      2                                                            F2200800    
       03767  0 00000 0 00004 L(4)A      4                                                            F2200810    
       03770 -0 00000 0 00000 L(MZ)  MZE                                                              F2200820    
       03771 +377777777777    35ONES OCT 377777777777                                                 F2200830    
       03772 +077777000000    DECMSK OCT 77777000000                                                  F2200840    
       03773 +000000077777    ADDMSK OCT 77777                                                        F2200850    
       03774 +000100000000    CR1    OCT 100000000     BIT 11                                         F2200860    
       03775 +000040000000    CR2    OCT 40000000      BIT 12                                         F2200870    
       03776 +000000300000    CARMSK OCT 300000        BITS 19,20 (CARRY BITS OF DOTAG, WD 6)         F2200880    
       03777 +000000004000    FRSTAG OCT 4000                                                         F2200890    
       04000 +200000000000    BITONE OCT 200000000000                                                 F220090D    
       04001 +100000000000    BITTWO OCT 100000000000                                                 F2200910    
       04002 -200000000000    2BITS  OCT -200000000000 S AND 1 BIT                                    F2200920    
       04003 +000000400000    BIT18  OCT 400000                                                       F2200930    
       04004 +000000200000    BIT19  OCT 200000                                                       F2200940    
       04005 +000000100000    BIT20  OCT 100000                                                       F2200950    
       04006  0 00000 0 00144 ADTXX      100           DEC CONTAINS (FROM)HERE TO NAMXX BELOW,        F2200960    
       04007  0 00000 0 00454 RESXX      300           IX VALUE FOR NEXT (DEC INIT SET TO-ADD)        F2200970    
       04010  0 00000 0 00120 TAGXX      80            TABLE ENTRY.                                   F2200980    
       04011  0 00000 0 00144 NAMXX      100                                                          F2200990    
       04012  0 77200 0 00223 BEGIN  REW DOTAPE                    REWIND DOTAG TAPE                  F2201000    
       04013 -0 53400 1 03756        LXD L(5),1                    INITIALIZE                         F2201010    
       04014  0 50000 1 05106 BEG10  CLA LADDIN+5,1                DRUM PROGRAM                       F2201020    
       04015 -0 32000 0 03773        ANA ADDMSK                    ADDRESSES                          F2201030    
       04016  0 60100 1 05101        STO LADDS+5,1                                                                
       04017  2 00001 1 04014        TIX BEG10,1,1                                                    F2201040    
       04020  0 50000 0 03751        CLA L(0) , ,                                                     F2201050    
       04021  0 60100 0 03670        STO DOREC                                                        F2201060    
       04022 -0 76000 0 00012        RTT                           TURN                               F2201070    
       04023  0 76100 0 00000        NOP                           LIGHT OFF                          F2201080    
       04024 -0 53400 6 03751        LXD L(0),6                    TEST FOR EMPTY                     F2201090    
       04025 -0 76000 0 00144        MSE 100                       FORVAL                             F2201110    
       04026 -0 53400 4 03752        LXD L(1),4                    OFF, NOT EMPTY                     F2201120    
       04027 -0 63400 4 04112        SXD END80,4                   ON, EMPTY                          F2201130    
       04030 -0 76000 0 00143        MSE 99                        TEST FOR                           F2201140    
       04031 -0 53400 2 03752        LXD L(1),2                    EMPTY DOTAG                        F2201150    
       04032 -0 63400 2 04113        SXD END85,2                   SAVE TABLE INFO 1N END PROG.       F2201160    
       04033 -3 00000 2 04043        TXL END,2,0                   IF DOTAG EMPTY, GO TO END.         F2201170    
       04034 -0 53400 1 00733        LXD FORTAG-1,1                INITIALIZE                         F2201170    
       04035 -0 63400 1 05426        SXD TINF30,1                  FORTAG                             F2201180    
       04036 -0 63400 1 04407        SXD TAG20,1                   TEST                               F2201190    
       04037 -0 63400 1 04516        SXD TAG90,1                   INSTRUCTIONS.                      F2201200    
       04040  0 50000 0 03777  PAT01 CLA FRSTAG        INITIALIZE NEW TAG NAME BASE                   F2201220    
       04041  0 60100 0 03673        STO NEWTAG                                                       F2201230    
       04042  0 02000 0 04116        TRA NEST                                                         F2201240    
       04043  0 77000 0 00224 END    WEF ATAPE                     WEF ON TAGTAG TAPE                 F2201250    
       04044  0 76600 0 00303        WRS 195                       MAKE END OF DRUMTAG TABLE ENTRY.   F2201260    
       04045  0 46000 0 05100        LDA LADDS+4                                                      F2201270    
       04046  0 70000 0 03771        CPY 35ONES                                                       F2201280    
       04047  0 70000 0 03771        CPY 35ONES                                                       F2201290    
       04050 -0 53400 1 03756        LXD L(5),1                                                       F2201300    
       04051  0 76600 0 00333 END10  WRS 219                       DELAY.                             F2201310    
       04052  0 76600 0 00303        WRS ADRUM                     WRITE.                             F2201320    
       04053  0 50000 1 05106        CLA LADDIN+5,1                ALL                                F2201330    
       04054  0 40200 0 03766        SUB L(2)A                     DRUM                               F2201340    
       04055  0 62100 0 04114        STA END90                     TABLE                              F2201350    
       04056  0 50000 1 05106        CLA LADDIN+5,1                WORD                               F2201360    
       04057 -0 32000 0 03773        ANA ADDMSK                    COUNTS                             F2201370    
       04060  0 40200 1 05101        SUB LADDS+5,1     IN                                             F2201380    
       04061  0 76000 0 00003        SSP               FIRST                                          F2201390    
       04062  0 60100 0 04115        STO END95         TWO                                            F2201400    
       04063  0 46000 0 04114        LDA END90         WORDS                                          F2201410    
       04064  0 70000 0 04115        CPY END95         PRECEDING                                      F2201420    
       04065  0 70000 0 04115        CPY END95         EACH TABLE . (TSXCOM, TRASTO, NAMKEY,          F2201430    
       04066  2 00001 1 04051        TIX END10,1,1     CHATAG, DRMTAG)                                F2201440    
       04067  0 76000 0 00140        PSE 96                        RESTORE SENSE LIGHTS               F2201450    
       04070 -0 53400 1 04112        LXD END80,1                   SL 100 ON, FORVAL EMPTY            F2201450    
       04071  3 00000 1 04073        TXH END20,1,0                 SL 99 ON, DOTAG EMPTY,             F2201470    
       04072  0 76000 0 00144        PSE 100                                                          F2201480    
       04073 -0 53400 1 04113 END20  LXD END85,1                                                      F2201490    
       04074  3 00000 1 04076        TXH END30,1,0                                                    F2201500    
       04075  0 76000 0 00143        PSE 99                                                           F2201510    
       04076  0 77000 0 00222 END30  WEF TAPE2         WRITE EOF AFTER DONEST RECORDS                 F2201520    
       04077  0 76600 0 00222        WRS TAPE2                                                        F2201530    
       04100  0 70000 0 03670        CPY DOREC         MAKE AN EXTRA FILE WITH                        F2201540    
       04101  0 70000 0 03670        CPY DOREC         DONEST RECORD COUNT.                           F2201550    
       04102  0 77000 0 00222        WEF TAPE2                                                        F2201560    
       04103  0 50000 0 05075        CLA LADDS+1       TRASTO CARRYOVER TO BLOCK 3                    F2201570    
       04104  0 60100 0 07775        STO 4093                                                         F2201580    
       04105  0 50000 0 05074        CLA LADDS         TSXCOM CARRYOVER TO BLOCK 3.                   F2201590    
       04106  0 60100 0 07776        STO 4094                                                         F2201600    
       04107  0 50000 0 05076        CLA LADDS+2       NAMKEY (OR NAME) CARRYOVER TO BLOCK 3,         F2201610    
       04110  0 60100 0 07777        STO 4095                                                         F2201620    
       04111  0 02000 0 06647        TRA NORMRT                                                       F2201635    
 A     04112  0 00000 0 00000 END80  HTR               ES. (DEC HAS 1 IF FORVAL NOT EMPTY)            F2201640    
 A     04113  0 00000 0 00000 END85  HTR               FOR  (DEC HAS 1 IF DOTAG NOT EMPTY)            F2201650    
 A     04114  0 00000 0 00000 END90  HTR                           END                                F2201670    
 A     04115  0 00000 0 00000 END95  HTR                           PROGRAM.                           F2201680    
       04116 -0 53400 1 03751 NEST   LXD L(0),1                    READ                               F2201690    
       04117  0 76200 0 00223 NEST10 RDS DOTAPE                    ONE                                F2201700    
       04120 -0 53400 2 03763        LXD L(450),2                  NEST OF DO FORMULAS                F2201710    
       04121  0 70000 2 00733 NEST20 CPY DOTAGZ,2                  FROM                               F2201720    
       04122  1 77777 2 04156        TXI NEST60,2,-1               DOTAPE.                            F2201730    
       04123  0 02000 0 04043        TRA END                       IF EOF, GO TO ROUTINE END.         F2201740    
       04124  0 50000 0 03751 NEST30 CLA L(0)                      INITIALIZING INSTRUCTIONS.         F2201750    
       04125  0 60100 0 03672        STO ATSW                                                         F2201760    
       04126 -0 63400 2 03674        SXD XC,2                      PUT C(XRB) IN XC                   F2201780    
       04127 -0 63400 2 00030        SXD DOTAG-1,2     INITIALIZE                                     F2201790    
       04130 -0 63400 2 04260        SXD NEST95,2      DECS                                           F2201800    
       04131 -0 63400 2 05451        SXD TRAW20,2      THAT                                           F2201810    
       04132 -0 63400 2 05464        SXD TRAW50,2      TEST                                           F2201820    
       04133 -0 63400 2 05316        SXD SPC040,2      END OF                                         F2201830    
       04134 -0 63400 2 05353        SXD SPC090,2      DONEST.                                        F2201840    
       04135  0 53400 4 04006        LXA ADTXX,4       INIT                                           F2201850    
       04136 -0 63400 4 04006        SXD ADTXX,4       DECS                                           F2201860    
       04137  0 53400 4 04007        LXA RESXX,4       FROM                                           F2201870    
       04140 -0 63400 4 04007        SXD RESXX,4       ADDRESSES.                                     F2201880    
       04141  0 53400 4 04010        LXA TAGXX,4                                                      F2201890    
       04142 -0 63400 4 04010        SXD TAGXX,4                                                      F2201900    
       04143  0 53400 4 04011        LXA NAMXX,4                                                      F2201910    
       04144 -0 63400 4 04011        SXD NAMXX,4                                                      F2201920    
       04145  0 76600 0 00333        WRS 219                       MAKE                               F2201930    
       04146 -0 76000 0 00012        RTT                           RTT                                F2201940    
       04147  0 02000 0 04151        TRA NEST35                    TEST                               F2201950    
       04150  0 02000 0 04262        TRA DOFOR                     IF NO ERROR, GO TO DOFOR.          F2201960    
       04151  1 00001 1 04152 NEST35 TXI NEST40,1,1                IF ERROR,                .         F2201970    
       04152  3 00004 1 04155 NEST40 TXH NEST50,1,4    TRY 4 TIMES MORE FOR                           F2201985    
       04153  0 76400 0 00223        BST DOTAPE                    CORRECT READ.                      F2201990    
       04154  0 02000 0 04117        TRA NEST10        AFTER FIFTH INCORRECT READ,                    F2202002    
       04155  0 07400 4 00004 NEST50 TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC  F2202015    
       04156  3 00000 2 04121 NEST60 TXH NEST20,2,0                INDEX COPY. IF DOTAG               F2202020    
       04157  0 70000 0 04163        CPY NEST70                    STORAGE FULL, AND MORE             F2202030    
       04160  0 07400 4 00004        TSX DIAG,4  NEST ENTRIES REMAIN.        ERROR. GO TO DIAGNOSTIC. F2202045    
       04161  0 07400 4 00004        TSX DIAG,4  INCORRECT EOF.              ERROR. GO TO DIAGNOSTIC. F2202055    
       04162  0 02000 0 04124        TRA NEST30                    NO ENTRIES LEFT, GO TO NEST30).    F2202060    
 A     04163  0 00000 0 00000 NEST70 HTR                           E.S.                               F2202070    
       04164 -0 53400 2 03755 NESTEN LXD L(4),2                    PUT END OF NEST INDICATION         F2202080    
       04165  0 50000 0 03771        CLA 35ONES                    IN TAGTAG, CONSISTING OF           F2202090    
       04166  0 60100 2 05067 NEST80 STO E1+4,2                    FOUR WORDS OF 35 ONES.             F2202100    
       04167  2 00001 2 04166        TIX NEST80,2,1                                                   F2202120    
       04170  0 07400 4 05510        TSX TAGENT,4                  ENTER IN TAGTAG AND                F2202130    
       04171  0 07400 2 05522        TSX TETAPE,2                  WRITE BUFFER ON TAPE.              F2202140    
       04172  0 50000 0 03752        CLA L(1)                                                                     
       04173  0 60100 0 03672        STO ATSW                      SET ADDED TAG SWITCH               F2202150    
       04174  0 07400 4 05206        TSX DRMENT,4                  AND GO TO DRMENT TO                F2202160    
       04175 -0 53400 1 04011        LXD NAMXX,1                   PROCESS ADDED TAGS                 F2202170    
                                         SXD NEST84,1              TO DRUM TABLE NAME                 F2202190    
       04176 -0 63400 1 04212        SXD NEST84,1                  TO DRUM TABLE NAME                 F2202190    
       04177  0 53400 1 04011        LXA NAMXX,1                   ALL ENTRIES                        F2202200    
 D     04200 -3 00000 0 04212 NEST81 TXL NEST84,0                 IN CORE TABLE NAME                  F2202210    
       04201  0 50000 1 07301 NEST82 CLA NAMZ,1                                                       F2202210    
       04202  0 60100 0 05063        STO E1                                                           F2202220    
       04203  0 50000 1 07302        CLA NAMZ+1,1                                                     F2202230    
       04204  0 60100 0 05064        STO E2                                                           F2202240    
       04205  0 50000 0 05071        CLA NAMKEY                                                       F2202250    
       04206 -0 63400 1 04200        SXD NEST81,1                                                     F2202260    
       04207  0 07400 4 05025        TSX LIST,4                                                       F2202270    
       04210 -0 53400 1 04200        LXD NEST81,1                                                     F2202280    
       04211  1 77776 1 04212        TXI NEST84,1,-2                                                  F2202290    
 D     04212  3 00000 1 04201 NEST84 TXH NEST82,1                                                     F2202300    
       04213 -0 53400 1 04006        LXD ADTXX,1                   TRANSFER                           F2202310    
       04214 -0 63400 1 04234        SXD NEST88,1                  TO DRUM TABLE NAME                 F2202320    
       04215  0 53400 1 04006        LXA ADTXX,1                   ALL ENTRIESP                       F2202340    
 D     04216 -3 00000 0 04234 NEST85 TXL NEST88,0                 IN CORE TABLE ADTAG                 F2202340    
       04217  0 50000 1 07136 NEST86 CLA ADTAGZ+1,1                EXCEPT                             F2202360    
       04220 -0 12000 0 04233        TMI NEST87                    RESET                              F2202370    
       04221  0 60100 0 05064        STO E2                        ENTRIES                            F2202380    
       04222  0 50000 1 07135        CLA ADTAGZ,1                                                     F2202380    
       04223  0 60100 0 05063        STO E1                                                           F2202390    
       04224 -0 73400 2 00000        PDX 0,2                                                          F2202400    
       04225  0 50000 2 00733        CLA DOTAGZ,2                                                     F2202410    
       04226  0 62200 0 05063        STD E1                                                           F2202420    
       04227 -0 63400 1 04216        SXD NEST85,1                                                     F2202430    
       04230  0 50000 0 05071        CLA NAMKEY                                                       F2202440    
       04231  0 07400 4 05025        TSX LIST,4                                                       F2202450    
       04232 -0 53400 1 04216        LXD NEST85,1                                                     F2202460    
       04233  1 77776 1 04234 NEST87 TXI NEST88,1,-2                                                  F2202470    
 D     04234  3 00000 1 04217 NEST88 TXH NEST86,1                                                     F2202480    
       04235 -0 53400 1 00030 NST100 LXD DOTAG-1,1                                                    F2202490    
       04236  0 02000 0 04247        TRA NST120                                                       F2202500    
       04237  0 50000 1 00743 NST110 CLA DOTAGZ+8,1    DOES BIT 20 WD 9 OF THIS DOTAG                 F2202510    
       04240 -0 32000 0 04005        ANA BBIT          EQ 1.                                          F2202530    
       04241  0 10000 0 04247        TZE NST120        AND                                            F2202530    
       04242  0 50000 1 00732        CLA DOTAGZ-1,1    DOES BIT 18 WD 9 OF PRIOR DOTAG                F2202550    
       04243 -0 32000 0 04003        ANA ABIT          EQ 1.                                          F2202550    
       04244 -0 10000 0 04247        TNZ NST120                                                       F2202560    
       04245  0 50000 0 03773        CLA ADDMSK        YES. ERASE DEC WD 9                            F2202570    
       04246  0 32000 1 00743        ANS DOTAGZ+8,1    OF PRIOR  DOTAG.                               F2202580    
       04247  1 00011 1 04250 NST120 TXI NST130,1,9                                                   F2202590    
       04250 -3 00671 1 04237 NST130 TXL NST110,1,441                                                 F2202610    
       04251  0 50000 0 03670        CLA DOREC                     WRITE                              F2202620    
       04252  0 40000 0 03752        ADD L(1)                      DOTAG                              F2202630    
       04253  0 60100 0 03670        STO DOREC                     ON                                 F2202640    
       04254  0 76600 0 00222        WRS TAPE2                     TAPE TWO.                          F2202660    
       04255 -0 53400 1 03763        LXD L(450),1                  COUNT NR.                          F2202670    
       04256  0 70000 1 00733 NEST90 CPY DOTAGZ,1                  OF NESTS.                          F2202680    
       04257  1 77777 1 04260        TXI NEST95,1,-1               IN DOREC.                          F2202700    
 D     04260  3 00000 1 04256 NEST95 TXH NEST90,1                  (DEC HAS DOTAG IX)                 F2202710    
       04261  0 02000 0 04116        TRA NEST                      RETURN FOR NEXT NEST,              F2202720    
       04262 -0 53400 1 03674 DOFOR  LXD XC,1                      OBTAIN                             F2202730    
       04263  1 00011 1 04264        TXI DOF10,1,9                 NEXT BACK DO,                      F2202740    
       04264  3 00702 1 04164 DOF10  TXH NESTEN,1,450              IF ANY.                            F2202750    
       04265  0 07400 4 04363        TSX DOINFO,4                  USE DOINFO                         F2202760    
       04266  0 02000 0 04377        TRA TAG00                     AND GO TO TAG00 ROUT1NE.           F2202770    
       04267 -0 53400 1 03674 DOFEND LXD XC,1                      IS A COUNTER                       F2202780    
       04270  0 50000 1 00743        CLA DOTAGZ+8,1                                                   F2202790    
       04271 -0 32000 0 04004        ANA BIT19                                                        F2202800    
       04272  0 10000 0 04326        TZE MAKESC                                                       F2202810    
       04273 -0 50000 1 00740        CAL DOTAGZ+5,1                NECESSARY BECAUSE OF               F2202820    
       04274 -0 32000 0 04002        ANA 2BITS                     TRANSFERS OR COMPUTATION WITH      F2202830    
       04275 -0 10000 0 04301        TNZ DOF15                     SYMBOL.                            F2202840    
       04276  0 50000 0 04005        CLA BIT20                     TEST FOR                           F2202850    
       04277 -0 32000 1 00741        ANA DOTAGZ+6,1                DELTA TWO                          F2202860    
       04300  0 10000 0 04305        TZE DOF20                     INSERT                             F2202870    
       04301  0 50000 1 00741 DOF15  CLA DOTAGZ+6,1                HAS A COUNTER BEEN                 F2202880    
       04302 -0 32000 0 04001        ANA BITTWO                    FOUND.                             F2202890    
       04303 -0 10000 0 04322        TNZ DOF40                     IF NOT,                            F2202900    
       04304  0 02000 0 04326        TRA MAKESC                    MAKE ONE. (RETURN IS TO DOF40)     F2202910    
       04305  0 50000 1 00740 DOF20  CLA DOTAGZ+5,1                IF NO COUNTER NECESSARY,           F2202920    
       04306 -0 32000 0 04003        ANA SUBBIT                    HAS SYM OCCURRED WITH              F2202930    
       04307  0 10000 0 04314        TZE DOF30                     RECON NOT AS TYPE ONE              F2202940    
       04310  0 50000 1 00743        CLA DOTAGZ+8,1                CARRY. IF SO, HAS A                F2202950    
       04311 -0 73400 2 00000        PDX 0,2                       TEST BEEN FOUND.                   F2202960    
       04312  3 00000 2 04322        TXH DOF40,2,0                 IF NOT,                            F2202970    
       04313  0 02000 0 04326        TRA MAKESC                    MAKE A COUNTER (RETURN IS T0 DOF40)F2202980    
       04314  0 50000 1 00743 DOF30  CLA DOTAGZ+8,1                IF SYM HAS NOT OCCURRED WITH       F2202990    
       04315  0 77100 0 00014        ARS 12                        RELCON OR IN SUCH OCCURRENCES      F2203000    
       04316 -0 73400 2 00000        PDX 0,2                       WAS ALWAYS A TYPE ONE              F2203010    
       04317 -3 00013 2 04322        TXL DOF40,2,11                CARRY, IS CURRECT TEST             F2203020    
       04320  0 50000 0 04005        CLA BBIT                                                         F2203030    
       04321 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2203040    
       04322  0 50000 0 04325 DOF40  CLA DOF50                     MADE. TAKE SIGN AND                F2203030    
       04323  0 32000 1 00743        ANS DOTAGZ+8,1                TEST TABLE INTEGER OUT             F2203060    
       04324  0 02000 0 04262        TRA DOFOR                     OF TEST WORD AND EXIT.             F2203070    
       04325 +007777777777    DOF50  OCT 7777777777                                                   F2203080    
       04326  0 50000 0 03755 MAKESC CLA L(4)                      INITIALIZE                         F2203090    
       04327  0 60100 0 03731        STO DOSUBS                    DOSUBS AND OTHER LOCATIONS         F2203100    
       04330  0 50000 0 03751        CLA L(0)                      USED IN 1NS00.                     F2203110    
       04331  0 60100 0 03730        STO RCSUBS                                                       F2203120    
       04332  0 60100 0 03727        STO DORC                                                         F2203130    
       04333  0 60100 0 03704        STO C1                                                           F2203140    
       04334  0 60100 0 03737        STO CARWRD                                                       F2203150    
       04335  0 50000 0 03673        CLA NEWTAG                    GET A NAME                         F2203160    
       04336  0 60100 0 03701        STO TS                        FOR THIS                           F2203170    
       04337  0 40000 0 03765        ADD L(1)A                     SUBSCRIPT AND                      F2203180    
       04340  0 60100 0 03673        STO NEWTAG                    UP DATE NEWTAG.                    F2203190    
       04341  0 07400 4 06075        TSX 1NS00,4                   USE 1NS00 FOR TEST INF0,LIST.      F2203200    
       04342  0 50000 0 03757        CLA L(6)                      SET UP TAG TAG                     F2203210    
       04343 -0 50100 0 03767        ORA L(4)A                     ENTRY                              F2203220    
       04344 -0 50100 0 03737        ORA CARWRD                                                       F2203230    
       04345  0 60200 0 05066        SLW E4                                                           F2203240    
       04346  0 50000 0 03701        CLA TS                                                           F2203250    
       04347  0 60100 0 05065        STO E3                                                           F2203270    
       04350  0 50000 0 03751        CLA L(0)                                                         F2203280    
       04351  0 60100 0 05064        STO E2                                                           F2203290    
       04352  0 50000 0 03674        CLA XC                                                           F2203300    
       04353  0 77100 0 00022        ARS 18                                                           F2203310    
       04354 -0 50100 0 03676        ORA ALPHA                                                        F2203320    
       04355  0 60100 0 05063        STO E1                                                           F2203340    
       04356  0 07400 4 05510        TSX TAGENT,4                  ENTER INTO TAGTAG.                 F2203350    
       04357 -0 53400 1 03674        LXD XC,1                                                         F2203360    
       04360  0 50000 0 04003        CLA ABIT                                                         F2203370    
       04361 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2203380    
       04362  0 02000 0 04322        TRA DOF40                     RETURN                             F2203390    
       04363  0 50000 1 00733 DOINFO CLA DOTAGZ,1                  FOR THE DO FORMULA WHOSE           F2203400    
       04364  0 73400 2 00000        PAX 0,2                       INDEX IS IN XRA,                   F2203410    
       04365 -0 32000 0 03772        ANA DECMSK                    ESTABLISH                          F2203420    
       04366  0 60100 0 03676        STO ALPHA                     ALPHA,BETA,XC,XL                   F2203430    
       04367 -0 75400 2 00000        PXD 0,2                                                          F2203440    
       04370  0 60100 0 03677        STO BETA                                                         F2203450    
       04371 -0 75400 1 00000        PXD 0,1                                                          F2203460    
       04372  0 60100 0 03674        STO XC                                                           F2203470    
       04373  0 50000 1 00740        CLA DOTAGZ+5,1                                                   F2203480    
       04374 -0 32000 0 03772        ANA DECMSK                                                       F2203490    
       04375  0 60100 0 03675        STO LC                                                           F2203500    
       04376  0 02000 4 00001        TRA 1,4                                                          F2203510    
       04377 -0 53400 1 03764 TAG00  LXD L(1500,1                  THIS ROUTINE                       F2203520    
       04400  0 02000 0 04407        TRA TAG20                     SELECTS EVERY TAG                  F2203530    
       04401  0 50000 1 03670 TAG05  CLA FORTZ,1                   IN THE RANGE OF THE                F2203540    
       04402 -0 32000 0 03772        ANA DECMSK                    CURRENT DO WHICH                   F2203550    
       04403  0 34000 0 03676        CAS ALPHA                     CONTAINS THE SUBSCRIPT             F2203560    
       04404  0 02000 0 04413        TRA TAG30                     SYMBOL OF THE CURRENT              F2203570    
       04405  0 07400 4 00004        TSX DIAG,4  DO, AND WHICH HAS NOT      (ERROR. GO TO DIAGNOSTIC.)F2203585    
       04406  1 77777 1 04407 TAG10  TXI TAG20,1,-1                PREVIOUSLY BEEN                    F2203590    
 D     04407  3 00000 1 04401 TAG20  TXH TAG05,1       PROCESSED, AND    (DEC HAS FORTAG IX)          F2203600    
       04410  0 02000 0 04267        TRA DOFEND                    COMPLETELY PROCESSES               F2203610    
       04411 -0 53400 1 04414 TAG25  LXD TAG40,1                   THE TAG. THE RETURN                F2203620    
       04412  0 02000 0 04406        TRA TAG10                     IS TO DOFEND                       F2203630    
       04413  0 34000 0 03677 TAG30  CAS BETA                      COMPARE WITH BETA.                 F2203640    
 D     04414 -3 00000 0 04267 TAG40  TXL DOFEND,0      RANGE FINISHED.     (DEC HAS CURR FORTAG IX)   F2203650    
       04415  0 76100 0 00000        NOP                           IF ENTRY IS NEGATIVE,              F2203660    
       04416  0 50000 1 03670        CLA FORTZ,1                   THEN IT HAS ALREADY                F2203670    
       04417 -0 12000 0 04406        TMI TAG10                     BEEN PROCESSED.                    F2203680    
       04420 -0 32000 0 03773        ANA ADDMSK                    STORE                              F2203690    
       04421  0 60100 0 03700        STO TAG                       IN TAG,                            F2203710    
       04422 -0 63400 1 04414        SXD TAG40,1                   AND SAVE INDEX.                    F2203720    
       04423  0 07400 4 04520        TSX SUBCOM,4                  OBTAIN SUB. COM.                   F2203730    
       04424  0 76100 0 00000        NOP                                                              F2203745    
       04425  0 07400 4 05566        TSX IDENT,4                   USE IDENT.                         F2203750    
       04426  0 02000 0 04411        TRA TAG25                     SC. NOT WANTED.                    F2203760    
       04427  0 07400 4 06030        TSX NAME,4                    SC. TO BE PROCESSED. USE NAME.     F2203770    
       04430  0 07400 4 05106        TSX BRANCH,4                                                     F2203780    
       04431  0 07400 4 04614        TSX SCEND,4                                                      F2203800    
       04432  0 07400 4 05510        TSX TAGENT,4                                                     F2203810    
       04433 -0 53400 2 03756 TAG50  LXD L(5),2                                                       F2203820    
       04434  0 50000 2 03721 TAG52  CLA X1+5,2        ENTER BIT 18 WD 9                              F2203830    
       04435  0 10000 0 04447        TZE TAG58         OF MATCHING DOTAG                              F2203840    
       04436 -0 73400 1 00000        PDX 0,1           IF 1ST SUBSCR OR                               F2203850    
       04437  3 00004 2 04445        TXH TAG56,2,4     IF THERE IS NO                                 F2203860    
       04440  0 50000 0 03774        CLA CR1           TYPE 1 CARRY INTO                              F2203870    
       04441  3 00002 2 04443        TXH TAG54,2,2     THE 2ND AND 3RD                                F2203880    
       04442  0 77100 0 00002        ARS 2             SUBSCRS RESPECTIVELY,                          F2203890    
       04443 -0 32000 0 03737 TAG54  ANA CARWRD                                                       F2203910    
       04444 -0 10000 0 04447        TNZ TAG58                                                        F2203910    
       04445  0 50000 0 04003 TAG56  CLA ABIT          ENTER BIT 18 WD 9.                             F2203920    
       04446 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2203940    
       04447  2 00002 2 04434 TAG58  TIX TAG52,2,2                                                    F2203950    
       04450 -0 53400 4 03756        LXD L(5),4                    TAG 60 SEQUENCE CONCERNS           F2203960    
       04451  0 50000 4 03721 TAG60  CLA X1+5,4                    TESTS AND ADDED TAGS.              F2203970    
       04452  0 10000 0 04500        TZE TAG68                     FOR EACH INDEXED SUBSCRIPT,        F2203980    
       04453 -0 73400 1 00000        PDX 0,1                       DETERMINE F IRST WHETHER           F2203990    
       04454  0 50000 0 03730        CLA RCSUBS        OR NOT IT                                      F2204000    
       04455 -0 50100 0 03727        ORA DORC          OCCURS WITH                                    F2204010    
       04456  0 10000 0 04470        TZE TAG66         A RELCON                                       F2204020    
       04457 -3 00001 4 04465        TXL TAG64,4,1     IF SO, PUT IN                                  F2204030    
       04460  0 50000 0 03774        CLA CR1           SUBBIT MEANING A TEST                          F2204040    
       04461  3 00003 4 04463        TXH TAG62,4,3     IS NEEDED UNLESS                               F2204050    
       04462  0 77100 0 00002        ARS 2             THE 1ST AND 2ND.                               F2204070    
       04463 -0 32000 0 03737 TAG62  ANA CARWRD        SUBSCR PROMOTE A                               F2204070    
       04464 -0 10000 0 04500        TNZ TAG68         TYPE ONE CARRY  (LEFT                          F2204080    
       04465  0 50000 0 04003 TAG64  CLA SUBBIT        OR CENTER RESPECTIVELY)                        F2204090    
       04466 -0 60200 1 00740        ORS DOTAGZ+5,1    IS                                             F2204100    
 D     04467 -3 00000 0 04500 TAG65  TXL TAG68,0       NEEDED.                                        F2204110    
       04470  0 50000 0 04004 TAG66  CLA BIT19                                                        F2204120    
       04471 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2204130    
       04472  0 50000 1 00740        CLA DOTAGZ+5,1    IF THE SUBSCRIPT DOES NOT OCCUR                F2204140    
       04473 -0 32000 0 04002        ANA 2BITS         WITH A RELCON, DETERMINE WHETHER OR            F2204160    
       04474 -0 10000 0 04500        TNZ TAG68         NOT A COUNTER HAS ALREAD Y BEEN REQUESTED.     F2204170    
       04475 -0 63400 4 04467        SXD TAG65,4       IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED.     F2204180    
       04476  0 07400 2 04665        TSX TEST,2        IF NOT, USE ROUTINE TEST.                      F2204190    
       04477 -0 53400 4 04467        LXD TAG65,4       THEN TAKE NEXT INDEXED SUBSCRIPT.              F2204200    
       04500  2 00002 4 04451 TAG68  TIX TAG60,4,2                                                    F2204220    
       04501 -0 53400 1 04414 TAG70  LXD TAG40,1                   SET ALL OCCURRANCES                F2204230    
       04502  0 50000 1 03670 TAG72  CLA FORTZ,1                   OF THIS TAG, IN FORTAG,            F2204240    
       04503 -0 32000 0 03772        ANA DECMSK                    IN THE RANGE OF THIS               F2204240    
       04504  0 34000 0 03677        CAS BETA                      DO, NEGATIVE.                      F2204250    
 D     04505 -3 00000 0 04411 TAG75  TXL TAG25,0                                                      F2204260    
       04506  0 76100 0 00000        NOP                                                              F2204270    
       04507  0 50000 1 03670        CLA FORTZ,1                                                      F2204280    
       04510 -0 32000 0 03773        ANA ADDMSK                                                       F2204290    
       04511  0 40200 0 03700        SUB TAG                                                          F2204300    
       04512 -0 10000 0 04515        TNZ TAG80                                                        F2204310    
       04513 -0 50000 0 03770        CAL L(MZ)                                                        F2204320    
       04514 -0 60200 1 03670        ORS FORTZ,1                                                      F2204330    
       04515  1 77777 1 04516 TAG80  TXI TAG90,1,-1                                                   F2204340    
 D     04516  3 00000 1 04502 TAG90  TXH TAG72,1  .            (DEC HAS FORTAG IX)                    F2204380    
       04517  0 02000 0 04411        TRA TAG25                     RETURN FOR NEXT TAG.               F2204370    
                                         THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE                   F2204380    
                                         CORRESPONDING SUBSCRIPT COMPINATION FROM THE TAU             F2204390    
                                         DRUM AND P0SITIONS IT IN PROPER FORMAT IN STORAGE.           F2204400    
       04520 -0 63400 4 04601 SUBCOM SXD SUB085,4                  SAVE LINKAGE INDEX.                F2204410    
       04521 -0 53400 1 04607        LXD SUBORG,1                  INITIALIZE ERROR COUNTER           F2204420    
       04522  0 76200 0 00304 SUB010 RDS TAUDRM                    SELECT TAU DRUM.                   F2204430    
       04523 -0 53400 4 04611        LXD SUBORG+2,4                INITIALIZE                         F2204440    
       04524 -0 75400 0 00000        PXD 0,0                       SUBSCRIPT COMBINATION              F2204450    
       04525  0 60100 4 03714 SUB020 STO C1+8,4                    SPACE                              F2204460    
       04526  2 00001 4 04525        TIX SUB020,4,1                TO ZERO.                           F2204470    
       04527  0 50000 0 03700        CLA TAG                       COMPUTE                            F2204480    
       04530  0 76500 0 00011        LRS 9                         DRUM                               F2204490    
       04531  0 73400 6 00000        PAX 0,6                       ADDRESS.                           F2204500    
       04532 -0 75400 0 00000        PXD 0,0                       TAU ONE ADD. IS ORG+3TAU.          F2204510    
       04533  0 76300 0 00011        LLS 9                         TAU TWO ADD. IS ORG+5TAU.          F2204520    
       04534  0 60100 0 04612        STO SUBES1                    TAU THREE ADD. IS ORG+7TAU         F2204530    
       04535  0 76700 0 00001        ALS 1                         STORE                              F2204540    
       04536  0 60100 0 04613        STO SUBES2                    ADDRESS                            F2204550    
       04537  0 50000 4 04612        CLA SUBORG+3,4                IN SUBES1                          F2204560    
       04540  0 40000 0 04612        ADD SUBES1                    FOR LDA                            F2204570    
       04541  0 40000 0 04613 SUB030 ADD SUBES2                    INSTRUCTION.                       F2204580    
       04542  2 00001 4 04541        TIX SUB030,4,1                                                   F2204590    
       04543  0 62100 0 04612        STA SUBES1                                                       F2204600    
       04544  0 46000 0 04612        LDA SUBES1                    COPY SUB. COMB.                    F2204610    
       04545  0 70000 0 03704        CPY C1                        TAU ONE, TWO, THREE                F2204620    
       04546 -3 00002 2 04550        TXL SUB040,2,2                                                   F2204630    
       04547  0 70000 0 03710        CPY C3                        TAU 3                              F2204640    
       04550  0 70000 0 03705 SUB040 CPY S1                        TAU 1,2,3                          F2204650    
       04551 -3 00001 2 04556        TXL SUB060,2,1                                                   F2204660    
       04552  0 70000 0 03707        CPY S2                        TAU 2,3                            F2204670    
       04553 -3 00002 2 04555        TXL SUB050,2,2                                                   F2204680    
       04554  0 70000 0 03711        CPY S3                        TAU 3                              F2204690    
       04555  0 70000 0 03712 SUB050 CPY D1                        TAU 2,3                            F2204700    
       04556  0 70000 0 04612 SUB060 CPY SUBES1                    TAU 1,2,3                          F2204710    
       04557 -0 53400 4 04607        LXD SUBORG,4                  COMPUTE CHECK SUM                  F2204720    
       04560 -0 50000 0 03704        CAL C1                        AND COMPARE WITH                   F2204730    
       04561  0 36100 4 03713 SUB070 ACL C1+7,4                    ENTRY CHECK SUM.                   F2204740    
       04562  2 00001 4 04561        TIX SUB070,4,1                THREE ATTEMPTS ARE MADE            F2204750    
       04563  0 60200 0 04613        SLW SUBES2                    T0 READ SC CORRECTLY.              F2204760    
       04564  0 50000 0 04613        CLA SUBES2                    IF ERROR STILL PRESENT,            F2204770    
       04565  0 40200 0 04612        SUB SUBES1                    COMPLETE ROUTINE, MAKE.ERROR RET.  F2204780    
       04566  0 10000 0 04571        TZE SUB075                    CHECK SUMS AGREE, TRA.             F2204790    
       04567  2 00001 1 04522        TIX SUB010,1,1    CHECK SUMS DISAGREE                            F2204805    
       04570  0 07400 4 00004 PAT03  TSX DIAG,4  IN READING TAU FROM DRUM.   ERROR. GO TO DIAGNOSTIC. F2204815    
       04571 -0 53400 4 04610 SUB075 LXD SUBORG+1,4                REARRANGE C1,C2,D1,D2,             F2204820    
       04572  0 50000 4 03713 SUB080 CLA C1+7,4                    TO COMPLY WITH CORE                F2204830    
       04573  0 73400 2 00000        PAX 0,2                       STORAGE FORMAT.                    F2204840    
       04574 -0 32000 0 03772        ANA DECMSK                                                       F2204850    
       04575  0 60100 4 03713        STO C1+7,4                                                       F2204860    
       04576 -0 75400 2 00000        PXD 0,2                                                          F2204870    
       04577 -2 00006 4 04602        TNX SUB090,4,6                                                   F2204880    
       04600  0 60100 0 03706        STO C2                                                           F2204890    
 D     04601 -3 00000 0 04572 SUB085 TXL SUB080,0                                                     F2204900    
       04602  0 60100 0 03713 SUB090 STO D2                                                           F2204910    
       04603 -0 53400 4 04601        LXD SUB085,4                  RESTORE LTNKAGE INDEX,             F2204920    
       04604  0 76100 0 00000        NOP                                                              F2204935    
       04605  0 02000 4 00002        TRA 2,4                       A NORMAL RETURN.                   F2204940    
       04606  0 76100 0 00000 SUB100 NOP                                                              F2204955    
       04607 +000006001356    SUBORG OCT 6001356                  DEC. IS 6, ADD. IS ORG. TAU 3       F2204960    
       04610 +000007000454           OCT 7000454                   DEC. IS 7, ADD. IS ORG. TAU 2      F2204970    
       04611 +000010000000           OCT 10000000                  DEC. IS 8, ADD. IS ORG. TAU 1      F2204980    
 A     04612  0 00000 0 00000 SUBES1 HTR                           E.S.                               F2204990    
 A     04613  0 00000 0 00000 SUBES2 HTR                           E.S.                               F2205000    
                                         SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY            F2205010    
       04614  0 50000 0 03703 SCEND  CLA GR0UP                     ALL OF SCEND IS CONCERNED          F2205020    
       04615  0 60100 0 03702        STO TAG1                      WITH GENERATING THE                F2205030    
       04616  0 50000 0 03731        CLA DOSUBS                    TAGTAG ENTRY FROM ITS              F2205040    
       04617 -0 50100 0 03734        ORA DUPES                                                        F2205050    
       04620  0 77100 0 00022        ARS 18                        VARIOUS COMPONENTS.                F2205060    
       04621 -0 60200 0 03702        ORS TAG1                                                         F2205070    
       04622  0 50000 0 03730        CLA RCSUBS                                                       F2205079    
       04623 -0 50100 0 03727        ORA DORC                                                         F2205080    
       04624  0 77100 0 00017        ARS 15                                                           F22D5100    
       04625 -0 60200 0 03702        ORS TAG1                                                         F2205110    
       04626  0 50000 0 03734        CLA DUPES                                                        F2205120    
       04627  0 77100 0 00011        ARS 9                                                            F2205130    
       04630 -0 60200 0 03702        ORS TAG1                                                         F2205140    
       04631 -0 50000 0 03737        CAL CARWRD                                                       F2205150    
       04632 -0 60200 0 03702        ORS TAG1                                                         F2205160    
       04633 -0 53400 1 03756        LXD L(5),1                                                       F2205170    
       04634  0 50000 0 03752 SCE010 CLA L(1)                                                         F2205180    
       04635  0 34000 1 03711        CAS C1+5,1                    GENERATES THE THREE BIT            F2205190    
       04636  0 02000 0 04645        TRA SCE020                    TAG SHOWING WHICH                  F2205200    
       04637  0 02000 0 04645        TRA SCE020                    COEFFICIENTS ARE GREATER           F2205210    
       04640 -0 75400 1 00000        PXD 0,1                       THAN ONE.                          F2205220    
       04641 -3 00001 1 04643        TXL SCE015,1,1                                                   F2205230    
       04642  0 40200 0 03752        SUB L(1)                                                         F2205240    
       04643  0 77100 0 00006 SCE015 ARS 6                                                            F2205250    
       04644 -0 60200 0 03702        ORS TAG1                                                         F2205260    
       04645  2 00002 1 04634 SCE020 TIX SCE010,1,2                                                   F2205270    
       04646  0 50000 0 03702        CLA TAG1                      TAG1 IS NOW COMPLETE.              F2205280    
       04647  0 60100 0 05066        STO E4                        CONSTRUCT THE TAGTAG               F2205290    
       04650  0 50000 0 03700        CLA TAG                       ENTRY                              F2205300    
       04651  0 76700 0 00022        ALS 18                                                           F2205310    
       04652  0 40000 0 03701        ADD TS                                                           F2205320    
       04653  0 60100 0 05065        STO E3                                                           F2205330    
       04654  0 50000 0 03720        CLA X3                                                           F2205340    
       04655  0 77100 0 00022        ARS 18                                                           F2205350    
       04656  0 40000 0 03716        ADD X2                                                           F2205360    
       04657  0 60100 0 05064        STO E2                                                           F2205370    
       04660  0 50000 0 03714        CLA X1                                                           F2205380    
       04661  0 77100 0 00022        ARS 18                                                           F2205390    
       04662  0 40000 0 03676        ADD ALPHA                                                        F2205400    
       04663  0 60100 0 05063        STO E1                                                           F2205410    
       04664  0 02000 4 00001        TRA 1,4                                                          F2205420    
       04665  0 50000 1 00743 TEST   CLA DOTAGZ+8,1                IF A SUFFICIENTLY GOOD             F2205430    
       04666 -0 12000 2 00001        TMI 1,2                       TEST PREVIOUSLY FOUND, EXIT.       F2205440    
       04667  2 00001 4 04670        TIX TEST10,4,1                XRC CONTAINS 5,3,1,                F2205450    
       04670 -0 75400 4 00000 TEST10 PXD 0,4                       DEPENDING ON P0SITION NR           F2205460    
       04671  0 76700 0 00003        ALS 3                         1,2,3. CONSTRUCT A                 F2205470    
       04672 -0 50100 0 03703        ORA GR0UP                     TABLE SEARCH MASK IN               F2205480    
       04673 -3 00001 4 04701        TXL TEST20,4,1                WHICH THE FORTH OCTAL              F2205490    
       04674  0 60100 0 04732        STO TEST85                    DIGIT IS THE CARRY BIT             F2205500    
       04675  0 50000 0 03737        CLA CARWRD                    INF0. FOR THE POSITION             F2205510    
       04676  0 76700 4 00005        ALS 5,4                       BEING CONSIDERED  THE              F2205520    
       04677 -0 32000 0 04733        ANA TEST90                    FIFTH OCTAL DIGIT IS THE           F2205530    
       04700 -0 50100 0 04732        ORA TEST85                    POSITION BIT, AND THE              F2205540    
       04701 -0 53400 4 04704 TEST20 LXD TEST35,4                  SIXTH OCTAL DIGIT                  F2205550    
       04702  0 34000 4 04754 TEST30 CAS TESTAB+15,4               IS THE GROUP NUMBER.               F2205560    
       04703  1 77777 4 04706        TXI TEST40,4,-1               SEARCH TESTAB FOR                  F2205570    
       04704 -3 00017 0 04707 TEST35 TXL TEST50,0,15               ENTRY AND CONSIDER                 F2205580    
       04705  1 77777 4 04706        TXI TEST40,4,-1               C(XRC) AFTER SEARCH, IF            F2205590    
       04706  3 00000 4 04702 TEST40 TXH TEST30,4,0                ENTRY NOT FOUND C(XRC)=0.          F2205600    
       04707 -0 63400 4 04715 TEST50 SXD TEST60,4                  COMPARE THIS INTEGER               F2205610    
       04710  0 50000 1 00743        CLA DOTAGZ+8,1                WITH PREVIOUS.INTEGER,             F2205620    
       04711 -0 73400 4 00000        PDX 0,4                       IF ANY, IF NEW NR. IS LESS         F2205630    
       04712 -3 00000 4 04720        TXL TEST75,4,0                THAN OLD, USE NEW TAG              F2205640    
       04713  0 77100 0 00014        ARS 12                        FOR TEST. OTHERWISE                F2205650    
       04714 -0 73400 4 00000        PDX 0,4                       USE OLD TAG.                       F2205660    
 D     04715 -3 00000 4 04731 TEST60 TXL TEST80,4        (DEC HAS TEST TAB NR. FOR THIS S C.)         F2205670    
       04716  0 50000 0 04734 TEST70 CLA TEST95                    IF THE NEW TAG IS                  F2205680    
       04717  0 32000 1 00743        ANS DOTAGZ+8,1                USED, AND C(XRC)                   F2115690    
       04720 -0 53400 4 04715 TEST75 LXD TEST60,4                  AFTER SEARCH WAS ZERO,             F2205700    
       04721 -0 75400 4 00000        PXD 0,4                       SET DOTAGZ+8 WORD                  F2205710    
       04722  0 77100 0 00006        ARS 6                         NEGATIVE.                          F2205720    
       04723 -0 50100 0 03701        ORA TS                                                           F2205730    
       04724  0 76700 0 00022        ALS 18                                                           F2205740    
       04725 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2205750    
       04726  3 00000 4 04731        TXH TEST80,4,0                                                   F2205760    
       04727 -0 50000 0 03770        CAL L(MZ)                                                        F2205770    
       04730 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2205780    
       04731  0 02000 2 00001 TEST80 TRA 1,2                                                          F2205790    
 A     04732  0 00000 0 00000 TEST85 HTR               STORAGE FOR COMPOSED TST WORD.                 F2205800    
       04733 +000300000000    TEST90 OCT 300000000     BITS 10, 11          )-.  - -.                 F2205810    
       04734 +000000777777    TEST95 OCT 777777                                                       F2205820    
       04735 +000241000000    TESTAB OCT 241000000     FIRST SIGNIF DIGIT CONTAINS                    F2205830    
       04736 +000221000000           OCT 221000000     A TWO IF TYPE ONE CARRY ,                      F2205840    
       04737 +000244000000           OCT 244000000     ONE IF TYPE TWO FROM LEFT OR                   F2205850    
       04740 +000222000000           OCT 222000000     CENTER. (4TH OCT DIG). NEXT                    F2205860    
       04741 +000141000000           OCT 141000000     HAS 4 IF POSIT OF SUBSC IS                     F2205870    
       04742 +000121000000           OCT 121000000     LEFT, 2 IF CENTER, 0 IF RIGHT                  F2205880    
       04743 +000144000000           OCT 144000000     (5TH OCT DIGIT).   FINAL DIG HAS               F2205890    
       04744 +000122000000           OCT 122000000     GR0UP NR. (6TH OCT DIG).                       F2205900    
       04745 +000045000000           OCT 45000000                                                     F2205910    
       04746 +000041000000           OCT 41000000                                                     F2205920    
       04747 +000021000000           OCT 21000000                                                     F2205930    
       04750 +000044000000           OCT 44000000                                                     F2205940    
       04751 +000022000000           OCT 22000000                                                     F2205950    
       04752 +000043000000           OCT 43000000                                                     F2205960    
       04753 +000023000000           OCT 23000000                                                     F2205970    
       04754 -0 63400 4 04770 CARRY  SXD CAR05,4                   SAVE LINKAGE                       F2205980    
       04755  0 50000 2 03720        CLA X1+4,2                    PUT LEFT INDEX                     F2205990    
       04756 -0 73400 1 00000        PDX 0,1                       IN XRA                             F2206000    
       04757  0 50000 2 03722        CLA X1+6,2                    PUT RIGHT INDEX                    F2206010    
       04760 -0 73400 4 00000        PDX 0,4                       IN XRC                             F2206020    
       04761  0 50000 1 00740        CLA DOTAGZ+5,1                TEST LEFS SUB. DO                  F2206030    
       04762 -0 32000 0 03776        ANA CARMSK                    CARRY BITS.                        F2206040    
       04763  0 10000 0 05022        TZE CAR30                     EXIT IF NO CARRY.                  F2206050    
       04764  0 50000 1 00741        CLA DOTAGZ+6,1                COMPARE                            F2206060    
       04765 -0 32000 0 03772        ANA DECMSK                    NO CARRY TRA LEVEL                 F2206070    
       04766  0 34000 0 03723        CAS LL                        AND LOW LEVEL.                     F2206080    
       04767  0 02000 0 05022        TRA CAR30                     EXIT                               F2206090    
 D     04770 -3 00000 0 05022 CAR05  TXL CAR30,0                                                      F2206100    
       04771  0 50000 1 00740        CLA DOTAGZ+5,1                COMPUTE FOR LEFT                   F2206110    
       04772 -0 32000 0 03773        ANA ADDMSK                    SUBSCRIPT THE QUANTITY             F2206120    
       04773  0 60100 0 05024        STO CAR40                     C*X (COEF. TIMES ADDED             F2206130    
       04774  0 56000 0 05024        LDQ CAR40                     VALUE).                            F2206140    
       04775  0 20000 2 03710        MPY C1+4,2                    COMPUTE FOR RIGHT                  F2206150    
       04776 -0 60000 0 05024        STQ CAR40                     SUBSCRIPT THE QUANTITY             F2206160    
       04777  0 56000 0 03712        LDQ D1                        C*N3*D(L) (O0EF.TIMES              F2206170    
       05000  3 00002 2 05002        TXH CAR10,2,2                 INCREMENT TIMES DIM. OF            F2206180    
       05001  0 56000 0 03713        LDQ D2                        LEFT SUBSCR1PT.                    F2206190    
       05002  0 20000 4 00737 CAR10  MPY DOTAGZ+4,4                IF THESE QUANTIT1ES                F2206200    
       05003  0 20000 2 03712        MPY C1+6,2                    ARE UNEQUAL,                       F2206210    
       05004  0 76700 0 00021        ALS 17                        EXIT                               F2206220    
       05005  0 40200 0 05024        SUB CAR40                                                        F2206230    
       05006 -0 10000 0 05022        TNZ CAR30                     OBTAIN LEFT                        F2206240    
       05007  0 50000 1 00740        CLA DOTAGZ+5,1                SUB. DOTAG                         F2206250    
       05010 -0 32000 0 03776        ANA CARMSK                    CARRY BITS AGAIN.                  F2206260    
       05011  0 77100 0 00017        ARS 15                        TEST FOR                           F2206270    
       05012  0 76000 0 00001        LBT                           CARRY TYPE 0NE                     F2206280    
       05013  0 02000 0 05016        TRA CAR15                     OR CARRY TYPE                      F2206290    
       05014  0 50000 0 03774        CLA CR1                       TWO.                               F2206300    
       05015  0 02000 0 05017        TRA CAR20                     OBTAIN PROPER                      F2206310    
       05016  0 50000 0 03775 CAR15  CLA CR2                       TAGTAG CARRY BIT,                  F2206320    
       05017  3 00002 2 05021 CAR20  TXH CAR25,2,2                 SHIFT IF NECESSARY FOR             F2206330    
       05020  0 77100 0 00002        ARS 2                         CENTER SUB. AND                    F2206340    
       05021 -0 60200 0 03737 CAR25  ORS CARWRD                    PLACE IN CARWRD.                   F2206350    
       05022 -0 53400 4 04770 CAR30  LXD CAR05,4                   EXIT                               F2206I60    
       05023  0 02000 4 00001        TRA 1,4                                                          F2206370    
 A     05024  0 00000 0 00000 CAR40  HTR                           E.S.                               F2206380    
       05025 -0 63400 4 05060 LIST   SXD LIST40,4          SAVE LINKAGE                               F2206400    
       05026 -0 73400 1 00000        PDX 0,1                       PUT INDEX QUANTITY IN XRA          F2206410    
       05027  0 73400 6 00000        PAX 0,6                       PUT NR. OF WDS IN XRB,XRC.         F2206420    
       05030  0 40000 0 05061        ADD LIST50                    COMPUTE NR, OF WRDS                F2206430    
       05031  0 62100 0 05046        STA LIST30                    PLUS ORIGIN EI AND                 F2206440    
       05032  0 62100 0 05041        STA LIST20                    INITIALIZE ADDRESSES.              F22064S0    
       05033  0 50000 1 05106        CLA LADDIN+5,1                TEST                               F2206460    
       05034  0 77100 0 00022        ARS 18                        FOR                                F2206470    
       05035  0 40200 1 05101        SUB LADDS+5,1                 FULL                               F2206480    
       05036 -0 10000 0 05040        TNZ LIST10                    TABLE.                             F2206490    
       05037  0 07400 4 07774        TSX BURNCE,4          DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG.    F2206505    
       05040 -0 75400 0 00000 LIST10 PXD 0,0                       ZERO IN ACC.                       F2206510    
       05041  0 36100 2 00000 LIST20 ACL 0,2                       COMPUTE                            F2206520    
       05042  2 00001 2 05041        TIX LIST20,2,1                ENTRY                              F2206530    
       05043  0 76600 0 00303        WRS ADRUM             SELECT DRUMF                               F2206535    
       05044  0 60200 0 05062        SLW LIST60                    CHECK SUM.                         F2206540    
       05045  0 46000 1 05101        LDA LADDS+5,1                 COPY                               F2206550    
       05046  0 70000 4 00000 LIST30 CPY 0,4                       ENTRY                              F2206560    
       05047  2 00001 4 05046        TIX LIST30,4,1                AND                                F2206570    
       05050  0 70000 0 05062        CPY LIST60                    CHECK SUM.                         F2206580    
       05051  0 50000 1 05101        CLA LADDS+5,1                 COMPUTE                            F2206590    
       05052  0 40000 1 05074        ADD TSXC0M+5,1                NEXT                               F2206600    
       05053  0 40000 0 03765        ADD L(1)A                     ENTRY                              F2206610    
       05054 -0 32000 0 03773        ANA ADDMSK                    ADDRESS.                           F2206620    
       05055  0 60100 1 05101        STO LADDS+5,1                                                    F2206630    
       05056 -0 53400 4 05060        LXD LIST40,4                  EXIT                               F2206640    
       05057  0 02000 4 00001        TRA 1,4                                                          F2206650    
 A     05060  0 00000 0 00000 LIST40 HTR                           E.S.                               F2206660    
       05061  0 00000 0 05063 LIST50 HTR E1                        L(E1)                              F2206670    
 A     05062  0 00000 0 00000 LIST60 HTR                           E.S.                               F2206680    
                                         F0UR WORD ENTRY BLOCK                                        F2206690    
 A     05063  0 00000 0 00000 E1     HTR                                                              F2206700    
 A     05064  0 00000 0 00000 E2     HTR                                                              F2206710    
 A     05065  0 00000 0 00000 E3     HTR                                                              F2206720    
 A     05066  0 00000 0 00000 E4     HTR                                                              F2206730    
                                         FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2206740    
       05067  0 00005 0 00002 TSXC0M HTR 2,0,5         ACC KEY WORD WHEN TSX TO LIST.                 F2206750    
       05070  0 00004 0 00003 TRASTO HTR 3,0,4         (ADD DOES NOT INCL CHECK SUM)                  F2206760    
       05071  0 00003 0 00002 NAMKEY HTR 2,0,3                                                        F2206770    
       05072  0 00002 0 00002 CHATAG HTR 2,0,2                                                        F2206780    
       05073  0 00001 0 00004 DRMTAG HTR 4,0,1         (ADTAG)                                        F2206790    
                                         FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.  F2206800    
 A     05074  0 00000 0 00000 LADDS  HTR               TSXC0M   - ADD OF LADDIN - LAST PLUS 1         F2206810    
 A     05075  0 00000 0 00000        HTR               TRASTO                                         F2206820    
 A     05076  0 00000 0 00000        HTR               NAMKEY                                         F2206830    
 A     05077  0 00000 0 00000        HTR               CHATAG                                         F2206840    
 A     05100  0 00000 0 00000        HTR               DRMTAG                                         F2206850    
                                         FIVE WORDS, C(ADD)=ORIGIN, C(DEC)=LAST TABLE LOC. PLUS ONE   F2206860    
       05101  0 01756 0 01302 LADDIN HTR 706,0,1006                TSXCOM                             F2206870    
       05102  0 01300 0 00460        HTR 304,0,704                 TRASTO                             F2206880    
       05103  0 02662 0 01760        HTR 1008,0,1458               NAMKEY                             F2206890    
       05104  0 00456 0 00002        HTR 2,0,302                   CHATAG                             F2206900    
       05105  0 03650 0 02664        HTR 1460,0,1960               DRMTAG                             F2206910    
       05106 -0 63400 4 05122 BRANCH SXD BRA45,4                   IF THERE ARE RELCONS               F2206920    
       05107  0 50000 0 03725        CLA NRRC                      (NOT DORC) IN THE SC,              F2206930    
       05110  0 10000 0 05112        TZE BRA10                     USE                                F2206940    
       05111  0 07400 4 05534        TSX RELCON,4                  RELCON.                            F2206950    
       05112 -0 53400 1 03726 BRA10  LXD NRDS,1                    THIS ROUTINE                       F2206960    
       05113  3 00001 1 05116        TXH BRA30,1,1                 CONDENSES                          F2206970    
       05114  0 07400 4 06075 BRA20  TSX 1NS00,4                   DUPLICATE                          F2206980    
       05115  0 02000 0 05136        TRA BRA90                     SUBSCRIPTS                         F2206990    
       05116  3 00002 1 05123 BRA30  TXH BRA50,1,2                 AND                                F2207000    
       05117  0 50000 0 03734        CLA DUPES                     TRANSFERS                          F2207010    
       05120 -0 10000 0 05114        TNZ BRA20                     TO                                 F2207020    
       05121  0 07400 4 06147 BRA40  TSX 2NS00,4                   ROUTINES                           F2207030    
 D     05122 -3 00000 0 05136 BRA45  TXL BRA90,0                   1NS00, 2NS00, 3NS00                F2207040    
       05123 -0 53400 4 03734 BRA50  LXD DUPES,4                   AFTER                              F2207050    
       05124  3 00006 4 05114        TXH BRA20,4,6                 PROCESSING,                        F2207060    
       05125 -3 00000 4 05135        TXL BRA80,4,0                 RETURN                             F2207070    
       05126  3 00005 4 05132        TXH BRA60,4,5                 IS TO                              F2207080    
       05127 -3 00003 4 05132        TXL BRA60,4,3                 DRMENT OR                          F2207090    
       05130  0 50000 0 03754        CLA L(3)                      TAG00                              F2207100    
       05131  0 02000 0 05133        TRA BRA70                                                        F2207110    
       05132  0 50000 0 03756 BRA60  CLA L(5)                                                         F2207120    
       05133  0 60100 0 03731 BRA70  STO DOSUBS                                                       F2207130    
       05134  0 02000 0 05121        TRA BRA40                                                        F2207140    
       05135  0 07400 4 06246 BRA80  TSX 3NS00,4                                                      F2207150    
       05136 -0 53400 4 05122 BRA90  LXD BRA45,4                                                      F2207160    
       05137  0 02000 4 00001        TRA 1,4                                                          F2207170    
       05140 -0 63400 4 05204 RSR    SXD RSR20,4                   SAVE LINKAGE                       F2207180    
       05141 -0 63400 1 05205        SXD RSR30,1                   SAVE INDEX                         F2207190    
       05142  0 50000 1 00741        CLA DOTAGZ+6,1                HAS COUNTER ADJUSTMENT             F2207200    
       05143 -0 32000 0 04003        ANA BIT18                     INSTRUCTION BEEN ENTERED.          F2207210    
       05144 -0 10000 0 05164        TNZ RSR10                     IF SO, GO TO RSR10                 F2207220    
       05145  0 50000 0 04003        CLA BIT18                     IF NOT, ENTER IN                   F2207230    
       05146 -0 60200 1 00741        ORS DOTAGZ+6,1                TRASTO AN ENTRY TO CAUSE           F2207240    
       05147  0 50000 1 00733        CLA DOTAGZ,1                  THE COUNTER TO BE                  F2207250    
       05150 -0 76000 0 00003        SSM                                                              F2207260    
       05151  0 60100 0 05063        STO E1                        DECREASED BY N1, WHICH             F2207270    
       05152  0 50000 1 00740        CLA DOTAGZ+5,1                WILL MAKE IT USEFUL AS             F2207280    
       05153 -0 32000 0 03772        ANA DECMSK                    AS A RESET SUB. COMB.              F2207290    
       05154  0 77100 0 00022        ARS 18                                                           F2207300    
       05155  0 60100 0 05064        STO E2                                                           F2207310    
       05156  0 50000 1 00743        CLA DOTAGZ+8,1                                                   F2207320    
       05157 -0 32000 0 03772        ANA DECMSK                                                       F2207330    
       05160 -0 50100 1 00735        ORA DOTAGZ+2,1                                                   F2207340    
       05161  0 60100 0 05065        STO E3                                                           F2207350    
       05162  0 50000 0 05070        CLA TRASTO                                                       F2207360    
       05163  0 07400 4 05025        TSX LIST,4                                                       F2207370    
       05164 -0 53400 1 05205 RSR10  LXD RSR30,1                   ENTER IN TRASTO                    F2207380    
       05165  0 50000 1 00743        CLA DOTAGZ+8,1                AN ENTRY T0 CAUSE                  F2207390    
       05166 -0 32000 0 03772        ANA DECMSK                    THE TAG UNDER                      F2207400    
       05167 -0 50100 0 03701        ORA TS                        CONSIDERATION                      F2207410    
       05170 -0 76000 0 00003        SSM                                                              F2207420    
       05171  0 60100 0 05065        STO E3                        TO BE RESET                        F2207430    
       05172  0 50000 0 03741        CLA TL2                       BY THE ADJUSTED                    F2207440    
       05173  0 77100 0 00022        ARS 18                        COUNTER AT THE                     F2207450    
       05174 -0 50100 0 03740        ORA TL1                       PROPER TIMES.                      F2207460    
       05175  0 60100 0 05064        STO E2                                                           F2207470    
       05176  0 50000 1 00733        CLA DOTAGZ,1                                                     F2207480    
       05177  0 60100 0 05063        STO E1                                                           F2207490    
       05200  0 50000 0 05070        CLA TRASTO                                                       F2207500    
       05201  0 07400 4 05025        TSX LIST,4                                                       F2207510    
       05202 -0 53400 4 05204        LXD RSR20,4                                                      F2207520    
       05203  0 02000 4 00001        TRA 1,4                                                          F2207530    
 A     05204  0 00000 0 00000 RSR20  HTR                                                              F2207540    
 A     05205  0 00000 0 00000 RSR30  HTR                                                              F2207550    
       05206 -0 63400 4 05212 DRMENT SXD DRM05,4                   THIS ROUTINE                       F2207560    
       05207 -0 53400 2 04006        LXD ADTXX,2                   PROCESSES THE                      F2207570    
       05210 -0 63400 2 05241        SXD DRM20,2                   ADDED TAG TABLE                    F2207580    
       05211  0 53400 2 04006        LXA ADTXX,2                                                      F2207590    
 D     05212 -3 00000 0 05241 DRM05  TXL DRM20,0                                                      F2207600    
       05213  0 50000 2 07135 DRM10  CLA ADTAGZ,2                  OBTAIN FIRST ENTRY WORD.           F2207610    
       05214 -0 73400 1 00000        PDX 0,1                       PUT INDEX IN XRA.                  F2207620    
       05215 -0 32000 0 03773        ANA ADDMSK                    STORE TAG                          F2207630    
       05216  0 60100 0 03700        STO TAG                       IN TAG                             F2207640    
       05217  0 60100 0 03701        STO TS                        AND TS                             F2207650    
       05220 -0 75400 1 00000        PXD 0,1                       PUT INDEX                          F2207660    
       05221  0 60100 0 03674        STO XC                        IN XC                              F2207670    
       05222 -0 63400 2 05244        SXD DRM30,2                   SAVE INDEX B.                      F2207680    
       05223  0 50000 2 07136        CLA ADTAGZ+1,2                OBTAIN WORD TWO.                   F2207690    
       05224 -0 12000 0 05245        TMI DRM40                     TRA IF RESET ENTRY.                F2207700    
       05225  0 60100 0 03701        STO TS                        SAVE NAME IN TS.                   F2207710    
       05226  0 07400 4 04363        TSX DOINFO,4                  USE DOINFO                         F2207720    
       05227  0 07400 4 04520        TSX SUBCOM,4                  AND                                F2207730    
       05230  0 76100 0 00000        NOP               OTHER                                          F2207745    
       05231  0 07400 4 05566        TSX IDENT,4                   ROUTINES                           F2207750    
       05232  0 07400 4 00004        TSX DIAG,4  IN ORDER TO                (ERROR. GO TO DIAGNOSTIC.)F2207765    
       05233  0 07400 4 05106        TSX BRANCH,4                  PROCESS                            F2207770    
       05234  0 07400 4 04614        TSX SCEND,4                   ENTRY.                             F2207780    
       05235  0 50000 0 05073        CLA DRMTAG                                                       F2207790    
       05236  0 07400 4 05025        TSX LIST,4                    ENTER RESULT IN DRMTAG.            F2207800    
       05237 -0 53400 2 05244 DRM15  LXD DRM30,2                                                      F2207810    
       05240  1 77776 2 05241        TXI DRM20,2,-2                                                   F2207820    
 D     05241  3 00000 2 05213 DRM20  TXH DRM10,2                                                      F2207830    
       05242 -0 53400 4 05212        LXD DRM05,4                                                      F2207840    
       05243  0 02000 4 00001        TRA 1,4                                                          F2207850    
 A     05244  0 00000 0 00000 DRM30  HTR                                                              F2207860    
       05245  0 73400 4 00000 DRM40  PAX 0,4                       FOR RESET ENTRY,                   F2207870    
       05246 -0 32000 0 03772        ANA DECMSK                    INITIALIZE CELLS                   F2207880    
       05247  0 60100 0 03740        STO TL1                       USED IN RSR ROUTINE.               F2207890    
       05250 -0 75400 4 00000        PXD 0,4                                                          F2207900    
       05251  0 60100 0 03741        STO TL2                                                          F2207910    
       05252  0 07400 4 05140        TSX RSR,4                                                        F2207920    
       05253  0 02000 0 05237        TRA DRM15                     TRA FOR NEXT ENTRY.                F2207930    
                                         SUBROUTINE TAGADD                                            F2207940    
       05254  3 00000 2 05256 TAGADD TXH TAGAD1,2,0    C(IRB) EQ 1 IF NORMAL ADTAG                    F2207950    
       05255 -0 75400 1 00000        PXD 0,1                                                          F2207960    
       05256 -0 53400 1 04006 TAGAD1 LXD ADTXX,1                                                      F2207970    
       05257 -3 00000 1 05273        TXL TAGAD6,1,0                                                   F2207980    
       05260  3 00000 2 05274        TXH TAGAD8,2,0                XRB=1,NORMAL ADDED TAG             F2207990    
       05261  0 40000 0 03700        ADD TAG                                                          F2208000    
       05262  0 60100 1 07135        STO ADTAGZ,1                                                     F2208010    
       05263  0 50000 0 03673        CLA NEWTAG                                                       F2208020    
       05264  0 56000 0 03673        LDQ NEWTAG                                                       F2208030    
       05265  0 60100 1 07136        STO ADTAGZ+1,1                                                   F2208040    
       05266  0 40000 0 03765        ADD L(1)A                                                        F2208050    
       05267  0 60100 0 03673        STO NEWTAG                                                       F2208060    
       05270  1 77776 1 05271        TXI TAGAD2,1,-2                                                  F2208070    
       05271 -0 63400 1 04006 TAGAD2 SXD ADTXX,1                                                      F2208080    
       05272  0 02000 4 00001 TAGAD3 TRA 1,4                                                          F2208088    
       05273  0 07400 4 00004 TAGAD6 TSX DIAG,4  TABLE WILL NOT HOLD ENTRY.  ERROR. GO TO DIAGNOSTIC. F2208093    
       05274  0 60100 1 07135 TAGAD8 STO ADTAGZ,1                                                     F2208110    
       05275 -0 60000 1 07136        STQ ADTAGZ+1,1                                                   F2208120    
       05276  1 77776 1 05271        TXI TAGAD2,1,-2                                                  F2208130    
                                         SUBROUTINE SPC000                                            F2208140    
       05277 -0 63400 1 05371 SPC000 SXD SPC115,1                  SAVE INDEX OF DO TO BE SEARCHED.   F2208150    
       05300 -0 63400 2 05344        SXD SPC060,2                  SAVE TINFOR,LIST INDICATOR         F2208160    
       05301 -0 63400 4 05361        SXD SPC105,4                  SAVE TSX INDEX.                    F2208170    
       05302  0 60100 0 05410        STO SPCKEY                    SAVE LIST KEY WORD                 F2208180    
       05303  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN L WORD                      F2208190    
       05304  0 62200 0 05321        STD SPC050                    INITIALIZE TEST INSTR.             F2208200    
       05305  0 50000 1 00733        CLA DOTAGZ,1                  OBTAIN ALPHABETA WRD,              F2208210    
       05306  0 73400 2 00000        PAX 0,2                       SAVE BETA,                         F2208220    
       05307 -0 32000 0 03772        ANA DECMSK                    OBTAIN ALPHA ALONE                 F2208230    
       05310  0 60100 0 03744        STO NEXTA                     STO IN NEXTA                       F2208240    
       05311  0 60100 0 03742        STO A                         AND STORE IN A.                    F2208250    
       05312 -0 75400 2 00000        PXD 0,2                       PUT BETA IN LASTB AND              F2208260    
       05313  0 60100 0 03745        STO LASTB                     BETING SEARCH FOR R2               F2208270    
       05314 -0 53400 1 05371 SPC010 LXD SPC115,1                  OBTAIN CURRENT INDEX AND           F2208280    
       05315  1 77767 1 05316 SPC020 TXI SPC040,1,-9               GO DOWN ONE DO,IF POSSIBLE,ELSE    F2208290    
 D     05316 -3 00000 1 05362 SPC040 TXL SPC110,1                  GO TO SET UP LAST INTERVAL.        F2208300    
       05317  0 50000 1 00740        CLA DOTAGZ+5,1                TEST WHETHER OR NOT THIS DO        F2208310    
       05320 -0 73400 2 00000        PDX 0,2                       IS IN RANGE OF R1(DXL)             F2208320    
 D     05321 -3 00000 2 05362 SPC050 TXL SPC110,2                  IF NOT,EXIT FOR LAST 1NTERVAL,     F2208330    
       05322  0 50000 1 00734        CLA DOTAGZ+1,1                IF IN R1,IS THIS DO TO BE          F2208340    
       05323  0 40200 0 03735        SUB RSYM1                     SKIPPED. IF NOT,GO BACK TO         F2208350    
       05324  0 10000 0 05330        TZE SPC053                    GET NEXT DO.                       F2208360    
       05325  0 50000 1 00734        CLA DOTAGZ+1,1                                                   F2208370    
       05326  0 40200 0 03736        SUB RSYM2                                                        F2208380    
       05327 -0 10000 0 05315        TNZ SPC020                                                       F2208390    
       05330  0 50000 1 00733 SPC053 CLA DOTAGZ,1                  R2 FOUND,ARRANGE TO SKIP THIS      F2208400    
       05331  0 73400 2 00000        PAX 0,2                       INTERVAL. USE ALPHA OF R2          F2208410    
       05332 -0 32000 0 03772        ANA DECMSK                    AS B,PUT BETA OF R2 IN             F2208420    
       05333  0 60100 0 03743        STO B                         NEXTA.                             F2208430    
       05334 -0 75400 2 00000        PXD 0,2                       DO FORMULAS WITHIN R2 ARE          F2208440    
       05335  0 60100 0 03744        STO NEXTA                     ACCOUNTED FOR AFTER SEARCH.        F2208450    
       05336 -0 63400 1 05371        SXD SPC115,1                  SAVE INDEX OF R2.                  F2208460    
       05337 -0 53400 2 05344 SPC055 LXD SPC060,2                  PUT TINFOR, LIST IND. IN XRB       F2208470    
       05340  0 50000 0 03742 SPC058 CLA A                         FOR                                F2208480    
       05341  0 40200 0 03743        SUB B                         NON EMPTY                          F2208490    
       05342  0 10000 0 05345        TZE SPC065                    INTERVALS,                         F2208500    
       05343 -3 00001 2 05376        TXL SPCTIN,2,1                GO TO ARRANGE TINFOR SEARCH, OR    F2208510    
 D     05344 -3 00000 0 05401 SPC060 TXL SPCSTO,0                 TRA TO USE LIST.                    F2208520    
       05345 -0 53400 2 05344 SPC065 LXD SPC060,2                  RETURN HERE,TEST TINFOR            F2208530    
       05346 -3 00000 2 05372        TXL SPC120,2,0                LIST IND. IF ZERO, EXIT.           F2208540    
       05347 -0 53400 1 05371 SPC070 LXD SPC115,1                  TO SET UP NEXT INTERVAL,           F2208550    
       05350  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN INDEX OF LAST R2 AND        F2208560    
       05351  0 62200 0 05356        STD SPC100                    STEP DOWN IN DOTAG BY USUAL        F2208570    
       05352  1 77767 1 05353 SPC080 TXI SPC090,1,-9               PROCEDURE UNTIL SOME DO IS         F2208580    
 D     05353 -3 00000 1 05362 SPC090 TXL SPC110,1                  FOUND NOT IN R2,OR UNTIL           F2208590    
       05354  0 50000 1 00740        CLA DOTAGZ+5,1                DOTAG EXHAUSTED. IF DO FOUND       F2208600    
       05355 -0 73400 2 00000        PDX 0,2                       NOT IN R2,SET A AND GO TO TEST     F2208610    
 D     05356  3 00000 2 05352 SPC100 TXH SPC080,2                  IF THIS DO IS IN R1.               F2208620    
       05357  0 50000 0 03744        CLA NEXTA                     IF IT IS,NEWR2 WILL BE FOUND       F2208630    
       05360  0 60100 0 03742        STO A                         OR EXIT MADE T0 SPC110.            F2208640    
 D     05361 -3 00000 0 05321 SPC105 TXL SPC050,0                                                     F2208650    
       05362  0 50000 0 03744 SPC110 CLA NEXTA                     THIS IS SETUP FOR LAST             F2208660    
       05363  0 60100 0 03742        STO A                         INTERVAL. FOR A,USE                F2208670    
       05364  0 50000 0 03745        CLA LASTB                     CONTENTS OF NEXTA. FOR B,          F2208680    
       05365  0 60100 0 03743        STO B                         USE BETA OF R1,FOUND IN            F2208690    
       05366 -0 53400 2 05344        LXD SPC060,2                  LASTB. OBTAIN TINFOR,STOTAG        F2208700    
       05367  0 50000 0 03751        CLA L(0)                      IND,AND SET LOCATION OF            F2208710    
       05370  0 62200 0 05344        STD SPC060                    INDICATOR TO ZERO. GO TO           F2208720    
 D     05371 -3 00000 0 05340 SPC115 TXL SPC058,0                  TINFOR OR TRASTO.                  F2208730    
       05372 -0 53400 4 05361 SPC120 LXD SPC105,4                  EXIT,ALL STORES DONE,OR,           F2208740    
       05373  0 02000 4 00001        TRA 1,4                       SEARCH MADE,T NOT FOUND.           F2208750    
       05374 -0 53400 4 05361 SPC130 LXD SPC105,4                  EXIT,T FOUND                       F2208760    
       05375  0 02000 4 00002        TRA 2,4                       IN SOME INTERVAL                   F2208770    
       05376  0 07400 4 05417 SPCTIN TSX TINFXX,4                  GO TO SEARCH FORTAG                F2208780    
       05377  0 02000 0 05374        TRA SPC130                    T FOUND                            F2208790    
       05400  0 02000 0 05345        TRA SPC065                    T NOT FOUND                        F2208800    
       05401  0 50000 0 03743 SPCSTO CLA B                         FOR TRASTO,E2 AND E3 ARE           F2208810    
       05402  0 77100 0 00022        ARS 18                        ALREADY SET UP. COLLECT            F2208820    
       05403  0 40000 0 03742        ADD A                         A AND B INTO E1 WORD,              F2208830    
       05404  0 60100 0 05063        STO E1                        PUT TRASTO INDICATOR IN            F2208840    
       05405  0 50000 0 05410        CLA SPCKEY                    ACC. AND                           F2208850    
       05406  0 07400 4 05025        TSX LIST,4                    TSX TO LISTING ROUTINE.            F2208860    
       05407  0 02000 0 05345        TRA SPC065                    ON RETURN,GO TO TEST FINISH.       F2208870    
 A     05410  0 00000 0 00000 SPCKEY HTR                           STORAGE FOR TABLEKEY               F2208880    
                                         SUBROUTINES TINFOR AND TINFXX                                F2208890    
       05411  0 50000 1 00733 TINFOR CLA DOTAGZ,1                  C(XRA)=INDEX OF DR TO BE           F2208900    
       05412  0 73400 1 00000        PAX 0,1                       SEARCHED, SEPARATE ALPHA           F2208910    
       05413 -0 32000 0 03772        ANA DECMSK                    AND BETA                           F22D8920    
       05414  0 60100 0 03742        STO A                         AND STORE IN A                     F2208930    
       05415 -0 75400 1 00000        PXD 0,1                                                          F2208940    
       05416  0 60100 0 03743        STO B                         B                                  F2208950    
       05417 -0 53400 1 03764 TINFXX LXD L(1500,1                  PUT MAX FORTAG INDEX IN XRA        F2208960    
       05420  0 50000 1 03670 TINF10 CLA FORTZ,1                   OBTAIN FORTAG ENTRY                F2208970    
       05421 -0 32000 0 03772        ANA DECMSK                    RETAIN FORMULA NUMBER ONLY         F2208980    
       05422  0 34000 0 03742        CAS A                         COMPARE ALPHA AND FORMULA NR.      F2208990    
       05423  0 02000 0 05430        TRA TINF40                    FOR. NR. GREATER THAN ALPHA. TRA.  F2209000    
       05424  0 76100 0 00000        NOP                           C(A) MAY BE SOME BETA FROM SPC     F2209010    
       05425  1 77777 1 05426 TINF20 TXI TINF30,1,-1               FOR.NR. LESS THAN ALPHA. GO        F2209020    
                                                                   BACK FOR NEXT FORTAG ENTRY         F2209030    
 D     05426  3 00000 1 05420 TINF30 TXH TINF10,1                  IF POSSIBLE. OTHERWISE,            F2209040    
       05427  0 02000 4 00002        TRA 2,4                       RETURN T0 CALLING INSTR PLUS TWO.  F2209050    
       05430  0 34000 0 03743 TINF40 CAS B                         COMPARE FOR. NR. WITH BETA         F2209060    
       05431  0 02000 4 00002        TRA 2,4                       FOR. NR. GREATER THAN BETA,EXIT,   F2209070    
       05432  0 76100 0 00000        NOP                           FOR. NR. EQUAL TO OR               F2209080    
       05433  0 50000 1 03670        CLA FORTZ,1                   LESS THAN BETA,OBTAIN FORTAG       F2209090    
       05434  0 12000 0 05425        TPL TINF20                    TAG AND COMPARE WITH SEARCH TAG.   F2209100    
       05435 -0 32000 0 03773        ANA ADDMSK                    I.F. NOT EQUAL,GO BACK FOR NEXT TAGF2209110    
       05436  0 40200 0 03700        SUB TAG                                                          F2209120    
       05437 -0 10000 0 05425        TNZ TINF20                    IF EQUAL,RETURN TO CALLING         F2209130    
       05440  0 02000 4 00001        TRA 1,4                                                          F2209140    
                                         INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG    F2209150    
                                         FOUND                                                        F2209160    
                                         SUBROUTINE TRAWRD                                            F2209170    
       05441 -0 63400 4 05470 TRAWRD SXD TRAW65,4                                                     F2209180    
       05442  0 50000 0 03751        CLA L(0)                                                         F2209190    
       05443  0 60100 0 03747        STO TRABIT                                                       F2209200    
       05444  0 50000 1 00740        CLA DOTAGZ+5,1                                                   F2209210    
       05445  0 62200 0 05454        STD TRAW30                                                       F2209220    
       05446  0 50000 1 00742 TRAW10 CLA DOTAGZ+7,1                OBTAIN T2 WORD                     F2209230    
       05447 -0 60200 0 03747        ORS TRABIT                    OR INTO TRABIT                     F2209240    
       05450  1 77767 1 05451        TXI TRAW20,1,-9               TAKE NEXT DO                       F2209250    
 D     05451 -3 00000 1 05471 TRAW20 TXL TRAW70,1      IF NONE, EXIT.  (DEC HAS DOTAG IX)             F2209260    
       05452  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN L WORD                      F2209270    
       05453 -0 73400 4 00000        PDX 0,4                       PUT L IN XRC.                      F2209280    
 D     05454 -3 00000 4 05471 TRAW30 TXL TRAW70,4                  EXIT IF DO IS NOT IN RANGE R1      F2209290    
       05455 -3 00001 2 05446        TXL TRAW10,2,1                IF COMPLETE TEST,G0 BACK           F2209300    
       05456  0 50000 1 00734 TRAW35 CLA DOTAGZ+1,1                IF INCOMPLETE TEST,IS THIS A       F2209310    
       05457  0 40200 0 03736        SUB RSYM2                     DO TO BE SKIPPED                   F2209320    
       05460 -0 10000 0 05446        TNZ TRAW10                    IF NOT, GO 8ACK                    F2209330    
       05461  0 50000 1 00740        CLA DOTAGZ+5,1                THIS DO IS TO BE SKIPPED           F2209340    
       05462  0 62200 0 05467        STD TRAW60                    PUT LEVEL OF THIS DO IN TEST INSTR.F2209350    
       05463  1 77767 1 05464 TRAW40 TXI TRAW50,1,-9               TAKE NEXT DO IF ANY                F2209360    
 D     05464 -3 00000 1 05471 TRAW50 TXL TRAW70,1      IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX)    F2209370    
       05465  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN L WORD                      F2209380    
       05466 -0 73400 4 00000        PDX 0,4                       PUT L IN XRC                       F2209390    
 D     05467  3 00000 4 05463 TRAW60 TXH TRAW40,4                  IF DO IS IN RANGE OF R2,GO BACK    F2209400    
 D     05470 -3 00000 0 05454 TRAW65 TXL TRAW30,0                  OTHERWISE,GO TO TRAW30             F2209410    
       05471 -0 53400 4 05470 TRAW70 LXD TRAW65,4                                                     F2209420    
       05472  0 50000 0 03761        CLA L(36)                     OBTAIN 36 IN DECREMENT             F2209430    
       05473  0 40200 0 03741        SUB TL2                       36-TL2                             F2209440    
       05474  0 77100 0 00022        ARS 18                        IN ADDRESS                         F2209450    
       05475  0 62100 0 05505        STA TRAW90                    INITIALIZE SHIFT                   F2209460    
       05476  0 50000 0 03741        CLA TL2                       OBTAIN TL2                         F2209470    
       05477  0 40200 0 03740        SUB TL1                       TL2-TL1                            F2209480    
       05500  0 77100 0 00022        ARS 18                        IN ADDRESS                         F2209490    
       05501  0 62100 0 05504        STA TRAW80                    INITIALIZE SHIFT                   F2209500    
       05502  0 50000 0 03751        CLA L(0)                      ACC CONTAINS ZERO                  F2209510    
       05503  0 56000 0 03771        LDQ 35ONES                    MQ CONTAINS ALL ONES               F2209520    
 A     05504  0 76300 0 00000 TRAW80 LLS                           PUT TL2-TL1 ONES-IN-ACC            F2209530    
 A     05505  0 76700 0 00000 TRAW90 ALS                           POSITION ONES IN ACC               F2209540    
       05506 -0 32000 0 03747        ANA TRABIT                    AND IN TRANSFER BITS               F2209550    
       05507  0 02000 4 00001        TRA 1,4                       GO BACK TO CALLING INSTR PLUS ONE. F2209560    
                                         SUBROUTINES TAGENT AND TETAPE                                F2209570    
       05510 -0 53400 1 04010 TAGENT LXD TAGXX,1                   THIS ROUTINE ENTERS                F2209580    
       05511  3 00000 1 05513        TXH TE10,1,0                  ONE ENTRY IN TAGZ,                 F2209590    
       05512  0 07400 2 05522        TSX TETAPE,2                  IF POSSIBLE. IF NOT,               F2209600    
       05513 -0 53400 2 03755 TE10   LXD L(4),2                    TRA TO TETAPE.                     F2209610    
       05514  0 50000 2 05067 TE20   CLA E1+4,2                                                       F2209620    
       05515  0 60100 1 06771        STO TAGZ,1                                                       F2209630    
       05516  1 77777 1 05517        TXI TE30,1,-1                                                    F2209640    
       05517  2 00001 2 05514 TE30   TIX TE20,2,1                                                     F2209650    
       05520 -0 63400 1 04010        SXD TAGXX,1                                                      F2209660    
       05521  0 02000 4 00001        TRA 1,4                                                          F2209670    
       05522  0 76600 0 00224 TETAPE WRS ATAPE                     THIS ROUTINE                       F2209680    
       05523 -0 53400 1 04010        LXD TAGXX,1                   ENTERS ALL THE VALID               F2209690    
       05524 -0 63400 1 05530        SXD TE50,1                    ENTRIES IN TAGZ ON                 F2209700    
       05525  0 53400 1 04010        LXA TAGXX,1                   THE TAPE                           F2209710    
       05526  0 70000 1 06771 TE40   CPY TAGZ,1                    THE LAST ENTRY ON TAPE             F2209720    
       05527  1 77777 1 05530        TXI TE50,1,-1                 AFTER EACH NEST IS                 F2209730    
 D     05530  3 00000 1 05526 TE50   TXH TE40,1                    AN ENTRY OF 4 WDS OF 35 ONES       F2209740    
       05531  0 53400 1 04010        LXA TAGXX,1                                                      F2209750    
       05532 -0 63400 1 04010        SXD TAGXX,1                                                      F2209760    
       05533  0 02000 2 00001        TRA 1,2                                                          F2209770    
                                         ROUTINE RELCON PINGPONGS INSTRUCTIONS                        F2209780    
       05534 -0 53400 2 03753 RELCON LXD L(2),2                    INITIALIZE SWITCH                  F2209790    
       05535 -0 53400 4 03756 REL10  LXD L(5),4        INITIALIZE ERROR COUNTER.                      F2209805    
       05536 -0 53400 1 05565 REL20  LXD RELWDS,1                  PUT NR OF DRM WDS IN XRA           F2209810    
       05537  0 76200 0 00301        RDS PPDRM                     LOCATE DRUM ADDRESS                F2209820    
       05540  0 46000 2 05566        LDA RELDRA+2,2                LOCATE PROPER DRM ADDRESS          F2209830    
       05541  0 70000 1 06566 REL30  CPY CORESZ,1                  READ STATE B, OR A, INTO           F2209840    
       05542  2 00001 1 05541        TIX REL30,1,1                 STORAGE                            F2209850    
       05543 -0 53400 1 05565        LXD RELWDS,1                  LOAD XRA WITH NR OF DRM WDS        F2209860    
       05544 -0 75400 0 00000        PXD 0,0                      COMPUTE                             F2209870    
       05545  0 36100 1 06566 REL40  ACL CORESZ,1                  CHECK                              F2209880    
       05546  2 00001 1 05545        TIX REL40,1,1                 SUM                                F2209890    
       05547  0 60200 0 05561        SLW REL80                     AND                                F2209900    
       05550  0 50000 0 05561        CLA REL80                     COMPARE.                           F2209910    
       05551  0 40200 2 05564        SUB RELCS+2,2                 IF NOT ZERO,                       F2209920    
       05552 -0 10000 0 05557        TNZ REL70                     GO TO ERROR ROUTINE.               F2209930    
       05553 -3 00001 2 05112 REL50  TXL BRA10,2,1                 IF STATE A, RETURN-TO BRANCH.      F2209940    
 D     05554 -3 00000 0 05566 REL60  TXL CORES,0                  AND TRA TO REL ROUTINE              F2209950    
       05555 -0 53400 2 03752 RELEND LXD L(1),2                                                       F2209960    
       05556  0 02000 0 05535        TRA REL10                     GO TO READ IN STATE A.             F2209970    
       05557  2 00001 4 05536 REL70  TIX REL20,4,1                 COUNT IN ERROR COUNTER AND RETURN  F2209980    
       05560  0 07400 4 00004        TSX DIAG,4  DRUM READ                   ERROR. GO TO DIAGNOSTIC. F2209995    
 A     05561  0 00000 0 00000 REL80  HTR                           E.S.                               F2210000    
       05562 +103075525444    RELCS  OCT 103075525444  CHECK SUM, STATE B, RELCON                     F2210014    
       05563 -246744643200           OCT -246744643200 CHECK SUM STATE A, NORMAL                      F2210024    
       05564 +000000001000    RELDRA OCT 1000                      DRUM ADDRESS, STATE B.             F2210030    
       05565 +001000000000           OCT 1000000000                NR. WDS, DRUM ADDRESS.STATE A.     F2210040    
                        05566        ORG 2934                                                         F2210050    
                                            MASTER RECORD CARD = FN032                                F2210055    
       05566 -0 63400 4 05622 IDENT  SXD ID075,4                   SAVE INDEX                         F2210060    
       05567 -0 53400 1 03760        LXD L(20),1                   INITIALIZE IDENT STORAGE.          F2210070    
       05570  0 50000 0 03751        CLA L(0)                      TO ZERO                            F2210080    
       05571  0 60100 0 06027        STO IDES                                                         F2210090    
       05572  0 60100 1 03740 ID010  STO X1+20,1                                                      F2210100    
       05573  2 00001 1 05572        TIX ID010,1,1                                                    F2210110    
       05574  0 50000 0 03771        CLA 35ONES                    INITIALIZE                         F2210120    
       05575  0 60100 0 03723        STO LL                        LOW LEVEL                          F2210130    
       05576 -0 53400 2 03751        LXD L(0),2                    COUNT THE SUBSCRIPT                F2210140    
       05577 -0 53400 4 03756        LXD L(5),4                    SYMBOLS.                           F2210150    
       05600  0 50000 4 03712 ID020  CLA S1+5,4                    STORE COUNT IN                     F2210160    
       05601  0 10000 0 05603        TZE ID030                     NRSUBS, AND ALSO IN                F2210170    
       05602  1 00001 2 05603        TXI ID030,2,1                 NRRC, WHICH IS THE.                F2210180    
       05603  2 00002 4 05600 ID030  TIX ID020,4,2                 COUNT OF REL. CON.                 F2210190    
       05604 -0 75400 2 00000        PXD 0,2                       SUBSCRIPTS. DO SUBS ARE            F2210200    
       05605  0 60100 0 03725        STO NRRC                      SUBTRACTED OUT LATER.              F2210210    
       05606  0 60100 0 03724        STO NRSUBS                                                       F2210220    
       05607 -0 53400 1 03674        LXD XC,1                      COMPARE EACH SYMBOL                F2210230    
       05610 -0 53400 2 03675        LXD LC,2                      IN THE SUB. COMB. WITH             F2210240    
       05611  0 76000 0 00141        PSE TL                        THE SYMBOL OF EACH                 F2210250    
       05612  0 50000 1 00734 ID050  CLA DOTAGZ+1,1                DO IN THE SUB NEST.                F2210260    
       05613 -0 53400 4 03756        LXD L(5),4                    WHEN EQUALITY IS                   F2210270    
       05614  0 34000 4 03712 ID060  CAS S1+5,4                    FOUND, GO TO ID120.                F2210280    
       05615  0 02000 0 05617        TRA ID070                     IF THE CURRENT DO                  F2210290    
       05616  0 02000 0 05632        TRA ID120                     SYMBOL IS NOT FOUND,               F2210300    
       05617  2 00002 4 05614 ID070  TIX ID060,4,2                 MAKE EXIT FROM ID410               F2210310    
       05620 -0 76000 0 00141        MSE TL                                                           F2210320    
       05621  0 02000 0 05623        TRA ID080                                                        F2210330    
 D     05622 -3 00000 0 06025 ID075  TXL ID410,0                                                      F2210340    
       05623 -3 00001 2 05646 ID080  TXL ID150,2,1                 THESE INSTRUCTIONS                 F2210350    
       05624  1 00011 1 05625 ID090  TXI ID100,1,9                 FIND THE NEXT BACK                 F2210360    
       05625  0 50000 1 00740 ID100  CLA DOTAGZ+5,1                SUB NEST DO FORMULA,               F2210370    
       05626  0 62200 0 05627        STD ID110                     AND RETURN CONTROL                 F2210380    
 D     05627 -3 00000 2 05624 ID110  TXL ID090,2                   TO ID050.                          F2210390    
       05630 -0 73400 2 00000        PDX 0,2                                                          F2210400    
       05631  0 02000 0 05612        TRA ID050                                                        F2210410    
       05632 -0 76000 0 00141 ID120  MSE TL                        TURN OFF TEST LIGHT                F2210420    
       05633  0 76100 0 00000        NOP                           AND                                F2210430    
       05634 -0 75400 1 00000        PXD 0,1                       ESTABLISH                          F2210440    
       05635  0 60100 4 03721        STO X1+5,4                    INDEX                              F2210450    
       05636 -0 75400 2 00000        PXD 0,2                       AND                                F2210460    
       05637  0 60100 4 03722        STO L1+5,4                    LEVEL FOR THIS SUBSCRIPT.          F2210470    
       05640  0 50000 0 03725        CLA NRRC                      SUBTRACT ONE FROM                  F2210480    
       05641  0 40200 0 03752        SUB L(1)                      NRRC. THIS WORD                    F2210490    
       05642  0 60100 0 03725        STO NRRC                      CONTAINS INITIALLY                 F2210500    
       05643  0 10000 0 05646        TZE ID150                     THE NUMBER OF                      F2210510    
       05644  0 50000 1 00734        CLA DOTAGZ+1,1                SUBSCRIPTS IN THE                  F2210520    
       05645  0 02000 0 05617        TRA ID070                     COMBINATION.                       F2210530    
       05646  0 76600 0 00333 ID150  IOD                             THIS - EDRECN0 FN 265001 P463    F2210540    
       05647  0 50000 0 03714        CLA X1                          ROUTINE        FN265002          F2210550    
       05650  0 56000 0 03716        LDQ X2                          LOOKS FOR THE                    F2210560    
       05651  0 04000 0 05653        TLQ PT041                       OUTERM0ST                        F2210570    
       05652  0 50000 0 03716        CLA X2                          DOTAG                            F2210580    
       05653  0 56000 0 03720  PT041 LDQ X3                          OF A                             F2210590    
       05654  0 04000 0 05656        TLQ PT042                       SUBSCRIPT                        F2210600    
       05655  0 50000 0 03720        CLA X3                          COMBINATION.                     F2210610    
       05656  0 60100 0 05662  PT042 STO PT043                                                        F2210620    
       05657 -0 53400 4 03757        LXD L(6),4                                                       F2210630    
       05660 -0 53400 3 03754        LXD L(3),3                                                       F2210640    
       05661  0 02000 0 05663        TRA ID160                       RETURN                           F2210650    
 A     05662  0 00000 0 00000  PT043 HTR                                                              F2210660    
       05663  0 50000 1 03710 ID160  CLA S1+3,1                    WHICH CAN BE ASSIGNED              F2210670    
       05664  0 10000 0 05671        TZE ID170                     HAVE BEEN ASSIGNED.                F2210680    
       05665  0 40200 2 03712        SUB S1+5,2                    THIS                               F2210690    
       05666 -0 10000 0 05671        TNZ ID170                     ROUTINE                            F2210700    
       05667 -0 75400 4 00000        PXD 0,4                       MAKES UP THE                       F2210710    
       05670 -0 60200 0 03734        ORS DUPES                     DUPLICATE                          F2210720    
       05671  2 00001 4 05672 ID170  TIX ID180,4,1                 SUBSCRIPT                          F2210730    
       05672  2 00002 2 05663 ID180  TIX ID160,2,2                 WORD.                              F2210740    
       05673  2 00001 4 05674        TIX ID190,4,1                                                    F2210750    
       05674  2 00002 1 05663 ID190  TIX ID160,1,2                                                    F2210760    
       05675 -0 53400 2 03725        LXD NRRC,2                    IF THERE IS MORE                   F2210770    
       05676 -3 00000 2 05723        TXL ID300,2,0                 THAN ONE RELCON,                   F2210780    
       05677 -3 00001 2 05704        TXL ID195,2,1                 AND IF THERE ARE                   F2210790    
       05700  0 50000 0 03734        CLA DUPES                     DUPLICATES, THEN THE               F2210800    
       05701  0 60100 0 03733        STO RCDUP                     RELCONS ARE DUPLICATES.            F2210810    
       05702  0 50000 0 03751        CLA L(0)                      OTHERWISE, THE DOSUBS              F2210820    
       05703  0 60100 0 03734        STO DUPES                     ARE DUPLICATES.                    F2210830    
       05704 -0 53400 4 03756 ID195  LXD L(5),4                    IF THERE ARE RELCONS,              F2210840    
       05705  0 50000 4 03722 ID200  CLA L1+5,4                    THERE ARE NOT MORE                 F2210850    
       05706 -0 10000 0 05720        TNZ ID210                     THAN TWO.                          F2210860    
       05707  0 50000 4 03712        CLA S1+5,4                    PUT THEIR SYMBOLS                  F2210870    
       05710  0 10000 0 05720        TZE ID210                     IN PSYM1 AND RSYM2,                F2210880    
       05711 -0 75400 4 00000        PXD 0,4                       AND PUT BITS IN THE                F2210890    
       05712 -3 00001 4 05714        TXL ID205,4,1                 PROPER POSITIONS OF                F2210900    
       05713  0 40200 0 03752        SUB L(1)                      RCSUBS.                            F2210910    
       05714 -0 60200 0 03730 ID205  ORS RCSUBS                                                       F2210920    
       05715  0 50000 4 03712        CLA S1+5,4                                                       F2210930    
       05716 -2 00001 2 05722        TNX ID220,2,1                                                    F2210940    
       05717  0 60100 0 03736        STO RSYM2                                                        F2210950    
       05720  2 00002 4 05705 ID210  TIX ID200,4,2                                                    F2210960    
       05721  0 02000 0 05723        TRA ID300                                                        F2210970    
       05722  0 60100 0 03735 ID220  STO RSYM1                                                        F2210980    
       05723 -0 53400 4 03756 ID300  LXD L(5),4                    FOR ALL DO SUBS,                   F2210990    
       05724  0 50000 4 03721 ID310  CLA X1+5,4                    SELECT THE                         F2211000    
       05725  0 10000 0 05740        TZE ID340                     MAXIMUM OF ALL                     F2211010    
       05726 -0 73400 1 00000        PDX 0,1                       VARAIBLE N LEVEL                   F2211020    
       05727 -0 53400 2 03754        LXD L(3),2                    OF DEFINITION                      F2211030    
       05730  0 50000 1 00741 ID320  CLA DOTAGZ+6,1                QUANTITIES.                        F2211040    
       05731 -0 32000 0 03773        ANA ADDMSK                                                       F2211050    
       05732  0 76700 0 00022        ALS 18                                                           F2211060    
       05733  0 34000 0 06027        CAS IDES                                                         F2211070    
       05734  0 60100 0 06027        STO IDES                                                         F2211080    
       05735  0 76100 0 00000        NOP                                                              F2211090    
       05736  2 00001 1 05737        TIX ID330,1,1                                                    F2211100    
       05737  2 00001 2 05730 ID330  TIX ID320,2,1                                                    F2211110    
       05740  2 00002 4 05724 ID340  TIX ID310,4,2                                                    F2211120    
       05741 -0 53400 4 03756        LXD L(5),4                    COMPARE THIS MAXIMUM               F2211130    
       05742 -0 53400 2 03751        LXD L(0),2                                                       F2211140    
       05743  0 50000 4 03722 ID350  CLA L1+5,4                    WITH EACH SUBSCRIPT                F2211150    
       05744  0 10000 0 06000        TZE ID380                     LEVEL, THOSE SUBSCRIPT             F2211160    
       05745  0 34000 0 06027        CAS IDES                      LEVELS LESS THAN OR                F2211170    
       05746  0 02000 0 05764        TRA ID370                     EQUAL T0 THE MAXIMUN               F2211180    
       05747  0 76100 0 00000        NOP                           LEVEL OF DEFINITION                F2211190    
       05750 -0 75400 4 00000        PXD 0,4                       QUANTITY WILL BE TREATED           F2211200    
       05751 -3 00001 4 05753        TXL ID360,4,1                 AS REL. CONS.                      F2211210    
       05752  0 40200 0 03752        SUB L(1)                      INDICATE THIS CONDITION            F2211220    
       05753 -0 60200 0 03727 ID360  ORS DORC                      IN THE DORC WORD.                  F2211230    
       05754  0 50000 4 03721        CLA X1+5,4                                                       F2211240    
       05755 -0 73400 1 00000        PDX 0,1                                                          F2211250    
       05756  0 50000 0 04000        CLA BITONE        MAKE INDICATION FOR STORED COUNTER             F2211260    
       05757 -0 60200 1 00740        ORS DOTAGZ+5,1    FOR THIS DORC.                                 F2211270    
       05760 -0 75400 0 00000        PXD 0,0           CLEAR X(N) AND L(N)                            F2211280    
       05761  0 60100 4 03722        STO L1+5,4        SINCE THEY ARE NO L0NGER DOSUBS.               F2211290    
       05762  0 60100 4 03721        STO X1+5,4                                                       F2211300    
       05763  0 02000 0 06000        TRA ID380                                                        F2211310    
       05764  0 34000 0 03723 ID370  CAS LL            FOR TRUE DO SUBS.                              F2211320    
       05765  0 02000 0 05773        TRA ID372                     ESTABLISH LOW LEVEL                F2211330    
       05766  0 02000 0 05773        TRA ID372                     AND LOW INDEX. LOW                 F2211340    
       05767  0 60100 0 03723        STO LL                        LEVEL WORD WAS                     F2211350    
       05770  0 50000 4 03721        CLA X1+5,4                    INITIALIZED TO                     F2211360    
       05771  0 60100 0 03722        STO XL                        35ONES.                            F2211370    
       05772 -0 63400 4 03750        SXD LOWP0S,4                                                     F2211380    
       05773 -0 75400 4 00000 ID372  PXD 0,4                       PUT BITS IN                        F2211390    
       05774 -3 00001 4 05776        TXL ID375,4,1                 PROPER POSITIONS                   F2211400    
       05775  0 40200 0 03752        SUB L(1)                      OF DOSUBS                          F2211410    
       05776 -0 60200 0 03731 ID375  ORS DOSUBS                    WORD                               F2211420    
       05777  1 00001 2 06000        TXI ID380,2,1                                                    F2211430    
       06000  2 00002 4 05743 ID380  TIX ID350,4,2                                                    F2211440    
       06001 -0 75400 2 00000        PXD 0,2                                                          F2211450    
       06002  0 60100 0 03726        STO NRDS                      CHECK TO SEE THAT                  F2211460    
       06003 -0 10000 0 06005        TNZ ID385         AT LEAST ONE SUBSCR IS A DOSUB                 F2211472    
       06004  0 07400 4 00004        TSX DIAG,4  NO DOSUB WAS PRECLUDED.     ERROR. GO TO DIAGNOSTIC  F2211485    
       06005 -0 53400 2 03725 ID385  LXD NRRC,2                    THESE INSTRUCTIONS                 F2211490    
       06006 -3 00000 2 06023        TXL ID400,2,0                 COMPUTE DELTA.                     F2211500    
       06007 -0 53400 4 03752        LXD L(1),4                    IF ONE DISTINCT DOSUB,             F2211510    
       06010  0 50000 0 03733        CLA RCDUP                     ONE DISTINCT RELCON,               F2211520    
       06011 -0 10000 0 06021        TNZ ID395                     DELTA IS ONE.                      F2211530    
       06012  0 50000 0 03734        CLA DUPES                     IF TWO DISTINCT DOSUBS,            F2211540    
       06013 -0 10000 0 06021        TNZ ID395                     ONE RELCON, DELTA IS TWO.          F2211550    
       06014 -3 00001 2 06016        TXL ID390,2,1                 IF ONE DOSUB, TWO                  F2211560    
       06015  1 00002 4 06021        TXI ID395,4,2                 DISTINCT RELCONS,                  F2211570    
       06016 -0 53400 2 03726 ID390  LXD NRDS,2                    DELTA IS THREE.                    F2211580    
       06017 -3 00001 2 06021        TXL ID395,2,1                 FOR ALL OTHER CASES,               F2211590    
       06020  1 00001 4 06021        TXI ID395,4,1                 DELTA IS ZERO.                     F2211600    
       06021 -0 75400 4 00000 ID395  PXD 0,4                                                          F2211610    
       06022  0 60100 0 03732        STO DELTA                                                        F2211620    
       06023 -0 53400 4 05622 ID400  LXD ID075,4                   EXIT,                              F2211630    
       06024  0 02000 4 00002        TRA 2,4                       SUBCOM USED.                       F2211640    
       06025 -0 53400 4 05622 ID410  LXD ID075,4                   EXIT,                              F2211650    
       06026  0 02000 4 00001        TRA 1,4                       SUBCOMB NOT USED.                  F2211660    
 A     06027  0 00000 0 00000 IDES   HTR                                                              F2211670    
       06030 -0 63400 4 06036 NAME   SXD NAM10,4  -                SAVE LINKAGE                       F2211680    
       06031  0 50000 0 03700        CLA TAG                       PUT TAU IN TS,                     F2211690    
       06032  0 60100 0 03701  PAT05 STO TS                                                   P463    F2211700    
       06033 -0 53400 1 05662        LXD PT043,1                                                      F2211710    
       06034  0 07400 4 05411 RET01  TSX TINFOR,4                 SEARCH RANGE OF XL                  F2211720    
       06035  0 02000 0 06037        TRA NAM20                     (FOUND) FOR NEGATICE TAG.          F2211730    
 TD    06036 -3 00000 0 06073 NAM10  TXL NAM50                     NOT FOUND                          F2211740    
       06037  0 50000 0 03673 NAM20  CLA NEWTAG                    OBTAIN                             F2211750    
       06040  0 60100 0 03701        STO TS                        NEW                                F2211760    
       06041  0 40000 0 03765        ADD L(1)A                     NAME                               F2211770    
       06042  0 60100 0 03673        STO NEWTAG                                                       F2211780    
       06043 -0 53400 1 03674        LXD XC,1                      ARRANGE                            F2211790    
       06044  0 50000 1 00733        CLA DOTAGZ,1                  ENTRY BLOCK                        F2211800    
       06045  0 60100 0 05063        STO E1                        FOR CHATAG                         F2211810    
       06046  0 50000 0 03700        CLA TAG                       ENTRY.                             F2211820    
       06047  0 76700 0 00022        ALS 18                                                           F2211830    
       06050  0 40000 0 03701        ADD TS                                                           F2211840    
       06051  0 60100 0 05064        STO E2                                                           F2211850    
       06052  0 50000 0 05072        CLA CHATAG                                                       F2211860    
       06053 -0 53400 4 03725        LXD NRRC,4                    USE LIST OR SPC000,                F2211870    
       06054  3 00000 4 06057        TXH NAM30,4,0                 DEPENDING UPON                     F2211880    
       06055  0 07400 4 05025        TSX LIST,4                    WHETHER OR NOT                     F2211890    
       06056  0 02000 0 06061        TRA NAM40         WORD NRRC IS ZERO. I.E., ARE THERE RELCONS.    F2211900    
       06057 -0 53400 2 03753 NAM30  LXD L(2),2        NO TINFOR SEARCH REQUIRED.                     F2211910    
       06060  0 07400 4 05277        TSX SPC000,4                                                     F2211920    
       06061 -0 53400 1 04011 NAM40  LXD NAMXX,1                   ENTER                              F2211930    
       06062  3 00000 1 06064        TXH NAM44,1,0                 ALPHA,                             F2211940    
       06063  0 07400 4 00004        TSX DIAG,4  TAG,    (NAME TABLE FULL.   ERROR. GO TO DIAGNOSTIC.)F2211955    
       06064  0 50000 0 03676 NAM44  CLA ALPHA                     AND                                F2211960    
       06065 -0 50100 0 03700        ORA TAG                       NAME                               F2211970    
       06066  0 60100 1 07301        STO NAMZ,1                    IN                                 F2211980    
       06067  0 50000 0 03701        CLA TS                        NAME                               F2211990    
       06070  0 60100 1 07302        STO NAMZ+1,1                  TABLE                              F2212000    
       06071  1 77776 1 06072        TXI NAM48,1,-2                                                   F2212010    
       06072 -0 63400 1 04011 NAM48  SXD NAMXX,1                                                      F2212020    
       06073 -0 53400 4 06036 NAM50  LXD NAM10,4                   EXIT                               F2212030    
       06074  0 02000 4 00001        TRA 1,4                                                          F2212040    
                                         1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.F2212050    
       06075 -0 63400 4 06146 1NS00  SXD 1NS20,4                   SAVE LINKAGE                       F2212060    
       06076 -0 53400 1 03674        LXD XC,1                                                         F2212070    
       06077  0 50000 0 04001        CLA BITTWO                    IF A COUNTER HAS                   F2212080    
       06100 -0 32000 1 00741        ANA DOTAGZ+6,1                BEEN FOUND,                        F2212090    
       06101 -0 10000 0 06142        TNZ 1NS10                     GO TO 1NS10                        F2212100    
       06102 -0 53400 4 03731        LXD DOSUBS,4                  SKIP TO 1NS10                      F2212110    
       06103 -3 00003 4 06142        TXL 1NS10,4,3                 IF NOT FIRST POSITION.             F2212120    
       06104  3 00004 4 06142        TXH 1NS10,4,4                                                    F2212130    
       06105  0 50000 0 03730        CLA RCSUBS                    IF ANY RELCONS,                    F2212140    
       06106 -0 50100 0 03727        ORA DORC                      GO TO 1NS10                        F2212150    
       06107 -0 10000 0 06142        TNZ 1NS10                                                        F2212160    
       06110 -0 53400 4 03704        LXD C1,4                      IF C1 IS NOT ONE,                  F2212170    
       06111  3 00001 4 06142        TXH 1NS10,4,1                 GO TO 1NS10                        F2212180    
       06112  0 50000 0 03773        CLA ADDMSK                    THIS SUB. COMB. WILL SERVE         F2212190    
       06113  0 32000 1 00743        ANS DOTAGZ+8,1                AS COUNTER AND TEST, ENTER IN      F2212200    
       06114  0 50000 0 03701        CLA TS                        DOTAGZ+8.                          F2212210    
       06115  0 76700 0 00022        ALS 18                        INDICATE                           F2212220    
       06116 -0 50100 0 03770        ORA L(MZ)                     BEST TEST                          F2212230    
       06117 -0 60200 1 00743        ORS DOTAGZ+8,1                FOUND.                             F2212240    
       06120  0 50000 0 04001        CLA BITTWO                    INDICATE COUNTER FOUND.            F2212250    
       06121 -0 60200 1 00741        ORS DOTAGZ+6,1                                                   F2212260    
       06122 -0 50000 0 03770        CAL L(MZ)                     SET CARWRD NEGATIVE.               F2212270    
       06123 -0 60200 0 03737        ORS CARWRD                    TEST BITONE OF L WORD.             F2212280    
       06124  0 50000 0 04000        CLA BITONE                    IF ONE, SKIP TRASTO                F2212290    
       06125 -0 32000 1 00740        ANA DOTAGZ+5,1                TEST.                              F2212300    
       06126 -0 10000 0 06142        TNZ 1NS10                                                        F2212310    
       06127  0 50000 1 00740 1NS05  CLA DOTAGZ+5,1                TEST TO SEE IF TRANSFER            F2212320    
       06130  0 12000 0 06142        TPL 1NS10                     STORE NECESSARY.                   F2212330    
       06131  0 50000 1 00733        CLA DOTAGZ,1                  MAKE TRASTO ENTRY                  F2212340    
       06132  0 60100 0 05063        STO E1                        TO STORE COUNTER                   F2212350    
       06133  0 50000 1 00734        CLA DOTAGZ+1,1                IN LOCATION OF SYMBOL.             F2212360    
       06134  0 60100 0 05064        STO E2                                                           F2212370    
       06135  0 50000 0 03675        CLA LC                                                           F2212380    
       06136 -0 50100 0 03701        ORA TS                                                           F2212390    
       06137  0 60100 0 05065        STO E3                                                           F2212400    
       06140  0 50000 0 05070        CLA TRASTO                                                       F2212410    
       06141  0 07400 4 05025        TSX LIST,4                                                       F2212420    
       06142  0 50000 0 03757 1NS10  CLA L(6)                      ENTER                              F2212430    
       06143  0 60100 0 03703        STO GR0UP                     GROUP NR.                          F2212440    
       06144 -0 53400 4 06146        LXD 1NS20,4                   AND EXIT.                          F2212450    
       06145  0 02000 4 00001        TRA 1,4                                                          F2212460    
 A     06146  0 00000 0 00000 1NS20  HTR                                                              F2212470    
                                         2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED         F2212480    
                                         SUBSCRIPTS,                                                  F2212490    
       06147 -0 63400 4 06157 2NS00  SXD 2NS25,4                   SAVE LINKAAGE                      F2212500    
       06150 -0 53400 1 03731 2NS10  LXD DOSUBS,1                  2NS10 T0 2NS80 DETERMINE THE       F2212510    
       06151 -0 53400 2 03753        LXD L(2),2                    GROUP NR AND CARRY BITS            F2212520    
       06152  0 50000 0 03715        CLA L1                        FOR THE SL.                        F2212530    
       06153  3 00003 1 06155        TXH 2NS20,1,3                                                    F2212540    
       06154  0 50000 0 03717        CLA L2                                                           F2212550    
       06155 -3 00005 1 06160 2NS20  TXL 2NS30,1,5                                                    F2212560    
       06156  0 40200 0 03717        SUB L2                                                           F2212570    
 D     06157 -3 00000 0 06161 2NS25  TXL 2NS40,0                                                      F2212580    
       06160  0 40200 0 03721 2NS30  SUB L3                                                           F2212590    
       06161 -0 12000 0 06174 2NS40  TMI 2NS70                                                        F2212600    
       06162  0 40200 0 03752        SUB L(1)                                                         F2212610    
       06163 -0 10000 0 06172        TNZ 2NS60                                                        F2212620    
       06164 -3 00003 1 06167        TXL 2NS50,1,3                                                    F2212630    
       06165 -3 00005 1 06172        TXL 2NS60,1,5                                                    F2212640    
       06166  1 00002 2 06167        TXI 2NS50,2,2                                                    F2212650    
       06167 -0 53400 4 03734 2NS50  LXD DUPES,4                   THIS DUPE TEST IS AN ADJUSTMENT    F2212660    
       06170  3 00000 4 06172        TXH 2NS60,4,0                 FOR DUPLICATES IN A REDUCED        F2212670    
       06171  0 07400 4 04754        TSX CARRY,4                   3NS CASE.                          F2212680    
       06172  0 50000 0 03752 2NS60  CLA L(1)                                                         F2212690    
 D     06173 -3 00000 0 06175 2NS65  TXL 2NS80,0                                                      F2212700    
       06174  0 50000 0 03757 2NS70  CLA L(6)                                                         F2212710    
       06175  0 60100 0 03703 2NS80  STO GR0UP                                                        F2212720    
       06176 -0 73400 4 00000        PDX 0,4                                                          F2212730    
       06177 -0 53400 2 03731        LXD DOSUBS,2                  THIS ROUTINE,TO 2NS90,             F2212740    
       06200  0 50000 0 03715        CLA L1                        PREPARES A TRAWRD CALLING          F2212750    
       06201  3 00003 2 06203        TXH 2NS82,2,3                 SEQUENCE TO DETERMINE              F2212760    
       06202  0 50000 0 03717        CLA L2                        WHETHER OR NOT RESETTING           F2212770    
       06203 -3 00005 2 06206 2NS82  TXL 2NS84,2,5                 IS NECESSARY                       F2212780    
       06204  0 56000 0 03717        LDQ L2                                                           F2212790    
       06205  0 02000 0 06207        TRA 2NS86                                                        F2212800    
       06206  0 56000 0 03721 2NS84  LDQ L3                                                           F2212810    
       06207 -3 00001 4 06220 2NS86  TXL 2NS88,4,1                 TEST GROUP                         F2212820    
       06210  0 60100 0 03740        STO TL1                                                          F2212830    
       06211 -0 60000 0 03741        STQ TL2                                                          F2212840    
       06212 -0 53400 1 03720        LXD X3,1                                                         F2212850    
       06213  0 50000 0 03752        CLA L(1)                                                         F2212860    
       06214 -3 00005 2 06227        TXL 2NS90,2,5                                                    F2212870    
       06215 -0 53400 1 03716        LXD X2,1                                                         F2212880    
       06216  0 50000 0 03753        CLA L(2)                                                         F2212890    
       06217  0 02000 0 06227        TRA 2NS90                                                        F2212900    
       06220  0 60100 0 03741 2NS88  STO TL2                                                          F2212910    
       06221 -0 60000 0 03740        STQ TL1                                                          F2212920    
       06222 -0 53400 1 03714        LXD X1,1                                                         F2212930    
       06223  0 50000 0 03755        CLA L(4)                                                         F2212940    
       06224  3 00003 2 06227        TXH 2NS90,2,3                                                    F2212950    
       06225 -0 53400 1 03716        LXD X2,1                                                         F2212960    
       06226  0 50000 0 03753        CLA L(2)                                                         F2212970    
       06227  0 60100 0 03746 2NS90  STO REBITS                    2NS90 SEQ. SINGLE REBITS           F2212980    
       06230 -0 32000 0 03734        ANA DUPES                     ARE PART OF THE TAG OF THE         F2212990    
       06231  0 10000 0 06235        TZE 2NS91                     RESETTING SC,IT MUST BE            F2213000    
       06232  0 50000 0 03746        CLA REBITS                    ADJUSTED FOR DUPE RESETS.          F2213010    
       06233 -0 50100 0 03734        ORA DUPES                                                        F2213020    
       06234  0 60100 0 03746        STO REBITS                                                       F2213030    
       06235 -0 63400 1 06173 2NS91  SXD 2NS65,1                                                      F2213040    
       06236 -0 53400 2 03752        LXD L(1),2                                                       F2213050    
       06237  0 07400 4 05441        TSX TRAWRD,4                  TEST FOR TANSFER BITS.             F2213060    
       06240  0 10000 0 06244        TZE 2NSEND                    RESETTING NOT NECESSARY IF         F2213070    
       06241 -0 53400 2 03746        LXD REBITS,2                  TRAWRD RESULT ZERO.  IF            F2213080    
       06242 -0 53400 1 06173        LXD 2NS65,1                   RESETTING NECESSARY, EXECUTE       F2213090    
       06243  0 07400 4 06370        TSX RESET,4                   RESET ROUTINE AND                  F2213100    
       06244 -0 53400 4 06157 2NSEND LXD 2NS25,4                   EXIT                               F2213110    
       06245  0 02000 4 00001        TRA 1,4                                                          F2213120    
                                         3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED       F2213130    
                                         SUBSCRIPTS.                                                  F2213140    
       06246 -0 63400 4 06255 3NS00  SXD 3GRP15,4                  SAVE LINKAGE                       F2213150    
                                         THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC      F2213160    
       06247 -0 53400 2 03751        LXD L(0),2                    PUT ZERO IN XRB                    F2213170    
       06250  0 50000 0 03721        CLA L3                        OBTAIN L3                          F2213180    
       06251  0 34000 0 03717        CAS L2                        COMPARE WITH L2                    F2213190    
       06252  1 00004 2 06254        TXI 3GRP10,2,4                L3 GREATER THAN L2                 F2213200    
       06253  0 07400 4 00004        TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGNOSTIC. F2213215    
       06254  0 34000 0 03715 3GRP10 CAS L1                        L3 LESS THAN L2,COMPARE L3,L1      F2213220    
 D     06255 -3 00000 0 06260 3GRP15 TXL 3GRP20,0                 L3 GREATER THAN L1                  F2213230    
       06256  0 07400 4 00004        TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGNOSTIC. F2213243    
       06257  1 00001 2 06260        TXI 3GRP20,2,1                L3 LESS THAN L1                    F2213250    
       06260  0 50000 0 03717 3GRP20 CLA L2                        OBTAIN L2                          F2213260    
       06261  0 40200 0 03715        SUB L1                        SUBTRACT L1                        F2213270    
       06262 -0 12000 0 06264        TMI 3GRP30                    TRA IF L2 LESS THAN L1             F2213280    
       06263  1 00002 2 06264        TXI 3GRP30,2,2                L2 GREATER THAN L1                 F2213290    
       06264 -0 75400 2 00000 3GRP30 PXD 0,2                       PUT GROUP NUMBER IN ACC DEC.       F2213300    
       06265  0 60100 0 03703        STO GR0UP                     OR INTO TAG 1                      F2213310    
       06266  0 50000 0 03715        CLA L1                        OBTAIN L1                          F2213320    
       06267  0 40200 0 03752        SUB L(1)                      L1 LESS 1                          F2213330    
       06270  0 40200 0 03717        SUB L2                        L1 LESS 1 LESS L2                  F2213340    
       06271 -0 10000 0 06274        TNZ 3GRP40                    NOT ZERO,NO CARRY,TRA              F2213350    
       06272 -0 53400 2 03755        LXD L(4),2                    SET XRB                            F2213360    
       06273  0 07400 4 04754        TSX CARRY,4                   AND TSX TO CARRY                   F2213370    
       06274  0 50000 0 03717 3GRP40 CLA L2                        RE-ENTRY,OBTAIN L2                 F2213380    
       06275  0 40200 0 03752        SUB L(1)                      L2 LESS 1                          F2213390    
       06276  0 40200 0 03721        SUB L3                        L2 LESS 1 LESS L3                  F2213400    
       06277 -0 10000 0 06302        TNZ 3GRP50                    NOT ZERO,NO CARRY,TRA              F2213410    
       06300 -0 53400 2 03753        LXD L(2),2                    SET XRB                            F2213420    
       06301  0 07400 4 04754        TSX CARRY,4                   AND TSX TO CARRY                   F2213430    
       06302 -0 53400 6 03751 3GRP50 LXD L(0),6                    THE FOLLOWING ROUTINE,             F2213440    
       06303 -0 53400 1 03703        LXD GR0UP,1                   THROUGH 3GRP72, COMPUTES           F2213450    
       06304  0 02000 1 06313 3GRP55 TRA 3GRP55+7,1                QUANTITIES FOR XRB, XRC.           F2213460    
       06305  1 00002 2 06314        TXI 3GRP65,2,2                GROUP IS SIX                       F2213470    
       06306  1 00004 4 06314        TXI 3GRP65,4,4                FIVE                               F2213480    
       06307  1 00004 2 06314        TXI 3GRP65,2,4                FOUR                               F2213490    
       06310  1 00002 6 06313        TXI 3GRP60,6,2                THREE                              F2213500    
       06311  1 00002 4 06314        TXI 3GRP65,4,2                TWO                                F2213510    
       06312  1 00004 4 06313        TXI 3GRP60,4,4                ONE                                F2213520    
       06313  1 00002 2 06314 3GRP60 TXI 3GRP65,2,2                                                   F2213530    
       06314  0 50000 4 03720 3GRP65 CLA X1+4,4                                                       F2213540    
       06315  0 60100 0 06362        STO INX                                                          F2213550    
       06316  0 50000 4 03721        CLA X1+5,4                                                       F2213560    
       06317  0 60100 0 06363        STO INL                                                          F2213570    
       06320  0 50000 2 03720        CLA X1+4,2                                                       F2213580    
       06321  0 60100 0 06364        STO MIDX                                                         F2213590    
       06322  0 50000 2 03721        CLA X1+5,2                                                       F2213600    
       06323  0 60100 0 06365        STO MIDL                                                         F2213610    
       06324  3 00000 4 06326        TXH 3GRP70,4,0                THE QUANTIT1ES IN XRB.             F2213620    
       06325  1 00001 4 06326        TXI 3GRP70,4,1                XRC, ARE ZERO, TWO, OR             F2213630    
       06326 -0 63400 4 06357 3GRP70 SXD INP,4                     FOUR, ADJUSTED TO ONE,             F2213640    
       06327  3 00000 2 06331        TXH 3GRP72,2,0                TWO, FOUR, TO INDICATE THE         F2213630    
       06330  1 00001 2 06331        TXI 3GRP72,2,1                POSITION OF THE SUBCCRIPT          F2213660    
       06331 -0 63400 2 06361 3GRP72 SXD MIDP,2                    BEING RESET, STORE IN INP, MIDP.   F2213670    
       06332 -0 53400 4 03755        LXD L(4),4                    THIS LOOP IS EXECUTED TWICE.       F2213680    
       06333  0 50000 4 06366 3GRP75 CLA INX+4,4                   OBTAIN INNER INDEX OF PAIR         F2213690    
       06334 -0 73400 1 00000        PDX 0,1                       IN XRA                             F2213700    
       06335  0 50000 4 06367        CLA INL+4,4                   OBTAIN INNER LEVEL OF PAIR         F2213710    
       06336  0 60100 0 03741        STO TL2                       TL2                                F2213718    
       06337  0 50000 0 03723        CLA LL                        OBTAIN LOWER LEVEL IN              F2213720    
       06340  0 60100 0 03740        STO TL1                       TL1                                F2213740    
       06341 -0 53400 2 03752        LXD L(1),2                    PUT ONE IN XRB,                    F2213750    
       06342 -0 63400 4 06360        SXD 3GRP80,4                  SAVE XRC,                          F2213760    
       06343  0 07400 4 05441        TSX TRAWRD,4                  AND USE TRAWRD.                    F2213770    
       06344 -0 53400 4 06360        LXD 3GRP80,4                  RESTORE XRC,                       F2213780    
       06345  0 10000 0 06355        TZE 3GRP77                    GO TO INDEXING IF ZERO.            F2213790    
       06346  0 50000 4 06363        CLA INP+4,4                   TRAWRD RESULT NOT ZERO.            F2213800    
       06347 -0 73400 2 00000        PDX 0,2                       PREPARE T0                         F2213810    
       06350  0 50000 4 06366        CLA INX+4,4                   USE RESET                          F2213820    
       06351 -0 73400 1 00000        PDX 0,1                                                          F2213830    
       06352 -0 63400 4 06360        SXD 3GRP80,4                  SAVE XRC,                          F2213840    
       06353  0 07400 4 06370        TSX RESET,4                   GO TO RESET,                       F2213850    
       06354 -0 53400 4 06360        LXD 3GRP80,4                  RESTR0E XRC,                       F2213860    
       06355  2 00002 4 06333 3GRP77 TIX 3GRP75,4,2                INDEX AND GO BACK,                 F2213870    
       06356  0 02000 0 06366        TRA 3NSEND                    OR EXIT                            F2213880    
 A     06357  0 00000 0 00000 INP    HTR                           POSITION OF INNER SUB.             F2213890    
 A     06360  0 00000 0 00000 3GRP80 HTR                                                              F2213900    
 A     06361  0 00000 0 00000 MIDP   HTR                           POSITION OF MIDDLE SUB.            F2213910    
 A     06362  0 00000 0 00000 INX    HTR               INDEX INNER LEVEL SUBSCRIPT                    F2213920    
 A     06363  0 00000 0 00000 INL    HTR               LEVEL INNER LEVEL SUBSCRIPT                    F2213930    
 A     06364  0 00000 0 00000 MIDX   HTR               INDEX MIDDLE LEVEL SUBSCRIPT                   F2213940    
 A     06365  0 00000 0 00000 MIDL   HTR               LEVEL MIDDLE LEVEL SUBSCRIPT                   F2213950    
       06366 -0 53400 4 06255 3NSEND LXD 3GRP15,4                                                     F2213960    
       06367  0 02000 4 00001        TRA 1,4                                                          F2213970    
       06370 -0 63400 4 06421 RESET  SXD RES45,4                   SAVE LINKAGE                       F2213980    
       06371 -0 75400 2 00000        PXD 0,2                       SAVE                               F2213990    
       06372  0 60100 0 06613        STO RES300                    PREFIX (REBITS)                    F2214000    
       06373 -0 75400 1 00000        PXD 0,1                       SAVE INDEX                         F2214010    
       06374  0 60100 0 06614        STO RES310                    OF RESET                           F2214020    
       06375  0 50000 0 03710        CLA C3                        OBTAIN C3 IN                       F2214030    
       06376  0 77100 0 00022        ARS 18                        ADDRESS PART.                      F2214040    
       06377  0 02000 2 06406 RES05  TRA RES05+7,2                 INDEXED T RANSFER, C(XRB)=C(REBITS)F2214050    
       06400  0 02000 0 06422        TRA RES50                     C(XRB)=110                         F2214060    
       06401  0 02000 0 06414        TRA RES30                     C(XRB)=101                         F2214070    
       06402  0 02000 0 06416        TRA RES40                     C(XRB)=100                         F2214080    
       06403  0 02000 0 06412        TRA RES20                     C(XRB)=011                         F2214090    
       06404  0 02000 0 06422        TRA RES50                     C(XRB)= 010                        F2214100    
       06405  0 60100 0 05064 RES10  STO E2                        C(XRB)=001                         F2214110    
       06406  0 50000 0 03713        CLA D2                        THESE INSTRUCTIONS, THROUGH        F2214120    
       06407  0 77100 0 00022        ARS 18                        RES60, COMPUTE THE                 F2214130    
       06410  0 40000 0 03712        ADD D1                        CHARACTERISTIC WORDS OF THE        F2214140    
       06411  0 02000 0 06430        TRA RES60                     SUBSCRIPT COMBINATION.             F2214150    
       06412  0 40000 0 03706 RES20  ADD C2                                                           F2214160    
       06413  0 02000 0 06405        TRA RES10                                                        F2214170    
       06414  0 40000 0 03704 RES30  ADD C1                                                           F2214180    
       06415  0 02000 0 06405        TRA RES10                                                        F2214190    
       06416  0 50000 0 03704 RES40  CLA C1                                                           F2214200    
       06417  0 60100 0 05064        STO E2                                                           F2214210    
       06420  0 50000 0 03751        CLA L(0)                                                         F2214220    
 D     06421 -3 00000 0 06430 RES45  TXL RES60,0                                                      F2214230    
       06422  0 50000 0 03706 RES50  CLA C2                                                           F2214240    
       06423  0 77100 0 00022        ARS 18                                                           F2214250    
       06424 -3 00002 2 06426        TXL RES55,2,2                                                    F2214260    
       06425  0 40000 0 03704        ADD C1                                                           F2214270    
       06426  0 60100 0 05064 RES55  STO E2                                                           F2214280    
       06427  0 50000 0 03712        CLA D1                                                           F2214290    
       06430  0 60100 0 05065 RES60  STO E3                                                           F2214300    
       06431  3 00004 2 06433        TXH RES65,2,4                 IF PREFIX IS 1,0,0,                F2214310    
       06432  3 00003 2 06620        TXH RES400,2,3                T RA TO RES400                     F2214320    
       06433 -0 53400 1 04007 RES65  LXD RESXX,1                   SEARCH                             F2214330    
       06434 -0 63400 1 06445        SXD RES75,1                   RETAB                              F2214340    
       06435  0 53400 1 04007        LXA RESXX,1                   FOR                                F2214350    
       06436  0 02000 0 06445        TRA RES75                     SAME                               F2214360    
       06437  0 50000 1 07755 RES70  CLA RETABZ,1                  INDEX.                             F2214370    
       06440 -0 32000 0 03772        ANA DECMSK                                                       F2214380    
       06441  0 34000 0 06614        CAS RES310                                                       F2214390    
       06442  1 77775 1 06445        TXI RES75,1,-3                                                   F2214400    
       06443  0 02000 0 06447        TRA RES80                     INDEX FOUND, GO TO RES80           F2214410    
       06444  1 77775 1 06445 RES73  TXI RES75,1,-3                                                   F2214420    
 D     06445  3 00000 1 06437 RES75  TXH RES70,1                                                      F2214430    
       06446  0 02000 0 06466        TRA RES85                     NOT FOUND, GO TO RES85             F2214440    
       06447  0 50000 1 07755 RES80  CLA RETABZ,1                  COMPARE PREFIX OF                  F2214450    
       06450 -0 32000 0 06615        ANA RES320                    RETAB ENTRY                        F2214460    
       06451  0 76700 0 00006        ALS 6                         WITH CURRENT                       F2214470    
       06452  0 40200 0 06613        SUB RES300                    PREFIX. IF NOT EQUAL,              F2214480    
       06453 -0 10000 0 06444        TNZ RES73                     CONTINUE RETAB SEARCH.             F2214490    
       06454  0 50000 1 07756        CLA RETABZ+1,1                IF EQUAL, COMPARE                  F2214500    
       06455  0 40200 0 05064        SUB E2                        C HARACTERISTIC WORDS.             F2214510    
       06456 -0 10000 0 06444        TNZ RES73                     IF                                 F2214520    
       06457  0 50000 1 07757        CLA RETABZ+2,1                NOT                                F2214530    
       06460  0 40200 0 05065        SUB E3                                                           F2214540    
       06461 -0 10000 0 06444        TNZ RES73                     EQUAL, CONTINUE SEARCH.            F2214550    
       06462  0 50000 1 07755        CLA RETABZ,1                  IF EQUAL,                          F2214560    
       06463 -0 32000 0 03773        ANA ADDMSK                    USE RESET TAG ALREADY              F2214570    
       06464  0 60100 0 06616        STO RES330                    ENTERED. SAVE NAME.                F2214580    
       06465  0 02000 0 06573        TRA RES200                    TRA T0 RES200                      F2214590    
       06466  0 50000 0 06613 RES85  CLA RES300                    NO USABLE ENTRY FOUND.             F2214600    
       06467  0 77100 0 00006        ARS 6                         MAKE                               F2214610    
       06470 -0 50100 0 03700        ORA TAG                       NEW                                F2214620    
       06471  0 60100 0 06616        STO RES330                                                       F2214630    
       06472 -0 50100 0 06614        ORA RES310                    ENTRY                              F2214640    
       06473 -0 53400 1 04007        LXD RESXX,1                   IN                                 F2214650    
       06474  3 00000 1 06476        TXH RES87,1,0                 RETAB.                             F2214660    
       06475  0 07400 4 00004        TSX DIAG,4  RETAB TABLE FULL.           ERROR. GO TO DIAGNOSTIC. F2214675    
       06476  0 60100 1 07755 RES87  STO RETABZ,1                                                     F2214680    
       06477  0 50000 0 05064        CLA E2                                                           F2214690    
       06500  0 60100 1 07756        STO RETABZ+1,1                                                   F2214700    
       06501  0 50000 0 05065        CLA E3                                                           F2214710    
       06502  0 60100 1 07757        STO RETABZ+2,1                                                   F2214720    
       06503  1 77775 1 06504        TXI RES88,1,-3                ADJUST IN DEX.                     F2214730    
       06504 -0 63400 1 04007 RES88  SXD RESXX,1                                                      F2214740    
       06505  0 50000 0 06614        CLA RES310                    MAKE E2 WORD                       F2214750    
       06506  3 00005 2 06522        TXH RES96,2,5                 FOR DRUMTAG OR                     F2214760    
       06507  3 00004 2 06521        TXH RES94,2,4                 TAGTAG ENTRY                       F2214770    
       06510  3 00003 2 06520        TXH RES92,2,3                                                    F2214780    
       06511  3 00002 2 06515        TXH RES90,2,2                                                    F2214790    
       06512  3 00001 2 06522        TXH RES96,2,1                                                    F2214800    
       06513  0 77100 0 00022        ARS 18                                                           F2214810    
       06514  0 02000 0 06522        TRA RES96                                                        F2214820    
       06515  0 77100 0 00022 RES90  ARS 18                                                           F2214830    
       06516  0 40000 0 06614        ADD RES310                                                       F2214840    
       06517  0 02000 0 06522        TRA RES96                                                        F2214850    
       06520  0 50000 0 03751 RES92  CLA L(0)                                                         F2214860    
       06521  0 77100 0 00022 RES94  ARS 18                                                           F2214870    
       06522  0 60100 0 05064 RES96  STO E2                                                           F2214880    
       06523  0 50000 0 06614        CLA RES310                    MAKE                               F2214890    
       06524  0 77100 0 00022        ARS 18                        E1 WORD                            F2214900    
       06525  3 00003 2 06527        TXH RES98,2,3                                                    F2214910    
       06526  0 50000 0 03751        CLA L(0)                                                         F2214920    
       06527  0 60100 0 05063 RES98  STO E1                                                           F2214930    
       06530 -0 53400 1 06614        LXD RES310,1                                                     F2214940    
       06531  0 50000 1 00733        CLA DOTAGZ,1                                                     F2214950    
       06532 -0 32000 0 03772        ANA DECMSK                                                       F2214960    
       06533 -0 60200 0 05063        ORS E1                                                           F2214970    
       06534  0 50000 0 06616        CLA RES330                    MAKE                               F2214980    
       06535  0 60100 0 05065        STO E3                        E3 WORD                            F2214990    
       06536  0 50000 0 03757        CLA L(6)                      MAKE                               F2215000    
       06537  0 60100 0 05066        STO E4                        E4                                 F2215010    
       06540  0 50000 0 06613        CLA RES300                    WORD                               F2215020    
       06541  0 77100 0 00022        ARS 18                                                           F2215030    
       06542 -0 60200 0 05066        ORS E4                                                           F2215040    
       06543 -3 00002 2 06550        TXL RES110,2,2                                                   F2215050    
       06544 -3 00003 2 06546        TXL RES100,2,3                                                   F2215060    
       06545 -3 00004 2 06550        TXL RES110,2,4                                                   F2215070    
       06546  0 76700 0 00011 RES100 ALS 9                                                            F2215080    
       06547 -0 60200 0 05066        ORS E4                                                           F2215090    
       06550  0 50000 0 03751 RES110 CLA L(0)                      THESE INSTRUCTIONS,                F2215100    
       06551  0 60100 0 06617        STO RES340                    T0 RES170, DETERMINE               F2215110    
       06552 -0 53400 4 03756        LXD L(5),4                    WHICH COEFFICIENTS                 F2215120    
       06553  0 50000 4 03711 RES120 CLA C1+5,4                    ARE GREATER THAN                   F2215130    
       06554  0 40200 0 03752        SUB L(1)                      ONE AND PLACE                      F2215140    
       06555  0 10000 0 06562        TZE RES140                    THIS INFO IN                       F2215150    
       06556  2 00001 4 06557        TIX RES130,4,1                E4(TAG1).                          F2215160    
       06557 -0 75400 4 00000 RES130 PXD 0,4                                                          F2215170    
       06560 -0 60200 0 06617        ORS RES340                                                       F2215180    
       06561  1 00001 4 06562        TXI RES140,4,1                                                   F2215190    
       06562  2 00002 4 06553 RES140 TIX RES120,4,2                                                   F2215200    
       06563  0 50000 0 06617        CLA RES340                                                       F2215210    
       06564 -0 32000 0 06613        ANA RES300                                                       F2215220    
       06565  0 77100 0 00006        ARS 6                                                            F2215230    
       06566 -0 60200 0 05066        ORS E4                                                           F2215240    
       06567  0 50000 0 05073        CLA DRMTAG                    DRUM TAG ENTRY                     F2215250    
       06570  0 07400 4 05025        TSX LIST,4                    OR                                 F2215260    
       06571  0 02000 0 06573        TRA RES200                    TAGTAG                             F2215270    
       06572  0 07400 4 05510 RES180 TSX TAGENT,4                  ENTRY.                             F2215280    
       06573 -0 53400 1 06614 RES200 LXD RES310,1                  MAKE                               F2215290    
       06574  0 50000 1 00733        CLA DOTAGZ,1                  PROPER                             F2215300    
       06575  0 60100 0 05063        STO E1                        TRASTO                             F2215310    
       06576  0 50000 0 03741        CLA TL2                       ENTRY                              F2215320    
       06577  0 77100 0 00022        ARS 18                                                           F2215330    
       06600  0 40000 0 03740        ADD TL1                                                          F2215340    
       06601  0 60100 0 05064        STO E2                                                           F2215350    
       06602  0 50000 0 06616        CLA RES330                                                       F2215360    
       06603  0 76700 0 00022        ALS 18                                                           F2215370    
       06604  0 40000 0 03701        ADD TS                                                           F2215380    
       06605 -0 76000 0 00003        SSM                                                              F2215390    
       06606  0 60100 0 05065        STO E3                                                           F2215400    
       06607  0 50000 0 05070        CLA TRASTO                                                       F2215410    
       06610  0 07400 4 05025        TSX LIST,4                                                       F2215420    
       06611 -0 53400 4 06421 RES210 LXD RES45,4                   EXIT.                              F2215430    
       06612  0 02000 4 00001        TRA 1,4                                                          F2215440    
 A     06613  0 00000 0 00000 RES300 HTR                           PREFIX STORAGE                     F2215450    
 A     06614  0 00000 0 00000 RES310 HTR                           INDEX STORAGE                      F2215460    
       06615 +000000070000    RES320 OCT 70000                     PREFIX MASK                        F2215470    
 A     06616  0 00000 0 00000 RES330 HTR                           RESET NAME STORAGE                 F2215480    
 A     06617  0 00000 0 00000 RES340 HTR                           E.S.                               F2215490    
       06620  0 50000 0 05064 RES400 CLA E2                        TEST FOR COEFFICIENT               F2215500    
       06621  0 40200 0 03752        SUB L(1)                      EQUAL TO ONE.                      F2215510    
       06622 -0 10000 0 06433        TNZ RES65                     IF NOT, PROCESS NORMALLY           F2215520    
       06623  0 50000 1 00733        CLA DOTAGZ,1                  THROUGH RESET.                     F2215530    
       06624  0 77100 0 00021        ARS 17                        TEST FOR CONSTANT N1.              F2215540    
       06625  0 76000 0 00001        LBT                           IF VARIABLE, NORMAL PROCESSING.    F2215550    
       06626  0 02000 0 06630        TRA RES410                    0                                  F2215560    
       06627  0 02000 0 06433        TRA RES65                     1                                  F2215570    
       06630  0 50000 1 00741 RES410 CLA DOTAGZ+6,1                HAS COUNTER BEEN FOUND.            F2215580    
       06631 -0 32000 0 04001        ANA BITTWO                                                       F2215590    
       06632 -0 10000 0 06645        TNZ RES420                    IF SO, GO TO RES420                F2215600    
       06633  0 50000 0 03741        CLA TL2                       IF NOT, MAKE ENTRY                 F2215610    
       06634  0 77100 0 00022        ARS 18                        IN ADDED TAG TABLE                 F2215620    
       06635 -0 50100 0 03740        ORA TL1                       FOR PROCESSING INTO                F2215630    
       06636 -0 76000 0 00003        SSM                           DRUM TAG AFTER NEST                F2215640    
       06637  0 76500 0 00043        LRS 35                        ANALYSIS.                          F2215650    
       06640 -0 75400 1 00000        PXD 0,1                                                          F2215660    
       06641 -0 50100 0 03701        ORA TS                                                           F2215670    
       06642 -0 53400 2 03752        LXD L(1),2                                                       F2215680    
       06643  0 07400 4 05254        TSX TAGADD,4                                                     F2215690    
       06644  0 02000 0 06611        TRA RES210                    TRA TO EXIT                        F2215700    
       06645  0 07400 4 05140 RES420 TSX RSR,4                     COUNTER FOUND, USE RSR.            F2215710    
       06646  0 02000 0 06611        TRA RES210                    TRA T0 EXIT                        F2215720    
                                         THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGNOSTIC RECORD.  F2215725    
       06647  0 76200 0 00221 NORMRT RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.    F2215726    
       06650  0 02000 0 00004        TRA ONETCS        GO TO ONE TO CS ( MONITOR)                     F2215727    
                        06651        BSS 80                                                           F2215730    
                        06771 TAGZ   BSS 1                                                            F2215740    
                        06772        BSS 99                                                           F2215750    
                        07135 ADTAGZ BSS 1                                                            F2215760    
                        07136        BSS 99                                                           F2215770    
                        07301 NAMZ   BSS 1                                                            F2215780    
                        07302        BSS 299                                                          F2215790    
                        07755 RETABZ BSS 1                                                            F2215800    
                                            MASTER RECORD CARD = FN030                                F2215805    
                                         TMIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS             F2215810    
                                         AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING            F2215820    
                                         EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION,        F2215830    
                                         AT WHICH POINT IT CALLS ON 2R0000.                           F2215840    
                        05566        ORG IDENT             STATE B                                    F2215850    
       05566 -0 53400 1 00030 CORES  LXD DOTAG-1,1                                                    F2215860    
       05567 -0 63400 1 05602        SXD DSDR20,1                                                     F2215870    
       05570 -0 63400 1 05745        SXD DSD118,1                                                     F2215880    
       05571 -0 63400 1 05762        SXD DSD145,1                                                     F2215890    
       05572 -0 63400 1 06026        SXD 2R0020,1                                                     F2215900    
       05573 -0 76000 0 00144 DSDR00 MSE 100                                                          F2215910    
       05574  0 76100 0 00000        NOP                                                              F2215920    
       05575 -0 53400 1 03674        LXD XC,1                      PUT INDEX OF DC IN XRA             F2215930    
       05576 -0 53400 4 03732        LXD DELTA,4                   PUT DELTA IN XRC                   F2215940    
       05577  0 50000 0 03675        CLA LC                        INITIALIZE END OF                  F2215950    
       05600  0 62200 0 05605        STD DSDR30                    DC TEST INSTR                      F2215960    
       05601  1 77767 1 05602 DSDR10 TXI DSDR20,1,-9               TAKE NEXT DOWN DO,IF POSSIBLE      F2215970    
 D     05602 -3 00000 1 05734 DSDR20 TXL DSD100,1                  EXIT IF DOTAG EXHAUSTED.           F2215980    
       05603  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN LEVEL OF THIS DO IN         F2215990    
       05604 -0 73400 2 00000        PDX 0,2                       XRB,COMPARE W1TH LEVEL OF          F2216000    
 D     05605 -3 00000 2 05734 DSDR30 TXL DSD100,2                  D6 AND EXIT IF NOT IN DC.          F2216010    
       05606  0 50000 1 00734        CLA DOTAGZ+1,1                OBTAIN SYMBOL OF THIS DO           F2216020    
       05607  0 40200 0 03735        SUB RSYM1                     COMPARE WITH (FIRST) R SYM.        F2216030    
       05610  0 10000 0 05621        TZE DSDR50                    IF THIS DO IS DR1,TRA.             F2216040    
       05611 -3 00002 4 05601        TXL DSDR10,4,2                IF NOT DR1,GO BACK,UNLESS DELTA3   F2216050    
       05612  0 50000 1 00734        CLA DOTAGZ+1,1                OBTAIN SYMBOL AGAIN                F2216060    
       05613  0 40200 0 03736        SUB RSYM2                     AND COMPARE WITH RSYM2             F2216070    
       05614 -0 10000 0 05601        TNZ DSDR10                    IF NOT RSYM1 OR RSYM2,G0 BACK      F2216080    
       05615  0 50000 0 03736        CLA RSYM2                     IF DO SYM IS RSYM2,                F2216090    
       05616  0 56000 0 03735        LDQ RSYM1                     SWITCH RSYM1 AND RSYM2             F2216100    
       05617  0 60100 0 03735        STO RSYM1                     TO MAKE BUCKET LABLES              F2216110    
       05620 -0 60000 0 03736        STQ RSYM2                     AGREE WITH ORDER OF DO FORMULAS    F2216120    
       05621 -0 63400 1 06365 DSDR50 SXD XR1,1                     SAVE                               F2216130    
       05622 -0 75400 2 00000        PXD 0,2                       INDEX OF R1                        F2216140    
       05623  0 60100 0 06366        STO LR1                       AND LEVEL OF R1                    F2216150    
       05624  0 60100 0 03741        STO TL2                       INITIALIZE TRAWRD TL2              F2216160    
       05625  0 50000 0 03723        CLA LL                        INITIALIZE TRAWRD TL1              F2216170    
       05626  0 60100 0 03740        STO TL1                       PREPARE                            F2216180    
       05627 -0 53400 2 03752        LXD L(1),2                    TRAWRD C(XRB)                      F2216190    
       05630 -3 00002 4 05632        TXL DSDR55,4,2                                                   F2216200    
       05631 -0 53400 2 03753        LXD L(2),2                                                       F2216210    
       05632  0 07400 4 05441 DSDR55 TSX TRAWRD,4                  GO TO TRAWRD AND                   F2216220    
       05633  0 60100 0 06371        STO D2D1                      SAVE IF NOT ZERO                   F2216230    
       05634 -0 53400 4 03732        LXD DELTA,4                   RETURN HERE                        F2216240    
       05635  3 00002 4 05703        TXH DSDR85,4,2                TRANSFER IF DELTA IS THREE         F2216250    
       05636  0 10000 0 05602        TZE DSDR20                    RETURN IF RESULT ZERO              F2216260    
       05637 -0 63400 1 05733        SXD DSDR95,1                                                     F2216270    
       05640 -3 00001 4 05655        TXL DSDR65,4,1                TR IF DELTA=1                      F2216280    
       05641  0 50000 0 03761        CLA L(36)                     FOR DELTA=2,SEPARATE               F2216290    
       05642  0 40200 0 03675        SUB LC                        TRAWRD RESULTS.                    F2216300    
       05643  0 77100 0 00022        ARS 18                                                           F2216310    
       05644  0 62100 0 05647        STA DSDR60                                                       F2216320    
       05645  0 56000 0 03751        LDQ L(0)                                                         F2216330    
       05646  0 50000 0 06371        CLA D2D1                                                         F2216340    
 A     05647  0 76500 0 00000 DSDR60 LRS                                                              F2216350    
       05650  0 10000 0 05652        TZE DSDR62                    IF TRANSFERS EXIST DC T0 DL,       F2216360    
       05651  0 76000 0 00144        PSE 100                       SET SENSE SWITCH                   F2216370    
       05652 -0 60000 0 06371 DSDR62 STQ D2D1                                                         F2216380    
       05653  0 50000 0 06371        CLA D2D1                                                         F2216390    
       05654  0 10000 0 05700        TZE DSDR80                    IF NO TRANSFERS DR TO DC,EXIT      F2216400    
       05655  0 50000 0 03672 DSDR65 CLA ATSW                      TEST ADDED TAG SWITCH              F2216410    
       05656 -0 10000 0 05700        TNZ DSDR80                    IF ADDED DELTA TWO, SKIP INSERT    F2216420    
       05657 -0 53400 1 06365        LXD XR1,1                     IS TAG IN DR1                      F2216430    
       05660  0 07400 4 05411        TSX TINFOR,4                  GO TO TINFOR AND RETURN            F2216440    
       05661  0 02000 0 05667        TRA DSDR70                    FOUND                              F2216450    
       05662 -0 53400 2 03751        LXD L(0),2                    NOT FOUND                          F2216460    
       05663 -0 53400 1 06365        LXD XR1,1                                                        F2216470    
       05664  0 07400 4 05254        TSX TAGADD,4                  INSERT TAG IN R1,RETURN            F2216480    
       05665 -0 60000 0 06374        STQ TR1                       HERE AND STORE NAME IN TR1         F2216490    
       05666  0 02000 0 05675        TRA DSDR75                                                       F2216500    
       05667 -0 53400 1 06365 DSDR70 LXD XR1,1                     FIND NAME OF TAG IN R1             F2216510    
       05670  0 50000 1 00733        CLA DOTAGZ,1                                                     F2216520    
       05671 -0 32000 0 03772        ANA DECMSK                                                       F2216530    
       05672  0 40000 0 03700        ADD TAG                                                          F2216540    
       05673  0 07400 4 06376        TSX GETNAM,4                                                     F2216550    
       05674  0 60100 0 06374        STO TR1                                                          F2216560    
       05675 -0 53400 1 06365 DSDR75 LXD XR1,1                     LIST STORES                        F2216570    
       05676 -0 53400 2 03751        LXD L(0),2                                                       F2216580    
       05677  0 07400 4 06431        TSX STORES,4                                                     F2216590    
       05700 -0 53400 1 05733 DSDR80 LXD DSDR95,1                                                     F2216600    
       05701 -0 53400 4 03732        LXD DELTA,4                                                      F2216610    
       05702  0 02000 0 05602        TRA DSDR20                                                       F2216620    
       05703  0 10000 0 06022 DSDR85 TZE 2R0000                    GO TO R2 SEARCH IF NO TRA R1 TO D6 F2216630    
       05704 -0 53400 1 06365        LXD XR1,1                     IF TRA R1 TO DC,                   F2216640    
       05705 -0 53400 2 03752        LXD L(1),2                    USE SPC000 TO LOOK FOR             F2216630    
       05706  0 07400 4 05277        TSX SPC000,4                  TAG IN R1                          F2216660    
       05707  0 02000 0 05717        TRA DSDR87                    NOT FOUND,GO TO DSDR87             F2216670    
       05710 -0 53400 1 06365        LXD XR1,1                     FOUND,USE SUBROUTINE               F2216680    
       05711  0 50000 1 00733        CLA DOTAGZ,1                  GETNAM TO DETERMINE LABLE          F2216690    
       05712 -0 32000 0 03772        ANA DECMSK                    OF TAG IN R1                       F2216700    
       05713  0 40000 0 03700        ADD TAG                                                          F2216710    
       05714  0 07400 4 06376        TSX GETNAM,4                                                     F2216720    
       05715  0 60100 0 06374        STO TR1                       PUT NAME IN TR1                    F2216730    
       05716  0 02000 0 05726        TRA DSDR89                                                       F2216740    
       05717 -0 53400 1 06365 DSDR87 LXD XR1,1                     USE TAGADD TO INSERT               F2216750    
       05720 -0 53400 2 03751        LXD L(0),2                    TAG IN R1                          F2216760    
       05721  0 07400 4 05254        TSX TAGADD,4                                                     F2216770    
       05722 -0 60000 0 06374        STQ TR1                       PUT NAME IN TR1                    F2216780    
       05723 -0 53400 1 03722        LXD XL,1                                                         F2216790    
       05724  0 50000 0 04005        CLA BIT20                                                        F2216800    
       05725 -0 60200 1 00741        ORS DOTAGZ+6,1                                                   F2216810    
       05726 -0 53400 1 06365 DSDR89 LXD XR1,1                     LIST STORES                        F2216820    
       05727 -0 53400 2 03752        LXD L(1),2                                                       F2216830    
       05730  0 07400 4 06431        TSX STORES,4                                                     F2216840    
       05731  0 02000 0 06022 DSDR90 TRA 2R0000                    GO TO R2 ROUTINE AND               F2216850    
       05732 -0 53400 4 03732 DSDR92 LXD DELTA,4                   RETURN HERE                        F2216860    
 D     05733 -3 00000 0 05602 DSDR95 TXL DSDR20,0                  NEXT R1. DEC CONTAINS XNEXTR1      F2216870    
       05734 -3 00001 4 06021 DSD100 TXL DSD200,4,1                TRA IF DELTA IS 1                  F2216880    
       05735  3 00002 4 06021        TXH DSD200,4,2                TRA IF DELTA IS 3                  F2216890    
       05736 -0 76000 0 00144        MSE 100                       DELTA IS 2,TEST D3D1 SWITCH        F2216900    
       05737  0 02000 0 05741        TRA DSD110                    LIGHT OFF                          F2216910    
       05740  0 02000 0 05776        TRA DSD170                    LIGHT ON                           F2216920    
       05741 -0 53400 1 03722 DSD110 LXD XL,1                      OBTAIN INDEX OF DL IN XRA          F2216930    
       05742  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN LEVEL OF DL                 F2216940    
       05743  0 62200 0 05750        STD DSD120                    AND STORE IN TEST INSTR.           F2216950    
       05744  1 77767 1 05745 DSD115 TXI DSD118,1,-9               TAKE NEXT DOWN DO IF POSSIBLE      F2216960    
 D     05745 -3 00000 1 06021 DSD118 TXL DSD200,1                  OTHERWISE,EXIT,                    F2216970    
       05746  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN LEVEL OF THIS DO            F2216980    
       05747 -0 73400 2 00000        PDX 0,2                       AND TEST WHETHER THIS DO IS        F2216990    
 D     05750 -3 00000 2 06021 DSD120 TXL DSD200,2                  IN DL. IF NOT,EXIT.                F2217000    
       05751 -0 75400 1 00000        PXD 0,1                       IF IN DL,                          F2217010    
       05752  0 40200 0 03674        SUB XC                        IF THIS DO D6.                     F2217020    
       05753  0 10000 0 05760        TZE DSD130                    IF SO,TRA.                         F2217030    
       05754  0 50000 1 00734        CLA DOTAGZ+1,1                IF NOT,IS THIS DO A DR.            F2217040    
       05755  0 40200 0 03735        SUB RSYM1                                                        F2217050    
       05756  0 10000 0 05767        TZE DSD160                    IF SO,TRA,                         F2217060    
       05757  0 02000 0 05744        TRA DSD115                    IF NOT,GO BACK TO GET NEXT DO      F2217070    
       05760 -0 63400 2 05765 DSD130 SXD DSD150,2                  IF DO IS DC,                       F2217080    
       05761  1 77767 1 05762 DSD140 TXI DSD145,1,-9                                                  F2217090    
 D     05762 -3 00000 1 06021 DSD145 TXL DSD200,1                                                     F2217100    
       05763  0 50000 1 00740        CLA DOTAGZ+5,1                IS NEW IN DL.                      F2217110    
       05764 -0 73400 2 00000        PDX 0,2                       IF SO,GO BACK TO STEP DOWN         F2217120    
 D     05765 -3 00000 2 05750 DSD150 TXL DSD120,2                  AGAIN IN DC. IF NOT IN             F2217130    
       05766  0 02000 0 05761        TRA DSD140                    DC, GO TO TEST IF IN DL            F2217140    
       05767 -0 75400 2 00000 DSD160 PXD 0,2                       INITIALIZE                         F2217150    
       05770  0 60100 0 03741        STO TL2                       TL2 TO LEVEL OF DR                 F2217160    
       05771  0 50000 0 03723        CLA LL                        PUT LEVEL OF DL                    F2217170    
       05772  0 60100 0 03740        STO TL1                       IN TL1                             F2217180    
       05773 -0 53400 2 03752        LXD L(1),2                    PUT 1 IN XRB                       F2217190    
       05774  0 07400 4 05441        TSX TRAWRD,4                  AND GO TO TRAWRD.                  F2217200    
       05775  0 10000 0 05745        TZE DSD118                    IF RESUTL ZERO,GO BACK             F2217210    
       05776 -0 53400 2 03722 DSD170 LXD XL,2                                                         F2217220    
       05777  0 50000 0 04000        CLA BITONE                                                       F2217230    
       06000 -0 60200 2 00740        ORS DOTAGZ+5,2                                                   F2217240    
       06001 -0 53400 2 03750        LXD LOWP0S,2                                                     F2217250    
       06002  0 50000 0 03751        CLA L(0)                                                         F2217260    
       06003  0 60100 2 03721        STO X1+5,2                                                       F2217270    
       06004  0 60100 2 03722        STO X1+6,2                                                       F2217280    
       06005  2 00001 2 06006        TIX DSD175,2,1                                                   F2217290    
       06006 -0 75400 2 00000 DSD175 PXD 0,2                                                          F2217300    
       06007 -0 60200 0 03727        ORS DORC                                                         F2217310    
       06010  0 76000 0 00006        COM                                                              F2217320    
       06011  0 32000 0 03731        ANS DOSUBS                                                       F2217330    
       06012  0 50000 0 03674        CLA XC                                                           F2217340    
       06013  0 60100 0 03722        STO XL                                                           F2217350    
       06014  0 50000 0 03675        CLA LC                                                           F2217360    
       06015  0 60100 0 03723        STO LL                                                           F2217370    
       06016  0 50000 0 03752        CLA L(1)                                                         F2217380    
       06017  0 60100 0 03726        STO NRDS                                                         F2217390    
       06020  0 60100 0 03732        STO DELTA                                                        F2217400    
       06021  0 02000 0 06123 DSD200 TRA DS4VAL                                                       F2217410    
                                         RELCON DELTA THREE SECOND LEVEL DEFINITION.                  F2217420    
       06022 -0 53400 1 06365 2R0000 LXD XR1,1                     PUT INDEX OF R1 IN XRA             F2217430    
       06023  0 50000 0 06366        CLA LR1                       OBTAIN LEVEL OF R1                 F2217440    
       06024  0 62200 0 06031        STD 2R0030                    INITIALIZE TEST INSTR.             F2217450    
       06025  1 77767 1 06026 2R0010 TXI 2R0020,1,-9               TAKE NEXT DOWN DO IF POSSIBLE      F2217460    
 D     06026 -3 00000 1 05732 2R0020 TXL DSDR92,1                  EXIT IF PARTLY FULL DOTAG EXHAUSTEDF2217470    
       06027  0 50000 1 00740        CLA DOTAGZ+5,1                OBTAIN LEVEL OF DO                 F2217480    
       06030 -0 73400 2 00000        PDX 0,2                       PUT IN XRB AND COMPARE WITH        F2217490    
 D     06031 -3 00000 2 05732 2R0030 TXL DSDR92,2                  LR1,EXIT IF NEW DO NOT IN XR1.     F2217500    
       06032  0 50000 1 00734        CLA DOTAGZ+1,1                OBTAIN SYMBOL OF NEW DO,           F2217510    
       06033  0 40200 0 03736        SUB RSYM2                     COMPARE WITH RSYM2.                F2217520    
       06034 -0 10000 0 06025        TNZ 2R0010                    IF NOT RSYM2,G0 BACK.              F2217530    
       06035 -0 63400 1 06367        SXD XR2,1                     SAVE INDEX                         F2217540    
       06036 -0 75400 2 00000        PXD 0,2                       AND LEVEL                          F2217550    
       06037  0 60100 0 06370        STO LR2                       OF R2.                             F2217560    
       06040  0 60100 0 03741        STO TL2                       PREPARE FOR TSX TO TRAWRD.         F2217570    
       06041  0 50000 0 03675        CLA LC                        TO TEST FOR TRANSFERS              F2217580    
       06042  0 60100 0 03740        STO TL1                       FROM R2 TO DS.                     F2217590    
       06043 -0 53400 2 03752        LXD L(1),2                                                       F2217600    
       06044  0 07400 4 05441        TSX TRAWRD,4                  IF NO TRANSFERS,GO BACK            F2217610    
       06045  0 10000 0 06026        TZE 2R0020                    FOR NEXT DO.                       F2217620    
       06046 -0 63400 1 06072        SXD 2R0065,1                                                     F2217630    
       06047  0 60100 0 06373        STO D3D2                      TEMPORARY STORAGE                  F2217640    
       06050  0 50000 0 03761        CLA L(36)                     PUT 36 IN ACC                      F2217650    
       06051  0 40200 0 06366        SUB LR1                       SUB LEVEL OF R1,                   F2217660    
       06052  0 77100 0 00022        ARS 18                        SHIFT RESULT AND                   F2217670    
       06053  0 62100 0 06056        STA 2R0050                                                       F2217680    
       06054  0 56000 0 03751        LDQ L(0)                      PUT ZERO IN MQ,                    F2217690    
       06055  0 50000 0 06373        CLA D3D2                      OBTAIN TRAWRD RESULT,              F2217700    
 A     06056  0 76500 0 00000 2R0050 LRS                           PERFORM SEPARATION                 F2217710    
       06057  0 60100 0 06372        STO D3D1                      AND SAVE                           F2217720    
       06060 -0 60000 0 06373        STQ D3D2                      RESULTS.                           F2217730    
       06061  0 50000 0 06372        CLA D3D1                      IF D3D1 IS ZERO,THEN D3D2          F2217740    
       06062 -0 10000 0 06065        TNZ 2R0060                    IS NOT ZERO                        F2217750    
       06063  0 50000 0 06371        CLA D2D1                      IF D2D1 IS ZERO,                   F2217760    
       06064  0 10000 0 06121        TZE 2R0200                    TR TO GET NEX DO                   F2217770    
       06065 -0 53400 1 06367 2R0060 LXD XR2,1                     SEARCH FOR TAG                     F2217780    
       06066  0 07400 4 05411        TSX TINFOR,4                  IN R2                              F2217790    
       06067  0 02000 0 06100        TRA 2R0080                    FOUN0,TR TO OBTAIN NAME            F2217800    
       06070 -0 53400 1 06367        LXD XR2,1                     NOT FOUND, LOOK FOR DELTA TWO      F2217810    
       06071  0 07400 4 06413        TSX ADDSER,4                  INSERT IN ADDED TAG TABLE.         F2217820    
 D     06072 -3 00000 0 06105 2R0065 TXL 2R0090,0                  FOUND,NAME IN ACC.                 F2217830    
       06073 -0 53400 1 06367        LXD XR2,1                     NOT FOUND                          F2217840    
       06074 -0 53400 2 03751        LXD L(0),2                    ADD TAG                            F2217850    
       06075  0 07400 4 05254        TSX TAGADD,4                  IN TABLE OF ADDED TAGES            F2217860    
       06076 -0 60000 0 06375        STQ TR2                       PUT NAME IN TR2                    F2217870    
       06077  0 02000 0 06106        TRA 2R0100                                                       F2217880    
       06100 -0 53400 1 06367 2R0080 LXD XR2,1                     SEARCH                             F2217890    
       06101  0 50000 1 00733        CLA DOTAGZ,1                  FOR                                F2217900    
       06102 -0 32000 0 03772        ANA DECMSK                    NAME                               F2217910    
       06103  0 40000 0 03700        ADD TAG                                                          F2217920    
       06104  0 07400 4 06376        TSX GETNAM,4                                                     F2217930    
       06105  0 60100 0 06375 2R0090 STO TR2                       PUT NAME IN TR2                    F2217940    
       06106  0 50000 0 06372 2R0100 CLA D3D1                      LIST STORES IF ANY TR,             F1I17950    
       06107  0 10000 0 06113        TZE 2R0150                    FOR TRANSFERS,                     F2217960    
       06110 -0 53400 1 06367        LXD XR2,1                     D3D1                               F2217970    
       06111 -0 53400 2 03753        LXD L(2),2                                                       F2217980    
       06112  0 07400 4 06431        TSX STORES,4                                                     F2217990    
       06113  0 50000 0 06373 2R0150 CLA D3D2                      TEST TR                            F2218000    
       06114  0 10000 0 06121        TZE 2R0200                    D3D2                               F2218010    
       06115  0 50000 0 06371        CLA D2D1                      TEST TR                            F2218020    
       06116  0 10000 0 06121        TZE 2R0200                    D2D1                               F2218030    
       06117 -0 53400 1 06367        LXD XR2,1                     LIST STORES                        F2218040    
       06120  0 07400 4 06447        TSX STORXX,4                                                     F2218050    
       06121 -0 53400 1 06072 2R0200 LXD 2R0065,1                  RETURN FOR                         F2218060    
       06122  0 02000 0 06026        TRA 2R0020                    NEXT R2                            F2218070    
                                         DRUM SEARCH OF FORVAL                                        F2218080    
       06123 -0 53400 1 04112 DS4VAL LXD END80,1                   OBTAIN FORVAL EMPTY INDICATOR,     F2218090    
       06124 -3 00000 1 06207        TXL DS4V20,1,0                EXIT IF FORVAL EMPTY               F2218100    
       06125  0 50000 0 03700        CLA TAG                       PRESET WORD E2 FOR LIST            F2218110    
       06126  0 76700 0 00022        ALS 18                        ROUTINE,TAU TAG AND NAME           F2218120    
       06127  0 40000 0 03701        ADD TS                                                           F2218130    
       06130  0 60100 0 05064        STO E2                                                           F2218140    
       06131 -0 76000 0 00144        MSE 100                       LIGHT 100 OFF                      F2218150    
       06132  0 76100 0 00000        NOP                                                              F2218160    
       06133  0 50000 0 03676        CLA ALPHA                     THESE INSTRUCTIONS SET UP          F2218170    
       06134  0 60100 0 03742        STO A                         FOR DRUM SEARCH.                   F2218180    
       06135  0 50000 0 03677        CLA BETA                                                         F2218190    
       06136  0 40000 0 03765        ADD L(1)A                                                        F2218200    
       06137  0 60100 0 03743        STO B                                                            F2218210    
       06140  0 50000 0 06363        CLA 4VALAD                    OBTAIN LOCATION FO FIRST           F2218220    
       06141  0 60100 0 06362        STO FORAD                     FORVAL DRUM ENTRY,STORE IN         F2218230    
       06142 -0 53400 1 03751        LXD L(0),1                    LDA ADDRESS. PUT ZERO              F2218240    
       06143  0 07400 4 06210        TSX FSXX,4                    IN XRA AND GO TO                   F2218250    
       06144 -0 53400 4 03732        LXD DELTA,4                   SEARCH ROUTINE. UPON RETURN,       F2218260    
       06145  3 00002 4 06207        TXH DS4V20,4,2                ECIT UNLESS DELTA IS 2,            F2218270    
       06146 -3 00001 4 06207        TXL DS4V20,4,1                IN WHICH CASE,CONTINUE,            F2218280    
       06147  0 76000 0 00144        PSE 100                       TURN INDICATOR LIGHT ON            F2218290    
       06150  0 50000 0 03743        CLA B                         THE FOLLOWING INSTR,               F2218300    
       06151  0 60100 0 03744        STO NEXTA                     SET UP TWO ADDITIONAL              F2218310    
       06152  0 50000 0 03742        CLA A                         RANGES FOR SEARCHING,              F2218320    
       06153  0 60100 0 03743        STO B                         THOSE FORMULAS OUTSIDE             F2218330    
       06154 -0 53400 2 03722        LXD XL,2                      OF DC BUT WITHIN DL.               F2218340    
       06155  0 50000 2 00733        CLA DOTAGZ,2                  IN THESE SPECIAL RANGES            F2218350    
       06156  0 73400 2 00000        PAX 0,2                       AS SOON AS ONE ENTRY IS            F2218360    
       06157 -0 32000 0 03772        ANA DECMSK                    FOUND IN EITHER RANGE,             F2218370    
       06160  0 60100 0 03742        STO A                         TO BE DONE.                        F2218380    
       06161 -0 75400 2 00000        PXD 0,2                                                          F2218390    
       06162  0 40000 0 03765        ADD L(1)A                                                        F2218400    
       06163  0 60100 0 03745        STO LASTB                                                        F2218410    
       06164  0 50000 0 03742        CLA A                                                            F2218420    
       06165  0 40000 0 03752        ADD L(1)                                                         F2218430    
       06166  0 40200 0 03743        SUB B                                                            F2218440    
       06167  0 10000 0 06174        TZE DS4V10                    IF THIS RANGE IS EMPTY,            F2218450    
       06170  0 50000 0 06363        CLA 4VALAD                    SKIP SEARCH.                       F2218460    
       06171  0 60100 0 06362        STO FORAD                                                        F2218470    
       06172 -0 53400 1 03751        LXD L(0),1                                                       F2218480    
       06173  0 07400 4 06210        TSX FSXX,4                    GO TO SEARCH ROUTINE               F2218490    
       06174  0 50000 0 03744 DS4V10 CLA NEXTA                     A AND B FOR SECOND                 F2218500    
       06175  0 60100 0 03742        STO A                         SPECIAL RANGE.                     F2218510    
       06176  0 50000 0 03745        CLA LASTB                                                        F2218520    
       06177  0 60100 0 03743        STO B                                                            F2218530    
       06200  0 40200 0 03742        SUB A                                                            F2218540    
       06201  0 10000 0 06207        TZE DS4V20                                                       F2218550    
       06202  0 76000 0 00144        PSE 100                                                          F2218560    
       06203  0 50000 0 06363        CLA 4VALAD                                                       F2218570    
       06204  0 60100 0 06362        STO FORAD                                                        F2218580    
       06205 -0 53400 1 03751        LXD L(0),1                                                       F2218590    
       06206  0 07400 4 06210        TSX FSXX,4                                                       F2218600    
       06207  0 02000 0 05555 DS4V20 TRA RELEND                    EXIT                               F2218610    
       06210 -0 63400 4 06231 FSXX   SXD FS28,4                    SAVE TSX INDEX                     F2218620    
       06211  0 50000 0 03756 FS00   CLA L(5)          INITIALIZE                                     F2218632    
       06212  0 62200 0 06361        STD 4VLHL8                    ERROR COUNTER                      F2218640    
       06213  0 76200 0 00302 FS05   RDS 194                                                          F2218650    
       06214 -0 53400 2 06300        LXD BS71,2                                                       F2218660    
       06215  0 46000 0 06362        LDA FORAD                     FIND FIRST OR NEXT ADDRESS         F2218670    
       06216  0 50000 0 03742        CLA A                         IN FORVAL,PUT A IN ACC.            F2218680    
       06217  0 70000 0 06472 FS10   CPY BLOCK                     COPY FORMULA NR.                   F2218690    
       06220  0 04000 0 06232        TLQ FS30                      A GREATER THAN FOR.NR.,TRA.        F2218700    
       06221  0 70000 0 06473        CPY BLOCK+1                   A LESS,COPY BALANCE OF             F2218710    
       06222  0 50000 0 03743        CLA B                         ENTRY,PUT B IN ACC,                F2218720    
       06223  0 70000 0 06474        CPY BLOCK+2                   ADJUST XRA FOR THIS                F2218730    
       06224  1 00003 1 06225        TXI FS20,1,3                  ENTRY.                             F2218740    
       06225  0 70000 2 06566 FS20   CPY BLOCK+60,2                COPY NEXT FOR. NR.                 F2218750    
       06226  0 04000 0 06235        TLQ FS40                      B GREAT THAN FOR. NR.,TRA.         F2218760    
       06227  0 40200 0 06472 FS25   SUB BLOCK                     TEST FIRST ENTRY.                  F2218770    
       06230  0 12000 0 06242        TPL FS50                      B GREATER THAN F,TRA               F2218780    
 D     06231 -3 00000 0 06353 FS28   TXL BS99,0                    B LESS THAN F,EXIT                 F2218790    
       06232  0 70000 0 06473 FS30   CPY BLOCK+1                   COPY BALANCE OF ENTRY,GO           F2218800    
       06233  0 70000 0 06474        CPY BLOCK+2                   BACK IF POSSIBLE T0 CONTINUE       F2218810    
       06234  1 00003 1 06217        TXI FS10,1,3                  SEARCH FOR BEGINNING OF RANGE,     F2218820    
       06235  0 70000 2 06567 FS40   CPY BLOCK+61,2                THIS ENTRY IS IN RANGE,            F2218830    
       06236  0 70000 2 06570        CPY BLOCK+62,2                CONTINUE READING IN ENTRIES        F2218840    
       06237  2 00003 2 06225        TIX FS20,2,3                  UNTIL BLOCK FULL OR RANGE          F2218850    
       06240 -0 53400 2 03751        LXD L(0),2                    EXCEEDED.                          F2218860    
       06241  0 02000 0 06227        TRA FS25                                                         F2218870    
       06242 -0 63400 2 06255 FS50   SXD CS20,2                                                       F2218880    
       06243 -0 63400 2 06265        SXD BS40,2                                                       F2218890    
       06244 -0 63400 1 06262        SXD BS25,1                                                       F2218900    
       06245 -0 53400 2 03762 CS00   LXD L(60),2                   THIS ROUTINE COMPUTES              F2218910    
       06246 -0 50000 2 06566 CS10   CAL BLOCK+60,2                THE CHECK SUMS OF THE              F2218920    
       06247  0 36100 2 06567        ACL BLOCK+61,2                ENTRIES AND COMPARES               F2218930    
       06250  0 60200 0 06364        SLW 4VALES                                                       F2218940    
       06251  0 50000 0 06364        CLA 4VALES                    THEM WITH THE GIVEN CHECK          F2218950    
       06252  0 40200 2 06570        SUB BLOCK+62,2                SUMS.                              F2218960    
       06253 -0 10000 0 06355        TNZ 4VLHLT                    TRA TO EXIT IF BAD ENTRY.          F2218970    
       06254  1 77775 2 06255        TXI CS20,2,-3                                                    F2218980    
 D     06255  3 00000 2 06246 CS20   TXH CS10,2                    CONTINUE WITH BS00                 F2218990    
       06256  0 50000 0 03735 BS00   CLA RSYM1                     THIS ROUTINE SEARCHES              F2219000    
       06257 -0 53400 4 03732        LXD DELTA,4                   THE STORAGE BLOCK FOR              F2219010    
       06260 -0 53400 2 03762 BS10   LXD L(60),2                   RSYM1,AND RSYM2 IF DELTA           F2219020    
       06261  0 34000 2 06567 BS20   CAS BLOCK+61,2                IS THREE.                          F2219030    
 D     06262 -3 00000 0 06264 BS25   TXL BS30,0                                                       F2219040    
       06263  0 02000 0 06272        TRA BS60                      EQUALITY F UND,TRA.                F2219050    
       06264  1 77775 2 06265 BS30   TXI BS40,2,-3                 RE-ENTRY                           F2219060    
 D     06265  3 00000 2 06261 BS40   TXH BS20,2                                                       F2219070    
       06266 -3 00002 4 06275 BS50   TXL BS70,4,2                                                     F2219080    
       06267 -0 53400 4 03751        LXD L(0),4                                                       F2219090    
       06270  0 50000 0 03736        CLA RSYM2                                                        F2219100    
       06271  0 02000 0 06260        TRA BS10                                                         F2219110    
       06272 -0 76000 0 00144 BS60   MSE 100                       TEST TO SEE IF                     F2219120    
       06273  0 02000 0 06307        TRA BS80                      NORMAL SEARCH,OR IF                F2219130    
       06274  0 02000 0 06327        TRA BS90                      SPECIAL CASE OF DELTA TWO.         F2219140    
       06275 -0 53400 2 06265 BS70   LXD BS40,2                    BLOCK SEARCH DONE. IF BLOCK        F2219150    
       06276  3 00000 2 06353        TXH BS99,2,0                  WAS NOT FULL,EXIT.                 F2219160    
       06277 -0 53400 1 06262        LXD BS25,1                    OTHERWISE,PREPARE TO CONTINUE      F2219170    
       06300  1 00071 1 06301 BS71   TXI BS72,1,57                 SEARCH,IF MORE ENTRIES IN FORVAL.  F2219180    
       06301  3 02733 1 06353 BS72   TXH BS99,1,1499                                                  F2219190    
       06302 -0 75400 1 00000        PXD 0,1                       AND COMPUTE                        F2219200    
       06303  0 77100 0 00022        ARS 18                        NEW FORVAL                         F2219210    
       06304  0 40000 0 06363        ADD 4VALAD                    ADDRESS                            F2219220    
       06305  0 60100 0 06362        STO FORAD                                                        F2219230    
 D     06306 -3 00000 0 06211 BS78   TXL FS00,0                    GO BACK TO CONTINUE SEARCH         F2219240    
       06307  0 60100 0 06364 BS80   STO 4VALES                    RSYM FOUND,ARRANGE TO              F2219250    
       06310 -0 53400 1 03722        LXD XL,1                      SAVE INDEXED SUBSCRIPTS.           F2219260    
       06311  0 50000 0 04000        CLA BITONE                                                       F2219270    
       06312 -0 60200 1 00740        ORS DOTAGZ+5,1                                                   F2219280    
       06313 -0 53400 1 03674        LXD XC,1                                                         F2219290    
       06314 -0 60200 1 00740        ORS DOTAGZ+5,1                RSYM FOUND,E2 PREVIOUSLY           F2219300    
       06315  0 50000 2 06566        CLA BLOCK+60,2                PREPARED,NOW PREPARE               F2219310    
       06316  0 60100 0 05063        STO E1                        E1,SAVE ACC,XR8,XRC,               F2219320    
       06317  0 50000 0 05067        CLA TSXC0M                    AND LIST.                          F2219330    
       06320 -0 63400 2 06326        SXD BS85,2                    AFTER LISTING,                     F2219340    
       06321 -0 63400 4 06306        SXD BS78,4                    RESTORE ACC,XR8,XRC                F2219330    
       06322  0 07400 4 05025        TSX LIST,4                    AND RETURN TO CONTINUE             F2219360    
       06323 -0 53400 2 06326        LXD BS85,2                    SEARCH.                            F2219370    
       06324 -0 53400 4 06306        LXD BS78,4                                                       F2219380    
       06325  0 50000 0 06364        CLA 4VALES                                                       F2219390    
 TD    06326 -3 00000 0 06264 BS85   TXL BS30                                                         F2219400    
       06327 -0 53400 2 03722 BS90   LXD XL,2                      SPECIAL CASE,DELTA TWO,            F2219410    
       06330  0 50000 0 04000        CLA BITONE                    PUT IN BIT TO SAVE SL              F2219420    
       06331 -0 60200 2 00740        ORS DOTAGZ+5,2                                                   F2219430    
       06332 -0 53400 2 03750        LXD LOWP0S,2                  OBTAIN INDEX QUANTITY 1, 3, 5.     F2219440    
       06333  0 50000 0 03751        CLA L(0)                      FOR XL,                            F2219450    
       06334  0 60100 2 03721        STO X1+5,2                    SET PROPER X AND L TO ZERO,        F2219460    
       06335  0 60100 2 03722        STO X1+6,2                                                       F2219470    
       06336  2 00001 2 06337        TIX BS91,2,1                  ADJUST 1,3,5 TO 1,2,4,             F2219480    
       06337 -0 75400 2 00000 BS91   PXD 0,2                       PUT IN ACC                         F2219490    
       06340 -0 60200 0 03727 BS92   ORS DORC                      AND PUT BIT IN DORC                F2219500    
       06341  0 76000 0 00006        COM                           REMOVE BIT                         F2219510    
       06342  0 32000 0 03731        ANS DOSUBS                    FROM DOSUBS                        F2219520    
       06343  0 50000 0 03674        CLA XC                                                           F2219530    
       06344  0 60100 0 03722        STO XL                                                           F2219540    
       06345  0 50000 0 03675        CLA LC                                                           F2219550    
       06346  0 60100 0 03723        STO LL                                                           F2219560    
       06347  0 50000 0 03752        CLA L(1)                                                         F2219570    
       06350  0 60100 0 03726        STO NRDS                                                         F2219580    
       06351  0 60100 0 03732        STO DELTA                                                        F2219590    
       06352  0 02000 0 06207        TRA DS4V20                    EXIT                               F2219600    
       06353 -0 53400 4 06231 BS99   LXD FS28,4                    EXIT FROM FSXX ENTRY               F2219610    
       06354  0 02000 4 00001        TRA 1,4                                                          F2219620    
       06355 -0 53400 2 06361 4VLHLT LXD 4VLHL8,2                  IF THERE IS AN ERROR IN THE        F2219630    
       06356  2 00001 2 06360        TIX 4VLHL4,2,1                CHECK SUM ROUTINE,THE BLOCK        F2219640    
       06357  0 07400 4 00004 4VLHL2 TSX DIAG,4  WILL BE REREAD 5 TIMES.    (ERROR. GO TO DIAGNOSTIC.)F2219655    
       06360 -0 63400 2 06361 4VLHL4 SXD 4VLHL8,2                  BEFORE THE MACHINE STOPS.          F2219660    
 D     06361 -3 00000 0 06213 4VLHL8 TXL FS05,0                                                       F2219670    
 A     06362  0 00000 0 00000 FORAD  HTR                           DRUM ADDRESS FOR LDA INSTR.        F2219680    
       06363  0 00000 0 00312 4VALAD HTR 202                                                          F2219690    
 A     06364  0 00000 0 00000 4VALES HTR                           E.S.                               F2219700    
       06365  0 00000 0 00000 XR1                                                                     F2219710    
       06366  0 00000 0 00000 LR1                                                                     F2219720    
       06367  0 00000 0 00000 XR2                                                                     F2219730    
       06370  0 00000 0 00000 LR2                                                                     F2219740    
       06371  0 00000 0 00000 D2D1                                                                    F2219750    
       06372  0 00000 0 00000 D3D1                                                                    F2219760    
       06373  0 00000 0 00000 D3D2                                                                    F2219770    
       06374  0 00000 0 00000 TR1                                                                     F2219780    
       06375  0 00000 0 00000 TR2                                                                     F2219790    
                                         SUBROUTINE GETNAM                                            F2219800    
       06376 -0 53400 1 04011 GETNAM LXD NAMXX,1                   THIS ROUTINE SEARCHES              F2219810    
       06377 -0 63400 1 06406        SXD GETN20,1                  TABLE NAMZ FOR THE NAME            F2219820    
       06400  0 53400 1 04011        LXA NAMXX,1                   OF TAU TAG IN A PARTICULAR         F2219830    
       06401  0 02000 0 06406        TRA GETN20                                                       F2219840    
       06402  0 34000 1 07301 GETN05 CAS NAMZ,1                    DO FORMULA.                        F2219850    
       06403  0 02000 0 06405        TRA GETN10                                                       F2219860    
       06404  0 02000 0 06411        TRA GETN30                                                       F2219870    
       06405  1 77776 1 06406 GETN10 TXI GETN20,1,-2                                                  F2219880    
 D     06406  3 00000 1 06402 GETN20 TXH GETN05,1                                                     F2219890    
       06407 -0 32000 0 03773        ANA ADDMSK                                                       F2219900    
       06410  0 02000 4 00001        TRA 1,4                                                          F2219910    
       06411  0 50000 1 07302 GETN30 CLA NAMZ+1,1                                                     F2219920    
       06412  0 02000 4 00001        TRA 1,4                                                          F2219930    
                                         SUBROUTINE ADDSER                                            F2219940    
       06413 -0 75400 1 00000 ADDSER PXD 0,1                                                          F2219950    
       06414  0 40000 0 03700        ADD TAG                                                          F2219960    
       06415 -0 53400 1 04006        LXD ADTXX,1                   PREPARE XRA AND DEC 0              F2219970    
       06416 -0 63400 1 06425        SXD ADS030,1                  ADS030 FOR TABLE SEARCH.           F2219980    
       06417  0 53400 1 04006        LXA ADTXX,1                                                      F2219990    
       06420  0 02000 0 06425        TRA ADS030                    TRA FOR EMPTY TABLE TEST           F2220000    
       06421  0 34000 1 07135 ADS010 CAS ADTAGZ,1                                                     F2220010    
       06422  0 02000 0 06424        TRA ADS020,                                                      F2220020    
       06423  0 02000 0 06427        TRA ADS040                    FIRST WORD FOUND                   F2220030    
       06424  1 77776 1 06425 ADS020 TXI ADS030,1,-2                                                  F2220040    
 D     06425  3 00000 1 06421 ADS030 TXH ADS010,1                                                     F2220050    
       06426  0 02000 4 00002        TRA 2,4                       NOT FOUND                          F2220060    
       06427  0 50000 1 07136 ADS040 CLA ADTAGZ+1,1                                                   F2220070    
       06430  0 02000 4 00001 ADS050 TRA 1,4                                                          F2220080    
                                         SUBROUTINES STORES AND STORXX                                F2220090    
       06431 -0 63400 4 06464 STORES SXD STO40,4                   THIS ROUTINE PREPARES              F2220100    
       06432  0 50000 0 06366        CLA LR1                       AN ENTRY FOR TABLE TRASTO          F2220110    
       06433  0 77100 0 00022        ARS 18                        AND USES LIST TO ENTERS            F2220120    
       06434  0 40000 0 03675        ADD LC                        THE ENTRY ON THE PROPER            F2220130    
       06435  0 60100 0 05064        STO E2                        DRUM TABLE. IF SPC000              F2220140    
       06436  0 50000 0 06374        CLA TR1                       IS USED BY THE ROUTINE,            F2220150    
       06437 -3 00001 2 06441        TXL STO20,2,1                 MANY ENTRIES MAY BE MADE           F2220160    
       06440  0 50000 0 06375        CLA TR2                       IN TRA STO.                        F2220170    
       06441  0 76700 0 00022 STO20  ALS 18                        IF DELTA EQUALS ONE OR TWO,        F2220180    
       06442  0 40000 0 03701        ADD TS                        THIS ROUTINE IS ENTERED            F2220190    
       06443  0 60100 0 05065        STO E3                        THROUGH STORES WITH C(XRB)         F2220200    
       06444 -3 00000 2 06460        TXL STO35,2,0                 ZERO. IF DELTA IS THREE            F2220210    
       06445 -3 00001 2 06465        TXL STO50,2,1                 AND WE ARE WORKING ON              F2220220    
       06446  0 02000 0 06460        TRA STO35                     TRANSFERS DR2 TO DS THEN           F2220230    
       06447 -0 63400 4 06464 STORXX SXD STO40,4                   STORES ENTRY IS USED WITH          F2220240    
       06450  0 50000 0 06370        CLA LR2                       C(XRB)=2                           F2220250    
       06451  0 77100 0 00022        ARS 18                        1F DELTA=3,TRA DR1 TO DS,          F2220260    
       06452  0 40000 0 06366        ADD LR1                       STORES ENTRY IS USED WITH          F2220270    
       06453  0 60100 0 05064        STO E2                        C(XRB)=1                           F2220280    
       06454  0 50000 0 06375        CLA TR2                       IF DELTA=3,TRA DR2 TO DR1,         F2220290    
       06455  0 76700 0 00022        ALS 18                        ENTRY  STORXX IS USED.             F2220300    
       06456  0 40000 0 06374        ADD TR1                       C(XRB) NOT USED.                   F2220310    
       06457  0 60100 0 05065        STO E3                        LIST ROUTINE IS.USED IN            F2220320    
                                                                             EVERY CASE,MAKING ONE    F2220330    
                                                                             TRASTO ENTRY,EXCEPT FOR  F2220340    
                                                                   CASE DELTA=3,TRA DR1 TO DS,        F2220350    
                                                                   C(XRB)=1,WHEN SPC000 IS USED.      F2220360    
       06460  0 50000 1 00733 STO35  CLA DOTAGZ,1                  LIST ROUTINE USED                  F2220370    
       06461  0 60100 0 05063        STO E1                                                           F2220380    
       06462  0 50000 0 05070        CLA TRASTO                                                       F2220390    
       06463  0 07400 4 05025        TSX LIST,4                                                       F2220400    
 D     06464 -3 00000 0 06470 STO40  TXL ST100,0                                                      F2220410    
       06465 -0 53400 2 03753 STO50  LXD L(2),2                    SPC000 USED.                       F2220420    
       06466  0 50000 0 05070        CLA TRASTO                                                       F2220430    
       06467  0 07400 4 05277        TSX SPC000,4                                                     F2220440    
       06470 -0 53400 4 06464 ST100  LXD STO40,4                   EXIT                               F2220450    
       06471  0 02000 4 00001        TRA 1,4                                                          F2220760    
                        06472 BLOCK  BSS 60                                                           F2220470    
                        07730        ORG 4056                                                         F2220480    
                                            MASTER RECORD CARD = FN029                                F2220485    
       07730 -0 53400 2 07770 PP0NG  LXD PG80,2                    ROUTINE PPONG SETS UP DRUM ONE FOR F2220490    
       07731  0 02000 0 07733        TRA PG10                      PING-PONGING.                      F2220300    
       07732 -0 53400 2 07767        LXD PG70,2                                                       F2220510    
       07733 -0 53400 4 07771 PG10   LXD PG90,4                                                       F2220520    
       07734  0 76600 0 00301 PG15   WRS 193                                                          F2220530    
       07735 -0 53400 1 07772        LXD PG95,1                                                       F2220540    
       07736  0 46000 2 07767        LDA PG60+2,2                                                     F2220550    
       07737  0 70000 1 06566 PG20   CPY CORESZ,1                                                     F2220560    
       07740  2 00001 1 07737        TIX PG20,1,1                                                     F2220570    
       07741  0 76600 0 00333        WRS 219                                                          F2220580    
       07742  0 76200 0 00301        RDS 193                                                          F2220590    
       07743 -0 53400 1 07772        LXD PG95,1                                                       F2220600    
       07744  0 46000 2 07767        LDA PG60+2,2                                                     F2220610    
       07745  0 70000 1 05566 PG30   CPY CORES,1                                                      F2220620    
       07746  2 00001 1 07745        TIX PG30,1,1                                                     F2220630    
       07747 -0 53400 1 07772        LXD PG95,1                                                       F2220640    
       07750 -0 75400 0 00000        PXD 0,0                      PG40-1                              F2220630    
       07751  0 36100 1 05566 PG40   ACL CORES,1                                                      F2220660    
       07752  2 00001 1 07751        TIX PG40,1,1                                                     F2220670    
       07753  0 60200 0 07773        SLW PG99                                                         F2220680    
       07754  0 50000 0 07773        CLA PG99                                                         F2220690    
       07755  0 40200 2 07765        SUB PG50+2,2                                                     F2220700    
       07756  0 10000 0 07761        TZE NORMRP                                                       F2220715    
       07757  2 00001 4 07734        TIX PG15,4,1                                                     F2220720    
       07760  0 07400 4 00004        TSX DIAG,4  DRUM READ                   ERROR. GO TO DIAGNOSTIC. F2220735    
       07761  0 76200 0 00221 NORMRP RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.    F2220736    
       07762  0 02000 0 00004        TRA ONETCS        GO TO ONE TO CS (MONITOR)=                     F2220737    
       07763 +103075525444    PG50   OCT 103075525444  CHECK SUM, STATE B, RELCON                     F2220744    
       07764 -246744643200           OCT -246744643200 CHECK SUM STATE A, NORMAL                      F2220754    
       07765 +000000001000    PG60   OCT 1000                                                         F2220760    
       07766 +000000000000           OCT                                                              F2220770    
       07767 +000001000000    PG70   OCT 1000000                                                      F2220780    
       07770 +000002000000    PG80   OCT 2000000                                                      F2220790    
       07771 +000005000000    PG90   OCT 5000000                                                      F2220805    
       07772 +001000000000    PG95   OCT 1000000000                                                   F2220810    
 A     07773  0 00000 0 00000 PG99   HTR                                                              F2220820    
       07774 -0 63400 1 77777 BURNCE SXD T0P,1             DRUM OVERFLOW                              F2220825    
       07775  0 02000 0 00004        TRA DIAG              ERROR PROCEDURE.                           F2220826    
                        77777    T0P EQU 32767                                                        F2220827    
                        00222 TAPE2  EQU 146                                                          F2220830    
                        00223 DOTAPE EQU 147                                                          F2220840    
                        00224 ATAPE  EQU 148                                                          F2220850    
                        00301 PPDRM  EQU 193                                                          F2220860    
                        00303 ADRUM  EQU 195                                                          F2220870    
                        00304 TAUDRM EQU 196                                                          F2220880    
                        00141 TL     EQU 97                                                           F2220890    
                        05565 RELWDS SYN RELDRA+1                                                     F2220900    
                        04003 ABIT   SYN BIT18                                                        F2220910    
                        04005 BBIT   SYN BIT20                                                        F2220920    
                        04003 SUBBIT SYN BIT18                                                        F2220930    
                        06566 CORESZ SYN CORES+512                                                    F2220940    
                        00004 ONETCS EQU 4                                                            F2220945    
                        00004 DIAG   EQU 4                                                            F2220946    
 A                      00000        END                                                              F2220950    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    2101           0           0           0           0
 LIB       0           0           0           0           0
 COL    2101           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     2110                  
0NUMBER OF SYMBOLS,  DEF   586,DEFOP     0,UNDEF     0      
9            REM BLOCK THREE OF SECTION TWO.                                              
1                                        BLOCK THREE OF SECTION TWO.                                              
                                            MASTER RECORD CARD = FN036                                F2300004    
                                         BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR                          F2300006    
                                         THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT                    F2300010    
                                         ELEMENT OF WHICH IS UNDER CONTROL OF                         F2300020    
                                         A DO (PURE RELATIVE CONSTANTS). TWO                          F2300030    
                                         TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND      F2300040    
                                         WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO    F2300050    
                                         COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO    F2300060    
                                         SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR-TYPES OF F2300070    
                                         TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT       F2300080    
                                         CERTAIN INDEXING INSTRUCTIONS SH0ULD BE COMPILED ACCOMPANYINGF2300000    
                                         THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES    F2300100    
                                         OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND   F2300110    
                                         TABLE IRV ENTRIES ARE SORTED AND WRITTEN ON-DRUM. ROUTINES   F2300120    
                                         ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 -  F2300130    
                                         SUBCOM, TRAWORD, SPC, TINFOR, LIST.                          F2300140    
                        00031        ORG 25                                                           F2300150    
                        00031 NAME   BSS 1             TABLE STORAGE                                  F2300160    
                        00032        BSS 449                                                          F2300170    
                        00733 NAMZ   BSS 1                                                            F2300180    
                        00734 FORTAG BSS 1                                                            F2300190    
                        00735        BSS 1499                                                         F2300200    
                        03670 FORTZ  BSS 1                                                            F2300210    
                        03671 FORVAL BSS 1                                                            F2300220    
                        03672        BSS 1499                                                         F2300230    
                        06625 4VALZ  BSS 1                                                            F2300240    
                        00031        ORG 25                                                           F2300250    
                        00031 TCOM   BSS 1                                                            F2300260    
                        00032        BSS 749                                                          F2300270    
                        01407 TCOMZ  BSS 1                                                            F2311280    
                        03671        ORG 1977                                                         F2300290    
                        03671 DOTAG  BSS 1                                                            F2300300    
                        03672        BSS 1349                                                         F2300310    
                        06377 DOTAGZ BSS 1                                                            F2300320    
                        06400        BSS 149                                                          F2300330    
                        06625 IRVZ   BSS 1                                                            F2300340    
                        06626 TAG    BSS 1             ADDRESS HAS FORTAG IX CURRENT                  F2300350    
                        06627 TS     BSS 1             NEW NAME                                       F2300360    
                        06630 TAGIND BSS 1             ONE IF SOLITARY SUB COEFF ONE, OTHERWISE ZERO  F2300370    
                        06631 DELTA  BSS 1             COUNT OF NO OF SYMBOLS IN SUB COMB             F2300380    
                        06632 RSYM1  BSS 1             WORKING SYMBOL ONE                             F2300390    
                        06633 RSYM2  BSS 1             WORKING SYM8OL TWO                             F2300400    
                        06634 RSYM3  BSS 1             WORKING SYMBOL THREE                           F2300410    
                        06635 C1     BSS 1             COEFF FIRST SYMBOL                             F2300420    
                        06636 S1     BSS 1             FIRST SYMBOL                                   F2300430    
                        06637 C2     BSS 1             COEFF 2ND SYMBOL                               F2300440    
                        06640 S2     BSS 1             2ND SYMBOL                                     F2300450    
                        06641 C3     BSS 1             COEFF 3RD SYMBOL                               F2300460    
                        06642 S3     BSS 1             3RD SYMBOL                                     F2300470    
                        06643 D1     BSS 1             DIM 1ST SYM, IF TWO-DIMENSIONAL                F2300480    
                        06644 D2     BSS 1             DIM 2ND SYM, IF THREE-DIMENSIONAL              F2300490    
                        06645 TL2    BSS 1             LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL          F2300500    
                        06646 XR1    BSS 1             IX DOTAG MATCHING FIRST SUB SYMBOL (RSYM1)     F2300510    
                        06647 LR1    BSS 1             LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1)        F2300520    
                        06650 NEXTR1 BSS 1             IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LVF2300530    
                        06651 XR2    BSS 1             IX DOTAG MATCHING 2ND SUB SYMB (RSYM2)         F2300540    
                        06652 LR2    BSS 1             LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2)        F2300550    
                        06653 NEXTR2 BSS 1             IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV F2300560    
                        06654 XR3    BSS 1             1X DOTAG MATCHING THIRD SUB SYM8 (RSYM3)       F2300570    
                        06655 NEXTR3 BSS 1             IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL F2300580    
                        06656 SKIP   BSS 1             SKIP, ZERO OR 1                                F2300590    
                        06657 TRABIT BSS 1             TRAWORD TEMP STORAGE                           F2300600    
                        06660 NEXTA  BSS 1             INTERMEDIATE UPPER LIMIT OF RANGE              F2300610    
                        06661 LASTB  BSS 1             INTERHEDIATE LOWER LIMIT OF RANGE              F2300620    
                        06662 A      BSS 1             UPPER LIMIT OF RANGE                           F2300630    
                        06663 B      BSS 1             LOWER LIMIT OF RANGE                           F2300640    
                        06664 IRVXX  BSS 1             CURRENT TABLE IRV I.R. VALUE                   F2300650    
       06665  0 00000 0 00000 L(0)       0,0,0                                                        F2300660    
       06666  0 00001 0 00000 L(1)       0,0,1                                                        F2300670    
       06667  0 00002 0 00000 L(2)       0,0,2                                                        F2300680    
       06670  0 00003 0 00000 L(3)       0,0,3                                                        F2300690    
       06671  0 00006 0 00000 L(6)       0,0,6                                                        F2300700    
       06672  0 00044 0 00000 L(36)      0,0,36                                                       F2300710    
       06673  0 02506 0 00000 L(1350     0,0,1350                                                     F2300720    
       06674  0 02734 0 00000 L(1500     0,0,1500                                                     F2300730    
       06675 +000000000001    L(1)A  OCT 1                                                            F2300740    
       06676 -0 00000 0 00000 L(MZ)  MZE                                                              F2300750    
       06677 +200000000000    BITONE OCT 200000000000                                                 F2300760    
       06700 +000000400000    BIT18  OCT 400000                                                       F2300770    
       06701 +177777777777    34ONES OCT 177777777777                                                 F2300780    
       06702 +377777777777    35ONES OCT 377777777777                                                 F2300790    
       06703 +000000077777    ADDMSK OCT 77777                                                        F2300800    
       06704 +077777000000    DECMSK OCT 77777000000                                                  F2300810    
       06705 -200000000000    PREMSK OCT -200000000000                                                F2300820    
       06706  0 00000 0 00312 DRMADD     202           DRUM ORIGIN OF FORVAL TABLE                    F2300830    
       06707  0 00000 0 01760 NAMORG     1008          DRUM ORIGIN OF NAME TABLE                      F2300840    
       06710  0 00000 0 00031 NAMAD      NAME          CORE ORIGIN OF NAME TABLE                      F2300850    
       06711  0 00702 0 00000 NAMAX      0,0,450       MAXIMUM WORDS IN NAME TABLE                    F2300860    
       06712  0 00000 0 02430 IRVORG     1304          DRUM ORIGIN OF WD COUNT TABLE IRV              F2300870    
       06713  0 00000 0 06377 IRVAD      IRV           CORE ORIGIN OF IRV TABLE                       F2300880    
       06714  0 00226 0 00000 IRVMAX     0,0,150       MAXIMUM WORDS IN IRV TABLE                     F2300890    
       06715  0 00000 0 01300 TCOMOR     704           DRUM ORIGIN OF WD COUNT, TABLE TCOM            F2300900    
       06716  0 00000 0 01302 TSXORG     706           DRUM ORIGIN OF TSXCOM TABLE                    F2300910    
       06717  0 00000 0 00031 TCOMAD     TCOM          CORE ORIGIN OF TCOM TABLE                      F2300920    
       06720  0 01356 0 00000 TCOMAX     0,0,750                                                      F2300930    
       06721  0 50000 0 07776 BLOCK3 CLA 4094          TSXCOM CARRYOYER FROM BLOCK TWO                F2300940    
       06722  0 60100 0 07667        STO LADDS         EQUAL  TO LAST TABLE ENTRY PLUS ONE.           F2300950    
       06723  0 50000 0 07775        CLA 4093          TRASTO CARRYOVER FROM BLOCK TWO                F2300960    
       06724  0 60100 0 07670        STO LADDS+1       EQUAL TO LAST TABLE ENTRY PLUS ONE.            F2300970    
       06725  0 50000 0 06714        CLA IRVMAX        INITIALIZE IRVXX.                              F2300980    
       06726  0 60100 0 06664        STO IRVXX         EQUAL TO ETC.                                  F2300990    
       06727 -0 53400 1 00733        LXD FORTAG-1,1    IF FORTAG EMPTY,                               F2301000    
       06730  3 02733 1 07616        TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.          F2301015    
       06731 -0 53400 2 06671 NAMRD  LXD L(6),2        INITIALIZE EERROR COUNTER.                     F2301022    
       06732  0 50000 0 07777 NAM10  CLA 4095          OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2     F2301030    
       06733  0 40200 0 06707        SUB NAMORG        FROM BLOCK TWO,                                F2301040    
       06734  0 73400 1 00000        PAX 0,1                                                          F2301050    
       06735 -3 00000 1 06766        TXL NAM95,1,0     IF NO TABLE NAME, GO TO READ IN FORVAL.        F2301060    
       06736  0 76200 0 00303        RDS ADRUM         READ IN TABLE NAME.                            F2301070    
       06737  0 40000 0 06710        ADD NAMAD         ADD CORE ORG TABLE NAME T0 COMP TERMINUS AND   F2301080    
       06740  0 62100 0 06746        STA NAM60         STORE IN COPY ADDRESS.                         F2301090    
       06741 -0 75400 1 00000        PXD 0,1                                                          F2301100    
       06742 -0 76000 0 00003        SSM                                                              F2301110    
       06743  0 40000 0 06711        ADD NAMAX         DIFF BETWEEN MAX NO ENTRIES AND ACTUAL NL.     F2301120    
       06744  0 60100 0 00030        STO NAME-1                                                       F2301130    
       06745  0 46000 0 06707        LDA NAMORG        DRUM LRG                                       F2301140    
       06746  0 70000 1 00000 NAM60  CPY 0,1                                                          F2301150    
       06747  2 00001 1 06746        TIX NAM60,1,1                                                    F2301160    
       06750 -0 53400 1 00030        LXD NAME-1,1                                                     F2301170    
       06751 -0 63400 1 06762        SXD NAM80,1                                                      F2301180    
       06752 -0 53400 1 06711        LXD NAMAX,1                                                      F2301190    
       06753 -0 50000 1 00733 NAM70  CAL NAMZ,1        COMPUTE CHECK SUM                              F2301200    
       06754  0 36100 1 00734        ACL NAMZ+1,1      FOR                                            F2301210    
       06755  0 60200 0 06771        SLW NAMES1        EACH                                           F2301220    
       06756  0 50000 0 06771        CLA NAMES1        TABLE ENTRY,                                   F2301230    
       06757  0 40200 1 00735        SUB NAMZ+2,1      AND COMPARE                                    F2301240    
       06760 -0 10000 0 06764        TNZ NAM90         SAME.                                          F2301250    
       06761  1 77775 1 06762        TXI NAM80,1,-3                                                   F2301260    
 D     06762  3 00000 1 06753 NAM80  TXH NAM70,1                                                      F2301270    
       06763  0 02000 0 06772        TRA BEGIN         TABLE NAME ALL IN.                             F2301280    
       06764  2 00001 2 06732 NAM90  TIX NAM10,2,1                                                    F2301290    
       06765  0 07400 4 00004        TSX DIAG,4  DRUM READ NAME TABLE.       ERROR. GO TO DIAGNOSTIC. F2301305    
       06766  0 50000 0 06711 NAM95  CLA NAMAX         TABLE NAME EMPTY.                              F2301310    
       06767  0 60100 0 00030        STO NAME-1                                                       F2301320    
       06770  0 02000 0 06772        TRA BEGIN                                                        F2301330    
 A     06771  0 00000 0 00000 NAMES1 HTR               TEMP STORAGE                                   F2301340    
       06772 -0 76000 0 00144 BEGIN  MSE LIGHT         TEST FOR EHPTY FORVAL                          F2301350    
       06773  0 02000 0 06776        TRA CPYLP                                                        F2301360    
       06774  0 76000 0 00144        PSE LIGHT         IF EMPTY,                                      F2301370    
       06775  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2301385    
       06776 -0 53400 2 06671 CPYLP  LXD L(6),2        READ IN FORVAL                                 F2301392    
       06777  0 76200 0 00302 RDSDRM RDS BDRUM                                                        F2301400    
       07000  0 50000 0 06701        CLA 34ONES        PUT DRUM MARK IN ACC.                          F2301410    
       07001  0 46000 0 06706        LDA DRMADD                                                       F2301420    
       07002 -0 53400 1 06674        LXD L(1500,1                                                     F2301430    
       07003  0 70000 1 06625 CPYONE CPY 4VALZ,1       PULL IN FIRST WORD OF FORVAL.                  F2301440    
       07004  0 04000 0 07006        TLQ CPYTWO        TEST FOR DRUM MARK.                            F2301430    
       07005  0 02000 0 07012        TRA CHKSUM                                                       F2301460    
       07006  0 70000 1 06626 CPYTWO CPY 4VALZ+1,1     PULL IN 2ND WORD OF FORVAL,                    F2301470    
       07007  0 70000 1 06627        CPY 4VALZ+2,1     AND CHECK SUM.                                 F2301480    
       07010  2 00003 1 07003        TIX CPYONE,1,3                                                   F2301490    
       07011 -0 53400 1 06665        LXD L(0),1                                                       F2301500    
       07012 -0 63400 1 03670 CHKSUM SXD FORVAL-1,1    COMPUTE AND                                    F2301510    
       07013 -0 63400 1 07024        SXD NEXT,1        COMPARE                                        F2301520    
       07014 -0 53400 1 06674        LXD L(1500,1      CHECK                                          F2301530    
       07015 -0 50000 1 06625 CSLOOP CAL 4VALZ,1       SUMS.                                          F2301540    
       07016  0 36100 1 06626        ACL 4VALZ+1,1                                                    F2301550    
       07017  0 60200 0 07030        SLW COMCS                                                        F2301560    
       07020  0 50000 0 07030        CLA COMCS                                                        F2301570    
       07021  0 40200 1 06627        SUB 4VALZ+2,1                                                    F2301580    
       07022 -0 10000 0 07026        TNZ ERROR                                                        F2301590    
       07023  1 77775 1 07024        TXI NEXT,1,-3                                                    F2301600    
 D     07024  3 00000 1 07015 NEXT   TXH CSLOOP,1                                                     F2301610    
       07025  0 02000 0 07031        TRA 2WDDO         FORVAL ALL IN.                                 F2301620    
       07026  2 00001 2 06777 ERROR  TIX RDSDRM,2,1                                                   F2301630    
       07027  0 07400 4 00004        TSX DIAG,4  DRUM REAAD FORVAL TABLE.    ERROR. GO TO DIAGNOSTIC. F2301645    
 A     07030  0 00000 0 00000 COMCS  HTR                                                              F2301650    
       07031 -0 53400 4 06671 2WDDO  LXD L(6),4        ERROR COUNTER.                                 F2301662    
       07032  0 77200 0 00223 2WDO5  REW TAPE3         PREPARE TO READ IN DOTAG.                      F2301670    
       07033 -0 53400 1 07071        LXD L(300),1                                                     F2301680    
       07034 -0 76000 0 00143        MSE 99            TEST FOR EMPTY DOTAG.                          F2301690    
       07035  0 02000 0 07040        TRA 2WD10                                                        F2301700    
       07036  0 76000 0 00143        PSE 99                                                           F2301710    
       07037  0 02000 0 07062        TRA 2WD70                                                        F2301720    
       07040 -0 76000 0 00012 2WD10  RTT                                                              F2301730    
       07041  0 76100 0 00000        NOP                                                              F2301740    
       07042  0 76200 0 00223 2WD20  RDS TAPE3         PULL                                           F2301750    
       07043 -0 53400 2 07072 2WD30  LXD L(7),2        IN                                             F2301760    
       07044  0 70000 1 07570        CPY DOZ,1         DOTAG                                          F2301770    
       07045  0 02000 0 07050        TRA 2WD40         BUT                                            F2301780    
       07046  0 02000 0 07062        TRA 2WD70         ONLY                                           F2301790    
       07047  0 02000 0 07042        TRA 2WD20         THE                                            F2301800    
       07050  0 70000 1 07571 2WD40  CPY DOZ+1,1       FIRST                                          F2301810    
       07051  0 02000 0 07054        TRA 2WD50         TWO                                            F2301820    
       07052  0 07400 4 00004        TSX DIAG,4  WORDS                       ERROR. GO TO DIAGNOSTIC. F2301835    
       07053  0 07400 4 00004        TSX DIAG,4  OF                          ERROR. GO TO DIAGNOSTIC. F2301845    
       07054  0 70000 0 07073 2WD50  CPY ESXX          EACH                                           F2301850    
       07055  0 02000 0 07060        TRA 2WD60         TABLE                                          F2301860    
       07056  0 07400 4 00004        TSX DIAG,4  ENTRY.                      ERROR. GO TO DIAGNOSTIC. F2301875    
       07057  0 07400 4 00004        TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2301885    
       07060  2 00001 2 07054 2WD60  TIX 2WD50,2,1                                                    F2301890    
       07061  1 77776 1 07043        TXI 2WD30,1,-2                                                   F2301900    
       07062 -0 63400 1 07570 2WD70  SXD DOZ,1                                                        F2301910    
       07063  0 76600 0 00333        WRS 219                                                          F2301920    
       07064 -0 76000 0 00012        RTT                                                              F2301930    
       07065  0 02000 0 07067        TRA 2WD80         READ ERROR.                                    F2301940    
       07066  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2301955    
       07067  2 00001 4 07032 2WD80  TIX 2WDO5,4,1                                                    F2301960    
       07070  0 07400 4 00004        TSX DIAG,4  TAPE 3 READING DOTAG,       ERROR. GO TO DIAGNOSTIC. F2301975    
       07071  0 00454 0 00000 L(300)     0,0,300                                                      F2301980    
       07072  0 00007 0 00000 L(7)       0,0,7                                                        F2301990    
 A     07073  0 00000 0 00000 ESXX   HTR               TEMP STORAGE.                                  F2302000    
                                            MASTER RECORD CARD = FN037                                F2302005    
                        07614        ORG 3980                                                         F2302010    
       07614 -0 63400 1 77777 BURNCE SXD T0P,1             DRUM 0VERFLOW                              F2302011    
       07615  0 02000 0 00004        TRA DIAG              ERROR PROCEDURE                            F2302012    
                                         THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC. F2302016    
       07616  0 76200 0 00221 NORMRT RDS 145           SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE.    F2302017    
       07617  0 02000 0 00004        TRA ONETCS        GO TO ONE TO CS (MONITOR)                      F2302018    
       07620 -0 63400 4 07653 LIST   SXD LIST40,4          SAVE LINKAGE                               F2302030    
       07621 -0 73400 1 00000        PDX 0,1           PUT INDEX QUANTITY IN XRA                      F2302040    
       07622  0 73400 6 00000        PAX 0,6           PUT NR. OF WDS IN XRB,XRC.                     F2302050    
       07623  0 40000 0 07654        ADD LIST50        COMPUTE NR. OF WRDS                            F2302060    
       07624  0 62100 0 07641        STA LIST30        PLUS ORIGIN E1 AND                             F2302070    
       07625  0 62100 0 07634        STA LIST20        INITIALIZE ADDRESSES,                          F2302080    
       07626  0 50000 1 07701        CLA LADDIN+5,1    TEST                                           F2302090    
       07627  0 77100 0 00022        ARS 18            FOR                                            F2302100    
       07630  0 40200 1 07674        SUB LADDS+5,1     FULL                                           F2302110    
       07631 -0 10000 0 07633        TNZ LIST10        TABLE.                                         F2302120    
       07632  0 07400 4 07614        TSX BURNCE,4          DRUM 0VERFLOW, GO SAVE IRA BEFORE DIAG.    F2302135    
       07633 -0 75400 0 00000 LIST10 PXD 0,0           ZERO IN ACC.                              .    F2302140    
       07634  0 36100 2 00000 LIST20 ACL 0,2           COMPUTE                                        F2302150    
       07635  2 00001 2 07634        TIX LIST20,2,1    ENTRY                                          F2302160    
       07636  0 76600 0 00303        WRS ADRUM             SELECT DRUM.                               F2302165    
       07637  0 60200 0 07655        SLW LIST60        CHECK SUM.                                     F2302170    
       07640  0 46000 1 07674        LDA LADDS+5,1     COPY                                           F2302180    
       07641  0 70000 4 00000 LIST30 CPY 0,4           ENTRY                                          F2302190    
       07642  2 00001 4 07641        TIX LIST30,4,1    AND                                            F2302200    
       07643  0 70000 0 07655        CPY LIST60        CHECK SUM.                                     F2302210    
       07644  0 50000 1 07674        CLA LADDS+5,1     COMPUTE                                        F2302220    
       07645  0 40000 1 07667        ADD TSXCOM+5,1    NEXT                                           F2302230    
       07646  0 40000 0 06675        ADD L(1)A         ENTRY                                          F2302240    
       07647 -0 32000 0 06703        ANA ADDMSK        ADDRESS.                                       F2302250    
       07650  0 60100 1 07674        STO LADDS+5,1                                                    F2302260    
       07651 -0 53400 4 07653        LXD LIST40,4      EXIT                                           F2302270    
       07652  0 02000 4 00001        TRA 1,4                                                          F2302280    
 A     07653  0 00000 0 00000 LIST40 HTR               E.S.                                           F2302290    
       07654  0 00000 0 07656 LIST50 HTR E1            L(E1)                                          F2302300    
 A     07655  0 00000 0 00000 LIST60 HTR               E.S.                                           F2302310    
                                         FOUR WORD ENTRY BLOCK                                        F2302320    
 A     07656  0 00000 0 00000 E1     HTR                                                              F2302330    
 A     07657  0 00000 0 00000 E2     HTR                                                              F2302340    
 A     07660  0 00000 0 00000 E3     HTR                                                              F2302350    
 A     07661  0 00000 0 00000 E4     HTR                                                              F2302360    
                                         FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2302370    
       07662  0 00005 0 00002 TSXCOM HTR 2,0,5                                                        F2302380    
       07663  0 00004 0 00003 TRASTO HTR 3,0,4                                                        F2302390    
       07664  0 00003 0 00002 NAMKEY HTR 2,0,3                                                        F2302400    
       07665  0 00002 0 00002 CHATAG HTR 2,0,2                                                        F2122410    
       07666  0 00001 0 00004 DRMTAG HTR 4,0,1                                                        F2302420    
                                         FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.  F2302430    
 A     07667  0 00000 0 00000 LADDS  HTR               TSXCOM                                         F2302440    
 A     07670  0 00000 0 00000        HTR               TRASTO                                         F2302450    
 A     07671  0 00000 0 00000        HTR               NAMKEY                                         F2302460    
 A     07672  0 00000 0 00000        HTR               CHATAG                                         F2302470    
 A     07673  0 00000 0 00000        HTR               DRMTAG                                         F2302480    
                                         FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE    F2302490    
       07674  0 02660 0 01302 LADDIN HTR 706,0,1456    TSXCOMP                                        F2302500    
       07675  0 01300 0 00460        HTR 304,0,704     TRASTO                                         F2302510    
       07676  0 02662 0 01760        HTR 1008,0,1458   NAMKEY                                         F2302520    
       07677  0 00456 0 00002        HTR 2,0,302       CHATAG                                         F2302530    
       07700  0 03650 0 02664        HTR 1460,0,1960   DRMTAG                                         F2302540    
                                         THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE                   F2302550    
                                         CORRESP0NDING SUBSCRIPT COMPINATION FROM THE TAU             F2302560    
                                         DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE.           F2302570    
       07701 -0 63400 4 07762 SUBCOM SXD SUB085,4      SAVE LINKAGE INDX.                             F2302580    
       07702 -0 53400 1 07770        LXD SUBORG,1      INITIALIZE ERROR COUTNER.                      F2302590    
       07703  0 76200 0 00304 SUB010 RDS TAUDRM        SELECT TAU DRUM.                               F2302600    
       07704 -0 53400 4 07772        LXD SUBORG+2,4    INITIALIZE                                     F2302610    
       07705 -0 75400 0 00000        PXD 0,0           SUBSCRIPT COMBINATION                          F2302620    
       07706  0 60100 4 06645 SUB020 STO C1+8,4        SPACE                                          F2302630    
       07707  2 00001 4 07706        TIX SUB020,4,1    T0 ZERO.                                       F2302640    
       07710  0 50000 0 06626        CLA TAG           COMPUTE                                        F2302650    
       07711  0 76500 0 00011        LRS 9             DRUM                                           F2302660    
       07712  0 73400 6 00000        PAX 0,6           ADDRESS.                                       F2302670    
       07713 -0 75400 0 00000        PXD 0,0           TAU ONE ADD. IS ORG+3TAU.                      F2302680    
       07714  0 76300 0 00011        LLS 9             TAU TWO ADD. IS ORG+5TAU.                      F2302690    
       07715  0 60100 0 07773        STO SUBES1        TAU THREE ADD. IS ORG+7TAU.                    F2302700    
       07716  0 76700 0 00001        ALS 1             STORE                                          F2302710    
       07717  0 60100 0 07774        STO SUBES2        ADDRESS                                        F2302720    
       07720  0 50000 4 07773        CLA SUBORG+3,4    IN SUBES1                                      F2302730    
       07721  0 40000 0 07773        ADD SUBES1        FOR LDA                                        F2302740    
       07722  0 40000 0 07774 SUB030 ADD SUBES2        INSTRUCTION.                                   F2302750    
       07723  2 00001 4 07722        TIX SUB030,4,1                                                   F2302760    
       07724  0 62100 0 07773        STA SUBES1                                                       F2302770    
       07725  0 46000 0 07773        LDA SUBES1        COPY SUB. COMB.                                F2302780    
       07726  0 70000 0 06635        CPY C1            TAU ONE, TWO, THREE                            F2302790    
       07727 -3 00002 2 07731        TXL SUB040,2,2                                                   F2302800    
       07730  0 70000 0 06641        CPY C3            TAU 3                                          F2302810    
       07731  0 70000 0 06636 SUB040 CPY S1            TAU 1,2,3                                      F2302820    
       07732 -3 00001 2 07737        TXL SUB060,2,1                                                   F2302830    
       07733  0 70000 0 06640        CPY S2            TAU2,3                                         F2302840    
       07734 -3 00002 2 07736        TXL SUB050,2,2                                                   F2302850    
       07735  0 70000 0 06642        CPY S3            TAU 3                                          F2302860    
       07736  0 70000 0 06643 SUB050 CPY D1            TAU 2,3                                        F2302870    
       07737  0 70000 0 07773 SUB060 CPY SUBES1        TAU 1,2,3                                      F2302880    
       07740 -0 53400 4 07770        LXD SUBORG,4      COMPUT CHECK SUM                               F2302890    
       07741 -0 50000 0 06635        CAL C1            AND COMPARE WITH                               F2302900    
       07742  0 36100 4 06644 SUB070 ACL C1+7,4        ENTRY CHECK CUM.                               F2302910    
       07743  2 00001 4 07742        TIX SUB070,4,1    THREE ATTMPTS ARE MADE                         F2302920    
       07744  0 60200 0 07774        SLW SUBES2        T0 READ SC CORRECTLY.                          F2302930    
       07745  0 50000 0 07774        CLA SUBES2        IF ERROR STILL PRESENT,                        F2302940    
       07746  0 40200 0 07773        SUB SUBES1        COMPLETE ROUTINE, MAKE ERROR RET.              F2302950    
       07747  0 10000 0 07752        TZE SUB075        CHECK SUMS AGREE, TRA.                         F2302960    
       07750  2 00001 1 07703        TIX SUB010,1,1    CHECK SUMS DISAGREE,                           F2302972    
       07751  0 07400 4 00004        TSX DIAG,4  IN READING TAU FROM DRUM,   ERROR. GO TO DIAGNOSTIC. F2302983    
       07752 -0 53400 4 07771 SUB075 LXD SUBORG+1,4    REARRANGE C1, C2, D1, D2,                      F2302990    
       07753  0 50000 4 06644 SUB080 CLA C1+7,4        TO COMPLY WITH CORE                            F2303000    
       07754  0 73400 2 00000        PAX 0,2           STORAGE FORMAT.                                F2303010    
       07755 -0 32000 0 06704        ANA DECMSK                                                       F2303020    
       07756  0 60100 4 06644        STO C1+7,4                                                       F2303030    
       07757 -0 75400 2 00000        PXD 0,2                                                          F2303040    
       07760 -2 00006 4 07763        TNX SUB090,4,6                                                   F2303050    
       07761  0 60100 0 06637        STO C2                                                           F2303060    
 D     07762 -3 00000 0 07753 SUB085 TXL SUB080,0                                                     F2303070    
       07763  0 60100 0 06644 SUB090 STO D2                                                           F2303080    
       07764 -0 53400 4 07762        LXD SUB085,4      RESTORE LINKAGE INDEX,                         F2303090    
       07765  0 76100 0 00000        NOP                                                              F2303102    
       07766  0 02000 4 00001        TRA 1,4                                                          F2303110    
       07767  0 76100 0 00000 SUB100 NOP                                                              F2303122    
       07770 +000006001356    SUBORG OCT 000006001356                                                 F2303130    
       07771 +000007000454           OCT 7000454       DEC. IS 7, ADD. IS ORG. TAU 2                  F2303140    
       07772 +000010000000           OCT 10000000      DEC. IS 8, ADD. IS ORG. TAU 1                  F2303150    
 A     07773  0 00000 0 00000 SUBES1 HTR               E.S.                                           F2303160    
 A     07774  0 00000 0 00000 SUBES2 HTR               E.S.                                           F2303170    
                        06721        ORG 3537                                                         F2303180    
                                            MASTER RECORD CARD = FN039                                F2303185    
       06721 -0 53400 1 00733 BL3A   LXD FORTAG-1,1    IF FORTAG                                      F2303190    
       06722  3 02733 1 07616        TXH NORMRT,1,1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1.     F2303205    
       06723 -0 76000 0 00144        MSE LIGHT         IF FORVAL IS EMPTY,                            F2303210    
       06724  0 02000 0 06726        TRA INIT                                                         F2303220    
       06725  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2303235    
       06726 -0 53400 1 03670 INIT   LXD FORVAL-1,1    INITIALIZE                                     F2303240    
       06727 -0 63400 1 07034        SXD TAB60,1       .                                              F2303250    
       06730 -0 53400 1 00733        LXD FORTAG-1,1    .                                              F2303260    
       06731 -0 63400 1 07015        SXD VAL80,1       .                                              F2303270    
       06732 -0 63400 1 07020        SXD VAL95,1       .                                              F2303280    
       06733 -0 53400 1 07570        LXD DOZ,1         .                                              F2303290    
       06734 -0 63400 1 07101        SXD IND20,1       .                                              F2303300    
       06735 -0 53400 1 06674 VALTAG LXD L(1500,1      THIS PROGRAM                                   F2303310    
       06736  0 50000 1 03670 VAL10  CLA FORTZ,1       MAKES A                                        F2303320    
       06737 -0 12000 0 07017        TMI VAL90         PASS OVER                                      F2303330    
       06740 -0 32000 0 06677        ANA BITONE        FORTAG, AND                                    F2303340    
       06741 -0 10000 0 07017        TNZ VAL90         FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2)   F2303350    
       06742  0 50000 1 03670        CLA FORTZ,1       TAG WITH BITONE EQUAL                          F2303360    
       06743 -0 32000 0 06703        ANA ADDMSK        TO ZERO, (NOT YET TREATED HERE)                F2303370    
       06744  0 60100 0 06626        STO TAG           OBTAINS THE CORRESP0ND1NG SUBSCRIPT            F2303380    
       06745 -0 63400 1 07000        SXD SAVEA,1       COMPINATION FROM THE                           F2303390    
       06746  0 07400 4 07701        TSX SUBCOM,4      TAU TABLE DRUM.                                F2303400    
       06747 -0 53400 4 06670        LXD L(3),4                                                       F2303410    
       06750 -0 75400 0 00000        PXD 0,0                                                          F2303420    
       06751  0 60100 4 06635 VAL20  STO RSYM1+3,4     INITIALIZE WITH ZEROES.                        F2303430    
       06752  2 00001 4 06751        TIX VAL20,4,1                                                    F2303440    
       06753 -0 53400 1 06671        LXD L(6),1        THIS ROUTINE STORES                            F2303450    
       06754 -0 53400 2 06670        LXD L(3),2        THE SYMBOLS AS FOLLOWS                         F2303460    
       06755  0 50000 1 06644 VAL30  CLA S1+6,1        LEFTMOST IN RSYM1,                             F2303470    
       06756  0 10000 0 06761        TZE VAL40         NEXT SYMBOL IN RSYM2,                          F2303480    
       06757  0 60100 2 06635        STO RSYM1+3,2     RIGHTMOST IN RSYM3.                            F2303490    
       06760  1 77777 2 06761        TXI VAL40,2,-1    IF THERE ARE NOT THREE                         F2303500    
       06761  2 00002 1 06755 VAL40  TIX VAL30,1,2     SYMBOLS IN THE SC, THEN                        F2303510    
       06762 -0 75400 2 00000        PXD 0,2           THE RSYM LOCATIONS ARE                         F2303520    
       06763 -0 76000 0 00003        SSM               SET TO ZERO.                                   F2303530    
       06764  0 40000 0 06670        ADD L(3)          DELTA IS THE SYMBOL COUNT.                     F2303540    
       06765  0 10000 0 07001        TZE VAL60         SUBSCRIPT IS CONSTANT, NO SYMBOLS.             F2303550    
       06766  0 60100 0 06631        STO DELTA                                                        F2303560    
       06767 -0 53400 4 06665        LXD L(0),4        LOCATION TAGIND IS SET                         F2303570    
       06770  0 40200 0 06666        SUB L(1)          TO ZERO, UNLESS THE SC                         F2303580    
       06771 -0 10000 0 06777        TNZ VAL50         HAS THE FOLLOWING                              F2303590    
       06772  0 50000 0 06636        CLA S1            CHARACTERISTICS                                F2303600    
       06773  0 10000 0 06777        TZE VAL50         ONE SYMBOL                                     F2303610    
       06774 -0 53400 1 06635        LXD C1,1          IN LEFTMOST POSITION                           F2303620    
       06775  3 00001 1 06777        TXH VAL50,1,1     WITH COEFFICIENT EQUAL                         F2303630    
       06776 -0 53400 4 06666        LXD L(1),4        TO ONE                                         F2303640    
       06777 -0 63400 4 06630 VAL50  SXD TAGIND,4                                                     F2303650    
 D     07000 -3 00000 0 07022 SAVEA  TXL TABSER,0      GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX)  F2303660    
       07001 -0 53400 1 07000 VAL60  LXD SAVEA,1       RETURN FROM PROCESSING                         F2303670    
       07002  0 50000 1 03670        CLA FORTZ,1       ROUTINE. FOR THIS TAG,                         F2303680    
       07003 -0 12000 0 07014        TMI VAL70         AND ALL TAGS EQUAL TO                          F2303690    
       07004 -0 32000 0 06677        ANA BITONE        THIS TAG, SET FORTAG                           F2303700    
       07005 -0 10000 0 07014        TNZ VAL70         ENTRY BIT ONE EQUAL                            F2303710    
       07006  0 50000 1 03670        CLA FORTZ,1       TO ONE.                                        F2303720    
       07007 -0 32000 0 06703        ANA ADDMSK                                                       F2303730    
       07010  0 40200 0 06626        SUB TAG                                                          F2303740    
       07011 -0 10000 0 07014        TNZ VAL70                                                        F2303750    
       07012  0 50000 0 06677        CLA BITONE                                                       F2303760    
       07013 -0 60200 1 03670        ORS FORTZ,1                                                      F2303770    
       07014  1 77777 1 07015 VAL70  TXI VAL80,1,-1                                                   F2303780    
 D     07015  3 00000 1 07002 VAL80  TXH VAL60+1,1     IF FORTAG DONE,       (DEC HAS FORTAGIX)       F2303790    
       07016 -0 53400 1 07000        LXD SAVEA,1       GO BACK                                        F2303800    
       07017  1 77777 1 07020 VAL90  TXI VAL95,1,-1    FOR NEXT TAG                                   F2303810    
 D     07020  3 00000 1 06736 VAL95  TXH VAL10,1       IF ANY        (DEC HAS FORTAGIX)               F2303820    
       07021  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2303835    
       07022 -0 53400 1 06674 TABSER LXD L(1500,1      SEARCH                                         F2303840    
       07023 -0 63400 2 07032        SXD TAB40,2              (6 - 2X NO SUB SYMBOLS     - VAL40)     F2303850    
       07024 -0 53400 2 06670 TAB10  LXD L(3),2        FORVAL                                         F2303860    
       07025  0 50000 1 06626        CLA 4VALZ+1,1     FOR AN                                         F2303870    
       07026  0 34000 2 06635 TAB20  CAS RSYM1+3,2     OCCURRANCE                                     F2303880    
       07027  0 02000 0 07031        TRA TAB30         OF ANY SYMBOL                                  F2303890    
       07030  0 02000 0 07036        TRA FOUND         IN THIS SC.                                    F2303900    
       07031  1 77777 2 07032 TAB30  TXI TAB40,2,-1                                                   F2303910    
 D     07032  3 00000 2 07026 TAB40  TXH TAB20,2                ( DEC LOADED FROM TABSER + 1)         F2303920    
       07033  1 77775 1 07034 TAB50  TXI TAB60,1,-3                                                   F2303930    
 D     07034  3 00000 1 07024 TAB60  TXH TAB10,1                      (DEC HAS FORVALIX)              F2303940    
       07035  0 02000 0 07001        TRA VAL60                                                        F2303950    
       07036 -0 63400 1 07053 FOUND  SXD FND10,1       IF SYMBOL FOUND,                               F2303960    
       07037 -0 53400 4 06630        LXD TAGIND,4      MAKE NORMAL OR SPECIAL                         F2303970    
       07040  0 50000 1 06625        CLA 4VALZ,1       ENTRY IN TSXCOM, DEPENDING                     F2303980    
       07041  3 00000 4 07054        TXH FND20,4,0     ON TAGIND. (UNLESS SEE SUBRT INDO)             F2303990    
       07042  0 60100 0 07112        STO FORNR                                                        F2304000    
       07043  0 07400 4 07064        TSX INDO,4                                                       F2304010    
       07044  0 02000 0 07062        TRA FND40         INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG F2304020    
       07045 -0 53400 1 07053        LXD FND10,1       RETURN FROM INDO WHEN NOT SO.                  F2304030    
       07046  0 50000 1 06625        CLA 4VALZ,1                                                      F2304040    
       07047  0 60100 0 07656        STO E1            SPECIAL ENTRY IF TAGIND                        F2304050    
       07050  0 50000 0 06626        CLA TAG           NOT ZERO                                       F2304060    
       07051  0 76700 0 00022        ALS 18                                                           F2304070    
       07052 -0 50100 0 06626        ORA TAG                                                          F2304080    
 D     07053 -3 00000 0 07057 FND10  TXL FND30,0                   (DEC HAS FORTAG IX)                F2304090    
       07054 -0 50100 0 06626 FND20  ORA TAG           SET UP E BLOCK WHEN TAGIND EQUAL  1            F2304100    
       07055  0 60100 0 07656        STO E1                                                           F2304110    
       07056  0 50000 0 06632        CLA RSYM1         TAG SYMBOL                                     F2304120    
       07057  0 60100 0 07657 FND30  STO E2                                                           F2304130    
       07060  0 50000 0 07662        CLA TSXCOM        TSXCOM KEY                                     F2304140    
       07061  0 07400 4 07620        TSX LIST,4                                                       F2304150    
       07062 -0 53400 1 07053 FND40  LXD FND10,1                                                      F2304160    
       07063  0 02000 0 07033        TRA TAB50         CONTINUE SEARCH                                F2304170    
                                         SUBRT INDO.... THIS ROUTINE DETERMINES  WHETHER THE FORVAL   F2304180    
                                         WHICH HAS BEEN FOUND TO HATCH A SUBSCRIPT FALLS WITHIN RANGE F2304190    
                                         OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS F2304200    
                                         MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED.     F2304210    
       07064 -0 53400 1 07113 INDO   LXD IND60,1                                                      F1004220    
       07065  0 02000 0 07101        TRA IND20 .                                                      F1004230    
       07066  0 50000 1 07570 IND10  CLA DOZ,1         OBTAIN FIRST WORD DOTAG.                       F2304240    
       07067  0 73400 2 00000        PAX 0,2           DOTAGS BETA.                                   F2304250    
       07070 -0 32000 0 06704        ANA DECMSK        DOTAGS ALPHA                                   F2304260    
       07071  0 34000 0 07112        CAS FORNR         AGAINST FORVAL ALPHA.                          F2304270    
       07072  0 02000 4 00002        TRA 2,4           OUTSIDE RANGE . RETURN.                        F2304280    
       07073  0 07400 4 00004        TSX DIAG,4  FORVAL ALPHA EQ DO ALPHA.   ERROR. GO TO DIAGNOSTIC. F2304295    
       07074 -0 75400 2 00000        PXD 0,2                                                          F2304300    
       07075  0 34000 0 07112        CAS FORNR         DOTAGS BETA AGAINST FORVAL ALPHA.              F2304310    
       07076  0 02000 0 07103        TRA IND30         FORVAL WITHIN RANGE                            F2304320    
       07077  0 02000 0 07103        TRA IND30         OF DOTAG.                                      F2304330    
       07100  1 77776 1 07101        TXI IND20,1,-2                                                   F2304340    
 D     07101  3 00000 1 07066 IND20  TXH IND10,1                                                      F2304350    
       07102  0 02000 4 00002        TRA 2,4           DOTAG EXHAUSTED, RETURN.                       F2304360    
       07103 -0 53400 2 06670 IND30  LXD L(3),2                                                       F2304370    
       07104  0 50000 1 07571        CLA DOZ+1,1       FN  EDIT CORR CD NR.                           F2304384    
       07105  0 34000 2 06635 IND40  CAS RSYM1+3,2     DOES DOTAG SYMBOL EQUAL                        F2304390    
       07106  0 02000 0 07110        TRA IND50         FORVAL SYMBOL (WHICH HAS BEEN FOUND            F2304400    
       07107  0 02000 4 00001        TRA 1,4           T0 EQUAL SUBSCRIPT). IF SO, RETURN.            F2304410    
       07110  2 00001 2 07105 IND50  TIX IND40,2,1                                                    F2304420    
       07111  1 77776 1 07101        TXI IND20,1,-2                                                   F2304430    
 A     07112  0 00000 0 00000 FORNR  HTR               STORAGE FOR FIRST WD FORVAL (ALPHA)            F2304440    
       07113  0 00454 0 00000 IND60      0,0,300                                                      F2304450    
                        07114 DO     BSS 1                                                            F2304460    
                        07115        BSS 299                                                          F2304470    
                        07570 DOZ    BSS 1                                                            F2304480    
                        06721        ORG 3537                                                         F2304490    
                                            MASTER RECORD CARD = FN041                                F2304495    
       06721 -0 53400 1 00733 BL3B   LXD FORTAG-1,1    FORTAG EMPTY                                   F2304500    
       06722  3 02733 1 07616        TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.          F2304515    
       06723 -0 76000 0 00143        MSE 99            TEST FOR EMPTY DOTAG                           F2304520    
       06724  0 02000 0 06727        TRA RDOTAG        OFF                                            F2304530    
       06725  0 76000 0 00143        PSE 99            ON, EMPTY                                      F2304540    
       06726  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2304555    
       06727 -0 53400 6 06671 RDOTAG LXD L(6),6        INITIALIZE ERROR COUNTERS.                     F2304562    
       06730  0 76400 0 00222 RDP0S  BST TAPE2         POSITION TAPE 2 FOR DOTAG                      F2304570    
       06731  0 76400 0 00222        BST TAPE2                                                        F2304580    
       06732  0 76200 0 00222        RDS TAPE2                                                        F2304590    
       06733  0 70000 0 06770        CPY RDES1                                                        F2304600    
       06734  0 70000 0 06771        CPY RDES2                                                        F2304610    
 A     06735  0 70000 0 00000        CPY                                                              F2304620    
       06736  0 07400 4 00004        TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304635    
       06737  0 07400 4 00004        TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304645    
       06740  0 50000 0 06770 RDREC  CLA RDES1                                                        F2304650    
       06741  0 40200 0 06771        SUB RDES2                                                        F2304660    
       06742  0 10000 0 06745        TZE RDBACK                                                       F2304670    
       06743  2 00001 4 06731        TIX RDP0S+1,4,1   ERROR - REREAD                                 F2304680    
       06744  0 07400 4 00004        TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304695    
       06745 -0 53400 1 06770 RDBACK LXD RDES1,1       NO RECORDS                                     F2304700    
       06746  1 00002 1 06747        TXI RDBST,1,2                                                    F2304710    
       06747  0 76400 0 00222 RDBST  BST TAPE2         8ACKSPACE DESIGNATED NO RECORDS                F2304720    
       06750  2 00001 1 06747        TIX RDBST,1,1                                                    F2304730    
       06751 -0 53400 1 06673        LXD L(1350,1      MAX SIZE DOTAG                                 F2304740    
       06752  0 76200 0 00222 RDRDS  RDS TAPE2                                                        F2304750    
       06753  0 70000 1 06377 RDCPY  CPY DOTAGZ,1      READ IN DOTAG                                  F2304760    
       06754  1 77777 1 06753        TXI RDCPY,1,-1                                                   F2304770    
       06755  0 02000 0 06757        TRA RDEOF                                                        F2304780    
       06756  0 02000 0 06752        TRA RDRDS                                                        F2304790    
       06757 -0 63400 1 03670 RDEOF  SXD DOTAG-1,1     DOTAG INDEX(1350-NO DOTAG ENTRIES)             F2304800    
       06760  0 76200 0 00222        RDS TAPE2         SPACE TAPE.                                    F2304810    
       06761  0 76200 0 00222        RDS TAPE2                                                        F2304820    
       06762  0 76600 0 00333        WRS 219                                                          F2304830    
       06763 -0 76000 0 00012        RTT                                                              F2304840    
       06764  0 02000 0 06766        TRA RDER          ON                                             F2304850    
       06765  0 02000 0 06772        TRA DOPASS                                                       F2304860    
       06766  2 00001 2 06730 RDER   TIX RDP0S,2,1     TRY TWICE MORE.                                F2304870    
       06767  0 07400 4 00004        TSX DIAG,4  TAPE 2, READING DOTAG.      ERROR. GO TO DIAGNOSTIC. F2304885    
 A     06770  0 00000 0 00000 RDES1  HTR               RECORD COUNT                                   F2304890    
 A     06771  0 00000 0 00000 RDES2  HTR               RECORD COUNT                                   F2304900    
       06772 -0 53400 1 03670 DOPASS LXD DOTAG-1,1     DOTAG INDEX.                                   F2304910    
       06773 -0 63400 1 07110        SXD SYM40,1       INITIALIZE.                                    F2304920    
       06774 -0 63400 1 07160        SXD SYM130,1      .                                              F2304930    
       06775 -0 63400 1 07222        SXD SYM220,1      .                                              F2304940    
       06776 -0 63400 1 07523        SXD TRAW20,1      .                                              F2304950    
       06777 -0 63400 1 07541        SXD TRAW50,1      .                                              F2304960    
       07000 -0 63400 1 07420        SXD SPC040,1      .                                              F2304970    
       07001 -0 63400 1 07455        SXD SPC090,1      .                                              F2304980    
       07002 -0 53400 1 00030        LXD NAME-1,1      .                                              F2304990    
       07003 -0 63400 1 07261        SXD GETN20,1      .                                              F2305000    
                                         THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON-       F2305010    
                                         NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMPINATIONF2305020    
                                         FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS    F2305030    
                                         RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INIT1ALIZED.     F2305040    
                                         CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY F2305050    
                                         IN FORTAG AND ALL OTHER N0N- NEGATIVE ENTRIES  CONTAINING    F2305060    
                                         THIS TAG ARE SET NEGATIVE.                                   F2305070    
       07004 -0 53400 1 00733 TAGPAS LXD FORTAG-1,1                                                   F2305080    
       07005 -0 63400 1 07601        SXD TINF30,1                                                     F2305090    
       07006 -0 63400 1 07073        SXD TAGP80,1                                                     F2305100    
       07007 -0 63400 1 07076        SXD TAGP98,1                                                     F2305110    
       07010 -0 53400 1 06674        LXD L(1500,1                                                     F2305120    
       07011  0 50000 1 03670 TAGP10 CLA FORTZ,1                                                      F2305130    
       07012 -0 12000 0 07075        TMI TAGP94        IF NEG, GET NEXT FORTAG                        F2305140    
       07013 -0 32000 0 06703        ANA ADDMSK        TAG                                            F2305150    
       07014  0 60100 0 06626        STO TAG                                                          F2305160    
       07015 -0 63400 1 07077        SXD TAGX,1        SAVE CURRENT FORTAG IX                         F2305170    
       07016  0 07400 4 07701        TSX SUBCOM,4      OBTAIN AND DISPERSE THE TAU TABLES.            F2305180    
       07017 -0 53400 4 06670        LXD L(3),4                                                       F2305190    
       07020 -0 75400 0 00000        PXD 0,0                                                          F2305200    
       07021  0 60100 4 06635 TAGP20 STO RSYM1+3,4     INITIALIZE RSYM LOCATIONS WITH ZERO.           F2305210    
       07022  2 00001 4 07021        TIX TAGP20,4,1                                                   F2305220    
       07023 -0 53400 1 06671        LXD L(6),1                                                       F2305230    
       07024 -0 53400 2 06670        LXD L(3),2                                                       F2305240    
       07025 -0 53400 4 06665        LXD L(0),4                                                       F2305250    
       07026  0 50000 1 06644 TAGP30 CLA S1+6,1        GET SYMBOL                                     F2305260    
       07027  0 10000 0 07041        TZE TAGP40        IF ZERO, GET NEXT SYMBOL                       F2305270    
       07030  3 00002 2 07037        TXH TAGP34,2,2    AT RSYM2 AND RSYM3 PASS,                       F2305280    
       07031  0 34000 0 06632        CAS RSYM1         CHECK FOR DUPLICATE SYMBOLS.                   F2305290    
       07032  0 02000 0 07034        TRA TAGP32                                                       F2305300    
       07033  1 00001 4 07041        TXI TAGP40,4,1    SYMBOL DUPLICATES RSYM1.                       F2305310    
       07034  0 34000 0 06633 TAGP32 CAS RSYM2                                                        F2305320    
       07035  0 02000 0 07037        TRA TAGP34                                                       F2305330    
       07036  1 00001 4 07041        TXI TAGP40,4,1    SYMBOL DUPLICATES RSYM2.                       F2305340    
       07037  0 60100 2 06635 TAGP34 STO RSYM1+3,2                                                    F2305350    
       07040  1 77777 2 07041        TXI TAGP40,2,-1   BUMP DELTA COUNTER.                            F2305360    
       07041  2 00002 1 07026 TAGP40 TIX TAGP30,1,2                                                   F2305370    
       07042 -0 75400 2 00000        PXD 0,2           COMPUTE                                        F2305380    
       07043 -0 76000 0 00003        SSM               DELTA AS NO                                    F2305390    
       07044  0 40000 0 06670        ADD L(3)          OF DISTINCT SYMBOLS.                           F2305400    
       07045  0 10000 0 07062        TZE TAGP50        CONSTANT SUBSCRIPT.                            F2305410    
       07046  0 60100 0 06631        STO DELTA                                                        F2305420    
       07047 -0 53400 2 06665        LXD L(0),2                                                       F2305430    
       07050  3 00000 4 07060        TXH TAGP45,4,0    IF DUPES, SET TAGIND TO ZERO                   F2305440    
       07051  0 40200 0 06666        SUB L(1)                                                         F2305450    
       07052 -0 10000 0 07060        TNZ TAGP45        IF DELTA OTHER THAN ONE, SET TAGIND TO ZERO    F2303460    
       07053  0 50000 0 06636        CLA S1                                                           F2305470    
       07054  0 10000 0 07060        TZE TAGP45        IF SUBSCRIPT CONSTANT, SET TAGIND TO ZERO      F2305480    
       07055 -0 53400 1 06635        LXD C1,1          IF COEFF OTHER THAN 1 SET TAGIND TO ZERO       F2305490    
       07056  3 00001 1 07060        TXH TAGP45,1,1                                                   F2305500    
       07057 -0 53400 2 06666        LXD L(1),2        OTHERWISE SET TAGIND TO ONE.                   F2305510    
       07060 -0 63400 2 06630 TAGP45 SXD TAGIND,2                                                     F2305520    
       07061  0 02000 0 07100        TRA SYMONE        GO TO ANALYZE DONESTI                          F2305530    
       07062 -0 53400 1 07077 TAGP50 LXD TAGX,1        IF ANY              .                          F2305540    
       07063  0 50000 1 03670 TAGP60 CLA FORTZ,1       OF THE AS YET UNTREATED                        F2305550    
       07064 -0 12000 0 07072        TMI TAGP70        FORTAGS                                        F2305560    
       07065 -0 32000 0 06703        ANA ADDMSK        ARE                                            F2305570    
       07066  0 40200 0 06626        SUB TAG           THE SAME AS THAT TAG                           F2305580    
       07067 -0 10000 0 07072        TNZ TAGP70        JUST TREATED,                                  F2305590    
       07070 -0 50000 0 06676        CAL L(MZ)         SET THEM                                       F2305600    
       07071 -0 60200 1 03670        ORS FORTZ,1       MINUS.                                         F2305610    
       07072  1 77777 1 07073 TAGP70 TXI TAGP80,1,-1                                                  F2305620    
 D     07073  3 00000 1 07063 TAGP80 TXH TAGP60,1                   ( DEC HAS FORTAG IX)              F2305630    
       07074 -0 53400 1 07077 TAGP90 LXD TAGX,1                                                       F2305640    
       07075  1 77777 1 07076 TAGP94 TXI TAGP98,1,-1   IF ALL OF FORTAG                               F2305650    
 D     07076  3 00000 1 07011 TAGP98 TXH TAGP10,1      HAS BEEN COMPLETED,   (DEC HAS FORTAG IX)      F2305660    
 D     07077 -3 00000 0 07616 TAGX   TXL NORMRT,0      NORMAL RET MONITOR. (DEC HAS  CURR FORTAG IX)  F2305675    
                                         ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS F2305680    
                                         SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE       F2305690    
                                         PROCESS SHOULD BE USED.                                      F2305700    
                                         IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2.          F2305710    
       07100 -0 53400 1 06673 SYMONE LXD L(1350,1                                                     F2305720    
       07101 -0 53400 2 06670 SYM10  LXD L(3),2                                                       F2305730    
       07102  0 50000 1 06400        CLA DOTAGZ+1,1    GET NEXT DOTAG SYMBOL.                         F2305740    
       07103  0 34000 2 06635 SYM20  CAS RSYM1+3,2     IS IT SAME AS SUBSCRIPT SYMBOL.                F2305750    
       07104  0 02000 0 07106        TRA SYM30                                                        F2305760    
       07105  0 02000 0 07112        TRA SYM50         YES                                            F2305770    
       07106  2 00001 2 07103 SYM30  TIX SYM20,2,1                                                    F2305780    
       07107  1 77767 1 07110        TXI SYM40,1,-9                                                   F2305790    
 D     07110  3 00000 1 07101 SYM40  TXH SYM10,1       END OF DOTAG, RETURN.                          F2305800    
       07111  0 02000 0 07062        TRA TAGP50                                                       F2305810    
       07112  0 50000 0 06632 SYM50  CLA RSYM1         INTERCHANGE THE                                F2305820    
       07113  0 56000 2 06635        LDQ RSYM1+3,2     MATCHING SUBSCRIPT                             F2305830    
       07114  0 60100 2 06635        STO RSYM1+3,2     SYMBOL WITH                                    F2305840    
       07115 -0 60000 0 06632        STQ RSYM1         RSYM1.                                         F2305850    
       07116  0 50000 1 06404        CLA DOTAGZ+5,1                                                   F2305860    
       07117 -0 32000 0 06704        ANA DECMSK        STORE LEVEL                                    F2305870    
       07120  0 60100 0 06647        STO LR1           OF                                             F2305880    
       07121  0 60100 0 06645        STO TL2           DOTAG                                          F2305890    
       07122 -0 63400 1 06646        SXD XR1,1         THIS DOTAG IS R1.                              F2305900    
       07123 -0 53400 4 06631        LXD DELTA,4       IF DELTA IS                                    F2305910    
       07124 -0 53400 2 06666        LXD L(1),2        ONE, THEN                                      F2305920    
       07125 -3 00001 4 07127        TXL SYM60,4,1     NO TRAWORD SKIP.                               F2305930    
       07126 -0 53400 2 06667        LXD L(2),2        OTHERWISE, TRAWORD SKIP,                       F2305940    
       07127  0 07400 4 07513 SYM60  TSX TRAWRD,4                                                     F2305950    
       07130 -0 63400 1 06650        SXD NEXTR1,1      SAVE INDEX LAST DOTAG HANDLED.                 F2305960    
       07131  0 10000 0 07135        TZE SYM70         ARE THERE TRANSFERS OUT(TRABITS).              F2305970    
       07132 -0 53400 1 06646        LXD XR1,1         YES. LOAD I.R. FOR MATCHING DOTAG.             F2305980    
       07133 -0 53400 2 06666        LXD L(1),2        A ONE TELLS PROCESS THAT                       F2305990    
       07134  0 07400 4 07236        TSX PROCES,4      CALLER WAS SYMONE. (B).                        F2306000    
       07135 -0 53400 4 06631 SYM70  LXD DELTA,4       NO TRANSFERS OUT (TRABITS)                     F2306010    
       07136 -3 00001 4 07142        TXL SYM80,4,1     IF DELTA IS GREATER THAN ONE, THEN             F2306020    
       07137 -0 53400 1 06646        LXD XR1,1         LOAD INDEX REG FOR MATCHING DOTAG,             F2306030    
       07140 -0 53400 2 06647        LXD LR1,2         AND LEVEL AND                                  F2306040    
       07141  0 02000 0 07144        TRA SYM2          GO TO SECOND LEVEL SEARCH.                     F2306050    
       07142 -0 53400 1 06650 SYM80  LXD NEXTR1,1      DELTA IS ONE,                                  F2306060    
       07143  0 02000 0 07110        TRA SYM40         CONTINUE FIRST LEVEL SEARCH.                   F2306070    
                                         ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS   F2306080    
                                         NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE    F2306090    
                                         IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY.                 F2306100    
       07144 -0 63400 2 07150 SYM2   SXD SYM100,2      INITIALIZE LEVEL TEST                          F2306110    
       07145  0 02000 0 07157        TRA SYM120                                                       F2306120    
       07146  0 50000 1 06404 SYM90  CLA DOTAGZ+5,1    GET LEVEL OF                                   F2306130    
       07147 -0 73400 2 00000        PDX 0,2           NEW DOTAG AND                                  F2306140    
 D     07150 -3 00000 2 07110 SYM100 TXL SYM40,2       TEST AGAINST LEVEL OF R1 AND                   F2306150    
       07151  0 50000 1 06400        CLA DOTAGZ+1,1    IF WITHIN RANGE OF R1,                         F2306160    
       07152  0 34000 0 06633        CAS RSYM2         TEST MATCH DOTAG SYMBOL AGAINST RSYM2.         F2306170    
       07153  0 02000 0 07155        TRA SYM110                                                       F2306180    
       07154  0 02000 0 07166        TRA SYM150        MATCHES . GO TO TREAT R2.                      F2306190    
       07155  0 40200 0 06634 SYM110 SUB RSYM3         DOESNT MATCH RSYM2, TRY RSYM3.                 F2306200    
       07156  0 10000 0 07162        TZE SYM140                                                       F2306210    
       07157  1 77767 1 07160 SYM120 TXI SYM130,1,-9   GET NEXT DOTAG                                 F2306220    
 D     07160  3 00000 1 07146 SYM130 TXH SYM90,1                 (DEC CONTAINS DOTAG IX)              F2306230    
       07161  0 02000 0 07110        TRA SYM40         IF END OF DOTAG, EXIT.                         F2306240    
       07162  0 50000 0 06633 SYM140 CLA RSYM2         DOTAG SYMBOL MATCHES RSYM3 -                   F2306250    
       07163  0 56000 0 06634        LDQ RSYM3         INTERCHANGE                                    F2306260    
       07164  0 60100 0 06634        STO RSYM3         RSYM2 AND                                      F2306270    
       07165 -0 60000 0 06633        STQ RSYM2         RSYM3.                                         F2306280    
       07166 -0 63400 1 06651 SYM150 SXD XR2,1         THIS DOTAG IS R2                               F2306290    
       07167 -0 63400 2 06652        SXD LR2,2         SAVE ITS LEVEL .                               F2306300    
       07170 -0 53400 2 06666        LXD L(1),2        IF DELTA IS                                    F2306310    
       07171 -0 53400 4 06631        LXD DELTA,4       TWO OR ONE, THEN                               F2306320    
       07172 -3 00002 4 07174        TXL SYM160,4,2    N0 TRAWORD SKIP.                               F2306330    
       07173 -0 53400 2 06667        LXD L(2),2        OTHERWISE TRAWORD SKIP.                        F2306340    
       07174  0 07400 4 07513 SYM160 TSX TRAWRD,4                                                     F2306350    
       07175 -0 63400 1 06653        SXD NEXTR2,1      SAVE INDEX LAST DOTAG HANDLED.                 F2306360    
       07176  0 10000 0 07202        TZE SYM170        ARE THERE TRANSFERS OUT (TRABITS)              F2306370    
       07177 -0 53400 1 06651        LXD XR2,1         YES. LOAD IX REG FOR MATCHING DOTAG.           F2306380    
       07200 -0 53400 2 06667        LXD L(2),2        A TWO TELLS PROCESS THAT                       F2306390    
       07201  0 07400 4 07236        TSX PROCES,4      CALLER WAS SYM2. (2).                          F2306400    
       07202 -0 53400 4 06631 SYM170 LXD DELTA,4       O0 TRANSFERS OUT (TRABITS)                     F2306410    
       07203 -3 00002 4 07207        TXL SYM180,4,2    IF DELTA IS 3 , THEN                           F2306420    
       07204 -0 53400 1 06651        LXD XR2,1         LOAD INDEX REG FOR MATCHING DOTAG.             F2306430    
       07205 -0 53400 2 06652        LXD LR2,2         AND LEVEL AND                                  F2306440    
       07206  0 02000 0 07211        TRA SYM3          GO TO THRID LEVEL SEARCH                       F2306450    
       07207 -0 53400 1 06653 SYM180 LXD NEXTR2,1      DELTA IS LESS THAN-THREE,                      F2306460    
       07210  0 02000 0 07160        TRA SYM130        CONTINUE SECOND LEVEL SEARCH.                  F2306470    
                                         ROUTINE  SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2306480    
                                         DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF     F2306490    
                                         NECESSARY, AND THEN RETURNS TO SYM2.                         F2306500    
       07211 -0 63400 2 07215 SYM3   SXD SYM200,2      INITIALIZE WITH LEVEL.OF R2.                   F2306510    
       07212  0 02000 0 07221        TRA SYM210                                                       F2306520    
       07213  0 50000 1 06404 SYM190 CLA DOTAGZ+5,1    OBTAIN LEVEL                                   F2306530    
       07214 -0 73400 2 00000        PDX 0,2           OF CURRENT DOTAG AND IF IT IS                  F2306540    
 D     07215 -3 00000 2 07160 SYM200 TXL SYM130,2      OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2)  F2306550    
       07216  0 50000 1 06400        CLA DOTAGZ+1,1    OTHERWISE CHECK FOR IDENTIRY                   F2306560    
       07217  0 40200 0 06634        SUB RSYM3         WITH THIRD FORTAG SYMBOL.                      F2306570    
       07220  0 10000 0 07224        TZE SYM230        IF  IDENTITY, GO TO ANALYZE . OTHERWISE,       F2306580    
       07221  1 77767 1 07222 SYM210 TXI SYM220,1,-9   GET NEXT DOTAG.                                F2306590    
 D     07222  3 00000 1 07213 SYM220 TXH SYM190,1      IF END OF DOTAG,  (DEC HAS DOTAG IX)           F2306600    
       07223  0 02000 0 07160        TRA SYM130        EXIT FROM THIRD LEVEL SEARCH                   F2306610    
       07224 -0 63400 1 06654 SYM230 SXD XR3,1         SAVE IX OF MATCHING DO                         F2306620    
       07225 -0 53400 2 06666        LXD L(1),2        NO TRAWORD SKIP.                               F2306630    
       07226  0 07400 4 07513        TSX TRAWRD,4      GO TO HUNT TRANSFERS-OUT.                      F2306640    
       07227  0 10000 0 07222        TZE SYM220        IF NO TRNSFRS OUT-(TRABITS) RETURN TO SRCH     F2306650    
       07230 -0 63400 1 06655        SXD NEXTR3,1      TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAWORDF2306660    
       07231 -0 53400 1 06654        LXD XR3,1                                                        F2306670    
       07232 -0 53400 2 06670        LXD L(3),2        THREE TELLS PROCESS THAT CALLER WAS SYM3       F2306680    
       07233  0 07400 4 07236        TSX PROCES,4                                                     F2306690    
       07234 -0 53400 1 06655        LXD NEXTR3,1      GET IX NEXT DOTAG AND                          F2306700    
       07235  0 02000 0 07222        TRA SYM220        CONTINUE THIRD LEVEL SEARCH.                   F2306710    
                                         ROUTINE PROCESS DETERHINES WHETHER OR NOT THERE EXISTS  A    F2306720    
                                         TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER  ITS     F2306730    
                                         TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG F2306740    
                                         IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS  F23067S0    
                                         BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIESF2306760    
                                         ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS.  F2306770    
       07236 -0 63400 1 07262 PROCES SXD DOX,1         SAVE DOTAG IX                                  F2306780    
       07237 -0 63400 4 07265        SXD SYMLNK,4      AND CALLER                                     F2306790    
       07240 -0 63400 2 07243        SXD PR10,2        AND INITIALIZE WITH B.                         F2306800    
       07241 -0 53400 2 06631        LXD DELTA,2                                                      F2306810    
       07242 -0 53400 4 06665        LXD L(0),4                                                       F2306820    
 D     07243  3 00000 2 07245 PR10   TXH PR20,2        DOES DELTA EXCEED B.  (DEC HAS B)              F2306830    
       07244 -0 53400 4 06666        LXD L(1),4        IF NOT, THEN NO SKIP. OTHERWISE,               F2306840    
       07245 -0 63400 4 06656 PR20   SXD SKIP,4        SXIP IF C(SKIP)=0.                             F2306850    
       07246 -0 53400 4 06630        LXD TAGIND,4      TRA IF SPECIAL CASE, I.E., MOST SIMPLE         F2306860    
       07247  3 00000 4 07317        TXH PRSPEC,4,0    (TAGIND NOT ZERO)                              F2306870    
       07250  0 50000 1 06377        CLA DOTAGZ,1      SEARCH TABLE NAME                              F2306880    
       07251 -0 32000 0 06704        ANA DECMSK        GET RSYM1 DOTAG ALPHA IN DEC                   F2306890    
       07252  0 40000 0 06626        ADD TAG           AND FORTAG IN ADDRESS.                         F2306900    
       07253 -0 53400 1 06711 GETNAM LXD NAMAX,1       LOAD MAX NO NAME TABLE WORDS                   F2306910    
       07254  0 02000 0 07261        TRA GETN20                                                       F2306920    
       07255  0 34000 1 00733 GETN05 CAS NAMZ,1        DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE   F2306930    
       07256  0 02000 0 07260        TRA GETN10        FIRST WORD OF NAME TABLE MATCH THOSE ABOVE.    F2306940    
       07257  0 02000 0 07263        TRA GETN30        YES.                                           F2306950    
       07260  1 77775 1 07261 GETN10 TXI GETN20,1,-3   NO, GET NEXT NAME TABLE.                       F2306960    
 D     07261  3 00000 1 07255 GETN20 TXH GETN05,1      IS NAME TABLE EXHAUSTED  (DEC HAS NAME IX)     F2306970    
 D     07262 -3 00000 0 07266 DOX    TXL PR25,0        YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAGF2306980    
       07263  0 50000 1 00734 GETN30 CLA NAMZ+1,1      FOUND. OBTAIN NEW TAG NAME                     F2306990    
       07264  0 60100 0 06627        STO TS            AND SAVE IT.                                   F2307000    
 D     07265 -3 00000 0 07313 SYMLNK TXL PR80,0                                                       F2307010    
       07266 -0 53400 4 06656 PR25   LXD SKIP,4        NOT FOUND IN NAME TABLE,                       F2307020    
       07267 -0 53400 1 07262        LXD DOX,1         SEARCH FORTAG                                  F2307030    
       07270  3 00000 4 07275        TXH PR30,4,0      IN PROPER RANGE.                               F2307040    
       07271 -0 53400 2 06666        LXD L(1),2        INDICATE TINFOR SEARCH REQUIRED                F2307050    
       07272  0 07400 4 07401        TSX SPC000,4                                                     F2307060    
       07273  0 02000 0 07277        TRA PR40          NOT FOUND                                      F2307070    
       07274  0 02000 0 07315        TRA PR90          T FOUND                                        F2307080    
       07275  0 07400 4 07564 PR30   TSX TINFOR,4                                                     F2307090    
       07276  0 02000 0 07315        TRA PR90          FOUND, GO TO EXIT.                             F2307100    
       07277 -0 53400 2 06665 PR40   LXD L(0),2        T NOT FOUND, MAKE TYPE 6                       F2307110    
       07300  0 07400 4 07336        TSX TRAENT,4      TRASTO ENTRY                                   F2307120    
                                         MAKE ENTRY IN TABLE IRV                                      F2307130    
       07301 -0 53400 1 06664 PR60   LXD IRVXX,1       GET IX FOR ENTRY IN TABLE IRV.                 F2307140    
       07302  3 00000 1 07304        TXH PR70,1,0                                                     F2307150    
       07303  0 07400 4 00004        TSX DIAG,4  TABLE IRV FULL.             ERROR. GO TO DIAGNOSTIC. F2307165    
       07304  0 50000 0 06626 PR70   CLA TAG           PLACE TAG IN                                   F2307170    
       07305  0 76700 0 00022        ALS 18            DECREMENT AND                                  F2307180    
       07306  0 40000 0 06626        ADD TAG           ADDRESS AND                                    F2307190    
       07307  0 60100 1 06625        STO IRVZ,1        STORE ENTRY IN TABLE IRV                       F2307200    
       07310  1 77777 1 07311        TXI PR75,1,-1     BUMP IRV TABLE INDEX AND                       F2307210    
       07311 -0 63400 1 06664 PR75   SXD IRVXX,1       SAVE IT FOR NEXT ENTRY.                        F2307220    
       07312  0 02000 0 07315        TRA PR90                                                         F2307230    
       07313 -0 53400 2 06666 PR80   LXD L(1),2        MAKE TYPE ONE TRASTO ENTRY                     F2307240    
       07314  0 07400 4 07336        TSX TRAENT,4                                                     F2307250    
       07315 -0 53400 4 07265 PR90   LXD SYMLNK,4      RESTORE INDEX REG                              F2307260    
       07316  0 02000 4 00001        TRA 1,4           AND RETURN T0 CALLER                           F2307270    
                                         ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2307280    
                                         RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE)               F2307290    
       07317  0 50000 1 06407 PRSPEC CLA DOTAGZ+8,1    IF  DOTAGS                                     F2307300    
       07320  0 77100 0 00022        ARS 18            TEST NAME                                      F2307310    
       07321  0 40200 0 06626        SUB TAG           IS SAME AS                                     F2307320    
       07322 -0 10000 0 07331        TNZ PR100         CURRENT FORTAG                                 F2307330    
       07323  0 50000 0 06700        CLA BIT18         AND IF                                         F2307340    
       07324 -0 32000 1 06405        ANA DOTAGZ+6,1    THERE IS A                                     F2307350    
       07325  0 10000 0 07315        TZE PR90                                                         F2307360    
       07326 -0 53400 2 06670        LXD L(3),2        MAKE A TYPE 5 TRASTO ENTRY                     F2307370    
       07327  0 07400 4 07336        TSX TRAENT,4                                                     F2307380    
       07330  0 02000 0 07315        TRA PR90                                                         F2307390    
       07331  0 07400 4 07564 PR100  TSX TINFOR,4      LOOK FOR ALREADY PROCESSED IDENT FORTAG.       F2307400    
       07332  0 02000 0 07315        TRA PR90          FOUND.                                         F2307410    
       07333 -0 53400 2 06667        LXD L(2),2        NOT FOUND, MAKE A TYPE 1 TRASTO                F2307420    
       07334  0 07400 4 07336        TSX TRAENT,4      ENTRY                                          F2307430    
       07335  0 02000 0 07315        TRA PR90                                                         F2307440    
                                         MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN      F2307450    
                                         B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE   F2307460    
                                         SIX TRASTO ENTRY WHEN B IS ZERO.                             F2307470    
       07336 -0 63400 4 07375 TRAENT SXD TE70,4                                                       F2307480    
       07337 -0 53400 1 07262        LXD DOX,1                                                        F2307490    
       07340  0 50000 1 06377        CLA DOTAGZ,1      GET DOTAGS ALPHA AND BETA                      F2307300    
       07341 -3 00002 2 07343        TXL TE10,2,2      WHERE B IS 3 (TYPE5)                           F2307510    
       07342 -0 76000 0 00003        SSM               SET E1 NEG.                                    F2307520    
       07343  0 60100 0 07656 TE10   STO E1            AND STORE IN E1.                               F2307530    
       07344  0 50000 0 06645        CLA TL2           GET LEVEL OF DOTAG                             F2307540    
       07345  0 77100 0 00022        ARS 18            INTO ADDRESS AND                               F2307550    
       07346  3 00000 2 07350        TXH TE20,2,0      WHERE B ZERO (TYPE 6),                         F2307560    
       07347 -0 76000 0 00003        SSM               SET NEG AND                                    F2307570    
       07350  0 60100 0 07657 TE20   STO E2            PUT IT INTO E2.                                F2307580    
       07351 -3 00001 2 07361        TXL TE40,2,1      WHERE B 2OR3 (TYPE 1 OR 5),                    F2307590    
       07352  0 50000 1 06407        CLA DOTAGZ+8,1    PREPARE DOTAGS                                 F2307600    
       07353 -0 32000 0 06704        ANA DECMSK        TEST NAME .                                    F2307610    
       07354  3 00002 2 07357        TXH TE30,2,2      IF B 2 (TYPE 1)                                F2307620    
       07355 -0 50100 0 06626        ORA TAG           PREPARE FORTAG INDEX AND                       F2307630    
       07356  0 02000 0 07367        TRA TE60          GO TO STORE IN E3.                             F2307640    
       07357 -0 50100 1 06401 TE30   ORA DOTAGZ+2,1    WHERE B IS 3, (TYPE 3) PREPARE DOTAGS          F2307650    
       07360  0 02000 0 07366        TRA TE50          PARAMETER N1.                                  F2307660    
       07361  0 50000 0 06626 TE40   CLA TAG           WHERE B ZERO OR 1 (TYPE 1), GET FORTAG         F2307670    
       07362 -3 00000 2 07366        TXL TE50,2,0      AND WHEN ONE,                                  F2307680    
       07363  0 76700 0 00022        ALS 18            PUT IN DEC WITH                                F2307690    
       07364  0 40000 0 06627        ADD TS            NEW TAG NAME IN ADDRESS.                       F2307700    
       07365  0 02000 0 07367        TRA TE60                                                         F2307710    
       07366 -0 76000 0 00003 TE50   SSM               SET MINUS FOR B ZERO OR 3 (TYPE 6OR5)          F2307720    
       07367  0 60100 0 07660 TE60   STO E3            AND STORE IN E3, FINALLY.                      F2307730    
       07370 -0 50000 0 07663        CAL TRASTO        GET TRASTO KEY WORD.                           F2307740    
       07371 -0 53400 2 06667        LXD L(2),2        INDICATE TINFOR SEARCH NOT REQUIRED            F2307750    
       07372 -0 53400 4 06656        LXD SKIP,4                                                       F2307760    
       07373  3 00000 4 07376        TXH TE80,4,0      IF  SKIP IS 1 (DELTA GREATER THEN B),          F2307770    
       07374  0 07400 4 07401        TSX SPC000,4      GO TO SPC.                                     F2307780    
 D     07375 -3 00000 0 07377 TE70   TXL TE90,0                (DEC SAVES TSXLINK)                    F2307790    
       07376  0 07400 4 07620 TE80   TSX LIST,4        GO TO LIST KF SKIP IS ZERO.                    F2307800    
       07377 -0 53400 4 07375 TE90   LXD TE70,4        RETURN FROM LIST.                              F2307810    
       07400  0 02000 4 00001        TRA 1,4           RETURN TO CALLER.                              F2307820    
                                         SUBROUTINE SPC000                                            F2307830    
       07401 -0 63400 1 07473 SPC000 SXD SPC115,1      SAVE INDEX OF DO TO BE SEARCHED.               F2307840    
       07402 -0 63400 2 07446        SXD SPC060,2      SAVE TINFOR, LIST INDICATOR                    F2307850    
       07403 -0 63400 4 07463        SXD SPC105,4      SAVE TSX INDEX.                                F2307860    
       07404  0 60100 0 07512        STO SPCKEY        SAVE LIST KEY WORD                             F2307870    
       07405  0 50000 1 06404        CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2307880    
       07406  0 62200 0 07423        STD SPC050        INITIALIZE TEST INSTR.                         F2307890    
       07407  0 50000 1 06377        CLA DOTAGZ,1      OBTAIN ALPHABETA WRD,                          F2307900    
       07410  0 73400 2 00000        PAX 0,2           SAVE BETA,                                     F2307910    
       07411 -0 32000 0 06704        ANA DECMSK        OBTA1N ALPHA ALONE                             F2307920    
       07412  0 60100 0 06660        STO NEXTA         STO IN NEXTA                                   F2307930    
       07413  0 60100 0 06662        STO A             AND STORE IN A.                                F2307940    
       07414 -0 75400 2 00000        PXD 0,2           PUT BETA IN LASTB AND                          F2307950    
       07415  0 60100 0 06661        STO LASTB         BEGIN SEARCH FOR R2                            F2307960    
       07416 -0 53400 1 07473 SPC010 LXD SPC115,1      OBTAIN CURRENT INDEX AND                       F2307970    
       07417  1 77767 1 07420 SPC020 TXI SPC040,1,-9   GO DOWN ONE DO, IF POSSIBLE, ELSE              F2307980    
 D     07420 -3 00000 1 07464 SPC040 TXL SPC110,1      GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX) F2307990    
       07421  0 50000 1 06404        CLA DOTAGZ+5,1    TEST WHETHER OR NOT THIS DO                    F2308000    
       07422 -0 73400 2 00000        PDX 0,2           IS IN RANGE OF R1(DXL)                         F2308010    
 D     07423 -3 00000 2 07464 SPC050 TXL SPC110,2      IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO)     F2308020    
       07424  0 50000 1 06400        CLA DOTAGZ+1,1    IF IN R1, IS THIS DO T0 BE                     F2308030    
       07425  0 40200 0 06634        SUB RSYM3         SKIPPED. IF NOT, GO BACK TO                    F2308040    
       07426  0 10000 0 07432        TZE SPC053        GET NEXT DO.                                   F2308050    
       07427  0 50000 1 06400        CLA DOTAGZ+1,1                                                   F2308060    
       07430  0 40200 0 06633        SUB RSYM2                                                        F2308070    
       07431 -0 10000 0 07417        TNZ SPC020                                                       F2308080    
       07432  0 50000 1 06377 SPC053 CLA DOTAGZ,1      R2 FOUND, ARRANGE T0 SKIP THIS                 F2308090    
       07433  0 73400 2 00000        PAX 0,2           INTERVAL. USE ALPHA OF R2                      F2308100    
       07434 -0 32000 0 06704        ANA DECMSK        AS B, PUT BETA OF R2 IN                        F2308110    
       07435  0 60100 0 06663        STO B             NEXTA.                                         F2308120    
       07436 -0 75400 2 00000        PXD 0,2           DO FORMULAS WITHIN R2 ARE                      F2308130    
       07437  0 60100 0 06660        STO NEXTA         ACCOUNTED FOR AFTER SEARCH.                    F2308140    
       07440 -0 63400 1 07473        SXD SPC115,1      SAVE INDEX OF R2.                              F2308150    
       07441 -0 53400 2 07446 SPC055 LXD SPC060,2      PUT TINFOR, LIST IND. IN XRB                   F2308160    
       07442  0 50000 0 06662 SPC058 CLA A             FOR                                            F2308170    
       07443  0 40200 0 06663        SUB B             NON EMPTY                                      F2308180    
       07444  0 10000 0 07447        TZE SPC065        INTERVALS,                                     F2308190    
       07445 -3 00001 2 07500        TXL SPCTIN,2,1    GO TO ARRANGE TINFOR SEARCH, OR                F2308200    
 D     07446 -3 00000 0 07503 SPC060 TXL SPCST0,0      TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210    
       07447 -0 53400 2 07446 SPC065 LXD SPC060,2      RETURN HERE, TEST TINFOR                       F2308220    
       07450 -3 00000 2 07474        TXL SPC120,2,0    LIST IND. IF ZERO, EXIT.                       F2308230    
       07451 -0 53400 1 07473 SPC070 LXD SPC115,1      TO SET UP NEXT INTERVAL,                       F2308240    
       07452  0 50000 1 06404        CLA DOTAGZ+5,1    OBTAIN INDEX OF LAST R2 AND                    F2308250    
       07453  0 62200 0 07460        STD SPC100        STEP DOWN IN DOTAG BY USUAL                    F2308260    
       07454  1 77767 1 07455 SPC080 TXI SPC090,1,-9   PROCEDURE UNTIL SOME DO IS                     F2308270    
 D     07455 -3 00000 1 07464 SPC090 TXL SPC110,1      FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX)   F2308280    
       07456  0 50000 1 06404        CLA DOTAGZ+5,1    DOTAG EXHAUSTED. IF DO FOUND                   F2308290    
       07457 -0 73400 2 00000        PDX 0,2           NOT IN R2, SET A AND GO TO TEST                F2308300    
 D     07460  3 00000 2 07454 SPC100 TXH SPC080,2      IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO)  F2308310    
       07461  0 50000 0 06660        CLA NEXTA         IF IT IS, NEWR2 WILL BE FOUND                  F2308320    
       07462  0 60100 0 06662        STO A             OR EXIT MADE TO SPC110.                        F2308330    
 D     07463 -3 00000 0 07423 SPC105 TXL SPC050,0                                                     F2308340    
       07464  0 50000 0 06660 SPC110 CLA NEXTA         THIS IS SETUP FOR LAST                         F2308350    
       07465  0 60100 0 06662        STO A             INTERVAL. FOR A, USE                           F2308360    
       07466  0 50000 0 06661        CLA LASTB         CONTENTS OF NEXTA. FOR B,                      F2308370    
       07467  0 60100 0 06663        STO B             USE BETA OF R1, FOUND IN                       F2308380    
       07470 -0 53400 2 07446        LXD SPC060,2      LASTB. OBTAIN TINFOR, STOTAG                   F2308390    
       07471  0 50000 0 06665        CLA L(0)          IND, AND SET LOCATION OF                       F2308400    
       07472  0 62200 0 07446        STD SPC060        INDICATOR T0 ZERO. GO TO                       F2308410    
 D     07473 -3 00000 0 07442 SPC115 TXL SPC058,0      TINFOR OR TRASTO. (DEC HAS DOTAG IX)           F2308420    
       07474 -0 53400 4 07463 SPC120 LXD SPC105,4      EXIT, ALL STORES DONE, OR,                     F2308430    
       07475  0 02000 4 00001        TRA 1,4           SEARCH MADE, T NOT FOUND.                      F2308440    
       07476 -0 53400 4 07463 SPC130 LXD SPC105,4      EXIT,T FOUND                                   F2308450    
       07477  0 02000 4 00002        TRA 2,4           IN SOME INTERVAL                               F2308460    
       07500  0 07400 4 07572 SPCTIN TSX TINFXX,4      GO TO SEARCH FORTAG                            F2308470    
       07501  0 02000 0 07476        TRA SPC130        T FOUND                                        F2308480    
       07502  0 02000 0 07447        TRA SPC065        T NOT FOUND                                    F2308490    
       07503  0 50000 0 06663 SPCST0 CLA B             FOR TRASTO, E2 AND E3 ARE                      F2308500    
       07504  0 77100 0 00022        ARS 18            ALREADY SET UP, COLLECT                        F2308510    
       07505  0 40000 0 06662        ADD A             A AND B INTO E1 WORD,                          F2308520    
       07506  0 60100 0 07656        STO E1            PUT TRASTO INDICATOR IN                        F2308530    
       07507  0 50000 0 07512        CLA SPCKEY        ACC. AND                                       F2308540    
       07510  0 07400 4 07620        TSX LIST,4        TSX TO LISTING ROUTINE.                        F2308550    
       07511  0 02000 0 07447        TRA SPC065        ON RETURN, GO TO TEST FINISH.                  F2308560    
 A     07512  0 00000 0 00000 SPCKEY HTR               STORAGE FOR TABLEKEY                           F2308570    
                                          SUBROUTINE TRAWRD                                           F2308580    
       07513 -0 63400 4 07545 TRAWRD SXD TRAW65,4                                                     F2308590    
       07514  0 50000 0 06665        CLA L(0)                                                         F2308600    
       07515  0 60100 0 06657        STO TRABIT        INITIALIZE.                                    F2308610    
       07516  0 50000 1 06404        CLA DOTAGZ+5,1    LEVEL OF DOTAG                                 F2308620    
       07517  0 62200 0 07526        STD TRAW30                                                       F2308630    
       07520 -0 50000 1 06406 TRAW10 CAL DOTAGZ+7,1    OBTAIN T2 WORD.                                F2308640    
       07521 -0 60200 0 06657        ORS TRABIT        OR INTO TRABIT                                 F2308650    
       07522  1 77767 1 07523        TXI TRAW20,1,-9   TAKE NEXT DO                                   F2308660    
 D     07523 -3 00000 1 07546 TRAW20 TXL TRAW70,1      IF NONE, EXIT (DEC HAS DOTAG IX)               F2308670    
       07524  0 50000 1 06404        CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2308680    
       07525 -0 73400 4 00000        PDX 0,4           PUT L IN XRC.                                  F2308690    
 D     07526 -3 00000 4 07546 TRAW30 TXL TRAW70,4      EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO)  F2308700    
       07527 -3 00001 2 07520        TXL TRAW10,2,1    IF COMPLETE TEST, GO BACK (NO TRAWORD SKIP)    F2308710    
       07530  0 50000 1 06400 TRAW35 CLA DOTAGZ+1,1    IF INCOMPLETE TEST, IS THIS A                  F2308720    
       07531  0 40200 0 06633        SUB RSYM2         DO TO BE SKIPPED                               F2308730    
       07532  0 10000 0 07536        TZE TRAW38        IF SO, GO TO TRAW38                            F2308740    
       07533  0 50000 1 06400        CLA DOTAGZ+1,1    TEST RSYM3                                     F2308750    
       07534  0 40200 0 06634        SUB RSYM3         IF NO SKIP                                     F2308760    
       07535 -0 10000 0 07520        TNZ TRAW10        GO BACK.                                       F2308770    
       07536  0 50000 1 06404 TRAW38 CLA DOTAGZ+5,1    THIS DO IS TO BE SKIPPED.                      F2308780    
       07537  0 62200 0 07544        STD TRAW60        PUT LEVEL OF THIS DO IN TEST INSTR,            F2308790    
       07540  1 77767 1 07541 TRAW40 TXI TRAW50,1,-9   TAKE NEXT DO IF ANY                            F2308800    
 D     07541 -3 00000 1 07546 TRAW50 TXL TRAW70,1      IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX)       F2308810    
       07542  0 50000 1 06404        CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2308820    
       07543 -0 73400 4 00000        PDX 0,4           PUT L IN XRC                                   F2308830    
 D     07544  3 00000 4 07540 TRAW60 TXH TRAW40,4      IF DO IS IN RANGE OF R2, GO BACK.              F2308840    
 D     07545 -3 00000 0 07526 TRAW65 TXL TRAW30,0      OTHERWISE, GO TO TRAW30                        F2308850    
       07546 -0 53400 4 07545 TRAW70 LXD TRAW65,4                                                     F2308860    
       07547  0 50000 0 06672        CLA L(36)         OBTAIN 36 IN DECREMENT                         F2308870    
       07550  0 40200 0 06645        SUB TL2           36-TL2 (LEVEL OF DOTAG)                        F2308880    
       07551  0 77100 0 00022        ARS 18            IN ADDRESS                                     F23A1190    
       07552  0 62100 0 07561        STA TRAW90        INITIALIZE SHIFT                               F2308900    
       07553  0 50000 0 06645        CLA TL2           OBTAIN TL2                                     F2308910    
       07554  0 77100 0 00022        ARS 18            IN ADDRESS                                     F2308920    
       07555  0 62100 0 07560        STA TRAW80        INITIALIZE SHIFT                               F2308930    
       07556  0 50000 0 06665        CLA L(0)          ACC CONTAINS ZERO                              F2308940    
       07557  0 56000 0 06702        LDQ 35ONES        MQ CONTAINS ALL ONES                           F2308950    
 A     07560  0 76300 0 00000 TRAW80 LLS               PUT TL2 ONES IN ACC (LEV. DOTAG)               F2308960    
 A     07561  0 76700 0 00000 TRAW90 ALS               POSITION ONES IN ACC                           F2308970    
       07562 -0 32000 0 06657        ANA TRABIT        AND IN TRANSFER BITS                           F2308980    
       07563  0 02000 4 00001        TRA 1,4           GO BACK TO CALLING INSTR PLUS ONE.             F2308990    
                                         SUBROUTINES TINFOR AND TINFXX                                F2309000    
       07564  0 50000 1 06377 TINFOR CLA DOTAGZ,1      C(XRA)=INDEX OF DO TO BE                       F2309010    
       07565  0 73400 1 00000        PAX 0,1           SEARCHED. SEPARATE ALPHA                       F2309020    
       07566 -0 32000 0 06704        ANA DECMSK        AND BETA                                       F2309030    
       07567  0 60100 0 06662        STO A             AND STORE IN A                                 F2309040    
       07570 -0 75400 1 00000        PXD 0,1                                                          F2309050    
       07571  0 60100 0 06663        STO B             B                                              F2309060    
       07572 -0 53400 1 06674 TINFXX LXD L(1500,1      PUT MAX FORTAG INDEX IN XRA                    F2309070    
       07573  0 50000 1 03670 TINF10 CLA FORTZ,1       OBTAIN FORTAG ENTRY                            F2309080    
       07574 -0 32000 0 06704        ANA DECMSK        RETAIN FORMULA NUMBER 0NLY                     F2309090    
       07575  0 34000 0 06662        CAS A             COMPARE ALPHA AND FORMULA NR.                  F2309100    
       07576  0 02000 0 07603        TRA TINF40        FOR, NR. GREATER THAN ALPHA. TRA.              F2309110    
       07577  0 76100 0 00000        NOP               C(A) MAY BE SOME BETA FROM SPC, HENCE, NO HALT.F2309120    
       07600  1 77777 1 07601 TINF20 TXI TINF30,1,-1   FOR. NR. LESS THAN ALPHA. GO                   F2309130    
                                                       BACK FOR NEXT FORTAG ENTRY                     F2309140    
 D     07601  3 00000 1 07573 TINF30 TXH TINF10,1      IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX)    F2309150    
       07602  0 02000 4 00002        TRA 2,4           RETURN TO CALLING INSTR PLUS TWO.              F2309160    
       07603  0 34000 0 06663 TINF40 CAS B             COMPARE FOR, NR. WITH BETA                     F2309170    
       07604  0 02000 4 00002        TRA 2,4           FOR. NR. GREATER THAN BETA, EXIT.              F2309180    
       07605  0 76100 0 00000        NOP               FOR. NR. EQUAL TO OR                           F2309190    
       07606  0 50000 1 03670        CLA FORTZ,1       LESS THAN BETA, OBTAIN FORTAG                  F2309200    
       07607  0 12000 0 07600        TPL TINF20        TAG AND COMPARE WITH SEARCH TAG.               F2309210    
       07610 -0 32000 0 06703        ANA ADDMSK        I.F. NOT EQUAL, GO BACK FOR NEXT TAG           F2309220    
       07611  0 40200 0 06626        SUB TAG                                                          F2309230    
       07612 -0 10000 0 07600        TNZ TINF20        IF EQUAL, RETURN TO CALLING                    F2309240    
       07613  0 02000 4 00001        TRA 1,4           INSTR PLUS ONE. XRA CONTAINS IX IN FORTAG OF   F2309250    
                                                       FIRST TAG FOUND                                F2309260    
                        06721        ORG 3537                                                         F2309270    
                                            MASTER RECORD CARD = FN043                                F2309275    
       06721 -0 53400 1 00733 BL3C   LXD FORTAG-1,1    IF FORTAG IS EMPTY,                            F2309280    
       06722  3 02733 1 07164        TXH WRTIRV,1,1499 GO TO WRITE IRV                                F2309290    
                                         READ IN TSXCOM                                               F2309300    
       06723 -0 53400 4 06671 RDTSX  LXD L(6),4        INITIALIZE ERROR COUNTER                       F2309312    
       06724  0 50000 0 07667 RTSX10 CLA LADDS         COMPUTE NUMBER                                 F2309320    
       06725  0 40200 0 06716        SUB TSXORG        OF TSXCOM ENTRIES                              F2309330    
       06726  0 73400 1 00000        PAX 0,1           AND                                            F2309340    
       06727 -0 63400 1 00030        SXD TCOM-1,1      SAVE.                                          F2309350    
       06730  0 10000 0 06763        TZE RTSX60        IF EMPTY, GO TO EXIT.                          F2309360    
       06731  0 40000 0 06717        ADD TCOMAD        OTHERWISE, COMPUTE TERMINAL CORE ADDRESS       F2309370    
       06732  0 62100 0 06735        STA RTSX20        AND INITIALIZE CPY ADDRESS THEREWITH.          F2309380    
       06733  0 76200 0 00303        RDS 195           DRUM 3                                         F2309390    
       06734  0 46000 0 06716        LDA TSXORG        ORIG OF TSXCOM TABLES ON DRUM                  F2309400    
       06735  0 70000 1 00000 RTSX20 CPY 0,1           READ TSXCOM (ADD HAS TERM CORE ADD TSXCOMP     F2309410    
       06736  2 00001 1 06735        TIX RTSX20,1,1    TABLES .                                       F2309420    
       06737 -0 53400 1 00030        LXD TCOM-1,1      COMPUTE                                        F2309430    
       06740 -0 75400 1 00000        PXD 0,1           NUMBER  OF                                     F2309440    
       06741 -0 76000 0 00003        SSM               UNFILLED TSXCOM TABLE                          F2309450    
       06742  0 40000 0 06720        ADD TCOMAX        SPACES,                                        F2309460    
       06743  0 60100 0 00030        STO TCOM-1        SAVE,                                          F2309470    
       06744  0 62200 0 06756        STD RTSX30        AND INITIALIZE.                                F2309480    
       06745 -0 53400 1 06720        LXD TCOMAX,1      COMPUTE                                        F2309490    
       06746 -0 50000 1 01407 RTSX25 CAL TCOMZ,1       CHECK                                          F2309500    
       06747  0 36100 1 01410        ACL TCOMZ+1,1     SUM FOR EACH TABLE ENTRY                       F2309510    
       06750  0 60200 0 06760        SLW RTSX40        AND COMPARE                                    F2309520    
       06751  0 50000 0 06760        CLA RTSX40        AGAINST                                        F2309530    
       06752  0 40200 1 01411        SUB TCOMZ+2,1     GIVEN SUM.                                     F2309540    
       06753  0 76100 0 00000        NOP                                                              F2309550    
       06754 -0 10000 0 06761        TNZ RTSX50        ERROR.                                         F2309560    
       06755  1 77775 1 06756        TXI RTSX30,1,-3                                                  F2309570    
 D     06756  3 00000 1 06746 RTSX30 TXH RTSX25,1      IF COMPLETE,  (DEC HAS UNUSED TSXCOM BUFFER)   F2309580    
       06757  0 02000 0 06766        TRA SORT          GO TO SORT.                                    F2309590    
 A     06760  0 00000 0 00000 RTSX40 HTR                                                              F2309600    
       06761  2 00001 4 06724 RTSX50 TIX RTSX10,4,1    GO BACK TO REREAD                              F2309610    
       06762  0 07400 4 00004        TSX DIAG,4  READING TSXCOM FROM DRUM3.  ERROR. GO TO DIAGNOSTIC. F2309625    
       06763  0 50000 0 06720 RTSX60 CLA TCOMAX        IF TSXCOM EMPTY PUT MAX N0                     F2309630    
       06764  0 60100 0 00030        STO TCOM-1        TSXCOM ENTRIES IN KEY WORD AND                 F2309640    
       06765  0 02000 0 07053        TRA IRVSRT        EXIT.                                          F2309650    
                                         SORT TSXCOM                                                  F2309660    
       06766 -0 76000 0 00144 SORT   MSE LIGHT         TURN OFF LIGHT                                 F2309670    
       06767  0 76100 0 00000        NOP                                                              F2309680    
       06770 -0 53400 1 00030        LXD TCOM-1,1      INITIALIZE                                     F2309690    
       06771  1 00003 1 06772        TXI SORT10,1,3                                                   F2309700    
       06772  3 01353 1 07034 SORT10 TXH MAKIRV,1,747  IS THERE ONLY ONE ENTRY IN TSXCOM.             F2309710    
       06773 -0 63400 1 07025        SXD SORT80,1      INITIALIZE                                     F2309720    
       06774 -0 53400 1 06720 SORT20 LXD TCOMAX,1                                                     F2309730    
       06775  0 50000 1 01407 SORT30 CLA TCOMZ,1       OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA)  F2309740    
       06776  0 34000 1 01412        CAS TCOMZ+3,1     COMPARE IT AGAINST SECOND ENTRY                F2309750    
       06777  0 02000 0 07007        TRA SORT50        OUT OF ORDER , REARRANGE TOTAL TSXCOM ENTRY.   F2309760    
       07000  0 02000 0 07002        TRA SORT40        IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS.   F2309770    
       07001  0 02000 0 07024        TRA SORT70        ENTRIES IN ORDER, IGNORE.                      F2309780    
       07002  0 50000 1 01410 SORT40 CLA TCOMZ+1,1     ALRIGHT- FIRST WORDS IN ORDER BUT              F2309790    
       07003  0 34000 1 01413        CAS TCOMZ+4,1     HOW DO THEIR 2ND WORDS COMPARE.                F2309800    
       07004  0 02000 0 07013        TRA SORT60        IF OUT OF ORDER, GO TO REARRANGE.              F2309810    
       07005  0 02000 0 07024        TRA SORT70        IF EQUAL OR                                    F2309820    
       07006  0 02000 0 07024        TRA SORT70        IF IN ORDER, IGNORE.                           F2309830    
       07007  0 50000 1 01407 SORT50 CLA TCOMZ,1       FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS.   F2309840    
       07010  0 56000 1 01412        LDQ TCOMZ+3,1     INTERCHANGE THE FIRST WORDS                    F2309850    
       07011  0 60100 1 01412        STO TCOMZ+3,1     OF  THE                                        F2309860    
       07012 -0 60000 1 01407        STQ TCOMZ,1       TWO ENTRIES.                                   F2309870    
       07013  0 50000 1 01410 SORT60 CLA TCOMZ+1,1     INTERCHANGE                                    F2309880    
       07014  0 56000 1 01413        LDQ TCOMZ+4,1     THE                                            F2309890    
       07015  0 60100 1 01413        STO TCOMZ+4,1     SECOND                                         F2309900    
       07016 -0 60000 1 01410        STQ TCOMZ+1,1     AND                                            F2309910    
       07017  0 50000 1 01411        CLA TCOMZ+2,1     THIRD                                          F2309920    
       07020  0 56000 1 01414        LDQ TCOMZ+5,1     WORDS                                          F2309930    
       07021  0 60100 1 01414        STO TCOMZ+5,1     OF THE                                         F2309940    
       07022 -0 60000 1 01411        STQ TCOMZ+2,1     TWO ENTRIES.                                   F2309930    
       07023  0 76000 0 00144        PSE LIGHT         INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND.    F2309960    
       07024  1 77775 1 07025 SORT70 TXI SORT80,1,-3   BUMP FOR NEXT COMPAR1S0N.                      F2309970    
 D     07025  3 00000 1 06775 SORT80 TXH SORT30,1      IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3F2309980    
       07026 -0 76000 0 00144        MSE LIGHT         YES. WAS OUT OF ORDER ENTRY APPREHENDED .      F2309990    
       07027  0 02000 0 07034        TRA REMOVE        NO. GO TO MAKIRV.                              F2310000    
       07030 -0 53400 1 07025        LXD SORT80,1      YES. NUMBER OF COMPARISONS                     F2310010    
       07031  1 00003 1 07032        TXI SORT90,1,3    MADE IS DECREASED BY ONE                       F2310020    
       07032 -0 63400 1 07025 SORT90 SXD SORT80,1      ON EACH PASS.                                  F2310030    
       07033  0 02000 0 06774        TRA SORT20                                                       F2310040    
                                         BUILD UP TABLE IRV FROM TSXCOM                               F2310050    
       07034 -0 53400 2 06664 MAKIRV LXD IRVXX,2            (IX VALUE FOR NEXT IRV ENTRY)             F2310060    
       07035 -0 53400 1 00030        LXD TCOM-1,1                                                     F2310070    
       07036 -0 63400 1 07051        SXD MAK50,1                                                      F2310080    
       07037 -0 53400 1 06720        LXD TCOMAX,1                                                     F2310090    
       07040 -0 50000 1 01410 MAK10  CAL TCOMZ+1,1     GET SECOND WORD OF TSXCOMP                     F2310100    
       07041 -0 32000 0 06705        ANA PREMSK        PULL OUT PREFIX.                               F2310110    
       07042 -0 10000 0 07050        TNZ MAK40         IS ANYTHING THERE.                             F2310120    
       07043  0 50000 1 01410        CLA TCOMZ+1,1                                                    F2310130    
       07044  3 00000 2 07046        TXH MAK20,2,0                                                    F2310140    
       07045  0 07400 4 00004        TSX DIAG,4  TABLE IRV BUFFER FULL,      ERROR. GO TO DIAGNOSTIC. F2310155    
       07046  0 60100 2 06625 MAK20  STO IRVZ,2        STORE IRV.                                     F2310160    
       07047  1 77777 2 07050        TXI MAK40,2,-1                                                   F2310170    
       07050  1 77775 1 07051 MAK40  TXI MAK50,1,-3                                                   F2310180    
 D     07051  3 00000 1 07040 MAK50  TXH MAK10,1       IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM)F2310190    
       07052 -0 63400 2 06664 MAK60  SXD IRVXX,2       YES. SAVE INDICATION OF SIZE OF IRV.           F2310200    
                                         SORT TABLE IRV.                                              F2310210    
       07053 -0 53400 1 06664 IRVSRT LXD IRVXX,1                                                      F2310220    
       07054  1 00001 1 07055        TXI IRVS10,1,1                                                   F2310230    
       07055  3 00225 1 07120 IRVS10 TXH WRTTSX,1,149  IS THERE BUT ONE ENTRY IN IRV.                 F2310240    
       07056 -0 63400 1 07067        SXD IRVS50,1                                                     F2310250    
       07057 -0 76000 0 00144        MSE LIGHT         TURN OFF LITE.                                 F2310260    
       07060  0 76100 0 00000        NOP                                                              F2310270    
       07061 -0 53400 1 06714 IRVS20 LXD IRVMAX,1      INITIALIZE                                     F2310280    
       07062  0 50000 1 06625 IRVS30 CLA IRVZ,1        GET FIRST IRV ENTRY AND                        F2310290    
       07063  0 34000 1 06626        CAS IRVZ+1,1      COMPARE AGAINST ITS NEIGHBOR.                  F2310300    
       07064  0 02000 0 07073        TRA IRVS60        OUT OF ORDER. GO TO REARRANGE.                 F2310310    
       07065  0 76100 0 00000        NOP                                                              F2310320    
       07066  1 77777 1 07067 IRVS40 TXI IRVS50,1,-1   BUMP FOR NEXT COMPARIS0N                       F2310330    
 D     07067  3 00000 1 07062 IRVS50 TXH IRVS30,1      IS PASS COMPLETE  (DEC HAS IRV INDEX)          F2310340    
       07070 -0 76000 0 00144        MSE LIGHT         YES . WAS OUT OF ORDER NABBED.                 F2310350    
       07071  0 02000 0 07100        TRA DELETE        NO. SORT COMPLETE.                             F2310360    
       07072  0 02000 0 07061        TRA IRVS20        YES. MAKE ANOTHER PASS.                        F2310370    
       07073  0 56000 1 06626 IRVS60 LDQ IRVZ+1,1      REARRANGE                                      F2310380    
       07074  0 60100 1 06626        STO IRVZ+1,1      THE OUT OF ORDER                               F2310390    
       07075 -0 60000 1 06625        STQ IRVZ,1        IRV ENTRIES AND                                F2310400    
       07076  0 76000 0 00144        PSE LIGHT         INDICATE SAME.                                 F2310410    
       07077  0 02000 0 07066        TRA IRVS40                                                       F2310420    
                                         DELETE DUPE ENTRIES FROM TABLE IRV                           F2310430    
       07100 -0 53400 1 06664 DELETE LXD IRVXX,1                                                      F2310440    
       07101 -0 63400 1 07112        SXD DEL30,1       INITIALIZE                                     F2310450    
       07102 -0 53400 3 06714        LXD IRVMAX,3      INITIALIZE CANDIDATE IR AND STANDARD IR        F2310460    
       07103  2 00001 2 07104        TIX DEL10,2,1     BUMP CANDIDATE IR.                             F2310470    
       07104  0 50000 2 06625 DEL10  CLA IRVZ,2        GET CANDIDATE.                                 F2310480    
       07105  0 34000 1 06625        CAS IRVZ,1        COMPARE AGAINST STANDARD.                      F2310490    
       07106  0 02000 0 07116        TRA DEL40         CANDIDATE DOES NOT MATCH STANDARD.             F2310500    
       07107  0 02000 0 07111        TRA DEL20         CAND MATCHES STAND. IGNORE ITS REINSTATEMENT.  F2310510    
       07110  0 07400 4 00004        TSX DIAG,4  IRV UNORDERED DESPITE SORT. ERROR. GO TO DIAGNOSTIC. F2310523    
       07111  1 77777 2 07112 DEL20  TXI DEL30,2,-1    BUMP FOR NEXT CANDIDATE.                       F2310530    
 D     07112  3 00000 2 07104 DEL30  TXH DEL10,2       IS IT END OF PASS.  (DEC HAS IRV INDEX)        F2310540    
       07113  1 77777 1 07114        TXI DEL35,1,-1    YES. BUMP STANDARD IR.                         F2310550    
       07114 -0 63400 1 06664 DEL35  SXD IRVXX,1       SAVE NEW EDITED-IRV TABLE-SIZE INDICATION.     F2310560    
       07115  0 02000 0 07120        TRA WRTTSX                                                       F2310570    
       07116  0 60100 1 06626 DEL40  STO IRVZ+1,1      NOT DUPE, PUT CANDIDATE BACK.                  F2310580    
       07117  1 77777 1 07111        TXI DEL20,1,-1    AND INSTALL IT AS STANDARD.                    F2310590    
                                         WRITE EDITED TSXCOM TABLE ON DRUM                            F2310600    
       07120  0 76600 0 00303 WRTTSX WRS ADRUM                                                        F2310610    
       07121 -0 53400 1 00030        LXD TCOM-1,1      INITIALIZE                                     F2310620    
       07122 -0 63400 1 07133        SXD WTSX30,1                                                     F2310630    
       07123 -0 53400 1 06720        LXD TCOMAX,1                                                     F2310640    
       07124 -0 75400 0 00000        PXD 0,0                                                          F2310650    
       07125 -0 53400 2 06665        LXD L(0),2                                                       F2310660    
       07126  0 02000 0 07133        TRA WTSX30                                                       F2310670    
       07127  0 36100 1 01407 WTSX10 ACL TCOMZ,1       COMPUTE                                        F2310680    
       07130  0 36100 1 01410        ACL TCOMZ+1,1     CHECK SUM OF ALL ENTRIES                       F2310690    
       07131  1 77775 1 07132        TXI WTSX20,1,-3                                                  F2310700    
       07132  1 00002 2 07133 WTSX20 TXI WTSX30,2,2                                                   F2310710    
 D     07133  3 00000 1 07127 WTSX30 TXH WTSX10,1      IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT)  F2310720    
       07134  0 60200 0 07163        SLW WTSX60        STORE CHECK SUM.                               F2310730    
       07135 -0 53400 1 00030        LXD TCOM-1,1      COMPUTE                                        F2310740    
       07136 -0 75400 1 00000        PXD 0,1           NUM8ER                                         F2310750    
       07137 -0 76000 0 00003        SSM               OF                                             F2310760    
       07140  0 40000 0 06720        ADD TCOMAX        TSXCOM                                         F2310770    
       07141 -0 73400 1 00000        PDX 0,1           ENTRIES.                                       F2310780    
       07142  0 77100 0 00022        ARS 18            COMPUTE CORE                                   F2310790    
       07143  0 40000 0 06717        ADD TCOMAD        TERMINUS                                       F2310800    
       07144  0 62100 0 07155        STA WTSX40        AND INITIALIZE CPY ADDRESS FOR FIRST WORD,     F2310810    
       07145  0 40000 0 06675        ADD L(1)A         FOR SECOND                                     F2310820    
       07146  0 62100 0 07156        STA WTSX50        WORD.                                          F2310830    
       07147 -0 75400 2 00000        PXD 0,2                                                          F2310840    
       07150  0 60100 0 00030        STO TCOM-1        NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C.S.   F2310850    
       07151  0 46000 0 06715        LDA TCOMOR                                                       F2310860    
       07152  0 70000 0 00030        CPY TCOM-1        CPY WORD COUNT                                 F2310870    
       07153  0 70000 0 00030        CPY TCOM-1        ONTO DRUM                                      F2310880    
       07154 -3 00000 2 07164        TXL WRTIRV,2,0    IF EMPTY, EXIT.                                F2310890    
       07155  0 70000 1 00000 WTSX40 CPY 0,1           WRITE TSXCOM ENTRIES                           F2310900    
       07156  0 70000 1 00000 WTSX50 CPY 0,1           ONTO DRUM                                      F2310910    
       07157  2 00003 1 07155        TIX WTSX40,1,3                                                   F2310920    
       07160  0 70000 0 07163        CPY WTSX60        CHECKSUM                                       F2310930    
       07161  0 70000 0 07163        CPY WTSX60                                                       F2310940    
       07162  0 02000 0 07164        TRA WRTIRV                                                       F2310950    
 A     07163  0 00000 0 00000 WTSX60 HTR               C.S. STORAGE                                   F2310960    
                                         WRITE EDITED TABLE IRV ON DRUM                               F2310970    
       07164  0 76600 0 00303 WRTIRV WRS ADRUM                                                        F2310980    
       07165 -0 53400 1 06664        LXD IRVXX,1                                                      F2310990    
       07166 -0 63400 1 07173        SXD WIRV20,1      INITIALIZE TEST INSTR.                         F2311000    
       07167 -0 75400 0 00000        PXD 0,0                                                          F2311010    
       07170 -0 53400 1 06714        LXD IRVMAX,1                                                     F2311020    
       07171  0 36100 1 06625 WIRV10 ACL IRVZ,1        COMPUTE CHECK SUM.                             F2311030    
       07172  1 77777 1 07173        TXI WIRV20,1,-1                                                  F2311040    
 D     07173  3 00000 1 07171 WIRV20 TXH WIRV10,1      IS IRV DONE FOR. (DEC HAS IRV IX)              F2311050    
       07174  0 60200 0 07217        SLW WIRV40        YES. SAVE C.S.                                 F2311060    
       07175 -0 53400 1 06664        LXD IRVXX,1       COMPUTE                                        F2311070    
       07176 -0 75400 1 00000        PXD 0,1           NUMBER                                         F2311080    
       07177 -0 76000 0 00003        SSM               OF                                             F2311090    
       07200  0 40000 0 06714        ADD IRVMAX        IRV ENTRIES                                    F2311100    
       07201  0 60100 0 06664        STO IRVXX         AND SAVE.                                      F2311110    
       07202 -0 73400 1 00000        PDX 0,1           COMPUTE                                        F2311120    
       07203  0 77100 0 00022        ARS 18            CORE TERMINUS                                  F2311130    
       07204  0 40000 0 06713        ADD IRVAD         OF IRV.                                        F2311140    
       07205  0 62100 0 07212        STA WIRV30        INITIALIZE CPY.                                F2311150    
       07206  0 46000 0 06712        LDA IRVORG                                                       F2311160    
       07207  0 70000 0 06664        CPY IRVXX         WRITE WORD                                     F2311170    
       07210  0 70000 0 06664        CPY IRVXX         COUNT.                                         F2311180    
       07211 -3 00000 1 07220        TXL END,1,0       EXIT IF IRV EMPTY.                             F2311190    
       07212  0 70000 1 00000 WIRV30 CPY 0,1           WRITE IRV.                                     F2311200    
       07213  2 00001 1 07212        TIX WIRV30,1,1                                                   F2311210    
       07214  0 70000 0 07217        CPY WIRV40        WRITE                                          F2311220    
       07215  0 70000 0 07217        CPY WIRV40        CHECK SUM.                                     F2311230    
       07216  0 02000 0 07220        TRA END                                                          F2311240    
 A     07217  0 00000 0 00000 WIRV40 HTR               C.S. STORAGE                                   F2311250    
       07220  0 76600 0 00303 END    WRS 195           WRITE NR OF WDS IN TRASTO ON DRUM.             F2311260    
       07221  0 50000 0 07670        CLA LADDS+1       ORIGIN PLUS NR OF WDS IN TRASTO                F2311270    
       07222  0 40200 0 07232        SUB L(304A        LESS ORIGIN OF TRASTO                          F2311280    
       07223  0 60100 0 07230        STO ENDES                                                        F2311290    
       07224  0 46000 0 07231        LDA L(302A                                                       F2311300    
       07225  0 70000 0 07230        CPY ENDES                                                        F2311310    
       07226  0 70000 0 07230        CPY ENDES                                                        F2311320    
       07227  0 02000 0 07616        TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2311335    
 A     07230  0 00000 0 00000 ENDES  HTR                                                              F2311340    
       07231  0 00000 0 00456 L(302A HTR 302                                                          F2311350    
       07232  0 00000 0 00460 L(304A HTR 304                                                          F2311360    
                        77777    T0P EQU 32767                                                        F2311365    
                        00304 TAUDRM EQU 196                                                          F2311370    
                        00303 ADRUM  EQU 195                                                          F2311380    
                        00302 BDRUM  EQU 194                                                          F2311390    
                        00222 TAPE2  EQU 146                                                          F2311400    
                        00223 TAPE3  EQU 147                                                          F2311410    
                        00144 LIGHT  EQU 100           IF FORVAL EMPTY, LIGHT ON.                     F2311420    
                        07034 REMOVE SYN MAKIRV                                                       F2311430    
                        06377 IRV    SYN DOTAGZ                                                       F2311440    
                        00004 ONETCS EQU 4                                                            F2311445    
                        00004 DIAG   EQU 4                                                            F2311446    
 A                      00000        END                                                              F2311450    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    1160           0           0           0           0
 LIB       0           0           0           0           0
 COL    1160           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1169                  
0NUMBER OF SYMBOLS,  DEF   365,DEFOP     0,UNDEF     0      
9            REM BLOCK FOUR OF SECTION TWO.                                               
1                                        BLOCK FOUR OF SECTION TWO.                                               
                                            MASTER RECORD CARD = FN045                                F2400000    
                                         BLOCK 4                                                      F2400005    
                                         THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE             F2400010    
                                         INDEX LOAD VALUES FOR PURE RELCONS.                          F2400020    
                                         THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS               F2400030    
                                         (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1                          F2400040    
                                         TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE          F2400050    
                                         SUBROUTINES REQUIRED.                                        F2400060    
                        00030        ORG 24                                                           F2400070    
                        00030  CIB   BSS 100                                                          F2400080    
                        00174  WRKSC BSS 8                                                            F2400090    
                        00204  BOB   BSS 152                                                          F2400100    
                        00434  OR000 BSS 28                                                           F2400110    
                        00450        ORG 296                                                          F2400120    
 M     00450 +010000000001     OR012 OCT 010000000001                                                 F2400130    
 M     00451 +060000000003     OR013 OCT 060000000003                                                 F2400140    
                        00456        ORG 302                                                          F2400150    
 M     00456 +010000000002     OR018 OCT 010000000002                                                 F2400160    
                        00466        ORG 310                                                          F2400170    
 M     00466 +010000000003     OR026 OCT 010000000003                                                 F2400180    
       00467  0 00000 0 00000        HTR 0                                                            F2400190    
       00470  0 50000 0 01430 START1 CLA L(1)              SAVE STATUS OF SENSE-LIGHT3                F2400200    
       00471 -0 76000 0 00143        MSE 99                SO THAT IT CAN BE USED                     F2400210    
       00472  0 02000 0 00474        TRA START             IN THIS BLOCK.                             F2400220    
       00473  0 60100 0 01415        STO SENSE1                                                       F2400230    
       00474  0 07400 4 00752  START TSX RDRM,4            READ TABLE IRV (BOB ALSO)                  F2400240    
       00475  0 02000 0 00542        TRA FINISH+9          RETURN HERE IF NO ENTRIES.                 F2400250    
       00476 -0 53400 1 01007        LXD 1CNT,1            LOAD IRA WITH NO. OF IRV ENTRIES           F2400260    
       00477  0 07400 4 00710        TSX INITFX,4          FORM END TEST FOR FIXC0O SEARCH            F2400270    
       00500 -0 53400 2 01427        LXD L(0),2            BEGIN WITH FIRST TABLE BOB ENTRY.          F2400280    
       00501  0 50000 2 00204 REPETE CLA BOB,2             SELECT TABLE IRV ENTRY.                    F2400290    
       00502  0 62100 0 01375        STA NAME1             PUT SUBCOM NAME IN NAME 1.                 F2400300    
       00503  0 77100 0 00022        ARS 18                PUT TAU REFERENCE                          F2400310    
       00504  0 62100 0 01376        STA TAG1              IN TAG1.                                   F2400320    
       00505 -0 63400 2 01414  ENTRY SXD BX,2                                                         F2400330    
       00506 -0 63400 1 01413        SXD AX,1                                                         F2400340    
       00507  0 07400 4 01143        TSX SUBCOM,4          READ TAU ENTRY FROM DRUM.                  F2400350    
       00510  0 07400 4 00562        TSX COMPIL,4          COMPILE SUBROUTINE FRO COMPUTING           F2400360    
       00511 -0 53400 2 01414        LXD BX,2              LOAD VALUE.                                F2400370    
       00512 -0 53400 1 01413        LXD AX,1                                                         F2400380    
       00513  1 77777 2 00514        TXI TEST,2,-1         STEP DOWN COUNT THROUGH TABLE IRV.         F2400390    
       00514 -2 00001 1 00531  TEST  TNX FINISH,1,1        END OF TABLE IRV.                          F2400400    
       00515  0 50000 2 00204        CLA BOB,2             REDUNDANT.                                 F2400410    
       00516  0 07400 4 00735        TSX LINKTR,4          COMPILE SUBROUTINE RETURN.                 F2400420    
       00517  0 02000 0 00501        TRA REPETE                                                       F2400430    
       00520  0 62100 0 01377        STA TAG2              THE INSTRUCTIONS FROM HERE                 F2400440    
       00521  0 40200 0 01376        SUB TAG1              THROUGH                                    F2400450    
       00522  0 10000 0 00527        TZE EQUAL             TRA ENTRY                                  F2400460    
       00523  0 07400 4 00735        TSX LINKTR,4          ARE                                        F2400470    
       00524  0 50000 0 01377        CLA TAG2              REDUNDANT.                                 F2400480    
       00525  0 60100 0 01376        STO TAG1                                                         F2400490    
       00526  0 02000 0 00505        TRA ENTRY                                                        F2400500    
       00527  0 07400 4 00674  EQUAL TSX STOTP,4                                                      F2400510    
       00530  0 02000 0 00513        TRA TEST-1                                                       F2400520    
       00531  0 07400 4 00735 FINISH TSX LINKTR,4          FORM LAST SUBROUTINE RETURN,               F2400530    
       00532  0 50000 0 01071        CLA FC08+1            FIXCON WORD COUNT                          F2400540    
       00533  0 76600 0 00302        WRS 194                                                          F2400550    
       00534 -0 32000 0 01424        ANA DECMSK            ADJUST F1XCON WDRDCT                       F2400560    
       00535  0 40000 0 01421        ADD L1DEC                                                        F2400570    
       00536  0 77100 0 00021        ARS 17                WRITE FIXCON WORDCT AND                    F2400580    
       00537  0 60100 0 01401        STO AD1               ITS CHECKSUM ON DRUM, IN                   F2400590    
       00540  0 70000 0 01401        CPY AD1               ITS ORIGINAL POSITION, AT THE              F2400600    
       00541  0 70000 0 01401        CPY AD1               BEGINNING.                                 F2400610    
       00542  0 07400 4 01021        TSX CITSP,4           WRITE CIT BUFFER ON TAPE                   F2400620    
       00543  0 77000 0 00222        WEF 146               WRITE E.O.F. ONCIT TAPE                    F2400630    
       00544  0 76600 0 00222        WRS 146                                                          F2400640    
       00545  0 70000 0 01400        CPY RECCNT            WRITE CIT RECORDCOUNT AND                  F2400650    
       00546  0 70000 0 01400        CPY RECCNT            CHECKSUM ON CIT TAPE                       F2400660    
       00547  0 77000 0 00222        WEF 146               WRITE E.O.F. ON CIT TAPE.                  F2400670    
       00550  0 53400 1 01400        LXA RECCNT,1          BACKSPACE CIT TAPE                         F2400680    
       00551  1 00003 1 00552        TXI BST,1,3           UNTIL 1ST CIT RECORD                       F2400690    
       00552  0 76400 0 00222  BST   BST 146               THAT THIS BLOCK COMPILED.                  F2400700    
       00553  2 00001 1 00552        TIX BST,1,1                                                      F2400710    
       00554  0 76000 0 00140        PSE 96                TURN OFF ALL SENSE LIGHTS.                 F2400720    
       00555  0 50000 0 01415        CLA SENSE1            RESET LIGHT 3 T0OTHE STATUS                F2400730    
       00556  0 10000 0 00560        TZE END               IT HELD BEFORE THE                         F2400740    
       00557  0 76000 0 00143        PSE 99                COMMENCEMENT OF THIS BLOCK.                F2400750    
       00560  0 76200 0 00221  END   RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE             
       00561  0 02000 0 00004        TRA 4                                                                        
       00562 -0 63400 1 01402 COMPIL SXD 1XB0X,1                                                      F2400770    
       00563 -0 63400 2 01403        SXD 2XB0X,2                                                      F2400780    
       00564 -0 63400 4 01012        SXD LINK1,4           SAVE LINKAGE                               F2400790    
       00565  0 76000 0 00140        PSE 96                TURN ALL SENSE LIGHTS OFF                  F2400800    
       00566  0 07400 4 01240        TSX COSE,4            OBTAIN NAME OF IOEFF. IN FIXCON.           F2400810    
       00567  0 50000 0 01426        CLA L(CLA)                                                       F2400820    
       00570  0 60100 0 01051        STO CIL01             THIS ROUTINE COMPILES                      F2400830    
       00571  0 50000 0 00451        CLA OR000+13          THE INSTRUCTION                            F2400840    
       00572 -0 32000 0 01422        ANA 6ONES                                                        F2400850    
       00573  0 60100 0 01052        STO CIL02             CLA 6)+3,                                  F2400860    
       00574  0 50000 0 01432        CLA L(3)              WITH ZERO TAG,                             F2400870    
       00575  0 76700 0 00022        ALS 18                                                           F2400880    
       00576  0 60100 0 01053        STO CIL03             TOGETHER WITH A SYMBOLIC                   F2400890    
       00577  0 50000 0 01375        CLA NAME1             LOCATION OF                                F2400900    
       00600 -0 50100 0 01420        ORA BCD10                                                        F2400910    
       00601  0 60100 0 01050 STOLOC STO CIL00             10)+NAME1                                  F240A920    
       00602  0 07400 4 01015        TSX CIT,4             ENTER INSTR. IN CIT                        F2400930    
       00603  0 50000 0 01425        CLA L(STO)                                                       F2400940    
       00604  0 60100 0 01051        STO CIL01             THIS ROUTINE COMPILES THE                  F2400950    
       00605  0 50000 0 00466        CLA OR000+26          INSTRUCTION.                               F2400960    
       00606  0 73400 1 00000        PAX 0,1                                                          F2400970    
       00607 -0 32000 0 01422        ANA 6ONES             STO 1)+3                                   F2400980    
       00610 -0 63400 1 01053        SXD CIL03,1           THESE COMPILED INSTR. PLACE                F2400990    
       00611  0 60100 0 01052        STO CIL02             1 IN ERASABLE STORAGE                      F2401000    
 T     00612 -0 75400 0 00000        PXD 0                                                            F2401010    
       00613  0 60100 0 01050        STO CIL00                                                        F2401020    
       00614  0 07400 4 01015        TSX CIT,4             ENTER INSTR. IN CIT                        F2401030    
       00615  0 50000 0 00175        CLA WRKSC+1           TEST 1ST SUBSCRIPT SYMBOL                  F2401040    
       00616  0 10000 0 00630        TZE S2                NO SYMBOL PRESENT                          F2401050    
       00617  0 60100 0 00435        STO OR000+1           SAVE S1 FOR LXC ROUTINE                    F2401060    
       00620  0 53400 1 01433        LXA L(4),1            INDEX FOR NO. OF COMPILED INSTR.           F2401070    
       00621 -0 76000 0 00141        MSE 97                DOES 1ST COEFF EXCEED 1                    F2401080    
       00622  0 02000 0 00624        TRA COMP20            NO                                         F2401090    
       00623  1 00002 1 00626        TXI COMP30,1,2        YES. 6 INSTR. TO BE COMPILED               F2401100    
       00624  0 50000 0 01436 COMP20 CLA KLX02             NO. COMPILE INSTR TO COMPUTE               F2401110    
       00625  0 02000 0 00627        TRA COMP30+1          S1-1+(1 ALREADY IN ERASABLE)               F2401120    
       00626  0 50000 0 01437 COMP30 CLA KLX021            YES. COMPILE C1A1-1                        F2401130    
       00627  0 07400 4 01257        TSX LXC,4             +(1 AREADY IN ERASABLE)                    F2401140    
       00630  0 50000 0 00177  S2    CLA WRKSC+3                                                      F2401150    
       00631  0 10000 0 00645        TZE S3                TRA IF NO 2ND SUBSC, SYMBOL                F2401160    
       00632  0 60100 0 00440        STO OR000+4           SAVE S2 FOR LXC ROUTINE.                   F2401170    
       00633  0 50000 0 00202        CLA WRKSC+6           OBTAIN SYMBOLIC ADDRESS                    F2401180    
       00634  0 07400 4 01054        TSX FIXCON,4          OF D1 IN FIXCON TABLE                      F2401190    
       00635  0 60100 0 00443        STO OR000+7           AND STORE FOR LXC ROUTINE.                 F2401200    
       00636  0 53400 1 01435        LXA L(6),1            6 INSTR. TO BE COMPILED                    F2401210    
       00637 -0 76000 0 00142        MSE 98                IS COEFF. C2 GREATER THAN 1,               F2401220    
       00640  0 02000 0 00643        TRA COMP40            NO. COMPILE D1*S2-D1+                      F2401230    
       00641  0 50000 0 01440        CLA KLX03             YES. 8 INSTR. COMPILED TO                  F2401240    
       00642  1 00002 1 00644        TXI COMP40+1,1,2      COMPUTE D1*S2*C3-D1+                       F2401250    
       00643  0 50000 0 01441 COMP40 CLA KLX031                                                       F2401260    
       00644  0 07400 4 01257        TSX LXC,4             + THAT ALREADY COMPUTED.                   F2401270    
       00645  0 50000 0 00201  S3    CLA WRKSC+5           TEST FOR 3RD SUBSCRIPT                     F2401280    
       00646  0 10000 0 00664        TZE COMP55            SYMBOL.                                    F2401290    
       00647  0 60100 0 00461        STO OR000+21          STORE FOR LXC ROUTINE.                     F2401300    
       00650  0 56000 0 00202        LDQ WRKSC+6           COMPUTE D1*D2,                             F2401310    
       00651  0 20000 0 00203        MPY WRKSC+7           AND OBTAIN                                 F2401320    
       00652  0 76700 0 00021        ALS 17                NAME FOR THIS CONSTANT FROM                F2401330    
       00653  0 07400 4 01054        TSX FIXCON,4          FIXCON, AND STORE FOR                      F2401340    
       00654  0 60100 0 00464        STO OR000+24          LXC ROUTINE.                               F2401350    
       00655  0 53400 1 01435        LXA L(6),1            6 INSTR. TO BE COMPILED                    F2401360    
       00656 -0 76000 0 00143        MSE 99                IS 3RD COEFF GREATER THAN 1.               F2401370    
       00657  0 02000 0 00662        TRA COMP50            NO. COMPILE D1D2*S3-D1D2+                  F2401380    
       00660  0 50000 0 01442        CLA KLX05              YES, COMPILE D1D2*C3S3-D1D2+              F2401390    
       00661  1 00002 1 00663        TXI COMP50+1,1,2                                                 F2401400    
       00662  0 50000 0 01443 COMP50 CLA KLX051                                                       F2401410    
       00663  0 07400 4 01257        TSX LXC,4             + THAT ALREADY COMPUTED.                   F2401420    
       00664 -0 53400 4 01045 COMP55 LXD BBOX,4                                                       F2401430    
       00665  1 00004 4 00666        TXI COMP55+2,4,4      STEP UP CIT BUFFER COUNT                   F2401440    
       00666 -0 63400 4 01045        SXD BBOX,4                                                       F2401450    
       00667  0 07400 4 00674        TSX STOTP,4           COMPILE INSTRUCTION TO STORE               F2401460    
       00670 -0 53400 1 01402        LXD 1XB0X,1           LOADING VALUE FOR SUBSCRIPT COMB.          F2401470    
       00671 -0 53400 2 01402        LXD 1XB0X,2                                                      F2401480    
       00672 -0 53400 4 01012        LXD LINK1,4                                                      F2401490    
       00673  0 02000 4 00001        TRA 1,4               RETURN                                     F2401500    
       00674 -0 63400 4 01404  STOTP SXD LINK2,4           ROUTINE COMPILES THE INSTR.                F2401510    
       00675  0 50000 0 01427        CLA L(0)              TO STORE THE RESULTS OF                    F2401520    
       00676  0 60100 0 01050        STO CIL00             THE SUBROUTINE COMPILATION IN              F2401530    
       00677  0 60100 0 01053        STO CIL03             THE TAG NAME.                              F2401540    
       00700  0 50000 0 01425        CLA L(STO)            THIS INSTRUCTION IS                        F2401550    
       00701  0 60100 0 01051        STO CIL01                                                        F2401560    
       00702  0 50000 0 01375        CLA NAME1             STO 12)+ NAME1                             F2401570    
       00703 -0 50100 0 01417        ORA BCD14                                                        F2401580    
       00704  0 60100 0 01052        STO CIL02                                                        F2401590    
       00705  0 07400 4 01015        TSX CIT,4             ENTER IN CIT TABLE                         F2401600    
       00706 -0 53400 4 01404        LXD LINK2,4                                                      F2401610    
       00707  0 02000 4 00001        TRA 1,4               RETURN                                     F2401620    
                                         ROUTINE FORMS END TEST FOR FIXCON SEARCH ROUTINE             F2401630    
       00710  0 53400 2 01434 INITFX LXA L(5),2            LOAD READING ERROR COUNTER.                F2401640    
       00711  0 76200 0 00302  C1    RDS 194                                         .                F2401650    
       00712  0 70000 0 01007        CPY 1CNT              READ FIXCON WD.CT                          F2401660    
       00713  0 70000 0 01010        CPY 2CNT              AND ITS CHECKSUM                           F2401670    
       00714  0 50000 0 01007        CLA 1CNT                                                         F2401680    
       00715  0 40200 0 01010        SUB 2CNT              TEST FOR READING ERROR.                    F2401690    
       00716 -0 10000 0 00733        TNZ C6                ERROR.                                     F2401700    
       00717  0 50000 0 01007        CLA 1CNT              IS FIXCON EMPTY.                           F2401710    
       00720  0 10000 0 00725        TZE C4                YES                                        F2401720    
       00721  0 40200 0 01431        SUB L(2)                                                         F2401730    
       00722  0 76700 0 00021        ALS 17                STORE END TEST IN                          F2401740    
       00723  0 62200 0 01071  C2    STD FC08+1            FIXCON SEARCH ROUTINE                      F2401750    
       00724  0 02000 4 00001        TRA 1,4               RETURN TO MAIN ROUTINE.                    F2401760    
       00725  0 76200 0 00302  C4    RDS 194               FIXCON IS EMPTY.                           F2401770    
       00726  0 70000 0 01427        CPY L(0)              SET FIRST FOUR LOCATIONS                   F2401780    
       00727  0 70000 0 01427        CPY L(0)              TO                                         F2401790    
       00730  0 70000 0 01427        CPY L(0)              ZERO.                                      F2401800    
       00731  0 70000 0 01427        CPY L(0)                                                         F2401810    
       00732  0 02000 0 00723        TRA C2                STORE ZERO AS END TEST                     F2401820    
       00733  2 00001 2 00711  C6    TIX C1,2,1            ERROR. TRY TO READ 3 TIMES.                F2401830    
       00734  0 07400 4 00004        TSX DIAG,4            DRUM 2 READING ERROR FIVE TIMES.           F2401840    
       00735  0 50000 0 01427 LINKTR CLA L(0)                                                         F2401850    
       00736  0 60100 0 01050        STO CIL00             THIS ROUTINE COMPILES                      F2401860    
       00737  0 60100 0 01052        STO CIL02             INSTRUCTION FOR RETURN                     F2401870    
       00740  0 50000 0 00750        CLA L(TRA)            TO THE FORTRAN MASTER                      F2401880    
       00741  0 60100 0 01051        STO CIL01             ROUTINE.                                   F2401890    
       00742  0 50000 0 00751        CLA RELTG             TRA1,4                                     F2401900    
       00743  0 60100 0 01053        STO CIL03                                                        F2401910    
       00744 -0 63400 4 01012        SXD LINK1,4                                                      F2401920    
       00745  0 07400 4 01015        TSX CIT,4             FENTER IN CIT TABLE.                       F2401930    
       00746 -0 53400 4 01012        LXD LINK1,4                                                      F2401940    
       00747  0 02000 4 00001        TRA 1,4               RETURN                                     F2401950    
       00750  635121000000    L(TRA) BCD 1TRA000                                                      F2401960    
       00751 +000001000004     RELTG OCT 000001000004                                                 F2401970    
                                         ROUTINE READS AND CHECKS TABLE IRV (ALSO CALLED BOB)         F2401980    
       00752  0 53400 1 01434 RDRM   LXA L(5),1            LOAD ERROR COUNTER.                        F2401990    
       00753 -0 63400 4 01012        SXD LINK1,4           SAVE ENTRY PT.                             F2402000    
       00754  0 76200 0 00303  RDS   RDS 195                                                          F2402010    
 T     00755  0 53400 0 01013        LXA L(152), 2                                                    F2402020    
       00756  0 46000 0 01014        LDA L1304             DRUM ADDRESS OF TABLE IS 1304              F2402030    
       00757  0 70000 0 01007        CPY 1CNT              READ WD. CT. OF TABLE.                     F2402040    
       00760  0 70000 0 01010        CPY 2CNT              READ WD. CT. CHECKSUM.                     F2402050    
       00761  0 70000 2 00434  CPY   CPY BOB+152,2         READ 150 TABLE ENTRIES.                    F2402060    
       00762  2 00001 2 00761        TIX CPY,2,1                                                      F2402070    
       00763  0 50000 0 01007        CLA 1CNT              DOES WD. CT AGREE                          F2402080    
       00764  0 40200 0 01010        SUB 2CNT              WITH ITS CHECKSUM.                         F2402090    
       00765 -0 10000 0 01005        TNZ EROR              NO. ERROR.                                 F2402100    
       00766 -0 53400 2 01007        LXD 1CNT,2            YES.                                       F2402110    
       00767  3 00000 2 00772        TXH PROCED,2,0        IS TABLE EMPTY.                            F2402120    
       00770 -0 53400 4 01012        LXD LINK1,4           YES. RETURN TO                             F2402130    
       00771  0 02000 4 00001        TRA 1,4               MAIN ROUTINE.                              F2402140    
 T     00772 -0 75400 0 00000 PROCED PXD 0                 TABLE IRV IS NOT EMPTY,                    F2402150    
       00773 -0 73400 4 00000        PDX 0,4               INITIALISE IRC TO ZERO.                    F2402160    
       00774  0 36100 4 00204 ACCSUH ACL BOB,4             FORM LOGICAL CHECKSUM OF                   F2402170    
       00775  1 77777 4 00776        TXI TIX,4,-1          ENTRIES                                    F2402180    
       00776  2 00001 2 00774  TIX   TIX ACCSUH,2,1                                                   F2402190    
       00777  0 60200 0 01011        SLW LOGWD                                                        F2402200    
       01000  0 50000 0 01011        CLA LOGWD             COMPUTED CHECKSUM.                         F2402210    
       01001  0 40200 4 00204        SUB BOB,4             DRUM CHECKSUM FOLLOWS LAST ENTRY.          F2402220    
       01002 -0 10000 0 01005        TNZ EROR              NOT EQUAL                                  F2402230    
       01003 -0 53400 4 01012        LXD LINK1,4           DRUM READ CORRECTLY.                       F2402240    
       01004  0 02000 4 00002        TRA 2,4               RETURN                                     F2402250    
       01005  2 00001 1 00754  EROR  TIX RDS,1,1           TRY TO READ THREE MORE TIMES.              F2402260    
       01006  0 07400 4 00004        TSX DIAG,4            DRUM 3 READING ERROR FIVE TIMES.           F2402270    
 A     01007  0 00000 0 00000  1CNT  HTR                                                              F2402280    
 A     01010  0 00000 0 00000  2CNT  HTR                                                              F2402290    
 A     01011  0 00000 0 00000  LOGWD HTR                                                              F2402300    
 A     01012  0 00000 0 00000  LINK1 HTR                                                              F2402310    
       01013  0 00000 0 00230 L(152) HTR 152               LENGTH OF TABLE IRV, WD. CT., CHECKSUMS    F2402320    
       01014  0 00000 0 02430 L1304  HTR 1304              ORG OF WD. CT OF TABLE IRV                 F2402330    
                                         ROUT1NE WRITES CIT BUFFER 0N TAPE ,IF FULL, THEN ENTERS      F2402340    
                                         NEW CIT INTO BUFFER.                                         F2402350    
       01015 -0 63400 1 01046  CIT   SXD E2C,1                                                        F2402360    
       01016 -0 63400 2 01047        SXD E3C,2                                                        F2402370    
       01017 -0 53400 2 01045        LXD BBOX,2            COMPLEMENT OF CURRENT BUFFER CT.           F2402380    
       01020  3 77634 2 01034        TXH CIT04,2,-100      BUFFER NEITHER FULL NOR ZERO               F2402390    
       01021 -0 53400 2 01045  CITSP LXD BBOX,2                                                       F2402400    
       01022 -3 00000 2 01034        TXL CIT04,2,0         TRA IF BUFFER CT ZERO                      F2402410    
       01023  0 50000 0 01400        CLA RECCNT            BUFFER IS ALREADY FULL.                    F2402420    
       01024  0 40000 0 01430        ADD L(1)              UPDATE CIT RECORD COUNT.                   F2402430    
       01025  0 60100 0 01400        STO RECCNT                                                       F2402440    
       01026  0 76600 0 00222        WRS 146                                                          F2402450    
       01027  0 53400 1 01427        LXA L(0),1            WRITE CIT BUFFER ON TAPE.                  F2402460    
       01030  0 70000 1 00030  CIT01 CPY CIB,1                                                        F2402470    
       01031  1 77777 1 01032        TXI CIT02,1,-1                                                   F2402480    
       01032  1 00001 2 01033  CIT02 TXI CIT03,2,1         STEP BUFFER COUNT BACK TO ZERO             F2402490    
       01033  3 00001 2 01030  CIT03 TXH CIT01,2,1         TEST FOR BUFFER END                        F2402500    
       01034  0 53400 1 01433  CIT04 LXA L(4),1                                                       F2402510    
       01035  0 50000 1 01054  CIT05 CLA CIL00+4,1         STORE 4WD CIT IN 8UFFER.                   F2402520    
       01036  0 60100 2 00030        STO CIB,2                                                        F2402530    
       01037  1 77777 2 01040        TXI CIT07,2,-1        UPDATE CIT BUFFER COUNT                    F2402540    
       01040  2 00001 1 01035  CIT07 TIX CIT05,1,1                                                    F2402550    
       01041 -0 63400 2 01045        SXD BBOX,2            SAVE CIT BUFFER COUNT                      F2402560    
       01042 -0 53400 1 01046        LXD E2C,1                                                        F2402570    
       01043 -0 53400 2 01047        LXD E3C,2             RELOAD INDEX REGS,                         F2402580    
       01044  0 02000 4 00001        TRA 1,4               RETURN                                     F2402590    
       01045  0 00000 0 00000  BBOX  HTR 0                 CIT BUFFER CT. INITIALLY ZERO              F2402600    
 A     01046  0 00000 0 00000  E2C   HTR                                                              F2402610    
 A     01047  0 00000 0 00000  E3C   HTR                                                              F2402620    
                        01050  CIL00 BSS 1                 SYMBOLIC LOCN OF CIT                       F2402630    
                        01051  CIL01 BSS 1                 OP.DAND DEC. OF CIT.                       F2402640    
                        01052  CIL02 BSS 1                 SYMBOLIC ADDRESS OF CIT                    F2402650    
                        01053  CIL03 BSS 1                 REL. ADDRESS AND TAG.                      F2402660    
                                         REQUIRED FIXCON IS IN ACC. WHEN THIS-ROUTINE IS              F2402670    
                                         BEGUN. THE FIXCON TABLE IS SEARCHED AND IF FIXCON IS         F2402680    
                                         NOT ALREADY THERE, IT IS ENTERED IN THE TABLE.               F2402690    
                                         (SEARCH IS MADE IN TWO PASSES, ONE FOR EVEN ENTRIES, ONE     F2402700    
                                         FOR ODD, FOR TIMING PURPOSES.)EXIT WITH NAME OF ENTRY IN ACC F2402710    
       01054 -0 63400 1 01107 FIXCON SXD FC29,1                                                       F2402720    
       01055 -0 63400 2 01077        SXD FC18,2                                                       F2402730    
       01056 -0 63400 4 01111        SXD FC34,4                                                       F2402740    
       01057  0 60100 0 01406        STO ERDRM1            SAVE FIXCON.                               F2402750    
       01060  0 53400 4 01434        LXA L(5),4            INITIALIZE DRUM ERROR COUNTER.             F2402760    
       01061  0 50000 0 01142  FC02  CLA ORIGIN            INITIALISE AD1 T0 SELECT 1ST ENTRY         F2402770    
       01062  0 60100 0 01401        STO AD1               AND ODD NUMBERED ENTRIES.                  F2402780    
       01063  0 53400 1 01427        LXA L(0),1            INITIALISE COUNT THROUGH TABLE             F2402790    
       01064  0 53400 2 01431        LXA L(2),2            INITIALISES FOR TWO FIXCON PASSES          F2402800    
       01065  0 50000 0 01406  FC04  CLA ERDRM1            REQD. FIXCON                               F2402810    
       01066  0 76200 0 00302        RDS 194               READ NEXT FIXCON ENTRY                     F2402820    
       01067  0 46000 0 01401        LDA AD1                                                          F2402830    
       01070  0 70000 0 01407  FC08  CPY CPYWD1                                                       F2402840    
 D     01071  3 00000 1 01102        TXH FC24+1,1          DECR IS WD.CT OF FIXCON TABLE (INITFX)     F2402850    
       01072  0 70000 0 01410        CPY CPYWD2            READ CHECKSUM OF ENTRY                     F2402860    
       01073  0 04000 0 01110        TLQ FC30              TRA IF ENTRY DOES NOT MATCH FIXCON         F2402870    
       01074  0 70000 0 01405        CPY ERDRM             FALSE COPY.                                F2402880    
       01075  0 34000 0 01410        CAS CPYWD2            COMPARE WITH CHECKSUM.                     F2402890    
       01076  0 07400 4 00004        TSX DIAG,4            OBVIATED BY TLQ.                           F2402900    
 D     01077 -3 00000 0 01135  FC18  TXL FC60,0            SAVED IRB IN DECR. MATCH FOUND.            F2402910    
       01100  0 70000 0 01405  FC20  CPY ERDRM             FALSE COPY, NO MATCH                       F2402920    
       01101  1 00002 1 01070  FC24  TXI FC08,1,2          INCREASE COUNT OF WORDS TESTED.            F2402930    
       01102 -2 00001 2 01112        TNX FC40,2,1          BOTH PASSES ARE COMPLETED.                 F2402940    
       01103  0 50000 0 01401        CLA AD1               ADJUST DRUM ADDRESS                        F2402950    
       01104  0 40000 0 01431        ADD L(2)              TO TEST EVEN NUMBERED ENTRIES              F2402960    
       01105  0 60100 0 01401        STO AD1                                                          F2402970    
       01106  0 53400 1 01430  FC28  LXA L(1),1            INITIALISE COUNT THROUGH TABLE             F2402980    
 D     01107 -3 00000 0 01065  FC29  TXL FC04,0            TRA TO MAKE 2ND PASS. SAVED IRA IN DEC     F2402990    
       01110  0 70000 0 01405  FC30  CPY ERDRM             FALSE COPY.                                F2403000    
 D     01111 -3 00000 0 01100  FC34  TXL FC20,0            DECR, CONTAINS ROUTINE LINKAGE.            F2403010    
       01112  0 60100 0 01407  FC40  STO CPYWD1            SEARCH COMPLETED. NO MATCH.                F2403020    
       01113 -0 53400 1 01071        LXD FC08+1,1                                                     F2403030    
       01114  1 00001 1 01115        TXI FC42,1,1          INCREASE FIXCON WD. COUNT AND              F2403040    
       01115 -0 63400 1 01071  FC42  SXD FC08+1,1          STORE AS NEW TEST.                         F2403050    
       01116 -0 75400 1 00000        PXD 0,1               FORM NEW ADDRESS                           F2403060    
       01117  0 77100 0 00021        ARS 17                FOR                                        F2403070    
       01120  0 40000 0 01142        ADD ORIGIN            DRUM WRITING.                              F2403080    
       01121  0 60100 0 01401        STO AD1                                                          F2403090    
       01122  0 76600 0 00302        WRS 194                                                          F2403100    
       01123  0 46000 0 01401        LDA AD1               WRITE NEW FIXCON AND                       F2403110    
       01124  0 70000 0 01407        CPY CPYWD1            ITS CHECKSUM ON DRUM.                      F2403120    
       01125  0 70000 0 01407        CPY CPYWD1                                                       F2403130    
       01126 -0 75400 1 00000  FC50  PXD 0,1               FORM NAME OF CONSTANT                      F2403140    
       01127  0 77100 0 00022        ARS 18                IN ACC. NAME CONSISTS OF                   F2403150    
       01130 -0 50100 0 01416        ORA BCD2              2 IN DEC.=2) FOR FIXCON TABLE,             F2403160    
       01131 -0 53400 1 01107        LXD FC29,1            AND ENTRY NO WITHIN TABLE,                 F2403170    
       01132 -0 53400 2 01077        LXD FC18,2            IN ADDRESS.                                F2403180    
       01133 -0 53400 4 01111        LXD FC34,4            RESTORE INDEX.                             F2403190    
       01134  0 02000 4 00001        TRA 1,4               RETURN.                                    F2403200    
       01135  0 50000 0 01407  FC60  CLA CPYWD1            MATCH FOUND. TEST DRUM READ.               F2403210    
       01136  0 40200 0 01410        SUB CPYWD2                                                       F2403220    
       01137  0 10000 0 01126        TZE FC50              DRUM READ CQRRECTLY.                       F2403230    
       01140  2 00001 4 01061        TIX FC02,4,1          ERROR. TRY 3 TIMES.                        F2403240    
       01141  0 07400 4 00004 STOPFC TSX DIAG,4            DRUM 2 READING ERROR FIVE TIMES.           F2403250    
       01142  0 00000 0 00002 ORIGIN HTR 2                 DRUM ORIGIN OF FIXCON TABLE.               F2403260    
                                         THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE CORR.             F2403270    
                                         SUBSCR. COMBINATION FROM THE APPROPRIATE TAU TABLE           F2403280    
                                         AND STORES IN P0SITION C1,S1,C2,S2,S3,S3,D1,D2.              F2403290    
       01143 -0 63400 4 01224 SUBCOM SXD SUB085,4          SAVE S.R. LINKAGE                          F2403300    
       01144  0 53400 1 01434        LXA L(5),1            INITIALIZE DRUM ERROR COUNTER.             F2403310    
       01145  0 60100 0 01237        STO SUBTAG            STORE TAU TAG NAME.                        F2403320    
       01146  0 76200 0 00304 SUB010 RDS 196               SELECT TAU DRUM                            F2403330    
       01147 -0 53400 4 01234        LXD SUBORG+2,4        INITIALIZE SUBSCRIPT COMBINATION           F2403340    
 T     01150 -0 75400 0 00000        PXD 0                 WORKING SPACE                              F2403350    
       01151  0 60100 4 00204 SUB020 STO WRKSC+8,4         TO ZERO.                                   F2403360    
       01152  2 00001 4 01151        TIX SUB020,4,1                                                   F2403370    
       01153  0 50000 0 01237        CLA SUBTAG            THESE INSTRUCTIONS PLACE                   F2403380    
       01154  0 76500 0 00011        LRS 9                 TAU TABLE REQUIRED                         F2403390    
       01155  0 73400 6 00000        PAX 0,6               (1,2 OR 3) IN IRB AND IRC.                 F2403400    
 T     01156 -0 75400 0 00000        PXD 0                                                            F2403410    
       01157  0 76300 0 00011        LLS 9                 STORE ENTRY NUMBER                         F2403420    
       01160  0 60100 0 01235        STO SUBES1            WITHIN APPROPRIATE TAU TABLE.              F2403430    
       01161  0 76700 0 00001        ALS 1                                                            F2403440    
       01162  0 60100 0 01236        STO SUBES2            STORE TWICE TAU ENTRY NO.                  F2403450    
       01163  0 50000 4 01235        CLA SUBORG+3,4        SELECT APPROPRIATE TAU ORIGIN.             F2403460    
       01164  0 40000 0 01235        ADD SUBES1            FORM DRUM ADDRESS, WHICH EQUALS            F2403470    
       01165  0 40000 0 01236 SUB030 ADD SUBES2            TAU ORIGIN + ENTRY N/.*                    F2403480    
       01166  2 00001 4 01165        TIX SUB030,4,1        NUMBER OF WORDS PER ENTRY                  F2403490    
       01167  0 62100 0 01235        STA SUBES1            (3 FOR TAU1,5 FOR TAU2,7 FORTAU3)          F2403500    
       01170  0 46000 0 01235        LDA SUBES1            SELECT TAU ENTRY.                          F2403510    
       01171  0 70000 0 00174        CPY WRKSC             DECR. C1, ADDR, C2                         F2403520    
       01172 -3 00002 2 01174        TXL SUB040,2,2                                                   F2403530    
       01173  0 70000 0 00200        CPY WRKSC+4           FOR TAU 3, ADDR. C3.                       F2403540    
       01174  0 70000 0 00175 SUB040 CPY WRKSC+1           S1                                         F2403550    
       01175 -3 00001 2 01202        TXL SUB060,2,1                                                   F2403560    
       01176  0 70000 0 00177        CPY WRKSC+3           FOR TAU2 AND3, S2.                         F2403570    
       01177 -3 00002 2 01201        TXL SUB050,2,2                                                   F2403580    
       01200  0 70000 0 00201        CPY WRKSC+5           FOR TAU3, S0, ALS0                         F2403590    
       01201  0 70000 0 00202 SUB050 CPY WRKSC+6              ADDRESS D2,0ECR.D1                      F2403600    
       01202  0 70000 0 01235 SUB060 CPY SUBES1            CHECKSUM.                                  F2403610    
       01203 -0 53400 4 01232        LXD SUBORG,4                                                     F2403620    
       01204 -0 50000 0 00174        CAL WRKSC             COMPUTE                                    F2403630    
       01205  0 36100 4 00203 SUB070 ACL WRKSC+7,4         CHECKSUM.                                  F2403640    
       01206  2 00001 4 01205        TIX SUB070,4,1                                                   F2403650    
       01207  0 60200 0 01236        SLW SUBES2                                                       F2403660    
       01210  0 50000 0 01236        CLA SUBES2            TEST FOR                                   F2403670    
       01211  0 40200 0 01235        SUB SUBES1            READING ERROR.                             F2403680    
       01212  0 10000 0 01214        TZE SUB075            TRA. IF CORRECT                            F2403690    
       01213  2 00001 1 01146        TIX SUB010,1,1        IF ERROR, TRY FOUR MORE TIMES.             F2403700    
       01214 -0 53400 4 01233 SUB075 LXD SUBORG+1,4                             -                     F2403720    
       01215  0 50000 4 00203 SUB080 CLA WRKSC+7,4         REARRANGE WORDS WRKSC                      F2403730    
       01216  0 73400 2 00000        PAX 0,2               AND WRKSC+6, IN TURN, WHICH                F2403740    
       01217 -0 32000 0 01424        ANA DECMSK            CONTAIN C1 AND C2,D1AND D2.                F2403750    
       01220  0 60100 4 00203        STO WRKSC+7,4         NONBCD CHARACTERS                          F2403760    
       01221 -0 75400 2 00000        PXD 0,2               ARE STORED IN DECREMENT                    F2403770    
       01222 -2 00006 4 01225        TNX SUB090,4,6        AND ORDER OF ITEMS IS NOW                  F2403780    
       01223  0 60100 0 00176        STO WRKSC+2           C1,S1,C2,S2,C3,S3,D1,D2.                   F2403790    
 D     01224 -3 00000 0 01215 SUB085 TXL SUB080,0                                                     F2403800    
       01225  0 60100 0 00203 SUB090 STO WRKSC+7                                                      F2403810    
       01226 -0 53400 4 01224        LXD SUB085,4          RESTORE LINKAGE INDEX                      F2403820    
       01227 -3 00001 1 01231        TXL SUB100+1,1,1      TRA IF READING ERROR.                      F2403830    
       01230  0 02000 4 00001 SUB100 TRA 1,4               RETURN                                     F2403840    
       01231  0 07400 4 00004        TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2403850    
       01232 +000006001356    SUBORG OCT 000006001356      DECR. IS 6, ADDR. IS ORG TAU3              F2403860    
       01233 +000007000454           OCT 000007000454      DECR. IS 7, ADDR IS ORG TAU2               F2403870    
       01234 +000010000000           OCT 000010000000      DECR IS 8, ADDR IS ORG TAU1.               F2403880    
 A     01235  0 00000 0 00000 SUBES1 HTR                   ERASABLE ST, FOR DRUM ADDR.                F2403890    
 A     01236  0 00000 0 00000 SUBES2 HTR                   ERASABLE ST, FO DRUM CHECK1                F2403900    
 A     01237  0 00000 0 00000 SUBTAG HTR                                                              F2403910    
                                         COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON  F2403920    
                                         TABLE, AND SETS SENSE LIGHTS ACCORDINGLY.                    F2403930    
       01240  0 53400 1 01435  COSE  LXA L(6),1            INDEX TO SELECT SUBSCRIPTS IN TURN         F2403940    
       01241  0 53400 2 01432        LXA L(3),2            INITIALISE SENSE LT. SELECTION.            F2403950    
       01242 -0 63400 4 01411        SXD LINKC,4                                                      F2403960    
       01243  0 50000 1 00202  COSE5 CLA WRKSC+6,1         SELECT A S.C. COEFF.                       F2403970    
       01244  0 10000 0 01253        TZE COSE08            TRA IF NO SUBSC. IN THIS DIMENSION         F2403980    
       01245  0 40200 0 01421        SUB L1DEC                                                        F2403990    
       01246  0 10000 0 01253        TZE COSE08            TRA IF COEFF. IS ONE.                      F2404000    
       01247  0 76000 2 00144        PSE 100,2             SET CORRESPONDING SENSE LIGHT.             F2404010    
       01250  0 50000 1 00202        CLA WRKSC+6,1         ENTER COEFF IN FIXCON IF                   F2404020    
       01251  0 07400 4 01054        TSX FIXCON,4          NOT ALREADY THERE.                         F2404030    
       01252  0 60100 2 00450        STO OR000+12,2        STORE NAME OF FIXCON ENTRY.                F2404040    
       01253  2 00002 1 01254 COSE08 TIX COSE10,1,2                                                   F2404050    
       01254  2 00001 2 01243 COSE10 TIX COSE5,2,1         REPEAT FOR ALL SUBSCRIPTS.                 F2404060    
       01255 -0 53400 4 01411        LXD LINKC,4                                                      F2404070    
       01256  0 02000 4 00001        TRA 1,4               RETURN                                     F2404080    
                                         ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN.  F2404090    
                                         OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA    F2404100    
       01257 -0 63400 4 01313  LXC   SXD LXC19,4                                                      F2404110    
       01260  0 60100 0 01412        STO ERLXC             SAVE LOCATION OF INSTR. SKELETON.          F2404120    
       01261 -0 75400 1 00000        PXD 0,1               NO. OF INST TO BE COMPILED.                F2404130    
       01262  0 77100 0 00022        ARS 18                                                           F2404140    
       01263  0 40000 0 01412        ADD ERLXC             FORM ADDRESS WHICH GIVES                   F2404150    
       01264  0 62100 0 01267        STA LXC10             APPROPRIATE SKELETAL WORDS.                F2404160    
       01265  0 50000 0 01427  LXC08 CLA L(0)              SET CIT SYMBOLIC LOCN. TO ZERO             F2404170    
       01266  0 60100 0 01050        STO CIL00                                                        F2404180    
       01267  0 56000 1 00000  LXC10 LDQ 0,1               SELECT NEXT SKELETAL WORD.                 F2404190    
       01270  0 76300 0 00000        LLS 0                 FOR COMPILATION. SET SIGN IN AC.           F2404200    
       01271 -0 76300 0 00022        LGL 18                BCD. OPERATION IS IN DECREMENT.            F2404210    
       01272 -0 60000 0 01051        STQ CIL01             STORE OPERATION                            F2404220    
       01273 -0 12000 0 01314        TMI LXC20             CIT IS SHIFT TYPE INSTRUCTIQN.             F2404230    
       01274  0 62100 0 01275        STA LXC15             CIT IS SYMBOLIC ADDRESS TYPE.              F2404240    
 A     01275  0 50000 0 00000  LXC15 CLA                   ADDR. IS LOCATION OF SYMBOLIC ADDRESS      F2404250    
       01276  0 60100 0 01052        STO CIL02             OF CIT.                                    F2404260    
       01277  0 50000 0 01427        CLA L(0)                                                         F2404270    
       01300  0 60100 0 01053        STO CIL03             SET CIT TAG TO ZERO.                       F2404280    
       01301 -0 50000 0 01052        CAL CIL02             TEST FOR A COT                             F2404290    
       01302 -0 32000 0 01422        ANA 6ONES             SYMBOLIC ADDRESS OF THE TYPE               F2404300    
       01303  0 10000 0 01321        TZE LXC30             1)+3 OR6)+2 ERASABLE                       F2404310    
       01304 -0 32000 0 01423        ANA BIT01             STORAGE                                    F2404320    
       01305 -0 10000 0 01321        TNZ LXC30             NO                                         F2404330    
       01306 -0 50000 0 01052        CAL CIL02             YES. SEPARATE ADDRESS LEAVING THE          F2404340    
       01307  0 76700 0 00022        ALS 18                CLASS OF SYMBOLS IN SYMBOLIC               F2404350    
       01310  0 62200 0 01053        STD CIL03             ADDRESS POSN. ALONE, AND                   F2404360    
       01311 -0 50000 0 01422        CAL 6ONES             PLACING ADDEND IN REL. ADDRESS             F2404370    
       01312  0 32000 0 01052        ANS CIL02             POSITION.                                  F2404380    
 D     01313 -3 00000 0 01321  LXC19 TXL LXC30,0           UNCOND. TRANSFER LINKAGE INDECR.           F2404390    
       01314  0 76700 0 00022  LXC20 ALS 18                CIT IS SHIFT TYPE INSTRUCTION              F2404400    
       01315 -0 32000 0 01424        ANA DECMSK            I.E. ABSOLUTE ADDRESS ONLY,                F2404410    
       01316  0 60100 0 01053        STO CIL03             STORE ADDRESS IN CIT REL. ADDRESS.         F2404420    
       01317  0 50000 0 01427        CLA L(0)              STORE ZERO AS                              F2404430    
       01320  0 60100 0 01052        STO CIL02             SYMBOLIC ADDRESS.                          F2404440    
       01321  0 07400 4 01015  LXC30 TSX CIT,4             MAKE CIT ENTRY.                            F2404450    
       01322  2 00001 1 01265        TIX LXC08,1,1         RETURN FOR NEXT SKELETON INST.             F2404460    
       01323 -0 53400 4 01313        LXD LXC19,4           SKELET0N COMPLETED.                        F2404470    
       01324  0 02000 4 00001        TRA 1,4               RETURN.                                    F2404480    
       01325  0 00451 2 34321  LX100 HTR 14545,2,OR000+13  CLA. THESE WORDS                           F2404490    
       01326  0 00466 6 26346        HTR 11494,6,OR000+26  STO. CONSTITUTE THE                        F2404500    
       01327  0 00435 2 34321  LX102 HTR 14545,2,OR000+1   CLA. CODING                                F2404510    
       01330  0 00451 6 26422        HTR 11538,6,OR000+13  SUB. SKELETONS,                            F2404520    
       01331  0 00466 2 12424        HTR 5396,2,OR000+26   ADD. AND ARE                               F2404530    
       01332  0 00466 6 26346        HTR 11494,6,OR000+26  SO0. CALLED UPON                           F2404540    
       01333  0 00435 4 32450  LX105 HTR 13608,4,OR000+1   LDQ. BY THE LXC                            F2404550    
       01334  0 00445 4 44770        HTR 18936,4,OR000+9   MPY. ACCORDING                             F2404560    
       01335 -2 00021 2 14362        TNX 6386,2,17         ALS. TO THE                                F2404570    
       01336  0 00451 6 26422        HTR 11538,6,OR000+13  SUB. DIFFERENT                             F2404580    
       01337  0 00466 2 12424        HTR 5396,2,OR000+26   ADD. COMPUTATIONS                          F2404590    
       01340  0 00466 6 26346        HTR 11494,6,OR000+26  STO. REQUIRED.                             F2404600    
       01341  0 00440 4 32450  LX110 HTR 13608,4,OR000+4   LDQ.                                       F2404610    
       01342  0 00443 4 44770        HTR 18936,4,OR000+7   MPY. THE TAG AND                           F2404620    
       01343 -2 00021 2 14362        TNX 6386,2,17         ALS. ADDRESS ARE                           F2404630    
       01344  0 00443 6 26422        HTR 11538,6,OR000+7   SUB. THE BCD                               F2404640    
       01345  0 00466 2 12424        HTR 5396,2,OR000+26   ADD. EQUIVALENTS OF                        F2404630    
       01346  0 00466 6 26346        HTR 11494,6,OR000+26  STO. THE CIT                               F2404660    
       01347  0 00440 4 32450  LX116 HTR 13608,4,OR000+4   LDQ. INSTRUCTIONS.                         F2404670    
       01350  0 00446 4 44770        HTR 18936,4,OR000+10  MPY. THE SYMBOLIC                          F2404680    
       01351 -2 00022 4 35162        TNX 14962,4,18        LRS. DECREMENTS ARE                        F2404690    
       01352  0 00443 4 44770        HTR 18936,4,OR000+7   MPY. THE LOCATIONS                         F2404700    
       01353 -2 00021 2 14362        TNX 6386,2,17         ALS. OF THE                                F2404710    
       01354  0 00443 6 26422        HTR 11538,6,OR000+7   SUB. ADDRESSES IN                          F2404720    
       01355  0 00466 2 12424        HTR 5396,2,OR000+26   ADD. THE CIT                               F2404730    
       01356  0 00466 6 26346        HTR 11494,6,OR000+26  STO.                                       F2404740    
       01357  0 00461 4 32450  LX124 HTR 13608,4,OR000+21  LDQ. THE NEGATIVE                          F2404750    
       01360  0 00464 4 44770        HTR 18936,4,OR000+24  MPY. PREFIX INDICATES                      F2404760    
       01361 -2 00021 2 14362        TNX 6386,2,17         ALS. A PURELY                              F2404770    
       01362  0 00464 6 26422        HTR 11538,6,OR000+24  SUB. ABSOLUTE ADDRESS                      F2404780    
       01363  0 00466 2 12424        HTR 5396,2,OR000+26   ADD.                                       F2404790    
       01364  0 00466 6 26346        HTR 11494,6,OR000+26  STO.                                       F2404800    
       01365  0 00461 4 32450  LX130 HTR 13608,4,OR000+21  LDQ.                                       F2404810    
       01366  0 00447 4 44770        HTR 18936,4,OR000+11  MPY.                                       F2404820    
       01367 -2 00022 4 35162        TNX 14962,4,18        LRS.                                       F2404830    
       01370  0 00464 4 44770        HTR 18936,4,OR000+24  MPY.                                       F2404840    
       01371 -2 00021 2 14362        TNX 6386,2,17         ALS.                                       F2404850    
       01372  0 00464 6 26422        HTR 11538,6,OR000+24  SUB.                                       F2404860    
       01373  0 00466 2 12424        HTR 5396,2,OR000+26   ADD.                                       F2404870    
       01374  0 00466 6 26346        HTR 11494,6,OR000+26  STO.                                       F2404880    
 A     01375  0 00000 0 00000  NAME1 HTR                                                              F2404890    
 A     01376  0 00000 0 00000  TAG1  HTR                                                              F2404900    
 A     01377  0 00000 0 00000  TAG2  HTR                                                              F2404910    
 A     01400  0 00000 0 00000 RECCNT HTR                                                              F2404920    
 A     01401  0 00000 0 00000  AD1   HTR                                                              F2404930    
 A     01402  0 00000 0 00000  1XB0X HTR                                                              F2404940    
 A     01403  0 00000 0 00000  2XB0X HTR                                                              F2404950    
 A     01404  0 00000 0 00000  LINK2 HTR                                                              F2404960    
 A     01405  0 00000 0 00000  ERDRM HTR                                                              F2404970    
 A     01406  0 00000 0 00000 ERDRM1 HTR                                                              F2404980    
 A     01407  0 00000 0 00000 CPYWD1 HTR                                                              F2404990    
 A     01410  0 00000 0 00000 CPYWD2 HTR                                                              F2405000    
 A     01411  0 00000 0 00000  LINKC HTR                                                              F2405010    
 A     01412  0 00000 0 00000  ERLXC HTR                                                              F2405020    
 A     01413  0 00000 0 00000  AX    HTR                                                              F2405030    
 A     01414  0 00000 0 00000  BX    HTR                                                              F2405040    
 A     01415  0 00000 0 00000 SENSE1 HTR                                                              F2405050    
       01416 +020000000000     BCD2  OCT 020000000000                                                 F2405060    
       01417 +140000000000     BCD14 OCT 140000000000                                                 F2405070    
       01420 +120000000000     BCD10 OCT 120000000000                                                 F2405080    
       01421 +000001000000     L1DEC OCT 000001000000                                                 F2405090    
       01422 -370000000000     6ONES OCT 770000000000                                                 F2405100    
       01423 -200000000000     BIT01 OCT 600000000000                                                 F2405110    
       01424 +077777000000    DECMSK OCT 077777000000                                                 F2405120    
       01425  626346000000    L(STO) BCD 1STO000                                                      F2405130    
       01426  234321000000    L(CLA) BCD 1CLA000                                                      F2405140    
       01427  0 00000 0 00000  L(0)  HTR 0                                                            F2405150    
       01430  0 00000 0 00001  L(1)  HTR 1                                                            F2405160    
       01431  0 00000 0 00002  L(2)  HTR 2                                                            F2405170    
       01432  0 00000 0 00003  L(3)  HTR 3                                                            F2405180    
       01433  0 00000 0 00004  L(4)  HTR 4                                                            F2405190    
       01434  0 00000 0 00005  L(5)  HTR 5                                                            F2405193    
       01435  0 00000 0 00006  L(6)  HTR 6                                                            F2405200    
       01436  0 00000 0 01327  KLX02 HTR LX102             SKELETON KEYS                              F2405210    
       01437  0 00000 0 01333 KLX021 HTR LX105             FOR LXC ROUTINE.                           F2405220    
       01440  0 00000 0 01347  KLX03 HTR LX116                                                        F2405230    
       01441  0 00000 0 01341 KLX031 HTR LX110                                                        F2405240    
       01442  0 00000 0 01365  KLX05 HTR LX130                                                        F2405250    
       01443  0 00000 0 01357 KLX051 HTR LX124                                                        F2405260    
 M                      00450  OR012 SYN OR000+12                                                     F2405270    
 M                      00451  OR013 SYN OR000+13                                                     F2405280    
 M                      00456  OR018 SYN OR000+18                                                     F2405290    
 M                      00466  OR026 SYN OR000+26                                                     F2405300    
                        00004   DIAG EQU 4                                                            F2405305    
 A                      00000        END                                                              F2405310    
                              0OR012 00450,00450
                              0OR013 00451,00451
                              0OR018 00456,00456
                              0OR026 00466,00466
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     536           0           0           0           0
 LIB       0           0           0           0           0
 COL     536           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      549                  
0NUMBER OF SYMBOLS,  DEF   159,DEFOP     0,UNDEF     0      
9            REM FORTRAN 2*****BLOCK 5 OF SECTION 2***************************F2500000    
1                                        FORTRAN 2*****BLOCK 5 OF SECTION 2***************************F2500000    
                                         BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS    F2500030    
                                         1,2, AND 3 TO COMPILE ALL DO LOOP INDEXING INSTRUCTIONS.     F2500040    
                                         DECREMENTS ARE COMPUTED, AND WHEN NECESSARY OPEN SUBROUTINES F2500050    
                                         ARE COMPILED TO COMPUTE THESE DECREMENTS AT OBJECT PROGRAM   F2500060    
                                         TIME.  AT THE END OF BLOCK 5 THESE INSTRUCTIONSLARE ON TAPE  F2500070    
                                         3 IN SEMI-INVERTED ORDER.  BLOCK 6 INVERTS THE DOFILE INTO ITF2S00080    
                                         PROPER ORDER ONTO TAPE 4                                     F2500090    
                                                                                                      F2500100    
                                                                                                      F2500110    
                                            MASTER RECORD CARD = FN047                                F2500120    
                                         BEGIN INITIALIZATION                                         F2500130    
                                         THE INITIALIZATION RECORD IS THE FIRST RECORD 0B BLOCK 5 READF2500140    
                                         IN BY MONITOR.  IT POSITIONS THE INPUT TAPES 2 AND 4 AND     F2300130    
                                         REWINDS THE OUTPUT TAPE 3.IT READS THE NEXT RECORD (THE ALPHAF2300160    
                                         STATE) INTO CORES THEN WRITES IT ON DRUM 2.  THEN IT READS   F2500170    
                                         IN THE NEXT RECORD(COMMON + THE BETA STATE), AND WRITES THE BF2500180    
                                         BETA STATE ON DRUM 1.  IT READS THE ADTAG TABLE FROM DRUM 2 IF2500190    
                                         FIXCON IS CHECKED8 AND INITIALIZED IF NECESSARY. IF THERE AREF2500200    
                                         ANY DOS CONTROL IS PASSED TO MAN.  IF THERE ARE NO DOS THE NEF2500210    
                                         NEXT RECORD, WHICH IS BLOCK 6, IS READ IN.                   F2500220    
                        00030        ORG 24                                                           F2500230    
       00030  0 53400 1 00131 AINIT  LXA L5,1              INITIALIZE ERROR COUNTER,                  F2500240    
       00031  0 76400 0 00222        BST 146               POSITION TAPE 2                            F2500250    
       00032  0 76400 0 00222        BST 146               TO READ DOTAG                              F2500260    
       00033  0 76200 0 00222  A1    RDS 146                                                          F2500270    
       00034  0 70000 0 00124        CPY CPYWD3            DO TAG REC COUNT                           F2500280    
       00035  0 70000 0 00124        CPY CPYWD3            DO TAG REC COUNT                           F2500290    
       00036  0 76600 0 00333        WRS 219                                                          F2500300    
       00037 -0 76000 0 00012        RTT                                                              F2500310    
       00040  0 02000 0 00056        TRA A3I               ERROR                                      F2500320    
       00041 -0 53400 1 00124        LXD CPYWD3,1                                                     F2500330    
       00042 -3 00000 1 00044        TXL A2,1,0                                                       F2500340    
       00043  1 00002 1 00044        TXI A2,1,2                                                       F2500350    
       00044  0 76400 0 00222  A2    BST 146               BACKSPACE T0 BEGINNING                     F2500360    
       00045  2 00001 1 00044        TIX A2,1,1            OF DOTAG RECORDS                           F2500370    
       00046  0 77200 0 00223        REW 147               REWIND OUTPUT TAPE                         F2500380    
       00047  0 77200 0 00224        REW 148               REWIND TAGTAG TAPE                         F2500390    
       00050  0 76200 0 00224  A3    RDS 148                                                          F2500400    
       00051  0 70000 0 00124        CPY CPYWD3            TAGTAG RECORD COUNT                        F2500410    
       00052  0 02000 0 00050        TRA A3                                                           F2500420    
       00053  0 76200 0 00221        RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500430    
       00054  0 02000 0 00004        TRA 4                 E.D.F. READ IN NEXT BLOCK OF INST.         F2500440    
                                         THE ALPHA STATE IS NOW IN CORES.  CONTROL PASSES TO C.       F2500450    
       00055  0 02000 0 00050        TRA A3                E.O.R.                                     F2500460    
       00056 -2 00001 1 00061 A3I    TNX A4,1,1            READING                                    F2500470    
       00057  0 76400 0 00222        BST 146               ERROR                                      F2500480    
       00060  0 02000 0 00033        TRA A1                ROUTINE                                    F2500490    
       00061  0 07400 4 00004  A4    TSX DIAG,4            TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES.  F2500500    
       00062  0 53400 2 00146  C     LXA L0,2                                                         F2500510    
       00063  0 07400 4 00132        TSX BINIT,4           WRITE BLOCK A ON DRUM                      F2500520    
       00064  0 76200 0 00221        RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2300530    
       00065  0 02000 0 00004        TRA 4                 READ NEXT RECORD                           F2500540    
                                         COMMON AND BETA STATE ARE NOW IN CORES,  CONTROL IS PASSED TOF2500550    
                                         THE FOLLOWING INSTRUCTION.                                   F2500560    
       00066  0 53400 2 00126        LXA L1,2                                                         F2500570    
       00067  0 07400 4 00132        TSX BINIT,4           PLACE BLOCK B ON DRUM                      F2500580    
       00070  0 07400 4 00150        TSX ADTGDM,4          READ ADTAG ENTRIES                         F2500590    
       00071  0 53400 1 00131        LXA L5,1              INITIALIZE ERROR COUNTER.                  F2500600    
       00072  0 76200 0 00302  C1    RDS 194               SELECT FIXCON DRUM.                        F2500610    
       00073  0 70000 0 00124        CPY CPYWD3            WORD COUNT OF FIXCON                       F2500620    
       00074  0 70000 0 00125        CPY CPYWD4                                                       F2500630    
       00075  0 50000 0 00124        CLA CPYWD3                                                       F2500640    
       00076  0 40200 0 00125        SUB CPYWD4                                                       F2500650    
       00077 -0 10000 0 00122        TNZ C6                ERROR IN DRUM READING                      F2500660    
       00100  0 50000 0 00124        CLA CPYWD3                                                       F2500670    
       00101  0 10000 0 00114        TZE C4                NO ENTR1ES IN FIXCON                       F2500680    
       00102  0 40200 0 00127        SUB L2                                                           F2500690    
       00103  0 76700 0 00021        ALS 17                                                           F2500700    
       00104  0 62200 0 04616 C2     STD FC08+1            STORE WORD COUNT IN                        F2500710    
       00105  0 50000 0 05126        CLA L(1)              DECREMENT OF FC08-1                        F2500720    
       00106  0 60100 0 05205        STO SWICH2            SET SWITCH 2 TO 1                          F2500730    
       00107 -0 76000 0 00143        MSE 99                                                           F2500740    
       00110  0 02000 0 03654        TRA MAN               IF NO DOTAGS,                              F2500750    
       00111  0 76000 0 00143        PSE 99                TRA MONITOR                                F2500760    
       00112  0 76200 0 00221        RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500770    
       00113  0 02000 0 00004        TRA 4                 OTHERWISE TRA MAN.                         F2500780    
       00114  0 76600 0 00302  C4    WRS 194                                                          F2500790    
       00115  0 70000 0 00146        CPY L0                NO ENTRIES, WRITE                          F2500800    
       00116  0 70000 0 00146        CPY L0                ZEROS IN FIRST FOUR                        F2500810    
       00117  0 70000 0 00146        CPY L0                LOCATIONS OF DRUM 3                        F2500820    
       00120  0 70000 0 00146        CPY L0                                                           F2500830    
       00121  0 02000 0 00104        TRA C2                                                           F2500840    
       00122  2 00001 1 00072  C6    TIX C1,1,1            DRUM 2 READING ERROR ROUTINE.              F2500850    
       00123  0 07400 4 00004        TSX DIAG,4            DRUM 2 READING ERROR 5 TIMES.              F2500860    
 A     00124  0 00000 0 00000 CPYWD3 HTR                                                              F2500870    
 A     00125  0 00000 0 00000 CPYWD4 HTR                                                              F2500880    
       00126  0 00000 0 00001  L1    HTR 1                                                            F2500890    
       00127  0 00000 0 00002  L2    HTR 2                                                            F2500900    
       00130  0 00000 0 00003  L3    HTR 3                                                            F2500910    
       00131  0 00000 0 00005  L5    HTR 5                                                            F2500920    
                                         ************************************************************ F2300930    
                                         BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1  F2500940    
                                         RESPECTIVELY,                                                F2500930    
       00132  0 50000 0 00146  BINIT CLA L0                                                           F2500960    
       00133  0 53400 1 00147        LXA L1000,1           FORM CHECK SUM FOR                         F2500970    
 M     00134  0 36100 1 07226 B1     ACL RTXAC+1000,1      PROGRAM ON DRUM.                           F2500980    
       00135  2 00001 1 00134        TIX B1,1,1                                                       F2500990    
       00136  0 60200 0 00124        SLW CPYWD3                                                       F2501000    
       00137  0 53400 1 00147        LXA L1000,1                                                      F2501010    
       00140  0 76600 2 00302        WRS 194,2             WRITE 1000 WORDS OF                        F2501020    
       00141  0 46000 0 00147        LDA L1000             PROGRAM ONTO DRUM                          F2501030    
       00142  0 70000 0 00124        CPY CPYWD3                                                       F2501040    
 M     00143  0 70000 1 07226 B2     CPY RTXAC+1000,1                                                 F2501050    
       00144  2 00001 1 00143        TIX B2,1,1                                                       F2501060    
       00145  0 02000 4 00001        TRA 1,4                                                                      
 A     00146  0 00000 0 00000  L0    HTR  14                                                          F2501070    
       00147  0 00000 0 01750  L1000 HTR 1000                                                         F2501080    
                                         **00                                                         F2501090    
                                         ************************************************************ F2506930    
                                         ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES.         F2506940    
       00150  0 50000 0 05133 ADTGDM CLA L(0)              INITIALIZE ERROR INDICATOR                 F2506950    
       00151  0 60100 0 05223        STO ERORBX                                                       F2506960    
       00152  0 53400 2 05124 ADTG05 LXA LZEKMX,2          CHECK SUM AREA                             F2506970    
       00153  0 53400 1 05125        LXA LADMX,1           ADTAG AREA                                 F2501100    
       00154  0 76200 0 00303        RDS 195                                                          F2501110    
       00155  0 46000 0 00217        LDA DRADSI            READ ADTEG TABLE                           F2501120    
       00156  0 70000 1 03466 ADTG10 CPY ADTGMX,1          ADDRESS IS ORIGIN - MAX WORDS              F2501130    
       00157  0 50000 0 05123        CLA ALLONE            FENCE FOR TABLE END                        F2501140    
       00160  0 70000 1 03467        CPY ADTGMX+1,1                                                   F2501150    
       00161  0 40200 1 03466        SUB ADTGMX,1                                                     F2501160    
       00162  0 70000 1 03470        CPY ADTGMX+2,1                                                   F2501170    
       00163  0 10000 0 00170        TZE ADTG30            END OF TABLE.                              F2501180    
       00164  0 70000 1 03471        CPY ADTGMX+3,1                                                   F2501190    
       00165  1 77774 1 00166        TXI ADTG20,1,-4                                                  F2501200    
       00166  0 70000 2 01242 ADTG20 CPY ZEKSUM,2          CHECK SUM FOR DRMTAG.                      F2501210    
       00167  1 77777 2 00156        TXI ADTG10,2,-1                                                  F2501220    
       00170 -0 63400 1 00207 ADTG30 SXD ADTG38,1          MAX CURRENT TABLE SIZE.                    F2501230    
       00171 -0 63400 1 04521        SXD ADTGS1,1                                                     F2501240    
       00172  3 00617 1 00210        TXH ADTG38+1,1,399    RETURN IF TABLE DEPLETED.                  F2501250    
       00173  0 53400 1 05125        LXA LADMX,1           START TO CHECK                             F2501260    
       00174  0 53400 2 05124        LXA LZEKMX,2          ALL CHECK SUMS.                            F2501270    
       00175 -0 50000 1 03466 ADTG32 CAL ADTGMX,1                                                     F2501280    
       00176  0 36100 1 03467        ACL ADTGMX+1,1                                                   F2501290    
       00177  0 36100 1 03470        ACL ADTGMX+2,1                                                   F2501300    
       00200  0 36100 1 03471        ACL ADTGMX+3,1                                                   F2501310    
       00201  0 60200 0 00124        SLW CPYWD3                                                       F2501320    
       00202  0 50000 0 00124        CLA CPYWD3                                                       F2501330    
       00203  0 40200 2 01242        SUB ZEKSUM,2                                                     F2501340    
       00204 -0 10000 0 00211        TNZ EROR                                                         F2501350    
       00205  1 77774 1 00206        TXI ADTG34,1,-4                                                  F2501360    
       00206  1 77777 2 00207 ADTG34 TXI ADTG38,2,-1                                                  F2501370    
 D     00207  3 00000 1 00175 ADTG38 TXH ADTG32,1          TEST FOR END OF TABLE.                     F2501380    
       00210  0 02000 4 00001        TRA 1,4               END OF TABLE, READ CORRECTLY.              F2501390    
       00211  0 50000 0 05223  EROR  CLA ERORBX            IF ERROR IN A CHECK THE                    F2501400    
       00212  0 40000 0 05126        ADD L(1)              ENTIRE TABLE IS RE-READ.                   F2501410    
       00213  0 60100 0 05223        STO ERORBX            THIS IS DONE FOUR TIMES AFTER              F2501420    
       00214  0 40200 0 00131        SUB L5                THE FIRST READING OF THE TABLE.            F2501430    
       00215 -0 10000 0 00152        TNZ ADTG05                                                       F2501440    
       00216  0 07400 4 00004  STOP  TSX DIAG,4            DRUM 3 READING ERROR 5 TIMES.              F2501450    
       00217 +000000002664    DRADSI OCT 2664              DRMTG ORIGIN.                              F2501460    
                                         ************************************************************ F2301470    
                                         ************************************************************ F2301480    
                                                                                                      F2301490    
                                                                                                      F2301500    
                                            MASTER RECORD CARD = FN051                                F2501505    
                                         BEGIN COMMON AND BETA STATES                                 F2501510    
                                            **********************************************************F2301520    
                        00030        ORG 24                BEGIN BLOCK 5 COMMON                       F2501530    
                                                                                                      F2501540    
                        00030 CIB    BSS 100                                                          F2501550    
                        00174 DOTAG  BSS 450                                                          F2501560    
                        01076 TGTG   BSS 672                                                          F2501570    
                        02336 OMXTGA BSS 200                                                          F2501580    
                        02646 ADTG   BSS 404                                                          F2501590    
                        03472 OADTGA BSS 100                                                          F2501600    
                        03636 WRKSC  BSS 8                                                            F2501610    
       03646  0 00000 0 00000 TAG1                                                                    F2501620    
       03647  0 00000 0 00000 TAG2                                                                    F2501630    
 M     03650  0 00000 0 00000 TAG21                                                                   F2501640    
 M     03651  0 00000 0 00000 TAG22                                                                   F2501650    
                        03652 TAG3   BSS 1                                                            F2501660    
                        03653 TAG4   BSS 1                                                            F2501670    
                                         MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5.  A     F2501680    
                                         SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASSF2501690    
                                         ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE  F2501700    
                                         INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO.  CONTROL IS  F2501710    
                                         RETURNED TO MAN.  THIS PROCESS IS REPEATED UNTIL ALL ALPHAS  F2501720    
                                         AND BETAS IN A NEST HAVE BEEN TREATED.  THE WHOLE PROCEDURE IF2501730    
                                         IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCKF2501740    
                                         SIX.                                                         F2501750    
                                         ************************************************************ F2501760    
       03654  0 07400 4 04012  MAN   TSX TDOTG,4           READ ONE NEST OF DOTAG                     F2501770    
       03655  0 02000 0 03740        TRA MAN70             END OF PROBLEM                             F2501780    
       03656 -0 63400 2 04142        SXD DOGS60,2          INIT. DECREMENT OF TEST.                   F2501790    
       03657 -0 63400 2 03664        SXD MAN05,2                                                      F2501800    
       03660  0 53400 2 05057        LXA LMXDTG,2                                                     F2501810    
       03661 -0 50000 0 05103        CAL T1MSK             MASK FOR T1 WORD OF DOTAG                  F2501820    
       03662  0 32000 2 01104  MAN03 ANS DOTAGZ+6,2        T1 WORD MUST HAVE                          F2501830    
       03663  1 77767 2 03664        TXI MAN05,2,-9        SOME BITS REM0VED FOR                      F2501840    
 D     03664  3 00000 2 03662  MAN05 TXH MAN03,2           SXD LOCATION                               F2501830    
       03665  0 07400 4 04027        TSX TTG,4             READ NEST OF TAGTAGS                       F2501860    
       03666 -0 63400 2 04165        SXD FIND10,2          SAVE COUNT OF TAGTAGS IN NEST              F2501870    
       03667  0 50000 0 05133        CLA L(0)              ZERO.                                      F2501880    
       03670  0 53400 2 05122        LXA LHXTGA,2          INITIALIZE APPENDED TGTG                   F2501890    
       03671  0 60100 2 02646  MAN06 STO MXTGA,2           TO.                                        F2501900    
       03672  2 00001 2 03671        TIX MAN06,2,1         ZERO.                                      F2501910    
       03673  0 53400 2 05124        LXA LZEKMX,2          INITIALIZE APPENDED ADTAG                  F2501920    
       03674  0 60100 2 03636  STO   STO ADTGA,2           TO                                         F2501930    
       03675  2 00001 2 03674        TIX STO,2,1           ZERO                                       F2501940    
       03676  0 50000 0 05133  MAN10 CLA L(0)              INITIALIZE                                 F2501950    
       03677  0 60100 0 05173        STO BB0X              INDICATORS                                 F2501960    
       03700  0 60100 0 05230        STO DOIND                                                        F2501970    
       03701  0 60100 0 05231        STO DOIND1                                                       F2501980    
       03702  0 60100 0 05233        STO SWICH1                                                       F2501990    
       03703  0 50000 0 05123        CLA ALLONE            INITIALIZE                                 F2502000    
       03704  0 60100 0 05244        STO VCTR              INSTRUCTION COUNTER                        F2502010    
       03705  0 50000 0 05126  MAN20 CLA L(1)                                                         F2502020    
       03706  0 60100 0 05222        STO LOCIND                                                       F2502030    
       03707  0 07400 4 04055        TSX DOGS,4            SELECT BOR A                               F2502040    
       03710  0 02000 0 03731        TRA MAN50             NEST COMPLETELY ANALYZED                   F2502050    
       03711  0 50000 0 05233        CLA SWICH1            IS APPROPR1ATE                             F2502060    
       03712  0 34000 0 05205        CAS SWICH2            CODING IN CORES                            F2502070    
       03713  0 02000 0 03715        TRA MAN35             NO                                         F2502080    
       03714  0 02000 0 03720        TRA MAN40             YES                                        F2502090    
       03715  0 07400 4 03763  MAN35 TSX ABDRM,4           NO. READ STATE FROM DRUM                   F2502100    
       03716  0 50000 0 05233        CLA SWICH1                                                       F2502110    
       03717  0 60100 0 05205        STO SWICH2                                                       F2502120    
       03720 -0 53400 2 05230  MAN40 LXD DOIND,2                                                      F2502130    
       03721  0 50000 2 01076        CLA DOTAGZ,2                                                     F2502140    
       03722  0 62200 0 05224        STD A                 SAVE A                                     F2502150    
       03723  0 73400 1 00000        PAX 0,1                                                          F2502160    
       03724 -0 63400 1 05225        SXD B,1               CURRENT DO                                 F2502170    
       03725 -0 73400 1 00000 MAN45  PDX 0,1                                                          F2502180    
       03726 -0 75400 1 00000        PXD 0,1               ACCUMULATOR, LEAVING BETA                  F2502190    
 M     03727  0 07400 4 05256        TSX RTXAC,4                                                      F2502200    
       03730  0 02000 0 03705        TRA MAN20             BACK T0 DOGS                               F2502210    
       03731  0 07400 4 04352  MAN50 TSX CITSP,4           WRITE CIT BUFFER ON TAPE                   F2502220    
       03732  0 76600 0 00223        WRS 147                                                          F2502230    
       03733  0 70000 0 05133        CPY L(0)              END OF RECORD INDIC                        F2502240    
       03734  0 70000 0 05133        CPY L(0)                                                         F2502250    
       03735  0 70000 0 05133        CPY L(0)                                                         F2502260    
       03736  0 70000 0 05133        CPY L(0)                                                         F2502270    
       03737  0 02000 0 03654        TRA MAN                                                          F2502280    
       03740  0 77000 0 00223  MAN70 WEF 147               END OF FILE FOR DO FILE                    F2502290    
       03741  0 76600 0 00301        WRS 193                                                          F2502300    
       03742  0 46000 0 05065        LDA AD202                                                        F2502310    
       03743  0 70000 0 05063        CPY DRADS2                                                       F2502320    
       03744  0 70000 0 05063        CPY DRADS2                                                       F2502330    
       03745  0 76600 0 00301        WRS 193                                                          F2502340    
       03746  0 70000 0 05064        CPY DRADS3                                                       F2502350    
       03747  0 70000 0 05064        CPY DRADS3                                                       F2502360    
       03750  0 76600 0 00302        WRS 194                                                          F2502370    
       03751  0 50000 0 04616        CLA FC08+1                                                       F2502380    
       03752 -0 32000 0 05142        ANA DECMSK                                                       F2502390    
       03753  0 40000 0 05061        ADD L1DEC                                                        F2502400    
       03754  0 77100 0 00021        ARS 17                                                           F2502410    
       03755  0 60100 0 05214        STO AD1                                                          F2502420    
       03756  0 70000 0 05214        CPY AD1                                                          F2502430    
       03757  0 70000 0 05214        CPY AD1                                                          F2502440    
       03760  0 76000 0 00140        PSE 96                                                           F2502450    
       03761  0 76200 0 00221        RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2502460    
       03762  0 02000 0 00004        TRA 4                 EXIT BLOCK 5.                              F2502470    
                                         ************************************************************ F2502412    
                                         ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHAF2502400    
                                         OR BETA, INTO CORES WHEN NECESSARY.                          F2502500    
       03763 -0 63400 4 05223  ABDRM SXD ERORBX,4          STORE LINKAGE                              F2ZA1510    
       03764  0 53400 4 05233        LXA SWICH1,4                                                     F2502520    
       03765  0 53400 2 05132        LXA L(5),2            INITIALIZE DRUM READING ERROR COUNTER.     F2502530    
       03766  0 76200 4 00302  PGPG4 RDS 194,4                                                        F2502540    
       03767  0 53400 1 05073        LXA BLKSZE,1          = OF INST PLUS CHECK SUM                   F2502550    
       03770  0 46000 4 05073        LDA ABDRMA+1,4                                                   F2502560    
       03771  0 70000 0 05203        CPY CHEKSM                                                       F2502570    
 M     03772  0 70000 1 07226 PGPG8  CPY RTXAC+1000,1                                                 F2502580    
       03773  2 00001 1 03772        TIX PGPG8,1,1                                                    F2502590    
       03774  0 50000 0 05133        CLA L(0)                                                         F2502600    
       03775  0 53400 1 05073        LXA BLKSZE,1                                                     F2502610    
 M     03776  0 36100 1 07226 PGPG10 ACL RTXAC+1000,1                                                 F2502620    
       03777  2 00001 1 03776        TIX PGPG10,1,1                                                   F2502630    
       04000  0 60200 0 05202        SLW ERAB                                                         F2502640    
       04001  0 50000 0 05203        CLA CHEKSM                                                       F2502650    
       04002  0 40200 0 05202        SUB ERAB                                                         F2502660    
       04003  0 10000 0 04010        TZE PGPG14                                                       F2502670    
       04004  2 00001 2 03766        TIX PGPG4,2,1         READING ERROR  TRY AGAIN 4 TIMES,          F2502680    
       04005 -3 00000 4 04007        TXL PGPG12,4,0        WHICH DRUM.                                F2502690    
       04006  0 07400 4 00004        TSX DIAG,4            DRUM 1 READ INCORRECTLY 5 TIMES.           F2502700    
       04007  0 07400 4 00004 PGPG12 TSX DIAG,4            DRUM 2 READ INCORRECTLY 5 TIMES.           F2502710    
       04010 -0 53400 4 05223 PGPG14 LXD ERORBX,4                                                     F2502720    
       04011  0 02000 4 00001        TRA 1,4                                                          F2502730    
                                         ************************************************************ F2502740    
       04012  0 53400 1 05132  TDOTG LXA L(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES.   F2502750    
       04013  0 53400 2 05057 TDOTG1 LXA LMXDTG,2                                                     F2502770    
       04014  0 76200 0 00222        RDS 146               LOC. OF DOTAGZ                             F2502780    
       04015  0 70000 2 01076 TDOTG4 CPY DOTAGZ,2                                                     F2502790    
       04016  1 77777 2 04015        TXI TDOTG4,2,-1                                                  F2502800    
       04017  0 02000 4 00001        TRA 1,4               EF END OF PROBLEM                          F2502810    
       04020  0 76600 0 00333        WRS 219                                                          F2502820    
       04021 -0 76000 0 00012        RTT                                                              F2502830    
       04022  0 02000 0 04024        TRA TDOTG5            ERROR                                      F2502840    
       04023  0 02000 4 00002        TRA 2,4               RECORD CORRECTLY READ                      F2502850    
       04024  0 76400 0 00222 TDOTG5 BST 146               BACKSPACE AND REPEAT                       F2502860    
       04025  2 00001 1 04013        TIX TDOTG1,1,1        IF NOT YET READ 3 TIMES                    F2502870    
       04026  0 07400 4 00004        TSX DIAG,4            TAPE 4 READ INCORRECTLY 5 TIMES.           F2502880    
                                         ************************************************************ F2502890    
                                         TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES     F2502900    
       04027  0 53400 2 05121  TTG   LXA LMXTG,2           LOCATION OF MAX TAP TABLE SIZE             F2502910    
       04030  0 53400 1 05132  TTG01 LXA L(5),1            INITIALIZE TAPE ERROR COUNTER.             F2502920    
       04031  0 76200 0 00224  TTG02 RDS 148                                                          F2502930    
       04032 -0 63400 2 04043        SXD TTG10,2           FOR ERROR BACKUP IN READING                F2502940    
       04033  0 70000 2 02336  TTG05 CPY MXTGTG,2                                                     F2502950    
       04034  0 02000 0 04037        TRA TTG06                                                        F2502960    
       04035  0 07400 4 00004        TSX DIAG,4            FALXE END OF FILE ON TAPE 4.               F2502970    
       04036  0 02000 0 04041        TRA TTG07             END OF RECORD, CORRECT-EXIT.               F2502980    
       04037  2 00001 2 04033 TTG06  TIX TTG05,2,1                                                    F2502990    
       04040  0 07400 4 00004        TSX DIAG,4            BUFFFR EXCEEDED.                           F2503000    
       04041  0 76600 0 00333  TTG07 WRS 219                                                          F2503010    
       04042 -0 76000 0 00012        RTT                                                              F2503020    
 TD    04043 -3 00000 0 04051  TTG10 TXL TTG16             ERROR IN READING                           F2503030    
       04044  1 00004 2 04045        TXI TTG11,2,4         FIRST WORD LAST ENTRY                      F2503040    
       04045  0 50000 2 02336  TTG11 CLA MXTGTG,2          FOR NEST END TEST                          F2503050    
       04046  0 40200 0 05123        SUB ALLONE            END OF NEST INDICATOR                      F2503060    
       04047  0 10000 4 00001  TTG13 TZE 1,4               END OF NEST                                F2503070    
       04050  2 00004 2 04030        TIX TTG01,2,4                                                    F2503080    
       04051 -0 53400 2 04043  TTG16 LXD TTG10,2           TAPE ERROR ROUTINE ,  LOAD                 F2503090    
       04052  0 76400 0 00224        BST 148               TAG TABLE INDEX AND RETRY                  F2503100    
       04053  2 00001 1 04031        TIX TTG02,1,1         UP T0 5 TIMES.                             F2503110    
       04054  0 07400 4 00004        TSX DIAG,4            TAPE 4 READ INCORRECTLY 5 TIMES            F2503120    
                                         ************************************************************ F2503130    
                                         DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO   F2503140    
                                         CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA).             F2503150    
       04055  0 50000 0 05133  DOGS  CLA L(0)              INITIALIZING TO ZERO                       F2503160    
       04056  0 60100 0 05224        STO A                 ALL CALLS REQUIRED FOR                     F2503170    
       04057  0 60100 0 05225        STO B                 COMPARISON FOR EACH DO                     F2503180    
       04060  0 60100 0 05226        STO SWICH                                                        F2503190    
       04061  0 60100 0 05227        STO TEBBOX                                                       F2503200    
       04062 -0 53400 1 05231        LXD DOIND1,1          IF LEVEL OF LAST                           F2503210    
 D     04063 -3 00000 1 04072        TXL DOGS20,1                                                     F2503220    
       04064  0 50000 0 05233        CLA SWICH1                                                       F2503230    
       04065 -0 10000 0 04072        TNZ DOGS20                                                       F2503240    
       04066  0 50000 1 01103        CLA DOTAGZ+5,1        ANALYZED DOTAG ENTRY                       F2503250    
       04067 -0 73400 1 00000        PDX 0,1               IS ONE THEN THE NEST                       F2503260    
       04070  3 00001 1 04072        TXH DOGS20,1,1        HAS BEEN COMPLETELY                        F2503270    
       04071  0 02000 4 00001        TRA 1,4               ANALYZED. IF NOT                           F2503280    
       04072  0 53400 1 05057 DOGS20 LXA LMXDTG,1          START SCAN AT FIRST ENTRY                  F2503290    
       04073  0 50000 0 05226 DOGS22 CLA SWICH                                                        F2503300    
       04074 -0 10000 0 04104        TNZ DOGS25            B PORTION UNDER CONSIDERATION              F2503310    
       04075  0 50000 1 01076        CLA DOTAGZ,1          A PORTION UNDER CONSIDERATION              F2503320    
       04076 -0 32000 0 05136        ANA BIT1                                                         F2503330    
       04077 -0 10000 0 04134        TNZ DOGS50            CONTINUE, ALREADY ANALYZED                 F2503340    
       04100  0 50000 1 01076        CLA DOTAGZ,1          SETS UP A PORTION OF                       F2503350    
       04101 -0 73400 2 00000        PDX 0,2               DO FOR COMPARISON                          F2503360    
       04102 -0 63400 2 05225        SXD B,2               PUT A OF DO IN INDICATOR B                 F2503370    
       04103  0 02000 0 04114        TRA DOGS30            PROCEED T/ COMPARIS0N                      F2503380    
       04104  0 50000 1 01076 DOGS25 CLA DOTAGZ,1          B PORTION UNDER CONSIDERATION              F2503390    
       04105 -0 32000 0 05137        ANA BIT2              MASK T0 INDICATE LOOKED AT                 F2503400    
       04106 -0 10000 0 04134        TNZ DOGS50            ALREADY ANALYZED, CONTINUE                 F2503410    
       04107  0 50000 1 01076        CLA DOTAGZ,1          SET UP A IN                                F2503420    
       04110 -0 73400 2 00000        PDX 0,2               B WORD FOR COMPARISON                      F2503430    
       04111 -0 63400 2 05224        SXD A,2                                                          F2503440    
       04112  0 73400 2 00000        PAX 0,2                                                          F2503450    
       04113 -0 63400 2 05225        SXD B,2                                                          F2503460    
       04114  0 50000 0 05225 DOGS30 CLA B                                                            F2503470    
       04115  0 34000 0 05227        CAS TEBBOX                                                       F2503480    
       04116  0 02000 0 04125        TRA DOGS45            T-B1 STORE B IN TEB8OX                     F2503490    
       04117  0 02000 0 04121        TRA DOGS40            T=B1 COMPARE AS                            F2503500    
       04120  0 02000 0 04134        TRA DOGS50            T-B1 CONTINUE                              F2503510    
       04121  0 50000 0 05232 DOGS40 CLA TEABOX            COMPARE AS                                 F2503520    
       04122  0 34000 0 05224        CAS A                                                            F2503530    
       04123  0 02000 0 04134        TRA DOGS50            T-A CONTINUE                               F2503540    
       04124  0 07400 4 00004        TSX DIAG,4            T=A, ERROR.                                F2503550    
       04125  0 50000 0 05224 DOGS45 CLA A                 T-A STORE B IN TRBBOX                      F2503560    
       04126  0 60100 0 05232        STO TEABOX                                                       F2503570    
       04127  0 50000 0 05225        CLA B                                                            F2503580    
       04130  0 60100 0 05227        STO TEBBOX                                                       F2503590    
       04131 -0 63400 1 05231        SXD DOIND1,1          RECORD THE DO POSITION                     F2503600    
       04132  0 50000 0 05226        CLA SWICH             RECORD SWITCH                              F2503610    
       04133  0 60100 0 05233        STO SWICH1                                                       F2503620    
       04134  0 50000 0 05226 DOGS50 CLA SWICH             REVERSE SWITCH FOR                         F2503630    
       04135  0 40200 0 05126        SUB L(1)              EITHER B OF SAME DO OR                     F2503640    
       04136  0 76000 0 00003        SSP                   A OF NEXT DO                               F2503650    
       04137  0 60100 0 05226        STO SWICH                                                        F2503660    
       04140 -0 10000 0 04142        TNZ DOGS60            TESTS A,B STATUS IF A                      F2503670    
       04141  1 77767 1 04142        TXI DOGS60,1,-9       LOWERS INDEX FOR NEXT DO                   F2503680    
 D     04142  3 00000 1 04073 DOGS60 TXH DOGS22,1                                                     F2503690    
       04143 -0 53400 1 05231        LXD DOIND1,1          END OF SCAN                                F2503700    
       04144 -0 63400 1 05230        SXD DOIND,1           DO INDICATOR SET                           F2503710    
       04145  0 53400 2 05233        LXA SWICH1,2                                                     F2503720    
       04146  0 50000 0 05136        CLA BIT1              ORDER TO PLACE BIT IN                      F2503730    
       04147 -3 00000 2 04151        TXL DOGS70,2,0        A OR B USED                                F2503740    
       04150  0 77100 0 00001        ARS 1                 INDICATOR POSITION                         F2503750    
       04151 -0 60200 1 01076 DOGS70 ORS DOTAGZ,1                                                     F2503760    
       04152  0 02000 4 00002        TRA 2,4               EXIT AFTER FINDING DO                      F2503770    
                                         *************************************************************F2503780    
                                         SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2503790    
                                         DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA.         F2503800    
                                         THIS TAG IS CALLED RTXTGX.                                   F2503810    
       04153  0 53400 1 05121 SCAN   LXA LMXTG,1           COMPARE B WITH DOFOR                       F2503820    
       04154  0 50000 0 05225 SCAN05 CLA B                 DOTAG A OF EACH TAGTAG                     F2503830    
       04155  0 34000 1 02336        CAS MXTGTG,1          ENTRY IN NEST                              F2503840    
       04156  1 00004 1 04161        TXI SCAN10,1,4        SEARCH COMPLETED.                          F2503850    
       04157  0 07400 4 00004        TSX DIAG,4            EQUALITY IMPOSSIBLE.                       F2503860    
       04160  1 77774 1 04154        TXI SCAN05,1,-4       G LESS THAN A.                             F2503870    
       04161  0 02000 4 00001 SCAN10 TRA 1,4                                                          F2503880    
                                         *************************************************************F2503890    
                                         FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2503900    
                                         F1ED BY THE CURRENT DO.                                      F2503910    
       04162 -0 63400 4 04176 FIND   SXD FIND22,4                                                     F2503920    
       04163 -0 53400 1 05237        LXD XTG,1                                                        F2503930    
       04164  1 77774 1 04165 FINDO4 TXI FIND10,1,-4       BUMP TO NEXT TGTG ENTRY.                   F2503940    
 D     04165  3 00000 1 04170 FIND10 TXH FIND20,1          DECREMENT CONTAINS TGTG COUNT.             F2503950    
       04166 -0 53400 4 04176        LXD FIND22,4                                                     F2503960    
       04167  0 02000 4 00001        TRA 1,4               END OF TGTG TABLE AND DO.                  F2503970    
       04170  0 50000 0 05224 FIND20 CLA A                 COMPARE DOTAGA WITH                        F2503980    
       04171  0 34000 1 02336        CAS MXTGTG,1          TGTG DOFOR DOTAG A.                        F2503990    
       04172  0 02000 0 04166        TRA FIND10+1          END OF DO.                                 F2504000    
       04173  0 76100 0 00000        NOP                                                              F2504010    
       04174  0 07400 4 04213        TSX TGFM,4                                                       F2504020    
       04175  0 07400 4 04204        TSX ISC,4                                                        F2504030    
 D     04176 -3 00000 0 04164 FIND22 TXL FINDO4,0          POSIND=3 IF LEFTMMST SYMBML.               F2504040    
       04177 -0 75400 2 00000        PXD 0,2               2IF CENTER.                                F2504050    
       04200  0 77100 0 00022        ARS 18                1 IF RIGHTMOST.                            F2504060    
       04201  0 60100 0 05240        STO POSIND                                                       F2504070    
       04202 -0 53400 4 04176        LXD FIND22,4                                                     F3504080    
       04203  0 02000 4 00002        TRA 2,4               SUCCESSFUL SEARCH.                         F2504090    
                                         *************************************************************F2504100    
                                         ISC IS CALLED BY FIND TO TEST FOR MODIFICATION.              F2504110    
       04204  0 53400 2 05126 ISC    LXA L(1),2            COMPARE SUBSCRIPT                          F2504120    
       04205  0 50000 0 05230        CLA DOIND             WITH THE INDEX                             F2504130    
       04206  0 40200 2 03652        SUB TAG2+3,2          OF THE CURRENT DO.                         F2504140    
       04207  0 10000 4 00002        TZE 2,4               CURRENT DO MODIFIES THIS TAG.              F2504150    
       04210  1 00001 2 04211        TXI ISC+5,2,1         TRY NEXT LEFT                              F2504160    
       04211 -3 00003 2 04205        TXL ISC+1,2,3         SUBSCRIPT.                                 F2504170    
       04212  0 02000 4 00001        TRA 1,4               NO MODIFICATION, ERROR RETURN.             F2504180    
                                         *************************************************************F2504190    
                                         TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO       F2504200    
                                         WORKING TGTG.                                                F2504210    
       04213  0 50000 1 02336  TGFM  CLA MXTGTG,1                                                     F2504220    
       04214  0 62200 0 03646        STD TAG1              IN WORKING TGTG.                           F2504230    
       04215  0 73400 2 00000        PAX 0,2               A, X1, X2, X3, TG, TG1.                    F2504240    
       04216 -0 63400 2 03647        SXD TAG2,2                                                       F2504250    
       04217  0 50000 1 02337        CLA MXTGTG+1,1                                                   F2504260    
       04220  0 62200 0 03650        STD TAG2+1                                                       F2504270    
       04221  0 73400 2 00000        PAX 0,2                                                          F2504280    
       04222 -0 63400 2 03651        SXD TAG2+2,2                                                     F2504290    
       04223  0 50000 1 02340        CLA MXTGTG+2,1                                                   F2504300    
       04224  0 60100 0 03652        STO TAG3                                                         F2504310    
       04225  0 50000 1 02341        CLA MXTGTG+3,1                                                   F2504320    
       04226  0 60100 0 03653        STO TAG4                                                         F2504330    
       04227  0 02000 4 00001        TRA 1,4                                                          F2504340    
                                         *************************************************************F2504350    
                                         ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2504360    
       04230 -0 53400 2 05230 ENTR   LXD DOIND,2           SYMBOL OF DO IS                            F2504370    
       04231  0 50000 2 01077        CLA DOTAGZ+1,2        PLACED IN WRKSC                            F2504380    
       04232  0 60100 0 03637        STO WRKSC+1           AND COEF. IS SET                           F2504390    
       04233  0 50000 0 05061        CLA L1DEC             =1. THIS SIMULATES                         F2504400    
       04234  0 60100 0 03636        STO WRKSC             A TAU TABLE ENTRY.                         F2504410    
       04235  0 02000 4 00001        TRA 1,4                                                          F2504420    
                                         *************************************************************F2504430    
                                         SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG                  F2504440    
       04236 -0 63400 4 04320 SUBCOM SXD SUB085,4          SAVE LINKAGE.                              F2504450    
       04237  0 53400 1 05132        LXA L(5),1                                                       F2504460    
       04240  0 60100 0 04331        STO SUBTAG                                                       F2504470    
       04241  0 76200 0 00304 SUB010 RDS 196               SELECT TAU DRUM.                           F2504480    
       04242 -0 53400 4 04326        LXD SUBORG+2,4        INITIALIZE                                 F2504490    
       04243 -0 75400 0 00000        PXD 0,0               SUBSCRIPT COMBINATION                      F2504500    
       04244  0 60100 4 03646 SUB020 STO WRKSC+8,4         TO ZERO.                                   F2504510    
       04245  2 00001 4 04244        TIX SUB020,4,1                                                   F2504520    
       04246  0 50000 0 04331        CLA SUBTAG                                                       F2504530    
       04247  0 76500 0 00011        LRS 9                                                            F2504540    
       04250  0 73400 6 00000        PAX 0,6               TAU 1,2, OR 3                              F2504550    
       04251 -0 75400 0 00000        PXD 0,0               TAU 1 ADD. IS ORG+3TAU.                    F2504560    
       04252  0 76300 0 00011        LLS 9                 TAU2 ADD. IS ORG+5TAU.                     F2504570    
       04253  0 60100 0 04327        STO SUBES1            TAU THREE ADD. IS ORG+7TAU.                F2504580    
       04254  0 76700 0 00001        ALS 1                 STORE                                      F2504590    
       04255  0 60100 0 04330        STO SUBES2            ADRRESS                                    F2504600    
       04256  0 50000 4 04327        CLA SUBORG+3,4                                                   F2504610    
       04257  0 40000 0 04327        ADD SUBES1            FOR LDA                                    F2504620    
       04260  0 40000 0 04330 SUB030 ADD SUBES2            INSTRUCTION                                F2504630    
       04261  2 00001 4 04260        TIX SUB030,4,1                                                   F2504640    
       04262  0 62100 0 04327        STA SUBES1            ACTUAL DRUM ADDRESS.                       F2504650    
       04263  0 46000 0 04327        LDA SUBES1            COPY SUB. COMBINATION                      F2504660    
       04264  0 70000 0 03636        CPY WRKSC             WD1 IS C1 AND C2.                          F2504670    
       04265 -3 00002 2 04267        TXL SUB040,2,2        1 AND 2 DIM SKIP WD5.                      F2504680    
       04266  0 70000 0 03642        CPY WRKSC+4           WD5 IS C3.                                 F2504690    
       04267  0 70000 0 03637 SUB040 CPY WRKSC+1           WD2 IS S1,                                 F2504700    
       04270 -3 00001 2 04275        TXL SUB060,2,1        1 DIM., SKIP WDS 4,6,7.                    F2504710    
       04271  0 70000 0 03641        CPY WRKSC+3           WD4 IS S2.                                 F2504720    
       04272 -3 00002 2 04274        TXL SUB050,2,2        1 AND 2 DIM SKIP WD 6                      F2504730    
       04273  0 70000 0 03643        CPY WRKSC+5           WD6 IS S3.                                 F2504740    
       04274  0 70000 0 03644 SUB050 CPY WRKSC+6           WD7 IS DIMENSI0N                           F2504750    
       04275  0 70000 0 04327 SUB060 CPY SUBES1            CHECK-SUM INTO-SUBES1.                     F2504760    
       04276 -0 53400 4 04324        LXD SUBORG,4          COMPUTE CHECK-SUM.                         F2504770    
       04277 -0 50000 0 03636        CAL WRKSC                                                        F2504780    
       04300  0 36100 4 03645 SUB070 ACL WRKSC+7,4                                                    F2504790    
       04301  2 00001 4 04300        TIX SUB070,4,1        3 ATTEMPTS ARE MADE                        F2504800    
       04302  0 60200 0 04330        SLW SUBES2            TO READ SC CORRECTLY,                      F2504810    
       04303  0 50000 0 04330        CLA SUBES2            IF ERROR STILL PRESENT,                    F2504820    
       04304  0 40200 0 04327        SUB SUBES1            COMPLETE ROUTINE, RETURN.                  F2504830    
       04305  0 10000 0 04310        TZE SUB075            CHECK SUMS AGREE, TRA.                     F2504840    
       04306  2 00001 1 04241        TIX SUB010,1,1        ERROR, TRY UP TO 5 TIMES.                  F2504850    
       04307  0 07400 4 00004        TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2504860    
       04310 -0 53400 4 04325 SUB075 LXD SUBORG+1,4        REARRANGE C1,C2,D1, AND D2.                F2504870    
       04311  0 50000 4 03645 SUB080 CLA WRKSC+7,4                                                    F2504880    
       04312  0 73400 2 00000        PAX 0,2               C2 INTO XB.                                F2504890    
       04313 -0 32000 0 05142        ANA DECMSK                                                       F2504900    
       04314  0 60100 4 03645        STO WRKSC+7,4         WD1 DECREMENT IS C1)                       F2504910    
       04315 -0 75400 2 00000        PXD 0,2               WD7 DECREMENT IS D1.                       F2504920    
       04316 -2 00006 4 04321        TNX SUB090,4,6                                                   F2504930    
       04317  0 60100 0 03640        STO WRKSC+2                                                      F2504940    
 D     04320 -3 00000 0 04311 SUB085 TXL SUB080,0                                                     F2504950    
       04321  0 60100 0 03645 SUB090 STO WRKSC+7           WD8 DECREMENT IS D2.                       F2504960    
       04322 -0 53400 4 04320        LXD SUB085,4          RESTORE LINKAGE INDEX.                     F2504970    
       04323  0 02000 4 00001 SUB100 TRA 1,4                                                          F2504980    
       04324 +000006001356    SUBORG OCT 000006001356      DECREMENT IS 6, ADD. IS ORG. TAU3.         F2504990    
       04325 +000007000454           OCT 000007000454      DECREMENT IS 7, ADD. IS ORG. TAU2          F2505000    
       04326 +000010000000           OCT 000010000000      DECREMENT IS 8, ADD. IS ORG. TAU1          F2505010    
 A     04327  0 00000 0 00000 SUBES1 HTR                                                              F2505020    
 A     04330  0 00000 0 00000 SUBES2 HTR                                                              F2505030    
       04331  0 00000 0 00000 SUBTAG                                                                  F2505040    
                                         *************************************************************F2505050    
                                         LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2505060    
                                         DATES A COUNTER FOR THE NEXT ASSIGNMENT.                     F2505070    
       04332  0 50000 0 05222 LOC0   CLA LOCIND                                                       F2505080    
       04333  0 10000 2 00001        TZE 1,2               LOCATION ALREADY ASS1GNED.                 F2505090    
       04334  0 50000 0 05133        CLA L(0)              IF LOCIND GREATER                          F2505100    
       04335  0 60100 0 05222        STO LOCIND                                                       F2505110    
       04336  0 50000 0 05176        CLA CIL00             TO ZERO.                                   F2505120    
       04337 -0 10000 2 00001        TNZ 1,2               IF CIL00 HAS NOT BEEN                      F2505130    
       04340  0 50000 0 05244        CLA VCTR                                                         F2505140    
       04341  0 60100 0 05176        STO CIL00             UPDATE VCTR.                               F2505150    
       04342  0 40000 0 05110        ADD L(8)                                                         F2505160    
       04343  0 60100 0 05244        STO VCTR                                  -                      F2505170    
       04344  0 02000 2 00001        TRA 1,2               START COMPARING BUFFER                     F2505180    
                                         *************************************************************F2505190    
                                         CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTIF2505200    
                                         ION BUFFER.  IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF CF2505210    
                                         CIT) WRITES IT ONTO TAPE 3.                                  F2505220    
       04345 -0 63400 1 05174 CIT    SXD E2C,1             SIZE T0 CURRENT WORD COUNT.                F2505230    
       04346 -0 63400 2 05175        SXD E3C,2                                                        F2505240    
       04347  0 07400 2 04332        TSX LOC0,2                                                       F2505250    
       04350 -0 53400 2 05173        LXD BB0X,2            COMP OF CURRENT WORD COUNT.                F2505260    
       04351  3 77634 2 04362        TXH CIT04,2,-100      IF BUFFER INITIALLY                        F2505270    
       04352 -0 53400 2 05173 CITSP  LXD BB0X,2                                                       F2505280    
       04353 -3 00000 2 04362        TXL CIT04,2,0         WRITE                                      F2505290    
       04354  0 76600 0 00223        WRS 147               BUFFER                                     F2505300    
       04355  0 53400 1 05133        LXA L(0),1            0N TAPE 3.                                 F2505310    
       04356  0 70000 1 00030 CIT01  CPY CIB,1             COPY LOOP.                                 F2505320    
       04357  1 77777 1 04360        TXI CIT02,1,-1                                                   F2505330    
       04360  1 00001 2 04361 CIT02  TXI CIT03,2,1         DROP WORD COUNT.                           F2505340    
       04361  3 00001 2 04356 CIT03  TXH CIT01,2,1         TEST FOR BUFFER DNE.                       F2505350    
       04362  0 53400 1 05130 CIT04  LXA L(4),1            PROCEED TO NEW                             F2505360    
       04363  0 50000 1 05202 CIT05  CLA CIL00+4,1         INST INTO BUFFER.                          F2505370    
       04364  0 60100 2 00030        STO CIB,2                                                        F2505380    
       04365  1 77777 2 04366        TXI CIT07,2,-1        KEEP WORD COUNT UPDATED.                   F2505390    
       04366  2 00001 1 04363 CIT07  TIX CIT05,1,1                                                    F2505400    
       04367 -0 63400 2 05173        SXD BB0X,2            SAVE CURRENT WD CT,                        F2505410    
       04370 -0 53400 1 05174        LXD E2C,1                                                        F2505420    
       04371 -0 53400 2 05175        LXD E3C,2                                                        F2505430    
       04372  0 02000 4 00001        TRA 1,4                                                          F2505440    
                                         *************************************************************F2505430    
                                         SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG  F2505460    
       04373 -0 53400 1 03647 SCLMN1 LXD TAG2,1            S1 INDEX QUANTITY.                         F2505470    
       04374 -0 53400 2 03650        LXD TAG2+1,2          S2 INDEX QUANTITY.                         F2505480    
       04375 -0 63400 2 04376        SXD SCLMN2,2          THIS ROUTINE                               F2505490    
 D     04376  3 00000 1 04400 SCLMN2 TXH SCLMN3,1          COMPARES SIZES                             F2505500    
       04377 -0 53400 1 04376        LXD SCLMN2,1          OF THE INDEX                               F2505510    
       04400 -0 53400 2 03651 SCLMN3 LXD TAG2+2,2          QUANTITIES OF                              F2505520    
       04401 -0 63400 2 04402        SXD SCLMN4,2          EACH SUBSCRIPT IN A TAG.                   F2505530    
 D     04402  3 00000 1 04404 SCLMN4 TXH SCLMN5,1          LARGEST 2.X. QUANTITY                      F2505540    
       04403 -0 53400 1 04402        LXD SCLMN4,1          IS FOUND AND LEFT IN                       F2505550    
       04404 -0 75400 1 00000 SCLMN5 PXD 0,1               ACC FOR COMPARISON WITH DOIND.             F2505560    
       04405  0 02000 4 00001        TRA 1,4                                                          F2505570    
                                         *************************************************************F2505580    
                                         TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST  F2505590    
                                         DECREMENT.                                                   F2505600    
       04406  0 53400 1 05131 TELC   LXA L(3),1                                                       F2505610    
       04407  0 50000 0 05133        CLA L(0)                                                         F2505620    
       04410  0 60100 0 05245        STO ERTX01                                                       F2505630    
       04411 -0 63400 4 05236        SXD LINKC,4                                                      F2505640    
       04412  0 50000 1 03652 TELC05 CLA TAG2+3,1          SEQUENCE.  PUT S IN XB T0 PREPARE          F2505650    
       04413 -0 73400 2 00000        PDX 0,2               FOR CN1IJ ROUTINE.                         F2505660    
       04414 -3 00000 2 04416        TXL TELC10-2,2,0      NO S, GO TO NEXT S.                        F2505670    
       04415  0 07400 4 04423        TSX CN1IJ,4           COMPUTE (CN1-1)IJ-ETC.                     F2505680    
       04416  0 40000 0 05245        ADD ERTX01                                 .                     F2505690    
       04417  0 60100 0 05245        STO ERTX01            (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2.            F2505700    
       04420  2 00001 1 04412 TELC10 TIX TELC05,1,1        GO TO NEXT S FOR CN1IJ ROUTINE.            F2505710    
       04421 -0 53400 4 05236        LXD LINKC,4                                                      F2505720    
       04422  0 02000 4 00001        TRA 1,4                                                          F2505730    
                                         *************************************************************F2505740    
                                         CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A     F2505750    
                                         SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1               F2505760    
       04423  0 56000 2 01100 CN1IJ  LDQ DOTAGZ+2,2        N2 INTO MQ.                                F2505770    
       04424  0 76300 0 00022        LLS 18                                                           F2505790    
       04425 -3 00002 1 04431        TXL CN1IJ2,1,2        S2 OR S3, TRANSFER.                        F2505800    
       04426  0 20000 0 03636        MPY WRKSC             S1,                                        F2505810    
       04427  0 40200 0 05127        SUB L(2)                                                         F2505820    
       04430  0 02000 0 04445        TRA CN1IJ8                                                       F2505830    
       04431 -3 00001 1 04437 CN1IJ2 TXL CN1IJ4,1,1        DIVIDE BY 2 AND RETURN.                    F2505840    
       04432  0 20000 0 03640        MPY WRKSC+2           S2                                         F2505850    
       04433  0 40200 0 05127        SUB L(2)              COMPUTE                                    F2505860    
       04434  0 76500 0 00022        LRS 18                (2C2N1-2)D1D2 THEN                         F2505870    
       04435  0 20000 0 03644        MPY WRKSC+6           GO TO CN1IJ8 TO DIVIDE                     F2505880    
       04436  0 02000 0 04445        TRA CN1IJ8            BY 2 AND RETURN.                           F2505890    
       04437  0 20000 0 03642 CN1IJ4 MPY WRKSC+4           S3,                                        F2505900    
       04440  0 40200 0 05127        SUB L(2)              COMPUTE                                    F2505910    
       04441  0 76500 0 00022        LRS 18                (2C3N1-2)D1D2 THEN                         F2505920    
       04442  0 20000 0 03644        MPY WRKSC+6           GO TO CN1IJ8 TO DIVIDE                     F2505930    
       04443  0 76500 0 00022        LRS 18                DIVIDE BY 2 AND                            F2505940    
       04444  0 20000 0 03645        MPY WRKSC+7           RETURN.                                    F2503950    
       04445  0 77100 0 00001 CN1IJ8 ARS 1                 DIVIDE BY 2,  RESULT IS (C1N1-1)           F2505960    
       04446  0 02000 4 00001        TRA 1,4               OR (C2N1-1)D1 OR (C3N1-1)D1D2              F2505970    
                                         *************************************************************F2505980    
                                         CXIJ COMPUTES GN3X.  WHEN THE ROUTINE CXIJ+2 IS CALLED,      F2505990    
                                         GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2506000    
                                         BY THE CALLER.                                            .  F2506010    
       04447  0 50000 2 01103 CXIJ   CLA DOTAGZ+5,2                                                   F2506020    
       04450 -0 32000 0 05141        ANA ADMSK             ISOLATE X QUANTITY.                        F2506030    
       04451  0 60100 0 05247        STO ERTX03                                                       F2506040    
       04452  3 00001 1 04455        TXH CXIJ+6,1,1        S2 OR S1.                                  F2506050    
       04453  0 56000 0 03642        LDQ WRKSC+4           S3, LOAD C3.                               F2506060    
       04454  0 02000 0 04461        TRA CXIJ2                                                        F2506070    
       04455 -3 00002 1 04460        TXL CXIJ1,1,2         S2.                                        F2506080    
       04456  0 56000 0 03636        LDQ WRKSC             S1, LOAD C1.                               F2506090    
       04457  0 02000 0 04461        TRA CXIJ2                                                        F2506100    
       04460  0 56000 0 03640 CXIJ1  LDQ WRKSC+2           S2, LOAD C2.                               F2506110    
       04461  0 20000 0 05247 CXIJ2  MPY ERTX03                                                       F2506120    
       04462  3 00002 1 04470        TXH CXIJ4,1,2         IF S1, FINISHED.                           F2506130    
       04463  0 76500 0 00022        LRS 18                                                           F2506140    
       04464  0 20000 0 03644        MPY WRKSC+6           CX TIMES D1.                               F2506150    
       04465  3 00001 1 04470        TXH CXIJ4,1,1         IF S2, FINISHED.                           F2506160    
       04466  0 76500 0 00022        LRS 18                                                           F2506170    
       04467  0 20000 0 03645        MPY WRKSC+7           CXD1 TIMES D2.                             F2506180    
       04470  0 76300 0 00021 CXIJ4  LLS 17                                                           F2506190    
       04471  0 02000 4 00001        TRA 1,4               IN ACC. AND RETURN.                        F2506200    
                                         *************************************************************F2506210    
                                         CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2306220    
                                         KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO.  THE      F2506230    
                                         ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2306240    
                                         LOCATION OF THE SXD IS STORED IN THAT DQTAG SO THAT A TABLE (F2506250    
                                         (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN THEF2506260    
                                         PROPER ADDRESS DURING MERGE.                                 F2506270    
       04472 -0 63400 4 05245 CSXD   SXD ERTX01,4          ROUTINE FOR                                F2506280    
       04473  0 07400 4 06224        TSX CILV,4            COMPILING AN                               F2506290    
       04474  0 50000 0 05133        CLA L(0)              SXD INSTRUCTION                            F2506300    
       04475  0 60100 0 05201        STO CIL03             WHERE THE                                  F2506310    
       04476  0 60100 0 05200        STO CIL02                                                        F2506320    
       04477 -0 53400 4 05250        LXD BLKNUM,4                                                     F2506330    
       04500 -3 00002 4 04503        TXL CSXD4,4,2         BLOCKS B,C.                                F2506340    
 M     04501 -0 53400 4 03650        LXD TAG21,4           BLOCKS D,E, LOAD S2 INDEX.                 F2506350    
       04502  0 02000 0 04504        TRA CSXD4+1                                                      F2506360    
       04503 -0 53400 4 03647 CSXD4  LXD TAG2,4            BLOCKS B,C, LOAD S1 INDEX.                 F2506370    
       04504  0 50000 4 01076        CLA DOTAGZ,4          FOR BLOCKS B,C, FILL IN                    F2506380    
       04505 -0 32000 0 05071        ANA N0PRET            SYMBOLIC ADDRESS OF SXD                    F2506390    
       04506  0 60100 0 05200        STO CIL02             FROM WD1 OF S1 DOTAG.                      F2506400    
       04507  0 50000 0 03652        CLA TAG3              NOT KNOWN.                                 F2506410    
       04510  0 62100 0 05201        STA CIL03                                                        F2506420    
       04511  0 50000 0 05045        CLA L(SXD)                                                       F2506430    
       04512  0 60100 0 05177        STO CIL01                                                        F2506440    
       04513  0 07400 4 04345        TSX CIT,4                                                        F2506450    
       04514 -0 53400 4 05245        LXD ERTX01,4                                                     F2506460    
       04515  0 02000 4 00001        TRA 1,4                                                          F2506470    
                                         *************************************************************F2506480    
                                         ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION   F2506490    
                                         AND SPREADS IT INTO WORKING TAG (WRKSC).                     F2506500    
       04516 -0 53400 1 05237 ADTGSE LXD XTG,1                                                        F2506510    
       04517  1 77774 1 04520 ADTGS  TXI ADTGS+1,1,-4                                                 F2506520    
       04520 -0 63400 1 05237        SXD XTG,1                                                        F2506530    
 D     04521  3 00000 1 04523 ADTGS1 TXH ADTGS5,1                                                     F2506540    
       04522  0 02000 4 00001        TRA 1,4               END OF TABLE.                              F2506550    
       04523  0 50000 1 03466 ADTGS5 CLA ADTGMX,1          COMPARE ADTG DDA WITH                      F2506560    
       04524 -0 32000 0 05142        ANA DECMSK            DOTAG A AND B UNTIL                        F2506570    
       04525  0 34000 0 05224        CAS A                 WE FIND AN ADTAG                           F2506580    
       04526  0 02000 0 04531        TRA ADTGS4            MODIFIED BY A DO THAT                      F2506590    
       04527  0 02000 0 04531        TRA ADTGS4            IS WITHIN THE RANGE                        F2506600    
       04530  0 02000 0 04517        TRA ADTGS             OF THE CURRENT DO                          F2506610    
       04531  0 34000 0 05225 ADTGS4 CAS B                                                            F2506620    
       04532  0 02000 0 04517        TRA ADTGS             NOT IN RANGE, SELECT NEXT                  F2506630    
       04533  0 07400 4 00004        TSX DIAG,4            EQUALITY IMPOSSIBLE.                       F2506640    
       04534  0 50000 1 03466        CLA ADTGMX,1          IN RANGE, FILL                             F2506650    
       04535 -0 73400 2 00000        PDX 0,2               OUT WORKING TAG.                           F2506660    
       04536 -0 63400 2 03646        SXD TAG1,2            DDA IN TAG1 DECREMENT.                     F2506670    
       04537  0 73400 2 00000        PAX 0,2                                                          F2506680    
       04540 -0 63400 2 03647        SXD TAG2,2            S1 INDEX IN TAG2.                          F2506690    
       04541  0 50000 1 03467        CLA ADTGMX+1,1                                                   F2506700    
       04542 -0 73400 2 00000        PDX 0,2                                                          F2506710    
       04543 -0 63400 2 03650        SXD TAG2+1,2          S2 INDEX IN TAG2+1.                        F2506720    
       04544  0 73400 2 00000        PAX 0,2                                                          F2506730    
       04545 -0 63400 2 03651        SXD TAG2+2,2          S3 INDEX IN TAG2+2.                        F2506740    
       04546  0 50000 1 03470        CLA ADTGMX+2,1                                                   F2506750    
       04547  0 60100 0 03652        STO TAG3              TAG NAME IN TAG3.                          F2506760    
       04550  0 50000 1 03471        CLA ADTGMX+3,1                                                   F2506770    
       04551  0 60100 0 03653        STO TAG4              ADTG WD4 IN TAG4.                          F2506780    
       04552  0 53400 2 05126 ADTGS8 LXA L(1),2            INIT FOR POSING.                           F2506790    
       04553  0 50000 2 03652        CLA TAG2+3,2                                                     F2506800    
       04554  0 40200 0 05230        SUB DOIND             TEST FOR MODIFICATION,                     F2506810    
       04555  0 10000 4 00002        TZE 2,4               PROPER ENTRY FOUND.                        F2506820    
       04556  3 00002 2 04517        TXH ADTGS,2,2         NOT MOD BY DO, TAKE NEXT SUBSCRIPT         F2506830    
       04557  1 00001 2 04553        TXI ADTGS8+1,2,1      ADTG NOT MOD BY DO, TAKE NEXT ADTG.        F2506840    
                                         *************************************************************F2506830    
                                         N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO  LF2506860    
                                         LAST 3 BITS OF THE WORD N1SBX.                               F2506870    
       04560  0 50000 0 03653 N1STET CLA TAG4                                                         F2506880    
       04561  0 77100 0 00003        ARS 3                 ONE BIT                                    F2506890    
       04562 -0 32000 0 05076        ANA L(7)              IS STORED IN N1SBX.                        F2506900    
       04563  0 76700 0 00003        ALS 3                                                            F2506910    
       04564  0 60100 0 05254        STO N1SBX                                                        F2506920    
       04565  0 53400 1 05131        LXA L(3),1                                                       F2506980    
       04566  0 50000 1 03652 N1S02  CLA TAG2+3,1          A CONATAINS POSIND.                        F2506990    
       04567 -0 73400 2 00000        PDX 0,2                                                          F2507000    
 D     04570 -3 00000 2 04576        TXL N1S05,2           NO TAG FOR THIS POS.                       F2507010    
       04571  0 50000 2 01076        CLA DOTAGZ,2          ISOLATE                                    F2507020    
       04572  0 77100 0 00017        ARS 15                VARIABLE                                   F2507030    
       04573 -0 32000 0 05130        ANA L(4)              N1                                         F2507040    
       04574  0 77100 1 00003        ARS 3,1               BIT.                                       F2507050    
       04575 -0 60200 0 05254        ORS N1SBX             OR N1BIT TO N1SBX.                         F2507060    
       04576  2 00001 1 04566 N1S05  TIX N1S02,1,1         REPEAT FOR NEXT RIGHT S.                   F2507070    
       04577  0 50000 0 05254        CLA N1SBX                                                        F2507080    
       04600  0 02000 4 00001        TRA 1,4                                                          F2507090    
                                         *************************************************************F2507100    
                                         FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR AF2507110    
                                         FIXED POINT CONSTANT.  IF THE DESIRED FIXCON IS NOT THERE A SF2507120    
                                         SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE.               F2507130    
       04601 -0 63400 1 04634 FIXCON SXD FC29,1            SAVE                                       F2507140    
       04602 -0 63400 2 04624        SXD FC18,2            INDEX                                      F2507150    
       04603 -0 63400 4 04636        SXD FC34,4            REGISTERS.                                 F2507160    
 M     04604  0 60100 0 05243        STO ERDRM1                                                       F2507170    
       04605  0 53400 4 05132        LXA L(5),4                                                       F2507180    
       04606  0 50000 0 04667 FC02   CLA ORIGIN            FIXCON TABLE ORIGIN.                       F2507190    
       04607  0 60100 0 05214        STO AD1                                                          F2507200    
       04610  0 53400 1 05133        LXA L(0),1            INITIALIZE WORD COUNT TEST INDICATOR.      F2507210    
       04611  0 53400 2 05127        LXA L(2),2            INITIALIZE INDICATOR FOR TWO PASSES.       F2507220    
 M     04612  0 50000 0 05243 FC04   CLA ERDRM1            COMPARISON WORD IN ACCUMULATOR.            F2507230    
       04613  0 76200 0 00302        RDS 194               FIXCON TABLE                               F2507240    
       04614  0 46000 0 05214        LDA AD1               ON DRUM 3.                                 F2507250    
       04615  0 70000 0 05241 FC08   CPY CPYWD1            ENTRY FROM TABLE.                          F2507260    
 D     04616  3 00000 1 04627        TXH FC24+1,1          DECREMENT CONTAINS WORD COUNT.             F2507270    
       04617  0 70000 0 05242        CPY CPYWD2            CHECK SUM.                                 F2507280    
       04620  0 04000 0 04635        TLQ FC30              ENTRY LESS THAN COMPARISON WORD.           F2507290    
       04621  0 70000 0 05246        CPY ERDRM             SKIP EVEN ENTRIES FOR 2ND PASS.            F2507300    
       04622  0 34000 0 05242        CAS CPYWD2            COMPARE ENTRY WITH COMPARISON WORD.        F2507310    
       04623  0 07400 4 00004        TSX DIAG,4            TLQOBVIATES THIS PATH.                     F2507320    
 D     04624 -3 00000 0 04662 FC18   TXL FC60,0            EQUALITY SEARCH ENDED.                     F2507330    
       04625  0 70000 0 05246 FC20   CPY ERDRM             SKIP EVEN ENTRIES FOR 2ND PASS.            F2507340    
       04626  1 00002 1 04615 FC24   TXI FC08,1,2          BUMP WORD COUNT TEST INDICATOR             F2507330    
       04627 -2 00001 2 04637        TNX FC40,2,1          TEST FOR PASS CONDITION.                   F2507360    
       04630  0 50000 0 05214        CLA AD1               INITIALIZE ORIGIN DRUM                     F2507370    
       04631  0 40000 0 05127        ADD L(2)              ADDRESS FOR 2ND PASS                       F2507380    
       04632  0 60100 0 05214        STO AD1               (EVEN ENTRIES)                             F2507390    
       04633  0 53400 1 05126 FC28   LXA L(1),1            SET ENTRY NUMBER FOR SECOND PASS.          F2507400    
 D     04634 -3 00000 0 04612 FC29   TXL FC04,0            RETURN TO FC04 FOR SECOND PASS.            F2507410    
       04635  0 70000 0 05246 FC30   CPY ERDRM                                                        F2507420    
 D     04636 -3 00000 0 04625 FC34   TXL FC20,0                                                       F2507430    
       04637  0 60100 0 05241 FC40   STO CPYWD1            SEARCH ENDED, ENTRY NOT FOUND.             F2507440    
       04640 -0 53400 1 04616        LXD FC08+1,1                                                     F2507450    
       04641  1 00001 1 04642        TXI FC42,1,1          WORD COUNT,                                F2507460    
       04642 -0 63400 1 04616 FC42   SXD FC08+1,1          NEW TEST VALUE (WORD COUNT).               F2507470    
       04643 -0 75400 1 00000        PXD 0,1               WORD COUNT                                 F2507480    
       04644  0 77100 0 00021        ARS 17                PLUS                                       F2507490    
       04645  0 40000 0 04667        ADD ORIGIN            ORIGIN EQUALS                              F2507500    
       04646  0 60100 0 05214        STO AD1               NEW ADDRESS FOR DRUM WRITING.              F2507510    
       04647  0 76600 0 00302        WRS 194               SELECT                                     F2507520    
       04650  0 46000 0 05214        LDA AD1               DRUM AND                                   F2507530    
       04651  0 70000 0 05241        CPY CPYWD1            WRITE NEW CONSTANT                         F2507540    
       04652  0 70000 0 05241        CPY CPYWD1            AND CHECK SUM ON DRUM.                     F2507550    
       04653 -0 75400 1 00000 FC50   PXD 0,1               PLACE NAME OF CONSTANT                     F2507560    
       04654  0 77100 0 00022        ARS 18                IN ACCUMULATOR, RESTORE X REGISTERS,       F2507570    
       04655 -0 50100 0 05101        ORA BCD2              AND RETURN                                 F2507580    
       04656 -0 53400 1 04634        LXD FC29,1            TO                                         F2507590    
       04657 -0 53400 2 04624        LXD FC18,2            MAIN                                       F2507600    
       04660 -0 53400 4 04636        LXD FC34,4                                                       F2507610    
       04661  0 02000 4 00001        TRA 1,4               ROUTINE.                                   F2507620    
       04662  0 50000 0 05241 FC60   CLA CPYWD1            TEST DRUM READING                          F2507630    
       04663  0 40200 0 05242        SUB CPYWD2                                                       F2507640    
       04664  0 10000 0 04653        TZE FC50              DRUM READ CORRECTLY.                       F2507650    
       04665  2 00001 4 04606        TIX FC02,4,1          RETURN FOR 1ST-PASS.                       F2507660    
       04666  0 07400 4 00004 STOPFC TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2507670    
       04667  0 00000 0 00002 ORIGIN HTR 2                                                            F2507680    
                                         *************************************************************F2507690    
                                         OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2507700    
                                         THE COMILATION OF LOAD VALUE COMPUTATION.  IT OPTIMIZES WHEN F2507710    
                                         (CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME.                F2507720    
       04670  0 50000 4 77776 0P2    CLA 32766,4                                                      F2507730    
       04671  0 62100 0 04740        STA RETURN            LINKAGE.                                   F2507740    
       04672  0 50000 1 03652        CLA TAG2+3,1          IF S IS NOT                                F2507750    
       04673 -0 73400 2 00000        PDX 0,2               DEFINED BY A DO,                           F2507760    
       04674  3 00000 2 04676        TXH 0P2P,2,0                                                     F2507770    
       04675  0 02000 4 00001        TRA 1,4                                                          F2507780    
       04676  0 50000 2 01100 0P2P   CLA DOTAGZ+2,2        IF NOT DEFINED BY                          F2507790    
       04677 -0 32000 0 05104        ANA 6ONES                                                        F2507800    
       04700 -0 10000 4 00001        TNZ 1,4               RETURN TO MAIN ROUTINE.                    F2507810    
       04701  0 50000 2 01100        CLA DOTAGZ+2,2        IF CONSTANT, COMPUTE                       F2507820    
       04702  0 07400 4 04423        TSX CN1IJ,4                                                      F2507830    
       04703  0 10000 0 04740        TZE RETURN            RETURN AND CONSIDER S2.                    F2507840    
       04704  0 76700 0 00022        ALS 18                OTHERWISE COMPUTE                          F2507850    
       04705 -3 00002 1 04707        TXL 0P2P1,1,2                                                    F2507860    
       04706  0 40000 0 05061        ADD L1DEC             TO (CN1-1).                                F2507870    
       04707  0 07400 4 04601 0P2P1  TSX FIXCON,4                                                     F2507880    
       04710 -3 00002 1 04713        TXL 0P2P2,1,2                                                    F2507890    
       04711  0 60100 0 07567        STO OR000+1                                                      F2507900    
       04712  2 00001 1 05517        TIX AC050,1,1                                                    F2507910    
       04713  0 73400 1 00000 0P2P2  PAX 0,1                                                          F2507920    
       04714 -0 32000 0 05104        ANA 6ONES             ASSIGN FIXCON SYMBOL                       F2507930    
       04715  0 60100 0 05200        STO CIL02             CHECK SUBSCRIPT. IF                        F2507940    
       04716 -0 75400 1 00000        PXD 0,1               S1, TRA RETURN (3RD)   OTHERWISE           F2507930    
       04717  0 60100 0 05201        STO CIL03             COMPILE ADD L(SYMBOL).                     F2507960    
       04720  0 50000 0 05054        CLA L(ADD)            STO 1)+3.                                  F2507970    
       04721  0 60100 0 05177        STO CIL01                                                        F2507980    
       04722  0 50000 0 05133        CLA L(0)                                                         F2507990    
       04723  0 60100 0 05176        STO CIL00                                                        F2508000    
       04724 -0 53400 1 05173        LXD BB0X,1                                                       F2508010    
       04725  1 00004 1 04726        TXI 0P24,1,4                                                     F2508020    
       04726 -0 63400 1 05173 0P24   SXD BB0X,1                                                       F2508030    
       04727  0 07400 4 04345        TSX CIT,4                                                        F2508040    
       04730  0 50000 0 05044        CLA L(STO)                                                       F2508050    
       04731  0 60100 0 05177        STO CIL01                                                        F2508060    
       04732  0 50000 0 05075        CLA L3DEC                                                        F2508070    
       04733  0 60100 0 05201        STO CIL03                                                        F2508080    
       04734  0 50000 0 07620        CLA OR000+26                                                     F2508090    
       04735 -0 32000 0 05104        ANA 6ONES                                                        F2508100    
       04736  0 60100 0 05200        STO CIL02                                                        F2508110    
       04737  0 07400 4 04345        TSX CIT,4                                                        F2508120    
       04740  0 02000 0 00000 RETURN TRA 0                 ADDRESS MODIFIED,                          F2508130    
                                         *************************************************************F2508140    
                                         OP3 TESTS  FOR VARIABLE NS AND IF CONSTANT COMPILES A        F2508150    
                                         CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1),          F2508160    
       04741 -0 63400 4 05040 OP3    SXD EROP3,4                                                      F2508170    
       04742  0 50000 2 01076        CLA DOTAGZ,2          ARE ALL                                    F2508180    
       04743  0 77100 0 00017        ARS 15                N PARAMETERS                               F2508190    
       04744 -0 32000 0 05076        ANA L(7)              CONSTANT.                                  F2508200    
       04745 -0 10000 0 04766        TNZ OP31              NO, OP31.                                  F2508210    
       04746  0 50000 2 01101        CLA DOTAGZ+3,2        YES,                                       F2508220    
       04747  0 40200 2 01100        SUB DOTAGZ+2,2        FORM                                       F2508230    
       04750  0 76700 0 00022        ALS 18                N2-N1,                                     F2508240    
       04751  0 07400 4 04601        TSX FIXCON,4          OBTAIN FIXCON SYMBOL                       F2508250    
       04752  0 73400 4 00000        PAX 0,4               COMPILE                                    F2508260    
       04753 -0 32000 0 05104        ANA 6ONES             CLA                                        F2508270    
       04754  0 60100 0 05200        STO CIL02             L(N2-N1)                                   F2508280    
       04755 -0 75400 4 00000        PXD 0,4               AND                                        F2508290    
       04756  0 60100 0 05201        STO CIL03             RETURN                                     F2508300    
       04757  0 50000 0 05053        CLA L(CLA)            TO                                         F2508310    
       04760  0 60100 0 05177        STO CIL01             THE                                        F2508320    
       04761  0 50000 0 05133        CLA L(0)              CALLER.                                    F2508330    
       04762  0 60100 0 05176        STO CIL00             ZERO LOCATION.                             F2508340    
       04763  0 07400 4 04345        TSX CIT,4                                                        F2508350    
       04764 -0 53400 4 05040        LXD EROP3,4                                                      F2508360    
       04765  0 02000 4 00001        TRA 1,4                                                          F2508370    
       04766  0 77100 0 00001 OP31   ARS 1                                                            F2508380    
       04767  0 76000 0 00001        LBT                                                              F2508390    
       04770  0 02000 0 04776        TRA OP32                                                         F2508400    
       04771  0 50000 2 01101        CLA DOTAGZ+3,2        N2 VARIABLE,                               F2508410    
       04772  0 60100 0 05200        STO CIL02             COMPILE                                    F2506420    
       04773  0 50000 0 05133        CLA L(0)              CLA L(N2).                                 F2508430    
       04774  0 60100 0 05201        STO CIL03                                                        F2508440    
       04775  0 02000 0 05006        TRA OP33                                                         F2506450    
       04776  0 50000 2 01101 OP32   CLA DOTAGZ+3,2                                                   F2508460    
       04777  0 76700 0 00022        ALS 18                                                           F2508470    
       05000  0 07400 4 04601        TSX FIXCON,4                                                     F2508480    
       05001  0 73400 4 00000        PAX 0,4                                                          F2508490    
       05002 -0 32000 0 05104        ANA 6ONES                                                        F2508500    
       05003  0 60100 0 05200        STO CIL02                                                        F2508510    
       05004 -0 75400 4 00000        PXD 0,4                                                          F2508520    
       05005  0 60100 0 05201        STO CIL03                                                        F2508530    
       05006  0 50000 0 05133 OP33   CLA L(0)                                                         F2508540    
       05007  0 60100 0 05176        STO CIL00                                                        F2508550    
       05010  0 50000 0 05053        CLA L(CLA)                                                       F2508560    
       05011  0 60100 0 05177        STO CIL01                                                        F2508570    
       05012  0 07400 4 04345        TSX CIT,4                                                        F2508580    
       05013  0 50000 2 01076        CLA DOTAGZ,2                                                     F2508590    
       05014  0 77100 0 00021        ARS 17                                                           F2508600    
       05015  0 76000 0 00001        LBT                                                              F2508610    
       05016  0 02000 0 05024        TRA OP34                                                         F2508620    
       05017  0 50000 2 01100        CLA DOTAGZ+2,2        N1IS VARIABLE,                             F2508630    
       05020  0 60100 0 05200        STO CIL02             PREPARE TO                                 F2508640    
       05021  0 50000 0 05133        CLA L(0)              COMPILE                                    F2508650    
       05022  0 60100 0 05201        STO CIL03             SUBL(N1).                                  F2508660    
       05023  0 02000 0 05033        TRA OP35                                                         F2508670    
       05024  0 50000 2 01100 OP34   CLA DOTAGZ+2,2        N1 CONSTANT,                               F2508680    
       05025  0 76700 0 00022        ALS 18                OBTAIN                                     F2508690    
       05026  0 07400 4 04601        TSX FIXCON,4          FIXCON SYMBOL                              F2508700    
       05027  0 73400 4 00000        PAX 0,4               FOR N1                                     F2508710    
       05030 -0 32000 0 05104        ANA 6ONES             AND PREPARE                                F2508720    
       05031  0 60100 0 05200        STO CIL02             TO COMPILE                                 F2508730    
       05032 -0 63400 4 05201        SXD CIL03,4           SUB L(N1).                                 F2508740    
       05033  0 50000 0 05055 OP35   CLA L(SUB)            COMPILE                                    F2508750    
       05034  0 60100 0 05177        STO CIL01             SUB                                        F2508760    
       05035  0 07400 4 04345        TSX CIT,4             L(N1)                                      F2508770    
       05036 -0 53400 4 05040        LXD EROP3,4              .                                       F2508780    
       05037  0 02000 4 00001        TRA 1,4                                                          F2508790    
       05040  0 00000 0 00000 EROP3                                                                   F2508800    
       05041 +000000000100    ER0P   OCT 100                                                          F2508810    
                                         *************************************************************F2508820    
       05042  636731000000    L(TXI) BCD 1TXI000                                                      F2508830    
       05043  476724000000    L(PXD) BCD 1PXD000                                                      F2508840    
       05044  626346000000    L(STO) BCD 1STO000                                                      F2508850    
       05045  626724000000    L(SXD) BCD 1SXD000                                                      F2508860    
       05046  633167000000    L(TIX) BCD 1TIX000                                                      F2508870    
       05047  636743000000    L(TXL) BCD 1TXL000                                                      F2508880    
       05050  242524000000    L(DED) BCD 1DED000                                                      F2508890    
       05051  436724000000    L(LXD) BCD 1LXD000                                                      F2508900    
       05052  626324000000    L(STD) BCD 1STD000                                                      F2508910    
       05053  234321000000    L(CLA) BCD 1CLA000                                                      F2508920    
       05054  212424000000    L(ADD) BCD 1ADD000                                                      F2508930    
       05055  626422000000    L(SUB) BCD 1SUB000                                                      F2508940    
       05056  226262000000    L(BSS) BCD 1BSS000                                                      F2508950    
       05057  0 00000 0 00702 LMXDTG     450                                                          F2508960    
       05060 +000000000400    MAXLOC OCT 400                                                          F2508970    
       05061 +000001000000    L1DEC  OCT 1000000                                                      F2508980    
       05062 +000000002664    DRADS1 OCT 2664                                                         F2508990    
       05063  0 00000 0 00314 DRADS2     204                                                          F2509000    
       05064  0 00000 0 00002 DRADS3     2                                                            F2509010    
       05065  0 00000 0 00312 AD202      202                                                          F2509020    
       05066  0 00000 0 00021 L(17)      17                                                           F2509030    
       05067  0 00000 0 07566 L(OR0)     OR000                                                        F2509040    
       05070  0 00000 0 00000 ESTORE HTR 0                                                            F2509050    
       05071 +077777077777    N0PRET OCT 077777077777                                                 F2509050    
       05072 +000000001750    ABDRMA DEC 1000                                                         F2509070    
       05073 +000000001750    BLKSZE DEC 1000                                                         F2509080    
       05074 +000000077776    MINUS1 OCT 77776                                                        F2509090    
       05075 +000003000000    L3DEC  OCT 000003000000                                                 F2509100    
       05076  0 00000 0 00007 L(7)       7                                                            F2509110    
       05077 +170000000000    BCD15  OCT 170000000000                                                 F2509120    
       05100 +060000000002    BCD0   OCT 060000000002                                                 F2509130    
       05101 +020000000000    BCD2   OCT 020000000000                                                 F2509140    
       05102 -200000000000    BIT01  OCT 600000000000                                                 F2509150    
       05103 -300000077777    T1MSK  OCT 700000077777                                                 F2509160    
       05104 -370000000000    6ONES  OCT 770000000000                                                 F2509170    
       05105 +007777000000    TETMSK OCT 007777000000                                                 F2509180    
       05106  0 00000 0 00006 L(6)       6                                                            F2509190    
       05107  0 00000 0 00030 L(24)      24                                                           F2509200    
       05110  0 00000 0 00010 L(8)       8                                                            F2509210    
       05111 +000000000010    L(K1)  OCT 10                                                           F2509220    
       05112 +000004000000    L4DEC  OCT 000004000000                                                 F2509230    
       05113  0 00000 0 03636 INST20     ADTGA                                                        F2509240    
       05114  0 00000 0 02646 INST22     MXTGA                                                        F2509250    
       05115  0 00000 0 05673 INST24     RTX160                                                       F2509260    
       05116  0 00000 0 05716 INST26     RTX184                                                       F2509270    
       05117  0 00000 0 06204 INST30     RTX264                                                       F2509280    
       05120  0 00000 0 06065 INST32     RTX226                                                       F2509290    
       05121  0 00000 0 01240 LMXTG      672                                                          F2509300    
       05122  0 00000 0 00310 LHXTGA     200                                                          F2509310    
       05123 +377777777777    ALLONE OCT 377777777777                                                 F2509320    
       05124  0 00000 0 00144 LZEKMX     100                                                          F2509330    
       05125  0 00000 0 00620 LADMX      400                                                          F2509340    
       05126  0 00000 0 00001 L(1)       1                                                            F2509350    
       05127  0 00000 0 00002 L(2)       2                                                            F2509360    
       05130  0 00000 0 00004 L(4)       4                                                            F2509370    
       05131  0 00000 0 00003 L(3)       3                                                            F2509380    
       05132  0 00000 0 00005 L(5)       5                                                            F250939D    
       05133  0 00000 0 00000 L(0)       0                                                            F2509411    
       05134  0 00000 0 00012 L(10)      10                                                           F2509410    
       05135  0 00000 0 00020 L(16)      16                                                           F2509420    
       05136  2 00000 0 00000 BIT1   PTW 0                                                            F2509430    
       05137  1 00000 0 00000 BIT2   PON 0                                                            F2509440    
       05140 +002000000000    BIT8   OCT 002000000000                                                 F2509450    
       05141 +000000077777    ADMSK  OCT 77777                                                        F2509460    
       05142 +077777000000    DECMSK OCT 077777000000                                                 F2509470    
       05143  0 00000 0 00000 SMSK                                                                    F2509480    
       05144 +000000000760    SMSK1  OCT 760                                                          F2509490    
       05145 +000000000774    SMSK2  OCT 774                                                          F2509500    
       05146 +000000000763    SMSK3  OCT 763                                                          F2509510    
       05147 +000000000773    SMSK4  OCT 773                                                          F2509520    
       05150 +000000000020    BITMSK OCT 20                                                           F2509530    
       05151 +000000000010           OCT 10                                                           F2509540    
       05152 +000000074030    0PMSK  OCT 74030                                                        F2509550    
       05153 +000000003777    11BITS OCT 3777                                                         F2509560    
       05154 +000000100000    BIT20  OCT 100000                                                       F2509570    
       05155 -377777777777    36ONES OCT 777777777777                                                 F2509580    
       05156  0 53400 1 05130 INST2  LXA L(4),1                                                       F2509590    
       05157  0 53400 1 05127 INST3  LXA L(2),1                                                       F2509600    
       05160  0 02000 0 06115 INST4  TRA AC224                                                        F2509610    
       05161  0 02000 0 06116 INST5  TRA AC228                                                        F2509620    
       05162  0 00000 0 06250 INST8      AC244                                                        F2509630    
       05163  0 00000 0 03636 INST10     ADTGA                                                        F2509640    
       05164  0 00000 0 05315 INST11     AC010                                                        F2509650    
       05165  0 00000 0 02646 INST12     MXTGA                                                        F2509660    
       05166  0 02000 0 05725 INST13 TRA AC155                                                        F2509670    
       05167  0 07400 4 07131 INST14 TSX CIL03I,4                                                     F2509680    
       05170 +000000000077    6ONESR OCT 77                                                           F2509690    
       05171 +007777000000    6T017  OCT 007777000000                                                 F2509700    
       05172 +000000007777    24T035 OCT 7777                                                         F2509710    
 A     05173  0 00000 0 00000 BB0X   HTR                                                              F2509720    
 A     05174  0 00000 0 00000 E2C    HTR                                                              F2509730    
 A     05175  0 00000 0 00000 E3C    HTR                                                              F2509740    
                        05176 CIL00  BSS 1                                                            F2509750    
                        05177 CIL01  BSS 1                                                            F2509760    
                        05200 CIL02  BSS 1                                                            F2509770    
                        05201 CIL03  BSS 1                                                            F2509780    
                        05202 ERTGA  BSS 1                                                            F2509790    
                        05203 CHEKSM BSS 1                                                            F2509800    
                        05204 TETTG  BSS 1                                                            F2509810    
                        05205 SWICH2 BSS 1                                                            F2509820    
                        05206 ERLXC  BSS 1                                                            F2509830    
                        05207 AX     BSS 1                                                            F2509840    
                        05210 RELC0  BSS 1                                                            F2509850    
                        05211 WRKTGA BSS 1                                                            F2509860    
                        05212 N3X    BSS 1                                                            F2509870    
                        05213 XX     BSS 1                                                            F2509880    
                        05214 AD1    BSS 1                                                            F2509890    
                        05215 AD2    BSS 1                                                            F2509900    
                        05216 ADTGX  BSS 1                                                            F2509910    
                        05217 WRKRXT BSS 1                                                            F2509920    
                        05220 TETTGX BSS 1                                                            F2509930    
                        05221 RTXTGX BSS 1                                                            F2509940    
                        05222 LOCIND BSS 1                                                            F2509950    
                        05223 ERORBX BSS 1                                                            F2509960    
                        05224 A      BSS 1                                                            F2509970    
                        05225 B      BSS 1                                                            F2509980    
                        05226 SWICH  BSS 1                                                            F2509990    
                        05227 TEBBOX BSS 1                                                            F2510000    
                        05230 DOIND  BSS 1                                                            F2510010    
                        05231 DOIND1 BSS 1                                                            F2510020    
                        05232 TEABOX BSS 1                                                            F2510030    
                        05233 SWICH1 BSS 1                                                            F2510040    
                        05234 N3IND  BSS 1                                                            F2510050    
                        05235 N1N2N3 BSS 1                                                            F2510060    
                        05236 LINKC  BSS 1                                                            F2510070    
                        05237 XTG    BSS 1                                                            F2510080    
                        05240 POSIND BSS 1                                                            F2510090    
                        05241 ER40   BSS 1                                                            F2510100    
                        05242 ER41   BSS 1                                                            F2510110    
                        05243 ARG    BSS 1                                                            F2510120    
                        05244 VCTR   BSS 1                                                            F2510130    
                        05245 ERTX01 BSS 1                                                            F2510140    
                        05246 ERTX02 BSS 1                                                            F2510150    
                        05247 ERTX03 BSS 1                                                            F2510160    
                        05250 BLKNUM BSS 1                                                            F2510170    
                        05251 SXDTXZ BSS 1                                                            F2510180    
                        05252 OREDO  BSS 1                                                            F2510190    
                        05253 DEFDO  BSS 1                                                            F2510200    
                        05254 N1SBX  BSS 1                                                            F2510210    
                        05255 TETLOC BSS 1                                                            F2510220    
                                         *************************************************************F2510230    
                                         BEGIN BETA STAGE                                             F2510240    
                                         THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE       F2510250    
                                         INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE F2510260    
                                         DO.                                                          F2510270    
       05256 -0 63400 4 05325 RTX    SXD RTX024,4                                                     F2510280    
       05257 -0 53400 1 05244        LXD VCTR,1            VARIABLE CTR.  LAST BETA.                  F2510290    
       05260 -0 53400 2 05230        LXD DOIND,2           NEW DO                                     F2510300    
       05261  0 50000 2 01076        CLA DOTAGZ,2          ALPHA BETA WORD OF DO.                     F2510310    
       05262  0 73400 2 00000        PAX 0,2               PLACE B IN X.                              F2510320    
       05263 -0 63400 2 05264        SXD RTX04,2                                                      F2510330    
 D     05264 -3 00000 1 05276 RTX04  TXL RTX05,1           IS THIS THE FIRST BETA,                    F2510340    
       05265 -0 75400 2 00000        PXD 0,2                                                          F2510350    
       05266  0 40000 0 05111        ADD L(K1)             FIRST B. SET                               F2510360    
       05267  0 60100 0 05244        STO VCTR              VCTR AND                                   F2510370    
       05270  0 50000 0 05123        CLA ALLONE            INITIALIZE                                 F2510380    
       05271  0 60100 0 05176        STO CIL00             CIL BUFFER                                 F2510390    
       05272  0 60100 0 05177        STO CIL01             TO ALL ONES.                               F2510400    
       05273  0 60100 0 05200        STO CIL02                                                        F2510410    
       05274  0 60100 0 05201        STO CIL03                                                        F2510420    
       05275  0 07400 4 04352        TSX CITSP,4           USE SPECIAL CIT ENTRY.                     F2510430    
       05276  0 50000 0 05133 RTX05  CLA L(0)              INITIALIZE THE TEST TAG                    F2510440    
       05277  0 60100 0 05220        STO TETTGX            INDEX FOR THIS DO TO ZERO.                 F2510450    
       05300  0 60100 0 05237        STO XTG                                                          F2510460    
       05301  0 60100 0 05221        STO RTXTGX                                                       F2510470    
       05302  0 60100 0 05216        STO ADTGX                                                        F2510480    
       05303  0 07400 4 06235        TSX N3BIT,4           ISOLATE N3 BIT OF DOTAG                    F2510490    
       05304  0 07400 4 04153        TSX SCAN,4                                                       F2510500    
       05305 -0 63400 1 05221 RTXIN1 SXD RTXTGX,1          STORE FIRST TTG FOR TX CYCLE.              F2510510    
       05306 -0 63400 1 05237        SXD XTG,1             ENTRY THAT LIES BETWEEN A AND B            F2510520    
       05307  0 07400 4 04162 RTX06  TSX FIND,4                                                       F2510530    
       05310  0 02000 0 05707        TRA RTX180            END OF DO, START DMTG CYCLE.               F2510540    
       05311 -0 63400 1 05237        SXD XTG,1             SC MODIFIED BY DO, STORE.                  F2510550    
       05312  0 07400 4 06243        TSX TETG,4            PLACE TEST BITS IN TAG WORD.               F2510560    
       05313  0 07400 4 06277        TSX PRES,4                                                       F2510570    
                                         AT THE END OF THIS ROUTINE THE BLO0K INDICATION IS IN XB.    F2510580    
       05314  3 00004 2 05673        TXH RTX160,2,4        BLOCK F, NO INSTRUCTIONS, GET NEW TAG.     F2510590    
       05315  3 00000 2 05435        TXH RTX70,2,0         BLOCK DIFFERENT FROM A OR F,               F2510600    
       05316  0 50000 0 05234        CLA N3IND             BLOCK EQUALSA.                             F2510610    
       05317 -0 10000 0 05403        TNZ RTX68             DECREMENT OF RXA IS VARIABLE         .     F2510620    
       05320 -0 53400 1 03652 RTX020 LXD TAG3,1            DECREMENT IS CONSTANT.                     F2510630    
       05321  3 00000 1 05334        TXH RTX50,1,0         TEST FOR INSERTED COUNTER.                 F2510640    
       05322  0 50000 0 03652        CLA TAG3              OR RESET TAG.                              F2510650    
       05323  0 76500 0 00013        LRS 11                                                           F2510660    
       05324  0 76000 0 00001        LBT                                                              F2510670    
 D     05325 -3 00000 0 05327 RTX024 TXL RTX30,0           RESET                                      F2510680    
       05326  0 02000 0 05332        TRA RTX34             COUNTER.                                   F2510690    
       05327  0 50000 0 03652 RTX30  CLA TAG3              IF RESET TAG, PUT TAG                      F2510700    
       05330 -0 32000 0 05153        ANA 11BITS            NAME IN ACCUMULATOR AND                    F2510710    
       05331  0 02000 0 05336        TRA RTX51             GO TO SUBCOM.                              F2510720    
       05332  0 07400 4 04230 RTX34  TSX ENTR,4            IF COUNTER, MAKE                           F2510730    
       05333  0 02000 0 05337        TRA RTX52             ARTIFICIAL ENTRY IN WRKSC.                 F2510740    
       05334 -0 75400 1 00000 RTX50  PXD 0,1               CURRENT TAG.                               F2510750    
       05335  0 77100 0 00022        ARS 18                GET TAG NAME                               F2510760    
       05336  0 07400 4 04236 RTX51  TSX SUBCOM,4          LAY OUT TAU ENTRY.                         F2510770    
       05337  0 50000 0 05042 RTX52  CLA L(TXI)            COMPILE                                    F2510780    
       05340  0 60100 0 05177        STO CIL01             TXI                                        F2510790    
       05341  0 53400 1 05240        LXA POSIND,1          PREPARE FOR                                F2510800    
       05342 -0 53400 2 05230        LXD DOIND,2           EXIT-ROUTINE.                              F2510810    
       05343  0 07400 4 06447        TSX CN3IJ,4           ROUTINE COMPUTES DECREMENT N3G             F2510820    
       05344  0 60100 0 05245        STO ERTX01            AND STORES IN ERTX01.                      F2510830    
       05345  0 53400 1 05240        LXA POSIND,1                                                     F2510830    
       05346  0 50000 0 03653        CLA TAG4  .           TEST FOR DUPLICATE                         F2510840    
       05347  0 76500 0 00014        LRS 12                SUBSCRIPTS AND COMPUTE                     F2510850    
       05350  0 76300 1 00004        LLS 4,1               DECREMENT FOR THEM.                        F2510870    
       05351  0 76000 0 00001        LBT                   TEST ON S1,S2, OR S3 FOR DUPES.            F2510880    
       05352  0 02000 0 05376        TRA RTX66             NO DUPLICATES FOR THIS SUBSCRIPT.          F2510890    
       05353  0 77100 0 00001        ARS 1                                                            F2510900    
       05354  0 76000 0 00001        LBT                   TEST FOR S1 OR S2 DUPES                    F2510910    
       05355  1 00002 1 05367        TXI RTX62+3,1,2       DUPES ARE 1,3 ON TRANSFER                  F2510920    
       05356  1 00001 1 05357        TXI RTX61,1,1                                                    F2510930    
       05357  0 60100 0 05246 RTX61  STO ERTX02            STORE STATUS OF ACCUMULATOR.  DUPES ARE    F2510940    
       05360  0 07400 4 06447        TSX CN3IJ,4           1,2 OR 2,3 OR 1,2,3.                       F2510950    
       05361  0 53400 1 05240        LXA POSIND,1          COMPUTE DECREMENT ADJUSTMENT               F2510960    
       05362  0 40000 0 05245        ADD ERTX01            FOR NEXT LEFT SUBSCR1PT.                   F2510970    
       05363  0 60100 0 05245        STO ERTX01            REPLACE ADJUSTED DECREMENT IN ERTX01.      F2510980    
       05364  1 00002 1 05365 RTX62  TXI RTX62+1,1,2                                                  F2510990    
       05365  3 00003 1 05376        TXH RTX66,1,3         NOT 3RD SUBSCRIPT CASE,                    F2511000    
       05366  0 50000 0 05246        CLA ERTX02            LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB.  F2511010    
       05367  0 77100 0 00001        ARS 1                                                            F2511020    
       05370  0 76000 0 00001        LBT                   TEST FOR S1 DUPE.                          F2511030    
       05371  0 02000 0 05376        TRA RTX66                                                        F2511040    
       05372 -0 53400 2 05230        LXD DOIND,2                                                      F2511050    
       05373  0 07400 4 06447        TSX CN3IJ,4           COMPUTE DECREMENT ADJUSTMENT FOR S1        F2511060    
       05374  0 40000 0 05245        ADD ERTX01            IN 1,2,3 AND 1,3 CASES.                    F2511070    
       05375  0 60100 0 05245        STO ERTX01            FINAL DECREMENT ADJUSTMENT.                F2511080    
       05376  0 50000 0 05245 RTX66  CLA ERTX01                                                       F2511090    
       05377  0 62100 0 05177        STA CIL01             AFTER DECREMENT IS COMPUTED, FILL          F2511100    
       05400  0 07400 4 06465        TSX CIL023,4          OUT-4 WORDS OF                             F2511110    
       05401  0 07400 4 04345        TSX CIT,4             COMPILED INSTRUCTION.P                     F2511120    
       05402  0 02000 0 05413        TRA RTX69             AND CONTINUE.                              F2511130    
       05403  0 07400 4 06224 RTX68  TSX CILV,4            DECREMENT IS VARIABLE.   ASSIGN LOCATION.  F2511140    
       05404  0 50000 0 05176        CLA CIL00             PREPARE VCTR LOCATION                      F2511150    
       05405 -0 32000 0 05141        ANA ADMSK             FOR TGA ROUTINE.                           F2511160    
       05406  0 07400 4 06476        TSX TGA,4             PLACE LOCATION IN APPENDED TAGTAG WORD     F2511170    
       05407  0 07400 4 06625        TSX CIL23,4           AND THEN FILL OUT                          F2511180    
       05410  0 50000 0 05042        CLA L(TXI)            REMAINING WORDS OF                         F2511190    
       05411  0 60100 0 05177        STO CIL01             COMPILED INSTRUCTION                       F2511200    
       05412  0 07400 4 04345        TSX CIT,4             COMPILER ROUTINE.                          F2511210    
       05413  0 50000 0 03653 RTX69  CLA TAG4              TEST FOR SYM8OL                            F2511220    
       05414  0 12000 0 05673        TPL RTX160            INDICATION                                 F2511230    
       05415 -0 53400 2 05230        LXD DOIND,2           FORVAR                                     F2511240    
       05416  0 50000 2 01103        CLA DOTAGZ+5,2        OCCURRANCE.                                F2511250    
       05417 -0 32000 0 05136        ANA BIT1                                                         F2511260    
       05420  0 10000 0 05673        TZE RTX160            NO FORVAR, CONTINUE.                       F2511270    
       05421  0 50000 0 05133        CLA L(0)              FORVAR EXISTS.                             F2511280    
       05422  0 60100 0 05176        STO CIL00                                                        F2511290    
       05423  0 50000 0 03652        CLA TAG3              COMPILE                                    F2511300    
       05424 -0 32000 0 05141        ANA ADMSK             STORE                                      F2511310    
       05425  0 60100 0 05201        STO CIL03             INSTRUCTION                                F2511320    
       05426  0 50000 0 05045        CLA L(SXD)            FOR                                        F2511330    
       05427  0 60100 0 05177        STO CIL01             FORVAR OCCURRANCE.                         F2511340    
       05430 -0 53400 2 05230        LXD DOIND,2                                                      F2511350    
       05431  0 50000 2 01077        CLA DOTAGZ+1,2        PUT FORVAR SUBSCRIPT                       F2511360    
       05432  0 60100 0 05200        STO CIL02             IN RELATIVE ADDRESS                        F2511370    
       05433  0 07400 4 04345        TSX CIT,4             WORD FOR SXD INSTRUCTION.                  F2511380    
       05434  0 02000 0 05673        TRA RTX160                                                       F2511390    
       05435  3 00001 2 05466 RTX70  TXH RTX90,2,1         BLOCK IS B,C,D QR E.                       F2511400    
       05436 -0 63400 2 05250        SXD BLKNUM,2                                                     F2511410    
       05437 -0 53400 2 03647        LXD TAG2,2            BLOCK B FIRST DETERMINE                    F2511420    
       05440  0 07400 4 06620        TSX NBITS,4           IF DECREMENT IS VARIABLE                   F2511430    
       05441  0 40000 0 05234        ADD N3IND                                                        F2511440    
       05442 -0 10000 0 05464        TNZ RTX80             DECREMENT IS VARIABLE.                     F2511450    
       05443  0 50000 0 03652        CLA TAG3              DECREMENT IS CONSTANT.                     F2511460    
       05444  0 77100 0 00022        ARS 18                                                           F2511470    
       05445  0 07400 4 04236        TSX SUBCOM,4          LAY OUT TAU INTO WRKSC.                    F2511480    
       05446 -0 53400 2 05230        LXD DOIND,2           PREPARE FOR                                F2511490    
       05447  0 53400 1 05240        LXA POSIND,1          EXIT ROUTINE.                              F2511500    
       05450  0 07400 4 06447        TSX CN3IJ,4           COMPUTE N3G AND                            F2511510    
       05451  0 60100 0 05245        STO ERTX01            STORE IN ERTX01.                           F2511520    
       05452 -0 53400 2 03647        LXD TAG2,2                                                       F2511530    
       05453  0 53400 1 05240        LXA POSIND,1          MOVE POSIND T0 LEFT SUB                    F2511540    
       05454  1 00001 1 05455        TXI RTX72,1,1         AND COMPUTE XN3G                           F2511550    
       05455  0 07400 4 04447 RTX72  TSX CXIJ,4            FOR LEFT SUB WHICH IS TEST.                F2511560    
       05456  0 40200 0 05126        SUB L(1)                                                         F2511570    
       05457  0 60100 0 05246        STO ERTX02                                                       F2511580    
       05460  0 40000 0 05245        ADD ERTX01            ADDN3G FOR THIS SUBSCRIPT                  F2511590    
       05461  0 60100 0 05245        STO ERTX01            RESULT IS TXI DECREMENT.                   F2511600    
       05462  0 07400 4 06513        TSX EDCB,4            COMPILE TXI SXD TIX.                       F2511610    
       05463  0 02000 0 05673        TRA RTX160            CHECK BEST TEST.                           F2511620    
       05464  0 07400 4 06546 RTX80  TSX BCDE,4            BLOCK B IS VARIABLE.                       F2511630    
       05465  0 02000 0 05673        TRA RTX160                                                       F2511640    
       05466  3 00002 2 05525 RTX90  TXH RTX110,2,2        BLOCK IS C,D, OR E.                        F2511650    
       05467 -0 63400 2 05250        SXD BLKNUM,2          BLOCK IS C, PUT IN XB.                     F2511660    
       05470 -0 53400 2 03647        LXD TAG2,2            ISOLATE                                    F2511670    
       05471  0 07400 4 06620        TSX NBITS,4           NBITS INTO N1N2N3.                         F2511680    
       05472  0 40000 0 05234        ADD N3IND                                                        F2511690    
       05473 -0 10000 0 05523        TNZ RTX100            DECREMENT IS VARIABLE, TSX BCDE.           F2511700    
       05474  0 50000 0 03652        CLA TAG3              DECREMENT IS CONSTANT.                     F2511710    
       05475  0 77100 0 00022        ARS 18                LAY OUT TAU                                F2511720    
       05476  0 07400 4 04236        TSX SUBCOM,4          ENTRY INTO WRKSC.                          F2511730    
       05477 -0 53400 2 03647        LXD TAG2,2            COMPUTE                                    F2511740    
       05500  0 53400 1 05131        LXA L(3),1            XN3G-1                                     F2511750    
       05501  0 07400 4 04447 RTX91  TSX CXIJ,4            FOR                                        F2511760    
       05502  0 40200 0 05126        SUB L(1)              LEFT                                       F2511770    
       05503  0 60100 0 05246        STO ERTX02            SUBSCRIPT.                                 F2511780    
       05504  0 53400 1 05240        LXA POSIND,1          THEN COMPUTE N3G                           F2511790    
       05505  0 07400 4 06447        TSX CN3IJ,4           FOR RIGHT                                  F2511800    
       05506  0 40000 0 05246        ADD ERTX02            SUBSCRIPT.                                 F2511810    
       05507  0 60100 0 05245        STO ERTX01            RESULT IS ERTX01.                          F2511820    
       05510  0 50000 0 03653        CLA TAG4                                                         F2511830    
       05511  0 77100 0 00011        ARS 9                 TEST FOR DUPES.                            F2511840    
       05512  0 76000 0 00001        LBT                                                              F2511850    
       05513  0 02000 0 05521        TRA RTX95             NO DOSUB DUPE.                             F2511860    
       05514  0 53400 1 05240        LXA POSIND,1          DOSUB IS DUPE.                             F2511870    
       05515  1 00001 1 05516        TXI RTX93,1,1         COMPUTE ADJUSTMENT                         F2511880    
       05516  0 07400 4 06447 RTX93  TSX CN3IJ,4           FOR DECREMENT AND                          F2511890    
       05517  0 40000 0 05245        ADD ERTX01            STORE IN ERTX01.                           F2511900    
       05520  0 60100 0 05245        STO ERTX01            XN3G(L) + N3G(R) + N3G(C) - 1)             F2511910    
       05521  0 07400 4 06513 RTX95  TSX EDCB,4            COMPILE TXI SXD TIX.                       F2511920    
       05522  0 02000 0 05673        TRA RTX160                                                       F2511930    
       05523  0 07400 4 06546 RTX100 TSX BCDE,4            BLOCK DECREMENT IS VARIABLE.               F2511940    
       05524  0 02000 0 05673        TRA RTX160                                                       F2511950    
       05525  3 00003 2 05601 RTX110 TXH RTX140,2,3        D OR E.                                    F2511960    
       05526 -0 63400 2 05250        SXD BLKNUM,2          STORE BLOCK NUMBER D.                      F2511970    
       05527 -0 53400 2 03650        LXD TAG2+1,2          BLOCK D CONSIDERED.                        F2511980    
       05530  0 07400 4 06620        TSX NBITS,4           ISOLATE NBITS                              F2511990    
       05531  0 40000 0 05234        ADD N3IND             CHECK FOR VARIABLE DECREMENT.              F2512000    
       05532 -0 10000 0 05577        TNZ RTX130            DECREMENT IS VARIABLE.                     F2512010    
       05533  0 50000 0 03652        CLA TAG3              DECREMENT IS CONSTANT.                     F2512020    
       05534  0 77100 0 00022        ARS 18                SET UP TAG                                 F2512030    
       05535 -0 32000 0 05153        ANA 11BITS            NAME AND                                   F2512040    
       05536  0 07400 4 04236        TSX SUBCOM,4          LAY OUT TAU ENTRY.P                        F2512050    
       05537 -0 53400 2 03650        LXD TAG2+1,2          CONSIDER CENTER SUBSCRIPT                  F2512060    
       05540  0 53400 1 05127        LXA L(2),1            FOR EXIT ROUTINE.                          F2512070    
       05541  0 07400 4 04447        TSX CXIJ,4            COMPUTE XN3G FOR                           F2512080    
       05542  0 60100 0 05246        STO ERTX02            CENTER SUBSCRIPT.                          F2512090    
       05543  0 53400 1 05240        LXA POSIND,1          PREPARE DOSUB SUBSCRIPT                    F2512100    
       05544 -0 53400 2 05230        LXD DOIND,2           FOR CN3IJROUTINE.                          F2512110    
       05545  0 07400 4 06447        TSX CN3IJ,4           COMPUTE N3G FOR                            F2512120    
       05546  0 60100 0 05245        STO ERTX01            DOSUB SUBSCRIPT.                           F2512130    
       05547  0 50000 0 03653        CLA TAG4              TEST                                       F2512140    
       05550  0 77100 0 00011        ARS 9                 FOR                                        F2512150    
       05551 -0 32000 0 05076        ANA L(7)              DUPES,                                     F2512160    
       05552  0 10000 0 05570        TZE RTX126            NORMAL BLOCK D, NO DUPES.                  F2512170    
       05553  0 76000 0 00001        LBT                                                              F2512180    
       05554  0 02000 0 05563        TRA RTX118            XX0 BLOCK D, OR 0XX.                       F2512190    
       05555  0 53400 1 05240        LXA POSIND,1          X0X BLOCK D.                               F2512200    
       05556  1 00002 1 05557        TXI RTX114,1,2        SWITCH RIGHT OR LEFT POSIND.               F2512210    
       05557  0 07400 4 06447 RTX114 TSX CN3IJ,4           COMPUTE N3G                                F2512220    
       05560  0 40000 0 05245        ADD ERTX01            DECREMENT ADJUSTMENT                       F2512230    
       05561  0 60100 0 05245        STO ERTX01            FOR X0X                                    F2512240    
       05562  0 02000 0 05570        TRA RTX126            DUPES.                                     F2512250    
       05563 -0 53400 2 03650 RTX118 LXD TAG2+1,2          COMPUTE XN3G                               F2512260    
       05564  0 53400 1 05131        LXA L(3),1            DECREMENT                                  F2512270    
       05565  0 07400 4 04447 RTX122 TSX CXIJ,4            ADJUSTMENT                                 F2512280    
       05566  0 40000 0 05246        ADD ERTX02            FOR CENTER                                 F2512290    
       05567  0 60100 0 05246        STO ERTX02            SUBSCRIPT.                                 F2512300    
       05570  0 50000 0 05246 RTX126 CLA ERTX02            SUB1 AND                                   F2512310    
       05571  0 40200 0 05126        SUB L(1)              ADD ERTX01                                 F2512320    
       05572  0 60100 0 05246        STO ERTX02            AND ERTX02                                 F2512330    
       05573  0 40000 0 05245        ADD ERTX01            YIELDING TXI                               F2512340    
       05574  0 60100 0 05245        STO ERTX01            DECREMENT.                                 F2512350    
       05575  0 07400 4 06513        TSX EDCB,4            COMPILE TXI SXD TIX.                       F2512360    
       05576  0 02000 0 05673        TRA RTX160            END CHECK FOR TEST TAG.                    F2512370    
       05577  0 07400 4 06546 RTX130 TSX BCDE,4            BLOCK D IS VARIABLE.                       F2512380    
       05600  0 02000 0 05673        TRA RTX160                                                       F2512390    
       05601 -0 63400 2 05250 RTX140 SXD BLKNUM,2          BLOCK E                                    F2512400    
       05602 -0 53400 2 03647        LXD TAG2,2            PUT N BITS FOR S1                          F2512410    
       05603  0 07400 4 06620        TSX NBITS,4           PLACE N BITS PLUS                          F2512420    
       05604  0 40000 0 05234        ADD N3IND             N3IND FOR S1                               F2512430    
       05605  0 60100 0 05245        STO ERTX01            AND S2 INTO ERTX01                         F2512440    
       05606 -0 53400 2 03650        LXD TAG2+1,2          FOR VARIABLE DECREMENT                     F2512450    
       05607  0 07400 4 06620        TSX NBITS,4           TEST.  1F SUM IS NOT ZERO,                 F2512460    
       05610  0 40000 0 05245        ADD ERTX01            THEN THE DECREMENT IS VARIABLE.            F2512470    
       05611 -0 10000 0 05644        TNZ RTX154            DECREMENT IS VARIABLE.                     F2512480    
       05612  0 50000 0 03652        CLA TAG3              CONSTANT CASE, LAY                         F2512490    
       05613  0 77100 0 00022        ARS 18                OUT TAU ENTRY INTO                         F2512500    
       05614  0 07400 4 04236        TSX SUBCOM,4          WRKSC.                                     F2512510    
       05615 -0 53400 2 03650        LXD TAG2+1,2          SET UP CENTER SUBSCRIPT                    F2512520    
       05616  0 53400 1 05127        LXA L(2),1            FOR EXIT ROUTINE,                          F2512530    
       05617  0 07400 4 04447        TSX CXIJ,4            COMPUTE XN3G FOR CENTER.                   F2512540    
       05620  0 40200 0 05126        SUB L(1)              STORE SN3G-1                               F2512550    
       05621  0 60100 0 05246        STO ERTX02            IN ERTX02.                                 F2512560    
       05622  0 53400 1 05240        LXA POSIND,1          COMPUTE N3G                                F2512570    
       05623 -0 53400 2 05230        LXD DOIND,2           FOR RIGHT                                  F2512580    
       05624  0 07400 4 06447        TSX CN3IJ,4           SUBSCRIPT (DOSUB).                         F2512590    
       05625  0 40000 0 05246        ADD ERTX02            PUT FIRST TXI DECREMENT                    F2512600    
       05626  0 60100 0 05245        STO ERTX01            IN ERTX01.                                 F2512610    
       05627  0 07400 4 06513        TSX EDCB,4            COMPILES FIRST                             F2512620    
       05630 -0 53400 2 03647        LXD TAG2,2            THREE OF BLOCK E.                          F2512630    
       05631  0 53400 1 05240        LXA POSIND,1          COMPUTE XN3G FOR                           F2512640    
       05632  1 00002 1 05633        TXI RTX150,1,2        LEFT SUBSCRIPT.                            F2512650    
       05633  0 07400 4 04447 RTX150 TSX CXIJ,4            IN ORDER TO CMPILE 2ND                     F2512660    
       05634  0 40200 0 05126        SUB L(1)              TXI SXD TIX IN                             F2512670    
       05635  0 60100 0 05245        STO ERTX01            BLOCK E, THE BLOCK                         F2512680    
       05636  0 60100 0 05246        STO ERTX02            NUMBER IS SET TO                           F2512690    
       05637 -0 53400 4 05250        LXD BLKNUM,4          APPEAR LIKE BLOCK C SO                     F2512700    
       05640  2 00002 4 05641        TIX RTX152,4,2        THATTHE SXD LOCATION IS STORED             F2512710    
       05641 -0 63400 4 05250 RTX152 SXD BLKNUM,4          PROPERLY INTO DOTAG.                       F2512720    
       05642  0 07400 4 06513        TSX EDCB,4            COMPILE 2ND TXI SXD TIX.                   F2512730    
       05643  0 02000 0 05673        TRA RTX160                                                       F2512740    
       05644  0 07400 4 06546 RTX154 TSX BCDE,4            E IS VARIABLE.  THIS TAKES                 F2512750    
       05645  0 07400 4 06224        TSX CILV,4            CARE OF FIRST 3 INSTRUCTIONS.P             F2512760    
       05646  0 07400 4 06625        TSX CIL23,4           THE REMAINING THREE ARE                    F2512770    
       05647  0 50000 0 05042        CLA L(TXI)                                                       F2512780    
       05650  0 60100 0 05177        STO CIL01             NOW COMPILED.                              F2512790    
       05651  0 07400 4 04345        TSX CIT,4                                                        F2512800    
       05652 -0 53400 4 05250        LXD BLKNUM,4          CHANGE BLKNUM                              F2512810    
       05653  2 00002 4 05653 RTX157 TIX RTX157,4,2        FROM E                                     F2512820    
       05654 -0 63400 4 05250        SXD BLKNUM,4          TO C AND                                   F2512830    
       05655  0 07400 4 04472        TSX CSXD,4            TSX CSXD.                                  F2512840    
       05656 -0 53400 4 05250        LXD BLKNUM,4                                                     F2512850    
       05657  1 00002 4 05660        TXI RTX157+5,4,2                                                 F2512860    
       05660 -0 63400 4 05250        SXD BLKNUM,4                                                     F2512870    
       05661 -0 53400 2 03647        LXD TAG2,2            PLACE LOCATION OF SXD                      F2512880    
       05662  0 50000 0 05176        CLA CIL00             INSTRUCTION IN PROPER DOTAG ENTRY          F2512890    
       05663 -0 32000 0 05141        ANA ADMSK             AND POSITION. (LEFT SUB DO).               F2512900    
       05664  0 76700 0 00014        ALS 12                                                           F2512910    
       05665 -0 60200 2 01104        ORS DOTAGZ+6,2                                                   F2512920    
       05666  0 07400 4 06224        TSX CILV,4            GENERATE AND                               F2512930    
       05667  0 07400 4 06625        TSX CIL23,4                                                      F2512940    
       05670  0 50000 0 05046        CLA L(TIX)            COMPILE REMAINING INSTRC.                  F2512950    
       05671  0 60100 0 05177        STO CIL01                                                        F2512960    
       05672  0 07400 4 04345        TSX CIT,4             PUT INTO BUFFER.                           F2512970    
       05673 -0 53400 2 05230 RTX160 LXD DOIND,2           FINDING S.C, WHICH                         F2512980    
       05674  0 50000 2 01106        CLA DOTAGZ+8,2        HAS AN S THAT IS THE TEST.                 F2512990    
       05675 -0 32000 0 05105        ANA TETMSK                                                       F2513000    
       05676  0 60100 0 05245        STO ERTX01            TEST NAME.                                 F2513010    
       05677  0 50000 0 03652        CLA TAG3              COMPARE TAG NAME                           F2513020    
       05700  0 76700 0 00022        ALS 18                WITH BEST TEST                             F2513030    
       05701 -0 32000 0 05142        ANA DECMSK            OF CURRENT DO.                             F2513040    
       05702  0 40200 0 05245        SUB ERTX01            IF THIS TAG IS                             F2513050    
       05703 -0 10000 0 05706        TNZ RTX164            BEST TEST,                                 F2513060    
       05704  0 50000 0 05237        CLA XTG               STORE ITS INDEX                            F2513070    
       05705  0 60100 0 05220        STO TETTGX            IN TETTGX,                                 F2513080    
       05706  0 02000 0 05307 RTX164 TRA RTX06             GO TO FIND FOR NEXT TAG.                   F2513090    
       05707  0 50000 0 05116 RTX180 CLA INST26            RTX184 LOCATION.                           F2513100    
       05710  0 62100 0 05414        STA RTX69+1           RESET AT END OF ROUTINE.                   F2513110    
       05711  0 53400 4 05125        LXA LADMX,4           PREPARE FOR ADTAG TXI.                     F2513120    
       05712  1 00004 4 05713        TXI RTX180+4,4,4                                                 F2513130    
       05713 -0 63400 4 05237        SXD XTG,4                                                        F2513140    
       05714  0 50000 0 05113        CLA INST20            ADTGA LOCATION,                            F2513150    
       05715  0 62100 0 06507        STA TGA8                                                         F2513160    
       05716  0 07400 4 04516 RTX184 TSX ADTGSE,4          SEARCH FOR ADTAG.                          F2513170    
       05717  0 02000 0 05745        TRA RTX192            END OF TABLE, START TX PHASE.              F2513180    
       05720 -0 75400 2 00000        PXD 0,2               ENTRY FOUND, CONTINUE ADTG CYCLE.          F2513190    
       05721  0 77100 0 00022        ARS 18                POSIND IN ADDRESS.                         F2513200    
       05722  0 60100 0 05240        STO POSIND                                                       F2513210    
       05723  0 50000 0 03653        CLA TAG4              LOOK AT                                    F2513220    
       05724  0 77100 0 00025        ARS 21                CARRY BITS.                                F2513230    
       05725  3 00002 2 05732        TXH RTX190,2,2        S1, BLOCK A.                               F2513240    
       05726 -3 00001 2 05730        TXL RTX188,2,1        S3                                         F2513250    
       05727  0 77100 0 00002        ARS 2                 S2                                         F2513260    
       05730 -0 32000 0 05131 RTX188 ANA L(3)                                                         F2513270    
       05731 -0 10000 0 05716        TNZ RTX184            CARRY T1 OR T2 BLOCK F.                    F2513280    
       05732  0 50000 0 05234 RTX190 CLA N3IND                                                        F2513290    
       05733  0 10000 0 05320        TZE RTX020            DECREMENT IS CONSTANT.                     F2513300    
       05734  0 07400 4 06224        TSX CILV,4            DECREMENT IS VARIABLE.                     F2513310    
       05735  0 50000 0 05176        CLA CIL00             INSTRUCTION IS COMPILED                    F2513320    
       05736 -0 32000 0 05141        ANA ADMSK             AND ENTRY IS MADE                          F2513330    
       05737  0 07400 4 06476        TSX TGA,4             IN APPENDED DRM TG WORD,                   F2513340    
       05740  0 07400 4 06625        TSX CIL23,4                                                      F2513350    
       05741  0 50000 0 05042        CLA L(TXI)            COMPILE                                    F2513360    
       05742  0 60100 0 05177        STO CIL01             TXI AND PUT                                F2513370    
       05743  0 07400 4 04345        TSX CIT,4             IN CIB,                                    F2513380    
       05744  0 02000 0 05716        TRA RTX184            GET NEW ADTAG.                             F2513390    
       05745  0 50000 0 05115 RTX192 CLA INST24            RESET MODIFIED                             F2513400    
       05746  0 62100 0 05414        STA RTX69+1           ADDRESSES FOR                              F2513410    
       05747  0 50000 0 05114        CLA INST22            TXI CYCLE.                                 F2513420    
       05750  0 62100 0 06507        STA TGA8                                                         F2513430    
       05751 -0 53400 1 05220 RTX195 LXD TETTGX,1          DETERMINE IF THIS DO HAS A TEST.           F2513440    
       05752  3 00000 1 05770        TXH RTX197,1,0        THIS DO HAS A TEST.                        F2513450    
       05753 -0 53400 2 05230 RTX196 LXD DOIND,2           THIS DO HAS NO TEST.  THIS INFORMATION     F2513460    
       05754  0 50000 2 01076        CLA DOTAGZ,2          IS ENTERED IN A DRUM TABLE.                F2513470    
       05755  0 76700 0 00004        ALS 4                 ELIMINATE BITS                             F2513480    
       05756  0 77100 0 00004        ARS 4                 INSERTED BY DOGS.                          F2513490    
       05757  0 60100 0 05251        STO SXDTXZ            ENTER                                      F2513500    
       05760  0 76600 0 00301        WRS 193               DOTAG                                      F2513510    
       05761  0 46000 0 05064        LDA DRADS3            WORD                                       F2513520    
       05762  0 70000 0 05251        CPY SXDTXZ            ONE                                        F2513530    
       05763  0 70000 0 05251        CPY SXDTXZ            INTO                                       F2513540    
       05764  0 50000 0 05064        CLA DRADS3            DOCAR                                      F2513550    
       05765  0 40000 0 05127        ADD L(2)              DRUM.                                      F2513560    
       05766  0 60100 0 05064        STO DRADS3            TABLE.                                     F2513570    
       05767  0 02000 0 06222        TRA RTX280                                                       F2513580    
       05770  0 76000 0 00140 RTX197 PSE 096               CLEAR SENSE LIGHTS.                        F2513590    
       05771  0 07400 4 04213        TSX TGFM,4            FILL OUT TAG WORDS.                        F2513600    
       05772  0 07400 4 04204        TSX ISC,4             FIND DOSUB.                                F2513610    
       05773  0 07400 4 00004        TSX DIAG,4            SC NOT MODIFIED BY CURRENT DO.             F2313620    
       05774 -0 75400 2 00000        PXD 0,2               FORM                                       F2513630    
       05775  0 77100 0 00022        ARS 18                POSITION                                   F2513640    
       05776  0 60100 0 05240        STO POSIND            INDICATOR.                                 F2513650    
       05777  0 07400 4 06224        TSX CILV,4            OBTAIN LOCATION FOR TEST,                  F2513660    
       06000 -0 53400 2 05230        LXD DOIND,2           ISOLATE                                    F2513670    
       06001  0 07400 4 06620        TSX NBITS,4           NBITS.                                     F2513680    
       06002  0 60100 0 05235        STO N1N2N3                                                       F2513690    
       06003  0 50000 2 01101        CLA DOTAGZ+3,2                                                   F2513700    
       06004 -0 32000 0 05104        ANA 6ONES                                                        F2513710    
       06005 -0 10000 0 06045        TNZ RTX210            N2 IS VARIABLE                             F2513720    
       06006  0 53400 1 05240        LXA POSIND,1                                                     F2513730    
       06007 -2 00001 1 06015 RTX198 TNX RTX200,1,1        IS POSITION S3.                            F2513740    
       06010  0 50000 0 03653        CLA TAG4              CHECK FOR DORC.                            F2513750    
       06011 -0 32000 1 05152        ANA BITMSK+2,1                                                   F2513760    
       06012  0 60100 0 05254        STO N1SBX             N1 BIT.                                    F2513770    
       06013  0 07400 4 04566        TSX N1S02,4                                                      F2513780    
       06014 -0 10000 0 06045        TNZ RTX210            TXL VARIABLE DECREMENT,                    F2513790    
       06015 -0 53400 1 03652 RTX200 LXD TAG3,1                                                       F2513800    
       06016  3 00000 1 06021        TXH RTX201,1,0                                                   F2513810    
       06017  0 07400 4 04230        TSX ENTR,4            NOT NORMAL TAG, LAY OUT SIMULATED          F2513820    
       06020  0 02000 0 06024        TRA RTX202            TAU ENTRY INTO WRKSC.                      F2513830    
       06021  0 50000 0 03652 RTX201 CLA TAG3              PREPARE FOR                                F2513840    
       06022  0 77100 0 00022        ARS 18                SUBCOM ROUTINE.                            F2513850    
       06023  0 07400 4 04236        TSX SUBCOM,4          LAY OUT TAU ENTRY.                         F2513860    
       06024 -0 53400 2 05230 RTX202 LXD DOIND,2           PREPARE FOR AND CALL CXIJ                  F2513870    
       06025  0 53400 1 05240        LXA POSIND,1          ROUTINE T0 COMPUTE XGN3.                   F2513880    
       06026  0 50000 2 01101        CLA DOTAGZ+3,2        PTCH06 CALLS TELC ROUTINE                  F2513890    
       06027  0 07400 4 04451        TSX CXIJ+2,4                                                     F2513900    
       06030 -2 00001 1 06033        TNX RTX204,1,1                                                   F2513910    
       06031  0 07400 4 04410        TSX TELC+2,4          COMPUTES LOAD VALUE FOR                    F2513920    
       06032  0 50000 0 05245        CLA ERTX01            DEC, STORES IN ERTX01.                     F2513930    
       06033  0 60100 0 05177 RTX204 STO CIL01             FINAL TXL DECREHENT.                       F2513940    
       06034 -0 50000 0 05047        CAL L(TXL)                                                       F2513950    
       06035 -0 60200 0 05177        ORS CIL01                                                        F2513960    
       06036  0 07400 4 06634        TSX CILNAM,4          ENTER TAG NAME IN CIL03.                   F2513970    
       06037  0 50000 0 05224        CLA A                 ALPHA PLUS ONE IS                          F2513980    
       06040  0 40000 0 05061        ADD L1DEC             ENTERED AS THE SYMBOLIC                    F2513990    
       06041  0 60100 0 05200        STO CIL02             ADDRESS.                                   F2514000    
       06042  0 07400 4 04345        TSX CIT,4             ENTER TXL IN BUFFER,                       F2514010    
       06043  0 50000 0 05133        CLA L(0)              ELIMINATE VARIABLE INDICATOR BIT.          F2514020    
       06044  0 02000 0 06055        TRA RTX214                                                       F2514030    
       06045  0 50000 0 05047 RTX210 CLA L(TXL)            COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040    
       06046  0 60100 0 05177        STO CIL01                                                        F2514050    
       06047  0 07400 4 06634        TSX CILNAM,4          ENTER TAG NAME.                            F2514060    
       06050  0 50000 0 05224        CLA A                 ALPHA PLUS ONE IS                          F2514070    
       06051  0 40000 0 05061        ADD L1DEC             ENTERED AS THE                             F2514080    
       06052  0 60100 0 05200        STO CIL02             SYMBOLIC ADDRESS,                          F2514090    
       06053  0 07400 4 04345        TSX CIT,4             ENTER COMPILED TXL IN BUFFER.              F2514100    
       06054  0 50000 0 05154        CLA BIT20             TEST VAR1ABLE INDICATOR.                   F2514110    
       06055 -0 53400 2 05230 RTX214 LXD DOIND,2           ENTERONE IN BIT 20 IF                      F2514120    
       06056 -0 60200 2 01106        ORS DOTAGZ+8,2        VARIABLE DECREMENT.                        F2514130    
       06057  0 50000 0 05176        CLA CIL00             STORE LOCATION                             F2514140    
       06060  0 76700 0 00030        ALS 24                OF                                         F2514150    
       06061 -0 60200 2 01104        ORS DOTAGZ+6,2        TEST.                                      F2514160    
       06062  0 76000 0 00141        PSE 097               SET SENSE INDICATOR SO                     F2514170    
       06063 -0 53400 1 05221 RTX222 LXD RTXTGX,1          START SCAN FOR TIXING,                     F2514180    
       06064 -0 63400 1 05237        SXD XTG,1                                                        F2514190    
       06065  0 07400 4 04162 RTX226 TSX FIND,4            FIND VALID TAG.  FILL TAG WORDS.           F2514200    
       06066  0 02000 0 06201        TRA RTX260            END OF DO.                                 F2514210    
       06067 -0 63400 1 05237        SXD XTG,1             PRESERVE X OF TAG UNDER CONDSIDERATION.    F2514220    
       06070  0 07400 4 04373 RTX228 TSX SCLMN1,4          COMPARE LARGEST S INDES                    F2514230    
       06071  0 40200 0 05230        SUB DOIND             WITH INDEX OF THE DO.                      F2514240    
       06072  0 10000 0 06144        TZE RTX234            DO IS OUTER, OBTAIN TAG.                   F2514250    
       06073 -0 53400 2 03652        LXD TAG3,2                                                       F2514260    
       06074  3 00000 2 06103        TXH RTX229,2,0        CURRENT TAG VALID, FILL OUT WRKSC.         F2514270    
       06075  0 50000 0 03652        CLA TAG3              NEW TAG, DETERMINE                         F2514280    
       06076  0 77100 0 00013        ARS 11                IF TAU ENTRY                               F2514290    
       06077  0 76000 0 00001        LBT                   EXISTS.                                    F2514300    
       06100  0 02000 0 06110        TRA RTX229+5          NO,TSX ENTR.                               F2514310    
       06101  0 50000 0 03652        CLA TAG3              YES, TSX                                   F2514320    
       06102  0 02000 0 06105        TRA RTX229+2          SUBCOM.                                    F2514330    
       06103  0 50000 0 03652 RTX229 CLA TAG3              CURRENT TAG                                F2514340    
       06104  0 77100 0 00022        ARS 18                VALID.                                     F2514350    
       06105 -0 32000 0 05153        ANA 11BITS            FILL OUT                                   F2514360    
       06106  0 07400 4 04236        TSX SUBCOM,4          WRKSC AND                                  F2514370    
       06107  0 02000 0 06111        TRA RTX230            CONTINUE.                                  F2514380    
       06110  0 07400 4 04230        TSX ENTR,4            ARTIFICIAL WRKSC ENTRY,                    F2514390    
       06111  0 53400 4 05240 RTX230 LXA POSIND,4                                                     F2514400    
       06112  2 00001 4 06114        TIX CLA,4,1           MOVE RIGHT ONE POSITION.                   F2514410    
       06113  0 02000 0 06130        TRA RTX232            POSITION IS RIGHT, IGNORE CARRY,           F2514420    
       06114  0 50000 0 03653 CLA    CLA TAG4              POSITION IS LEFT OR CENTER,                F2514430    
       06115  0 77100 0 00001        ARS 1                 OR TYPE 1 AND 2                            F2514440    
       06116 -0 50100 0 03653        ORA TAG4              CARRY BITS FOR LEFT                        F2514450    
       06117 -3 00001 4 06122        TXL ARS,4,1           AND CENTER POSITIONS.                      F2514460    
       06120  0 77100 0 00027        ARS 23                S2 CARRY BIT IN POSITION 35,               F2514470    
       06121  0 02000 0 06123        TRA LBT                                                          F2514480    
       06122  0 77100 0 00025 ARS    ARS 21                S3 CARRY BIT IN POSITION 35                F2514490    
       06123  0 76000 0 00001 LBT    LBT                   TEST FOR DOSUB CARRY BIT.                  F2514500    
       06124  0 02000 0 06130        TRA RTX232            NO CARRY, CONTINUE.                        F2514510    
       06125  0 50000 0 05220        CLA TETTGX            CARRY, SEE IF THIS                         F2514520    
       06126  0 40200 0 05237        SUB XTG               TAG IS BEST TEST.                          F2514530    
       06127 -0 10000 0 06200        TNZ RTX254            NO, GET NEXT TAG.                          F2514540    
       06130  0 50000 0 05046 RTX232 CLA L(TIX)            COMPILE TIX INSTRUCTION.                   F2514550    
       06131  0 60100 0 05177        STO CIL01                                                        F2514560    
       06132  0 50000 0 05235        CLA N1N2N3            TEST FOR VARIABLE DECREMENT,               F2514570    
       06133  0 10000 0 06147        TZE RTX238            DECREMENT IS CONSTANT.                     F2514580    
       06134 -0 76000 0 00141        MSE 097               DECREMENT IS VARIABLE8 TURN OFF.           F2514590    
       06135  0 76100 0 00000        NOP                   LIGHT INDICATION FIRST                     F2514600    
       06136  0 07400 4 06224        TSX CILV,4            TIX AFTER TXL AND ASSIGN                   F2514610    
       06137  0 07400 4 06625        TSX CIL23,4           LOCATION.                                  F2514620    
       06140  0 50000 0 05176        CLA CIL00             WHEN DECREMENT IS VARIABLE, LOCATION       F2514630    
       06141 -0 32000 0 05141        ANA ADMSK             MUST BE STORED IN TGA WORD                 F2514640    
       06142  0 07400 4 06477        TSX TGAT,4            FOR SXD ADDRESS IS OBJECT TIME.            F2514650    
       06143  0 02000 0 06177        TRA RTX250            NOW PERFORM COMPILING.                     F2514660    
       06144  0 50000 0 05050 RTX234 CLA L(DED)            COMPILE OP WHICH INDICATES                 F2514670    
       06145  0 60100 0 05177        STO CIL01             SC IS DEAD.                                F2514680    
       06146  0 02000 0 06171        TRA RTX242            ASSIGN LOCATION IF NECESSARY.              F2514690    
       06147  0 53400 1 05240 RTX238 LXA POSIND,1          DECREMENT IS CONSTANT.                     F2514700    
       06150 -0 53400 2 05230        LXD DOIND,2           TEST FOR DUPLICATES                        F2514710    
       06151  0 07400 4 04447        TSX CXIJ,4            AND COMPUTE ACCORDINGLY                    F2514720    
       06152  0 60100 0 05245        STO ERTX01            XN3G IN ERTX01.                            F2514730    
       06153  0 56000 0 03653        LDQ TAG4              TEST                                       F2514740    
       06154  0 76300 1 00033        LLS 27,1              FOR.                                       F2514750    
       06155  0 76000 0 00001        LBT                   DUPES.                                     F2514760    
       06156  0 02000 0 06167        TRA RTX240            NO DUPES                                   F2514770    
       06157  1 00001 1 06160 RTX239 TXI RTX239+1,1,1      DUPES EXIST                                F2514780    
       06160  0 56000 0 03653        LDQ TAG4              TEST DUPE                                  F2514790    
       06161  0 76300 1 00033        LLS 27,1              BITS OF POSITIONS                          F2514800    
       06162  0 76000 0 00001        LBT                   TO THE LEFT OF DOSUB                       F2514810    
       06163  0 02000 0 06157        TRA RTX239            UNTIL THAT POSITION IS                     F2514820    
       06164  0 07400 4 04447        TSX CXIJ,4            IN XA, THEN CALLCXIJ                       F2514830    
       06165  0 40000 0 05245        ADD ERTX01            AND COMPUTE AND ADD                        F2514840    
       06166  0 60100 0 05245        STO ERTX01            DECREMENT ADJUSTMENT                       F2514850    
       06167  0 50000 0 05245 RTX240 CLA ERTX01            PUT COMPUTED DE EREMTN                     F2514860    
       06170  0 62100 0 05177        STA CIL01             IN CIL01 WORD.                             F2514870    
       06171 -0 76000 0 00141 RTX242 MSE 097               A LOC MUST BE ASSIGNED IF                  F2514880    
       06172  0 02000 0 06176        TRA RTX246                                                       F2514890    
       06173  0 07400 4 06224        TSX CILV,4            THIS IS FIRST TIX AFTER                    F2514900    
       06174  0 07400 4 06625        TSX CIL23,4           TEST.                                      F2514910    
       06175  0 02000 0 06177        TRA RTX250                                                       F2514920    
       06176  0 07400 4 06465 RTX246 TSX CIL023,4                                                     F2514930    
       06177  0 07400 4 04345 RTX250 TSX CIT,4             COMPILE INST.                              F2514940    
       06200  0 02000 0 06065 RTX254 TRA RTX226            RETURN FOR NEXT TG                         F2514950    
       06201  0 53400 4 05125 RTX260 LXA LADMX,4           START DRMTG SEARCH AND                     F2514960    
       06202  1 00004 4 06203        TXI RTX260+2,4,4                                                 F2514970    
       06203 -0 63400 4 05237        SXD XTG,4             COMPIL1NG                                  F2514980    
       06204  0 07400 4 04516 RTX264 TSX ADTGSE,4          FIND VALID TAG, FILL OUT TAG WDS.          F2514990    
       06205  0 02000 0 06216        TRA RTX270            END OF TABLE                               F2515000    
       06206 -0 75400 2 00000        PXD 0,2               STORE POSITION                             F2515010    
       06207  0 77100 0 00022        ARS 18                OF DOSUB                                   F2515020    
       06210  0 60100 0 05240        STO POSIND            IN POSIND.                                 F2515030    
       06211  0 50000 0 05117        CLA INST30            MODIFY TGTG                                F2515040    
       06212  0 62100 0 06200        STA RTX254            TIX COMPIL1NG                              F2515050    
       06213  0 50000 0 05113        CLA INST20            ROUTINE TO                                 F2515060    
       06214  0 62100 0 06507        STA TGA8                                                         F2515070    
       06215  0 02000 0 06070        TRA RTX228            AND EXECUTE.                               F2515080    
       06216  0 50000 0 05120 RTX270 CLA INST32            ADTG PORTION FINISHED.                     F2515090    
       06217  0 62100 0 06200        STA RTX254            REMODIFY TIX COMPILING                     F2513100    
       06220  0 50000 0 05114        CLA INST22            ROUTINE FOR TGTGS.                         F2515110    
       06221  0 62100 0 06507        STA TGA8              END OF BETA CYCLE8 RETURN TO 1 PLUS        F2513120    
       06222 -0 53400 4 05325 RTX280 LXD RTX024,4          LOCATION OF THE INSTRUCTION                F2515130    
       06223  0 02000 4 00001        TRA 1,4               CALLING RTX.                               F2513140    
                                         *************************************************************F2515130    
                                         CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0MF2515160    
                                         PILED BETA STATE INSTRUCTION.                                F2515170    
       06224  0 50000 0 05244 CILV   CLA VCTR              THIS ROUTINE UPDATES                       F2515180    
       06225  0 60100 0 05176        STO CIL00             VCTR AND                                   F2515190    
       06226  0 40000 0 05110        ADD L(8)              STORE IT INTO CIL00                        F2515200    
       06227  0 60100 0 05244        STO VCTR              IT IS CALLED WHEN                          F2515210    
       06230 -0 32000 0 05141        ANA ADMSK             WE NEED A LOCATION                         F2515220    
       06231  0 40200 0 05060        SUB MAXLOC            FOR A COMPILED                             F2515230    
       06232  0 10000 0 06234        TZE CILV1             INSTRUCTION.                               F2515240    
       06233  0 02000 4 00001        TRA 1,4                                                          F2515250    
       06234  0 07400 4 00004 CILV1  TSX DIAG,4            TOO MANY INSTRUCTION NUMBERS.              F2515260    
                                         *************************************************************F2515270    
                                         N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND.  F2513280    
       06235 -0 53400 2 05230 N3BIT  LXD DOIND,2           THIS ROUTIN E ISOLATES                     F2515290    
       06236  0 50000 2 01076        CLA DOTAGZ,2          THE N3 BIT SO THAT                         F2515300    
       06237  0 77100 0 00017        ARS 15                IT CAN BE EASILY TESTED.                   F2515310    
       06240 -0 32000 0 05126        ANA L(1)                                                         F2515320    
       06241  0 60100 0 05234        STO N3IND                                                        F2515330    
       06242  0 02000 4 00001        TRA 1,4               RETURN                                     F2515340    
                                         TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST.  THIS   F2515330    
                                         INFORMATION IS RECORDED IN TAG4.                             F2515360    
       06243  0 50000 0 03652  TETG  CLA TAG3              ISOLATE                                    F2515370    
       06244 -0 32000 0 05141        ANA ADMSK             TAG NAME.                                  F2515380    
       06245  0 60100 0 05241        STO ER40                                                         F2515390    
       06246  0 50000 0 03653        CLA TAG4              ISOLATE DUPES INDICATORS                   F2515400    
       06247  0 77100 0 00011        ARS 9                                                            F2515410    
       06250 -0 32000 0 05076        ANA L(7)              IF THERE ARE DUPES                         F2515420    
       06251  0 60100 0 05242        STO ER41              THIS INSURES THAT TEST BITS                F2515430    
       06252  0 40200 0 05126        SUB L(1)              ARE ENTERED ONLY FOR                       F2515440    
       06253  0 32000 0 05242        ANS ER41              RIGHTMOST DUPE.                            F2515450    
       06254  0 53400 1 05131        LXA L(3),1                                                       F2515460    
       06255  0 50000 1 03652        CLA TAG2+3,1          SELECT DOTAG WHICH                         F2515470    
       06256  0 10000 0 06275        TZE TETG5             CONTR0LS THIS                              F2515480    
       06257 -0 73400 2 00000        PDX 0,2               SUBSCRIPT.                                 F2515400    
       06260  0 50000 2 01106        CLA DOTAGZ+8,2                                                   F2515S00    
       06261 -0 32000 0 05105        ANA TETMSK            ISOLATE TEST NAME                          F2515510    
       06262  0 77100 0 00022        ARS 18                OF THIS SUBSCRIPT.                         F2515520    
       06263  0 40200 0 05241        SUB ER40              DOES TEST NAME EQUAL TAG NAME,             F2515530    
       06264 -0 10000 0 06275        TNZ TETG5             NO, GO TO NEXT SUBSCRIPT.                  F2515540    
       06265  0 56000 0 05242        LDQ ER41              TEST NAME EQUALS TAG NAHE,                 F2515550    
       06266  0 76300 1 00044        LLS 36,1              SEE IF THIS SUBSCRIPT                      F2515560    
       06267  0 76000 0 00001        LBT                   IS A LEFT DUPE.                            F2515570    
       06270  0 02000 0 06272        TRA TETG3             NOT A LEFT DUPE, ENTER TEST BIT.           F251S580    
       06271  0 02000 0 06275        TRA TETG5             LEFT DUPE, IGNORE.                         F2515590    
       06272  0 50000 0 05136 TETG3  CLA BIT1              ENTER TEST BIT                             F2515600    
       06273  0 77100 1 00012        ARS 10,1              FOR THIS                                   F2515610    
       06274 -0 60200 0 03653        ORS TAG4              SUBSCRIPT.                                 F2515620    
       06275  2 00001 1 06255 TETG5  TIX TETG+10,1,1       DEAL WITH NEXT SUBSCRIPT,                  F2515630    
       06276  0 02000 4 00001        TRA 1,4                                                          F2515640    
                                         *************************************************************F2515650    
                                         PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTSF2515660    
                                         IT IN INDEX REGISTER B.                                      F2515670    
       06277  0 50000 0 03653 PRES   CLA TAG4              FIRST THE TEST                             F2515680    
       06300  0 76500 0 00032        LRS 26                BITS ARE ISOLATED                   -      F2515690    
       06301  0 76700 0 00041        ALS 33                AND STORED.                                F2515700    
       06302  0 60100 0 05241        STO ER40              TEST BITS 1,2.                             F2515710    
       06303  0 76300 0 00005        LLS 5                 THEN THE GROUP NO.                         F2515720    
       06304  0 76700 0 00024        ALS 20                IS LEFT                                    F2515730    
       06305 -0 50100 0 03653        ORA TAG4              IN THE MQ WHILE THE                        F2515740    
       06306  0 77100 0 00025        ARS 21                CARRY BITS ARE ORED                        F2515750    
       06307 -0 32000 0 05132        ANA L(5)              AND STORED.                                F2515760    
       06310  0 60100 0 05242        STO ER41              CARRY BITS 101.                            F2515770    
       06311  0 76300 0 00005        LLS 5                 THE GR0UP NO. IS THEN                      F2515780    
       06312 -0 50100 0 05240        ORA POSIND            SHIFTED TO BE COMBINED                     F2515790    
       06313  0 56000 0 05241        LDQ ER40              WITH THE POS. THE TEST                     F2515800    
       06314  0 76300 0 00001        LLS 1                 BITS ARE SEPARATED SO THAT                 F2515810    
       06315  0 76700 0 00001        ALS 1                 THEY CAN OR PROPERLY WITH                  F2515820    
       06316  0 76300 0 00002        LLS 2                 CARRY BITS LT, LC, CT, CC.                 F2515830    
       06317 -0 50100 0 05242        ORA ER41              THIS RESULTS IN THE MASK                   F2515840    
       06320  0 60100 0 05243        STO ARG               USED FOR TABLE SEARCH.                     F2515850    
       06321 -0 63400 4 05241        SXD ER40,4                                                       F2515860    
       06322  0 53400 1 05126        LXA L(1),1            THIS BLOCK REPRESENTS                      F2515870    
       06323  1 00042 1 06324        TXI PRES10,1,34       SETS OF CALLING SEQUENCES TO               F2515880    
       06324 -0 63400 1 06364 PRES10 SXD S3,1              SEARCH ROUTINE. MASK IS                    F2515890    
       06325  1 00012 1 06326        TXI PRES20,1,10       STORED AND BLOCK TEST                      F2515900    
       06326  0 50000 0 05144 PRES20 CLA SMSK1             INDEX DECREMENT IS STORED.                 F2515910    
       06327  0 60100 0 05143        STO SMSK              FIRST 11 ENTRIES ARE                       F2515920    
       06330  0 07400 4 06354        TSX SEARCH,4          SFARCHED. THEN 12,12,4.                    F2515930    
       06331  0 50000 0 05145        CLA SMSK2             RETURN TO ROUTINE                          F2515940    
       06332  0 60100 0 05143        STO SMSK              AFTER SEARCHING LAST                       F2515950    
       06333  2 00014 1 06334        TIX PRES30,1,12       BLOCK INDICATES AN ERROR.                  F2515960    
       06334 -0 63400 1 06364 PRES30 SXD S3,1                                                         F2515970    
       06335  1 00014 1 06336        TXI PRES40,1,12                                                  F2515980    
       06336  0 07400 4 06354 PRES40 TSX SEARCH,4                                                     F2515990    
       06337  0 50000 0 05147        CLA SMSK4                                                        F2516000    
       06340  0 60100 0 05143        STO SMSK                                                         F2516010    
       06341  2 00020 1 06342        TIX PRES50,1,16                                                  F2516020    
       06342 -0 63400 1 06364 PRES50 SXD S3,1                                                         F2516030    
       06343  1 00020 1 06344        TXI PRES60,1,16                                                  F2516040    
       06344  0 07400 4 06354 PRES60 TSX SEARCH,4                                                     F2516050    
       06345  0 50000 0 05146        CLA SMSK3                                                        F2516060    
       06346  0 60100 0 05143        STO SMSK                                                         F2516070    
       06347  2 00006 1 06350        TIX PRES70,1,6                                                   F2516080    
       06350 -0 63400 1 06364 PRES70 SXD S3,1                                                         F2516090    
       06351  1 00006 1 06352        TXI PRES80,1,6                                                   F2516100    
       06352  0 07400 4 06354 PRES80 TSX SEARCH,4                                                     F2516110    
       06353  0 07400 4 00004 ERROR  TSX DIAG,4            ALL SEARCHES FAILED.                       F2516120    
                                         *************************************************************F2516130    
                                         SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2516140    
                                         AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD.  A MATCHINGF2516150    
                                         COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2316160    
                                         NUMBER.                                                      F2516170    
       06354  0 50000 1 06450 SEARCH CLA RXTA+45,1                                                    F2516180    
       06355  0 77100 0 00003        ARS 3                 THIS ROUTINE TAKES                         F2516190    
       06356  0 60100 0 05217        STO WRKRXT            THE ARGUMENT MASK, EDITS                   F2516200    
       06357  0 50000 0 05243        CLA ARG               IT AND THEN SEARCHES                       F2516210    
       06360 -0 32000 0 05143        ANA SMSK              PRESCR1BED BLOCKS OF                       F2516220    
       06361  0 40200 0 05217        SUB WRKRXT            THE RX TABLE.                             -F2516230    
       06362  0 10000 0 06366        TZE S8                SUCCESSFUL SEARCH.                         F2516240    
       06363  2 00001 1 06364        TIX S3,1,1            INDEX FOR NEXT ENTRY,                      F2516250    
 D     06364  3 00000 1 06354 S3     TXH SEARCH,1          TEST FOR END OF BLOCK,                     F2516260    
       06365  0 02000 4 00001        TRA 1,4                                                          F2516270    
       06366  0 50000 1 06450 S8     CLA RXTA+45,1         TABLE ENTRY CONTAINS                       F2516280    
       06367 -0 32000 0 05076        ANA L(7)              BLOCK NOS. 0-5 WHICH                       F2516290    
       06370  0 73400 2 00000        PAX 0,2               CORRESPOND TO BLOCKS                       F2516300    
       06371 -0 53400 4 05241        LXD ER40,4            A-F.                                       F2516310    
       06372  0 02000 4 00001        TRA 1,4                                                          F2516320    
       06373 +000000006600    RXTA   OCT 6600              6L, 760 MASK                               F2516330    
       06374 +000000006400           OCT 6400              6C                                         F2516340    
       06375 +000000006200           OCT 6200              6R                                         F2516350    
       06376 +000000005600           OCT 5600              5L                                         F2516360    
       06377 +000000004600           OCT 4600              4L                                         F2516370    
       06400 +000000004200           OCT 4200              4R                                         F2516380    
       06401 +000000003600           OCT 3600              3L                                         F2516390    
       06402 +000000003400           OCT 3400              3C                                         F2516400    
       06403 +000000002400           OCT 2400              2C                                         F2516410    
       06404 +000000001600           OCT 1600              1L                                         F2516420    
       06405 +000000005501           OCT 5501              5C, 774 MASK                               F2516430    
       06406 +000000005400           OCT 5400              5C                                         F2516440    
       06407 +000000005302           OCT 5302              5R                                         F2516450    
       06410 +000000005200           OCT 5200              5R                                         F2516460    
       06411 +000000004541           OCT 4541              4C                                         F2516470    
       06412 +000000004501           OCT 4501              4C                                         F2516480    
       06413 +000000004445           OCT 4445              4C                                         F2516490    
       06414 +000000004400           OCT 4400              4C                                         F2516500    
       06415 +000000001541           OCT 1541              1C                                         F2516510    
       06416 +000000001501           OCT 1501              1C                                         F2516520    
       06417 +000000001445           OCT 1445              1C                                         F2516530    
       06420 +000000001400           OCT 1400              1C                                         F2516540    
       06421 +000000001215           OCT 1215              1R, 773 MASK                               F2516550    
       06422 +000000001200           OCT 1200              1R                                         F2516560    
       06423 +000000002723           OCT 2723              2L                                         F2516570    
       06424 +000000002733           OCT 2733              2L                                         F2516580    
       06425 +000000002623           OCT 2623              2L                                         F2516590    
       06426 +000000002633           OCT 2633              2L                                         F25166D0    
       06427 +000000003324           OCT 3324              3R                                         F2516610    
       06430 +000000003302           OCT 3302              3R                                         F2516620    
       06431 +000000003223           OCT 3223              3R                                         F2516630    
       06432 +000000003200           OCT 3200              3R                                         F2516640    
       06433 +000000001334           OCT 1334              1R                                         F2516650    
       06434 +000000001324           OCT 1324              1R                                         F2516660    
       06435 +000000001315           OCT 1315              1R                                         F2516670    
       06436 +000000001302           OCT 1302              1R                                         F2516680    
       06437 +000000001233           OCT 1233              1R                                         F2516690    
       06440 +000000001223           OCT 1223              1R                                         F2516700    
       06441 +000000002600           OCT 2600              2L, 763 MASK                               F2516710    
       06442 +000000002610           OCT 2610              2L                                         F2516720    
       06443 +000000002233           OCT 2233              2R                                         F2516730    
       06444 +000000002223           OCT 2223              2R                                         F2516740    
       06445 +000000002215           OCT 2215              2R                                         F2516750    
       06446 +000000002200           OCT 2200              2R                                         F2516760    
                                         *************************************************************F2516770    
                                         CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780    
                                         THROUGH A DO LOOP.  THIS IS THE NORHAL TXI DECREMENT.        F2516790    
       06447  0 56000 2 01102 CN3IJ  LDQ DOTAGZ+4,2        COMPUTES DECREMENT AND                     F2516800    
       06450  0 76300 0 00022        LLS 18                LEAVES IT IN ACCUMULATOR.                  F2516810    
       06451  3 00002 1 06457        TXH CN3IJ5,1,2        IF POSIND=3, S1 POS.                       F2516820    
       06452  0 20000 0 03644        MPY WRKSC+6           D1N3 FOR S2 OR S3.                         F2516830    
       06453  0 76500 0 00022        LRS 18                                                           F2516840    
       06454  3 00001 1 06457        TXH CN3IJ5,1,1        POSIND=2 S2 POS.                           F2516850    
       06455  0 20000 0 03645        MPY WRKSC+7           D2D1N3 FOR S3.                             F2516860    
       06456  0 76500 0 00022        LRS 18                                                           F2516870    
       06457 -0 75400 1 00000 CN3IJ5 PXD 0,1               PLACE TWICE                                F2516880    
       06460  0 76700 0 00001        ALS 1                 POSIND IN                                  F2516890    
       06461 -0 73400 1 00000        PDX 0,1               INDEX REGISTER.                            F2516900    
       06462  0 20000 1 03644        MPY WRKSC+6,1         CN3D1D2 OR CN3D1 OR CN3.                   F2516910    
       06463  0 77100 0 00001        ARS 1                                                            F2516920    
       06464  0 02000 4 00001        TRA 1,4               RESULT IS N3G.                             F2516930    
                                         *************************************************************F2516940    
                                         CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2516950    
                                         FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960    
                                         ING INSTRUCTIONS                                             F2516970    
       06465  0 50000 0 05133 CIL023 CLA L(0)              ROUTINE PLACES SPECIAL                     F2516980    
       06466  0 60100 0 05176        STO CIL00                                                        F2516990    
       06467  0 50000 0 05061        CLA L1DEC             SYMBOL FOR ADDRESS                         F2517000    
       06470  0 60100 0 05201        STO CIL03                                                        F2517010    
       06471  0 50000 0 05077        CLA BCD15             AND INITIALIZES LOC. WORD                  F2517020    
       06472  0 60100 0 05200        STO CIL02             AND PLACES TAG IN                          F2517030    
       06473  0 50000 0 03652        CLA TAG3              TAG WD. THIS IS DOEN                       F2517040    
       06474  0 62100 0 05201        STA CIL03             FOR INST. OF K DECREMENT.                  F2517050    
       06475  0 02000 4 00001        TRA 1,4                                      ).                  F2517060    
                                         *************************************************************F2517070    
                                         TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2317080    
                                         A GIVEN VARIABLE DECREMENT TXI OR TIX.  FOR REFERENCE BY THE F2517090    
                                         ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION          F2517100    
                                         INSTRUCTIONS.                                                F2517110    
       06476  0 76700 0 00022 TGA    ALS 18                FOR RX LOC.                                F2517120    
       06477  0 77100 0 00003 TGAT   ARS 3                 FOR TX LOC, DIV VCTOR BY 8.                F2517130    
       06500  0 60100 0 05202        STO ERTGA                                                        F2517140    
       06501  0 53400 1 05240        LXA POSIND,1                                                     F2517150    
       06502  0 50000 0 05237        CLA XTG               CALCULATES X LOC OF TTGA.                  F2517160    
       06503  0 77100 0 00002        ARS 2                 INDEX QUANTITY FOR TTGA IS                 F2517170    
       06504 -0 73400 2 00000        PDX 0,2               ONE FOURTH THAT FOR TTG.                   F2517180    
       06505  0 50000 0 05202        CLA ERTGA                                                        F2517190    
       06506  2 00001 1 06511 TGA5   TIX TGA10,1,1         SHIFT LEFT FOR S1 OR S2                    F2517200    
       06507 -0 60200 2 02646 TGA8   ORS MXTGA,2           ADDRESS IS ORIGIN PLUS MAX                 F2517210    
       06510  0 02000 4 00001        TRA 1,4               ADD TG WD. LINKAGE TRANSFER.               F2517220    
       06511  0 76700 0 00006 TGA10  ALS 6                                                            F2517230    
       06512  0 02000 0 06506        TRA TGA5                                                         F2517240    
                                         *************************************************************F23172S0    
                                         EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2517260    
                                         ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2517270    
                                         AND KNOWN.                                                   F2517280    
       06513 -0 63400 4 06533 EDCB   SXD EDCB5,4           COMPILES TXI SXD TIX                       F2517290    
       06514  0 50000 0 05042        CLA L(TXI)            INSTRUCTIONS WHEN                          F2517300    
       06515  0 60100 0 05177        STO CIL01             DECREMENTS ARE KN0WN,                      F2517310    
       06516  0 50000 0 05245        CLA ERTX01            ASSUMES DECREMENTS TO                      F2517320    
       06517  0 62100 0 05177        STA CIL01             BE IN ERTX01 AND                           F2517330    
       06520  0 07400 4 06465        TSX CIL023,4          ERTX02,                                    F2517340    
       06521  0 07400 4 04345        TSX CIT,4             COMPILE TXI INSTRUCITON.                   F2517350    
       06522  0 07400 4 04472        TSX CSXD,4            COMPILE SXD SKELETON.                      F2517360    
       06523  0 50000 0 05176        CLA CIL00                                                        F2517370    
       06524 -0 32000 0 05141        ANA ADMSK                                                        F2517380    
       06525  0 76700 0 00014        ALS 12                BELOW, PLACE SXD LOC. INTO                 F2517390    
       06526 -0 53400 4 05250        LXD BLKNUM,4          DOTAG WORD 7. APPROPRIATE                  F2517400    
       06527  3 00002 4 06534        TXH EDCB10,4,2        BITS DEPEND ON BLOCK NOS.                  F2517410    
       06530 -0 53400 2 03647        LXD TAG2,2            BLOCKS D, E SHIFT LEFT 12.                 F2517420    
       06531  3 00001 4 06533        TXH EDCB5,4,1         BLOCKS C, B USE S1 DOTAG.                  F2517430    
       06532  0 76700 0 00006        ALS 6                 BLOCK C, SHIFT LEFT 12.                    F2517440    
 D     06533 -3 00000 0 06535 EDCB5  TXL EDCB20,0          BLOCK B, SHIGT LEFT 18.                    F2517450    
       06534 -0 53400 2 03650 EDCB10 LXD TAG2+1,2          BLOCK D,E      USE S2 DOTAG.               F2517460    
       06535 -0 60200 2 01104 EDCB20 ORS DOTAGZ+6,2        PLACE LOC. INTO WD 7.                      F2517470    
       06536  0 50000 0 05046        CLA L(TIX)            COMPILE                                    F2517480    
       06537  0 60100 0 05177        STO CIL01             TIX.                                       F2517490    
       06540  0 50000 0 05246        CLA ERTX02            COMPILE                                    F2517500    
       06541  0 62100 0 05177        STA CIL01             TIX DECREMENT,                             F2517510    
       06542  0 07400 4 06465        TSX CIL023,4                                                     F2517520    
       06543  0 07400 4 04345        TSX CIT,4                                                        F2517530    
       06544 -0 53400 4 06533        LXD EDCB5,4                                                      F2517540    
       06545  0 02000 4 00001        TRA 1,4                                                          F2517550    
                                         *************************************************************F2517560    
                                         BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2517570    
                                         ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2517580    
       06546 -0 63400 4 06567 BCDE   SXD BCDE2,4                                                      F2517590    
       06547  0 07400 4 06224        TSX CILV,4            OBTAIN LOC. FOR FIRST INST.                F2517600    
       06550  0 50000 0 05176        CLA CIL00             MAKE LOCATION ENTRY INTO                   F2517610    
       06551 -0 32000 0 05141        ANA ADMSK             APPENDED TAG WORD.                         F2517620    
       06552  0 07400 4 06476        TSX TGA,4                                                        F2517630    
       06553  0 50000 0 05042        CLA L(TXI)            PLACE OPERATION IN                         F2517640    
       06554  0 60100 0 05177        STO CIL01             COMPILED INSTRUCTIN,                       F2517650    
       06555  0 07400 4 06625        TSX CIL23,4           FILL OUT REMAINING WORDS.                  F2517660    
       06556  0 07400 4 04345        TSX CIT,4                                                        F2517670    
       06557  0 07400 4 04472        TSX CSXD,4                                                       F2517680    
       06560 -0 53400 2 05250        LXD BLKNUM,2                                                     F2517690    
       06561 -3 00002 2 06570        TXL BCDE5,2,2         TEST FOR BLOCKS B OR C.                    F2517700    
       06562  0 50000 0 05176        CLA CIL00             BLOCK D OR E.                              F2517710    
       06563 -0 53400 1 03650        LXD TAG2+1,1          PLACE LOC. OF SXD INST.                    F2517720    
       06564 -0 32000 0 05141        ANA ADMSK             INTO DOTAG ENTRY FOR                       F2517730    
       06565  0 76700 0 00014        ALS 12                CENTER SUBSCRIPT.                          F2517740    
       06566 -0 60200 1 01104        ORS DOTAGZ+6,1                                                   F2517750    
 D     06567 -3 00000 0 06577 BCDE2  TXL BCDE9,0           BLOCKS D,E CONTINUE.                       F2517760    
       06570  0 50000 0 05176 BCDE5  CLA CIL00             BLOCK B OR C .                             F2517770    
       06571 -0 53400 1 03647        LXD TAG2,1            PLACE LOC. FOR SXD OF                      F2517780    
       06572 -0 32000 0 05141        ANA ADMSK             REMAINING TWO BLOCKS.                      F2517790    
       06573  0 76700 0 00014        ALS 12                DISTINGUISH BETWEEN BLOCK B, C.            F2517800    
       06574  3 00001 2 06576        TXH BCDE8,2,1                                                    F2517810    
       06575  0 76700 0 00006        ALS 6                                                            F2517820    
       06576 -0 60200 1 01104 BCDE8  ORS DOTAGZ+6,1                                                   F2517830    
       06577 -0 75400 2 00000 BCDE9  PXD 0,2               BLOCK NUMBER MUST BE                       F2517840    
       06600  0 76700 0 00016        ALS 14                STORED IN PROPER POS.                      F2517850    
       06601  0 53400 1 05240        LXA POSIND,1          OF TAG 4 WORD.                             F2517860    
       06602 -3 00001 1 06606        TXL BCDE10-1,1,1                                                 F2517870    
       06603 -3 00002 1 06607        TXL BCDE10,1,2        IF POSITION IS LEFT,                       F2517880    
       06604 -0 50000 0 05140        CAL BIT8              PLACE A ONE IN BIT 7 OF TAG4               F2517890    
       06605  0 02000 0 06607        TRA BCDE10            TO INDICATE BLOCK D SPECIAL.               F2517900    
       06606  0 77100 0 00003        ARS 3                                                            F2517910    
       06607 -0 53400 2 05237 BCDE10 LXD XTG,2                                                        F2517920    
       06610 -0 60200 2 02341        ORS MXTGTG+3,2                                                   F2517930    
       06611  0 07400 4 06224        TSX CILV,4            OBTAIN LOC. FOR THIRD                      F2517940    
       06612  0 50000 0 05046        CLA L(TIX)            INST. AND OPERATION PART                   F2517950    
       06613  0 60100 0 05177        STO CIL01             FOR 2ND WORD.                              F2517960    
       06614  0 07400 4 06625        TSX CIL23,4           FILL OUT REMAINING WORDS.                  F2517970    
       06615  0 07400 4 04345        TSX CIT,4                                                        F2517980    
       06616 -0 53400 4 06567        LXD BCDE2,4                                                      F2517990    
       06617  0 02000 4 00001        TRA 1,4                                                          F2518000    
                                         *************************************************************F2518010    
                                         NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2518020    
       06620  0 50000 2 01076 NBITS  CLA DOTAGZ,2          ROUTINE FOR ISOLATING                      F2518030    
       06621  0 77100 0 00017        ARS 15                THE N BITS OF A DO.                        F2518040    
       06622 -0 32000 0 05076        ANA L(7)                                                         F2518050    
       06623  0 60100 0 05235        STO N1N2N3                                                       F2518060    
       06624  0 02000 4 00001        TRA 1,4                                                          F2518070    
                                         *************************************************************F2518080    
                                         CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2518090    
                                         INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2518100    
                                         TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE.          F2518110    
       06625  0 50000 0 05176 CIL23  CLA CIL00             THIS ROUTINE PLACES TAG IN                 F2518120    
       06626  0 60100 0 05200        STO CIL02             TAG WD. OF CIL03 AN0 1                     F2518130    
       06627  0 50000 0 03652        CLA TAG3              IN DECREMENT FOR THE                       F2518140    
       06630 -0 32000 0 05141        ANA ADMSK             RELATIVE PART,                             F2518150    
       06631 -0 50100 0 05061        ORA L1DEC             PLACES THE LOCATION IN                     F2518160    
       06632  0 60100 0 05201        STO CIL03             THE ADDRESS WORD CIL02 .                   F2518170    
       06633  0 02000 4 00001        TRA 1,4                                                          F2518180    
                                         *************************************************************F2518190    
                                         CILNAM ENTERS ONLY THE TAG NAME.                             F2518200    
       06634  0 50000 0 03652 CILNAM CLA TAG3              THIS ROUTINE                               F2518210    
       06635 -0 32000 0 05141        ANA ADMSK             ENTERS THE                                 F2518220    
       06636  0 60100 0 05201        STO CIL03             TAG NAME                                   F2518230    
       06637  0 02000 4 00001        TRA 1,4               IN CIL.                                    F2518240    
                                         *************************************************************F2518250    
                                                                                                      F2518260    
                                                                                                      F2518270    
                                            MASTER RECORD CARD = FN049                                F2518275    
                                         BEGIN ALPHA STATE                                            F2518280    
                                         THE ALPHA STATE, AC, IS CALLED BY MAN T0 COMPILE ALL INITIALIF2518290    
                                         ZATION  AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2518300    
                                         CONSIDERATION.                                               F2518310    
                        05256        ORG RTX                                                          F2518320    
       05256 -0 63400 4 06252 AC     SXD AC248,4           STORE LINKAGE                              F2518330    
       05257  0 60100 0 05244        STO VCTR              DOTAG ALPHA IS LOCATION.                   F2518340    
       05260  0 50000 2 01104        CLA DOTAGZ+6,2        PLACE                                      F2518350    
       05261  0 77100 0 00033        ARS 27      .-        SXD LOCATION                               F2518360    
       05262 -0 32000 0 05170        ANA 6ONESR            IN                                         F2518370    
       05263  0 76700 0 00003        ALS 3                 CIL00 AND                                  F2518380    
       05264  0 40000 0 05225        ADD B                 TXL LOCATION                               F2518390    
       05265  0 60100 0 05176        STO CIL00             IN                                         F2518400    
       05266  0 50000 2 01076        CLA DOTAGZ,2          ERTX01 FOR                                 F2518410    
       05267 -0 32000 0 05071        ANA N0PRET                                                       F2518420    
       05270  0 60100 0 05251        STO SXDTXZ                                                       F2518430    
       05271  0 76600 0 00301        WRS 193               OF SXDTX TABLE                             F2518440    
       05272 -0 50000 0 05251        CAL SXDTXZ            MAKE                                       F2518450    
       05273  0 36100 0 05176        ACL CIL00             SXDTX                                      F2518460    
       05274  0 60200 0 05245        SLW ERTX01            TABLE                                      F2518470    
       05275  0 46000 0 05063        LDA DRADS2            ENTRY                                      F2518480    
       05276  0 70000 0 05251        CPY SXDTXZ            ON                                         F2518490    
       05277  0 70000 0 05176        CPY CIL00             DRUM 1.                                    F2518500    
       05300  0 70000 0 05245        CPY ERTX01                                                       F2518510    
       05301  0 50000 0 05063        CLA DRADS2            RESET DRUM                                 F2518520    
       05302  0 40000 0 05131        ADD L(3)              ADDRESS FOR                                F2518530    
       05303  0 60100 0 05063        STO DRADS2            NEXT ENTRY.                                F2518540    
       05304  0 50000 0 05123 AC05   CLA ALLONE            INITIALIZE CIL WORDS                       F2518550    
       05305  0 60100 0 05176        STO CIL00             TO ALL ONES AND                            F2518560    
       05306  0 60100 0 05177        STO CIL01             PUT                                        F2518570    
       05307  0 60100 0 05200        STO CIL02             INTO CIT                                   F2518580    
       05310  0 60100 0 05201        STO CIL03             AS FIRST ALPHA STAGE                       F2518590    
       05311  0 07400 4 04352        TSX CITSP,4           ENTRY.                                     F2518600    
       05312  0 07400 4 04153        TSX SCAN,4            SCAN AND FIND PICK                         F2518610    
       05313 -0 63400 1 05221        SXD RTXTGX,1                                                     F2518620    
       05314 -0 63400 1 05237        SXD XTG,1             BY A DO WITHIN ALPHA                       F2518630    
       05315  0 07400 4 04162 AC010  TSX FIND,4            AND BETA.                                  F2518640    
       05316  0 02000 0 06240        TRA AC240+1           END OF DO FOR DOTAG.                       F2518650    
       05317 -0 63400 1 05237        SXD XTG,1             STORE TGTG INDEX IN XTG.                   F2518660    
       05320  0 07400 4 04373 AC014  TSX SCLMN1,4          OBTAIN X FOR MINLEV OF S.C                 F2518670    
       05321 -0 53400 1 05237        LXD XTG,1             SET UP FOR FIND ROUTINE.                   F2518680    
       05322  0 40200 0 05230        SUB DOIND             TEST TO SEE IF THIS IS                     F2518690    
       05323 -0 10000 0 05315 AC016  TNZ AC010             THE OUTERMOST DO.                          F2518700    
       05324 -0 53400 1 03652        LXD TAG3,1            IF IT IS PROCEED TO                        F2518710    
       05325  3 00000 1 05340        TXH AC018,1,0         COMPILE PROPER INST.                       F2518720    
       05326  0 50000 0 03652        CLA TAG3    -         NO CURRENT TG, USE NEW TG.                 F2518730    
       05327  0 77100 0 00013        ARS 11                CHECK RESET TAG BIT                        F2518740    
       05330  0 76000 0 00001        LBT                   OR INSERTED COUNTER.                       F2518750    
       05331  0 02000 0 05334        TRA AC016I            RESET TYPE ENTRY, USE NEW TAG              F2518760    
       05332  0 07400 4 04230        TSX ENTR,4            CTR. TYPE ENTRY, SIMULATE                  F2518770    
       05333  0 02000 0 05343        TRA AC020             WRKSC AND CONTINUE                         F2518780    
       05334  0 50000 0 03652 AC016I CLA TAG3              RESET TYPE ENTRY                           F2518790    
       05335 -0 32000 0 05153        ANA 11BITS            LAY OUT TAU ENTRIES                        F2518800    
       05336  0 07400 4 04236        TSX SUBCOM,4                                                     F2518810    
       05337  0 02000 0 05355        TRA AC021             DECRENENT AND CONTINUE                     F2518820    
       05340  0 50000 0 03652 AC018  CLA TAG3              CURRENT TAG VALID, LAY                     F2518830    
       05341  0 77100 0 00022        ARS 18                OUT TAU DNTRIES INTO                       F2518840    
       05342  0 07400 4 04236 AC019  TSX SUBCOM,4          WRKSC AND CONTINUE                         F2518850    
       05343  0 07400 4 04560 AC020  TSX N1STET,4                                                     F2518860    
       05344  0 50000 0 05254        CLA N1SBX             VALUE IS CONSTANT                          F2518870    
       05345 -0 10000 0 05400        TNZ AC030             VARIABLE, TRA AC030.                       F2518880    
       05346  0 07400 4 04406        TSX TELC,4            COMPUTE LOAD                               F2518890    
       05347  0 50000 0 05245        CLA ERTX01            VALUE                                      F2518900    
       05350  0 76700 0 00022        ALS 18                AND PLACE                                  F2518910    
       05351  0 40000 0 05061        ADD L1DEC             IN                                         F2518920    
       05352  0 07400 4 04601        TSX FIXCON,4          FIXCON.                                    F2518930    
       05353  0 60100 0 05200        STO CIL02             FIXCON LOCATION SYMBOL.                    F2518940    
       05354  0 02000 0 05357        TRA AC022             CONTINUE.                                  F2518950    
       05355  0 50000 0 05100 AC021  CLA BCD0                                                         F2518960    
       05356  0 60100 0 05200        STO CIL02             LXD ADDRESS T0 BCD ZERO.                   F2518970    
       05357  0 50000 0 05051 AC022  CLA L(LXD)                                                       F2518980    
       05360  0 60100 0 05177        STO CIL01             LXD                                        F2518990    
       05361  0 07400 4 07131        TSX CIL03I,4          FILL OUT LOCATION AND TG WORDS.            F2519000    
       05362  0 50000 0 05200        CLA CIL02             PLACE LXD ADDRESS                          F2519010    
       05363  0 60100 0 07621        STO OR000+27          IN OR0 TABLE.                              F2519020    
       05364  0 73400 4 00000        PAX 0,4               RELATIVE PART OF FIXCON NAME               F2519030    
       05365 -0 32000 0 05104        ANA 6ONES                                                        F2519040    
       05366  0 60100 0 05200        STO CIL02             ADDRESS.                                   F2519050    
       05367 -0 63400 4 05201        SXD CIL03,4           RELATIVE ADDRESS.                          F2519060    
       05370  0 50000 0 05222        CLA LOCIND            TEST LOCATION INDICATOR.                   F2519070    
       05371  0 10000 0 05376        TZE AC024                                                        F2519080    
       05372  0 40200 0 05126        SUB L(1)                                                         F2519090    
       05373  0 60100 0 05222        STO LOCIND            A LOCATION MUST BE                         F2519100    
       05374  0 50000 0 05224        CLA A                 ASSIGNED FOR 1ST LXD                       F2519110    
       05375  0 60100 0 05176        STO CIL00             COMPILED FOR AN ALPHA.                     F2519120    
       05376  0 07400 4 04345 AC024  TSX CIT,4             PUT IN DOFILE.                             F2519130    
       05377  0 76100 0 00000        NOP                                                              F2519140    
       05400  0 50000 0 03653 AC030  CLA TAG4              VARIABLE CASE, THE BITS FOR                F2519150    
       05401  0 77100 0 00003        ARS 3                 DEFINING A SUB BY A DO OR                  F2519160    
       05402 -0 32000 0 05076        ANA L(7)              A RELCON OR BOTH ARE                       F2519170    
       05403  0 60100 0 05210        STO RELC0             ISOLATED IN 3 SEPARATE                     F2519180    
       05404  0 50000 0 03653        CLA TAG4              WORDS, DEFDQ, RELCO, AND                   F2519190    
       05405 -0 32000 0 05076        ANA L(7)              ORDEDO.                                    F2519200    
       05406  0 60100 0 05253        STO DEFDO                                                        F2519210    
       05407 -0 50100 0 05210        ORA RELC0                                                        F2519220    
       05410  0 60100 0 05252        STO OREDO                                                        F2519230    
       05411  0 50000 0 05254        CLA N1SBX             IF CONSTANT LOAD,                          F2519240    
       05412  0 10000 0 05567        TZE AC100+2           TRA AC100+2.                               F2519250    
       05413  0 50000 0 05127        CLA L(2)              1F VARIABLE LOAD, FILL                     F2519260    
       05414  0 07400 4 07137        TSX BITP,4            OR0 TABLE.                                 F2519270    
       05415  0 02000 0 05417        TRA AC040             S1 NOT DEFINED.                            F2519280    
       05416  0 60100 0 07567        STO OR000+1           S1 DEFINED. STO SYMBOL IN OR0+1.           F2519290    
       05417  0 50000 0 05126 AC040  CLA L(1)              REPEAT FOR                                 F2519300    
       05420  0 07400 4 07137        TSX BITP,4            S2.                                        F2519310    
       05421  0 02000 0 05426        TRA AC046             S2 NOT DEFINED.                            F2519320    
       05422  0 60100 0 07572        STO OR000+4           S2 DEFINED. PUT SUBSCRIPT                  F2519330    
       05423  0 50000 0 03644        CLA WRKSC+6           SYMBOL IN OR0+4 AND                        F2519340    
       05424  0 07400 4 04601        TSX FIXCON,4          D1 SYMBOL                                  F2519350    
       05425  0 60100 0 07575        STO OR000+7           IN OR0+7.                                  F2519360    
       05426  0 50000 0 05133 AC046  CLA L(0)              REPEAT FOR                                 F2519370    
       05427  0 07400 4 07137        TSX BITP,4                                                       F2519380    
       05430  0 02000 0 05443        TRA AC048             S3 NOT DEFINED.                            F2519390    
       05431  0 60100 0 07613        STO OR000+21          S3 DEFINED. PUT SUBSCRIPT                  F2519400    
       05432  0 56000 0 03644        LDQ WRKSC+6           SYMBOL IN OR0+21                           F2519410    
       05433  0 20000 0 03645        MPY WRKSC+7           AND                                        F2519420    
       05434  0 76700 0 00021        ALS 17                PUT                                        F2519430    
       05435  0 07400 4 04601        TSX FIXCON,4          D1D2 IN                                    F2519440    
       05436  0 60100 0 07616        STO OR000+24          OR0+24.                                    F2519450    
       05437  0 50000 0 03644        CLA WRKSC+6                                                      F2519460    
       05440  0 07400 4 04601        TSX FIXCON,4          OBTAIN SYMBOL FOR D1                       F2519470    
       05441  0 60100 0 07575        STO OR000+7           AND STORE IN OR0+7,                        F2519480    
       05442  0 76000 0 00140        PSE 96                TURN OFF SENSE LIGHTS.                     F2519490    
       05443  0 07400 4 07172 AC048  TSX COSE,4            TEST COEFFS GREATER THAN 1.                F2519500    
       05444  0 50000 0 05152        CLA 0PMSK                                                        F2519510    
       05445 -0 32000 0 03653        ANA TAG4              COEFS, 011 RELCONS, 100 CUPE.              F2519520    
       05446 -0 10000 0 05472        TNZ AC049             SOME OF ABOVE EXIST.                       F2519530    
 M     05447 -0 53400 1 03650        LXD TAG21,1           NONE OF ABOVE EXIST,                       F2519540    
       05450 -3 00000 1 05452        TXL AC048+7,1,0       IF S2 DEF BY DO,                           F2519550    
       05451 -0 50000 1 01100        CAL DOTAGZ+2,1        ISOLATE N1.                                F2519560    
 M     05452 -0 53400 1 03651        LXD TAG22,1           IF S3 DEF BY DO,                           F2519570    
       05453 -3 00000 1 05455        TXL AC048+10,1,0      OR N1S OF S2 AND S3.                       F2519580    
       05454 -0 50100 1 01100        ORA DOTAGZ+2,1        IF EITHER N1 IS GREATER                    F2519590    
       05455  0 40200 0 05126        SUB L(1)              THAN 1, RETURN.                            F2519600    
       05456  0 10000 0 05460        TZE AC048I            IS S1 IS                                   F2519610    
       05457  0 12000 0 05472        TPL AC049             DEFINED BY A DO,                           F2519620    
       05460 -0 53400 1 03647 AC048I LXD TAG2,1            IS/LATE N1.                                F2519630    
       05461 -3 00000 1 05464        TXL AC048I+4,1,0      IF NOT ISOLATE                             F2519640    
       05462  0 50000 1 01100        CLA DOTAGZ+2,1        S1 (BCD).                                  F2519650    
       05463  0 02000 0 05465        TRA AC048I+5                                                     F2519660    
       05464  0 50000 0 03637        CLA WRKSC+1                                                      F2519670    
       05465  0 60100 0 05200        STO CIL02             STO S1 OR N1 SYMBOL.                       F2519680    
       05466  0 07400 4 07131        TSX CIL03I,4          FILL OUT                                   F2519690    
       05467  0 50000 0 05051        CLA L(LXD)            COMPILED INSTRUCTION                       F2519700    
       05470  0 60100 0 05177        STO CIL01             WORDS AND CONTINUE                         F2519710    
       05471  0 02000 0 05564        TRA AC100-1           T0 INIT PORTION,                           F2519720    
       05472  0 53400 1 05127 AC049  LXA L(2),1                                                       F2519730    
       05473  0 50000 0 05252        CLA OREDO             IS LEFT SUB A RELCON,                      F2519740    
       05474 -0 32000 0 05130        ANA L(4)              DORC, OR DOSUB.                            F2519750    
       05475  0 10000 0 05503        TZE AC049A            NO, COMPILE CLA, SUB.                      F2519760    
       05476 -0 53400 2 03647        LXD TAG2,2            YES, IS IT A DOSUB.                        F2519770    
       05477 -3 00000 2 05505        TXL AC049B,2,0        NO.                                        F2519780    
       05500  0 50000 2 01100        CLA DOTAGZ+2,2        YES, IS N1(S1)=1.                          F2519790    
       05501  0 40200 0 05126        SUB L(1)                                                         F2519800    
       05502 -0 10000 0 05505        TNZ AC049B            NO.                                        F2519810    
       05503  0 50000 0 07350 AC049A CLA KLX01                                                        F2519820    
       05504  0 07400 4 07271        TSX LXC,4             COMPILE CLA, SUB.                          F2519830    
       05505  0 50000 0 05252 AC049B CLA OREDO                                                        F2519840    
       05506  0 77100 0 00002        ARS 2                 DEFINITION.                                F2519850    
       05507  0 76000 0 00001        LBT                   OF S1.                                     F2519860    
       05510  0 02000 0 05523        TRA AC064             S1 IS NOT DEF., TAKE S2.                   F2519870    
       05511  0 53400 1 05131        LXA L(3),1            S1 DEFINED, GO TO                          F2519880    
       05512  0 07400 4 04670        TSX 0P2,4             OPTIMIZING ROUTINE.                        F2519890    
       05513  0 53400 1 05127        LXA L(2),1            AT LEAST 4 COMP INST.                      F2519900    
       05514 -0 76000 0 00141        MSE 97                TEST ON COEF                               F2519910    
       05515  0 02000 0 05517        TRA AC050             GREATER THAN 1,                            F2519920    
       05516  1 00002 1 05521        TXI AC050I,1,2                                                   F2519930    
       05517  0 50000 0 07353 AC050  CLA KLX02             L(LXI02)                                   F2519940    
       05520  0 02000 0 05522        TRA AC050I+1                                                     F2519950    
       05521  0 50000 0 07352 AC050I CLA KLX02I            L(LXI03)                                   F2519960    
       05522  0 07400 4 07271        TSX LXC,4             COMPILER.                                  F2519970    
       05523  0 50000 0 05252 AC064  CLA OREDO                                                        F2519980    
       05524  0 77100 0 00001        ARS 1                 S2                                         F2519990    
       05525  0 76000 0 00001        LBT                   DEFINED.                                   F2520000    
       05526  0 02000 0 05540        TRA AC080             S2 NOT DEFINED. S3.                        F2520010    
       05527  0 53400 1 05127        LXA L(2),1            CALL OP2 ROUTINE                           F2520020    
       05530  0 07400 4 04670        TSX 0P2,4             TO OPTIMIZE.                               F2520030    
       05531  0 53400 1 05106        LXA L(6),1            COUNTER FOR COMPILING                      F2520040    
       05532 -0 76000 0 00142        MSE 98                IS COEF GREATER THAN 1,                    F2520050    
       05533  0 02000 0 05536        TRA AC068             NO                                         F2520060    
       05534  0 50000 0 07354        CLA KLX03             YES.                                       F2520070    
       05535  1 00002 1 05537        TXI AC068+1,1,2       INCREMENT COMPILING COUNTER.               F2520080    
       05536  0 50000 0 07356 AC068  CLA KLX03I                                                       F2520090    
       05537  0 07400 4 07271        TSX LXC,4             COMPILE S2 LOAD VALUE.                     F2520100    
       05540  0 50000 0 05252 AC080  CLA OREDO                                                        F2520110    
       05541  0 76000 0 00001        LBT                                                              F2520120    
       05542  0 02000 0 05554        TRA AC096             S3 NOT DEFINED, EXIT.                      F2520130    
       05543  0 53400 1 05126        LXA L(1),1            CALL OP2 ROUTINE                           F2520140    
       05544  0 07400 4 04670        TSX 0P2,4             FOR OPTIMIZATION                           F2520150    
       05545  0 53400 1 05106        LXA L(6),1            COMPILING COUNTER.                         F2520160    
       05546 -0 76000 0 00143        MSE 99                TEST FOR COEF GREATER THAN 1.              F2520170    
       05547  0 02000 0 05552        TRA AC084             NONE.                                      F2520180    
       05550  0 50000 0 07355        CLA KLX05             C3 GREATER THAN 1, COMPILE                 F2520190    
       05551  1 00002 1 05553        TXI AC084+1,1,2       KLX05 BLOCK.                               F2520200    
       05552  0 50000 0 07357 AC084  CLA KLX05I            C3=1, COMPILE KLX05I                       F2520210    
       05553  0 07400 4 07271        TSX LXC,4             BLOCK.                                     F2520220    
       05554  0 07400 4 07131 AC096  TSX CIL03I,4          COMPILE                                    F2520230    
       05555  0 50000 0 05051        CLA L(LXD)            LXD.                                       F2520240    
       05556  0 60100 0 05177        STO CIL01                                                        F2520250    
       05557  0 50000 0 07620        CLA OR000+26          ERASABLE OBJECT TIME SYMBOL.               F2520260    
       05560  0 73400 1 00000        PAX 0,1                                                          F2520270    
       05561 -0 32000 0 05104        ANA 6ONES                                                        F2520280    
       05562 -0 63400 1 05201        SXD CIL03,1                                                      F2520290    
       05563  0 60100 0 05200        STO CIL02                                                        F2520300    
       05564  0 07400 4 04345        TSX CIT,4             PUT IN BUFFER.                             F2520310    
       05565  0 50000 0 07620 AC100  CLA OR000+26                                                     F2520320    
       05566  0 60100 0 07621        STO OR000+27                                                     F2520330    
       05567  0 53400 1 05131        LXA L(3),1            PREPARE TO                                 F2520340    
       05570 -0 63400 1 05207 AC109  SXD AX,1              CHECK FOR                                  F2520350    
       05571  0 50000 1 03652        CLA TAG2+3,1          DUPES.                                     F2520360    
       05572 -0 73400 2 00000        PDX 0,2               SAVE INDEX OF S.                           F2520370    
       05573 -3 00000 2 05743        TXL AC160,2,0         POS. NOT M0D. BY DO.                       F2520380    
       05574 -2 00001 1 05601 AC110  TNX AC116,1,1                                                    F2520390    
       05575  0 34000 1 03652        CAS TAG2+3,1          SKIP DUPES                                 F2520400    
       05576  0 02000 0 05574        TRA AC110             EXCEPT                                     F2520410    
       05577  0 02000 0 05743        TRA AC160             RIGHTMOST.                                 F2520420    
       05600  0 02000 0 05574        TRA AC110                                                        F2520430    
       05601  0 50000 2 01106 AC116  CLA DOTAGZ+8,2        ISOLATE                                    F2520440    
       05602 -0 32000 0 05171        ANA 6T017             NAME OF TEST                               F2520450    
       05603  0 60100 0 05204        STO TETTG             FOR THIS DO                                F2520460    
       05604  0 50000 0 03652        CLA TAG3              AND                                        F2520470    
       05605 -0 32000 0 05172        ANA 24T035            COMPARE                                    F2520480    
       05606  0 76700 0 00022        ALS 18                WITH                                       F2520490    
       05607  0 34000 0 05204        CAS TETTG             CURRENT TAG.                               F2520500    
       05610  0 02000 0 05743        TRA AC160             NOT A TEST TAG.                            F2520510    
       05611  0 02000 0 05613        TRA AC120             THIS IS A TEST TAG.                        F2520520    
       05612  0 02000 0 05743        TRA AC160             NOT A TEST TAG.                            F2520530    
       05613  0 50000 2 01101 AC120  CLA DOTAGZ+3,2        THIS IS TEST TAG,                          F2520540    
       05614 -0 32000 0 05104        ANA 6ONES             18 N2 CONSTANT.                            F2520550    
       05615 -0 10000 0 05622        TNZ AC128                                                        F2520560    
       05616  0 50000 2 01106        CLA DOTAGZ+8,2        IF RIGHT TEST HAS VARIABLE DECREMENT       F2520570    
       05617 -0 32000 0 05154        ANA BIT20             GO TO AC138 +4                             F2520580    
       05620  0 10000 0 05627        TZE AC138             INSTEAD OF                                 F2520590    
       05621  0 02000 0 05633        TRA AC138+4                                                      F2520600    
       05622  0 50000 2 01101 AC128  CLA DOTAGZ+3,2                                                   F2520610    
       05623  0 60100 0 05200        STO CIL02             PUT N2 WORD AS                             F2520620    
       05624  0 50000 0 05133        CLA L(0)              SYMBOLIC ADDRESS AND                       F2520630    
       05625  0 60100 0 05201        STO CIL03             ZERO AS THE                                F2520640    
       05626  0 02000 0 05660        TRA AC140             RELATIVE ADDRESS.                          F2520650    
       05627  0 56000 2 01104 AC138  LDQ DOTAGZ+6,2        CONSTANT N2 CASE.                          F2520660    
       05630 -0 77300 0 00011        RQL 9                 IS TEST                                    F2520670    
       05631 -0 76300 0 00014        LGL 12                MODIFIED.                                  F2520680    
       05632  0 10000 0 05743        TZE AC160             NO, TAKE NEXT SUB.                         F2520690    
       05633  0 50000 2 01101        CLA DOTAGZ+3,2        YES, ISOLATE N2.                           F2520700    
       05634 -0 53400 1 05207        LXD AX,1                                                         F2520710    
       05635  0 07400 4 04451        TSX CXIJ+2,4          IF POSITION IS                             F2520720    
       05636 -2 00001 1 05647        TNX AC139,1,1                                                    F2520730    
       05637  0 60100 0 05070        STO ESTORE                                                       F2520740    
       05640  0 50000 2 01106        CLA DOTAGZ+8,2        DOES TEST                                  F2520750    
       05641 -0 32000 0 05154        ANA BIT20             HAVE VARIABLE DECREMENT.                   F2520760    
       05642 -0 10000 0 05646        TNZ AC139-1                                                      F2520770    
       05643  0 50000 0 05070        CLA ESTORE                                                       F2520780    
       05644  0 07400 4 04410        TSX TELC+2,4                                                     F2520790    
       05645  0 02000 0 05647        TRA AC139                                                        F2520800    
       05646  0 50000 0 05070        CLA ESTORE                                                       F2520810    
       05647  0 76700 0 00022 AC139  ALS 18                                                           F2520820    
       05650  0 07400 4 04601        TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2520830    
       05651  0 73400 1 00000        PAX 0,1               LOAD PORTION                               F2520840    
       05652 -0 32000 0 05104        ANA 6ONES             AND COMPILE                                F2520850    
       05653  0 60100 0 05200        STO CIL02             CLAL(GN2 + LOAD PORT.)                     F2520860    
       05654  0 50000 0 05133        CLA L(0)                                                         F2520870    
       05655  0 60100 0 05201        STO CIL03                                                        F2520880    
       05656 -0 63400 1 05201        SXD CIL03,1                                                      F2520890    
       05657  0 02000 0 05665        TRA AC144                                                        F2520900    
       05660  0 50000 0 05126 AC140  CLA L(1)                                                         F2520910    
       05661 -0 53400 1 05207        LXD AX,1              COMPUTE G AND DETERMINE                    F2520920    
       05662  0 07400 4 04451        TSX CXIJ+2,4          IF GREATER THAN ONE,                       F2520930    
       05663  0 40200 0 05126        SUB L(1)                                                         F2520940    
       05664 -0 10000 0 05673        TNZ AC146                                                        F2520950    
       05665  0 50000 0 05053 AC144  CLA L(CLA)            G = 1,                                     F2520960    
       05666  0 60100 0 05177        STO CIL01             COMPILE                                    F2520970    
       05667  0 50000 0 05133        CLA L(0)              CLA N2, FOLLOWED                           F2520980    
       05670  0 60100 0 05176        STO CIL00             LATER BY STD.                              F2520990    
       05671  0 07400 4 04345        TSX CIT,4                                                        F2521000    
       05672  0 02000 0 05704        TRA AC150                                                        F2521010    
       05673  0 40000 0 05126 AC146  ADD L(1)              G GREATER THAN 1,                          F2521020    
       05674  0 76700 0 00022        ALS 18                COMPILE                                    F2521030    
       05675  0 07400 4 04601        TSX FIXCON,4          LDQ, MPY, ALS.                             F2521040    
       05676  0 60100 0 07577        STO OR000+9                                                      F2521050    
       05677  0 50000 0 05200        CLA CIL02                                                        F2521060    
       05700  0 60100 0 07567        STO OR000+1                                                      F2521070    
       05701  0 50000 0 07352        CLA KLX02I                                                       F2521080    
       05702  0 53400 1 05131        LXA L(3),1                                                       F2521090    
       05703  0 07400 4 07271        TSX LXC,4                                                        F2521100    
       05704 -0 53400 1 05207 AC150  LXD AX,1                                                         F2521110    
       05705  0 50000 1 03652        CLA TAG3,1                                                       F2521120    
       05706 -0 73400 2 00000        PDX 0,2                                                          F2521130    
       05707  0 50000 2 01106        CLA DOTAGZ+8,2                                                   F2521140    
       05710 -0 32000 0 05154        ANA BIT20                                                        F2521150    
       05711 -0 53400 2 05207        LXD AX,2                                                         F2521160    
       05712  0 10000 0 05733        TZE AC157                                                        F2521170    
       05713 -2 00001 2 05733        TNX AC157,2,1                                                    F2521180    
       05714  0 53400 1 05126        LXA L(1),1                                                       F2521190    
       05715  0 50000 0 07351        CLA KLX01I                                                       F2521200    
       05716  0 07400 4 07271        TSX LXC,4                                                        F2521210    
       05717  0 50000 0 05166        CLA INST13                                                       F2521220    
       05720  0 60100 0 05554        STO AC096                                                        F2521230    
       05721  0 07400 4 07172        TSX COSE,4                                                       F2521240    
       05722 -0 53400 2 05207        LXD AX,2                                                         F2521250    
       05723 -3 00002 2 05540        TXL AC080,2,2                                                    F2521260    
       05724  0 02000 0 05523        TRA AC064                                                        F2521270    
       05725  0 50000 0 05167 AC155  CLA INST14                                                       F2521280    
       05726  0 60100 0 05554        STO AC096                                                        F2521290    
       05727 -0 53400 2 05207        LXD AX,2                                                         F2521300    
       05730 -0 53400 4 05173        LXD BB0X,4                                                       F2521310    
       05731  1 00004 4 05732        TXI AC155+5,4,4                                                  F2521320    
       05732 -0 63400 4 05173        SXD BB0X,4                                                       F2521330    
       05733  0 07400 4 07211 AC157  TSX TESTL0,4                                                     F2521340    
       05734  0 50000 0 05255        CLA TETLOC            IN TETL0.                                  F2521350    
       05735  0 60100 0 05200        STO CIL02             COMPILE                                    F2521360    
       05736  0 50000 0 05052        CLA L(STD)            STD TETL0                                  F2521370    
       05737  0 60100 0 05177        STO CIL01             AND RETURN TO                              F2521380    
 T     05740 -0 63400 0 05176        SXD CIL00             AC160 TO                                   F2521390    
 T     05741 -0 63400 0 05201        SXD CIL03             CONSIDER NEXT                              F2521400    
       05742  0 07400 4 04345        TSX CIT,4             SUB OF TAG.                                F2521410    
       05743 -0 53400 1 05207 AC160  LXD AX,1                                                         F2521420    
       05744  2 00001 1 05570        TIX AC109,1,1         REDUCE POS. CTR.                           F2521430    
       05745  0 50000 0 03653        CLA TAG4              CHECK SUSBIT                               F2521440    
       05746  0 12000 0 05770        TPL AC165             FOR FORVAR.                                F2521450    
       05747 -0 53400 2 05230        LXD DOIND,2           FORVAR, IS IT                              F2521460    
       05750  0 50000 2 01103        CLA DOTAGZ+5,2        WITHIN THE CURRENT DO.                     F2521470    
       05751 -0 32000 0 05136        ANA BIT1                                                         F2521480    
       05752  0 10000 0 05770        TZE AC165             NO, AC165.                                 F2521490    
       05753  0 50000 0 05133        CLA L(0)              YES,                                       F2521500    
       05754  0 60100 0 05200        STO CIL02             COMPILE                                    F2521510    
       05755  0 07400 4 07131        TSX CIL03I,4          INSTRUCTIONS                               F2521520    
       05756  0 50000 0 05043        CLA L(PXD)            TO                                         F2521530    
       05757  0 60100 0 05177        STO CIL01             STORE                                      F2521540    
       05760  0 07400 4 04345        TSX CIT,4             THE                                        F2521550    
       05761  0 50000 2 01077        CLA DOTAGZ+1,2        VALUE                                      F2521560    
       05762  0 60100 0 05200        STO CIL02             OF                                         F2521570    
       05763  0 50000 0 05044        CLA L(STO)            THE                                        F2521580    
       05764  0 60100 0 05177        STO CIL01             SUBSCRIPT                                  F2521590    
       05765 -0 75400 0 00000        PXD 0,0               INTO                                       F2521600    
       05766  0 60100 0 05201        STO CIL03             ITS                                        F2521610    
       05767  0 07400 4 04345        TSX CIT,4             SYMBOL.                                    F2521620    
       05770  0 50000 0 05237 AC165  CLA XTG               START SCANNING                             F2521630    
       05771  0 77100 0 00002        ARS 2                 TGA FOR LOCATIONS                          F2521640    
       05772 -0 73400 1 00000        PDX 0,1               INDICATING VARIABLE                        F2521650    
       05773 -0 50000 1 02646        CAL MXTGA,1           DECREMENTS OF TXI                          F2521660    
       05774  0 60200 0 05211        SLW WRKTGA            AND TIX INSTRUCTIONS-                      F2521670    
       05775  0 10000 0 06237        TZE AC240             NONE, AC240.                               F2521680    
       05776  0 53400 1 05131        LXA L(3),1            YES, ISOLATE                               F2521690    
       05777 -0 63400 1 05207 AC166  SXD AX,1              APP. TGTG AND                              F2521700    
       06000 -0 50000 0 05211        CAL WRKTGA            CHECK FOR                                  F2521710    
       06001  0 77100 0 00022        ARS 18                LOCATIONS                                  F2521720    
       06002 -2 00001 1 06005 AC168  TNX AC170,1,1         OF TXI                                     F2521730    
       06003  0 77100 0 00006        ARS 6                 INSTRUCTIONS                               F2521740    
       06004  0 02000 0 06002        TRA AC168             WITH VARIABLE                              F2521750    
       06005 -0 32000 0 05170 AC170  ANA 6ONESR            DECREMENTS.                                F2521760    
       06006  0 10000 0 06060        TZE AC190             NONE, AC190.                               F2521770    
       06007  0 76700 0 00003        ALS 3                 STORE                                      F2521780    
       06010  0 60100 0 05255        STO TETLOC            LOC. OF TXI.                               F2521790    
       06011  0 53400 4 05133        LXA L(0),4                                                       F2521800    
       06012 -0 53400 1 05207        LXD AX,1              IS                                         F2521810    
       06013  0 50000 0 03653        CLA TAG4              POSITION                                   F2521820    
       06014 -3 00002 1 06035        TXL AC173,1,2                                                    F2521830    
       06015 -0 32000 0 05140        ANA BIT8              POSITION IS S1, IS                         F2521840    
       06016 -0 10000 0 06021 AC171  TNZ AC172             THIS BLOCK D SPECIAL.                      F2521850    
       06017  0 50000 0 03653        CLA TAG4              NO, BLOCK A.                               F2521860    
       06020  0 02000 0 06042        TRA AC176             TSX AOR0                                   F2521870    
       06021  0 56000 0 03640 AC172  LDQ WRKSC+2           TES, SET UP                                F2521880    
       06022  0 20000 0 03644        MPY WRKSC+6           CID1 AS G                                  F2521890    
       06023  0 76700 0 00021        ALS 17                FOR XX POSITION.                           F2521900    
       06024  0 60100 0 07612        STO OR000+20          C1 IS G FOR                                F2521910    
       06025  0 50000 0 03636        CLA WRKSC             N3X POSITION.                              F2521920    
       06026  0 60100 0 07611        STO OR000+19          PREPARE TO                                 F2521930    
       06027  0 53400 1 05131        LXA L(3),1            CALL PC ROUTINE                            F2521940    
       06030 -0 63400 1 05212        SXD N3X,1             TO COMPILE                                 F2521950    
       06031  0 53400 1 05127        LXA L(2),1            INITIALIZATION                             F2521960    
       06032 -0 63400 1 05213        SXD XX,1              INSTRUCTIONS                               F2521970    
       06033  0 07400 4 06701        TSX PC,4              FOR BLOCK D SPECIAL.                       F2521980    
       06034  0 02000 0 06060        TRA AC190                                                        F2521990    
       06035 -3 00001 1 06037 AC173  TXL AC174,1,1         IS POSITION S3)                            F2522000    
       06036  0 77100 0 00003        ARS 3                 ISOLATE BLKNUM                             F2522010    
       06037  0 77100 0 00035 AC174  ARS 29                FROM TAG4 AND                              F2522020    
       06040 -0 32000 0 05076        ANA L(7)              CALLPROPER ROUTINE                         F2522030    
       06041  0 73400 4 00000        PAX 0,4               TO COMPILE INITIALIZATION                  F2522040    
       06042  3 00000 4 06045 AC176  TXH AC176+3,4,0       INSTRUCTIONS FOR THAT BLOCK.               F2522050    
       06043  0 07400 4 06324        TSX AOR0,4            BLOCK A                                    F2522060    
       06044  0 02000 0 06060        TRA AC190                                                        F2522070    
       06045  3 00001 4 06050        TXH AC178,4,1                                                    F2522080    
       06046  0 07400 4 06435        TSX BOR0,4            BLOCK B                                    F2522090    
       06047  0 02000 0 06060        TRA AC190                                                        F2522100    
       06050  3 00002 4 06053 AC178  TXH AC182,4,2                                                    F2522110    
       06051  0 07400 4 06453        TSX COR0,4            BLOCK C                                    F2522120    
       06052  0 02000 0 06060        TRA AC190                                                        F2522130    
       06053  3 00003 4 06056 AC182  TXH AC186,4,3                                                    F2522140    
       06054  0 07400 4 06502        TSX DORO,4            BLOCK D.                                   F2522150    
       06055  0 02000 0 06060        TRA AC190                                                        F2522160    
       06056  0 07400 4 06541 AC186  TSX EOR0,4            BLOCK E.                                   F2522170    
       06057  0 02000 0 06060        TRA AC190                                                        F2522180    
       06060 -0 53400 1 05207 AC190  LXD AX,1              IF ALL SUBS HAVE NOT BEEN                  F2522190    
       06061  2 00001 1 05777        TIX AC166,1,1         CONSIDERED FOR TXIS, TAKE NEXT RT.         F2522200    
       06062  0 53400 1 05131        LXA L(3),1            THIS REPRESENTS END OF                     F2522210    
       06063 -0 63400 1 05207 AC200  SXD AX,1              TXI PHASE, START TIX.                      F2522220    
       06064  0 50000 0 05211        CLA WRKTGA            ISOLATE APP. TGTG ENTRY.                   F2522230    
       06065 -2 00001 1 06070 AC210  TNX AC214+1,1,1                                                  F2522240    
       06066  0 77100 0 00006        ARS 6                                                            F2522250    
       06067  0 02000 0 06065 AC214  TRA AC210                                                        F2522260    
       06070 -0 32000 0 05170        ANA 6ONESR                                                       F2522270    
       06071  0 10000 0 06235        TZE AC236             IS THERE A TIX VAR. DEC. LOC.              F2522280    
       06072  0 76700 0 00003        ALS 3                 YES, STORE TIX REL, LOC.                   F2522290    
       06073  0 60100 0 05255        STO TETLOC            IN TETLOC WORD.                            F2522300    
       06074 -0 53400 1 05207        LXD AX,1                                                         F2522310    
       06075  0 50000 1 03652        CLA TAG2+3,1          ISOLATE                                    F2522320    
       06076 -0 73400 2 00000        PDX 0,2               N3 FOR                                     F2522330    
       06077  0 50000 2 01102 ACI21  CLA DOTAGZ+4,2        THIS DO.                                   F2522340    
       06100  0 40200 0 05126        SUB L(1)              DOES N3 = 1.                               F2522350    
       06101  0 10000 0 06107        TZE AC220+2                                                      F2522360    
       06102  0 07400 4 07237        TSX XOR0,4            NO, PLACE N SYMBOLS                        F2522370    
       06103  0 53400 1 05106        LXA L(6),1            IN APPROP. OR0 LOCS                        F2522380    
       06104 -0 53400 2 05207        LXD AX,2              AND COMPUTE                                F2522390    
       06105  0 50000 2 07367 AC220  CLA KTX00+3,2         X QUANTITY                                 F2522400    
       06106  0 07400 4 07271        TSX LXC,4             ON O.C. LEVEL.                             F2522410    
       06107 -0 53400 1 05207        LXD AX,1                                                         F2522420    
       06110  0 50000 0 05160        CLA INST4             TRA AC224. MODIFY ADR0                     F2522430    
       06111  0 60100 0 06424        STO AOR030            ROUTINE T0 COMPUTE G.                      F2522440    
       06112  0 50000 0 05161        CLA INST5             TRAAC228.                                  F2522450    
       06113  0 60100 0 06430        STO AOR040                                                       F2522460    
       06114  0 07400 4 06324        TSX AOR0,4            COMPUTE G, PUT IN OR0+19.                  F2522470    
       06115  0 02000 0 06172 AC224  TRA AC230             G1 = 1.                                    F2522480    
       06116 -0 53400 1 05207 AC228  LXD AX,1              G1 NOT = 1,                                F2522490    
       06117  0 50000 1 03652        CLA TAG2+3,1          COMPILE INSTRUCTIONS                       F2522500    
       06120 -0 73400 2 00000        PDX 0,2               TO COMPUTE AND INIT1ALIZE                  F2522510    
       06121  0 50000 2 01102        CLA DOTAGZ+4,2        TIX DECREMENT.                             F2522520    
       06122  0 40200 0 05126        SUB L(1)                                                         F2522530    
       06123 -0 10000 0 06166        TNZ AC228I            N3 NOT = 1.                                F2522540    
       06124  0 50000 2 01100        CLA DOTAGZ+2,2        N3 = 1, DOES                               F2522550    
       06125  0 40200 0 05126        SUB L(1)              N1 = 1.                                    F2522560    
       06126 -0 10000 0 06135        TNZ ACI22             N1 NOT = 1.                                F2522570    
       06127  0 50000 2 01101        CLA DOTAGZ+3,2        N3, N1=1.                                  F2522580    
       06130  0 60100 0 07566        STO OR000             G GREATER THAN 1,                          F2522590    
       06131  0 50000 0 07360        CLA K1AOR0                                                       F2522600    
       06132  0 53400 1 05130        LXA L(4),1                                                       F2522610    
       06133  0 07400 4 07271        TSX LXC,4                                                        F2522620    
       06134  0 02000 0 06231        TRA AC234             EXIT TIX INITIAL1ZATION.                   F2522630    
       06135  0 07400 4 04741 ACI22  TSX OP3,4            N3= 1, N1 NOT = 1,                          F2522640    
       06136  0 50000 0 05054        CLA L(ADD)            COMPILE                                    F2522650    
       06137  0 60100 0 05177        STO CIL01             TIX                                        F2522660    
       06140  0 50000 0 07603        CLA OR000+13          INITIALIZATION                             F2522670    
       06141  0 73400 1 00000        PAX 0,1               GROUP                                      F2522680    
       06142 -0 32000 0 05104        ANA 6ONES             FOR                                        F2522690    
       06143  0 60100 0 05200        STO CIL02             THIS                                       F2522700    
       06144 -0 63400 1 05201        SXD CIL03,1           CASE.                                      F2522710    
       06145  0 07400 4 04345        TSX CIT,4                                                        F2522720    
       06146  0 50000 0 05044        CLA L(STO)                                                       F2522730    
       06147  0 60100 0 05177        STO CIL01                                                        F2522740    
       06150  0 50000 0 05133        CLA L(0)                                                         F2522750    
       06151  0 60100 0 05201        STO CIL03                                                        F2522760    
       06152  0 50000 0 07620        CLA OR000+26          ERASEABLE STORAGE                          F2522770    
       06153  0 73400 4 00000        PAX 0,4               SYMBOL FOR ADDRESS.                        F2522780    
       06154 -0 32000 0 05104        ANA 6ONES                                                        F2522790    
       06155  0 60100 0 05200        STO CIL02                                                        F2522800    
       06156 -0 63400 4 05201        SXD CIL03,4                                                      F2522810    
       06157  0 07400 4 04345        TSX CIT,4                                                        F2522820    
       06160  0 50000 0 07620        CLA OR000+26          PLACE ERASEABLE SYMBOL                     F2522830    
       06161  0 60100 0 07566        STO OR000             IN OR000 FOR LXC BLOCK.                    F2522840    
       06162  0 53400 1 05130        LXA L(4),1                                                       F2522850    
       06163  0 50000 0 07360        CLA K1AOR0                                                       F2522860    
       06164  0 07400 4 07271        TSX LXC,4                                                        F2522870    
       06165  0 02000 0 06231        TRA AC234             EXIT TIX INITIALIZATION,                   F2522880    
       06166  0 53400 1 05130 AC228I LXA L(4),1                                                       F2522890    
       06167  0 50000 0 07371        CLA LTX040            COMPILE TIX INITIAL1ZATION                 F2522900    
       06170  0 07400 4 07271        TSX LXC,4             GROUP FOR THIS CASE.                       F2522910    
       06171  0 02000 0 06231        TRA AC234             EXIT TIX INITIALIZATION.                   F2522920    
       06172 -0 53400 1 05207 AC230  LXD AX,1              G=1,                                       F2522930    
       06173  0 50000 1 03652        CLA TAG2+3,1          DOES                                       F2522940    
       06174 -0 73400 2 00000        PDX 0,2               N3 = 1.                                    F2522950    
       06175  0 50000 2 01102        CLA DOTAGZ+4,2                                                   F2522960    
       06176  0 40200 0 05126        SUB L(1)                                                         F2522970    
       06177 -0 10000 0 06226        TNZ AC230I            NO.                                        F2522980    
       06200  0 50000 2 01100        CLA DOTAGZ+2,2        YES, DOES N1= 1.                           F2522990    
       06201  0 40200 0 05126        SUB L(1)                                                         F252300D    
       06202 -0 10000 0 06211        TNZ ACI23             NO.                                        F2523010    
       06203  0 50000 2 01101        CLA DOTAGZ+3,2        G,N3,N1 = 1,                               F2523020    
       06204  0 60100 0 07566        STO OR000             COMPILE TIX                                F2523030    
       06205  0 50000 0 07362        CLA K2AOR0            INITIALIZATION                             F2523040    
       06206  0 53400 1 05127        LXA L(2),1            FOR THIS                                   F2523050    
       06207  0 07400 4 07271        TSX LXC,4             CASE.                                      F2523060    
       06210  0 02000 0 06231        TRA AC234             EXIT TIX INITIALIZATION.                   F2523070    
       06211  0 07400 4 04741 ACI23  TSX OP3,4             N3=1, N1 NOT = 1.                          F2523080    
       06212  0 50000 0 05054        CLA L(ADD)            COMPILE                                    F2523090    
       06213  0 60100 0 05177        STO CIL01             TIX                                        F2523100    
       06214  0 50000 0 07603        CLA OR000+13          INITIALIZATION                             F2523110    
       06215  0 73400 1 00000        PAX 0,1               FOR                                        F2523120    
       06216 -0 32000 0 05104        ANA 6ONES             THIS                                       F2523130    
       06217  0 60100 0 05200        STO CIL02             CASE.                                      F2523140    
       06220 -0 63400 1 05201        SXD CIL03,1                                                      F2523150    
       06221  0 07400 4 04345        TSX CIT,4                                                        F2523160    
       06222  0 50000 0 07363        CLA K3AOR0                                                       F2523170    
       06223  0 53400 1 05126        LXA L(1),1                                                       F2523180    
       06224  0 07400 4 07271        TSX LXC,4                                                        F2523190    
       06225  0 02000 0 06231        TRA AC234             EXIT TIX INITIALIZATION.                   F2523200    
       06226  0 53400 1 05127 AC230I LXA L(2),1            G =1, N3 NOT = 1.                          F2523210    
       06227  0 50000 0 07372        CLA LTX042                                                       F2523220    
       06230  0 07400 4 07271        TSX LXC,4            THIS CASE.                                  F2523230    
       06231  0 50000 0 05157 AC234  CLA INST3             RESET MODIFIED AOR0.                       F2523240    
       06232  0 60100 0 06424        STO AOR030            LXC L(4),1.                                F2523250    
       06233  0 50000 0 05156        CLA INST2                                                        F2523260    
       06234  0 60100 0 06430        STO AOR040            LXD L(2),1.                                F2523270    
       06235 -0 53400 1 05207  AC236 LXD AX,1                                                         F2523280    
       06236  2 00001 1 06063        TIX AC200,1,1                                                    F2523290    
       06237  0 02000 0 05315 AC240  TRA AC010                                                        F2523300    
       06240  0 53400 2 05125        LXA LADMX,2           START ADTG COMPILING.                      F2523310    
       06241  1 00004 2 06242        TXI AC240+3,2,4                                                  F2523320    
       06242 -0 63400 2 05237        SXD XTG,2                                                        F2523330    
       06243  0 50000 0 05162        CLA INST8             L(TRA AC244).                              F2523340    
       06244  0 62100 0 06237        STA AC240             MODIFY RETURN FOR ADTG ENTRY.              F2523350    
       06245  0 62100 0 05323        STA AC016                                                        F2523360    
       06246  0 50000 0 05163        CLA INST10                                                       F2523370    
       06247  0 62100 0 05773        STA AC165+3                                                      F2523380    
       06250  0 07400 4 04516 AC244  TSX ADTGSE,4          FIND VALID ADTG ENTRY.                     F2523390    
       06251  0 02000 0 06253        TRA AC250             END OF TABLE , GET NEXT DO.                F2523400    
 D     06252 -3 00000 0 05320 AC248  TXL AC014,0           VALID ENTRY, CONTINUE AC CYCLE.            F2523410    
       06253  0 50000 0 05164 AC250  CLA INST11            REINITIALIZE                               F2523420    
       06254  0 62100 0 06237        STA AC240             INSTRUCTIONS                               F2523430    
       06255  0 62100 0 05323        STA AC016             MODIFIED                                   F2523440    
       06256  0 50000 0 05165        CLA INST12            FOR DMTAG                                  F2523450    
       06257  0 62100 0 05773        STA AC165+3           CYCLE,                                     F2523460    
       06260  0 50000 0 05222        CLA LOCIND            COMPILE AT LEAST                           F2523470    
       06261  0 10000 0 06272        TZE AC260             A BSS INST SO                              F2523480    
       06262  0 50000 0 05224        CLA A                 THAT TRA INST                              F2523490    
       06263  0 60100 0 05176        STO CIL00             WILL FUNCTION                              F2523500    
       06264  0 50000 0 05133        CLA L(0)              PROPERLY.                                  F2523510    
       06265  0 60100 0 05200        STO CIL02                                                        F2523520    
       06266  0 60100 0 05201        STO CIL03                                                        F2523530    
       06267  0 50000 0 05056        CLA L(BSS)                                                       F2523540    
       06270  0 60100 0 05177        STO CIL01                                                        F2523550    
       06271  0 07400 4 04345        TSX CIT,4                                                        F2523560    
       06272 -0 53400 4 06252 AC260  LXD AC248,4           END OF                                     F2523570    
       06273  0 02000 4 00001        TRA 1,4               ALPAHA CYCLE.                              F2523580    
                                         *************************************************************F2523590    
                                         CDOR0 TAKES COEF. AND DIM. AND FILLS OUT OR0.                F2523600    
       06274 -0 63400 4 06277 CDOR0  SXD CDOR01,4                                                     F2523610    
       06275 -0 53400 2 05207        LXD AX,2                                                         F2523620    
       06276 -0 76000 0 00144        MSE 100                                                          F2523630    
 D     06277  3 00000 0 06300 CDOR01 TXH CDOR01+1,0        WHICH SUB IS IT.                           F2523640    
       06300 -3 00002 2 06307        TXL CDOR03,2,2        S2 OR S3, TRA.                             F2523650    
       06301  0 50000 0 03636        CLA WRKSC             S1,                                        F2523660    
       06302  0 40200 0 05061        SUB L1DEC             IS C1 GREATER THAN1.                       F2523670    
       06303  0 10000 4 00001        TZE 1,4               C1=1, RETURN.                              F2523680    
       06304  0 76000 0 00144        PSE 100               C1 NOT = 1, TURN 0N                        F2523690    
       06305  0 50000 0 03636        CLA WRKSC             SENSE LIGHT , ISOLATE C1.                  F2523700    
       06306  0 02000 0 06317        TRA CDOR07+1                                                     F2523710    
       06307  0 56000 0 03644 CDOR03 LDQ WRKSC+6           ISOLATE D1.                                F2523720    
       06310 -3 00001 2 06313        TXL CDOR05,2,1        WHICH SUBLISKIT.                           F2523730    
       06311  0 20000 0 03640        MPY WRKSC+2           S2, FORM C2D1.                             F2523740    
       06312  0 02000 0 06316        TRA CDOR07                                                       F2523750    
       06313  0 20000 0 03642 CDOR05 MPY WRKSC+4           S3, FORM                                   F2523760    
       06314  0 76500 0 00022        LRS 18                C3D1D2.                                    F2523770    
       06315  0 20000 0 03645        MPY WRKSC+7                                                      F2523780    
       06316  0 76700 0 00021 CDOR07 ALS 17                ASSIGN SYMBOL                              F2523790    
       06317  0 07400 4 04601        TSX FIXCON,4          FOR G AND PUT                              F2523800    
       06320  0 60100 0 07611        STO OR000+19          IN OR0 + 19.                               F2523810    
       06321 -0 53400 4 06277        LXD CDOR01,4          RESTORE LINKAGE,                           F2523820    
       06322 -0 53400 2 05207        LXD AX,2              PUT AX POSITION IN                         F2523830    
       06323  0 02000 4 00001        TRA 1,4               I.R. B AND RETURN.                         F2523840    
                                         *************************************************************F2523850    
                                         AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIAF2523860    
                                         COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE  F2523870    
                                         COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE DF2523880    
                                         DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY.        F2523890    
       06324 -0 63400 4 06346 AOR0   SXD AOR05,4                                                      F2523900    
       06325  0 50000 1 03652        CLA TAG2+3,1          LOCATION IS                                F2523910    
       06326 -0 73400 2 00000        PDX 0,2               SPECIFIED IN OR0 +14                       F2523920    
       06327  0 50000 2 01076        CLA DOTAGZ,2          BY COMBINING TETLOC                        F2523930    
       06330 -0 32000 0 05141        ANA ADMSK             WITH PROPER BETA.                          F2523940    
       06331  0 76700 0 00022        ALS 18                                                           F2523950    
       06332 -0 50100 0 05255        ORA TETLOC                                                       F2523960    
       06333  0 60100 0 07604        STO OR000+14                                                     F2523970    
       06334  0 50000 2 01102        CLA DOTAGZ+4,2                                                   F2523980    
       06335  0 60100 0 07566        STO OR000                                                        F2523990    
       06336 -0 53400 1 05207        LXD AX,1                                                         F2524000    
       06337 -3 00002 1 06347        TXL AOR010,1,2        S2 OR S3.                                  F2524010    
       06340  0 50000 0 03636        CLA WRKSC             S1 , IS                                    F2524020    
       06341  0 40200 0 05061        SUB L1DEC             C1=1.                                      F2524030    
       06342  0 10000 0 06424        TZE AOR030            YES                                        F2524040    
       06343  0 40000 0 05061        ADD L1DEC             NO, ASSIGN                                 F2524050    
       06344  0 07400 4 04601        TSX FIXCON,4          SYMBOL FOR C1.                             F2524060    
       06345  0 60100 0 07611        STO OR000+19                                                     F2524070    
 D     06346 -3 00000 0 06430 AOR05  TXL AOR040,0                                                     F2524080    
       06347 -3 00001 1 06367 AOR010 TXL AOR020,1,1        IS SUB S2.                                 F2524090    
       06350  0 56000 0 03640        LDQ WRKSC+2           YES, FOR C2D1.                             F2524100    
       06351  0 20000 0 03644        MPY WRKSC+6           IF S2 IS A                                 F2524110    
       06352  0 76700 0 00021        ALS 17                DUPE, ADD C1.                              F2524120    
       06353  0 60100 0 05245        STO ERAOR0                                                       F2524130    
       06354  0 56000 0 03653        LDQ TAG4                                                         F2524140    
       06355  0 76300 0 00031        LLS 25                                                           F2524150    
       06356  0 76000 0 00001        LBT                                                              F1I24160    
       06357  0 02000 0 06363        TRA AOR014            NO DUPES.                                  F2524170    
       06360  0 50000 0 03636        CLA WRKSC                                                        F2524180    
       06361  0 40000 0 05245        ADD ERAOR0                                                       F2524190    
       06362  0 60100 0 05245        STO ERAOR0                                                       F2524200    
       06363  0 50000 0 05245 AOR014 CLA ERAOR0            CONTAINS C2D1, ETC.                        F2524210    
       06364  0 07400 4 04601        TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2524220    
       06365  0 60100 0 07611        STO OR000+19          G AND PUT IN OR0+19                        F2524230    
       06366  0 02000 0 06430        TRA AOR040                                                       F2524240    
       06367  0 56000 0 03642 AOR020 LDQ WRKSC+4           S3, FORM                                   F2524250    
       06370  0 20000 0 03644        MPY WRKSC+6           C3D1D2.                                    F2524260    
       06371  0 76500 0 00022        LRS 18                                                           F2524270    
       06372  0 20000 0 03645        MPY WRKSC+7                                                      F2524280    
       06373  0 76700 0 00021        ALS 17                                                           F2524290    
       06374  0 60100 0 05245        STO ERAOR0                                                       F2524300    
       06375  0 56000 0 03653        LDQ TAG4              CHECK DUPES                                F2524310    
       06376  0 76300 0 00032        LLS 26                AND MAKE G                                 F2524320    
       06377  0 76000 0 00001        LBT                   ADJUSTMENTS                                F2524330    
       06400  0 02000 0 06420        TRA AOR024            ACCORDINGLY.                               F2524340    
       06401  0 77100 0 00001        ARS 1                                                            F2524350    
       06402  0 76000 0 00001        LBT                                                              F2524360    
       06403  0 02000 0 06411        TRA AOR022                                                       F2524370    
       06404  0 56000 0 03640        LDQ WRKSC+2                                                      F2524380    
       06405  0 20000 0 03644        MPY WRKSC+6                                                      F2524390    
       06406  0 76700 0 00021        ALS 17                                                           F2524400    
       06407  0 40000 0 05245        ADD ERAOR0                                                       F2524410    
       06410  0 60100 0 05245        STO ERAOR0                                                       F2524420    
       06411  0 50000 0 03653 AOR022 CLA TAG4                                                         F2524430    
       06412  0 77100 0 00013        ARS 11                                                           F2524440    
       06413  0 76000 0 00001        LBT                                                              F2524450    
       06414  0 02000 0 06420        TRA AOR024                                                       F2524460    
       06415  0 50000 0 03636        CLA WRKSC                                                        F2524470    
       06416  0 40000 0 05245        ADD ERAOR0                                                       F2524480    
       06417  0 60100 0 05245        STO ERAOR0                                                       F2524490    
       06420  0 50000 0 05245 AOR024 CLA ERAOR0                                                       F2524500    
       06421  0 07400 4 04601        TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2524510    
       06422  0 60100 0 07611        STO OR000+19          G FOR S3.                                  F2524520    
       06423  0 02000 0 06430        TRA AOR040                                                       F2524530    
       06424  0 53400 1 05127 AOR030 LXA L(2),1            SUB IS S1, C1=1,                           F2524540    
       06425  0 50000 0 07362        CLA K2AOR0            COMPILE CLA, STD.                          F2524550    
       06426  0 07400 4 07271        TSX LXC,4                                                        F2524560    
       06427  0 02000 0 06433        TRA AOR050                                                       F2524570    
       06430  0 53400 1 05130 AOR040 LXA L(4),1            COMPILE LDQ,MPY, STD.                      F2524580    
       06431  0 50000 0 07360        CLA K1AOR0                                                       F2524590    
       06432  0 07400 4 07271        TSX LXC,4                                                        F2524600    
       06433 -0 53400 4 06346 AOR050 LXD AOR05,4           RESTORE LINKAGE.                           F2524610    
       06434  0 02000 4 00001        TRA 1,4                                                          F2524620    
                                         *************************************************************F2324630    
       06435 -0 63400 4 05236 BOR0   SXD LINKC,4           FOR B BLOCK                                F2524640    
       06436  0 56000 0 03640        LDQ WRKSC+2           COMPUTE G AS                               F2524650    
       06437  0 20000 0 03644        MPY WRKSC+6           C2D1. PLACE                                F2524660    
       06440  0 76700 0 00021        ALS 17                THIS AND C1                                F2524670    
       06441  0 60100 0 07611        STO OR000+19          IN OR0.                                    F2524680    
       06442  0 50000 0 03636        CLA WRKSC                                                        F2524690    
       06443  0 60100 0 07612        STO OR000+20                                                     F2524700    
       06444  0 53400 1 05127        LXA L(2),1            INITIALIZE N3X                             F2524710    
       06445 -0 63400 1 05212        SXD N3X,1             POS. TO S2.                                F2524720    
       06446  0 53400 1 05131        LXA L(3),1            INITIALIZE XX                              F2524730    
       06447 -0 63400 1 05213        SXD XX,1              POS. TO S1.                                F2524740    
       06450  0 07400 4 06701        TSX PC,4                                                         F2524750    
       06451 -0 53400 4 05236        LXD LINKC,4                                                      F2524760    
       06452  0 02000 4 00001        TRA 1,4                                                          F2524770    
                                         *************************************************************F2524780    
       06453 -0 63400 4 06465 COR0   SXD COR005,4                                                     F2524790    
       06454  0 56000 0 03644        LDQ WRKSC+6           FORM C3D1D2 AND                            F2524800    
       06455  0 20000 0 03645        MPY WRKSC+7           STORE-IN                                   F2524810    
       06456  0 76500 0 00022        LRS 18                OR0+19                                     F2524820    
       06457  0 20000 0 03642        MPY WRKSC+4           FOR USE BY                                 F2524830    
       06460  0 76700 0 00021        ALS 17                PC IN COMPUTING                            F2524840    
       06461  0 60100 0 07611        STO OR000+19          BLOCK C DECREMENTS.                        F2524850    
       06462  0 50000 0 03653        CLA TAG4              TEST                                       F2524860    
       06463  0 77100 0 00011        ARS 9                 FOR                                        F2524870    
       06464  0 76000 0 00001        LBT                   DUPES.                                     F2524880    
 D     06465 -3 00000 0 06473 COR005 TXL COR010,0          NO DUPES.                                  F2524890    
       06466  0 56000 0 03644        LDQ WRKSC+6           IF DUPES, FORM                             F2524900    
       06467  0 20000 0 03640        MPY WRKSC+2           C2D1, ADD TO                               F2524910    
       06470  0 76700 0 00021        ALS 17                OR0+19 , AND STORE                         F2524920    
       06471  0 40000 0 07611        ADD OR000+19          IN OR0+19 FOR                              F2524930    
       06472  0 60100 0 07611        STO OR000+19          USE BY PC.                                 F2524940    
       06473  0 53400 1 05126 COR010 LXA L(1),1            SET N3X POSITION                           F2524950    
       06474 -0 63400 1 05212        SXD N3X,1             TO S3,                                     F2524960    
       06475  0 53400 1 05131        LXA L(3),1            XX POSITION TO S1                          F2524970    
       06476 -0 63400 1 05213        SXD XX,1              AND CALL PC TO COMPUTE                     F2524980    
       06477  0 07400 4 06701        TSX PC,4              AND COMPILE BLKC INIT.                     F2524990    
       06500 -0 53400 4 06465        LXD COR005,4          RESTORE LINKAGE AND                        F2525000    
       06501  0 02000 4 00001        TRA 1,4               RETURN TO MAIN ROUTINE.                    F2525010    
                                         *************************************************************F2525020    
       06502 -0 63400 4 06522 DORO   SXD DOR05,4           BLOCK D NORMAL.                            F2525030    
       06503  0 56000 0 03642        LDQ WRKSC+4           COMPUTES C3D1D2, G1                        F2525040    
       06504  0 20000 0 03644        MPY WRKSC+6           AND C2D1, G2 IF DUP.                       F2525050    
       06505  0 76500 0 00022        LRS 18                EXIST IN THE CASE                          F2525060    
       06506  0 20000 0 03645        MPY WRKSC+7           110 C1 ADDED TO G2.                        F2525070    
       06507  0 76700 0 00021        ALS 17                IN THE CASE 101                            F2525080    
       06510  0 60100 0 07611        STO OR000+19          C1 ADDED TO G1.                            F2525090    
       06511  0 56000 0 03640        LDQ WRKSC+2                                                      F2525100    
       06512  0 20000 0 03644        MPY WRKSC+6                                                      F2525110    
       06513  0 76700 0 00021        ALS 17                                                           F2525120    
       06514  0 60100 0 07612        STO OR000+20                                                     F2525130    
       06515  0 50000 0 03653        CLA TAG4                                                         F2525140    
       06516  0 77100 0 00011        ARS 9                                                            F2525150    
       06517 -0 32000 0 05076        ANA L(7)                                                         F2525160    
       06520  0 10000 0 06532        TZE DOR020                                                       F2525170    
       06521  0 76000 0 00001        LBT                                                              F2525180    
 D     06522 -3 00000 0 06527 DOR05  TXL DOR010,0                                                     F2525190    
       06523  0 50000 0 03636        CLA WRKSC                                                        F2525200    
       06524  0 40000 0 07611        ADD OR000+19                                                     F2525210    
       06525  0 60100 0 07611        STO OR000+19                                                     F2525220    
       06526  0 02000 0 06532        TRA DOR020                                                       FC52523D    
       06527  0 50000 0 03636 DOR010 CLA WRKSC                                                        F2525240    
       06530  0 40000 0 07612        ADD OR000+20                                                     F2525250    
       06531  0 60100 0 07612        STO OR000+20                                                     F2525260    
       06532  0 53400 1 05126 DOR020 LXA L(1),1            SET N3X POS. TO S3,                        F2525270    
       06533 -0 63400 1 05212        SXD N3X,1                                                        F2525280    
       06534  0 53400 1 05127        LXA L(2),1            XX POS. TO S2.                             F2525290    
       06535 -0 63400 1 05213        SXD XX,1                                                         F2525300    
       06536  0 07400 4 06701        TSX PC,4              MAKE COMPUTATIONS AND COMPILE              F2525310    
       06537 -0 53400 4 06522        LXD DOR05,4           INSTRUCTIONS TO INIT. VAR.                 F2525320    
       06540  0 02000 4 00001        TRA 1,4               BLOCK D DECREMENTS,                        F2525330    
                                         *************************************************************F2525340    
       06541 -0 63400 4 06645 EOR0   SXD EOR006,4                                                     F2525350    
       06542  0 07400 4 06502        TSX DORO,4            COMP. INSTR. FOR 1ST TXI-SXD-TIX.          F2525360    
       06543  0 50000 0 07605        CLA OR000+15          UPDATE                                     F2525370    
       06544  0 40000 0 05110        ADD L(8)              TXI RELATIVE                               F2525380    
       06545  0 60100 0 07604        STO OR000+14          INSTRUCTION NUM8ER.                        F2525390    
       06546  0 40000 0 05135        ADD L(16)             UPDATE TIX RELATIVE                        F2525400    
       06547  0 60100 0 07605        STO OR000+15          INSTRUCTION NUMBER.                        F2525410    
       06550  0 53400 1 05131        LXA L(3),1            SEE IF                                     F2525420    
       06551  0 50000 1 03652        CLA TAG2+3,1          X FOR                                      F2525430    
       06552 -0 73400 2 00000        PDX 0,2               XX POSITION                                F2525440    
       06553  0 50000 2 01103        CLA DOTAGZ+5,2        IS                                         F2525450    
       06554 -0 32000 0 05137        ANA BIT2              COMPUTABLE.                                F2525460    
       06555  0 10000 0 06644        TZE EOR006-1          X COMPUTABLE.                              F2525470    
       06556  0 50000 2 01102        CLA DOTAGZ+4,2        X NOT COMPUTABLE,                          F2525480    
       06557  0 40200 0 05126        SUB L(1)              IS N3=1.                                   F2525490    
       06560 -0 10000 0 06644        TNZ EOR006-1          N3 NOT =1.                                 F2525500    
       06561  0 50000 2 01100        CLA DOTAGZ+2,2        N3=1, IS                                   F2525510    
       06562  0 40200 0 05126        SUB L(1)              N1 = 1.                                    F2525520    
       06563 -0 10000 0 06610        TNZ EOR02             N1 NOT = 1.                                F2525530    
       06564  0 50000 0 03636        CLA WRKSC             N3,NU = 1,                                 F2525540    
       06565  0 40200 0 05061        SUB L1DEC             DOES C1=1.                                 F2525550    
       06566 -0 10000 0 06571        TNZ EOR01             NO.                                        F2525560    
       06567  0 50000 2 01101        CLA DOTAGZ+3,2        N3, N1, C1 = 1 .                           F2525570    
       06570  0 02000 0 06674        TRA EOR022            ISOLATE N2 SYMBOL.                         F2525580    
       06571  0 50000 2 01101 EOR01  CLA DOTAGZ+3,2        ISOLATE                                    F2525590    
       06572  0 60100 0 07566        STO OR000             N2 SYMBOL.                                 F2525600    
       06573  0 50000 0 03636        CLA WRKSC             ASSIGN SYMBOL                              F2525610    
       06574  0 07400 4 04601        TSX FIXCON,4          FOR C1, AND                                F2525620    
       06575  0 60100 0 07611        STO OR000+19          COMPILE LDQ L(N2),                         F2525630    
       06576  0 50000 0 07360        CLA K1AOR0            MPY L(C1), ARS 17.                         F2525640    
       06577  0 53400 1 05131        LXA L(3),1                                                       F2525650    
       06600  0 07400 4 07271        TSX LXC,4                                                        F2525660    
       06601  0 53400 1 05126 EOR03  LXA L(1),1            COMPILE                                    F2525670    
       06602  0 50000 0 07376        CLA LXCIE1            SUB L(1),                                  F2525680    
       06603  0 07400 4 07271        TSX LXC,4                                                        F2525690    
       06604  1 00001 1 06605        TXI EOR03+4,1,1       COMPILE                                    F2525700    
       06605  0 50000 0 07400        CLA LXCEIP            STD L(TIX), STD L(TXI).                    F2525710    
       06606  0 07400 4 07271        TSX LXC,4                                                        F2525720    
       06607  0 02000 0 06664        TRA EOR018+3                                                     F2525730    
       06610  0 07400 4 04741 EOR02  TSX OP3,4             COMPILE CLA (N2 - N1)                      F2525740    
       06611  0 50000 0 03636        CLA WRKSC             OR CLA N2, SUB N1.                         F2525750    
       06612  0 40200 0 05061        SUB L1DEC             DOES C1=1.                                 F2525760    
       06613  0 10000 0 06601        TZE EOR03             UES, EOR03.                                F2525770    
       06614  0 50000 0 05054        CLA L(ADD)            NO, COMPILE                                F2525780    
       06615  0 60100 0 05177        STO CIL01             ADD L(1),                                  F2525790    
       06616  0 50000 0 07603        CLA OR000+13          STO 1)+3,                                  F2525800    
       06617  0 73400 4 00000        PAX 0,4                                                          F2525810    
       06620 -0 32000 0 05104        ANA 6ONES             MPY L(C1.,                                 F2525820    
       06621  0 60100 0 05200        STO CIL02             ALS 17,                                    F2525830    
       06622 -0 63400 4 05201        SXD CIL03,4           STO 1)+3,                                  F2525840    
       06623  0 07400 4 04345        TSX CIT,4             AND GO TO                                  F2525850    
       06624  0 50000 0 05044        CLA L(STO)            EOR03.                                     F2525860    
       06625  0 60100 0 05177        STO CIL01                                                        F2525870    
       06626  0 50000 0 07620        CLA OR000+26                                                     F2525880    
       06627  0 60100 0 07567        STO OR000+1                                                      F2525890    
       06630  0 73400 4 00000        PAX 0,4                                                          F2525900    
       06631 -0 32000 0 05104        ANA 6ONES                                                        F2525910    
       06632  0 60100 0 05200        STO CIL02                                                        F2525920    
       06633 -0 63400 4 05201        SXD CIL03,4                                                      F2525930    
       06634  0 07400 4 04345        TSX CIT,4             FIXCON SYMBOL                              F2525940    
       06635  0 50000 0 03636        CLA WRKSC             FOR C1.                                    F2525950    
       06636  0 07400 4 04601        TSX FIXCON,4                                                     F2525960    
       06637  0 60100 0 07577        STO OR000+9                                                      F2525970    
       06640  0 50000 0 07352        CLA KLX02I                                                       F2525980    
       06641  0 53400 1 05130        LXA L(4),1                                                       F2525990    
       06642  0 07400 4 07271        TSX LXC,4                                                        F2526000    
       06643  0 02000 0 06601        TRA EOR03                                                        F2526010    
       06644  0 07400 4 07226        TSX PXOR0,4           C1 GREATER THAN 1.                         F2526020    
 D     06645 -3 00000 0 06647 EOR006 TXL EOR008,0                                                     F2526030    
       06646  0 02000 0 06666        TRA EOR020            X CONSTANT, EOR020.                        F2526040    
       06647  0 53400 1 05106 EOR008 LXA L(6),1            X NOT CONST.,                              F2526050    
       06650  0 50000 0 03636        CLA WRKSC             COMPILE                                    F2526060    
       06651  0 40200 0 05061        SUB L1DEC             INSTRUCTIONS                               F2526070    
       06652  0 10000 0 06657        TZE EOR015            TO COMPUTE                                 F2526080    
       06653  1 00002 1 06654        TXI EOR010,1,2        XGN3.                                      F2526090    
       06654  0 50000 0 03636 EOR010 CLA WRKSC                                                        F2526100    
       06655  0 07400 4 04601        TSX FIXCON,4                                                     F2526110    
       06656  0 60100 0 07577        STO OR000+9                                                      F2526120    
       06657  0 50000 0 07373 EOR015 CLA LXCI                                                         F2526130    
       06660  0 07400 4 07271        TSX LXC,4                                                        F2526140    
       06661  0 53400 1 05130 EOR018 LXA L(4),1            COMPILE LLS, SUB,                          F2526150    
       06662  0 50000 0 07375        CLA LXCIE             STD,STD.                                   F2526160    
       06663  0 07400 4 07271        TSX LXC,4                                                        F2526170    
       06664 -0 53400 4 06645        LXD EOR006,4                                                     F2526180    
       06665  0 02000 4 00001        TRA 1,4                                                          F2526190    
       06666  0 76500 0 00043 EOR020 LRS 35                                                           F2526200    
       06667  0 76100 0 00000        NOP                                                              F2526210    
       06670  0 20000 0 03636        MPY WRKSC                                                        F2526220    
       06671  0 76700 0 00021        ALS 17                                                           F2526230    
       06672  0 76100 0 00000        NOP                                                              F2526240    
       06673  0 07400 4 04601        TSX FIXCON,4                                                     F2526250    
       06674  0 60100 0 07612 EOR022 STO OR000+20          PUT SYMB0L IN                              F2526260    
       06675  0 53400 1 05126        LXA L(1),1            OR0+20 AND C0MPILE                         F2526270    
       06676  0 50000 0 07377        CLA LXCIEP            CLA (SYMB0L),                              F2526280    
       06677  0 07400 4 07271        TSX LXC,4                                                        F2526290    
       06700  0 02000 0 06601        TRA EOR03                                                        F2526300    
                                         *************************************************************F2526310    
                                         PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTAF2526320    
                                         TIONS  AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIAF2526330    
                                         LIZATION.                                                    F2526340    
       06701 -0 63400 4 06717 PC     SXD PC04,4                                                       F2526350    
       06702 -0 53400 1 05212        LXD N3X,1                                                        F2526360    
       06703  0 50000 1 03652        CLA TAG2+3,1                                                     F2526370    
       06704 -0 73400 2 00000        PDX 0,2                                                          F2526380    
       06705  0 50000 2 01076        CLA DOTAGZ,2                                                     F2526390    
       06706 -0 32000 0 05141        ANA ADMSK             FORM LOCATION                              F2526400    
       06707  0 76700 0 00022        ALS 18                WORDS AND PUT                              F2526410    
       06710 -0 50100 0 05255        ORA TETLOC            IN OR0+14                                  F2526420    
       06711  0 60100 0 07604        STO OR000+14          AND OR0+15.                                F2526430    
       06712  0 40000 0 05135        ADD L(16)                                                        F2526440    
       06713  0 60100 0 07605        STO OR000+15                                                     F2526450    
       06714  0 50000 2 01076        CLA DOTAGZ,2          IS N3 FOR THIS DO                          F2526460    
       06715  0 77100 0 00017        ARS 15                VARIABLE.                                  F2526470    
       06716  0 76000 0 00001        LBT                                                              F2526480    
 D     06717 -3 00000 0 06731 PC04   TXL PC10,0            NO, PC10.                                  F2526490    
       06720  0 50000 2 01102        CLA DOTAGZ+4,2        YES,                                       F2526500    
       06721  0 60100 0 07566        STO OR000             COMPILE                                    F2526510    
       06722  0 50000 0 07611        CLA OR000+19          LDQ L(G), (N3X POS,),                      F2526520    
       06723  0 07400 4 04601        TSX FIXCON,4          MPY N3, (N3X POS.),                        F2526530    
       06724  0 60100 0 07611        STO OR000+19          ALS 17,                                    F2526540    
       06725  0 53400 1 05130        LXA L(4),1            STO C(OR0+12)                              F2526550    
       06726  0 50000 0 07402        CLA K1BOR0                                                       F2526560    
       06727  0 07400 4 07271        TSX LXC,4                                                        F2526570    
       06730  0 02000 0 06736        TRA PC20                                                         F2526580    
       06731  0 56000 2 01102 PC10   LDQ DOTAGZ+4,2        N3 C0NSTANT, PUT                           F2526590    
       06732  0 20000 0 07611        MPY OR000+19          N3G SYMBOL IN                              F2526600    
       06733  0 76300 0 00043        LLS 35                OR0+19                                     F2526610    
       06734  0 07400 4 04601        TSX FIXCON,4                                                     F2526620    
       06735  0 60100 0 07611        STO OR000+19                                                     F2526630    
       06736 -0 53400 1 05213 PC20   LXD XX,1              ISOLATE N3 FOR                             F2526640    
       06737  0 50000 1 03652 PCI    CLA TAG2+3,1          XX POSITION                                F2526650    
       06740 -0 73400 2 00000        PDX 0,2                                                          F2526660    
       06741  0 50000 2 01102        CLA DOTAGZ+4,2        DOES N3 = 1.                               F2526670    
       06742  0 40200 0 05126        SUB L(1)                                                         F2526680    
       06743 -0 10000 0 07050        TNZ PC21              NO, PC22.                                  F2526690    
       06744  0 50000 2 01103        CLA DOTAGZ+5,2        YES, IS X CONST.                           F2526700    
       06745 -0 32000 0 05137        ANA BIT2                                                         F2526710    
       06746  0 10000 0 07050        TZE PC21              YES, PC21.                                 F2526720    
       06747 -3 00002 1 07027        TXL PCI31,1,2         NO, IS POS. S2.                            F2526730    
       06750  0 50000 2 01100        CLA DOTAGZ+2,2        NO, IS N1 = 1.                             F2526740    
       06751  0 40200 0 05126        SUB L(1)                                                         F2526750    
       06752 -0 10000 0 06773        TNZ PCI22             NO, PCI22.                                 F2526760    
       06753  0 50000 2 01101        CLA DOTAGZ+3,2        YES, DOES C1 = 1,                          F2526770    
       06754  0 60100 0 07567        STO OR000+1                                                      F2526780    
       06755  0 50000 0 03636        CLA WRKSC                                                        F2526790    
       06756  0 40200 0 05061        SUB L1DEC                                                        F2526800    
       06757 -0 10000 0 06764        TNZ PCI21             NO, PCI21.                                 F2526810    
       06760  0 53400 1 05126        LXA L(1),1            YES, COMPILE                               F2526820    
       06761  0 50000 0 07353        CLA KLX02             CLA N1,                                    F2526830    
       06762  0 07400 4 07271        TSX LXC,4             SUBL(1), AND                               F2526840    
       06763  0 02000 0 07044        TRA PCI33                                                        F2526850    
       06764  0 50000 0 03636 PCI21  CLA WRKSC                                                        F2526860    
       06765  0 07400 4 04601        TSX FIXCON,4          COMPILE                                    F2526870    
       06766  0 60100 0 07577        STO OR000+9           LDQ L(N2)                                  F2526880    
       06767  0 50000 0 07352        CLA KLX02I            MPY LC1)                                   F2526890    
       06770  0 53400 1 05130        LXA L(4),1            ALS 17                                     F2526900    
       06771  0 07400 4 07271        TSX LXC,4             STO 1) +3.                                 F2526910    
       06772  0 02000 0 07113        TRA PC60                                                         F2526920    
       06773  0 07400 4 04741 PCI22  TSX OP3,4             COMPILE CLA L(N2-N1)                       F2526930    
       06774  0 50000 0 03636        CLA WRKSC                                                        F2526940    
       06775  0 40200 0 05061        SUB L1DEC             IS C1 = 1.                                 F2526950    
       06776  0 10000 0 07113        TZE PC60              YES, PC 60.                                F2526960    
       06777  0 50000 0 03636        CLA WRKSC             NO, OBTAIN                                 F2526970    
       07000  0 07400 4 04601        TSX FIXCON,4          SYMBOL FOR                                 F2526980    
       07001  0 60100 0 07577        STO OR000+9           C1 AND                                     F2526990    
       07002  0 50000 0 05054 PCI22R CLA L(ADD)            COMPILE                                    F2527000    
       07003  0 60100 0 05177        STO CIL01             ADD L(1)                                   F2527010    
       07004  0 50000 0 07603        CLA OR000+13          STO 1) +3                                  F2527020    
       07005  0 73400 1 00000        PAX 0,1               LDQ 1) +3                                  F2527030    
       07006 -0 63400 1 05201        SXD CIL03,1           MPY L(G)                                   F2527040    
       07007 -0 32000 0 05104        ANA 6ONES             ALS17                                      F2527050    
       07010  0 60100 0 05200        STO CIL02             STD 1) +3                                  F2527060    
       07011  0 07400 4 04345        TSX CIT,4             SUB L(1),                                  F2527070    
       07012  0 50000 0 05044        CLA L(STO)            THEN GO                                    F2527080    
       07013  0 60100 0 05177        STO CIL01             TO PC60.                                   F2527090    
       07014  0 50000 0 07620        CLA OR000+26                                                     F2527100    
       07015  0 60100 0 07567        STO OR000+1                                                      F2527110    
       07016  0 73400 4 00000        PAX 0,4                                                          F2527120    
       07017 -0 32000 0 05104        ANA 6ONES                                                        F2527130    
       07020  0 60100 0 05200        STO CIL02                                                        F2527140    
       07021 -0 63400 4 05201        SXD CIL03,4                                                      F2527150    
       07022  0 07400 4 04345        TSX CIT,4                                                        F2527160    
       07023  0 53400 1 05130        LXA L(4),1                                                       F2527170    
       07024  0 50000 0 07352        CLA KLX02I                                                       F2527180    
       07025  0 07400 4 07271        TSX LXC,4                                                        F2527190    
       07026  0 02000 0 07044        TRA PCI33                                                        F2527200    
       07027  0 50000 0 07612 PCI31  CLA OR000+20          XX POS 2 , X VAR., N3 = 1,                 F2527210    
       07030  0 07400 4 04601        TSX FIXCON,4          ASSIGN SYMBOL FOR G                        F2527220    
       07031  0 60100 0 07577        STO OR000+9           AND PUT IN OR0+9                           F2527230    
       07032  0 50000 2 01100        CLA DOTAGZ+2,2        IS N1 = 1                                  F2527240    
       07033  0 40200 0 05126        SUB L(1)                                                         F2527250    
       07034  0 10000 0 07037        TZE PCI32             YES, PCI32.                                F2527260    
       07035  0 07400 4 04741        TSX OP3,4             NO, COMPILE CLA (N2-N1)                    F2527270    
       07036  0 02000 0 07002        TRA PCI22R            OR CLA N2, SUB N1.                         F2527280    
       07037  0 50000 2 01101 PCI32  CLA DOTAGZ+3,2        COMPILE                                    F2527290    
       07040  0 60100 0 07567        STO OR000+1           LDQ N2,                                    F2527300    
       07041  0 53400 1 05130        LXA L(4),1            MPY G,                                     F2527310    
       07042  0 50000 0 07352        CLA KLX02I            ALS 17,                                    F2527320    
       07043  0 07400 4 07271        TSX LXC,4             STO1)+3,                                   F2527330    
       07044  0 53400 1 05126 PCI33  LXA L(1),1                                                       F2527340    
       07045  0 50000 0 07404        CLA LXCI61                                                       F2527350    
       07046  0 07400 4 07271        TSX LXC,4                                                        F2527360    
       07047  0 02000 0 07113        TRA PC60                                                         F2527370    
       07050  0 07400 4 07226 PC21   TSX PXOR0,4           IS X CONSTANT.                             F2527380    
       07051  0 02000 0 07053        TRA PC22              NO, PC22.                                  F2527390    
       07052  0 02000 0 07102        TRA PC50              YES. PC50,                                 F2527400    
       07053 -0 53400 1 05213 PC22   LXD XX,1              X NOT CONSTANT,                            F2527410    
       07054 -3 00002 1 07073        TXL PC40,1,2          IS POSITION S1.                            F2527420    
       07055  0 53400 1 05106        LXA L(6),1            TES, COMPILE                               F2527430    
       07056  0 50000 0 03636        CLA WRKSC             INSTRUCTIONS                               F2527440    
       07057  0 40200 0 05061        SUB L1DEC             TO COMPUTE                                 F2527450    
       07060  0 10000 0 07065        TZE PC30              N3X-1, AND                                 F2527460    
       07061  1 00002 1 07062        TXI PC25,1,2          TO TO PC60,                                F2527470    
       07062  0 40000 0 05061 PC25   ADD L1DEC                                                        F2527480    
       07063  0 07400 4 04601        TSX FIXCON,4                                                     F2527490    
       07064  0 60100 0 07577        STO OR000+9                                                      F2527500    
       07065  0 50000 0 07373 PC30   CLA LXCI                                                         F2527510    
       07066  0 07400 4 07271        TSX LXC,4                                                        F2527520    
       07067  0 53400 1 05127        LXA L(2),1                                                       F2527530    
       07070  0 50000 0 07374        CLA LXCI6                                                        F2527540    
       07071  0 07400 4 07271        TSX LXC,4                                                        F2527550    
       07072  0 02000 0 07113        TRA PC60                                                         F2527560    
       07073  0 50000 0 07612 PC40   CLA OR000+20          POS, IS S2,                                F2527570    
       07074  0 07400 4 04601        TSX FIXCON,4          COMPILE INSTRUCTIONS                       F2527580    
       07075  0 60100 0 07612        STO OR000+20          TO COMPUT N3X-1 AND                        F2527590    
       07076  0 53400 1 05134        LXA L(10),1           GO TO PC60.                                F2527600    
       07077  0 50000 0 07403        CLA LX2CI                                                        F2527610    
       07100  0 07400 4 07271        TSX LXC,4                                                        F2527620    
       07101  0 02000 0 07113        TRA PC60                                                         F2527630    
       07102  0 76500 0 00043 PC50   LRS 35                X IS CONSTANT,                             F2527640    
       07103  0 20000 0 07612        MPY OR000+20          FORM GN3X-1 FOR                            F2527650    
       07104  0 76700 0 00021        ALS 17                XX POS. AND COMPILE                        F2527660    
       07105  0 40200 0 05061        SUB L1DEC                                                        F2527670    
       07106  0 07400 4 04601        TSX FIXCON,4                                                     F2527680    
       07107  0 60100 0 07612        STO OR000+20                                                     F2527690    
       07110  0 53400 1 05126        LXA L(1),1                                                       F2527700    
       07111  0 50000 0 07401        CLA XK                                                           F2527710    
       07112  0 07400 4 07271        TSX LXC,4                                                        F2527720    
       07113 -0 53400 1 05212 PC60   LXD N3X,1                                                        F2527730    
       07114  0 50000 1 03652        CLA TAG2+3,1          IS                                         F2527740    
       07115 -0 73400 2 00000        PDX 0,2               N3                                         F2527750    
       07116  0 53400 1 05131        LXA L(3),1            OF                                         F2527760    
       07117  0 50000 2 01076        CLA DOTAGZ,2          CURRENT                                    F2527770    
       07120  0 77100 0 00017        ARS 15                DO                                         F2527780    
       07121  0 76000 0 00001        LBT                   VARIABLE.                                  F2527790    
       07122  0 02000 0 07127        TRA PC61              CONSTANT, PC61.                            F2527800    
       07123  0 50000 0 07405        CLA LXCI8             VARIABLE, COMPILE                          F2527810    
       07124  0 07400 4 07271 PC62   TSX LXC,4             STD, ADD N3G, STD.                         F2527820    
       07125 -0 53400 4 06717        LXD PC04,4                                                       F2527830    
       07126  0 02000 4 00001        TRA 1,4                                                          F2527840    
       07127  0 50000 0 07562 PC61   CLA LXCI8P            CONSTANT. COMPILE                          F2527850    
       07130  0 02000 0 07124        TRA PC62              STO, ADD C(OR0+12), STD.                   F2527860    
                                         *************************************************************F2527870    
                                         CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2527880    
                                         TRUCTIONS WITHOUT LOCATIONS.                                 F2527890    
       07131  0 50000 0 05133 CIL03I CLA L(0)              PLACE 0 IN LOCATION                        F2527900    
       07132  0 60100 0 05176        STO CIL00             WORD AND TAG IN                            F2527910    
       07133  0 50000 0 03652        CLA TAG3              TAG WORD OF COMPILED                       F2527920    
       07134 -0 32000 0 05141        ANA ADMSK             INSTRUCGIN.                                F2527930    
       07135  0 60100 0 05201        STO CIL03                                                        F2527940    
       07136  0 02000 4 00001        TRA 1,4                                                          F2527950    
                                         *************************************************************F2527960    
                                         BITP CHECKS SUBSCRIPTS FOR DEFINITION.  IF DEFINED BY RELCON F2327970    
                                         OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2327980    
                                         CTIVELY.                                                     F2527990    
       07137  0 62100 0 07162 BITP   STA BITP14                                                       F2528000    
       07140  0 62100 0 07147        STA BITP02            INITIALIZE SHIFTS,                         F2528010    
       07141  0 62100 0 07153        STA BITP04            STORE LINKAGE                              F2528020    
       07142  0 73400 2 00000        PAX 0,2               AND PLACE 0,1,2 IN                         F2528030    
       07143  0 76700 0 00001        ALS 1                 XB FOR S3, S2, AND                         F2528040    
       07144  0 73400 1 00000        PAX 0,1               S1 RESPECTIVELY,                           F2528050    
       07145 -0 63400 4 07166        SXD BITP25,4                                                     F2528060    
       07146  0 50000 0 05252        CLA OREDO             CHECK TO SEE IT                            F2528070    
 A     07147  0 77100 0 00000 BITP02 ARS                   DEFINED BY DO, RELCON,                     F2528080    
       07150  0 76000 0 00001        LBT                   OR DORC. RETURN AS  NOT                    F2528090    
       07151  0 02000 4 00001        TRA 1,4               DEFINED IF NOT DEFINED.                    F2528100    
       07152  0 50000 0 05253        CLA DEFDO             DEFINED. CHECK T0 SEE                      F2528110    
 A     07153  0 77100 0 00000 BITP04 ARS                   IF DEFINED BY DO,                          F2528120    
       07154  0 76000 0 00001        LBT                                                              F2528130    
       07155  0 02000 0 07167        TRA BITP30            DEFINED AS RELCON.                         F2528140    
       07156  0 50000 2 03651        CLA TAG2+2,2          DEFINED BY DO, CHECK                       F2528150    
       07157 -0 73400 2 00000        PDX 0,2               TO SEE IF N1 IS                            F2528160    
       07160  0 50000 0 05254 BITP10 CLA N1SBX             VARIABLE. IF SO, RETURN                    F2528170    
       07161  3 00007 0 00100        TXH 64,0,7            AS UNDEFINED.                              F2528180    
 A     07162  0 77100 0 00000 BITP14 ARS                   IF NOT,                                    F2528190    
       07163  0 76000 0 00001        LBT                   CONTINUE.                                  F2528200    
       07164  0 02000 0 07151        TRA BITP02+2          SYMBOL HAS VARIABLE N1.                    F2528210    
       07165  0 50000 2 01100 BITP20 CLA DOTAGZ+2,2        DOSUB, N2.                                 F2528220    
 D     07166 -3 00000 0 07170 BITP25 TXL BITP40,0          SUBMLEFT IN ACC.                           F2528230    
       07167  0 50000 1 03643 BITP30 CLA WRKSC+5,1         RELCON S SYMBOL FROM WRKSC.                F2528240    
       07170 -0 53400 4 07166 BITP40 LXD BITP25,4          RESTORE LINKAGE                            F2528250    
       07171  0 02000 4 00002        TRA 2,4               SYMBOL IN ACC.                             F2528260    
                                         *************************************************************F2528270    
                                         COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FRF2528280    
                                         TH0SE GREATER THAN 1                                         F2528290    
       07172  0 53400 1 05106 COSE   LXA L(6),1            COEFFICIENT INDEX.                         F2528300    
       07173  0 53400 2 05131        LXA L(3),2            SENSE LIGHT INDEX.                         F2528310    
       07174 -0 63400 4 05236        SXD LINKC,4           STORE LINKAGE.                             F2528320    
       07175  0 50000 1 03644 COSE5  CLA WRKSC+6,1         ISOLATE COEFFIEIENT,                       F2528330    
       07176  0 10000 0 07205        TZE COSE08            NO SUB FOR THIS DIM.                       F2528340    
       07177  0 40200 0 05061        SUB L1DEC                                                        F2528350    
       07200  0 10000 0 07205        TZE COSE08            C=1, CHECK NEXT C.                         F2528360    
       07201  0 76000 2 00144        PSE 100,2             C NOT = 1, SENSE LIGHT.                    F2528370    
       07202  0 50000 1 03644        CLA WRKSC+6,1         ASS1GN FIXCON SYMBOL                       F2528380    
       07203  0 07400 4 04601        TSX FIXCON,4          FOR C NOT = 1. STORE IN                    F2528390    
       07204  0 60100 2 07602        STO OR000+12,2        OR0+910, OR 11.                            F2528400    
       07205  2 00002 1 07206 COSE08 TIX COSE10,1,2        BUMP COEF. INDEX.                          F2528410    
       07206  2 00001 2 07175 COSE10 TIX COSE5,2,1         BUMP S.6. TEST AND LOOP,                   F2528420    
       07207 -0 53400 4 05236        LXD LINKC,4           RESTORE LINKAGE                            F2528430    
       07210  0 02000 4 00001        TRA 1,4               AND RETURN.                                F2528440    
                                         *************************************************************F2528450    
                                         TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2528460    
                                         OF THE STD INITIALIZING INSTRUCT10N,                         F2528470    
       07211  0 50000 2 03652 TESTL0 CLA TAG2+3,2          INITIALIZE INDEX                           F2528480    
       07212 -0 73400 2 00000        PDX 0,2               FOR TEST DOTAG.                            F2528490    
       07213  0 50000 0 05133        CLA L(0)              ISOLATE                                    F2528500    
       07214  0 56000 2 01104        LDQ DOTAGZ+6,2        SXD                                        F2528510    
       07215 -0 77300 0 00003        RQL 3                 LOCATION                                   F2528520    
       07216 -0 76300 0 00006        LGL 6                 AND PUT                                    F2528530    
       07217  0 76700 0 00003        ALS 3                 IN TETLOC                                  F2528540    
       07220  0 60100 0 05255        STO TETLOC            ADDRESS                                    F2528550    
       07221  0 50000 2 01076        CLA DOTAGZ,2          PUT TXL                                    F2528560    
       07222 -0 32000 0 05141        ANA ADMSK             LOCATION                                   F2528570    
       07223  0 76700 0 00022        ALS 18                IN TETLOC                                  F2528580    
       07224 -0 60200 0 05255        ORS TETLOC            DECREMENT.                                 F2528590    
       07225  0 02000 4 00001        TRA 1,4                                                          F2528600    
                                         *************************************************************F2528610    
                                         PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY.           F2528620    
       07226  0 50000 1 03652 PXOR0  CLA TAG2+3,1          IF X IS                                    F2528630    
       07227 -0 73400 2 00000        PDX 0,2               CONSTANT IT IS                             F2528640    
       07230  0 50000 2 01103        CLA DOTAGZ+5,2        LEFT IN THE                                F2528650    
       07231 -0 32000 0 05137        ANA BIT2              DECREMENT OF                               F2528660    
       07232 -0 10000 0 07237        TNZ XOR0              ACC.                                       F2528670    
       07233  0 50000 2 01103        CLA DOTAGZ+5,2                                                   F2528680    
       07234 -0 32000 0 05141        ANA ADMSK                                                        F2528690    
       07235  0 76700 0 00022        ALS 18                                                           F2528700    
       07236  0 02000 4 00002        TRA 2,4                                                          F2528710    
                                         *************************************************************F2528720    
                                         XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2528730    
       07237 -0 63400 4 07260 XOR0   SXD XOR032,4                                                     F2528740    
       07240  0 50000 2 01076        CLA DOTAGZ,2                                                     F2528750    
       07241  0 77100 0 00017        ARS 15                                                           F2528760    
       07242 -0 32000 0 05076        ANA L(7)                                                         F2528770    
       07243  0 60100 0 05235        STO N1N2N3                                                       F2528780    
       07244  0 50000 0 05067        CLA L(OR0)            ORIGIN OF OR0 TABLE.                       F2528790    
       07245  0 40000 0 05130        ADD L(4)              CALCULATES ADDRESS                         F2528800    
       07246  3 00002 1 07250        TXH XOR010,1,2        FOR STORING INTO                           F2528810    
       07247  0 40000 0 05131        ADD L(3)              OR0 TABLE.                                 F2528820    
       07250  3 00001 1 07252 XOR010 TXH XOR020,1,1                                                   F2528830    
       07251  0 40000 0 05066        ADD L(17)                                                        F2528840    
       07252  0 62100 0 07263 XOR020 STA XOR036            STORE ADRS FOR NS.                         F2528850    
       07253  0 53400 1 05131        LXA L(3),1                                                       F2528860    
       07254  0 56000 0 05235 XOR030 LDQ N1N2N3                                                       F2528870    
       07255 -0 77300 1 00044        RQL 36,1                                                         F2528880    
       07256  0 50000 2 01100        CLA DOTAGZ+2,2                                                   F2528890    
       07257  0 16200 0 07261        TQP XOR034            N IS CONSTANT.                             F2528900    
 D     07260 -3 00000 0 07263 XOR032 TXL XOR036,0          N IS VARIABLE                              F2528910    
       07261  0 76700 0 00022 XOR034 ALS 18                                                           F2528920    
       07262  0 07400 4 04601        TSX FIXCON,4                                                     F2528930    
       07263  0 60100 1 00000 XOR036 STO 0,1                                                          F2528940    
       07264  2 00001 2 07265        TIX XOR040,2,1                                                   F2528950    
       07265  2 00001 1 07254 XOR040 TIX XOR030,1,1                                                   F2528960    
       07266  0 60100 0 07566        STO OR000                                                        F2528970    
       07267 -0 53400 4 07260        LXD XOR032,4                                                     F2528980    
       07270  0 02000 4 00001        TRA 1,4                                                          F2528990    
                                         *************************************************************F2529000    
                                         THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2529010    
                                         INSTRUCTION FOR EACH.  THE CALLER INDICATES THE FIRST CONSTANF2529020    
                                         BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2529030    
                                         OF INSTRUCTIONS IN INDEX REGISTER A.                         F2529040    
       07271 -0 63400 4 07336 LXC    SXD LXC19,4                                                      F2529050    
       07272  0 60100 0 05206        STO ERLXC                                                        F2529060    
       07273 -0 75400 1 00000        PXD 0,1                                                          F2529070    
       07274  0 77100 0 00022        ARS 18                                                           F2529080    
       07275  0 40000 0 05206        ADD ERLXC                                                        F2529090    
       07276  0 62100 0 07312        STA LXC10                                                        F2529100    
       07277  0 50000 0 05222        CLA LOCIND            TEST TO SEE IF                             F2529110    
       07300  0 10000 0 07310        TZE LXC08             THIS IS THE FIRST                          F2529120    
       07301  0 40200 0 05126        SUB L(1)              LXD COMPILED. IF SO,                       F2529130    
       07302  0 60100 0 05222        STO LOCIND            PLACE A IN                                 F2529140    
       07303 -0 53400 2 05230        LXD DOIND,2           DECREMENT                                  F2529150    
       07304  0 50000 2 01076        CLA DOTAGZ,2          OF LOCATION WORD                           F2529160    
       07305 -0 32000 0 05142        ANA DECMSK            FOR FIRST COMPILED                         F2529170    
       07306  0 60100 0 05176        STO CIL00             INSTRUCTION.                               F2529180    
       07307  0 02000 0 07312        TRA LXC10                                                        F2529190    
       07310  0 50000 0 05133 LXC08  CLA L(0)                                                         F2529200    
       07311  0 60100 0 05176        STO CIL00                                                        F2529210    
       07312  0 56000 1 00000 LXC10  LDQ 0,1               SKELETAL INSTRUCTION.                      F2529220    
       07313  0 76300 0 00000        LLS 0                                                            F2529230    
       07314 -0 76300 0 00022        LGL 18                                                           F2529240    
       07315 -0 60000 0 05177        STQ CIL01             COMPILE OP. WORD.                          F2529250    
       07316 -0 12000 0 07337        TMI LXC20                                                        F2529260    
       07317  0 62100 0 07320        STA LXC15             SYMBOL.ADDR, TYPE INSTRUCTION,             F2529270    
 A     07320  0 50000 0 00000 LXC15  CLA                                                              F2529280    
       07321  0 60100 0 05200        STO CIL02             SYMBOLIC ADDRESS.                          F2529290    
       07322  0 50000 0 05133        CLA L(0)              RELATIVE                                   F2529300    
       07323  0 60100 0 05201        STO CIL03             ADDRESS.                                   F2529310    
       07324 -0 50000 0 05200        CAL CIL02             TEST CIL02                                 F2529320    
       07325 -0 32000 0 05104        ANA 6ONES             WORD.                                      F2529330    
       07326  0 10000 0 07344        TZE LXC30             FIRST CHARACTER IS ZERO.                   F2529340    
       07327 -0 32000 0 05102        ANA BIT01                                                        F2529350    
       07330 -0 10000 0 07344        TNZ LXC30             FIRST CHARACTER ALPHABETIC.                F2529360    
       07331 -0 50000 0 05200        CAL CIL02             FIRST CHARACTER NUMBERIC,                  F2529370    
       07332  0 76700 0 00022        ALS 18                PLACE REIGHT HALF OF CIL02                 F2529380    
       07333  0 62200 0 05201        STD CIL03             IN CIL03, LEFT HALF                        F2529390    
       07334 -0 50000 0 05104        CAL 6ONES             IN CIL02.                                  F2529400    
       07335  0 32000 0 05200        ANS CIL02                                                        F2529410    
 D     07336 -3 00000 0 07344 LXC19  TXL LXC30,0           SHIF TYPE INSTRUCTION,                     F2529420    
       07337  0 76700 0 00022 LXC20  ALS 18                                                           F2529430    
       07340 -0 32000 0 05142        ANA DECMSK                                                       F2529440    
       07341  0 60100 0 05201        STO CIL03                                                        F2529450    
       07342  0 50000 0 05133        CLA L(0)                                                         F2529460    
       07343  0 60100 0 05200        STO CIL02                                                        F2529470    
       07344  0 07400 4 04345 LXC30  TSX CIT,4                                                        F2529480    
       07345  2 00001 1 07310        TIX LXC08,1,1         COUNT COMPILED INSTR. IN BLK.              F2529490    
       07346 -0 53400 4 07336        LXD LXC19,4                                                      F2529500    
       07347  0 02000 4 00001        TRA 1,4                                                          F2529510    
                                         *************************************************************F2529520    
       07350  0 00000 0 07406 KLX01      LXI00                                                        F2529530    
       07351  0 00000 0 07407 KLX01I     LXI00+1                                                      F2529540    
       07352  0 00000 0 07412 KLX02I     LXI05                                                        F2529550    
       07353  0 00000 0 07410 KLX02      LXI02                                                        F2529560    
       07354  0 00000 0 07424 KLX03      LXI16                                                        F2529570    
       07355  0 00000 0 07442 KLX05      LXI30                                                        F2529580    
       07356  0 00000 0 07416 KLX03I     LXI10                                                        F2529590    
       07357  0 00000 0 07434 KLX05I     LXI24                                                        F2529600    
       07360  0 00000 0 07473 K1AOR0     A1C00                                                        F2529610    
       07361  0 00000 0 07474 KIAOR0     A1C01                                                        F2529620    
       07362  0 00000 0 07477 K2AOR0     A1000                                                        F2529630    
       07363  0 00000 0 07500 K3AOR0     A1001                                                        F2529640    
       07364  0 00000 0 07501 KTX00      TXC00                                                        F2529650    
       07365  0 00000 0 07507            TXC08                                                        F2529660    
       07366  0 00000 0 07515            TXC18                                                        F2529670    
       07367  0 00000 0 07531 KTX04      TXC30                                                        F2529680    
       07370  0 00000 0 07532 KTX03      TXC31                                                        F2529690    
       07371  0 00000 0 07534 LTX040     TX040                                                        F2529700    
       07372  0 00000 0 07536 LTX042     TX042                                                        F2529710    
       07373  0 00000 0 07456 LXCI       XCI                                                          F2529720    
       07374  0 00000 0 07466 LXCI6      XCI6                                                         F2529730    
       07375  0 00000 0 07553 LXCIE      XCIE                                                         F2529740    
       07376  0 00000 0 07554 LXCIE1     XCIE+1                                                       F2529750    
       07377  0 00000 0 07563 LXCIEP     XCIEP                                                        F2529760    
       07400  0 00000 0 07564 LXCEIP     XCEIP                                                        F2529770    
       07401  0 00000 0 07552 XK         XKI                                                          F2529780    
       07402  0 00000 0 07452 K1BOR0     L(BIC)                                                       F2529790    
       07403  0 00000 0 07540 LX2CI      X2CI                                                         F2529800    
       07404  0 00000 0 07467 LXCI61     XCI6+1                                                       F2529810    
       07405  0 00000 0 07470 LXCI8      XCI8                                                         F2529820    
       07406  0 07603 2 34321 LXI00      14545,2,OR000+13  CLA                                        F2529830    
       07407  0 07620 6 26346            11494,6,OR000+26  STO                                        F2529840    
       07410  0 07567 2 34321 LXI02      14545,2,OR000+1   CLA                                        F2529850    
       07411  0 07620 6 26346            11494,6,OR000+26  STO                                        F2529860    
       07412  0 07567 4 32450 LXI05      13608,4,OR000+1   LDQ                                        F2529870    
       07413  0 07577 4 44770            18936,4,OR000+9   MPY                                        F2529880    
       07414 -2 00021 2 14362        TNX 6386,2,17         ALS 17                                     F2529890    
       07415  0 07620 6 26346            11494,6,OR000+26  STO                                        F2529900    
       07416  0 07572 4 32450 LXI10      13608,4,OR000+4   LDQ                                        F2529910    
       07417  0 07575 4 44770            18936,4,OR000+7   MPY                                        F2529920    
       07420 -2 00021 2 14362        TNX 6386,2,17         ALS 17                                     F2529930    
       07421  0 07575 6 26422            11538,6,OR000+7   SUB                                        F2529940    
       07422  0 07620 2 12424            5396,2,OR000+26   ADD                                        F2529950    
       07423  0 07620 6 26346            11494,6,OR000+26  STO                                        F2529960    
       07424  0 07572 4 32450 LXI16      13608,4,OR000+4   LDQ                                        F2529970    
       07425  0 07600 4 44770            18936,4,OR000+10  MPY                                        F2529980    
       07426 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2529990    
       07427  0 07575 4 44770            18936,4,OR000+7   MPY                                        F2530000    
       07430 -2 00021 2 14362        TNX 6386,2,17         ALS                                        F2530010    
       07431  0 07575 6 26422            11538,6,OR000+7   SUB                                        F2530020    
       07432  0 07620 2 12424            5396,2,OR000+26   ADD                                        F2530030    
       07433  0 07620 6 26346            11494,6,OR000+26  STO                                        F2530040    
       07434  0 07613 4 32450 LXI24      13608,4,OR000+21  L0Q                                        F2530050    
       07435  0 07616 4 44770            18936,4,OR000+24  MPY                                        F2530060    
       07436 -2 00021 2 14362        TNX 6386,2,17         ALS                                        F2530070    
       07437  0 07616 6 26422            11538,6,OR000+24  SUB                                        F2530080    
       07440  0 07620 2 12424            5396,2,OR000+26   ADD                                        F2530090    
       07441  0 07620 6 26346            11494,6,OR000+26  STO                                        F2530100    
       07442  0 07613 4 32450 LXI30      13608,4,OR000+21  LDQ                                        F2530110    
       07443  0 07601 4 44770            18936,4,OR000+11  MPY                                        F2530120    
       07444 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530130    
       07445  0 07616 4 44770            18936,4,OR000+24  MPY                                        F2530140    
       07446 -2 00021 2 14362        TNX 6386,2,17         ALS                                        F2530150    
       07447  0 07616 6 26422            11538,6,OR000+24  SUB                                        F2530160    
       07450  0 07620 2 12424            5396,2,OR000+26   ADD                                        F2530170    
       07451  0 07620 6 26346            11494,6,OR000+26  STO                                        F2530180    
       07452  0 07611 4 32450 L(BIC)     13608,4,OR000+19  LDQ                                        F2530190    
       07453  0 07566 4 44770            18936,4,OR000     MPY                                        F2530200    
       07454 -2 00021 2 14362        TNX 6386,2,17         ALS                                        F2530210    
       07455  0 07602 6 26346            11494,6,OR000+12  STO                                        F2530220    
       07456  0 07570 2 34321 XCI        14545,2,OR000+2   CLA                                        F2530230    
       07457  0 07567 6 26422            11538,6,OR000+1   SUB                                        F2530240    
       07460  0 07571 2 12424            5396,2,OR000+3    ADD                                        F2530250    
       07461 -2 00043 4 35162        TNX 14962,4,35        LRS                                        F2530260    
       07462  0 07571 2 46547            19815,2,OR000+3   DVP                                        F2530270    
       07463  0 07571 4 44770            18936,4,OR000+3   MPY                                        F2530280    
       07464 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530290    
       07465  0 07577 4 44770            18936,4,OR000+9   MPY                                        F2530300    
       07466 -2 00043 4 34362 XCI6   TNX 14578,4,35        LLS                                        F2530310    
       07467  0 07603 6 26422            11538,6,OR000+13  SUB                                        F2530320    
       07470  0 07605 6 26324 XCI8       11476,6,OR000+15  STD                                        F2530330    
       07471  0 07602 2 12424            5396,2,OR000+12   ADD                                        F2530340    
       07472  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530350    
       07473  0 07566 4 32450 A1C00      13608,4,OR000     LDQ                                        F2530360    
       07474  0 07611 4 44770 A1C01      18936,4,OR000+19  MPY                                        F2530370    
       07475 -2 00021 2 14362        TNX 6386,2,17         ALS                                        F2530380    
       07476  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530390    
       07477  0 07566 2 34321 A1000      14545,2,OR000     CLA                                        F2530400    
       07500  0 07604 6 26324 A1001      11476,6,OR000+14  STD                                        F2530410    
       07501  0 07570 2 34321 TXC00      14545,2,OR000+2   CLA                                        F2530420    
       07502  0 07567 6 26422            11538,6,OR000+1   SUB                                        F2530430    
       07503  0 07571 2 12424            5396,2,OR000+3    ADD                                        F2530470    
       07504 -2 00043 4 35162        TNX 14962,4,35        LRS                                        F2530450    
       07505  0 07571 2 46547            19815,2,OR000+3   DVP                                        F25F0460    
       07506  0 07571 4 44770            18936,4,OR000+3   MPY                                        F2530470    
       07507  0 07573 2 34321 TXC08      14545,2,OR000+5   CLA                                        F2530480    
       07510  0 07572 6 26422            11538,6,OR000+4   SUB                                        F2530490    
       07511  0 07574 2 12424            5396,2,OR000+6    ADD                                        F2530500    
       07512 -2 00043 4 35162        TNX 14962,4,35        LRS                                        F2530510    
       07513  0 07574 2 46547            19815,2,OR000+6   DVP                                        F2530520    
       07514  0 07574 4 44770            18936,4,OR000+6   MPY                                        F2530530    
       07515  0 07614 2 34321 TXC18      14545,2,OR000+22  CLA                                        F2530540    
       07516  0 07613 6 26422            11538,6,OR000+21  SUB                                        F2530550    
       07517  0 07615 2 12424            5396,2,OR000+23   ADD                                        F2530560    
       07520 -2 00043 4 35162        TNX 14962,4,35        LRS                                        F2530570    
       07521  0 07615 2 46547            19815,2,OR000+23  DVP                                        F2530580    
       07522  0 07615 4 44770            18936,4,OR000+23  MPY                                        F2530590    
       07523 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530600    
       07524  0 07575 4 44770            18936,4,OR000+7   MPY                                        F2530610    
       07525 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530620    
       07526  0 07576 4 44770            18936,4,OR000+8   MPY                                        F2530630    
       07527 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530640    
       07530  0 07601 4 44770            18936,4,OR000+11  MPY                                        F2530650    
       07531 -2 00043 4 34362 TXC30  TNX 14578,4,35        LLS                                        F2530660    
       07532  0 07621 2 12424 TXC31      5396,2,OR000+27   ADD                                        F2530670    
       07533  0 07603 6 26422            11538,6,OR000+13  SUB                                        F2530680    
       07534 -2 00022 4 35162 TX040  TNX 14962,4,18        LRS                                        F2530690    
       07535  0 07611 4 44770            18936,4,OR000+19  MPY                                        F2530700    
       07536 -2 00043 4 34362 TX042  TNX 14578,4,35        LLS                                        F2530710    
       07537  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530720    
       07540  0 07573 2 34321 X2CI       14545,2,OR000+5   CLA                                        F2530730    
       07541  0 07572 6 26422            11538,6,OR000+4   SUB                                        F2530740    
       07542  0 07574 2 12424            5396,2,OR000+6    ADD                                        F2530750    
       07543 -2 00043 4 35162        TNX 14962,4,35        LRS                                        F2530760    
       07544  0 07574 2 46547            19815,2,OR000+6   DVP                                        F2530770    
       07545  0 07574 4 44770            18936,4,OR000+6   MPY                                        F2530780    
       07546 -2 00022 4 35162        TNX 14962,4,18        LRS                                        F2530790    
       07547  0 07612 4 44770            18936,4,OR000+20  MPY                                        F2530800    
       07550 -2 00043 4 34362        TNX 14578,4,35        LLS                                        F2530810    
       07551  0 07603 6 26422            11538,6,OR000+13  SUB                                        F2530820    
       07552  0 07612 2 34321 XKI        14545,2,OR000+20  CLA                                        F2530830    
       07553 -2 00043 4 34362 XCIE   TNX 14578,4,35        LLS                                        F2530840    
       07554  0 07603 6 26422            11538,6,OR000+13  SUB                                        F2530850    
       07555  0 07605 6 26324            11476,6,OR000+15  STD                                        F2530860    
       07556  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530870    
       07557  0 07605 6 26324 XCI8P      11476,6,OR000+15  STD                                        F2530880    
       07560  0 07611 2 12424            5396,2,OR000+19   ADD                                        F2530890    
       07561  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530900    
       07562  0 00000 0 07557 LXCI8P     XCI8P                                                        F2530910    
       07563  0 07612 2 34321 XCIEP      14545,2,OR000+20  CLA                                        F2530920    
       07564  0 07605 6 26324 XCEIP      11476,6,OR000+15  STD                                        F2530930    
       07565  0 07604 6 26324            11476,6,OR000+14  STD                                        F2530940    
                                         *************************************************************F2530950    
                        07566  OR000 BSS 12                                                           F2530960    
 M     07602 +010000000001     OR012 OCT 010000000001                                                 F2530970    
       07603 +060000000003           OCT 060000000003                                                 F2530980    
                        07604  OR014 BSS 12                                                           F2530990    
 M     07620 +010000000003     OR026 OCT 010000000003      1)+3 SYMBOL.                               F2531000    
                                         *************************************************************F2531010    
                                                                                                      F2531020    
                                         *************************************************************F2531030    
                                         SYNONYMS                                                     F2531040    
                        01242 ZEKSUM SYN TGTG+100                                                     F2531050    
 M                      03650 TAG21  SYN TAG2+1                                                       F2531060    
 M                      03651 TAG22  SYN TAG2+2                                                       F2531070    
 M                      05256 RTXAC  SYN RTX                                                          F2531080    
 M                      05256 RTXAC  SYN AC                                                           F2531090    
                        05245 ERAOR0 SYN ERTX01                                                       F2531100    
                        05241 CPYWD1 SYN ER40                                                         F2531110    
                        05242 CPYWD2 SYN ER41                                                         F2531120    
 M                      05243 ERDRM1 SYN ARG                                                          F2531130    
 M                      05243 ERDRM1 SYN ARG                                                          F2531140    
                        05246 ERDRM  SYN ERTX02                                                       F2531150    
                        05202 ERAB   SYN ERTGA                                                        F2531160    
                        03636 ADTGA  SYN OADTGA+100                                                   F2531170    
                        03466 ADTGMX SYN ADTG+400                                                     F2531180    
                        01076 DOTAGZ SYN DOTAG+450                                                    F2531190    
 M                      07602 OR012  SYN OR000+12                                                     F2531200    
                        07603 OR013  SYN OR000+13                                                     F2531210    
                        07610 OR018  SYN OR000+18                                                     F2531220    
 M                      07620 OR026  SYN OR000+26                                                     F2531230    
                        02336 MXTGTG SYN TGTG+672                                                     F2531240    
                        02646 MXTGA  SYN OMXTGA+200                                                   F2531250    
                        00004  DIAG  EQU 4                                                            F2531260    
 A                      00000        END                                                              F2531270    
                              0OR012 07602,07602
                              0OR026 07620,07620
                              0RTXAC 05256,05256
                              0TAG21 03650,03650
                              0TAG22 03651,03651
                              ERDRM1 05243,05243
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    3127           0           0           0           0
 LIB       0           0           0           0           0
 COL    3127           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     3142                  
0NUMBER OF SYMBOLS,  DEF   679,DEFOP     0,UNDEF     0      
9            REM BLOCK SIX OF SECTION TWO.                                                
1                                        BLOCK SIX OF SECTION TWO.                                                
                                            MASTER RECORD CARD = FN053                                F2600010    
                                         DOFILE INVERSI0N ROUTINE--BLOCK 6                            F2600020    
                        00030        ORG 24                ORIGIN FOR DFI INSTRUCTIONS.               F2600030    
       00030  0 77200 0 00224 DFI01  REW 148               REWIND OUTPUT TAPE 4                       F2600040    
       00031  0 77200 0 00223        REW 147               AND INPUT TAPE 3                           F2600050    
       00032  0 76200 0 00224 DFI02  RDS 148               SPACE                                      F2600060    
       00033  0 70000 0 00163        CPY ERAS              OVER                                       F2600070    
       00034  0 02000 0 00032        TRA DFI02             FIRST FILE                                 F2600080    
       00035  0 02000 0 00037        TRA DFI03             OF OUTPUT TAPE                             F2600090    
       00036  0 07400 4 00004        TSX DIAG,4            FALSE END OF RECORD.                       F2600100    
       00037 -0 76000 0 00143 DFI03  MSE 99                TEST SENSE LIGHT 3 FOR EMPTY INPUT         F2600110    
       00040  0 02000 0 00044        TRA DFI05             NOT EMPTY                                  F2600120    
       00041  0 76000 0 00142        PSE 98                TURN ON SENSE LIGHT 2, EMPTY OUTPUT.       F2600130    
       00042  0 77000 0 00224 DFI04  WEF 148               WRITE END OF FILE ON OUTPUT TAPE.          F2600140    
       00043  0 02000 0 00154        TRA EXIT              EXIT FROM DFI ROUTINE.                     F2600150    
       00044  0 53400 1 00156 DFI05  LXA L(0),1            INITIALIZE TO BEGIN READING INTO N         F2600160    
       00045 -0 76000 0 00143        MSE 99                TURN OFF                                   F2600170    
       00046  0 76100 0 00000        NOP                   SENSE LIGHT 3                              F2600180    
       00047 -0 76000 0 00012        RTT                   TURN OFF                                   F2600190    
       00050  0 76100 0 00000        NOP                   TAPE CHECK INDICATOR                       F2600200    
       00051  0 53400 2 00157  DFI10 LXA L(5),2            INITIALIZE TAPE ERROR COUNTER              F2600210    
       00052 -0 63400 1 00163        SXD ERAS,1            SAVE INDEX 1 IN CAS OF REREAD              F2600220    
       00053  0 76200 0 00223 DFI11  RDS 147               PREPARE TO READ INPUT TAPE                 F2600230    
       00054  0 70000 1 00200 DFI12  CPY NOR,1             COPY FIRST OF FOUR WORDS                   F2600240    
       00055  0 02000 0 00060        TRA DFI13                                                        F2600250    
       00056  0 02000 0 00042        TRA DFI04             END OF FILE--GO TO EXIT                    F2600260    
       00057  0 02000 0 00111        TRA DFI20             END OF RECORD//GO TO REDUND TEST           F2600270    
       00060  0 70000 1 00201 DFI13  CPY NOR+1,1           COPY SECOND OF FOUR WORDS                  F2600280    
       00061  0 02000 0 00064        TRA DFI14                                                        F2600290    
       00062  0 07400 4 00004        TSX DIAG,4            FLASE END OF FILE.                         F2600300    
       00063  0 07400 4 00004        TSX DIAG,4            FALSE END OF RECORD.                       F2600310    
       00064  0 70000 1 00202 DFI14  CPY NOR+2,1           COPY THIRD OF FOUR WORDS                   F2600320    
       00065  0 02000 0 00070        TRA DFI15                                                        F2600330    
       00066  0 07400 4 00004        TSX DIAG,4            FLASE END OF FILE.                         F2600340    
       00067  0 07400 4 00004        TSX DIAG,4            FALSE END OF RECORD.                       F2600I50    
       00070  0 70000 1 00203 DFI15  CPY NOR+3,1           COPY FOURTH OF FOUR WORDS                  F2600360    
       00071  0 02000 0 00074        TRA DFI16                                                        F2600370    
       00072  0 07400 4 00004        TSX DIAG,4            FLASE END OF FILE.                         F2600380    
       00073  0 07400 4 00004        TSX DIAG,4            FALSE END OF RECORD.                       F2600390    
       00074  0 50000 1 00201 DFI16  CLA NOR+1,1                                                      F2600400    
       00075  0 10000 0 00122        TZE DFI30             2ND WORD ZERO MEANS END OF NEST            F2600410    
       00076  0 40200 0 00160        SUB ALLONE            2ND WORD ALL ONES                          F2600420    
       00077  0 10000 0 00107        TZE DFI19             MEANS BEGINNING OF BLOCK                   F2600430    
       00100 -0 76000 0 00143        MSE 99                WAS PREVIOUS FOUR WORDS BEG OF BLOCK       F2600440    
       00101  0 02000 0 00104        TRA DFI17             NO, LEAVE FIRST WORD PLUS                  F2600450    
       00102 -0 50000 0 00161        CAL L(M0)             MAKE SIGN OF                               F2600460    
       00103 -0 60200 1 00200        ORS NOR,1             FIRST WORD MINUS                           F2600470    
       00104  1 77774 1 00105 DFI17  TXI DFI18,1,-4        INDEX BY  4 FOR NEXT 4 WORDS               F2600480    
       00105  3 70300 1 00054 DFI18  TXH DFI12,1,-3904     TEST AND CONTINUE NEXT  4 WORDS            F2600490    
       00106  0 07400 4 00004        TSX DIAG,4            NOR BUFFER SIZE EXCEEDED.                  F2600500    
       00107  0 76000 0 00143 DFI19  PSE 99                TURN ON BEGIN OF BLOCK IND                 F2600510    
       00110  0 02000 0 00054        TRA DFI12             CONTINUE NEXT FOUR WORDS                   F2600520    
       00111  0 76600 0 00333 DFI20  WRS 219               DELAY UNTIL TAPE DISCONNECTS               F2600530    
       00112 -0 76000 0 00012        RTT                   TEST TAPE CHECK                            F2600540    
       00113  0 02000 0 00115        TRA DFI21             ERROR                                      F2600550    
       00114  0 02000 0 00051        TRA DFI10             IF NO ERROR RETRN TO READ NEXT RECORD      F2600560    
       00115  2 00001 2 00117 DFI21  TIX DFI22,2,1         REDUCE ERROR COUNTER BY 1                  F2600570    
       00116  0 07400 4 00004        TSX DIAG,4            TAPE CHECK. TRIED 5 TIMES.                 F2600580    
       00117  0 76400 0 00223 DFI22  BST 147               RESTORE TAPE POSITION                      F2600590    
       00120 -0 53400 1 00163        LXD ERAS,1            AND INDEX 1                                F2600600    
       00121  0 02000 0 00053        TRA DFI11             FOR ANOTHER TRY                            F2600610    
       00122  0 70000 0 00163 DFI30  CPY ERAS              CHECK THAT END OF RECORD                   F2600620    
       00123  0 07400 4 00004        TSX DIAG,4            HAS BEEN REACHED---END OF NEST.            F2600630    
       00124  0 07400 4 00004        TSX DIAG,4            RECORD IS ONLY FOUR WORDS.                 F2600640    
       00125  0 76600 0 00333        WRS 219               DELAY UNTIL TAPE DISCONNECTSP              F2600650    
       00126 -0 76000 0 00012        RTT                   TEST TAPE CHECK                            F2600660    
       00127  0 02000 0 00131        TRA DFI40             ERROR                                      F2600670    
       00130  0 02000 0 00133        TRA DFI50             PROCEED TO PROCESS THIS NEST               F2600680    
       00131  2 00001 2 00117 DFI40  TIX DFI22,2,1         REDUCE ERROR COUNT BY 1 AND RETRY          F2600690    
       00132  0 07400 4 00004        TSX DIAG,4            TAPE CHECK.  TRIED 5 TIMES.                F2600700    
       00133 -0 63400 1 00146 DFI50  SXD DFI55,1           STORE INDEX FOR END OF BLOCK TEST          F2600710    
       00134  1 00004 1 00135 DFI51  TXI DFI52,1,4                                                    F2600720    
       00135  0 50000 1 00200 DFI52  CLA NOR,1             SCAN UP EVERY FOURTH WORD                  F2600730    
       00136  0 12000 0 00134        TPL DFI51             TO TEST FOR,MINUS                          F2600740    
       00137 -0 63400 1 00163        SXD ERAS,1            SAVE FOR NEXT END OF BLOCK TEST            F2600750    
       00140  0 50200 1 00200        CLS NOR,1             RESTORE PLUS SIGN TO                       F2600760    
       00141  0 60100 1 00200        STO NOR,1             FIRST WORD OF BLOCK                        F2600770    
       00142  0 76600 0 00224 DFI53  WRS 148               SELECT OUTPUT TAPE                         F2600780    
       00143  0 53400 2 00162        LXA L(100),2          PREPARE FOR NEXT 100 WORDS                 F2600790    
       00144  0 70000 1 00200 DFI54  CPY NOR,1             WRITE BLOCK IN                             F2600800    
       00145  1 77777 1 00146        TXI DFI55,1,-1        FORWARD DIRECTION                          F2600810    
 D     00146 -3 00000 1 00151 DFI55  TXL DFI60,1           UNTIL END OF BLOCK                         F2600820    
       00147  2 00001 2 00144        TIX DFI54,2,1         IF WORDS IN RECORD                         F2600830    
       00150  0 02000 0 00142        TRA DFI53             START ANOTHER RECORDEACHED 0               F2600840    
       00151 -0 53400 1 00163 DFI60  LXD ERAS,1            IF INDEX 1 HAS NOT REACHED 0               F2600850    
       00152  3 00000 1 00133        TXH DFI50,1,0         PROCESS NEXT BLOCK                         F2600860    
       00153  0 02000 0 00044        TRA DFI05             RETURN TO PROCESS NEXT NEST                F2600870    
       00154  0 76200 0 00221  EXIT  RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.F2600880    
       00155  0 02000 0 00004        TRA 4                                                                        
                                           CONSTANTS AND ERAS STORAGE FOR DFI                         F2600900    
       00156  0 00000 0 00000 L(0)       0                                                            F2600910    
       00157  0 00000 0 00005  L(5)      5                                                            F2600920    
       00160 +377777777777    ALLONE OCT 377777777777                                                 F2600930    
       00161 -0 00000 0 00000 L(M0)  MZE 0 -                                                          F2600940    
       00162  0 00000 0 00144 L(100)     100                                                          F2600950    
                        00163 ERAS   BSS 1                                                            F2600960    
                        00200        ORG 128               ORIGIN FOR NOR                             F2600970    
                        00200 NOR    BSS 3904                                                         F2600980    
                        00004  DIAG  EQU 4                                                            F2600990    
 A                      00000        END                                                              F2601000    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     101           0           0           0           0
 LIB       0           0           0           0           0
 COL     101           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      110                  
0NUMBER OF SYMBOLS,  DEF    36,DEFOP     0,UNDEF     0      
9            ORG 3641                                                                     
1                       07071        ORG 3641                                                                     
                                           MASTER RECORD CARD = FN055                                             
                                         ROUTINE TO HANDLE ADDITIONAL SU8ROUTINES IF DESIRED          F3B12180    
       07071  2 00001 4 01306        TIX M13505,4,1        COMPARE M1D FOR-PRESENT SUBROUTINES        F3B12190    
       07072 -0 53400 4 02170        LXD L(0),4            COMPARE ADD IT, 0PEN SUBS, IN M1D2S        F3B12200    
       07073  0 34000 4 07122  0P1   CAS M1D2,4            WITH CURRENT NAME.                         F3B12210    
       07074  1 77777 4 07077        TXI 0P2,4,-1          NOT FOUND, GET NEXT M1D2 ENTRY             F3B12220    
       07075  0 02000 0 07101        TRA 0P3               FOUND                                      F3B12230    
       07076  1 77777 4 07077        TXI 0P2,4,-1          NOT FOUND, GET NEXT M1D2 ENTRY             F3B12240    
       07077  3 77776 4 07073  0P2   TXH 0P1,4,M1D2L       TEST FOR END OF M1D2.                      F3B12250    
       07100  0 07400 4 00004        TSX 4,4               CURRENT SUB NOT IN M1D2                    F3B12260    
       07101 -0 63400 4 02312  0P3   SXD CCELL,4           SAVE 1RC FOR LATER BRANCH OF SAME INST.    F3B12270    
       07102  1 77776 1 07103        TXI 0P3+2,1,-2        INDEX TO GET NEXT 4 WORD INSTR.            F3B12280    
       07103  0 07400 4 07136        TSX TEST,4            TEST FOR END OF CUR. COMPAIL REC.          F3B12290    
       07104 -0 53400 4 02312        LXD CCELL,4           GO TO THE COMPILER FOR PART, SUBROUTINE    F3B12300    
       07105  0 02000 4 07106  0P4   TRA 0P4+1,4           COMPAIL INSTRUCTION                        F3B12310    
       07106  0 02000 0 07170        TRA XDIM              OPEN SUB IS XDIM                           F3B12320    
       07107  0 02000 0 07171        TRA DIM               OPEN SUB IS DIM                            F3B12330    
 A     07110  0 00000 0 00000        HTR                   SPACE FOR BRANCHING T0 10 ADDITIONAL       F3B12340    
 A     07111  0 00000 0 00000        HTR                   OPEN SU8ROUTINES THE LIST OF TRANSFERS     F3B12350    
 A     07112  0 00000 0 00000        HTR                   TO ADDITIONAL 0PEN SUBS MUST BE ORDER-     F3B12360    
 A     07113  0 00000 0 00000        HTR                   ED IN THE SAME WAY AS THE ADDITIONAL 0PEN  F3B12370    
 A     07114  0 00000 0 00000        HTR                   SUB NAMES ARE ORDERED IN THE-DICTION-      F3B12380    
 A     07115  0 00000 0 00000        HTR                   ARY M1D2.                                  F3B12390    
 A     07116  0 00000 0 00000        HTR                                                              F3B12400    
 A     07117  0 00000 0 00000        HTR                                                              F3B12410    
 A     07120  0 00000 0 00000        HTR                                                              F3B12420    
 A     07121  0 00000 0 00000        HTR                                                              F3B12430    
                                         THE DICTIONARY FOR ADDITIONAL OPEN SUBROUTINES, AND          F3B12440    
                                         CONSTANTS USED IN THE DISCRIMINATION PROCEDURE.              F3B12450    
       07122  672431446060     M1D2  BCD 1XDIM             0PEN SUB XDIM                              F3B12460    
       07123  243144606060           BCD 1DIM              0PEN SUB DIM                               F3B12470    
 A     07124  0 00000 0 00000        HTR                   SPACE FOR ADDING 10 ADDITIONAL 0PEN SUBS.  F3B12480    
 A     07125  0 00000 0 00000        HTR                                                              F3B12490    
 A     07126  0 00000 0 00000        HTR                                                              F3B12500    
 A     07127  0 00000 0 00000        HTR                                                              F3B12510    
 A     07130  0 00000 0 00000        HTR                                                              F3B12520    
 A     07131  0 00000 0 00000        HTR                                                              F3B12530    
 A     07132  0 00000 0 00000        HTR                                                              F3B12540    
 A     07133  0 00000 0 00000        HTR                                                              F3B12550    
 A     07134  0 00000 0 00000        HTR                                                              F3B12560    
 A     07135  0 00000 0 00000        HTR                                                              F3B12570    
                                         FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES          F3B12580    
                                         1.TEST                                                       F3B12590    
       07136 -0 63400 4 07230  TEST  SXD C,4               SAVE LINKAGE                               F3B12600    
       07137 -0 75400 1 00000        PXD 0,1               COMPARE CURRENT VALUE OF IR1 WITH          F3B12610    
       07140  0 34000 0 02305        CAS M1ALWN            2S COMPL. OF WORD COUNT.                   F3B12620    
       07141  0 02000 4 00001        TRA 1,4                                     ..                   F3B12630    
       07142  0 07400 4 00341        TSX M10210,4        CURRENT RECORD EXHAUSTED                     F3B12640    
       07143  0 07400 4 00004        TSX 4,4               STOP. NO OF WDS. IN CUR REC EXCEEDS WD.    F3B12650    
                                                           COUNT                                      F3B12660    
       07144 -0 53400 4 07230        LXD C,4               RESTORE LINKAGE                            F3B12670    
       07145  0 02000 4 00001        TRA 1,4               RETURN                                     F3B12680    
                                         2 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED          F3B12690    
       07146  0 50000 1 02327 TEARG1 CLA AIL,1             TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR  F3B12700    
       07147  0 40200 0 02211        SUB ALLONE                                                       F3B12710    
       07150  0 10000 0 02155        TZE ERROR1            ALL ONES. GO TO PROPER STOP                F3B12720    
       07151  0 02000 4 00001        TRA 1,4               NOT ALL ONES. RETURN                       F3B12730    
                                         3 TEARG2. ROUTINE TO DET. IF TOO MANY ARGS. SPECIFIED        F3B12740    
       07152  0 50000 1 02327 TEARG2 CLA AIL,1             TEST FOR ALL ONES IN TST WORD OF           F3B12750    
       07153  0 02000 0 07235        TRA SUBPAT                                                       F3B12760    
       07154  0 50000 1 02331 ARGTAG CLA AIL+2,1           PLACE SUMB ADDRESS OF CURRENT ARG          F3B12770    
       07155  0 60100 0 02324        STO M1CW+2            IN M1CW+2                                  F3B12780    
       07156  0 50000 1 02332        CLA AIL+3,1           PLACE RELATIVE ADD. AND TAG OF CUR         F3B12790    
       07157  0 60100 0 02325        STO M1CW+3            RENT ARG. IN M1CW+3                        F3B12800    
       07160 -0 32000 0 02207        ANA TGMSK             TEST FOR TAG                               F3B12810    
       07161  0 10000 4 00001        TZE 1,4               NO TAG. RETURN                             F3B12820    
       07162 -0 63400 4 07230        SXD C,4               ARG TAGGED. SAVE LINKAGE                   F3B12830    
       07163 -0 76000 0 00143        MSE 99                TEST FOR END OF CHTAG TABLE                F3B12840    
       07164  0 07400 4 01016        TSX M12500,4          CHTAG TABLE NOT EXHAUSTED.                 F3B12850    
       07165  0 76000 0 00143        PSE 99                END OF CHTAG TABLE. RESTORE IN             F3B12860    
       07166 -0 53400 4 07230        LXD C,4               DICATOR AND LINKAGE                        F3B12870    
       07167  0 02000 4 00001        TRA 1,4               RETURN                                     F3B12880    
                                         THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIMAND XDIM   F3B12890    
       07170  0 76000 0 00144  XDIM  PSE 100               TURN ON SENSE LIGHT 100 FOR XDIM           F3B12900    
       07171  0 07400 4 07146  DIM   TSX TEARG1,4          TEST NO. OF ARGS SPECIFIED                 F3B12910    
       07172  0 07400 4 07154        TSX ARGTAG,4          TEST WHETHER FIRST ARG. IS TAGGED          F3B12920    
       07173  1 77774 1 07174        TXI O1,1,-4           INDEX COMPAIL RECORD TO BEG. OF NEXT REC.  F3B12930    
       07174  0 07400 4 07136  O1    TSX TEST,4            TEST FOR END OF CURRENT AIL RECORD         F3B12940    
       07175  0 07400 4 07152        TSX TEARG2,4          TEST NO. OF ARGS. SPECIFIED                F3B12950    
       07176  0 07400 4 00707        TSX CIT00,4           COMPILE FIRST INST. FOR DIM AND XDIM       F3B12960    
       07177  0 00000 0 02322        HTR M1CW              LOCATION (1ST WD)                          F3B12970    
       07200  0 00000 0 02215        HTR L(CLA)            CLA(2ND WD.)                               F3B12980    
       07201  0 00000 0 02324        HTR M1CW+2            FIRST ARG (3RD WD)                         F3B12990    
       07202  0 00000 0 02325        HTR M1CW+3            REL. ADD END TAG OF 1ST ARG (4TH WD)       F3B13000    
       07203  0 07400 4 07154        TSX ARGTAG,4          TEST WHETHER 2ND. ARG TAGGED ETC.          F3B13010    
       07204 -0 50000 0 07231        CAL L(SUB)            PREPARE OP. WD (2ND WD) OF 2ND AIL         F3B13020    
       07205 -0 76000 0 00144        MSE 100               ENTRY. OP. IS SUB. FOR XDIM                F3B13030    
       07206 -0 50000 0 07232        CAL L(FSB)            FSB FOR DIM                                F3B13040    
       07207  0 60200 0 02323        SLW M1CW+1                                                       F3B13050    
       07210  0 07400 4 00707        TSX CIT00,4           COMPILE 2ND INST FOR DIM OR XDIH           F3B13060    
       07211  0 00000 0 02170        HTR L(0)              0 (1ST WD)                                 F3B13070    
       07212  0 00000 0 02323        HTR M1CW+1            SUB(XDIH), FSB(DIM) (2ND. WD)              F3B13080    
       07213  0 00000 0 02324        HTR M1CW+2            2ND. ARG (3RD WD)                          F3B13090    
       07214  0 00000 0 02325        HTR M1CW+3            REL. ADD AND TAG OF 2ND ARG (4TH WD)       F3B13100    
       07215  0 07400 4 00707        TSX CIT00,4           COMPILE 3RD INST FOR DIM AND XDIM          F3B13110    
       07216  0 00000 0 02170        HTR L(0)              0(1ST WD)                                  F3B13120    
       07217  0 00000 0 07233        HTR L(TPL)            TPL(2ND WD)                                F3B13130    
       07220  0 00000 0 02245        HTR L(017)            0CT. 17 IN BITS S-5                        F3B13140    
       07221  0 00000 0 02177        HTR L(2D)             REL. ADD 2, TAG 0 (4TH WD)                 F3B13150    
       07222  0 07400 4 00707        TSX CIT00,4           COMPILE LAST INST FOR DIH AND XD)M         F3B13160    
       07223  0 00000 0 02170        HTR L(0)              0 (1STWD)                                  F3B13170    
       07224  0 00000 0 07234        HTR L(PXD)            PXD (2ND WD)                               F3B13180    
       07225  0 00000 0 02170        HTR L(0)              0 (3RD WD)                                 F3B13190    
       07226  0 00000 0 02170        HTR L(0)              0 (4TH WD)                                 F3B13200    
       07227  1 77774 1 00774        TXI RESUME,1,-4       INDEX CUR AIL RECORD TO BEGINNING          F3B13210    
                                                           OF NEXT 4WD INST AND RETURN TO MAIN PROG   F3B13220    
                                         CONSTANTS AND ERASIBLE STORAGE FOR FOUR                      F3B13230    
                                         SUBROUTINES USED IN COMPILING OPEN SUBROUTINES               F3B13240    
 A     07230  0 00000 0 00000  C     HTR                                                              F3B13250    
                        77776  M1D2L EQU -2                THE 2S COMPL OF THE LENGTH OF              F3B13260    
                                                           M1D2. THIS CARD HUST BE CHANGED WHEN       F3B13270    
                                                           ADDITIONS TO M1D2 ARE MADE                 F3B13280    
                        02170 L(0)   SYN 1144                                                         F3B13290    
                        01306 M13505 SYN 710                                                          F3B13291    
                        02312 CCELL  SYN 1226                                                         F3B13292    
                        02305 M1ALWN SYN 1221                                                         F3B13293    
                        00341 M10210 SYN 225                                                          F3B13294    
                        02327 AIL    SYN 1239                                                         F3B13295    
                        02211 ALLONE SYN 1161                                                         F3B13300    
                        02155 ERROR1 SYN 1133                                                         F3B13301    
                        02163 ERROR2 SYN 1139                                                         F3B13302    
                        02322 M1CW   SYN 1234                                                         F3B13303    
                        02207 TGMSK  SYN 1159                                                         F3B13304    
                        01016 M12500 SYN 526                                                          F3B13305    
                                         CONSTANS USED IN COMPILING THE OPEN SUBRTNS. XDIM AND DIM    F3B13310    
                        00707 CIT00  SYN 455                                                          F3B13320    
                        02215 L(CLA) SYN 1165                                                         F3B13330    
       07231  626422000000    L(SUB) BCD 1SUB000                                                      F3B13340    
       07232  266222000000    L(FSB) BCD 1FSB000                                                      F3B13350    
       07233  634743000000    L(TPL) BCD 1TPL000                                                      F3B13360    
       07234  476724000000    L(PXD) BCD 1PXD000                                                      F3B13370    
                        02245 L(017) SYN 1189                                                         F3B13380    
                        02177 L(2D)  SYN 1151                                                         F3B13390    
                        00774 RESUME SYN 508                                                          F3B13400    
       07235  0 40200 0 02211 SUBPAT SUB ALLONE                                                       F3B13401    
       07236  0 10000 4 00001        TZE 1,4                                                          F3B13402    
       07237  0 02000 0 02163        TRA ERROR2                                                       F3B13403    
 A     07240  0 00000 0 00000  R00M  HTR  SPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB. COMPILATION  F3B13414    
                        07071        END 3641                                                                     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     140           0           0           0           0
 LIB       0           0           0           0           0
 COL     140           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      149                  
0NUMBER OF SYMBOLS,  DEF    37,DEFOP     0,UNDEF     0      
9            REM    MASTER RECORD CARD = FN056                                            
1                                           MASTER RECORD CARD = FN056                                            
                                         THE FOLLOWING PROGRAM CONSTITUTES THE FIRST SECTION OF THE   F3B00010    
                                         MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE F3B00020    
                                         DO FILE OF COMPILED INSTRUCTIONS. IN ADDITION TO MERGING     F3B00030    
                                         THESE TWO FILES, IT INSERTS THE ARITHMETIC OPEN SUBROUTINES  F3B00040    
                                         IN THEIR CORRECT P0SITION IN THE FILE OF COMPILED INSTRUCT-  F3B00050    
                                         IONS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL  F3B00060    
                                         FILE INSTRUCTIONS                                            F3B00070    
                        00030        ORG 24                                                           F3B00080    
                                          TAPE P0SITIONING T0 READ FORTAG INTO CORE STORAGE           F3B00090    
       00030  0 53400 1 02164        LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00100    
       00031  0 76200 0 00222 M10000 RDS 146             READ BINARY TAPE 2 WITH FORTAG TBL           F3B00110    
       00032  0 70000 0 05737        CPY ERAS            THE 7TH RECORD OF 5TH FILE WHICH IS          F3B00120    
       00033  0 07400 2 00064        TSX M10043,2        THE TAPE TABLES HAVING 11 RECORDS.           F3B00130    
       00034  0 76100 0 00031        NOP M10000          TAPE 2 STANDS AT DOTAGB RECORD               F3B00140    
       00035 -0 53400 1 05737        LXD ERAS,1          COUNT FILE. TAPE 2 BACKSPACED NO.            F3B00150    
       00036  1 00007 1 00037        TXI M10010,1,7      RECORDS IN DOTAGB PLUS 7 T0 START FORTAG,    F3B00160    
       00037  0 76400 0 00222 M10010 BST 146                                                          F3B00170    
       00040  2 00001 1 00037        TIX M10010,1,1                                                   F3B00180    
                                         READ FORTAG INTO CORE STORAGE                                F3B00190    
       00041 -0 76000 0 00012        RTT                 TURN-OFF TAPE INDICATOR,                     F3B00200    
       00042  0 76100 0 00000        NOP                 IF 0O.                                       F3B00210    
       00043  0 53400 1 02164        LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00220    
       00044  0 76200 0 00222 M10020 RDS 146             READ TAPE 2 P0SITIONED AT FORTAG TBL         F3B00230    
       00045  0 70000 0 02326        CPY FORTAG-1        AND TEST FIRST WORD TO GUARANTEE             F3B00240    
       00046  0 50000 0 02326        CLA FORTAG-1        BEGINNING OF FORTAG TABLE.                   F3B00250    
       00047  0 40200 0 02174        SUB M1CON+4         FORTAG IS TABLE NO. 4.                       F3B00260    
       00050  0 10000 0 00052        TZE M10030          TABLE NO. IS FIRST WORD OF TAPE TABLES.      F3B00270    
       00051  0 07400 4 00004        TSX 4,4             WRONG TABLE. IS NOT FORTAG.                  F3B00280    
       00052  0 70000 0 02326 M10030 CPY FORTAG-1        READ 2ND FORTAG TABLE WORD AND TEST          F3B00290    
       00053  0 50000 0 02326        CLA FORTAG-1        THERE ARE FORTAG ENTRIES.                    F3B00300    
       00054  0 10000 0 00061        TZE M10040          FORTAG TABLE ENTRIES ARE 1 WORD.             F3B00310    
       00055  0 53400 2 02170        LXA M1CON,2         LOAD 0 INTO INDEX REG. B.                    F3B00320    
       00056  0 70000 2 02327 M10035 CPY FORTAG,2        READ 3RD AND SUCCEEDING WORDS                F3B00330    
       00057  1 77777 2 00056        TXI M10035,2,-1     OF FORTAG INTO CONSEC, LOCATIONS.            F3B00340    
       00060  0 07400 4 00004        TSX 4,4             EOF SKIP. FORTAG NOT LAST REC. OF FILE.      F3B00350    
       00061  0 07400 2 00064 M10040 TSX M10043,2        TEST IF TAPE READ CORRECTLY.                 F3B00360    
       00062  0 76100 0 00044        NOP M10020          RE-READ TAPE LOCATION.                       F3B00370    
       00063  0 02000 0 00075        TRA M10050          CONTINUE IN MAIN PROGRAM.                    F3B00380    
       00064  0 76600 0 00333 M10043 WRS 219             DELAY 704 FOR RTT TEST.                      F3B00390    
       00065 -0 76000 0 00012        RTT                                                              F3B00400    
       00066  0 02000 0 00070        TRA M10045          TO TAPE READ ERROR ROUTINE.                  F3B00410    
       00067  0 02000 2 00002        TRA 2,2             TAPE 2 READ CORRECTLY. RETURN MAIN RTN,      F3B00420    
       00070  0 50000 2 00001 M10045 CLA 1,2             TAPE READ ERROR RTN. INITIALIZE              F3B00430    
       00071  0 62100 0 00073        STA M10048          TIX ADDRESS TO RETURN TO PROPER              F3B00440    
       00072  0 76400 0 00222        BST 146             RE-READ TAPE LOCATION.                       F3B00450    
       00073  2 00001 1 00000 M10048 TIX 0,1,1                                                        F3B00460    
       00074  0 07400 4 00004        TSX 4,4             BINARY READ 5 TIMES UNSUCCESSFULLY           F3B00470    
                                         POSITIONING OF TAPE 2, TAPE 3, TAPE 4, TO READ COMPAIL       F3B00480    
                                         WRITE MERGE 1, AND READ DO FILE, RESP.                       F3B00490    
       00075  0 77200 0 00223 M10050 REW 147             REWIND TAPE 3 TO WRITE MERGE 1.              F3B00500    
       00076  0 77200 0 00224        REW 148             REWIND TAPE 4 FOR COMPDO FILE.               F3B00510    
       00077  0 76200 0 00224        RDS 148             SPACE OVER TRALEV THE 1ST FILE ON            F3B00520    
       00100  0 70000 0 05737 M10055 CPY ERAS            TAPE 4 T0 GET T0 FIRST RECORD                F3800530    
       00101  0 02000 0 00100        TRA M10055          OF COMPDO FILE.                              F3B00540    
       00102  0 02000 0 00104        TRA M10060          END OF TRALEV FILE.                          F3800550    
       00103  0 02000 0 00077        TRA M10055-1        SPACE 0VER NEXT TRALEV RECORD.               F3B00560    
       00104  0 53400 2 02170 M10060 LXA M1CON,2         LOAD 0 INTO IRB.                             F3B00570    
       00105  1 00021 2 00106        TXI M10060+2,2,17                                                F3B00580    
       00106  0 76400 0 00222        BST 146             BACKSPACE BINARY TAPE 2 BY                   F3B00590    
       00107  2 00001 2 00106        TIX M10060+2,2,1    13 RECORDS TO POSITIDN TAPE 2                F3B00600    
       00110  0 53400 1 02164        LXA M1ECTR,1        TO READ COMPAIL RECORD COUNT FILE.           F3B00610    
       00111  0 76200 0 00222 M10063 RDS 146                                                          F3B00620    
       00112  0 70000 0 05737        CPY ERAS                                                         F3B00630    
       00113  0 07400 2 00064        TSX M10043,2                                                     F3B00640    
       00114  0 76100 0 00111        NOP M10063          BACKSPACE TAPE 2 OVER COMPAIL                F3B00650    
       00115  0 53400 2 05737        LXA ERAS,2          RECORD COUNT, A EOF MARK, AND                F3B00660    
       00116  1 00002 2 00117        TXI M10070,2,2      OVER COMPAIL RECORDS                         F3B00670    
       00117  0 76400 0 00222 M10070 BST 146             TO POSITION TAPE 2 TO FIRST                  F3B00680    
       00120  2 00001 2 00117        TIX M10070,2,1      RECORD OF COMPAIL FILE.                      F3B00690    
       00121 -0 76000 0 00141        MSE 97              TURN-OFF SENSE LIGHTS 1,3, AND 4.            F3B00700    
       00122  0 76100 0 00000        NOP                 SENSE LIGHT 2 USED BY SEC. 2                 F3B00710    
       00123 -0 76000 0 00143        MSE 99              TO INDICATE TO SEC. 3 THERE                  F3B00720    
       00124  0 76100 0 00000        NOP                 ARE NO COMPDO INSTR IF                       F3B00730    
       00125 -0 76000 0 00144        MSE 100             LIGHT 2 IS ON.                               F3B00740    
       00126  0 76100 0 00000        NOP                                                              F3B00750    
                                         CHANGE TAG TABLE EDIT                                        F3B00760    
       00127  0 53400 4 02164 PEC00  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00770    
       00130  0 76200 0 00303 PEC01  RDS 195             UNEDITED CHTG TABLE ON L0G OR 3.             F3B00780    
       00131  0 46000 0 02170        LDA M1CON           0=DR ORG UCHTG - 2                           F3B00790    
       00132  0 70000 0 05737        CPY ERAS            TABLE LENGTH TO ERAS                         F3B00800    
       00133  0 70000 0 05740        CPY ERAS+1          CHECK SUM INTO ERAS+1.                       F3B00810    
       00134 -0 50000 0 05737        CAL ERAS            CHECK DRUM READ                              F3B00820    
       00135  0 40200 0 05740        SUB ERAS+1          TEST IF TABLE LENGTH READ                    F3B00830    
       00136  0 10000 0 00141        TZE PEC02           CORRECTLY FROM DRUM 3.                       F3B00840    
       00137  2 00001 4 00130        TIX PEC01,4,1       READ DRUM 5 TIMES IF LENGTH WRONG.           F3B00850    
       00140  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B00860    
       00141  0 53400 4 02164 PEC02  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00870    
       00142  0 50000 0 05737 PEC03  CLA ERAS            TEST IF THERE ARE ANY ENTRIES                F3B00880    
       00143  0 10000 0 00235        TZE PEC20           IN CHG TAG TABLE.                            F3B00890    
       00144  0 73400 3 00000        PAX 0,3             UNEDITED TABLE LENGTH TO IRA, IRB            F3B00900    
       00145  0 40200 0 00154        SUB PEC05           COMPUTE CORE ADDRESS INTO WHICH              F3B00910    
       00146  0 62100 0 00151        STA PEC04           CHG TAG TABLE ENTRIES TO BE                  F3B00920    
       00147  0 76200 0 00303        RDS 195             READ PLUS TABLE LENGTH FOR TIX OPER.         F3B00930    
       00150  0 46000 0 02172        LDA M1CON+2         DRUM READ ADDRESS OF 2.                      F3B00940    
       00151  0 70000 1 00000 PEC04  CPY 0,1             READ CHG TAG TABLE INTO UCHTG BLOCK          F3B00950    
       00152  2 00001 1 00151        TIX PEC04,1,1                                                    F3B00960    
       00153  0 53400 1 02170        LXA M1CON,1         LOAD 0 INTO IRA.                             F3B00970    
       00154 -0 50000 1 05263 PEC05  CAL UCHTG,1         UNEDITED CHG TAG TABLE ENTRIES CONSIST       F3B00980    
       00155  0 36100 1 05264        ACL UCHTG+1,1       OF 3 WORDS. TEST LOG SUM OF                  F3B00990    
       00156  0 40200 1 05265        SUB UCHTG+2,1       2 WORDS EQUALS DRUM CHECK                    F3B01000    
       00157  0 10000 0 00162        TZE PEC06           SUM FOR THE ENTRY.                           F3B01010    
       00160  2 00001 4 00142        TIX PEC03,4,1       DRUM READ ERROR. TRY 5 TIMES.                F3B01020    
       00161  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLT.            F3B01030    
       00162  1 77775 1 00163 PEC06  TXI PEC07,1,-3      MODIFY TABLE ADDR FOR NEXT 3 WORDS.          F3B01040    
       00163  2 00003 2 00154 PEC07  TIX PEC05,2,3       TEST FOR END CHG TAG BLOCK                   F3B01050    
                                         BEGIN EDIT OF UCHTG                                          F3B01060    
       00164  0 53400 3 02170 PEC10  LXA M1CON,3         LOAD 0 INTO IRA, IRB                         F3B01070    
       00165  0 50000 0 05740        CLA ERAS+1          PUT UCHTG TABLE LENGTH IN ADDRESS AND        F3B01080    
       00166 -0 50100 0 02326        ORA FORTAG-1        FORTAG TABLE LENGTH IN DECREMENT             F3B01090    
       00167  0 76000 0 00006        COM 0               PORTIONS OF ACCUM.                           F3B01100    
       00170  0 40000 0 02212        ADD M1CON+18        OBTAIN 25 COMP OF FORTAG                     F3B01110    
       00171  0 62200 0 00213        STD PEC16           LENGTH AND UCHTG LENGTH AND                  F3B01120    
       00172  0 76700 0 00022        ALS 18              STORE IN DEC OF TEST INST.                   F3B01130    
       00173  0 62200 0 00211        STD PEC14                                                        F3B01140    
       00174  0 50000 1 02327 PEC11  CLA FORTAG,1        SUCCESSIVE DUPLICATES IN                     F3B01150    
       00175  0 34000 1 02330        CAS FORTAG+1,1      FORTAG TABLE NOT COMPARED TO                 F3B01160    
       00176  0 02000 0 00200        TRA PEC12           UCHTG TABLE ENTRIES.                         F3801170    
       00177  1 77777 1 00174        TXI PEC11,1,-1      IRA KEEPS TRACK OF FORTAG ENTRIES.           F3B01180    
       00200  0 76700 0 00022 PEC12  ALS 18              IRC KEEPS TRACK OF UCHTG ENTRIES.            F3B01190    
       00201  0 60100 0 05737        STO ERAS            MOVE TAG OF CURRENT FORTAG ENTRY             F3B01200    
       00202  0 53400 4 02170        LXA M1CON,4         INTO DECREMENT AND COMPARE WITH              F3B01210    
       00203  0 50000 4 05264 PEC13  CLA UCHTG+1,4       TAG1 IN DECREMENT OF UCHTG                   F3B01220    
       00204 -0 32000 0 02205        ANA M1CON+13        ENTRIES. IF TAGS ARE EQUAL,                  F3B01230    
       00205  0 34000 0 05737        CAS ERAS            TEST FORTAG INTERNAL                         F3B01240    
       00206  1 77775 4 00211        TXI PEC14,4,-3      FORMULA LIES WITHIN RANGE                    F3B01250    
       00207  0 02000 0 00243        TRA PEC30           GIVEN IN FIRST WORD                          F3B01260    
       00210  1 77775 4 00211        TXI PEC14,4,-3      OF UCHTG ENTRY.                              F3B01270    
 D     00211  3 00000 4 00203 PEC14  TXH PEC13,4         2S COMP OF UCHTG LENGTH IN DECREMENT.        F3B01280    
       00212  1 77777 1 00213 PEC15  TXI PEC16,1,-1      END OF UCHTG TABLE.                          F3B01290    
 D     00213  3 00000 1 00174 PEC16  TXH PEC11,1         2S COMP OF FORTAG LENGTH IN DECREMENT.       F3B01300    
                                         END OF EDIT, COMPUTE CHTGE2                                  F3B01310    
       00214 -0 75400 2 00000 PEC17  PXD 0,2             END OF FORTAG TABLE.                         F3B01320    
       00215  0 60100 0 02274        STO CHTGL           SAVE VALUE OF IRB FROM                       F3B01330    
       00216  0 50000 0 02170        CLA M1CON           EDIT CHG TAG TABLE ROUTINE                   F3B01340    
       00217  0 60100 0 02275        STO CHTGE1          AS TABLE LENGTH CONTROL                      F3B01350    
       00220  0 53400 4 02170        LXA M1CON,4         WORD FOR CHANGE TAG TABLE                    F3B01360    
       00221  0 50000 4 05741        CLA CHTG,4          SEARCH ROUTINE AT M12500.                    F3B01370    
       00222  0 60100 0 02277        STO CHTGFN          CALCULATE NUMBER OF ENTRIES                  F3B01380    
       00223  1 77776 4 00224 PEC18  TXI PEC18+1,4,-2    IN EDITED CHG TAG TABLE WITH                 F3B01390    
       00224 -0 75400 4 00000        PXD 0,4             SAME INTERNAL FORMULA                        F3B01400    
       00225  0 40200 0 02274        SUB CHTGL           NUMBER AND RECORD IN                         F3B01410    
       00226  0 10000 0 00232        TZE PEC19           CONTR0L WORDS CHTGE1 AND CHTGE2              F3B01420    
       00227  0 50000 4 05741        CLA CHTG,4          TO PREVENT SEARCHING ENTIRE                  F3B01430    
       00230  0 40200 0 02277        SUB CHTGFN          EDITED CHG TAG TABLE IN                      F3B01440    
       00231  0 10000 0 00223        TZE PEC18           SEARCH AT M12500.                            F3B01450    
       00232 -0 75400 4 00000 PEC19  PXD 0,4                                                          F3B01460    
       00233  0 60100 0 02276        STO CHTGE2                                                       F3B01470    
       00234  0 02000 0 00271        TRA RSTO00                                                       F3B01480    
                                         ROUTINE FOR EMPTY UCHTG TABLE                                F3B01490    
       00235  0 50000 0 02170 PEC20  CLA M1CON           PLACE ZEROS INTO 3 CONTROL                   F3B01500    
       00236  0 60100 0 02274        STO CHTGL           WORDS FOR CHANGE TAG TABLE SEARCH            F3B01510    
       00237  0 60100 0 02275        STO CHTGE1          ROUTINE TO INDICATE NO ENTRIES               F3801520    
       00240  0 60100 0 02276        STO CHTGE2          IN EDITED CHG TAG TABLE.                     F3801530    
       00241  0 76000 0 00143        PSE 99              SENSE LIGHT 3 TURNED ON TO INDICATE          F3B01540    
       00242  0 02000 0 00271        TRA RSTO00          NO ENTRIES IN EDITED CHG TAG TABLE           F3B01550    
                                         SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG         F3B01560    
       00243  0 50000 1 02327 PEC30  CLA FORTAG,1        TAG OF FORTAG ENTRY EQUAL                    F3B01570    
       00244 -0 32000 0 02205        ANA M1CON+13        TO TAG1 OF UCHTG ENTRY.                      F3B01580    
       00245  0 60100 0 02273        STO COMBOX          TEST FORTAG INTERNAL FORMULA                 F3B01590    
       00246  0 50000 4 05263        CLA UCHTG,4         NUMBER LIES WITHIN RANGE                     F3B01600    
       00247 -0 32000 0 02205        ANA M1CON+13        GIVEN IN FIRST WORD OF UCHTG                 F3B01610    
       00250  0 34000 0 02273        CAS COMBOX          ENTRY. IF RANGE CONDITION IS                 F3B01620    
       00251  1 77775 4 00211        TXI PEC14,4,-3      SATISFIED, PRODUCE ENTRY                     F3B01630    
       00252  1 77775 4 00211        TXI PEC14,4,-3      FOR EDITED CHG TAG TABLE.                    F3B01640    
       00253  0 50000 4 05263        CLA UCHTG,4         EDITED CHG TAG ENTRY CONSISTS                F3B01650    
       00254  0 76700 0 00026        ALS 22              OF 2 WORDS. FIRST WORD HAS                   F3B01660    
       00255  0 77100 0 00004        ARS 4               INTERNAL FORMULA NUMBER                      F3B01670    
       00256  0 34000 0 02273        CAS COMBOX          IN DECREMENT AND ZEROS IN                    F3B01680    
       00257  0 02000 0 00262        TRA PEC31           ADDRESS. SECOND WORD HAS                     F3B01690    
       00260  0 02000 0 00262        TRA PEC31           TAG1 IN DECREMENT AND TAG2                   F3B01700    
       00261  1 77775 4 00211        TXI PEC14,4,-3      IN ADDRESS TAKEN FROM 2ND                    F3801710    
       00262  0 50000 0 02273 PEC31  CLA COMBOX          WORD OF UCHTG ENTRY. CONTINUE                F3B01720    
       00263  0 60100 2 05741        STO CHTG,2          WITH FORTAG AND UCHTG TAG                    F3B01730    
       00264  0 50000 4 05264        CLA UCHTG+1,4       COMPARIS0N LOOP UNTIL FORTAG                 F3B01740    
       00265  0 60100 2 05742        STO CHTG+1,2        TABLE EXHAUSTED.                             F3B01750    
       00266  1 77776 2 00267        TXI PEC32,2,-2                                                   F3B01760    
       00267  3 76646 2 00212 PEC32  TXH PEC15,2,-602    CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS       F3B01770    
       00270  0 07400 4 00004        TSX 4,4             CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS.      F3B01780    
                                         SXTX TABLE READ ROUTINE                                      F3B01790    
       00271 -0 76000 0 00142 RSTO00 MSE 98              TEST IF DO FILE EMPTY.                       F3B01800    
       00272  0 02000 0 00274        TRA RSTO05-1        SENSE LIGHT 2 ON INDICATES                   F3801810    
       00273  0 02000 0 00340        TRA M10200          NO SXTX ENTRIES.                             F3B01820    
       00274  0 53400 4 02164        LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B01830    
       00275  0 76200 0 00301 RSTO05 RDS 193             SXDTX TABLE 0N LOGICAL DRUM 1,               F3B01840    
       00276  0 46000 0 02213        LDA M1CON+19        STARTING AT LOCATION 202                     F3B01850    
       00277  0 70000 0 05737        CPY ERAS            1ST WORD IS ORIGIN + 2+ TAB LENGTH.          F3801860    
       00300  0 70000 0 05740        CPY ERAS+1          2ND DR WD IS CK SUM FOR 1ST WD.              F3801870    
       00301 -0 50000 0 05737        CAL ERAS            SXDTX TABLE ENTRY HAS 3 WORDS.               F3801880    
       00302  0 40200 0 05740        SUB ERAS+1          THIRD WORD IS CHECK SUM.                     F3B01890    
       00303  0 10000 0 00306        TZE RSTO20          TEST THAT FIRST 2 WORDS OFF                  F3801900    
       00304  2 00001 4 00275        TIX RSTO05,4,1      DRUM READ CORRECTLY.                         F3801910    
       00305  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B01920    
       00306  0 53400 4 02164 RSTO20 LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR              F3801930    
       00307  0 50000 0 05737 RSTO21 CLA ERAS            SUBTRACT ORIGIN+2 FROM FIRST                 F3B01040    
       00310  0 40200 0 02214        SUB M1CON+20        WORD TO GET SXDTX TABLE LENGTH.              F3801950    
       00311 -0 10000 0 00314        TNZ RSTO30                                                       F3801960    
       00312  0 60100 0 02300        STO SXTXL           STORE 0 AS SXDTX LENGTH IF NO                F3801970    
       00313  0 02000 0 00340        TRA M10200          ENTRIES AND GO TO READ AIL RTN.              F3801980    
       00314  0 60100 0 02300 RSTO30 STO SXTXL           STORE SXDTX LENGTH AND LOAD                  F3B01990    
       00315  0 73400 3 00000        PAX 0,3             SXDTX LENGTH INTO IRA, IRB.                  F3802000    
       00316  0 40200 0 00327        SUB RSTO40+3        CALC. ADDRESS TO READ IN SXTX TABLE.         F3802010    
       00317  0 62100 0 00324        STA RSTO40          INITIAL WORD OF TABLE IS                     F3B02020    
       00320  0 62100 0 00466        STA M10305          FORTAG + 300. INITIALIZE                     F3802030    
       00321  0 62100 0 00474        STA M10310+1        ADDRESSES FOR SXTX TABLE SEARCH.             F3802040    
       00322  0 76200 0 00301        RDS 193             READ SXTX ENTRIES FROM                       F3802050    
       00323  0 46000 0 02214        LDA M1CON+20        DRUM 1, LOC. 204.                            F3B02060    
       00324  0 70000 2 00000 RSTO40 CPY 0,2             CPY LOOP                                     F3B02070    
       00325  2 00001 2 00324        TIX RSTO40,2,1      SXTX TABLE LENGTH IN IRB.                    F3802080    
       00326  0 53400 2 02170        LXA M1CON,2                                                      F3B02090    
       00327 -0 50000 2 03003        CAL SXTX,2          TEST LOGICAL SUM OF 1ST TWO                  F3802100    
       00330  0 36100 2 03004        ACL SXTX+1,2        WORDS EQUAL CHECK SUM IN 3RD                 F3802110    
       00331  0 40200 2 03005        SUB SXTX+2,2        WORD FOR EACH SXTX ENTRY.                    F3802120    
       00332  0 10000 0 00335        TZE RSTO60          PROGRAM AUT0MATICALLY TRIES                  F3B02130    
       00333  2 00001 4 00307        TIX RSTO21,4,1      RE-READING DRUM 3 TIMES IF ERROR.            F3802140    
       00334  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B02150    
       00335  1 77775 2 00336 RSTO60 TXI RSTO60+1,2,-3                                                F3B02160    
       00336  2 00003 1 00327        TIX RSTO40+3,1,3    SXTX TABLE LENGTH IN 1RA,                    F3B02170    
       00337  0 02000 0 00340        TRA M10200          SXTX TABLE IN CORES SUCCESSFULLY.            F3B02180    
                                         READ AIL, READ DO ROUTINES                                   F3B02190    
       00340  0 53400 4 02170 M10200 LXA M1CON,4         0 IN IRC WHEN SKIPPING CL0SED SRTNS.         F3B02200    
       00341  0 50000 0 02171 M10210 CLA M1CON+1         STORE 1 IN M1TRC, TP 2.                      F3B02210    
       00342  0 60100 0 02306        STO M1TRC           READ ERROR COUNTER.                          F3B02220    
       00343  0 76200 0 00222 M10220 RDS 146             READ 1 RECORD OF AIL, THE 2ND                F3B02230    
       00344  0 53400 1 02170        LXA M1CON,1         FILE ON TP 2 ALREADY POSITIONED.             F3B02240    
       00345  0 70000 1 02327 M10230 CPY AIL,1           AIL REC. READ OVER FORTAG FILE.              F3B02250    
       00346  1 77777 1 00345        TXI M10230,1,-1     IRA GIVES POSITION IN AIL RECORD.            F3B02260    
       00347  0 02000 0 00521        TRA M10800          END OF AIL FILE.                             F3B02270    
       00350  0 76600 0 00333        WRS 219             END OF AIL RECORD.                           F3B02280    
       00351 -0 76000 0 00012        RTT                                                              F3B02290    
       00352  0 02000 0 00501        TRA M10700          REDUNDANCY WHEN READING TP 2.                F3B02300    
       00353 -0 63400 1 02305 M10240 SXD M1ALWN,1        STORE 2S COMPL AIL WORD COUNT                F3B02310    
       00354  0 53400 1 02170        LXA M1CON,1         IN CURRENT AIL REC, USUALLY 100              F3B02320    
       00355 -0 75400 4 00000        PXD 0,4             RD RTN ENTRY VIA TSX                         F3B02330    
       00356  0 10000 0 00360        TZE PAT1            ROUTINE TO SKIP OVER FORTRAN FUNCTIONS       F3B02340    
       00357  0 02000 4 00002 RET1   TRA 2,4             IRC VALUE SET BY TSX RETURN F FCN TEST       F3B02350    
       00360 -0 50000 1 02327 PAT1   CAL AIL,1           A FORTRAN FCN, A CLOSED SUBRTN,              F3B02360    
       00361 -0 32000 1 02330        ANA AIL+1,1         IS IDENTIFIED BY 4 WORDS                     F3B02370    
       00362 -0 32000 1 02331        ANA AIL+2,1         FILLED WITH 1 BITS.                          F3B02380    
       00363 -0 32000 1 02332        ANA AIL+3,1         TEST IF AIL ENTRY IS ALL 1 BITS,             F3B02390    
       00364  0 60200 0 05737        SLW ERAS            INDICATES SUCCEEDING ENTRIES                 F3B02400    
       00365  0 50000 0 05737        CLA ERAS            BEL0NG T0 A FORTRAN FCN AND                  F3B02410    
       00366  0 40200 0 02211        SUB M1CON+17        ARE SKIPPED OVER HERE.                       F3B02420    
       00367 -0 10000 0 00410        TNZ PAT5            AIL ENTRY NOT A FORTRAN FCN.                 F3B02430    
       00370  0 50000 0 02176        CLA M1CON+6         AIL ENTRY IS A FORTRAN FCN.                  F3B02770    
       00371  0 62200 0 00411        STD PAT5+1          STORE 1 IN DECRE. F FCN EXISTS.              F3B02450    
       00372  1 77774 1 00420        TXI OUT34,1,-4      TO TEST IF LAST AIL INSTR OF BUFFER.         F3B02460    
       00373 -0 75400 1 00000 PAT2   PXD 0,1             COMPARE NO. CURRENT WORD OF                  F3B02470    
       00374  0 34000 0 02305        CAS M1ALWN          AIL REC WITH AIL REC COUNT                   F3B02480    
       00375  0 02000 0 00400        TRA PAT3            TO TEST IF LAST INSTR IN REC.                F3B02490    
       00376  0 07400 4 00341        TSX M10210,4        READ NEXT AIL RECORD.                        F3B02500    
       00377  0 07400 4 00004        TSX 4,4             WD COUNT-NOT EQUAL TO REC COUNT              F3B02510    
       00400  0 50000 1 02327 PAT3   CLA AIL,1           TEST IF 0PEN SUBRTN END,                     F3B02520    
       00401 -0 10000 0 00403        TNZ PAT4            BY 1S IN FIRST WORD OF ENTRY.                F3B02530    
       00402  1 77774 1 00373        TXI PAT2,1,-4       0S IN IST WORD INDICATES F FCN ENTRY         F3B02540    
       00403  0 40200 0 02211 PAT4   SUB M1CON+17        -377777777777.                               F3B02550    
       00404 -0 10000 0 00410        TNZ PAT5            IST DESIRED AIL ENTRY FOUND                  F3B02560    
       00405 -0 50000 1 02327        CAL AIL,1           TEST IF CURRENT ENTRY                        F3B02570    
       00406 -0 32000 1 02330        ANA AIL+1,1         AN OPEN SUBRTN END OR                        F3B02580    
       00407  0 02000 0 00412        TRA OUT24           ANOTHER FORTRAN FCN.                         F3B02590    
       00410  0 53400 4 02170 PAT5   LXA M1CON,4                                                      F3B02600    
 TD    00411 -3 00000 0 00426        TXL M10250          UNCON. TR TO READ IN DO RECORD.              F3B02610    
       00412 -0 32000 1 02331 OUT24  ANA AIL+2,1         CONTINUATION OF TEST IF                      F3B02620    
       00413 -0 32000 1 02332        ANA AIL+3,1         CURRENT ENTRY F FCN OR                       F3B02630    
       00414  0 76000 0 00006        COM                 OPEN SUBRTN ENTRY.                           F3B02640    
       00415 -0 32000 0 02211        ANA M1CON+17        -377777777777.                               F3B02650    
       00416  0 10000 0 00372        TZE PAT2-1          ENTRY INDICATES F FCN.                       F3B02660    
       00417  1 77774 1 00373        TXI PAT2,1,-4       OPEN SUBRTN END.                             F3B02670    
       00420 -0 75400 1 00000 OUT34  PXD 0,1             COMPARE NO. CURRENT WORD OF                  F3B02680    
       00421  0 34000 0 02305        CAS M1ALWN          AIL REC WITH AIL REC COUNT                   F3B02690    
       00422  0 02000 0 00425        TRA OUT43           TO TEST IF LAST INSTR IN RECORD.             F3B02700    
       00423  0 07400 4 00341 OUT41  TSX M10210,4        READ NEXT AIL RECORD.                        F3B02710    
       00424  0 07400 4 00004        TSX 4,4             WORD COUNT EXCEEDS TOTAL COUNT IN REC.       F3B02720    
       00425  1 77774 1 00373 OUT43  TXI PAT2,1,-4       ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE       F3B02730    
       00426  0 50000 0 02171 M10250 CLA M1CON+1         STORE 1 IN M1TRC, TP 2                       F3B02740    
       00427  0 60100 0 02306        STO M1TRC           READ ERROR COUNTER.                          F3B02750    
       00430  0 76200 0 00224 M10260 RDS 148             READ 1 RECORD OF DO, THE 1ST                 F3B02760    
       00431  0 53400 2 02170        LXA M1CON,2         FILE ON TP 2 ALREADY POSITIONED.             F3B02770    
       00432  0 70000 2 02473 M10270 CPY DO,2            DO REC. READ 100 WDS BEYOND AIL.             F3B02780    
       00433  1 77777 2 00432        TXI M10270,2,-1     IRB GIVES P0SITION IN DO RECORD.             F3B02790    
       00434  0 02000 0 00531        TRA M10850          TO END OF DO FILE RTN.                       F3B02800    
       00435  0 76600 0 00333        WRS 219             TO END OF DO RECORD RTN.                     F3B02810    
       00436 -0 76000 0 00012        RTT                 IF DO FILE EMPTY, NO SXTX TABLE MADE.        F3B02820    
       00437  0 02000 0 00511        TRA M10750          REDUNDANCY WHEN READING TP 2.                F3B02830    
       00440 -0 63400 2 02304        SXD M1DOWN,2        STORE 2S COMPL DO WORD COUNT.                F3B02840    
       00441  0 50000 0 02300        CLA SXTXL           TEST IF SXDTX TABLE EMPTY                    F3B02850    
       00442 -0 10000 0 00445        TNZ M10285-2        FROM STORED TABLE LENGTH.                    F3B02860    
       00443  0 53400 2 02170        LXA M1CON,2         NO SXTX ENTRIES, GO TO AIL AND DO            F3B02870    
       00444  0 02000 0 00454        TRA M10290          COMPILATION ROUTINES.                        F3B02880    
       00445 -0 63400 4 02302        SXD CBOX,4          SAVE IRC FOR TSX TEST                        F3B02890    
       00446  1 00004 2 00447        TXI M10285,2,4      ADD 4 IRB GET 1ST WD LAST DO INSTR.          F3B02900    
       00447  0 50000 2 02474 M10285 CLA DO+1,2          TEST CURRENT DO INST AN SXD                  F3B02910    
       00450  0 40200 0 02246        SUB M1ABC+25        BY EXAMINING 2ND WORD OF INSTR.              F3B02920    
       00451  0 10000 0 00463        TZE M10300          CURRENT INSTR IS SXD.                        F3B02930    
       00452  3 00000 2 00446        TXH M10285-1,2,0    IRB ZERO HEANS ALL DO ENTRIES                F3B02940    
       00453 -0 53400 4 02302        LXD CBOX,4          IN BLOCK EXAMINED FOR SXD.                   F3B02950    
       00454 -0 75400 4 00000 M10290 PXD 0,4             IRC NOT ZERO AFTER 1ST DO REC                F3B02960    
       00455  0 10000 0 00457        TZE M10295          IN CORES. IRC PERMITS RE-ENTRY               F3B02970    
       00456  0 02000 4 00002        TRA 2,4             VIA TSX TO DO + AIL CMP RTN                  F3B02980    
       00457 -0 76000 0 00141 M10295 MSE 97              TEST IF END AIL FILE.                        F3B02990    
       00460  0 02000 0 00626        TRA M11010          TO COMPARE AIL + DO FMLA NOS.                F3B03000    
       00461  0 76000 0 00141        PSE 97              SENSE LIGHT 1 ON IF AIL EOF.                 F3B03010    
       00462  0 02000 0 00636        TRA M11030          TO COMPILE DO INSTR.                         F3B03020    
       00463  0 50000 2 02475 M10300 CLA DO+2,2          SEARCH SXTX TABLE FOR ENTRY                  F3B03030    
       00464  0 60100 0 02301        STO SXLOC           EQUAL TO ADDR PORTION GIVEN IN               F3B03040    
       00465  0 53400 4 02300        LXA SXTXL,4         3RD WD CURRENT SXD DO INSTR.                 F3B03050    
       00466  0 50000 4 00000 M10305 CLA 0,4             ADDR SXTX ORGIN PLUS LENGTH                  F3B03060    
       00467  0 40200 0 02301        SUB SXLOC                                                        F3B03070    
       00470  0 10000 0 00473        TZE M10310          SXTX ENTRY CORR TO SXD FOUND.                F3B03080    
       00471  2 00003 4 00466        TIX M10305,4,3                                                   F3B03090    
       00472  0 02000 0 00452        TRA M10285+3        NO SXTX ENTRY CORR TO SXD FOUND.             F3B03100    
       00473  2 00001 4 00474 M10310 TIX M10310+1,4,1    ROUTINE PUT 2ND WORD SXTX                    F3B03110    
       00474  0 50000 4 00000        CLA 0,4             TABLE ENTRY INTO ADDRESS WD                  F3B03120    
       00475  0 60100 2 02475        STO DO+2,2          CURRENT SXD DO INSTR.                        F3B03130    
       00476  0 50000 0 02170        CLA M1CON           CHANGE SXD FMLA NO. TO                       F3B03140    
       00477  0 60100 2 02473        STO DO,2            ZEROS IN DO RECORD BUFFER.                   F3B03150    
       00500  0 02000 0 00452        TRA M10285+3        TO CONTINUE SXD SEARCH OF DO REC.            F3B03160    
                                         ERROR ROUTINES, END OF FILE ROUTINES                         F3B03170    
       00501  0 50000 0 02306 M10700 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03180    
       00502  0 40200 0 02164        SUB M1ECTR          AIL RECORD. TEST IF                          F3B03190    
       00503  0 10000 0 00510        TZE M1EATC          TAPE 2 READ ALREADY 5                        F3B03200    
       00504  0 40000 0 02165        ADD M1ECTR+1        TIMES. IF NOT, INCREASE                      F3B03210    
       00505  0 60100 0 02306        STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03220    
       00506  0 76400 0 00222 M10705 BST 146             COUNTER AND READ AIL                         F3B03230    
       00507  0 02000 0 00343        TRA M10220          RECORD AGAIN.                                F3B03240    
       00510  0 07400 4 00004 M1EATC TSX 4,4             AIL REC. READ 5 TIMES UNSUCCESSFULLY.        F3B03250    
       00511  0 50000 0 02306 M10750 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03260    
       00512  0 40200 0 02164        SUB M1ECTR          DO RECORD. TEST IF                           F3B03270    
       00513  0 10000 0 00520        TZE M1EDTC          TAPE 2 READ ALREADY 5                        F3B03280    
       00514  0 40000 0 02165        ADD M1ECTR+1        TIMES. IF NOT, INCREASE                      F3B03290    
       00515  0 60100 0 02306        STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03300    
       00516  0 76400 0 00224 M10755 BST 148             COUNTER AND READ DO                          F3B03310    
       00517  0 02000 0 00430        TRA M10260          RECORD AGAIN                                 F3B03320    
       00520  0 07400 4 00004 M1EDTC TSX 4,4             DO REC. READ 5 TIMES UNSUCCESSFULLY,         F3B03330    
       00521  0 76000 0 00141 M10800 PSE 97              END OF FILE FOR AIL ROUTINE.                 F3B03340    
       00522 -0 76000 0 00142        MSE 98              TURN SENSE LIGHT 1 ON FOR AIL                F3B03350    
       00523  0 02000 0 00526        TRA M10810          EOF AND TEST IF ENTRIES IN SXTX TBL          F3B03360    
       00524  0 76000 0 00142        PSE 98              BY LIGHT 2 ON.                               F3B03370    
       00525  0 02000 0 00536        TRA M10900          TO WR 0N TP 3 INSTR IN BUFFER.               F3B03380    
       00526 -0 75400 4 00000 M10810 PXD 0,4             IRC ZERO IF DO FILE NOT READ YET.            F3B03390    
       00527  0 10000 0 00426        TZE M10250          T0 READ DO FILE RECORD.                      F3B03400    
       00530  0 02000 0 00636        TRA M11030          T0 COMPILE DO INSTRUCTIONS.                  F3B03410    
       00531  0 76000 0 00142 M10850 PSE 98              END OF FILE FOR DO ROUTINE.                  F3B03420    
       00532 -0 76000 0 00141        MSE 97              TURN SENSE LIGHT 2 ON FOR D0                 F3B03430    
       00533  0 02000 0 00751        TRA M12000          EOF AND TEST IF AIL AT EOF.                  F3B03440    
       00534  0 76000 0 00141        PSE 97                                                           F3B03450    
       00535  0 02000 0 00536        TRA M10900                                                       F3B03460    
                                         M1 TERMINAL ROUTINE                                          F3B03470    
       00536  0 76600 0 00223 M10900 WRS 147             ROUTINE WR ON TP 3 INSTR REMAINING           F3B03480    
       00537 -0 53400 2 02317        LXD BB0X,2          IN CIB BUFFER FROM CIT.                      F3B03490    
       00540  0 76000 0 00140        PSE 96              TURN-OFF ALL SENSE LIGHTS.                   F3B03500    
       00541  0 70000 1 02637 M10910 CPY CIB,1                                                        F3B03510    
       00542  1 77777 1 00543        TXI M10920,1,-1                                                  F3B03520    
       00543  1 00001 2 00544 M10920 TXI M10920+1,2,1    IRB 2S COMP NO WORDS CIB BUFFER.             F3B03530    
       00544  3 00001 2 00541        TXH M10910,2,1                                                   F3B03540    
       00545  0 77000 0 00223 M10930 WEF 147             WR FORTRAN FCNS 2ND FILE TP 3.               F3B03550    
       00546 -0 53400 2 00411 PAT10  LXD PAT5+1,2        WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3.    F3B03560    
       00547  3 00000 2 00553        TXH PAT12,2,0       1 IN DECREMENT IF F FCNS IN AIL FILE.        F3B03570    
       00550  0 77000 0 00223 PAT11  WEF 147             WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END.    F3B03580    
       00551  0 76200 0 00221        RTB 1               SPACE OVER DIAGNOSTIC RECORD.                F3B03590    
       00552  0 02000 0 00004        TRA 4               TO READ IN MERGE 2.                          F3B03600    
       00553 -0 63400 1 02166 PAT12  SXD M1ECTR+2,1                                                   F3B03610    
       00554 -0 63400 2 02167        SXD M1ECTR+3,2                                                   F3B03620    
       00555  0 53400 1 02164        LXA M1ECTR,1        LOAD 5 INTO IRC TP RD ERROR CTR.             F3B03630    
       00556  0 76200 0 00222        RDS 146             READ AIL RECORD COUNT, THE                   F3B03640    
       00557  0 70000 0 05737        CPY ERAS            NEXT FILE AFTER AIL EOF                      F3B03650    
       00560  0 07400 2 00064        TSX M10043,2        TO BACKSPACE TP 2 TO                         F3B03660    
       00561  0 76100 0 00556        NOP PAT12+3         START OF AIL FILE TO GET                     F3B03670    
       00562 -0 53400 1 02166        LXD M1ECTR+2,1      F FCNS AT BEGINNING OF COMPAIL FILE.         F3B03680    
       00563 -0 53400 2 02167        LXD M1ECTR+3,2                                                   F3B03690    
       00564  0 53400 2 05737        LXA ERAS,2                                                       F3B03700    
       00565  1 00002 2 00566        TXI PAT13,2,2                                                    F3B03710    
       00566  0 76400 0 00222 PAT13  BST 146                                                          F3B03720    
       00567  2 00001 2 00566        TIX PAT13,2,1                                                    F3B03730    
       00570  0 76000 0 00142        PSE 98              PUT LIGHT 2 ON FOR D0 EOF.                   F3B03740    
       00571  0 76000 0 00143        PSE 99              PUT LIGHT 3 ON FOR NO CHTG TBL.              F3B03750    
       00572  0 50000 0 02170        CLA M1CON           INITIALIZE BBOX WITH 0. BBOX                 F3B03760    
       00573  0 60100 0 02317        STO BB0X            KEEPS COUNT OF RECORDS IN CIB BUFFER.        F3B03770    
       00574  0 07400 4 00341        TSX M10210,4        TO READ AIL FILE FOR FORTRAN FCNS.           F3B03780    
       00575  0 76100 0 00000        NOP                 NOP NEEDED FOR ROUTINE AT RET1.              F3B03790    
       00576 -0 50000 1 02327 PAT14  CAL AIL,1           TEST FOR FORTRAN FCN. AIL                    F3B03800    
       00577 -0 32000 1 02330        ANA AIL+1,1         WORD ALL ONES IF A FORTRAN FCN.              F3B03810    
       00600 -0 32000 1 02331        ANA AIL+2,1                                                      F3B03820    
       00601 -0 32000 1 02332        ANA AIL+3,1                                                      F3B03830    
       00602  0 60200 0 05737        SLW ERAS                                                         F3B03840    
       00603  0 50000 0 05737        CLA ERAS                                                         F3B03850    
       00604  0 40200 0 02211        SUB M1CON+17                                                     F3B03860    
       00605 -0 10000 0 00615        TNZ OUT             ENTRY IS NOT A FORTRAN FCN.                  F3B03870    
       00606  1 77774 1 00607 PAT15  TXI PAT15+1,1,-4                                                 F3B03880    
       00607 -0 75400 1 00000        PXD 0,1             TEST IF LAST WORD OF                         F3B03890    
       00610  0 34000 0 02305        CAS M1ALWN          AIL BUFFER.                                  F3B03900    
       00611  0 02000 0 00751        TRA M12000          TO AIL COMPILATION ROUT1NE.                  F3B03910    
       00612  0 07400 4 00341 PAT16  TSX M10210,4        TO READ NEXT AIL ENTRY.                      F3B03920    
       00613  0 07400 4 00004        TSX 4,4             NO. OF WORDS OF AIL REC NOT A MULTIPLE OF 4  F3B03930    
       00614  0 02000 0 00751        TRA M12000          TO AIL COMPILATION ROUTINE.                  F3B03940    
       00615  1 77777 2 00616 OUT    TXI OUT1,2,-1       MAKE IRB VALUE ZERO.                         F3B039S0    
       00616 -0 63400 2 00411 OUT1   SXD PAT5+1,2        DECREMENT ZERO MEANS NO FORTRAN FCNS.        F3B03960    
       00617  0 76200 0 00222 OUT13  RDS 146             SPACE OVER REMAINING                         F3B03970    
       00620  0 70000 0 05737 OUT14  CPY ERAS            AIL ENTRIES WHICH ARE                        F3B03980    
       00621  0 02000 0 00620        TRA OUT14           NOT FORTRAN FCNS TO POSITION                 F3B03990    
       00622  0 02000 0 00624        TRA OUT22           TAPE 2 AT END OF AIL FILE.                   F3B04000    
       00623  0 02000 0 00617        TRA OUT13                                                        F3B04010    
       00624  0 53400 1 02170 OUT22  LXA M1CON,1                                                      F3B04020    
       00625  0 02000 0 00536        TRA M10900          TO WR ANY F FCN ENTRIES IN CIB BUFFER.       F3B04030    
                                         COMPAIL INSTR USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH   F3B04040    
                                         HAVE SAME FMLA NO, EXCEPT FOR READ AND WRITE,WHEN DO PRECEDESF3804030    
                                         THE AIL FOR TIMING REASONS. FMLA NO. DECREMENT PART HERE.    F3B04060    
                                         COMPARISON OF AIL AND DO FMLA NOS AND                        F3B04070    
                                         COMPILATION OF DO INSTRUCTIONS                               F3B04080    
       00626  0 50000 2 02473 M11010 CLA DO,2            COMPARE AIL AND DO INTERNAL                  F3B04090    
       00627  0 62200 0 02307        STD M1DOFN          FORMULA NOS.                                 F3B04100    
       00630  0 07400 4 00744 M11015 TSX ERR2,4          TEST FOR FORTRAN FCNS.                       F3B04110    
       00631 -0 32000 0 02205        ANA M1CON+13        +077777000000.                               F3B04120    
       00632  0 34000 0 02307        CAS M1DOFN                  COMPARE AIL AND                      F3B04130    
       00633  0 02000 0 00636        TRA M11030          AIL FMLA NO GREATER DO NO.                   F3B04140    
       00634  0 02000 0 00667        TRA M11070          AIL FMLA NO. EQUALS DO NO.                   F3B04150    
       00635  0 02000 0 00751        TRA M12000          AIL FMLA NO. LESS DO NO.                     F3B04160    
       00636  0 53400 4 02174 M11030 LXA M1CON+4,4       COMPILE DO INSTR BY                          F3B04170    
       00637  0 50000 2 02473 M11031 CLA DO,2            GATHERING 4 WORDS FROM                       F3B04180    
       00640  0 60100 4 02326        STO M1CW+4,4        DO REC BUFFER AND PLACING                    F3B04190    
       00641  1 77777 2 00642        TXI M11035,2,-1     THEM IN CALLING SEQ LOCATIONS.               F3B04200    
       00642  2 00001 4 00637 M11035 TIX M11031,4,1                                                   F3B04210    
       00643  0 07400 4 00707        TSX CIT00,4         TO CIT COMPILING ROUTINE.                    F3B04220    
       00644  0 00000 0 02322        HTR M1CW            CALLING SEQ FOR LOCATIONS                    F3B04230    
       00645  0 00000 0 02323        HTR M1CW+1          OF 4 COMPILED WORDS.                         F3B04240    
       00646  0 00000 0 02324        HTR M1CW+2                                                       F3B04250    
       00647  0 00000 0 02325        HTR M1CW+3                                                       F3B04260    
       00650 -0 75400 2 00000        PXD 0,2             TEST IF END OF CUR DO REC                    F3B04270    
       00651  0 34000 0 02304        CAS M1DOWN          BY COMPARING CURRENT DO WD                   F3B04280    
       00652  0 02000 0 00655        TRA M11055          P0SITION WITH TOTAL DO                       F3B04290    
       00653  0 07400 4 00426        TSX M10250,4        REC WORD COUNT.                              F3B04300    
       00654  0 07400 4 00004        TSX 4,4             NO OF WORDS NOT A MULTIPLE OF 4              F3B04310    
       00655 -0 76000 0 00141 M11055 MSE 97              END OF AIL FILE IF LIGHT 1 ON,               F3B04320    
       00656  0 02000 0 00661        TRA M11060                                                       F3B04330    
       00657  0 76000 0 00141        PSE 97              AIL AT EOF. CONTINUE                         F3B04340    
       00660  0 02000 0 00636        TRA M11030          COMPILING DO INSTR.                          F3B04350    
       00661  0 50000 2 02473 M11060 CLA DO,2            GET NEXT DO INST SAME BLOCK                  F3B04360    
       00662 -0 32000 0 02205        ANA M1CON+13        AS PREVIOUS ONE.                             F3B04370    
       00663  0 34000 0 02307        CAS M1DOFN          AIL AND DO FMLA NOS IN DECREMENTS.           F3B04380    
       00664  0 02000 0 00626        TRA M11010          DO FMLA NO. GREATER AIL NO.                  F3B04390    
       00665  0 76100 0 00000        NOP                 DO FMLA NO. EQUALS AIL NO.                   F3B04400    
       00666  0 02000 0 00636        TRA M11030          DO FMLA NO. LESS AIL NO.                     F3B04410    
       00667  1 77777 1 00670 M11070 TXI M11070+1,1,-1                                                F3B04420    
       00670  0 50000 1 02327        CLA AIL,1           TEST IF CURRENT AIL OPER RDS                 F3B04430    
       00671  0 40200 0 02236        SUB M1ABC+17                                                     F3B04440    
       00672  0 10000 0 00677        TZE M11080                                                       F3B04450    
       00673  0 50000 1 02327        CLA AIL,1           TEST IF CURRENT AIL OPER WRS                 F3B04460    
       00674  0 40200 0 02247        SUB M1ABC+26                                                     F3B04470    
       00675  0 10000 0 00677        TZE M11080                                                       F3B04480    
       00676  1 00001 1 00751        TXI M12000,1,1      RESTORE IRA CURRENT AIL VALUE.               F3B04490    
       00677  1 00001 1 00700 M11080 TXI ERR3,1,1        T0 TEST IF SPACING TAPE.                     F3B04500    
       00700  0 50000 2 02473 ERR3   CLA DO,2            TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO.F3B04510    
       00701 -0 32000 0 02206        ANA M1CON+14        DETERMINE IF DO OR AIL INSTR COMPILED FIRST. F3B04520    
       00702  0 10000 0 00704        TZE RET2            LXD BEFORE RDS HAS ZERO LOCATION.            F3B04530    
       00703  0 02000 0 00751        TRA M12000          TO COMPILE AIL INSTRUCTION.                  F3B04540    
       00704  0 50000 0 02210 RET2   CLA M1CON+16        INCREASE AIL 1ST WD ADDRESS                  F3B04550    
       00705 -0 60200 1 02327        ORS AIL,1           FOR SEC. 4 PURP0SES.                         F3B04560    
       00706  0 02000 0 00636        TRA M11030          T0 COMPILE DO INSTR.                         F3B04570    
                                         COMPILING ROUTINE,CIT00                                      F3B04580    
       00707 -0 60000 0 02314 CIT00  STQ E1C             E1C CELL FOR SAVING MQ.                      F3B04590    
       00710 -0 63400 1 02315        SXD E2C,1           E2C CELL FOR SAVING IRA.                     F3B04600    
       00711 -0 63400 2 02316        SXD E3C,2           E3C CELL FOR SAVING IRB.                     F3B04610    
       00712 -0 53400 2 02317        LXD BB0X,2          2S COMP NO. ALREADY IN BLOCK.                F3B04620    
       00713  3 77634 2 00723        TXH CIT04,2,-100    TR NO. WDS IN BLOCK LESS 100.                F3B04630    
       00714 -3 00000 2 00723        TXL CIT04,2,0       TR NO. WDS IN BLOCK EQUALS 0.                F3B04640    
       00715  0 76600 0 00223        WRS 147             WRITE-OUT BLOCK OF 100                       F3B04650    
       00716  0 53400 1 02170        LXA M1CON,1         WORDS WHICH MAKE UP                          F3B04660    
       00717  0 70000 1 02637 CIT01  CPY CIB,1           25 COMPILED INSTR. ON TP 3.                  F3B04670    
       00720  1 77777 1 00721        TXI CIT02,1,-1                                                   F3B04680    
       00721  1 00001 2 00722 CIT02  TXI CIT03,2,1       WRITING OF CIB BUFFER                        F3B04690    
       00722  3 00001 2 00717 CIT03  TXH CIT01,2,1       FINISHED WHEN IRB IS 0.                      F3B04700    
       00723  0 53400 1 02174 CIT04  LXA M1CON+4,1       ROUTINE TO PLACE 4 WORDS                     F3B04710    
       00724  0 50000 0 02171        CLA M1CON+1         OF COMPILED INSTR IN CIB                     F3B04720    
       00725  0 62100 0 00726        STA CIT05           BUFFER OF 100 WORDS,                         F3B04730    
       00726  0 50000 4 00000 CIT05  CLA 0,4             IRC CONTAINS 2S COMP LOC OF                  F3B04740    
       00727  0 62100 0 00730        STA CIT06           CALLING SEQ LESS 1,                          F3B04750    
 A     00730  0 50000 0 00000 CIT06  CLA                 INSTR ADDRESS SEQUENT1ALLY                   F3B04760    
       00731  0 60100 2 02637        STO CIB,2           M1CW, M1CW+1, M1CW+2                         F3B04770    
       00732  0 50000 0 00726        CLA CIT05           AND M1CW+3.                                  F3B04780    
       00733  0 40000 0 02171        ADD M1CON+1                                                      F3B04790    
       00734  0 62100 0 00726        STA CIT05                                                        F3804800    
       00735  1 77777 2 00736        TXI CIT07,2,-1                                                   F3B04810    
       00736  2 00001 1 00726 CIT07  TIX CIT05,1,1       IRA LOADED WITH 4.                           F3B04820    
       00737 -0 63400 2 02317        SXD BB0X,2          2S COMPL NO. WORDS ALREADY IN BLOCK.         F3B04830    
       00740  0 56000 0 02314        LDQ E1C             RESTORE MQ, IRA, IRB.                        F3B04840    
       00741 -0 53400 1 02315        LXD E2C,1           IRA GIVES AIL REC POSITION.                  F3804850    
       00742 -0 53400 2 02316        LXD E3C,2           IRB GIVES DO REC POSITION.                   F3B04860    
       00743  0 02000 4 00005        TRA 5,4             RETURN TO TSX ADDR PLUS 5.                   F3B04870    
       00744  0 50000 1 02327 ERR2   CLA AIL,1           TEST IF FORTRAN FCN DEFINED IN MIDDLE OF     F3B04880    
       00745  0 34000 0 02211        CAS M1CON+17        PROGRAM, BY FIRST INSTR WORD ALL ONES.       F3B04890    
       00746  0 02000 4 00001        TRA 1,4             RETURN TO NEXT INSTR. OF MAIN PROGRAM.       F3804900    
       00747  0 07400 4 00004        TSX 4,4             FORTRAN FUNCTION IN MIDDLE OF PROGRAM        F3804910    
       00750  0 07400 4 00004 ERROR3 TSX 4,4             WORD ALL 1S COMPARED HIGH TO AC WITH ALL 1S  F3804920    
                                         COMPILATION OF AIL INSTRUCTIONS                              F3804930    
       00751  0 07400 4 00744 M12000 TSX ERR2,4          TEST 1ST AIL WORD ALL ONES.                  F3B04940    
       00752  0 62200 0 02310        STD M1ALFN          SAVE FMLA NO. 1ST INSTR ARITH BLOCK,         F3B04950    
       00753 -0 12000 0 01070 M12005 TMI M13000          MINUS MEANS OPEN SU8ROUTINE.                 F3804960    
       00754  0 53400 4 02174        LXA M1CON+4,4       COMPILE AIL INST BY                          F3B04970    
       00755  0 50000 1 02327 M12010 CLA AIL,1           MOVING 4 WORDS OF INSTR                      F3B04980    
       00756  0 60100 4 02326        STO M1CW+4,4        INTO COMPILED WORD 8UFFER.                   F3804990    
       00757  1 77777 1 00760        TXI M12020,1,-1                                                  F3B05000    
       00760  2 00001 4 00755 M12020 TIX M12010,4,1                                                   F3805010    
       00761  0 50000 0 02325 M12021 CLA M1CW+3          TEST IF TAGGED INSTR, BITS 24-26.            F3B05020    
       00762 -0 32000 0 02207 M12022 ANA M1CON+15        1,2 OR 3 GIVEN IN TAG. ONE                   F3B05030    
       00763  0 10000 0 00767        TZE M12030          DIM TAGS NOT CHANGED.                        F3805040    
       00764 -0 76000 0 00143        MSE 99              SENSE LIGHT 3 ON IF NO                       F3805050    
       00765  0 07400 4 01016        TSX M12500,4        ENTRIES IN EDITED CHANGE                     F3805060    
       00766  0 76000 0 00143        PSE 99              TAG TABLE.                                   F3B05070    
       00767  0 07400 4 00707 M12030 TSX CIT00,4         TO CIT COMPILING IF TAG UNCHANGED.           F3805080    
       00770  0 00000 0 02322        HTR M1CW            CALLING SEQ FOR LOCATIONS                    F3B05090    
       00771  0 00000 0 02323        HTR M1CW+1          OF 4 COMPILED WORDS.                         F3B05100    
       00772  0 00000 0 02324        HTR M1CW+2                                                       F3B05110    
       00773  0 00000 0 02325        HTR M1CW+3                                                       F3B05120    
       00774 -0 75400 1 00000 M12035 PXD 0,1             TEST IF END OF CUR AIL REC                   F3B05130    
       00775  0 34000 0 02305        CAS M1ALWN          BY COMPAR1NG CURRENT AIL WD                  F3B05140    
       00776  0 02000 0 01001        TRA M12040          POSITION WITH TOTAL AIL                      F3805150    
       00777  0 07400 4 00341        TSX M10210,4        REC WORD COUNT.                              F3B05160    
       01000  0 07400 4 00004        TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F380S170    
       01001  0 50000 1 02327 M12040 CLA AIL,1           NEXT AIL INST SAME BLOCK AS                  F3B05180    
       01002 -0 32000 0 02205        ANA M1CON+13        PREVI0US ONE. +077777000000.                 F3B05190    
       01003  0 34000 0 02310        CAS M1ALFN                                                       F3B05200    
       01004  0 02000 0 01010        TRA M12050          NEXT AIL FMLA NO. GR THAN PREV.              F3B09210    
       01005  0 76100 0 00000        NOP                                                              F3B03220    
       01006  0 50000 1 02327        CLA AIL,1           TEST IF OPEN SRTN. IF NOT,                   F3805230    
       01007  0 02000 0 00753        TRA M12005          COMPILE AIL INSTR                            F3B05240    
       01010 -0 76000 0 00142 M12050 MSE 98              END OF DO FILE IF LIGHT 2 ON,                F3B03250    
       01011  0 02000 0 00630        TRA M11015          TO CMP AIL AND DO FMLA NOS.                  F3B05260    
       01012  0 76000 0 00142        PSE 98                                                           F3B05270    
       01013  3 00001 2 00751        TXH M12000,2,1      IN THE MAIN MERGE IF IRB                     F3B03280    
       01014 -3 00000 2 00751        TXL M12000,2,0      ANY VALUE EXCEPT 1.                          F3805290    
       01015  0 02000 0 00576        TRA PAT14           TO TEST FOR FORTRAN FCN.                     F3B05300    
                                          CHANGE TAG TABLE SEARCH                                     F3805310    
       01016  0 50000 0 02325 M12500 CLA M1CW+3          SYMBOLIC TAG IN BINARY BITS                  F3805320    
       01017  0 62100 0 02303        STA TAGB0X          24-35 4TH WD COMPILED INSTR.                 F3805330    
       01020 -0 63400 4 02302        SXD CBOX,4          IRC HAS TSX RTN ADDR TO M12030.              F3B05340    
       01021 -0 53400 4 02275 M12503 LXD CHTGE1,4                                                     F3B05350    
       01022  0 50000 4 05741        CLA CHTG,4          CMP INT FMLA NO CUR AIL INSTR                F3B05360    
       01023  0 34000 0 02310        CAS M1ALFN          WITH CUR CHTG TABLE BLOCK.                   F3805370    
       01024  0 02000 0 01027        TRA M12510          CHTG FMLA NO GREATER AIL NO.                 F3805380    
       01025  0 02000 0 01031        TRA M12515          CHTG FMLA NO EQUALS AIL NO,                  F3B05390    
       01026  0 02000 0 01046        TRA M12540          CHTG FMLA NO LESS AIL NO.                    F3B05400    
       01027 -0 53400 4 02302 M12510 LXD CBOX,4          IRC HAS TSX RTN ADDR TO                      F3B05410    
       01030  0 02000 4 00002        TRA 2,4             AIL COMP AT M12030.                          F3B05420    
       01031  0 50000 0 02276 M12515 CLA CHTGE2          SEARCH CUR CHTG BLOCK FOR                    F3B05430    
       01032  0 62200 0 01044        STD M12530+1        CUR AIL INST TAG                             F3B05440    
       01033  1 77777 4 01034 M12520 TXI M12520+1,4,-1                                                F3B05450    
       01034  0 50000 4 05741        CLA CHTG,4          GET TAG1 FROM 2ND WORD OF                    F3B05460    
       01035  0 76500 0 00022        LRS 18              CHTG TABLE.                                  F3B05470    
       01036  0 40200 0 02303        SUB TAGB0X          TAG BOX HAS AIL TAG IN ADDR.                 F3B05480    
       01037 -0 10000 0 01043        TNZ M12530          CHTG TAG AND AIL TAG DIFFERENT.              F3B05490    
       01040  0 76300 0 00022        LLS 18              CHTG AND AIL TAGS SAME, SO                   F3B05500    
       01041  0 62100 0 02325        STA M1CW+3          REPLACE CUR AIL TAG WITH CHTG T2.            F3B05510    
       01042  0 02000 0 01027        TRA M12510          RTN VIA TSX TO AIL COMP AT M12030.           F3B05520    
       01043  1 77777 4 01044 M12530 TXI M12530+1,4,-1   IRC ENDS CHTG BLOCK SAME FMLA NO.            F3B05530    
 D     01044  3 00000 4 01033        TXH M12520,4        DECREMENT IS CHTGE2 VALUE.                   F3B05540    
       01045  0 02000 0 01027        TRA M12510                                                       F3B05550    
       01046  0 50000 0 02276 M12540 CLA CHTGE2          UPDATE CHTGE1. CHTGE1 HAS IRC                F3B05560    
       01047  0 60100 0 02275        STO CHTGE1          VALUE T0 GET 1ST ENTRY OF                    F3805570    
       01050  0 40200 0 02274        SUB CHTGL           CHTG BLOCK ALL SAME FMLA NO.                 F3B05580    
       01051 -0 10000 0 01054        TNZ M12550          CHTGL HAS 2S COMP NO WDS CHTG TABLE.         F3B05590    
       01052  0 76000 0 00143        PSE 99              SENSE LIGHT 3 ON MEANS CHTG                  F3B05600    
       01053  0 02000 0 01027        TRA M12510          EMPTY OR EXHAUSTED.                          F3B05610    
       01054 -0 53400 4 02275 M12550 LXD CHTGE1,4        COMPUTE NEW CHTGE2. CHTGE2 IS                F3B05620    
       01055  0 50000 4 05741        CLA CHTG,4          DECREMENT VALUE IN M12530 TO                 F3B05630    
       01056  0 60100 0 02277        STO CHTGFN          INDICATE LAST ENTRY IN CHTG                  F3B05640    
       01057  1 77776 4 01060 M12555 TXI M12555+1,4,-2   BLOCK ALL WITH SAME FMLA NO.                 F3B05650    
       01060 -0 75400 4 00000        PXD 0,4             THIS OBVIATES SEARCHING ENTIRE               F3B05660    
       01061  0 40200 0 02274        SUB CHTGL           CHTG TABLE WHEN TESTING AIL                  F3B05670    
       01062  0 10000 0 01066        TZE M12570          INSTR FOR CHANGING ITS TAG.                  F3B05680    
       01063  0 50000 4 05741        CLA CHTG,4          ROUTINE ENTERED WHEN AIL                     F3B05690    
       01064  0 40200 0 02277        SUB CHTGFN          FMLA NO. GREATER THAN CHTG                   F3B05700    
       01065  0 10000 0 01057        TZE M12555          FMLA, SO MUST UPDATE CHTGE1                  F3B05710    
       01066 -0 63400 4 02276 M12570 SXD CHTGE2,4        AND CHTGE2 TO GET NEXT ENTRY,                F3B05720    
       01067  0 02000 0 01021        TRA M12503          TO CMP AIL AND CHTG FMLA NOS.                F3B05730    
                                         EXPONENTIAL OPEN SUBROUTINES                                 F3B05740    
       01070  0 76000 0 00002 M13000 CHS                 CHANGE MINUS SIGN OF                         F3B05750    
       01071  0 60100 0 02322        STO M1CW            INT FMLA NO, IF ANY, TO H1CW                 F3B05760    
       01072  1 77777 1 01073        TXI M13005,1,-1     DECREASE COUNT IN IR1                        F3B05770    
       01073  0 50000 1 02327 M13005 CLA AIL,1           SECOND WORD                                  F3B05780    
       01074  0 40200 0 02237        SUB M1ABC+18        FIXED EXP, FLOATING EXP OR SPECIAL OP        F3B05790    
       01075  0 10000 0 01101        TZE M13020          FIXED EXPONENT                               F3B05800    
       01076  0 40000 0 02240        ADD M1ABC+19        TEST FOR FLOATING POINT                      F3B05810    
       01077  0 10000 0 01102        TZE M13020+1        IF NEITHER, THEN NOT EXPONENTIAL             F3B05820    
       01100  1 77777 1 01304        TXI M13500,1,-1     DETERMINATION OF SPECIAL 0P.                 F3B05830    
       01101  0 76000 0 00144 M13020 PSE 100             FIXED EXP. LITE 100 ON                       F3B05840    
       01102  1 77777 1 01103        TXI M13020+2,1,-1   3RD WORD                                     F3B05850    
       01103  0 50000 1 02327        CLA AIL,1           INFO ON LOC OF ARG                           F3B05860    
       01104  0 60100 0 02324        STO M1CW+2          TO M1CW+2                                    F3B05870    
       01105  1 77777 1 01106 M13025 TXI M13025+1,1,-1                                                F3B05880    
       01106  0 50000 1 02327        CLA AIL,1           REL ADD AND TAG, IF ANY.                     F3B05890    
       01107  0 60100 0 02325        STO M1CW+3          TO M1CW+3                                    F3B05900    
       01110  1 77777 1 01111 M13030 TXI M13030+1,1,-1   DECREASE BY 1                                F3B05910    
       01111 -0 75400 1 00000        PXD 0,1             TEST FOR END OF CUR AIL REC                  F3B05920    
       01112  0 34000 0 02305        CAS M1ALWN          2S COMPLIMENT OF NUMBER OF WORDS             F3B05930    
       01113  0 02000 0 01116        TRA M13040          OF CURRENT AIL RECORD                        F3B05940    
       01114  0 07400 4 00341        TSX M10210,4        BACK TO READ NEXT AIL RECORD                 F3B05950    
       01115  0 07400 4 00004        TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B05960    
       01116  1 77776 1 01117 M13040 TXI M13040+1,1,-2   DECREASE BY 2                                F3B05970    
       01117  0 50000 0 02324        CLA M1CW+2          LOCATION OF ARGUMENT                         F3B05980    
       01120  0 40200 0 02241        SUB M1ABC+20        SUBTRACT A PLUS SIGN                         F3B05990    
       01121  0 10000 0 01212        TZE M13200          ARG IN AC                                    F3B06000    
       01122  0 50000 0 02324        CLA M1CW+2          LOCATION AGAIN                               F3B06010    
       01123  0 40200 0 02237        SUB M1ABC+18        SUBTRACT ASTERISK                            F3B06020    
       01124  0 10000 0 01230        TZE M13250          ARG IN MQ                                    F3B06030    
                                         ARGUMENT STORED, FIXED OR FLOATING                           F3B06040    
       01125  0 50000 1 02327        CLA AIL,1           VALUE OF EXPONENT, 3RD WORD                  F3B06050    
       01126  0 40200 0 02176        SUB M1CON+6         OF SECOND AIL ENTRY                          F3B06060    
       01127 -0 10000 0 01135        TNZ M13060          EXP GREATER THAN 1                           F3B06070    
       01130  0 50000 0 02215        CLA M1ABC           EXP EQUALS 1, COMPILE A CLA INSTR            F3B06080    
       01131  0 60100 0 02323        STO M1CW+1          AND PLACE IT IN OP CODE                      F3B06090    
       01132 -0 76000 0 00144        MSE 100             TURN OFF SENSE LIGHT, ADJUST                 F3B06100    
       01133  0 76100 0 00000        NOP                 COUNT FOR NEXT AIL ENTRY, AND                F3B06110    
       01134  1 77776 1 00761        TXI M12021,1,-2     TRANSFER BACK FOR CHTG SEARCH                F3B06120    
       01135  0 50000 0 02325 M13060 CLA M1CW+3          EXPONENT GREATER THAN 1                      F3B06130    
       01136 -0 32000 0 02207        ANA M1CON+15        TEST IF TAG NEEDS CHANGING                   F3B06140    
       01137  0 10000 0 01143        TZE M13070          ARG TAGGED                                   F3B06150    
       01140 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3B06160    
       01141  0 07400 4 01016        TSX M12500,4        TRANSFER BACK T0 CHTG TABLE                  F3B06170    
       01142  0 76000 0 00143        PSE 99              SEARCH                                       F3B06180    
       01143  0 07400 4 00707 M13070 TSX CIT00,4         COMPILE FIRST INST                           F3B06190    
       01144  0 00000 0 02322        HTR M1CW            LOCATION OF INTERNAL FORMULA NO              F3B06200    
       01145  0 00000 0 02216        HTR M1ABC+1         LOCATION OF LDQ INSTRUCTION                  F3B06210    
       01146  0 00000 0 02324        HTR M1CW+2          LOCATION OF ARGUMENT                         F3B06220    
       01147  0 00000 0 02325        HTR M1CW+3          TAG                                          F3B06230    
       01150  0 50000 1 02327 M13080 CLA AIL,1           VALUE OF EXPONENT                            F3B06240    
       01151  0 40200 0 02177        SUB M1CON+7         SUBTRACT 2                                   F3B06250    
       01152  0 10000 0 01175        TZE M13115          EXPONENT EQUAL TO 2                          F3B06260    
       01153  0 62200 0 02311        STD CCOUNT          EXP-2 TO COUNT                               F3B06270    
       01154 -0 76000 0 00144        MSE 100             ARG FIXED OR FLOATING                        F3B06280    
       01155  0 02000 0 01260        TRA M13300          FLOATING ARGUMENT                            F3B06290    
       01156  0 76000 0 00144        PSE 100                                                          F3B06300    
                                         FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2      F3B06310    
       01157  0 07400 4 00707 M13090 TSX CIT00,4         COMPILE INSTRUCTIONS FOR FIXED ARG.          F3B06320    
       01160  0 00000 0 02170        HTR M1CON           FOR THE EXPON.                               F3B06330    
       01161  0 00000 0 02217        HTR M1ABC+2         ENTIAL ROUTINE. THE LOCATION                 F3B06340    
       01162  0 00000 0 02324        HTR M1CW+2          OF THE ARGUMENT HAS ALREADY                  F3B06350    
       01163  0 00000 0 02325        HTR M1CW+3          BEEN CONSIDERED, AND TH LOOP                 F3B06360    
       01164  0 07400 4 00707        TSX CIT00,4         WILL COMPILE N-2 PAIRS OF                    F3B06370    
       01165  0 00000 0 02170        HTR M1CON           MPY AND LRS INSTRUCTIONS                     F3B06380    
       01166  0 00000 0 02220        HTR M1ABC+3                                                      F3B06390    
       01167  0 00000 0 02170        HTR M1CON                                                        F3B06400    
       01170  0 00000 0 02203        HTR M1CON+11                                                     F3B06410    
       01171 -0 53400 4 02311        LXD CCOUNT,4        LOAD EXPONENT -2 IN IR 4 AND                 F3B06420    
       01172  1 77777 4 01173 M13110 TXI M13110+1,4,-1   COMPILE N-2 PAIRS OF INSTRUCTIONS            F3B06430    
       01173 -0 63400 4 02311        SXD CCOUNT,4        RESTORE CCOUNT DURING LOOP                   F3B06440    
 D     01174  3 00000 4 01157        TXH M13090,4                                                     F3B06450    
       01175 -0 76000 0 00144 M13115 MSE 100             ARG FIXED OR FL0ATING                        F3B06460    
       01176  0 02000 0 01276        TRA M13330          FLOATING ARGUMENT                            F3B06470    
       01177  0 07400 4 00707        TSX CIT00,4         COMPILE LAST 2 INST FOR                      F3B06480    
       01200  0 00000 0 02170        HTR M1CON           EXP GREATER OR EQUAL 2, IN WHICH             F3B06490    
       01201  0 00000 0 02217        HTR M1ABC+2         CASE WE MUST COMPILE ONLY ONE                F3B06500    
       01202  0 00000 0 02324        HTR M1CW+2          PAIR OF INSTRUCTIONS                         F3B06510    
       01203  0 00000 0 02325        HTR M1CW+3                                                       F3B06520    
       01204  0 07400 4 00707        TSX CIT00,4                                                      F3B06530    
       01205  0 00000 0 02170        HTR M1CON                                                        F3B06540    
       01206  0 00000 0 02221        HTR M1ABC+4                                                      F3B06550    
       01207  0 00000 0 02170        HTR M1CON                                                        F3B06560    
       01210  0 00000 0 02202        HTR M1CON+10                                                     F3B06570    
       01211  1 77776 1 00774        TXI M12035,1,-2     BACK T0 CONTINUE AIL ROUTINES                F3B06580    
                                         ARG IN AC, FIXED OR FLOATING                                 F3B06590    
       01212  0 50000 1 02327 M13200 CLA AIL,1           TEST TO SEE IF EXPONENT                      F3B06600    
       01213  0 40200 0 02176        SUB M1CON+6         EQUALS 1, IF YES, TRANSFER                   F3B06610    
       01214 -0 10000 0 01220        TNZ M13210          BACK TO PICK UP NEXT RECORD                  F3B06620    
       01215 -0 76000 0 00144        MSE 100             IF NO, CONTINUE TO                           F3B06630    
       01216  0 76100 0 00000        NOP                 COMPILE PROPER INSTRUCTIONS                  F3B06640    
       01217  1 77776 1 00774        TXI M12035,1,-2                                                  F3B06650    
       01220  0 50000 0 02242 M13210 CLA M1ABC+21        EXP GREATER THAN 1,0                         F3B06660    
       01221  0 60100 0 02324        STO M1CW+2          STORE VALUE OF EXPONENT IN INSTR. AREA       F3B06670    
       01222  0 07400 4 00707        TSX CIT00,4         COMPILE FIRST INST                           F3B06680    
       01223  0 00000 0 02322        HTR M1CW            CALLING SEQUENCE FOR ARG-                    F3B06690    
       01224  0 00000 0 02222        HTR M1ABC+5         UMENT IN ACC, COMPILE                        F3B06700    
       01225  0 00000 0 02324        HTR M1CW+2          A STO INSTRUCTION, AND CONTINUE              F3B06710    
       01226  0 00000 0 02325        HTR M1CW+3          AS IF IT WERE STORED INITIALLY               F3B06720    
       01227  0 02000 0 01143        TRA M13070                                                       F3B06730    
                                         ARG IN MQ, FIXED OR FL0ATING                                 F3B06740    
       01230  0 50000 1 02327 M13250 CLA AIL,1           VALUE OF EXPONENT AND TEST TO                F3806750    
       01231  0 40200 0 02176        SUB M1CON+6         SEE IF EXPONENT = 1, IF IT IS                F3B06760    
       01232 -0 10000 0 01250        TNZ M13265          EQUAL TO ONE, WE KNOW THAT                   F3B06770    
       01233  0 07400 4 00707        TSX CIT00,4         THE VALUE OF THE                             F3B06780    
       01234  0 00000 0 02322        HTR M1CW            ARGUMENT IS RETAINED AS THE                  F3B06790    
       01235  0 00000 0 02232        HTR M1ABC+13        ANSWER.                                      F3B06800    
       01236  0 00000 0 02170        HTR M1CON                                                        F3B06810    
       01237  0 00000 0 02170        HTR M1CON                                                        F3B06820    
       01240  0 07400 4 00707        TSX CIT00,4                                                      F3B06830    
       01241  0 00000 0 02170        HTR M1CON                                                        F3B06840    
       01242  0 00000 0 02223        HTR M1ABC+6                                                      F3B06850    
       01243  0 00000 0 02170        HTR M1CON                                                        F3B06860    
       01244  0 00000 0 02204        HTR M1CON+12                                                     F3B06870    
       01245 -0 76000 0 00144        MSE 100             TURN OF SENSE LIGHT                          F3B06880    
       01246  0 76100 0 00000        NOP                                                              F3B06890    
       01247  1 77776 1 00774        TXI M12035,1,-2     BACK T0 AIL ROUTINE                          F3B06900    
       01250  0 50000 0 02242 M13265 CLA M1ABC+21        EXP GREATER 1,                               F3B06910    
       01251  0 60100 0 02324        STO M1CW+2          PLACE 010000000000IN LOCATION POS.           F3B06920    
       01252  0 07400 4 00707        TSX CIT00,4         COMPILE FIRST INST                           F3B06930    
       01253  0 00000 0 02322        HTR M1CW            ZERO                                         F3B06940    
       01254  0 00000 0 02224        HTR M1ABC+7         COMPILE A STQ INSTRUCTION                    F3B06950    
       01255  0 00000 0 02324        HTR M1CW+2          AND THEN TRANSFER TO DETER-                  F3B06960    
       01256  0 00000 0 02325        HTR M1CW+3          MINE THE VALUE OF THE                        F3B06970    
       01257  0 02000 0 01150        TRA M13080          EXPONENT,                                    F3B06980    
                                         FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2            F3B06990    
       01260  0 07400 4 00707 M13300 TSX CIT00,4                                                      F3B07000    
       01261  0 00000 0 02170        HTR M1CON           INST COMPILING LOOP FOR FL0ATING             F3B07010    
       01262  0 00000 0 02225        HTR M1ABC+8         ARGUMENT, COMPILE A FMP                      F3B07020    
       01263  0 00000 0 02324        HTR M1CW+2          INSTRUCTION, AND A LRS INSTR-                F3B07030    
       01264  0 00000 0 02325        HTR M1CW+3          UCTION.                                      F3B07040    
       01265  0 07400 4 00707        TSX CIT00,4                                                      F3B07050    
       01266  0 00000 0 02170        HTR M1CON           ZERO, FOR INTERNAL FMLA. NO.                 F3B07060    
       01267  0 00000 0 02220        HTR M1ABC+3                                                      F3B07070    
       01270  0 00000 0 02170        HTR M1CON           PLACE 43 INDECREMENT OF                      F3B07080    
       01271  0 00000 0 02204        HTR M1CON+12        RELATIVE ADDRESS.                            F3B07090    
       01272 -0 53400 4 02311        LXD CCOUNT,4        LOAD N-2 IN IR 4                             F3B07100    
       01273  1 77777 4 01274 M13320 TXI M13320+1,4,-1   DECREASE COUNT BY 1                          F3B07110    
       01274 -0 63400 4 02311        SXD CCOUNT,4        REPLACE CCOUNT                               F3B07120    
 D     01275  3 00000 4 01260        TXH M13300,4        BACK TO COMILE N-2 PRS. OF INST.             F3B07130    
       01276  0 07400 4 00707 M13330 TSX CIT00,4         COMPILE LAST INST FOR                        F3B07140    
       01277  0 00000 0 02170        HTR M1CON           EXP GREATER OR EQUAL 2                       F3B07150    
       01300  0 00000 0 02225        HTR M1ABC+8                                                      F3B07160    
       01301  0 00000 0 02324        HTR M1CW+2                                                       F3B07170    
       01302  0 00000 0 02325        HTR M1CW+3                                                       F3B07180    
       01303  1 77776 1 00774        TXI M12035,1,-2     BACK TO STANDARD AIL ROUTINE                 F3B07190    
       01304 -0 53400 4 02203 M13500 LXD M1CON+11,4      SPECIAL OPS. LOAD COUNT OF 22 IN IR 4        F3B07200    
       01305  0 50000 1 02327        CLA AIL,1           COMPARE SPECIAL OP. FUNCTION NAME            F3B07210    
       01306  0 34000 4 02273 M13503 CAS M1D+18,4        IS THIRD WORD OF 1ST AIL ENTRY               F3807220    
       01307  0 02000 0 07071        TRA 0P1-2           NEW ROUTINE HANDLING ADD. SUBROUTINES        F3B07230    
       01310  0 02000 0 01312        TRA M13510          INCONSTANT AREA                              F3807240    
       01311  0 02000 0 07071        TRA 0P1-2           NEW ROUTINE HANDLING ADD. SUBROUTINES        F3B07250    
       01312 -0 63400 4 02312 M13510 SXD CCELL,4         IRC TO CCELL                                 F3B07260    
       01313  1 77776 1 01314        TXI M13510+2,1,-2   DECREASE CONTENTS OF IR 1 BY 2               F3B07270    
       01314 -0 75400 1 00000        PXD 0,1             END OF AIL REC                               F3B07280    
       01315  0 34000 0 02305        CAS M1ALWN          2 IS COMP, OF NO. OF WORDS OF CUR-           F3B07290    
       01316  0 02000 0 01321        TRA M13520          RENT AIL RECORD                              F3B07300    
       01317  0 07400 4 00341        TSX M10210,4        TO GET NEXT AIL RECORD                       F3B07310    
       01320  0 07400 4 00004        TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B07320    
       01321 -0 53400 4 02312 M13520 LXD CCELL,4                                                      F3B07330    
       01322  0 02000 4 01345 M13525 TRA M13525+19,4     CHOOSE APPROPRIATE SPECIAL OP BRANCH         F3B07340    
       01323  1 77776 1 01345        TXI M13550,1,-2     (XABS)                                       F3807350    
       01324  1 77776 1 01345        TXI M13550,1,-2     (ABS)                                        F3B07360    
       01325  1 77776 1 01412        TXI M13600,1,-2     (XINT)                                       F3B07370    
       01326  1 77776 1 01411        TXI M13595,1,-2     (INT)                                        F3B07380    
       01327  1 77776 1 01412        TXI M13600,1,-2     (XFIX)                                       F3B07390    
       01330  1 77776 1 02063        TXI M13900,1,-2     (FLDAT)                                      F3B07400    
       01331  1 77776 1 01513        TXI M13680,1,-2     (XMOD)                                       F3B07410    
       01332  1 77776 1 01514        TXI M13681,1,-2     (MOD)                                        F3B07420    
       01333  1 77776 1 01514        TXI M13681,1,-2     (XSIGN)                                      F3B07430    
       01334  1 77776 1 01514        TXI M13681,1,-2     (SIGN)                                       F3807440    
       01335  1 77776 1 01514        TXI M13681,1,-2     (XMAX0 )                                     F3B07450    
       01336  1 77776 1 01514        TXI M13681,1,-2     (MAX1 0                                      F3B07460    
       01337  1 77776 1 01513        TXI M13680,1,-2     (XMAX1B)                                     F3B07470    
       01340  1 77776 1 01513        TXI M13680,1,-2     (MAX0B)                                      F3B07480    
       01341  1 77776 1 01514        TXI M13681,1,-2     (XMIN0B)                                     F3807490    
       01342  1 77776 1 01514        TXI M13681,1,-2     (MIN1B0)                                     F3807500    
       01343  1 77776 1 01513        TXI M13680,1,-2     (XMIN1B)                                     F3B07510    
       01344  1 77776 1 01513        TXI M13680,1,-2     (MINOB0)                                     F3B07520    
                                         XABS, ABS BRANCH                                             F3B07530    
       01345  0 07400 4 02156 M13550 TSX ERROR1+1,4      INFO ON LOC OF ARG, CHECK FOR ALL 1S         F3B07540    
       01346  0 60100 0 02324        STO M1CW+2          TO M1CW+2                                    F3B07550    
       01347  1 77777 1 01350        TXI M13555,1,-1     INCREMENT IR 1.  .                           F3B07560    
       01350  0 50000 1 02327 M13555 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B07570    
       01351  0 60100 0 02325        STO M1CW+3          TO M1CW+3                                    F3B07580    
       01352  0 50000 0 02324        CLA M1CW+2          LOCATION OF ARGUMENT                         F3B07590    
       01353  0 40200 0 02241        SUB M1ABC+20        SUBTRACT PLUS SIGN                           F3B07600    
       01354  0 10000 0 01373        TZE M13575          ARG IN AC                                    F3B07610    
       01355  0 50000 0 02324        CLA M1CW+2          LOCATION OF ARGUMENT                         F3B07620    
       01356  0 40200 0 02237        SUB M1ABC+18        ONE ASTERISK                                 F3B07630    
       01357  0 10000 0 01401        TZE M13580          ARG IN MQ                                    F3B07640    
                                         ARG STORED                                                   F3B07650    
       01360  0 50000 0 02325        CLA M1CW+3          RELATIVE ADDRESS AND TAG (IF ANY)            F3B07660    
       01361 -0 32000 0 02207        ANA M1CON+15        ARG TAGGED,                                  F3B07670    
       01362  0 10000 0 01366        TZE M13570          ARG NOT TAGGED                               F3B07680    
       01363 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3B07690    
       01364  0 07400 4 01016        TSX M12500,4        CHANGE TAG TABLE SEARCH                      F3B07700    
       01365  0 76000 0 00143        PSE 99                                                           F3B07710    
       01366  0 07400 4 00707 M13570 TSX CIT00,4         COMPILE FIRST INST                           F3B07720    
       01367  0 00000 0 02322        HTR M1CW            INTERNAL FMLA NO.                            F3B07730    
       01370  0 00000 0 02215        HTR M1ABC           COMPILE ACLA INSTRUCTION                     F3B07740    
       01371  0 00000 0 02324        HTR M1CW+2                                                       F3B07750    
       01372  0 00000 0 02325        HTR M1CW+3                                                       F3B07760    
                                         ARG IN AC,(STORED)                                           F3B07770    
       01373  0 07400 4 00707 M13575 TSX CIT00,4         COMPILE FIRST (SECOND) INST                  F3B07780    
       01374  0 00000 0 02170        HTR M1CON           ZERO                                         F3B07790    
       01375  0 00000 0 02226        HTR M1ABC+9         SSP                                          F3B07800    
       01376  0 00000 0 02170        HTR M1CON           ZERO                                         F3B07810    
       01377  0 00000 0 02170        HTR M1CON           ZERO                                         F3B07820    
       01400  1 77777 1 00774        TXI M12035,1,-1     AIL ROUTINE                                  F3B07830    
                                         ARG IN MQ                                                    F3B07840    
       01401  0 50000 0 02242 M13580 CLA M1ABC+21        010000000000                                 F3B07850    
       01402  0 60100 0 02324        STO M1CW+2          LOCATION OF ARG                              F3B07860    
       01403  0 07400 4 00707        TSX CIT00,4         COMPILE FIRST INST                           F3B07870    
       01404  0 00000 0 02322        HTR M1CW            INT. FMLA NO.                                F3B07880    
       01405  0 00000 0 02224        HTR M1ABC+7         STQ                                          F3B07890    
       01406  0 00000 0 02324        HTR M1CW+2                                                       F3B07900    
       01407  0 00000 0 02325        HTR M1CW+3                                                       F3B07910    
       01410  0 02000 0 01366        TRA M13570          COMPILE INSTRUCTION AS IF STORED             F3B07920    
                                         XFIX, XINT, INT BRANCH                                       F3B07930    
       01411  0 76000 0 00144 M13595 PSE 100             FLOATING PT                                  F3B07940    
       01412  0 07400 4 02156 M13600 TSX ERROR1+1,4              INFO ON LOC OF ARG                   F3B07950    
       01413  0 60100 0 02324        STO M1CW+2          TO M1CW+2                                    F3B07960    
       01414  1 77777 1 01415        TXI M13605,1,-1                                                  F3B07970    
       01415  0 50000 1 02327 M13605 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B07980    
       01416  0 60100 0 02325        STO M1CW+3          TO M1CW+3                                    F3807990    
       01417  0 50000 0 02324        CLA M1CW+2          LOCATION OF ARG.                             F3B08000    
       01420  0 40200 0 02241        SUB M1ABC+20        PLUS SIGN                                    F3B08010    
       01421  0 10000 0 01440        TZE M13630          ARG IN AC                                    F3B08020    
       01422  0 50000 0 02324        CLA M1CW+2          LOCATION OF ARG.                             F3B08030    
       01423  0 40200 0 02237        SUB M1ABC+18        ASTERISK                                     F3B08040    
       01424  0 10000 0 01503        TZE M13670          ARG IN MQ                                    F3B08050    
                                         ARG STORED                                                   F3B08060    
       01425  0 50000 0 02325        CLA M1CW+3          4TH WORD                                     F3B08070    
       01426 -0 32000 0 02207        ANA M1CON+15        ARG TAGGED                                   F3B08080    
       01427  0 10000 0 01433        TZE M13620          NOT TAGGED                                   F3808090    
       01430 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3808100    
       01431  0 07400 4 01016        TSX M12500,4        CHTG TABLE SEARCH                            F3808110    
       01432  0 76000 0 00143        PSE 99                                                           F3B08120    
       01433  0 07400 4 00707 M13620 TSX CIT00,4         COMPILE FIRST INST                           F3B08130    
       01434  0 00000 0 02322        HTR M1CW            INT. FMLA NO. IF ANY.                        F3B08140    
       01435  0 00000 0 02215        HTR M1ABC           CLA INSTRUCTION                              F3808150    
       01436  0 00000 0 02324        HTR M1CW+2                                                       F3808160    
       01437  0 00000 0 02325        HTR M1CW+3                                                       F3B08170    
                                         ARG IN AC(STORED)                                            F3B08180    
       01440  0 07400 4 00707 M13630 TSX CIT00,4         COMPILE FIRST (SECOND) INST                  F3808190    
       01441  0 00000 0 02170        HTR M1CON           ZERO                                         F3808200    
       01442  0 00000 0 02227        HTR M1ABC+10        UFA OP CODE                                  F3B08210    
       01443  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3808220    
       01444  0 00000 0 02170        HTR M1CON           ZERO                                         F3808230    
       01445 -0 76000 0 00144        MSE 100             TEST FOR FL0ATING PT.                        F3808240    
       01446  0 02000 0 01450        TRA M13640          XINT                                         F3808250    
       01447  0 02000 0 01475        TRA M13660          INT                                          F3808260    
                                         XFIX, XINT, ARG STORED, IN AC, IN MQ                         F3808270    
       01450  0 07400 4 00707 M13640 TSX CIT00,4         COMPILE 4 INST                               F3808280    
       01451  0 00000 0 02170        HTR M1CON           ZERO                                         F3B08290    
       01452  0 00000 0 02220        HTR M1ABC+3         LRS INSTRUCTION                              F3B08300    
       01453  0 00000 0 02170        HTR M1CON           ZERO                                         F3808310    
       01454  0 00000 0 02170        HTR M1CON           ZERO                                         F3B08320    
       01455  0 07400 4 00707        TSX CIT00,4                                                      F3808330    
       01456  0 00000 0 02170        HTR M1CON                                                        F3B08340    
       01457  0 00000 0 02230        HTR M1ABC+11        ANA                                          F3B08350    
       01460  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3808360    
       01461  0 00000 0 02176        HTR M1CON+6                                                      F3B08370    
       01462  0 07400 4 00707        TSX CIT00,4         +000001000000                                F3B08380    
       01463  0 00000 0 02170        HTR M1CON                                                        F3B08390    
       01464  0 00000 0 02223        HTR M1ABC+6         LLS                                          F3B08400    
       01465  0 00000 0 02170        HTR M1CON                                                        F3B08410    
       01466  0 00000 0 02170        HTR M1CON                                                        F3808420    
       01467  0 07400 4 00707        TSX CIT00,4                                                      F3B08430    
       01470  0 00000 0 02170        HTR M1CON                                                        F3B08440    
       01471  0 00000 0 02221        HTR M1ABC+4         ALS                                          F3B08430    
       01472  0 00000 0 02170        HTR M1CON                                                        F3B08450    
       01473  0 00000 0 02203        HTR M1CON+11        +000022000000                                F3808470    
       01474  1 77777 1 00774        TXI M12035,1,-1     CONTINUE WITH ROUTINE                        F3B08480    
                                         INT, ARG STORED, IN AC, IN MQ                                F3B08490    
       01475  0 07400 4 00707 M13660 TSX CIT00,4         COMPILE 1 INST                               F3B08500    
       01476  0 00000 0 02170        HTR M1CON                                                        F3B085I0    
       01477  0 00000 0 02231        HTR M1ABC+12        FAD                                          F3B08520    
       01500  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3B08530    
       01501  0 00000 0 02170        HTR M1CON           ZERO                                         F3B08540    
       01502  1 77777 1 00774        TXI M12035,1,-1     CONTINUE WITH AIL ROUTINE                    F3B08550    
                                         XFIX, XINT, INT, ARG IN MQ                                   F3B08560    
       01503  0 50000 0 02242 M13670 CLA M1ABC+21        COMPILE FIRST INST                           F3B08570    
       01504  0 60100 0 02324        STO M1CW+2          010000000000                                 F3B08580    
       01505  0 07400 4 00707        TSX CIT00,4                                                      F3B08590    
       01506  0 00000 0 02322        HTR M1CW            INT, FMLA NO.                                F3B08600    
       01507  0 00000 0 02224        HTR M1ABC+7         STQ                                          F3B08610    
       01510  0 00000 0 02324        HTR M1CW+2                                                       F3B08620    
       01511  0 00000 0 02325        HTR M1CW+3                                                       F3B08630    
       01512  0 02000 0 01433        TRA M13620          TRANSFER TO CONTINUE AS STORED               F3B08640    
                                         ALL MUTIVARIATE FUNCTIONS                                    F3B08650    
       01513  0 76000 0 00144 M13680 PSE 100             PLACE SENSE SW. ON FOR FIXPT,                F3B08660    
       01514  0 50000 1 02325 M13681 CLA AIL-2,1         TEST INTERNAL FORMULA NO,                    F3B08670    
       01515  0 40200 0 02211        SUB M1CON+17        -377777777777, SHOULD BE AT                  F3B08680    
       01516  0 10000 0 02155        TZE ERROR1          LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS.   F3B08690    
       01517  0 50000 1 02327        CLA AIL,1           LOCATION OF ARGUMENT                         F3B08700    
       01520  0 60100 0 02324 RET3   STO M1CW+2          LOCATION OF ARGUMENT                         F3B08710    
       01521  1 77777 1 01522        TXI M13685,1,-1     ADJUST COUNT IN IR 1,                        F3B08720    
       01522  0 50000 1 02327 M13685 CLA AIL,1           REL ADD + TAG OF                             F3B08730    
       01523  0 60100 0 02325        STO M1CW+3          FIRST ARG TO M1CW+3                          F3B08740    
       01524  1 77777 1 01525        TXI M13690,1,-1                                                  F3B08750    
       01525 -0 75400 1 00000 M13690 PXD 0,1             END OF AIL REC                               F3B08760    
       01526  0 34000 0 02305        CAS M1ALWN          2S COMPLIMENT OF NO. OF WORDS                F3B08770    
       01527  0 02000 0 01532        TRA M13700          IN AIL RECORD                                F3B08780    
       01530  0 07400 4 00341        TSX M10210,4        BRING IN NEXT AIL REC.                       F3B08790    
       01531  0 07400 4 00004        TSX 4,4             N0 OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B08800    
       01532  0 50000 0 02325 M13700 CLA M1CW+3          REL. ADDRESS + TAG, IF ANY                   F3B08810    
       01533 -0 32000 0 02207        ANA M1CON+15        +000000002000                                F3B08820    
       01534  0 10000 0 01540        TZE M13710          FIRST ARG TAGGED                             F3B08830    
       01535 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3B08840    
       01536  0 07400 4 01016        TSX M12500,4        CHTG TABLE SEARCH                            F3B08850    
       01537  0 76000 0 00143        PSE 99                                                           F3B08860    
       01540  0 50000 0 02201 M13710 CLA M1CON+9         SIGN, MODULO OR MAX, MIN                     F3B08870    
       01541  0 34000 0 02312        CAS CCELL           COMPARE TO 10                                F3B08880    
       01542  0 76100 0 00000        NOP                                                              F3B08890    
       01543  0 02000 0 01706        TRA M13770          MAX OR MIN BRANCH                            F3B08900    
       01544  0 50000 0 02175        CLA M1CON+5         SIGN OR MODULO, +000012000000                F3B08910    
       01545  0 34000 0 02312        CAS CCELL                                                        F3B08920    
       01546  0 76100 0 00000        NOP                                                              F3B08930    
       01547  0 02000 0 02122        TRA M13950          SIGN BRANCH                                  F3B08940    
       01550 -0 76000 0 00144        MSE 100             XMOD OR MOD                                  F3B08950    
       01551  0 02000 0 01604        TRA M13735          FL0ATING PT., MOD BRANCH                     F3B08960    
                                         XM0D BRANCH                                                  F3B08970    
       01552  0 07400 4 00707        TSX CIT00,4         COMPILE 3 INST, FOR MULTIVARIATE             F3B08980    
       01553  0 00000 0 02322        HTR M1CW            XMOD.                                        F3B08990    
       01554  0 00000 0 02232        HTR M1ABC+13        CLM                                          F3B09000    
       01555  0 00000 0 02170        HTR M1CON                                                        F3B09010    
       01556  0 00000 0 02170        HTR M1CON                                                        F3B09020    
       01557  0 07400 4 00707        TSX CIT00,4                                                      F3B09030    
       01560  0 00000 0 02170        HTR M1CON                                                        F3B09040    
       01561  0 00000 0 02216        HTR M1ABC+1         LDQ                                          F3B09050    
       01562  0 00000 0 02324        HTR M1CW+2          A                                            F3B09060    
       01563  0 00000 0 02325        HTR M1CW+3                                                       F3B09070    
       01564  0 07400 4 00707        TSX CIT00,4                                                      F3B09080    
       01565  0 00000 0 02170        HTR M1CON                                                        F3B09090    
       01566  0 00000 0 02223        HTR M1ABC+6         LLS                                          F3B09100    
       01567  0 00000 0 02170        HTR M1CON                                                        F3B09110    
       01570  0 00000 0 02170        HTR M1CON                                                        F3B09120    
       01571  0 50000 0 02170        CLA M1CON           ZERO, T0 REPLACE 1,S.                        F3B09130    
       01572  0 60100 0 02322        STO M1CW            INTERNAL FMLA NO.                            F3B09140    
       01573  0 50000 0 02233        CLA M1ABC+14        DVP OP CODE                                  F3B09150    
       01574  0 60100 0 02323        STO M1CW+1                                                       F3B09160    
       01575  1 77776 1 01576        TXI M13725,1,-2     DECREASE IR 1 BY 2                           F3B09170    
       01576  0 07400 4 02156 M13725 TSX ERROR1+1,4      CHECK FOR END OF CALLING SEQUENCE            F3B09180    
       01577  0 60100 0 02324        STO M1CW+2          SYMBOLIC ADDRESS OF 2ND ARGUM.               F3B09190    
       01600  1 77777 1 01601        TXI M13730,1,-1                                                  F3B09200    
       01601  0 50000 1 02327 M13730 CLA AIL,1           REL ADD AND TAG 0,                           F3B09210    
       01602  0 60100 0 02325        STO M1CW+3          SECOND ARG TO M1CW+3                         F3B09220    
       01603  1 77777 1 00762        TXI M12022,1,-1     BACK T0 END OF AIL ROUTINE                   F3B09230    
                                         MOD BRANCH                                                   F3B09240    
       01604  0 07400 4 00707 M13735 TSX CIT00,4         COMPILE FIRST INST                           F3B09250    
       01605  0 00000 0 02322        HTR M1CW                                                         F3B09260    
       01606  0 00000 0 02250        HTR M1ABC+27        CLS A                                        F3B09270    
       01607  0 00000 0 02324        HTR M1CW+2                                                       F3B09280    
       01610  0 00000 0 02325        HTR M1CW+3                                                       F3B09290    
       01611  0 50000 0 02324        CLA M1CW+2          SAVE FIRST ARG IN 3RD WORD                   F3B09300    
       01612  0 60100 0 02320        STO 3WD                                                          F3B09310    
       01613  0 50000 0 02325        CLA M1CW+3          SAVE REL ADD AND TAG IN 4WD                  F3B09320    
       01614  0 60100 0 02321        STO 4WD                                                          F3B09330    
       01615  1 77776 1 01616        TXI M13741,1,-2                                                  F3B09340    
       01616  0 07400 4 02156 M13741 TSX ERROR1+1,4      CHECK THAT NEXT WORD IS LAST ARG.            F3B09350    
       01617  0 60100 0 02324        STO M1CW+2          SYMBOLIC AD OF 2ND ARG.                      F3B09360    
       01620  1 77777 1 01621        TXI M13745,1,-1                                                  F3B09370    
       01621  0 50000 1 02327 M13745 CLA AIL,1           REL ADD AND TAG OF                           F3B09380    
       01622  0 60100 0 02325        STO M1CW+3          SECOND ARG T0 M1CW+3                         F3B09390    
       01623 -0 32000 0 02207        ANA M1CON+15        TEST IF TAGGED                               F3B09400    
       01624  0 10000 0 01630        TZE M13755          SECOND ARG TAGGED                            F3B09410    
       01625 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3B09420    
       01626  0 07400 4 01016        TSX M12500,4        BACK TO AIL ROUTINE                          F3B09430    
       01627  0 76000 0 00143        PSE 99                                                           F3B09440    
       01630  0 07400 4 00707 M13755 TSX CIT00,4         COMPILE LAST 9 INSTS                         F3B09450    
       01631  0 00000 0 02170        HTR M1CON                                                        F3B09460    
       01632  0 00000 0 02234        HTR M1ABC+15        FDP B                                        F3B09470    
       01633  0 00000 0 02324        HTR M1CW+2                                                       F3B09480    
       01634  0 00000 0 02325        HTR M1CW+3                                                       F3B09490    
       01635  0 07400 4 00707        TSX CIT00,4                                                      F3B09500    
       01636  0 00000 0 02170        HTR M1CON                                                        F3B09510    
       01637  0 00000 0 02224        HTR M1ABC+7         STQ                                          F3B09520    
       01640  0 00000 0 02242        HTR M1ABC+21        010000000000                                 F3B09530    
       01641  0 00000 0 02170        HTR M1CON                                                        F3B09540    
       01642  0 07400 4 00707        TSX CIT00,4                                                      F3B09550    
       01643  0 00000 0 02170        HTR M1CON                                                        F3B07560    
       01644  0 00000 0 02215        HTR M1ABC           CLA                                          F3B09570    
       01645  0 00000 0 02242        HTR M1ABC+21        010000000000                                 F3B09580    
       01646  0 00000 0 02170        HTR M1CON                                                        F3B09590    
       01647  0 07400 4 00707        TSX CIT00,4                                                      F3B09600    
       01650  0 00000 0 02170        HTR M1CON                                                        F3B09610    
       01651  0 00000 0 02227        HTR M1ABC+10        UFA                                          F3B09620    
       01652  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3B09630    
       01653  0 00000 0 02170        HTR M1CON                                                        F3B09640    
       01654  0 07400 4 00707        TSX CIT00,4                                                      F3B09650    
       01655  0 00000 0 02170        HTR M1CON                                                        F3B09660    
       01656  0 00000 0 02231        HTR M1ABC+12        FAD                                          F3B09670    
       01657  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3B09680    
       01660  0 00000 0 02170        HTR M1CON                                                        F3B09690    
       01661  0 07400 4 00707        TSX CIT00,4                                                      F3B09700    
       01662  0 00000 0 02170        HTR M1CON                                                        F3B09710    
       01663  0 00000 0 02222        HTR M1ABC+5         STO                                          F3B09720    
       01664  0 00000 0 02242        HTR M1ABC+21        060000000000                                 F3B09730    
       01665  0 00000 0 02170        HTR M1CON                                                        F3B09740    
       01666  0 07400 4 00707        TSX CIT00,4                                                      F3B09750    
       01667  0 00000 0 02170        HTR M1CON                                                        F3B09760    
       01670  0 00000 0 02216        HTR M1ABC+1         LDQ                                          F3B09770    
       01671  0 00000 0 02242        HTR M1ABC+21        060000000000                                 F3B09780    
       01672  0 00000 0 02170        HTR M1CON                                                        F3B09790    
       01673  0 07400 4 00707        TSX CIT00,4                                                      F3B09800    
       01674  0 00000 0 02170        HTR M1CON                                                        F3B09810    
       01675  0 00000 0 02225        HTR M1ABC+8         FMP                                          F3B09820    
       01676  0 00000 0 02324        HTR M1CW+2          B                                            F3B09830    
       01677  0 00000 0 02325        HTR M1CW+3                                                       F3B09840    
       01700  0 07400 4 00707        TSX CIT00,4                                                      F3B09850    
       01701  0 00000 0 02170        HTR M1CON                                                        F3B09860    
       01702  0 00000 0 02231        HTR M1ABC+12        FAD                                          F3B09870    
       01703  0 00000 0 02320        HTR 3WD             A                                            F3B09880    
       01704  0 00000 0 02321        HTR 4WD                                                          F3B09890    
       01705  1 77777 1 00774        TXI M12035,1,-1     AIL ROUTINE                                  F3B09900    
                                         MAX, MIN BRANCH                                              F3B09910    
       01706  0 50000 0 02200 M13770 CLA M1CON+8         +000004000000                                F3B09920    
       01707  0 34000 0 02312        CAS CCELL           FOR MIN BRANCH                               F3B09930    
       01710  0 76100 0 00000        NOP                                                              F3B09940    
       01711  0 02000 0 02017        TRA M13855          MIN BRANCH                                   F3B09950    
                                         ALL MAX ROUTINES                                             F3B09960    
       01712  0 07400 4 00707        TSX CIT00,4         COMPILE FIRST INST                           F3B09970    
       01713  0 00000 0 02322        HTR M1CW                                                         F3B09980    
       01714  0 00000 0 02215        HTR M1ABC           CLA A1                                       F3B09990    
       01715  0 00000 0 02324        HTR M1CW+2          SYMBOLIC ADDRESS OF FIRST ARGUHENT           F3B10000    
       01716  0 00000 0 02325        HTR M1CW+3          RELATIVE ADDRESS + TAG, IF ANY               F3B10010    
       01717  0 50000 1 02327 M13780 CLA AIL,1           END MARK, IF ANY, TO ENDT, THIS WILL         F3B10020    
       01720  0 60100 0 02313        STO ENDT            BE ALL 1S IF END.                            F3B10030    
       01721  1 77776 1 01722        TXI M13785,1,-2                                                  F3B10040    
       01722  0 50000 1 02327 M13785 CLA AIL,1           SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N F3B10050    
       01723  0 60100 0 02324        STO M1CW+2          TO M1CW+2                                    F3B10060    
       01724  1 77777 1 01725        TXI M13790,1,-1                                                  F3B10070    
       01725  0 50000 1 02327 M13790 CLA AIL,1           REL ADD AND TAG OF                           F3B10080    
       01726  0 60100 0 02325        STO M1CW+3          ITH ARG T0 M1CW+3                            F3B10090    
       01727 -0 32000 0 02207        ANA M1CON+15        TEST IF ITHARGUMENT TAGGED                   F3B10100    
       01730  0 10000 0 01734        TZE M13800          ITH ARG NOT TAGGED                           F3B10110    
       01731 -0 76000 0 00143        MSE 99              END OF CHTG TABLE                            F3B10120    
       01732  0 07400 4 01016        TSX M12500,4        CHTG TABLE SEARCH                            F3B10)30    
       01733  0 76000 0 00143        PSE 99                                                           F3B10140    
       01734  0 50000 0 02200 M13800 CLA M1CON+8         000004000000                                 F3B10150    
       01735  0 34000 0 02312        CAS CCELL           COMPARE FOR MINIMUM BR.                      F3B10160    
       01736  0 76100 0 00000        NOP                                                              F3B10170    
       01737  0 02000 0 02025        TRA M13860          MIN BRANCH                                   F3B10180    
       01740  0 07400 4 00707        TSX CIT00,4         COMPILE 3 INSTRUCTIONS FOR                   F3B10190    
       01741  0 00000 0 02170        HTR M1CON           ITH ARG                                      F3810200    
       01742  0 00000 0 02216        HTR M1ABC+1         LDQ                                          F3B10210    
       01743  0 00000 0 02324        HTR M1CW+2          ITH ARGUMENT I=2....,N                       F3B10220    
       01744  0 00000 0 02325        HTR M1CW+3                                                       F3B10230    
       01745  0 07400 4 00707        TSX CIT00,4                                                      F3B10240    
       01746  0 00000 0 02170        HTR M1CON                                                        F3B10250    
       01747  0 00000 0 02235        HTR M1ABC+16        TLQ                                          F3810260    
       01750  0 00000 0 02245        HTR M1ABC+24        +170000000000                                F3B10270    
       01751  0 00000 0 02177        HTR M1CON+7         +000002000000                                F3810280    
       01752  0 07400 4 00707        TSX CIT00,4                                                      F3B10290    
       01753  0 00000 0 02170        HTR M1CON                                                        F3B10300    
       01754  0 00000 0 02215        HTR M1ABC           CLA AI                                       F3B10310    
       01755  0 00000 0 02324        HTR M1CW+2                                                       F3B10320    
       01756  0 00000 0 02325        HTR M1CW+3                                                       F3B10330    
       01757  0 50000 0 02313        CLA ENDT            I=N                                          F3B10340    
       01760  0 40200 0 02211        SUB M1CON+17        -377777777777                                F3B10350    
       01761  0 10000 0 01771        TZE M13830          LAST ARGUMENT                                F3B10360    
       01762  1 77777 1 01763        TXI M13820,1,-1                                                  F3B10370    
       01763 -0 75400 1 00000 M13820 PXD 0,1             END OF AIL REC                               F3B10380    
       01764  0 34000 0 02305        CAS M1ALWN          2S COMPL. OF NO. OF WORS OF AIL REC          F3810390    
       01765  0 02000 0 01717        TRA M13780          TO COMPILE INSTR. FOR ALL ARGUMENTS          F3810400    
       01766  0 07400 4 00341        TSX M10210,4        PACK TO READ NEXT AIL RECORD                 F3810410    
       01767  0 07400 4 00004        TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3810420    
       01770  0 02000 0 01717        TRA M13780                                                       F3810430    
       01771 -0 76000 0 00144 M13830 MSE 100             TEST FOR FIXED PT AND TURN OFF SW.           F3B10440    
       01772  1 77777 1 00774        TXI M12035,1,-1     OUT FOR XMAX0, MAX1, XMIN0, MIN1             F3810450    
       01773  0 50000 0 02312        CLA CCELL           NO. OF FUNCTION FIXED MAX.                   F3810460    
       01774  0 77100 0 00022        ARS 18                                                           F3B10470    
       01775  0 76000 0 00001        LBT                 TEST FOR FLOATING MAX OR MIN                 F3B10480    
       01776  0 02000 0 01440        TRA M13630          XMAX1, XMIN1, FIXED MIX OR MIN               F3810490    
       01777  0 07400 4 00707        TSX CIT00,4         COMPILE LAST 3 INSTRUCTIONS                  F3B10500    
       02000  0 00000 0 02170        HTR M1CON           FOR MAX0, MIN0                               F3810510    
       02001  0 00000 0 02220        HTR M1ABC+3         LRS                                          F3B10520    
       02002  0 00000 0 02170        HTR M1CON                                                        F3810530    
       02003  0 00000 0 02203        HTR M1CON+11        18                                           F3B10540    
       02004  0 07400 4 00707        TSX CIT00,4                                                      F3B10550    
       02005  0 00000 0 02170        HTR M1CON                                                        F3B10560    
       02006  0 00000 0 02244        HTR M1ABC+23        ORA                                          F3B10570    
       02007  0 00000 0 02243        HTR M1ABC+22        06000D000000                                 F3B10580    
       02010  0 00000 0 02170        HTR M1CON                                                        F3810590    
       02011  0 07400 4 00707        TSX CIT00,4                                                      F3B10600    
       02012  0 00000 0 02170        HTR M1CON                                                        F3810610    
       02013  0 00000 0 02231        HTR M1ABC+12        FAD                                          F3B10620    
       02014  0 00000 0 02243        HTR M1ABC+22        060000000000                                 F3B10630    
       02015  0 00000 0 02170        HTR M1CON                                                        F3810640    
       02016  1 77777 1 00774        TXI M12035,1,-1     BACK TO END OF AIL ROUTINE                   F3B10650    
                                         ALL MIN ROUTINE COMPILE FIRST INST                           F3B10660    
       02017  0 07400 4 00707 M13855 TSX CIT00,4                 COMPILE FIRST INST                   F3B10670    
       02020  0 00000 0 02322        HTR M1CW                                                         F3810680    
       02021  0 00000 0 02216        HTR M1ABC+1         LDQ A1                                       F3B10690    
       02022  0 00000 0 02324        HTR M1CW+2                                                       F3810700    
       02023  0 00000 0 02325        HTR M1CW+3                                                       F3B10710    
       02024  0 02000 0 01717        TRA M13780          TO STORE NEEDED INFORMATION                  F3810720    
       02025  0 07400 4 00707 M13860 TSX CIT00,4         COMPILE 3 INST FOR                           F3B10730    
       02026  0 00000 0 02170        HTR M1CON           ITH ARG                                      F3B10740    
       02027  0 00000 0 02215        HTR M1ABC           CLA A2....N                                  F3B10750    
       02030  0 00000 0 02324        HTR M1CW+2                                                       F3810760    
       02031  0 00000 0 02325        HTR M1CW+3                                                       F3810770    
       02032  0 07400 4 00707        TSX CIT00,4                                                      F3810780    
       02033  0 00000 0 02170        HTR M1CON                                                        F3B10790    
       02034  0 00000 0 02235        HTR M1ABC+16        TLQ                                          F3B10800    
       02035  0 00000 0 02245        HTR M1ABC+24        +000002000000                                F3B10810    
       02036  0 00000 0 02177        HTR M1CON+7         +170000000000                                F3B10820    
       02037  0 07400 4 00707        TSX CIT00,4                                                      F3B10830    
       02040  0 00000 0 02170        HTR M1CON                                                        F3810840    
       02041  0 00000 0 02216        HTR M1ABC+1         LDQ A2....N                                  F3B10850    
       02042  0 00000 0 02324        HTR M1CW+2                                                       F3B10860    
       02043  0 00000 0 02325        HTR M1CW+3                                                       F3B10870    
       02044  0 50000 0 02313        CLA ENDT            I=N                                          F3B10880    
       02045  0 40200 0 02211        SUB M1CON+17        -377777777777                                F3B10890    
       02046  0 10000 0 02050        TZE M13880          LAST ARGUMENT                                F3B10900    
       02047  1 77777 1 01763        TXI M13820,1,-1     TO TEST IF END OF AIL RECORD                 F3B10910    
       02050  0 07400 4 00707 M13880 TSX CIT00,4         COMPILE TWO INST.                            F3B10920    
       02051  0 00000 0 02170        HTR M1CON                                                        F3B10930    
       02052  0 00000 0 02224        HTR M1ABC+7         STQ                                          F3B10940    
       02053  0 00000 0 02242        HTR M1ABC+21        010000000000                                 F3B10950    
       02054  0 00000 0 02170        HTR M1CON                                                        F3B10960    
       02055  0 07400 4 00707        TSX CIT00,4                                                      F3B10970    
       02056  0 00000 0 02170        HTR M1CON                                                        F3B10980    
       02057  0 00000 0 02215        HTR M1ABC           CLA                                          F3B10990    
       02060  0 00000 0 02242        HTR M1ABC+21        010000000000                                 F3B11000    
       02061  0 00000 0 02170        HTR M1CON                                                        F3B11010    
       02062  0 02000 0 01771        TRA M13830          TEST SW, 4 AND GO TO VARIOUS ROUTES          F3B11020    
                                         FLOAT BRANCH                                                 F3B11030    
       02063  0 07400 4 02156 M13900 TSX ERROR1+1,4      TO TEST IF ONLY ONE ARGUMENT                 F3B11040    
       02064  0 60100 0 02324        STO M1CW+2          SYMBOLIC LOCATION OF ARGUMENT                F3B11050    
       02065  1 77777 1 02066        TXI M13905,1,-1                                                  F3B11060    
       02066  0 50000 1 02327 M13905 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B11070    
       02067  0 60100 0 02325        STO M1CW+3          TO M1CW+3                                    F3B11080    
       02070  0 50000 0 02324        CLA M1CW+2                                                       F3B11090    
       02071  0 40200 0 02241        SUB M1ABC+20        PLUS SIGN                                    F3B11100    
       02072  0 10000 0 02111        TZE M13915          ARG IN AC                                    F3B11110    
       02073  0 50000 0 02324        CLA M1CW+2                                                       F3B11120    
       02074  0 40200 0 02237        SUB M1ABC+18        ASTERISK                                     F3B11130    
       02075  0 10000 0 02112        TZE M13920          ARG IN MQ                                    F3B11140    
       02076  0 50000 0 02325        CLA M1CW+3          RELATIVE ADDRESS AND TAG, IF ANY             F3B11150    
       02077 -0 32000 0 02207        ANA M1CON+15                                                     F3B11160    
       02100  0 10000 0 02104        TZE M13910          ARG NOT TAGGED                               F3811170    
       02101 -0 76000 0 00143        MSE 99                                                           F3B11190    
       02102  0 07400 4 01016        TSX M12500,4        CHTG TABLE SEARCH                            F3B11190    
       02103  0 76000 0 00143        PSE 99                                                           F3B11200    
       02104  0 07400 4 00707 M13910 TSX CIT00,4                                                      F3B11210    
       02105  0 00000 0 02322        HTR M1CW                                                         F3B11220    
       02106  0 00000 0 02215        HTR M1ABC           CLA A                                        F3B11230    
       02107  0 00000 0 02324        HTR M1CW+2                                                       F3811240    
       02110  0 00000 0 02325        HTR M1CW+3                                                       F3811250    
                                         ARG IN AC (STORED)                                           F3B11260    
       02111  0 02000 0 01777 M13915 TRA M13830+6        TO COMILE 3 INSTR. AS MAX OR MIN             F3B11270    
                                         ARG IN MQ                                                    F3B11280    
       02112  0 50000 0 02242 M13920 CLA M1ABC+21        010000000000                                 F3B11290    
       02113  0 60100 0 02324        STO M1CW+2          SYMBOLIC LOCATION                            F3B11300    
       02114  0 07400 4 00707        TSX CIT00,4                                                      F3B11320    
       02115  0 00000 0 02322        HTR M1CW                                                         F3B11330    
       02116  0 00000 0 02224        HTR M1ABC+7         STQ                                          F3B11340    
       02117  0 00000 0 02324        HTR M1CW+2                                                       F3B11350    
       02120  0 00000 0 02325        HTR M1CW+3                                                       F3B11360    
       02121  0 02000 0 02104        TRA M13910          TO COMPILE A CLA INSTRUCTION                 F3B11370    
                                         XSIGN, SIGN BRANCH                                           F3B11380    
       02122  0 07400 4 00707 M13950 TSX CIT00,4                                                      F3B11390    
       02123  0 00000 0 02322        HTR M1CW                                                         F3B11400    
       02124  0 00000 0 02215        HTR M1ABC           CLA A1                                       F3B11410    
       02125  0 00000 0 02324        HTR M1CW+2                                                       F3B11420    
       02126  0 00000 0 02325        HTR M1CW+3                                                       F3B11430    
       02127  1 77776 1 02130        TXI M13955,1,-2     DECREASE IR 1 BY -2                          F3B11440    
       02130  0 07400 4 02156 M13955 TSX ERROR1+1,4      TEST IF ONLY 2 ARGUMENTS                     F3B11450    
       02131  0 60100 0 02324        STO M1CW+2          SYMBOLIC ADDRESS.                            F3B11460    
       02132  1 77777 1 02133        TXI M13960,1,-1                                                  F3B11470    
       02133  0 50000 1 02327 M13960 CLA AIL,1           REL ADD AND TAG, IF ANY, TO                  F3B11480    
       02134  0 60100 0 02325        STO M1CW+3          M1CW+3                                       F3B11490    
       02135 -0 32000 0 02207        ANA M1CON+15                ARG TAGGED                           F3B11500    
       02136  0 10000 0 02142        TZE M13965          ARG NOT TAGGED                               F3B11510    
       02137 -0 76000 0 00143        MSE 99                                                           F3B11520    
       02140  0 07400 4 01016        TSX M12500,4        BACK T0 CHTG TABLE SEARCH                    F3B11530    
       02141  0 76000 0 00143        PSE 99                                                           F3B11540    
       02142  0 07400 4 00707 M13965 TSX CIT00,4                                                      F3B11550    
       02143  0 00000 0 02170        HTR M1CON                                                        F3B11560    
       02144  0 00000 0 02216        HTR M1ABC+1         LDQ A2                                       F3B11570    
       02145  0 00000 0 02324        HTR M1CW+2                                                       F3B11580    
       02146  0 00000 0 02325        HTR M1CW+3                                                       F3B11590    
       02147  0 07400 4 00707        TSX CIT00,4                                                      F3B11600    
       02150  0 00000 0 02170        HTR M1CON                                                        F3B11610    
       02151  0 00000 0 02223        HTR M1ABC+6         LLS                                          F3B11620    
       02152  0 00000 0 02170        HTR M1CON                                                        F3B11630    
       02153  0 00000 0 02170        HTR M1CON                                                        F3B11640    
       02154  1 77777 1 00774        TXI M12035,1,-1     AIL ROUTINE                                  F3B11650    
       02155  0 07400 4 00004 ERROR1 TSX 4,4             A MULT1 VARIATE FN. HAS ONLY 1 VARIABLE      F3B11660    
       02156  0 50000 1 02325 ERR1   CLA AIL-2,1         INT. FORMULA NO. OF ARGURMENT                F3B11670    
       02157  0 40200 0 02211        SUB M1CON+17        -377777777777                                F3B11680    
       02160 -0 10000 0 02163        TNZ ERROR2          SHOULD BE ALL 1S, FOR PARTICULAR ROUTINE     F3B11690    
       02161  0 50000 1 02327        CLA AIL,1           LOCATION OF ARGUMENT                         F3B11700    
       02162  0 02000 4 00001        TRA 1,4             BACK TO CONTINUE                             F3B11710    
       02163  0 07400 4 00004 ERROR2 TSX 4,4             A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT    F3B11720    
       02164 +000000000005    M1ECTR DEC 5,6,0,0                                                      F3B11730    
       02165 +000000000006    
       02166 +000000000000    
       02167 +000000000000    
       02170 +000000000000    M1CON  DEC 0,1,2,3,4,10B17,1B17,2B17,4B17,8B17,17B17,18B17,35B17        F3B11740    
       02171 +000000000001    
       02172 +000000000002    
       02173 +000000000003    
       02174 +000000000004    
       02175 +000012000000    
       02176 +000001000000    
       02177 +000002000000    
       02200 +000004000000    
       02201 +000010000000    
       02202 +000021000000    
       02203 +000022000000    
       02204 +000043000000    
       02205 +077777000000           OCT 77777000000,77777,2000,370,777777777777,1000001,312,314      F3B11750    
       02206 +000000077777    
       02207 +000000002000    
       02210 +000000000370    
       02211 -377777777777    
       02212 +000001000001    
       02213 +000000000312    
       02214 +000000000314    
       02215  234321000000    M1ABC  BCD 7CLA000LDQ000MPY000LRS000ALS000STO000LLS000                  F3B11760    
       02216  432450000000    
       02217  444770000000    
       02220  435162000000    
       02221  214362000000    
       02222  626346000000    
       02223  434362000000    
       02224  626350000046           BCD 7STQ00OFMP000SSP000UFA000ANA00OFAD000CLM000                  F3B11770    
       02225  264447000000    
       02226  626247000000    
       02227  642621000000    
       02230  214521000046    
       02231  262124000000    
       02232  234344000000    
       02233  246547000046           BCD 7DVP00OFDP000TLQ000RTB000*000000*0000+00000                  F3B11780    
       02234  262447000000    
       02235  634350000000    
       02236  516322000000    
       02237  540000000000    
       02240  005400000000    
       02241  200000000000    
       02242  010000000000           BCD 3100000600000ORA000                                          F3B11790    
       02243  060000000000    
       02244  465121000000    
       02245 +170000000000           OCT 170000000000                                                 F3B11800    
       02246  626724000000           BCD 3SXD000WTB000CLS000                                          F3B11810    
       02247  666322000000    
       02250  234362000000    
       02251  672122626060    M1D    BCD 7XABS  ABS   XINT  INT   XFIX  FLOAT XMOD                    F3B11820    
       02252  212262606060    
       02253  673145636060    
       02254  314563606060    
       02255  672631676060    
       02256  264346216360    
       02257  674446246060    
       02260  444624606060           BCD 4MOD   XSIGN SIGN  XMAX0                                     F3B11830    
       02261  676231274560    
       02262  623127456060    
       02263  674421670060    
       02264  442167016060           BCD 7MAX1  XMAX1 MAX0  XMIN0 MIN1  XMIN1 MIN0                    F3B11840    
       02265  674421670160    
       02266  442167006060    
       02267  674431450060    
       02270  443145016060    
       02271  674431450160    
       02272  443145006060    
       02273  0 00000 0 00000 COMBOX      TAG OR 1NT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT         F3B11850    
       02274  0 00000 0 00000 CHTGL       2S COMP OF NO OF WORDS IN CHTG TABLE                        F3B11860    
       02275  0 00000 0 00000 CHTGE1      2S COMP OF CUR. ENTRY POINT IN CHTG TABLE                   F3B11870    
       02276  0 00000 0 00000 CHTGE2      2S COMP OF NEXT ENTRY POINT IN CHTG TABLE                   F3B11880    
       02277  0 00000 0 00000 CHTGFN      INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK           F3B11890    
       02300  0 00000 0 00000 SXTXL       LENGTH OF SXTX TABLE                                        F3B11900    
       02301  0 00000 0 00000 SXLOC       LOCATION WORD OF CURRENT DO INST                            F3B11910    
       02302  0 00000 0 00000 CBOX        IRC DURING CHTG TABLE SEARCH, SXTX TABLE SEARCH             F3B11920    
       02303  0 00000 0 00000 TAGB0X      TAG OF CUR AIL INST DURING CHTG TABLE SEARCH                F3B11930    
       02304  0 00000 0 00000 M1DOWN      2S COMP OF N0 OF WORDS IN CUR DO REC                        F3B11940    
       02305  0 00000 0 00000 M1ALWN      2S COMP OF N0 OF WORDS IN CUR AIL REC                       F3B11950    
       02306  0 00000 0 00000 M1TRC       NO OF REC READS                                             F3B11960    
       02307  0 00000 0 00000 M1DOFN      INT FMLA NO OF CUR BLOCK OF DO INST                         F3B11970    
       02310  0 00000 0 00000 M1ALFN      INT FMLA NO OF CUR BLOCK OF AIL INST                        F3B11980    
       02311  0 00000 0 00000 CCOUNT      COUNT NO OF PAIRS OF MPY,LRS INST FOR EXP ROUTINE           F3B11990    
       02312  0 00000 0 00000 CCELL       IND SPECIAL OP ROUTINE                                      F3B12000    
       02313  0 00000 0 00000 ENDT        IND APPEARANCE OF END MARK IN MAX,MIN ROUTINES              F3B12010    
       02314  0 00000 0 00000 E1C         CELL FOR SAVING MQ                                          F3B12020    
       02315  0 00000 0 00000 E2C         CELL FOR SAVING IRA                                         F3B12030    
       02316  0 00000 0 00000 E3C         CELL FOR SAVING IRB                                         F3B12040    
       02317  0 00000 0 00000 BB0X        2S COMP OF NO OF WORDS  ALREADY ENTERED IN BLOCK            F3B12050    
       02320  0 00000 0 00000 3WD         TEHP STORAGE FOR THID WD OF COMPILED INST                   F3B12060    
       02321  0 00000 0 00000 4WD         TEHP STORAGE FORF0URTH WD OF COMPILED INST                  F3B12070    
                        02322 M1CW   BSS 4 FOUR WORD INST SPACE FOR COMPILING                         F3B12080    
       02326  0 00000 0 00000        PZE  LENGTH OF FORTAG TABLE                                      F3B12090    
                        02327 FORTAG BSS 1500 AIL,DO,CIB LATER SHARE THIS BLOCK                       F3B12100    
                        05263 UCHTG  BSS 300                                                          F3B12110    
                        05737 ERAS   BSS 2  ORIGEN + SXTX LENGTH, SXTX, CHTG LENGTH                   F3B12120    
                        05741 CHTG   BSS 600                                                          F3B12130    
                        02327 AIL    SYN FORTAG                                                       F3B12140    
                        02473 DO     SYN FORTAG+100                                                   F3B12150    
                        02637 CIB    SYN FORTAG+200                                                   F3B12160    
                        03003 SXTX   SYN FORTAG+300                                                   F3B12170    
                        07073  0P1   SYN 3643                                                                     
                        00030        END 24                                                           F3B13420    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    1219           0           0           0           0
 LIB       0           0           0           0           0
 COL    1219           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1287                  
0NUMBER OF SYMBOLS,  DEF   242,DEFOP     0,UNDEF     0      
9            REM    MASTER RECORD CARD = FN058                                            
1                                           MASTER RECORD CARD = FN058                                            
                                         THE FOLLOWING PROGRAM CONSTITUTES THE SECOND SECTION OF THE  F3B00010    
                                         MERGE. IT PREPARES THE TIFGO FILE OF COMPILED INSTRUCTIONS   F3B00020    
                                         - I.E., THE INSTRUCTIONS WHICH ARE NEEDED TO COMPLETE THE    F3800030    
                                         TRANSLATION OF CONTR0L FORMULAS AS WELL AS THOSE WHICH BECOMEF3B00040    
                                         NECESSARY AS A RESULT OF THE INTERRELATION BETWEEN CONTROL   F3B00050    
                                         FORMULAS AND DO FORMULAS - FOR LATER MERGING WITH THE FILE OFF3B00060    
                                         INSTRUCTIONS CREATED IN THE FIRST SECTION OF THE MERGE       F3B00070    
                        00030        ORG 24                                                           F3B00080    
                                         POSITIONING OF TAPE 2, TAPE 3, TAPE 4                        F3B00090    
       00030  0 53400 4 02274 M20000 LXA M2CON,4         PLACE A ZERO IN IR 4                         F3B00100    
       00031  1 00013 4 00032 CDR1   TXI M20000+2,4,11   ADD 13 FOR SPACING TAPE TO TIFGO TABLE       F3B00110    
       00032  0 76200 0 00222        RDS 146             POSITION TAPE 2 TO TIFGO TABLE, BY SPACING   F3B00120    
       00033  2 00001 4 00032        TIX M20000+2,4,1    OVER 7 RECORDS                               F3B00130    
       00034  0 77200 0 00223        REW 147             REWIND TAPE 3                                F3B00140    
       00035  0 77200 0 00224        REW 148             REWIN0 TAPE 4                                F3B00150    
                                         PROGRAM TO READ TRASTO FROM DRUM                             F3B00160    
       00036  0 53400 4 02330        LXA M2ECTR,4        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B00170    
       00037  0 76200 0 00303  RDRA2 RDR 3               SELECT DRUM 3                                F3B00180    
       00040  0 46000 0 02332        LDA O456            LOCATE DRUM ADDRESS OF TRASTO                F3B00190    
       00041  0 70000 0 02345        CPY TRSWC           WORD COUNT                                   F3B00200    
       00042  0 70000 0 02346        CPY WCCHS           CHECK SUM                                    F3B00210    
       00043  0 50000 0 02345        CLA TRSWC           DOES WORD COUNT AGREE                        F3B00220    
       00044  0 40200 0 02346        SUB WCCHS           WITH ITS CHECK SUM                           F3B00230    
       00045  0 10000 0 00050        TZE RDRA1           YES                                          F3B00240    
       00046  2 00001 4 00037        TIX RDRA2,4,1       NO, TRY 4 MORE TIMES                         F3B00250    
       00047  0 07400 4 00004        TSX 4,4             WORD COUNT MOT EQUAL TO CHECK SUM            F3B00260    
       00050  0 50000 0 02345  RDRA1 CLA TRSWC           ARE THERE ENTRIES IN TRASTO                  F3B00270    
       00051  0 10000 0 00321        TZE RTT00           NO                                           F3B00280    
       00052  0 40000 0 02333        ADD ORTRST          INITIAL LOCATION OF TRASTO WORK AREA         F3B00290    
       00053  0 62100 0 00062        STA RDRB1           INITIALIZE ADDRESSES OF CPY INSTR.           F3B00300    
       00054  0 62100 0 00070        STA RDRB2                                                        F3B00310    
       00055  0 62100 0 00100        STA RDRB5                                                        F3B00320    
       00056  0 53400 4 02330        LXA M2ECTR,4        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B00330    
       00057  0 76200 0 00303 RDRA3  RDR 3               SELECT DRUM 3                                F3B00340    
       00060  0 53400 1 02345        LXA TRSWC,1         PLACE WORD COUNT IN IR 1                     F3B00350    
       00061  0 46000 0 02336        LDA O460            INITIAL DRUM ADDRESS                         F3B00360    
       00062  0 70000 1 00000  RDRB1 CPY 0,1             AND COPY ALL OF THE TRASTO                   F3B00370    
       00063  2 00001 1 00062        TIX RDRB1,1,1       ENTRIES.                                     F3B00380    
       00064  0 76000 0 00000        CLM                 CLEAR ACC.                                   F3B00390    
       00065  0 53400 1 02345        LXA TRSWC,1         NEW WORD COUNT IN IR 1                       F3B00400    
       00066 -3 00000 1 00074 RDRB3  TXL RDRB4,1,0       CHECK COUNT DURING LOOP                      F3B00410    
       00067  0 53400 2 02331        LXA L(3),2          PLACE COUNT OF 3 IN IR 2 IN ORDER TO         F3B00420    
       00070  0 36100 1 00000  RDRB2 ACL 0,1             ADD LOGICALLY EVERYTHREE TRASTO              F3B00430    
       00071 -2 00001 1 00074        TNX RDRB4,1,1       WORDS, COUNT ALL ENTRIES                     F3B00440    
       00072  2 00001 2 00070        TIX RDRB2,2,1       IR 2 USED TO COUNT EVERY THREE               F3B00450    
       00073  1 77777 1 00066        TXI RDRB3,1,-1      WORDS, SKIP OVER 4TH WORD.                   F3B00460    
       00074  0 60200 0 02347  RDRB4 SLW CHS1            AFTER ALL WORDS ARE COUNTED                  F3B00470    
       00075  0 76000 0 00000        CLM                 CLEAR ACC                                    F3B00480    
       00076  0 53400 1 02345        LXA TRSWC,1         WORD COUNT OF TRASTO ENTRIES                 F3B00490    
       00077  1 77775 1 00100        TXI RDRB5,1,-3      ADD OLD CHECKS SUMS, AND                     F3B00500    
       00100  0 36100 1 00000  RDRB5 ACL 0,1             ACCUMULATE SUM LOGICALLY                     F3B00510    
       00101  2 00004 1 00100        TIX RDRB5,1,4                                                    F3B00520    
       00102  0 60200 0 02350        SLW CHS2                                                         F3B00530    
       00103  0 50000 0 02347        CLA CHS1            COMPUTED CHECK SUM.                          F3B00540    
       00104  0 40200 0 02350        SUB CHS2            DO CHECK SUMS MATCH                          F3B00550    
       00105  0 10000 0 00110        TZE STRS            YES                                          F3B00560    
       00106  2 00001 4 00057        TIX RDRA3,4,1       IF THE SUMS DONT AGREE, TRY  4 MORE TIMES    F3B00570    
       00107  0 07400 4 00004 COR3   TSX 4,4             CHECK SUMS INCORRECT AFTER 5 TRIES           F3B00580    
                                         PROGRAM TO SORT TRASTO ENTRIES BY TYPE                       F3B00590    
       00110  0 50000 0 02345 STRS   CLA TRSWC           INITIALIZATION OF ALL MODIFIED ADDRESSES     F3B00600    
       00111  0 40000 0 02333        ADD TRSORG                                                       F3B00610    
       00112  0 62100 0 00135        STA A4                                                           F3B00620    
       00113  0 62100 0 00140        STA A1                                                           F3B00630    
       00114  0 62100 0 00144        STA A3                                                           F3B00640    
       00115  0 62100 0 00154        STA B1                                                           F3B00650    
       00116  0 62100 0 00162        STA B5                                                           F3B00660    
       00117  0 62100 0 00174        STA C3                                                           F3B00670    
       00120  0 62100 0 00204        STA D2                                                           F3B00680    
       00121  0 62100 0 00210        STA D3                                                           F3B00690    
       00122  0 62100 0 00220        STA E2                                                           F3B00700    
       00123  0 62100 0 00226        STA E4                                                           F3B00710    
       00124  0 62100 0 00240        STA F3                                                           F3B00720    
       00125 -0 63400 0 02337        SXD 1BOX,0          CLEAR DECREMENT OF WORK AREA                 F3B00730    
       00126 -0 63400 0 02340        SXD 2BOX,0                                                       F3B00740    
       00127 -0 63400 0 02341        SXD 3BOX,0                                                       F3B00750    
       00130 -0 63400 0 02342        SXD 4BOX,0                                                       F3B00760    
       00131 -0 63400 0 02343        SXD 5BOX,0                                                       F3B00770    
       00132 -0 63400 0 02344        SXD 6BOX,0                                                       F3B00780    
       00133  0 53400 1 02345        LXA TRSWC,1         WORD COUNT IN IR 1                           F3B00790    
       00134  1 77776 1 00135        TXI A4,1,-2                                                      F3B00800    
       00135  0 50000 1 00000  A4    CLA 0,1             OBTAIN WORD 3, AND SEPARATE TYPES            F3B00810    
       00136 -0 12000 0 00203        TMI D1              ENTRY IS TYPE 4,5 OR 6, 3RD WD, MINUS        F3B00820    
                                         ENTRY IS TYPE 1, 2, OR 3                                     F3B00830    
       00137  1 00002 1 00140        TXI A1,1,2          RESTORE LOOP COUNT                           F3B00840    
       00140  0 50000 1 00000  A1    CLA 0,1             OBTAIN WORD 1                                F3B00850    
       00141  0 12000 0 00153        TPL B2              ENTRY IS TYPE 1 OR 2                         P3B0D890    
                                         ENTRY IS TYPE 3                                              F3B00870    
       00142  0 53400 4 02277        LXA L(4),4          MINUS IN FIRST AND THIRD WDS.                F3B00880    
       00143 -0 53400 2 02341        LXD 3BOX,2          PLACE A COUNT OF 4 IN IR 4,                  F3B00890    
       00144 -0 50000 1 00000  A3    CAL 0,1             CLEAR IR 2, AND GET 1ST WD. IN ACC           F3B00900    
       00145  0 60200 2 04030        SLW TYPE3,2         PLACE IN PROPER MEMORY LOC.                  F3B00910    
       00146  1 77777 2 00147        TXI A2,2,-1         SUB. 1 FROM IR 2, LOOP BACK                  F3B00920    
       00147 -0 63400 2 02341  A2    SXD 3BOX,2          TO GET 4 WORDS IN PROPER LOC.                F3B00930    
       00150 -2 00001 1 00247        TNX PACK,1,1        EXIT FOR END OF TRASTO                       F3B00940    
       00151  2 00001 4 00144        TIX A3,4,1                                                       F3B00950    
       00152  1 77776 1 00135        TXI A4,1,-2         PICK UP NEXT TRASTO ENTRY                    F3B00960    
                                         ENTRY IS TYPE 1 OR 2                                         F3B00970    
       00153  1 77777 1 00154  B2    TXI B1,1,-1                                                      F3B00980    
       00154 -0 50000 1 00000  B1    CAL 0,1             OBTAIN WORD 2                                F3B00990    
       00155 -0 32000 0 02335        ANA MASK            EXAMINE PREFIX, IF TYPE 2 HAS MINUS SIGN     F3B01000    
       00156  0 10000 0 00171        TZE C1              ENTRY IS TYPE 1                              F3B01010    
                                         ENTRY IS TYPE 2                                              F3B01020    
       00157  1 00001 1 00160        TXI B3,1,1          RESTORE COUNT TO GET WORD 1                  F3B01030    
       00160  0 53400 4 02277  B3    LXA L(4),4          COUNT 4 IN IR 4                              F3B01040    
       00161 -0 53400 2 02340        LXD 2BOX,2          CLEAR IR 2                                   F3B01050    
       00162 -0 50000 1 00000  B5    CAL 0,1             1ST WORD                                     F3B01060    
       00163  0 60200 2 03210        SLW TYPE2,2         PROPER OUTPUT AREA                           F3B01070    
       00164  1 77777 2 00165        TXI B4,2,-1         DECREASE COUNT IN IR 2 BY -1                 F3B01080    
       00165 -0 63400 2 02340  B4    SXD 2BOX,2          PLACE COUNT IN PROPER PLACE                  F3B01090    
       00166 -2 00001 1 00247        TNX PACK,1,1        EXIT                                         F3B01100    
       00167  2 00001 4 00162        TIX B5,4,1                                                       F3B01110    
       00170  1 77776 1 00135        TXI A4,1,-2         TRANSFER BACK TO SORT NEXT ENTRY             F3B01120    
                                         ENTRY IS TYPE 1                                              F3B01130    
       00171  1 00001 1 00172  C1    TXI C2,1,1          RESTORE COUNT TO GET WD 1.                   F3B01140    
       00172  0 53400 4 02277  C2    LXA L(4),4                                                       F3B01150    
       00173 -0 53400 2 02337        LXD 1BOX,2                                                       F3B01160    
       00174 -0 50000 1 00000  C3    CAL 0,1                                                          F3B01170    
       00175  0 60200 2 02370        SLW TYPE1,2         STORE IN PROPER MEMORY P0SITION              F3B01180    
       00176  1 77777 2 00177        TXI C4,2,-1                                                      F3B01190    
       00177 -0 63400 2 02337  C4    SXD 1BOX,2          SAVE COUNT OF TYPE 1 ENTRY                   F3B01200    
       00200 -2 00001 1 00247        TNX PACK,1,1        EXIT                                         F3B01210    
       00201  2 00001 4 00174        TIX C3,4,1                                                       F3B01220    
       00202  1 77776 1 00135        TXI A4,1,-2         BACK FOR NEXT ENTRY                          F3B01230    
                                         ENTRY IS TYPE 4, 5 OR 6                                      F3B01240    
       00203  1 00002 1 00204  D1    TXI D2,1,2                                                       F3B01250    
       00204  0 50000 1 00000  D2    CLA 0,1             OBTAIN WORD 1                                F3B01260    
       00205  0 12000 0 00217        TPL E1              ENTRY IS TYPE 4 OR 6                         F3B01270    
                                         ENTRY IS TYPE 5                                              F3B01280    
       00206  0 53400 4 02277        LXA L(4),4                                                       F3B01290    
       00207 -0 53400 2 02343        LXD 5BOX,2          COUNT OF ENTRIES FOR TYPE 5                  F3B01300    
       00210 -0 50000 1 00000  D3    CAL 0,1                                                          F3B01310    
       00211  0 60200 2 05470        SLW TYPE5,2         STORE IN PROPER MEMORY POS.                  F3B01320    
       00212  1 77777 2 00213        TXI D4,2,-1                                                      F3B01330    
       00213 -0 63400 2 02343  D4    SXD 5BOX,2          SAVE COUNT FOR TYPE 1 ENTRY                  F3B01340    
       00214 -2 00001 1 00247        TNX PACK,1,1        EXIT                                         F3B01350    
       00215  2 00001 4 00210        TIX D3,4,1                                                       F3B01360    
       00216  1 77776 1 00135        TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRY                     F3B01370    
                                         ENTRY IS TYPE 4 OR 6                                         F3B01380    
       00217  1 77777 1 00220  E1    TXI E2,1,-1                                                      F3B01390    
       00220 -0 50000 1 00000  E2    CAL 0,1             OBTAIN WORD 2                                F3B01400    
       00221 -0 32000 0 02335        ANA MASK            TEST IF MINUS                                F3B01410    
       00222  0 10000 0 00235        TZE F1              ENTRY IS TYPE 4                              F3B01420    
                                         ENTRY IS TYPE 6                                              F3B01430    
       00223  1 00001 1 00224        TXI E3,1,1          RESTORE COUNT TO GET WORD 1                  F3B01440    
       00224  0 53400 4 02277  E3    LXA L(4),4                                                       F3B01450    
       00225 -0 53400 2 02344        LXD 6BOX,2                                                       F2B01460    
       00226 -0 50000 1 00000  E4    CAL 0,1                                                          F3B01470    
       00227  0 60200 2 06310        SLW TYPE6,2         STORE IN PROPER MEMORY POS                   F3B01480    
       00230  1 77777 2 00231        TXI E5,2,-1                                                      F3B01490    
       00231 -0 63400 2 02344  E5    SXD 6BOX,2          SAVE COUNT FOR TYPE 6 ENTRY                  F3B01500    
       00232 -2 00001 1 00247        TNX PACK,1,1        EXIT                                         F3B01510    
       00233  2 00001 4 00226        TIX E4,4,1                                                       F3B01520    
       00234  1 77776 1 00135        TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRY                     F3B01530    
                                         ENTRY IS TYPE 4                                              F3B01540    
       00235  1 00001 1 00236  F1    TXI F2,1,1                                                       F3B01550    
       00236  0 53400 4 02277  F2    LXA L(4),4                                                       F3B01560    
       00237 -0 53400 2 02342        LXD 4BOX,2                                                       F3B01570    
       00240 -0 50000 1 00000  F3    CAL 0,1                                                          F3B01580    
       00241  0 60200 2 04650        SLW TYPE4,2         STORE IN PROPER MEMORY POS                   F3B01590    
       00242  1 77777 2 00243        TXI F4,2,-1                                                      F3B01600    
       00243 -0 63400 2 02342  F4    SXD 4BOX,2          SAVE COUNT FOR TYPE 4 ENTRY                  F3B01610    
       00244 -2 00001 1 00247        TNX PACK,1,1        EXIT                                         F3B01620    
       00245  2 00001 4 00240        TIX F3,4,1                                                       F3B01630    
       00246  1 77776 1 00135        TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRIES                   F3B01640    
                                         TYPE 2 TO TRASTO                                             F3B01650    
       00247 -0 53400 1 02337  PACK  LXD 1BOX,1          PACK TRASTO ENTRIES T0 GETHER                F3B01660    
       00250 -0 53400 4 02340        LXD 2BOX,4          IN MEMORY IN ORDER OF TYPES 1 THRU           F3B01670    
       00251 -3 00000 4 00261        TXL H5,4,0          6.                                           F3B01680    
       00252 -0 53400 2 02274        LXD L(0),2                                                       F3B01690    
       00253 -0 50000 2 03210  G4    CAL TYPE2,2                                                      F3B01700    
       00254  0 60200 1 02370        SLW TYPE1,1                                                      F3801710    
       00255  1 77777 1 00256        TXI G1,1,-1                                                      F3B01720    
       00256  1 77777 2 00257  G1    TXI G2,2,-1                                                      F3801730    
       00257  1 00001 4 00260  G2    TXI G3,4,1                                                       F3B01740    
       00260  3 00000 4 00253  G3    TXH G4,4,0          INDEX C REDUCES T0 ZERO                      F3B01750    
                                         TYPE 3 TO TRASTO                                             F3B01760    
       00261 -0 53400 2 02341  H5    LXD 3BOX,2                                                       F3B01770    
       00262 -3 00000 2 00271        TXL I5,2,0                                                       F3B01780    
       00263 -0 50000 4 04030  H4    CAL TYPE3,4                                                      F3B01790    
       00264  0 60200 1 02370        SLW TYPE1,1                                                      F3B01800    
       00265  1 77777 1 00266        TXI H1,1,-1                                                      F3B01810    
       00266  1 77777 4 00267  H1    TXI H2,4,-1                                                      F3B01820    
       00267  1 00001 2 00270  H2    TXI H3,2,1                                                       F3B01830    
       00270  3 00000 2 00263  H3    TXH H4,2,0                                                       F3B01840    
                                         TYPE 4 TO TRASTO                                             F3B01850    
       00271 -0 53400 4 02342  I5    LXD 4BOX,4                                                       F3801860    
       00272 -3 00000 4 00301        TXL J5,4,0                                       -               F3B01870    
       00273 -0 50000 2 04650  I4    CAL TYPE4,2                                                      F3B01880    
       00274  0 60200 1 02370        SLW TYPE1,1                                                      F3B01890    
       00275  1 77777 1 00276        TXI I1,1,-1                                                      F3B01900    
       00276  1 77777 2 00277  I1    TXI I2,2,-1                                                      F3B01910    
       00277  1 00001 4 00300  I2    TXI I3,4,1                                                       F3B01920    
       00300  3 00000 4 00273  I3    TXH I4,4,0                                                       F3B01930    
                                         TYPE 5 TO TRASTO                                             F3B01940    
       00301 -0 53400 2 02343  J5    LXD 5BOX,2                                                       F3D01950    
       00302 -3 00000 2 00311        TXL K5,2,0                                                       F3B01960    
       00303 -0 50000 4 05470  J4    CAL TYPE5,4                                                      F3B01970    
       00304  0 60200 1 02370        SLW TYPE1,1                                                      F3B01980    
       00305  1 77777 1 00306        TXI J1,1,-1                                                      F3B01990    
       00306  1 77777 4 00307  J1    TXI J2,4,-1                                                      F3B02000    
       00307  1 00001 2 00310  J2    TXI J3,2,1                                                       F3B02010    
       00310  3 00000 2 00303  J3    TXH J4,2,0                                                       F3B02020    
                                         TYPE 6 TO TRASTO                                             F3B02030    
       00311 -0 53400 4 02344  K5    LXD 6BOX,4                                                       F3B02040    
       00312 -3 00000 4 00321        TXL CALL,4,0                                                     F3B02050    
       00313 -0 50000 2 06310  K4    CAL TYPE6,2                                                      F3B02060    
       00314  0 60200 1 02370        SLW TYPE1,1                                                      F3B02070    
       00315  1 77777 1 00316        TXI K1,1,-1                                                      F3B02080    
       00316  1 77777 2 00317  K1    TXI K2,2,-1                                                      F3B02090    
       00317  1 00001 4 00320  K2    TXI K3,4,1                                                       F3B02100    
       00320  3 00000 4 00313  K3    TXH K4,4,0                                                       F3B02110    
                                         PROGRAM TO READ TIFGO TABLE                                  F3B02120    
       00321 -0 76000 0 00012  RTT00 RTT                 TURN OFF TAPE CHECK INDICATOR AND LITES      F3B02130    
                        00321 CALL   SYN RTT00                                                        F3B02140    
       00322  0 76100 0 00000        NOP                                                              F3B02150    
       00323  0 53400 2 02330        LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02160    
       00324  0 76200 0 00222  RTTD3 RTB 2               SELECT TAPE 2 T0 READ TIFGO                  F3B02170    
       00325  0 70000 0 05471        CPY TIFGO-1                                                      F3B02180    
       00326  0 50000 0 05471        CLA TIFGO-1         IDENTIFICATION FOR TIFGO TABLE               F3B02190    
       00327  0 40200 0 02276        SUB L(2)            IS TABLE CALLED FOR                          F3B02200    
       00330  0 10000 0 00332        TZE RTTD1           YES                                          F3B02210    
       00331  0 07400 4 00004        TSX 4,4             NOT TIFGO FILE                               F3B02220    
       00332  0 70000 0 05471  RTTD1 CPY TIFGO-1         GET WORD COUNT                               F3B02230    
       00333  0 53400 1 02274        LXA L(0),1                                                       F3B02240    
       00334  0 50000 0 05471        CLA TIFGO-1         TEST WD. COUNT                               F3B02250    
       00335  0 10000 0 00342        TZE RTTD5           NO TIFGO ENTRIES                             F3B02260    
       00336  0 70000 1 05472  RTTD2 CPY TIFGO,1         COPY                                         F3B02270    
       00337  1 77777 1 00336        TXI RTTD2,1,-1      LOOP                                         F3B02280    
       00340  0 07400 4 00004        TSX 4,4             EOF INCORRECT                                F3B02290    
       00341  0 76600 0 00333        IOD                 EOR                                          F3B02300    
       00342 -0 76000 0 00012  RTTD5 RTT                 IS TAPE CHECK ON                             F3B02310    
       00343  0 02000 0 00346        TRA RTTD4           YES                                          F3B02320    
       00344 -0 63400 1 05471        SXD TIFGO-1,1       NO                                           F3B02330    
       00345  0 02000 0 00351        TRA RTTE1           TO READ TRAD TABLE                           F3B02340    
       00346  0 76400 0 00202  RTTD4 BST 2                                                            F3B02350    
       00347  2 00001 2 00324        TIX RTTD3,2,1                                                    F3B02360    
       00350  0 07400 4 00004 COR4   TSX 4,4             ERROR READING TIFGO TABLE AFTER 5 TRIES      F3B02370    
                                         PROGRAM T0 READ TRAD TABLE                                   F3B02380    
       00351  0 53400 2 02330 RTTE1  LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02390    
       00352  0 76200 0 00222  RTTE5 RTB 2               READ TRAD TABLE FROM TAPE 2                  F3B02400    
       00353  0 70000 0 06766        CPY TRAD-1          IDENTIFICATION NUMBER                        F3B02410    
       00354  0 50000 0 06766        CLA TRAD-1                                                       F3B02420    
       00355  0 40200 0 02331        SUB L(3)            IS TABLE CALLED FOR                          F3B02430    
       00356  0 10000 0 00360        TZE RTTE2           YES                                          F3B02440    
       00357  0 07400 4 00004        TSX 4,4             TRAD TABLE NOT CALLED FOR                    F3B02450    
       00360  0 70000 0 06766  RTTE2 CPY TRAD-1          GET WORD COUNT                               F3B02460    
       00361  0 50000 0 06766        CLA TRAD-1          TEST WORD COUNT FOR NUMBER OF ENTRIES        F3B02470    
       00362  0 10000 0 00370        TZE RTTE6                                                        F3B02480    
       00363  0 53400 1 02274        LXA L(0),1                                                       F3B02490    
       00364  0 70000 1 06767  RTTE3 CPY TRAD,1          COPY TRAD ENTRIES AND GET 2S COMP.           F3B02500    
       00365  1 77777 1 00364        TXI RTTE3,1,-1      OF NUMBER OF ENTRIES.                        F3B02510    
       00366  0 07400 4 00004        TSX 4,4             EOF INCORRECT                                F3B02520    
       00367  0 76600 0 00333        IOD                 EOR                                          F3B02530    
       00370 -0 76000 0 00012  RTTE6 RTT                 IS TAPE CHECK ON                             F3B02540    
       00371  0 02000 0 00373        TRA RTTE4           YES                                          F3B02550    
       00372  0 02000 0 00376        TRA RTTC0           NO                                           F3B02560    
       00373  0 76400 0 00202  RTTE4 BST 2               ERROR ROUTINE FOR READING TRAD               F3B02570    
       00374  2 00001 2 00352        TIX RTTE5,2,1       ENTRIES                                      F3B02580    
       00375  0 07400 4 00004 COR5   TSX 4,4             AFTER 5 TRIES                                F3B02590    
                                         PROGRAM T0 READ TRALEV                                       F3B02600    
       00376  0 76000 0 00000  RTTC0 CLM                 CLEAR ACCUMULATOR                            F3B02610    
       00377  0 60200 0 03210        SLW TRALEV-1        SET WORD PRECEDING ENTRIES T0 ZERO           F3B02620    
       00400  0 53400 2 02330 RTTC4  LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02630    
       00401  0 76200 0 00224  RTTC2 RTB 4               READ TRALEV ENTRIES FROM TP. 4               F3B02640    
       00402  0 70000 0 03211        CPY TRALEV          IDENTIFICATION                               F3B02650    
       00403 -0 76000 0 00012        RTT                 IS TAPE CHECK ON                             F3B02660    
       00404  0 02000 0 00406        TRA RTTC1           YES                                          F3B02670    
       00405  0 02000 0 00411        TRA RTTC3           NO                                           F3B02680    
       00406  0 76400 0 00204  RTTC1 BST 4               ERROR ROUTINE FOR READING TRALEV             F3B02690    
       00407  2 00001 2 00401        TIX RTTC2,2,1                                                    F3B02700    
       00410  0 07400 4 00004 COR6   TSX 4,4             AFTER 5 TRIES                                F3B02710    
       00411  0 50000 0 03211  RTTC3 CLA TRALEV          IS TRALEV EMPTY                              F3B02720    
       00412  0 10000 0 00450        TZE OUT             YES                                          F3B02730    
       00413  0 53400 2 02330        LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02740    
       00414 -0 53400 1 02305  RTTA3 LXD M2CON+9,1       RESET IR 1 T0 ALL ONES                       F3B02750    
       00415  0 70000 1 03211  RTTA1 CPY TRALEV,1        COPY LOOP. ADD COUNT TO READ ADDRESS         F3B02760    
       00416  1 77777 1 00415        TXI RTTA1,1,-1                                                   F3B02770    
       00417  0 07400 4 00004        TSX 4,4             EOF INCORRECT                                F3B02780    
       00420  0 76600 0 00333        IOD                 EOR                                          F3B02790    
       00421 -0 76000 0 00012        RTT                 IS TAPE CHECK ON                             F3B02800    
       00422  0 02000 0 00424        TRA RTTA2           YES                                          F3B02810    
       00423  0 02000 0 00431        TRA RTTB1           NO                                           F3B02820    
       00424  0 76400 0 00204  RTTA2 BST 4               BACKSPACE TAPE 4                             F3B02830    
       00425  0 76200 0 00224        RTB 4               READ AGAIN                                   F3B02840    
       00426  0 70000 0 03211        CPY TRALEV          GET WORD COUNT                               F3B02850    
       00427  2 00001 2 00414        TIX RTTA3,2,1       TRY AGAIN T0 READ IN ENTRIES                 F3B02860    
       00430  0 07400 4 00004 COR7   TSX 4,4             ERROR READING TAPE 4                         F3B02870    
       00431 -0 63400 1 00442  RTTB1 SXD RTTB4,1         SAVE WORD COUNT OF FIRST RECORD, 2S COMP,    F3B02880    
       00432  0 53400 2 02330        LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02890    
       00433  0 76200 0 00224  RTTB5 RTB 4                                                            F3B02900    
       00434 -0 53400 1 00442        LXD RTTB4,1         REPLACE COUNT IN IR 1 OF FIRST RECORD        F3B02910    
       00435  0 70000 1 03211  RTTB2 CPY TRALEV,1        COPY SECOND RECORD ETC, IN PROPER PLACE      F3B02920    
       00436  1 77777 1 00435        TXI RTTB2,1,-1      SUBTRACT 1 FROM COUNT                        F3B02930    
       00437  0 02000 0 00447        TRA RTTB6           EOF                                          F3B02940    
       00440  0 76600 0 00333        IOD                 EOR                                          F3B02950    
       00441 -0 76000 0 00012        RTT                 IS TAPE CHECK ON                             F3B02960    
 D     00442 -3 00000 1 00444  RTTB4 TXL RTTB3,1         YES, COMPARE TO WORD COUNT OF FIRST          F3B02970    
       00443  0 02000 0 00447        TRA RTTB6           RECORD, NO.                                  F3B02980    
       00444  0 76400 0 00204  RTTB3 BST 4                                                            F3B02990    
       00445  2 00001 2 00433        TIX RTTB5,2,1                                                    F3B03000    
       00446  0 07400 4 00004 COR8   TSX 4,4             ERROR TRYING T0 READ TRALEV FROM TAPE 4      F3B03010    
       00447 -0 63400 1 03210  RTTB6 SXD TRALEV-1,1      SAVE TRALEV WORD COUNT                       F3B03020    
       00450  0 50000 0 02345  OUT   CLA TRSWC           TIFGO WORD COUNT.                            F3BD3030    
       00451  0 76000 0 00006        COM                                                              F3B03040    
       00452  0 40000 0 02275        ADD M2CON+1         2S COMPLIMENT OF WORD COUNT                  F3B03050    
       00453  0 73400 1 00000        PAX 0,1             IN IR 1                                      F3B03060    
       00454 -0 63400 1 02367        SXD CTRSWC,1        SAVE WORD COUNT                              F3B03070    
       00455 -0 53400 1 02314        LXD M2CON+16,1      PLACE 5 IN IR 1                              F3B03080    
       00456  0 76200 0 00222  RDS   RDS 146             MOVE UP TAPE 2, 3 FILES TO TIFGO             F3B03090    
       00457  0 70000 0 02366  CPY   CPY M2CW+4          FILE                                         F3B03100    
       00460  0 02000 0 00457        TRA CPY                                                          F3B03110    
       00461  0 02000 0 00463        TRA TIX             END OF RECORD                                F3B03120    
       00462  0 02000 0 00456        TRA RDS                                                          F3B03130    
       00463  2 00001 1 00456 TIX    TIX RDS,1,1                                                      F3B03140    
       00464  0 77200 0 00224  REW   REW 148             TAPE.4 REWOUND                               F3B03150    
       00465  0 76000 0 00000        CLM                 SET ACC. TO ZERO                             F3B03160    
       00466  0 60200 0 02345        SLW TIFFN           REPLACE INDEX COUNTERS                       F3B03170    
       00467  0 60200 0 02346        SLW CTRAST          CELLS TO ZEROS                               F3B03180    
       00470  0 60200 0 02347        SLW ETRAL                                                        F3B03190    
       00471  0 60200 0 02350        SLW LEVN0                                                        F3B03200    
       00472  0 60200 0 02331        SLW CBOX                                                         F3B03210    
       00473  0 60200 0 02355        SLW BBOX                                                         F3B03220    
       00474  0 60200 0 02332        SLW L0X                                                          F3B03230    
       00475  0 60200 0 07324        SLW ASN0                                                         F3B03240    
       00476  0 60200 0 07323        SLW EASC0                                                        F3B03250    
       00477  0 60200 0 02356        SLW ETRAST                                                       F3B03260    
       00500  0 60200 0 02357        SLW NETRAL                                                       F3B03270    
       00501  0 60200 0 07322        SLW TFRC0                                                        F3B03280    
       00502  0 53400 1 02274        LXA M2CON,1         INITIALIZE IR 1 TO ZERO                      F3B03290    
                                         M2 MAIN PROGRAM-        TIFGO FMLA NO NOT IN                 F3B03300    
                                         TRALEV                                                       F3B03310    
       00503 -0 75400 1 00000 M21000 PXD 0,1             TEST T0 SEE IF AT END OF TIFGO               F3B03320    
       00504  0 40200 0 05471        SUB TIFGO-1         N0. OF TIFGO ENTRIES                         F3B03330    
       00505  0 10000 0 00751        TZE M21900          END OF TIFGO                                 F3B03340    
       00506  0 50000 1 05472        CLA TIFGO,1         FIRST WD. OF TIFGO ENTRY,                    F3B03350    
       00507  0 62200 0 02345        STD TIFFN           SAVE INTERNAL FMLA. NO.                      F3B03360    
       00510 -0 12000 0 00514        TMI M21010          SIGNIFIES AN IF                              F3B03370    
       00511 -0 32000 0 02306        ANA M2CON+10        TEST DIFFERTENT TYPES                        F3B03380    
       00512  0 40200 0 02300        SUB M2CON+4                                                      F3B03390    
       00513  0 10000 0 00730        TZE M21600          TIFGO ENTRY AN ASSIGN                        F3B03400    
       00514  0 50000 0 02347 M21010 CLA ETRAL           DETERMINE CURRENT TIFGO ENTRY                F3B03410    
       00515  0 40200 0 03210        SUB TRALEV-1        FOR CORRESPONDING TRALEV ENTRY               F3B03420    
       00516  0 10000 0 00523        TZE M21020          END OF TRALEV                                F3B03430    
       00517 -0 53400 2 02347        LXD ETRAL,2         IR 2, CURRENT TRALEV ENTRY                   F3B03440    
       00520  0 50000 2 03211        CLA TRALEV,2        TRALEV, FMLA WD.                             F3B03450    
       00521  0 40000 0 02345        ADD TIFFN           TIFGO FMLA NO.                               F3803460    
       00522  0 10000 0 00776        TZE M22000          T1FG0 ENTRY IN TRALEV                        F3B03470    
       00523  0 50000 1 05472 M21020 CLA TIFGO,1                                                      F3B03480    
       00524 -0 12000 0 00672        TMI M21800          TIFGO ENTRY AN IF(E)                         F3B03490    
       00525 -0 32000 0 02306        ANA M2CON+10                                                     F3B03500    
       00526  0 10000 0 00536        TZE M21030          TIFGO ENTRY A GO TO A                        F3B03510    
       00527  0 34000 0 02277        CAS M2CON+3                                                      F3B03520    
       00530  1 77777 1 00650        TXI M21500,1,-1     TIFGO ENTRY AN IF OVERFLOW                   F3B03530    
       00531  1 77777 1 00625        TXI M21400,1,-1     TIFGO ENTRY AN IF DIVCK                      F3B03540    
       00532  0 34000 0 02276        CAS M2CON+2                                                      F3B03550    
       00533  1 77777 1 00602        TXI M21300,1,-1     TIFGO ENTRY AN IF SENSE                      F3B03560    
       00534  1 77777 1 00550        TXI M21100,1,-1     TIFGO ENTRY A GO TO (A),1                    F3B03570    
       00535  1 77776 1 00503        TXI M21000,1,-2     TIFGO ENTRY A GO TO N(A)                     F3B03580    
                                         TIFGO ENTRY A GO TO A                                        F3B03590    
       00536  1 77777 1 00537 M21030 TXI M21030+1,1,-1                                                F3B03600    
       00537  0 50000 1 05472        CLA TIFGO,1         2ND WORD BETA IN ADDRESS                     F3B03610    
       00540  0 76700 0 00022        ALS 18              SHIFT TO DECREMENT                           F3B03620    
       00541  0 60100 0 02364        STO M2CW+2          3RD WD OF INSTRUCTION AREA                   F3B03630    
       00542  0 07400 4 02177        TSX CIT200,4        COMPILE INSTRUCTION                          F3B03640    
       00543  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B03650    
       00544  0 00000 0 02315        HTR M2ABC           TRA                                          F3B03660    
       00545  0 00000 0 02364        HTR M2CW+2          BETA                                         F3B03670    
       00546  0 00000 0 02274        HTR M2CON           0                                            F3B03680    
       00547  1 77777 1 00503        TXI M21000,1,-1                                                  F3B03690    
                                         TIFGO ENTRY A GO TO (A),I                                    F3B03700    
       00550  0 50000 1 05472 M21100 CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B03710    
       00551  0 73400 2 00000        PAX 0,2             CTRAD U  IN IR 2                             F3B03720    
       00552 -0 63400 2 02332        SXD L0X,2           SAVE CTRAD U IN INDEX CELL DECR.             F3B03730    
       00553 -0 32000 0 02305        ANA M2CON+9         SAVE CTRAD 1 IN ACCUMULATOR                  F3B03740    
       00554  0 40000 0 02303        ADD M2CON+7         ADD ONE, CTRAD 1+I                           F3803750    
       00555  0 40200 0 02332        SUB L0X             CTRAD U                                      F3B03760    
       00556  0 60100 0 02365        STO M2CW+3          4TH WD OF INSTRUCTION                        F3B03770    
       00557  0 07400 4 02177 M21110 TSX CIT200,4        COMP1LE                                      F3B03780    
       00560  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B03790    
       00561  0 00000 0 02274        HTR M2CON           ZERO                                         F3B03800    
       00562  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B03810    
       00563  0 00000 0 02365        HTR M2CW+3          NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2        F3B03820    
       00564  1 00001 2 00565        TXI M21120,2,1      STEP UP COUNT TO NEXT TRAD ENTRY             F3B03830    
       00565  0 50000 1 05472 M21120 CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B03840    
       00566  0 62200 0 00600        STD M21140          STORE IN TXL INSTRUCTION                     F3B03850    
       00567  0 50000 2 07361 M21125 CLA TRAD+250,2      BRING IN NEXT TRAD ENTRY                     F3B03860    
       00570  0 76700 0 00022        ALS 18              PUT BETA1 IN DECREMENT                       F3B03870    
       00571  0 60100 0 02364        STO M2CW+2          3RD WD. OF CIT                               F3B03880    
       00572  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B03890    
       00573  0 00000 0 02274        HTR M2CON           ZERO                                         F3B03900    
       00574  0 00000 0 02315        HTR M2ABC           TRA                                          F3B03910    
       00575  0 00000 0 02364        HTR M2CW+2          TRAD BI                                      F3B03920    
       00576  0 00000 0 02274        HTR M2CON           ZERO                                         F3B03930    
       00577  1 00001 2 00600        TXI M21140,2,1      STEP UP TRAD ENTRY                           F3B03940    
 D     00600 -3 00000 2 00567 M21140 TXL M21125,2        TEST IF LAST TRAD ENTRY, NO                  F3B03950    
       00601  1 77777 1 00503        TXI M21000,1,-1     BACK TO NEXT TIFGO.                          F3B03960    
                                         TIFGO ENTRY AN IF SENSE                                      F3B03970    
       00602  0 07400 4 02177 M21300 TSX CIT200,4        COMPILE                                      F3B03980    
       00603  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B03990    
       00604  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04000    
       00605  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04010    
       00606  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04020    
       00607  0 50000 1 05472        CLA TIFGO,1         2ND. WORD OF TIFGO ENTRY                     F3B04030    
       00610 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS, BETA 2                         F3B04040    
       00611  0 76700 0 00022        ALS 18              SHIFT TO DECREMENT                           F3B04050    
       00612  0 53400 2 02276        LXA M2CON+2,2       LOAD 2 IN IR 2, 2 SETS OF 1NSTRUCTION        F3B04060    
       00613  0 60100 0 02364 M21310 STO M2CW+2          STORE BETA 2 IN 3RD WD.                      F3B04070    
       00614  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04080    
       00615  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04090    
       00616  0 00000 0 02315        HTR M2ABC           TRA                                          F3B04100    
       00617  0 00000 0 02364        HTR M2CW+2          BETA 2, BETA 1                               F38D411D    
       00620  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04120    
       00621  0 50000 1 05472        CLA TIFGO,1         2ND WORD                                     F3B04130    
       00622 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B04140    
       00623  2 00001 2 00613        TIX M21310,2,1      COMPILE SECOND TRA                           F3B04150    
       00624  1 77777 1 00503        TXI M21000,1,-1     BACK T0 OBTAIN NEXT TIFGO                    F3B04160    
                                         TIFGO ENTRY AN IF DIV CK                                     F3B04170    
       00625  0 07400 4 02177 M21400 TSX CIT200,4        COMPILE                                      F3B04180    
       00626  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B04190    
       00627  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04200    
       00630  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04210    
       00631  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04220    
       00632  0 50000 1 05472        CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B04230    
       00633 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B04240    
       00634  0 53400 2 02276        LXA M2CON+2,2       COUNT OF 2 IN IR 2                           F3B04250    
       00635  0 60100 0 02364 M21410 STO M2CW+2          COMPILE                                      F3B04260    
       00636  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04270    
       00637  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04280    
       00640  0 00000 0 02315        HTR M2ABC           TRA                                          F3B04290    
       00641  0 00000 0 02364        HTR M2CW+2          BETA1,                                       F3B04300    
       00642  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04310    
       00643  0 50000 1 05472        CLA TIFGO,1         2ND WORD                                     F3B04320    
       00644 -0 32000 0 02306        ANA M2CON+10        SAVE BETA 2                                  F3B04330    
       00645  0 76700 0 00022        ALS 18              PLACE IN DECREMENT                           F3B04340    
       00646  2 00001 2 00635        TIX M21410,2,1      COMPILE 2ND TRA INSTR,                       F3B04350    
       00647  1 77777 1 00503        TXI M21000,1,-1     BACK TO GET NEXT TIFGO                       F3B04360    
                                         TIFGO ENTRY AN IF OVERFLOW                                   F3B04370    
       00650  0 50000 1 05472 M21500 CLA TIFGO,1         2ND WORD 0F TIFGO ENTRY                      F3B04380    
       00651 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B04390    
       00652  0 60100 0 02364        STO M2CW+2          3RD WORD, BETA 1                             F3B04400    
       00653  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04410    
       00654  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B04420    
       00655  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04430    
       00656  0 00000 0 02364        HTR M2CW+2          BETA 1                                       F3B04440    
       00657  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04450    
       00660  0 50000 1 05472        CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B04460    
       00661 -0 32000 0 02306        ANA M2CON+10        SAVE BETA 2                                  F3B04470    
       00662  0 76700 0 00022        ALS 18              SHIFT TO DECREMENT                           F3B04480    
       00663  0 60100 0 02364        STO M2CW+2          3RD WORD OF COMPILED INSTRUCTIONS            F3B04490    
       00664  0 07400 4 02177 M21515 TSX CIT200,4        COMPILE                                      F3B04500    
       00665  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04510    
       00666  0 00000 0 02315        HTR M2ABC           TRA                                          F3B04520    
       00667  0 00000 0 02364        HTR M2CW+2          BETA 2                                       F3B04530    
       00670  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04540    
       00671  1 77777 1 00503        TXI M21000,1,-1     BACK TO NEXT TIFGO ENTRY                     F3B04550    
                                         TIFGO ENTRY AN IF (E)                                        F3B04560    
       00672 -0 32000 0 02306 M21800 ANA M2CON+10        SAVE ADDRESS OF 1ST WD, BETA 1               F3B04570    
       00673  0 76700 0 00022        ALS 18              PLACE IN DECREMENT                           F3B04580    
       00674  0 60100 0 02364        STO M2CW+2          3RD WORD OF CIT                              F3B04590    
       00675  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04600    
       00676  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B04610    
       00677  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04620    
       00700  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04630    
       00701  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04640    
       00702  1 77777 1 00703        TXI M21810,1,-1     STEP COUNT FOR 2ND TIFGO WORD                F3B04650    
       00703  0 50000 1 05472 M21810 CLA TIFGO,1         2ND WD. OF TIFGO ENTRY                       F3B04660    
       00704 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT BETA 2                        F3804670    
       00705  0 60100 0 02366        STO M2CW+4          5TH WD.                                      F3B04680    
       00706  0 50000 0 02345        CLA TIFFN           ALPHA                                        F3B04690    
       00707 -0 50100 0 02301        ORA M2CON+5         10(8) INSTR. NO. WITHIN INTERNAL FMLANO.     F3B04700    
       00710  0 60100 0 02362        STO M2CW            INTERNAL FMLA NO.                            F3B04710    
       00711  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04720    
       00712  0 00000 0 02362        HTR M2CW                                                         F3B04730    
       00713  0 00000 0 02316        HTR M2ABC+1         TZE                                          F3B04740    
       00714  0 00000 0 02366        HTR M2CW+4          BETA 2 C(M2CW+4)                             F3B04750    
       00715  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04760    
       00716  0 50000 1 05472        CLA TIFGO,1         2ND WORD 0F TIFGO ENTRY                      F3B04770    
       00717 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS, BETA 3                         F3B04780    
       00720  0 76700 0 00022        ALS 18              SHIFT TO DECREMENT                           F3B04790    
       00721  0 60100 0 02366        STO M2CW+4          STORE BETA 3                                 F3B04800    
       00722  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04810    
       00723  0 00000 0 02274        HTR M2CON           ZERO                                         F3804820    
       00724  0 00000 0 02317        HTR M2ABC+2         TPL                                          F3B04830    
       00725  0 00000 0 02366        HTR M2CW+4          BETA 3 C(M2CW+4)                             F3B04840    
       00726  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04850    
       00727  0 02000 0 00664        TRA M21515          TR. TO COMPILE TRA TO BETA 1                 F3B04860    
                                         TIFGO ENTRY AN ASSIGN                                        F3B04870    
       00730  0 50000 0 07324 M21600 CLA ASN0            CURRENT ASSIGN NO.                           F3B04880    
       00731  0 60100 0 02365        STO M2CW+3          4TH WORD OF CIT                              F3B04890    
       00732  0 40000 0 02303        ADD M2CON+7         +000001000000                                F3B04900    
       00733  0 60100 0 07324        STO ASN0            REPLACE ASSIGN NO.                           F3B04910    
       00734  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04920    
       00735  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B04930    
       00736  0 00000 0 02274        HTR M2CON           ZERO                                         F3B04940    
       00737  0 00000 0 02307        HTR M2CON+11        +030000000000                                F3B04950    
       00740  0 00000 0 02365        HTR M2CW+3          CURRENT ASSIGN NO.                           F3B04960    
       00741  1 77777 1 00742 M21610 TXI M21610+1,1,-1                                                F3B04970    
       00742  0 50000 1 05472        CLA TIFGO,1         2ND WD. OF TIFGO ENTRY                       F3B04980    
       00743  0 76700 0 00022        ALS 18              PLACE BETA IN DECREMENT                      F3B04990    
       00744 -0 53400 2 07323        LXD EASC0,2         CURRENT ASC0 ENTRY PT. IN IR 2               F3B05000    
       00745  0 60100 2 07325        STO ASC0,2          STORE BETA IN PROPER ASC0 LOC                F3B05010    
       00746  1 77777 2 00747        TXI M21620,2,-1     STEP COUNT FOR NEXT ASC0 ENTRY               F3B05020    
       00747 -0 63400 2 07323 M21620 SXD EASC0,2         PT. AND STORE                                F3B03030    
       00750  1 77777 1 00503        TXI M21000,1,-1     BACK FOR NEXT TIFGO                          F3B05040    
                                         M2 TERMINAL ROUTINE                                          F3B05050    
       00751 -0 53400 2 02355 M21900 LXD BBOX,2          2S COMPL. OF NO OF WDS IN BLOCK              F3B05060    
       00752 -0 53400 4 07322        LXD TFRC0,4                                                      F3B05070    
       00753  1 00003 4 00754        TXI M21900+3,4,3    STEP UP BLOCK COUNT BY 3                     F3B05080    
       00754 -3 00000 2 00764        TXL M21920,2,0      TEST IF AT END OF BLOCK                      F3B05090    
       00755  0 76600 0 00222        WRS 146             SELECT TAPE 2                                F3B05100    
       00756  1 00001 4 00757        TXI M21910-1,4,1    STEPUP IR 4 BY 1                             F3B05110    
       00757 -0 53400 1 02274        LXD M2CON,1         ZEROS IN IR 1                                F3B05120    
       00760  0 70000 1 06622 M21910 CPY CIB2,1          WRITE REMAINING CITS                         F3B05130    
       00761  1 77777 1 00762        TXI M21910+2,1,-1   DECREASE COUNT IN IR 1                       F3B05140    
       00762  1 00001 2 00763        TXI M21910+3,2,1    INCREASE COUNT IN IR 2                       F3B05150    
       00763  3 00001 2 00760        TXH M21910,2,1      TEST 1F AT END                               F3B05160    
       00764  0 77000 0 00222 M21920 WEF 146             WRITE END OF FILE                            F3B05170    
       00765  0 76400 0 00222        BST 146                                                          F3B05180    
       00766  2 00001 4 00765        TIX M21920+1,4,1                                                 F3B05190    
       00767  0 76200 0 00222 M21925 RDS 146             POSITION TAPE 2 AT BEGINNING                 F3B05200    
       00770  0 70000 0 02366        CPY M2CW+4          OF TIFGO FILE                                F3B05210    
       00771  0 02000 0 00770        TRA M21925+1        BACK TO READ LOOP                            F3B05220    
       00772  0 02000 0 00774        TRA M22000-2                                                     F3B05230    
       00773  0 02000 0 00767        TRA M21925                                                       F3B05240    
       00774  0 76200 0 00221        RTB 1                                                            F3B05250    
       00775  0 02000 0 00004        TRA 4                                                            F3B05260    
                                         M2-MAIN PROGRAM-TIFGO FMLA NO IN                             F3B05270    
                                         TRALEV                                                       F3B05280    
       00776  1 77777 2 00777 M22000 TXI M22000+1,2,-1   UPDATE TRALEV ENTRY                          F3B05290    
       00777 -0 63400 2 02347        SXD ETRAL,2         POINT, SAVE IN PROPER CELL                   F3B05300    
       01000 -0 53400 2 02274        LXD M2CON,2         RESET IR 2 WITH ZERO                         F3B05310    
       01001  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO SEARCH, M2 SUBROUTINE         F3B05320    
       01002  0 02000 0 01004        TRA M22006          CUR TIFGO FMLA NO NOT IN TRASTO              F3B05330    
       01003  0 02000 0 01015        TRA M22015          CUR TIFGO FMLA NO IN TRASTO                  F3B05340    
       01004 -0 53400 2 02347 M22006 LXD ETRAL,2         2S COMPL. 0F TRALEV ENTRY PT. COUNT          F3B053S0    
       01005  0 50000 2 03211        CLA TRALEV,2        TRALEV ENTRY                                 F3B05360    
       01006 -0 12000 0 01013        TMI M22013          IS IT START OF NEXT ENTRY 2                  F3B05370    
       01007 -0 75400 2 00000        PXD 0,2             TRALEV ENTRY PT CT. IN ACC                   F3B05380    
       01010  0 40200 0 03210        SUB TRALEV-1        TRALEV WORD COUNT                            F3B05390    
       01011  0 10000 0 01013        TZE M22013          IS IT END OF TRALEV TABLE, YES               F3B05400    
       01012  1 77777 2 01005        TXI M22006+1,2,-1   NO, UPDATE TRALEV TABLE                      F3B05410    
       01013 -0 63400 2 02347 M22013 SXD ETRAL,2         START OF NEXT ENTRY, SAVE COUNT              F3B05420    
       01014  0 02000 0 00523        TRA M21020          OF TRALEV, BACK TO COMPILE INSTR.            F3B05430    
       01015 -0 63400 2 02356 M22015 SXD ETRAST,2        SAVE TRASTO ENTRY PT.                        F3B05440    
       01016  0 50000 0 02274        CLA M2CON           INITIALIZE ADDC0                             F3B05450    
       01017  0 60100 0 02333        STO ADDCO                                                        F3B05460    
       01020  0 50000 1 05472        CLA TIFGO,1         OBTAIN TIFGO TYPE, TRANSFER TO ROUTINES      F3B05470    
       01021 -0 12000 0 01360        TMI M22600          IF(E)                                        F3B05480    
       01022 -0 32000 0 02306        ANA M2CON+10                                                     F3B05490    
       01023  0 10000 0 01033        TZE M22020          GO TO A                                      F3B05500    
       01024  0 34000 0 02277        CAS M2CON+3                                                      F3B05510    
       01025  1 77777 1 01344        TXI M22500,1,-1     IF OVERFLOW                                  F3B05520    
       01026  1 77777 1 01252        TXI M22400,1,-1     IF DIV CK                                    F3B05530    
       01027  0 34000 0 02276        CAS M2CON+2                                                      F3B05540    
       01030  1 77777 1 01236        TXI M22300,1,-1     IF SENSE                                     F3B05550    
       01031  1 77777 1 01123        TXI M22200,1,-1     GO TO (A),1                                  F3B05560    
       01032  1 77777 1 01072        TXI M22100,1,-1     GO TO N (A)                                  F3B05570    
                                         TIFGO ENTRY A GO TO A                                        F3B05580    
       01033  0 50000 0 02345 M22020 CLA TIFFN           CURRENT TIFGO FMLA NO.                       F3B05590    
       01034  0 60100 0 02362 PAT1   STO M2CW                                                         F3B05600    
       01035  0 50000 0 02301 PAT2   CLA M2CON+5         +10,INCREMENT                                F3B05610    
       01036  0 60100 0 02360 PAT3   STO CLOC            FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK      F3B05620    
       01037  0 07400 4 01477 M22022 TSX M22750,4        TRASTO LEV.NO.SEARCH                         F3B05630    
       01040  0 07400 4 01560        TSX M22800,4        CUR.TIFGO LEV.NO.IN TRASTO                   F3B05640    
       01041 -0 53400 2 02346        LXD CTRAST,2        CUR.TIFGO NO.NOT IN TRASTO                   F3B05630    
       01042  1 77774 2 01043 M22025 TXI M22025+1,2,-4   UP0ATE TRASTO ENTRY POINT                    F3B05660    
       01043  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B05670    
       01044  0 02000 0 01052        TRA M22035          TIFGO FMLA NO.NOT AGAIN FOUND                F3B05680    
       01045  0 50000 0 02333        CLA ADDCO           TIFGO FMLA NO AGAIN FOUND                    F3B05600    
       01046  0 10000 0 01037        TZE M22022          TIFGO ENTRY NOT YET FOUND IN TRASTO          F3B05700    
       01047  0 50000 0 02274        CLA M2CON           TIFGO ENTRY ALREADY FOUND IN TRASTO          F3B05710    
       01050  0 60100 0 02362        STO M2CW            ADJUST LOCATION WORD TO ZERO                 F3B05720    
       01051  0 02000 0 01037        TRA M22022          BACK TO LEVEL NO. SEARCH                     F3B05730    
       01052  0 50000 0 02333 M22035 CLA ADDCO           NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO   F3B05740    
       01053  0 10000 0 01056        TZE M22040          TIFGO ENTRY NEVER FOUND IN TRASTO            F3B0S730    
       01054  0 50000 0 02311        CLA M2CON+13        TIFGO ENTRY FOUND IN TRASTO                  F3B05760    
       01055  0 60100 0 02362        STO M2CW            +170000000000 , NEW. LOC. WORD               F3B05770    
       01056  0 50000 1 05473 M22040 CLA TIFGO+1,1       TIFGO BETA                                   F3B05780    
       01057  0 76700 0 00022        ALS 18              PUT INTO DECREMENT                           F3B05790    
       01060  0 60100 0 02364        STO M2CW+2          3RD WORD                                     F3B05800    
       01061  0 07400 4 02177        TSX CIT200,4        COMPILE FINAL INSTRUCTION                    F3B05810    
       01062  0 00000 0 02362        HTR M2CW            17(8)                                        F3B05820    
       01063  0 00000 0 02315        HTR M2ABC           TRA                                          F3B05830    
       01064  0 00000 0 02364        HTR M2CW+2          BETA                                         F3B05840    
       01065  0 00000 0 02274        HTR M2CON           ZERO                                         F3B05850    
       01066 -0 53400 2 02347        LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B05860    
       01067  1 77777 2 01070 M22050 TXI M22050+1,2,-1                                                F3B05870    
       01070 -0 63400 2 02347        SXD ETRAL,2         UPDATE TRALEV TO NEXT ENTRY                  F3B05880    
       01071  1 77776 1 00503        TXI M21000,1,-2     BACK TO TEST AGAIN.                          F3B05890    
                                         TIFGO ENTRY A GO TO N (A)                                    F3B05900    
       01072  0 50000 0 02345 M22100 CLA TIFFN           CURRENT TIFGO ALPHA                          F3B05910    
       01073  0 76000 0 00002        CHS                 MAKE LOCATION WORD POSITIVE                  F3B05920    
       01074  0 60100 0 02362 PAT5   STO M2CW                                                         F3B05930    
       01075  0 50000 0 02301 PAT6   CLA M2CON+5         +10                                          F3B05940    
       01076  0 60100 0 02360 PAT7   STO CLOC            SAVE INCREMENT                               F3B05930    
       01077  0 07400 4 01477 M22105 TSX M22750,4        TRASTO LEV NO SEARCH                         F3B05960    
       01100  0 07400 4 01560        TSX M22800,4        CUR TIFGO LEV NO.IN TRASTO                   F3B05970    
       01101 -0 53400 2 02346        LXD CTRAST,2        CUR TIFGQ LEV NO NOT IN TRASTO               F3B05980    
       01102  1 77774 2 01103 M22110 TXI M22110+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B05990    
       01103  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B06000    
       01104  0 02000 0 01112        TRA M22120          TIFGO FMLA NO.NOT AGAIN FOUND                F3B06010    
       01105  0 50000 0 02333        CLA ADDCO           TIFGO FMLA NO.AGAIN FOUND                    F3B06020    
       01106  0 10000 0 01077        TZE M22105          TIFGO ENTRY NOT YET FOUND IN TRASTO          F3B06030    
       01107  0 50000 0 02274        CLA M2CON           T1FG0 ENTRY ALREADY FOUND IN TRASTO          F3B06040    
       01110  0 60100 0 02362        STO M2CW            ADJUST LOCATION WROD TO ZERO                 F3B06030    
       01111  0 02000 0 01077        TRA M22105          BACK TO LEVEL NO. SEARCH                     F3806060    
       01112 -0 53400 2 02347 M22120 LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B06070    
       01113  0 50000 2 03211        CLA TRALEV,2        BEGINNING OF TRALEV BLOCK                    F3B06080    
       01114 -0 12000 0 01121        TMI M22130                                                       F3B06090    
       01115 -0 75400 2 00000        PXD 0,2             TEST IF END OF TRALEV                        F3B06100    
       01116  0 40200 0 03210        SUB TRALEV-1                                                     F3B06110    
       01117  0 10000 0 01121        TZE M22130                                                       F3B06120    
       01120  1 77777 2 01113        TXI M22120+1,2,-1   SPACE OVER TO NEXT ENTRY                     F3806130    
       01121 -0 63400 2 02347 M22130 SXD ETRAL,2                                                      F3B06140    
       01122  1 77777 1 00503        TXI M21000,1,-1                                                  F3B061S0    
                                         TIFGO ENTRY A GO TO (A),1                                    F3B06160    
       01123  0 50000 1 05472 M22200 CLA TIFGO,1         COMPUTE N+1 (CTRAD1- CTRAD2+1)               F3806170    
       01124  0 73400 2 00000        PAX 0,2             STORE IN M2CW+3                              F3B06180    
       01125 -0 63400 2 02332        SXD L0X,2           STORE COMPILING FIRST                        F3B06100    
       01126 -0 32000 0 02305        ANA M2CON+9         INSTRUCTION                                  F3806200    
       01127  0 40000 0 02303        ADD M2CON+7                                                      F3B06210    
       01130  0 40200 0 02332        SUB L0X                                                          F3806220    
       01131  0 60100 0 02365        STO M2CW+3                                                       F3806230    
       01132  0 76000 0 00006        COM                 COMPUTE 2S COMP OF                           F3B06240    
       01133  0 40000 0 02304        ADD M2CON+8         N-1 IN ORDER TO                              F3806230    
       01134  0 62200 0 01140        STD M22220          OBTAIN TRALEV ENTRY                          F3B06260    
       01135 -0 53400 2 02347        LXD ETRAL,2         POINT FOR LAST ADDRESS                       F3B06270    
       01136 -0 63400 2 01165        SXD M22240+1,2                                                   F3B06280    
       01137 -0 63400 2 01231        SXD M22275+1,2                                                   F3806290    
 D     01140  1 00000 2 01141 M22220 TXI M22220+1,2                                                   F3806300    
       01141 -0 63400 2 02357        SXD NETRAL,2        TRALEV. ENTRY PT. FOR LAST ADDRESS           F3B06310    
       01142 -0 63400 2 02347        SXD ETRAL,2         CURRENT TRALEV ENTRY PT.                     F3806320    
       01143  0 07400 4 02177        TSX CIT200,4        COMPILE FIRST INSTRUCTION                    F3B06330    
       01144  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3806340    
       01145  0 00000 0 02274        HTR M2CON           ZERO                                         F3B06350    
       01146  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B06360    
       01147  0 00000 0 02365        HTR M2CW+3          NO. OF ADDRESS IN TRAD                       F3B06370    
       01150  0 07400 4 01477 M22225 TSX M22750,4        TRASTO LEVEL NO SEARCH                       F3B06380    
       01151  0 07400 4 02013        TSX M23000,4        COR TIFGO LEV NO IN TRASTO                   F3B06390    
       01152 -0 53400 2 02346        LXD CTRAST,2        CUR TIFGO LEV NO NOT IN TRASTO               F3806400    
       01153  1 77774 2 01154 M22230 TXI M22230+1,2,-4   UPDATE TRASTD ENTRY POINT                    F3B06410    
       01154  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO.SEARCH                        F3B06420    
       01155  0 07400 4 02077        TSX M23050,4        TIFGO FMLA NO.NOT AGAIN FOUND                F3B06430    
       01156  0 02000 0 01150        TRA M22225          TIFGO FMLA NO AGAIN FOUND                    F3B06440    
       01157  0 50000 0 02356 M22233 CLA ETRAST          RESET CTRAST CELL FOR                        F3B06430    
       01160  0 60100 0 02346        STO CTRAST          TRASTO LEV NO SEARCH                         F3B06460    
       01161 -0 53400 2 02347        LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B06470    
       01162  1 00001 2 01163        TXI M22240-1,2,1                                                 F3B06480    
       01163 -0 63400 2 02347        SXD ETRAL,2                                                      F3B06490    
       01164 -3 00000 2 01166 M22240 TXL M22240+2,2,0                                                 F3B06500    
 D     01165 -3 00000 2 01150        TXL M22225,2                                                     F3B06510    
       01166  0 50000 0 02333        CLA ADDCO                                                        F3B06520    
       01167  0 10000 0 01232        TZE M22275+2        TIFGO ENTRY NEVER FOUND IN TRASTO            F3B06530    
       01170 -0 53400 2 02357        LXD NETRAL,2        RESET ETRAL FOR SECOND                       F3B06540    
       01171 -0 63400 2 02347        SXD ETRAL,2         PASS THROUGH TRASTO                          F3B06550    
       01172  0 50000 0 02301        CLA M2CON+5         1NITIALIZE LOCATION                          F3B06560    
       01173  0 60100 0 02360        STO CLOC            COUNTER                                      F3B06570    
       01174  0 60100 0 02362        STO M2CW            SET LOCATION WORD FOR FIRST                  F3B06580    
       01175  0 50000 0 02345 M22245 CLA TIFFN           TRASTO INSERT                                F3B06590    
       01176 -0 60200 0 02362        ORS M2CW                                                         F3B06600    
       01177  0 50000 0 02274        CLA M2CON           INITIALIZE ADDC0 FOR                         F3B06610    
       01200  0 60100 0 02333        STO ADDCO           TRASTO LEV.NO.SEARCH AND TRANSFER TO PERFORM F3B06620    
       01201  0 07400 4 01477 M22250 TSX M22750,4        TRASTO LEV.NO.SEARCH                         F3B06630    
       01202  0 07400 4 01560        TSX M22800,4        CUR TIFGO LEV NO FOUND                       F3B06640    
       01203 -0 53400 2 02346        LXD CTRAST,2        CUR TIFGO NO.NOT FOUND                       F3B06650    
       01204  1 77774 2 01205 M22255 TXI M22255+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B06660    
       01205  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO.SEARCH                        F3B06670    
       01206  0 02000 0 01214        TRA M22263          TIFGO FMLA NO.NOT AGAIN FOUND                F3B06680    
       01207  0 50000 0 02333        CLA ADDCO           TIFGO FMLA NO.AGAIN FOUND                    F3B06690    
       01210  0 10000 0 01201        TZE M22250          CUR TIFGO ADD NOT YET FOUND IN TRASTO        F3B06700    
       01211  0 50000 0 02274        CLA M2CON           CURT1FG0 ADD ALREADY FOUND IN TRASTO         F3B06710    
       01212  0 60100 0 02362        STO M2CW            ADJUST LOCATION WORD                         F3B06720    
       01213  0 02000 0 01201        TRA M22250                                                       F3B06730    
       01214  0 50000 0 02333 M22263 CLA ADDCO                                                        F3B06740    
       01215  0 10000 0 01223        TZE M22270          CUR. TIFGO NEVER FQUND IN TRASTO             F3B06750    
       01216  0 07400 4 02163        TSX M23075,4        CUR. TIFGO ADD. FOUND IN.TRASTO              F3B06760    
       01217  0 50000 0 02360        CLA CLOC            UPDATE LOCATION WORD FOR NEXT ENTRY          F3B06770    
       01220  0 40000 0 02301        ADD M2CON+5         BLOCK OF TRASTO UNSERTS                      F3B06780    
       01221  0 60100 0 02360        STO CLOC                                                         F3B06790    
       01222  0 60100 0 02362        STO M2CW                                                         F3B06800    
       01223  0 50000 0 02356 M22270 CLA ETRAST          RESET CTRAST FOR TRASTO                      F3B06810    
       01224  0 60100 0 02346        STO CTRAST          LEV. NI. SEARCH                              F3B06820    
       01225 -0 53400 2 02347        LXD ETRAL,2         UPDATE TRALEV ENTRT PIINT                    F3B06830    
       01226  1 00001 2 01227        TXI M22275-1,2,1                                                 F3B06840    
       01227 -0 63400 2 02347        SXD ETRAL,2                                                      F3B06850    
       01230 -3 00000 2 01232 M22275 TXL M22275+2,2,0                                                 F3B06860    
 D     01231 -3 00000 2 01175        TXL M22245,2                                                     F3B06870    
       01232 -0 53400 2 02357        LXD NETRAL,2        UPDATE TRALEV ENTRY POINT                    F3806880    
       01233  1 77777 2 01234        TXI M22280,2,-1     FOR NEXT TIFGO ENTRY                         F3B06890    
       01234 -0 63400 2 02347 M22280 SXD ETRAL,2                                                      F3B06900    
       01235  1 77777 1 00503        TXI M21000,1,-1     BACK TO NEXT TIFGO                           F3B06910    
                                         TIFGO ENTRY AN IF SENSE                                      F3B06920    
       01236 -0 53400 2 02347 M22300 LXD ETRAL,2         UPDATE TRALEV                                F3B06930    
       01237 -0 63400 2 01165        SXD M22240+1,2                                                   F3B06940    
       01240 -0 63400 2 01231        SXD M22275+1,2                                                   F3B06950    
       01241  1 77777 2 01242 M22303 TXI M22303+1,2,-1                                                F3B06960    
       01242 -0 63400 2 02357        SXD NETRAL,2                                                     F3B06970    
       01243 -0 63400 2 02347        SXD ETRAL,2                                                      F3B06980    
       01244  0 07400 4 02177        TSX CIT200,4        COMPILE INFO. INSTRUCTION                    F3B06990    
       01245  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B07000    
       01246  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07010    
       01247  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07020    
       01250  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07030    
       01251  0 02000 0 01150        TRA M22225          TRASTO LEVEL NO. SEARCH                      F3B07040    
                                         TIFGO ENTRY AN IF DIV CK                                     F3B07050    
       01252 -0 53400 2 02347 M22400 LXD ETRAL,2         UPDATE TRALEV                                F3B07060    
       01253  1 77776 2 01254        TXI M22400+2,2,-2                                                F3B07070    
       01254 -0 63400 2 01277        SXD M22425+1,2                                                   F3B07080    
       01255 -0 63400 2 01342        SXD M22465+1,2                                                   F3B07090    
       01256  0 07400 4 02177        TSX CIT200,4        COMPILE INFO. INSTRUCTION                    F3B07100    
       01257  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B07110    
       01260  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07120    
       01261  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07130    
       01262  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07140    
       01263  0 07400 4 01477 M22410 TSX M22750,4        TRASTO LEVEL NO SEARCH                       F3B07150    
       01264  0 07400 4 02013        TSX M23000,4        CUR. TIFGO LEVEL NO. IN TRASTO               F3B07160    
       01265 -0 53400 2 02346        LXD CTRAST,2        CUR. TIFGO LEVEL NO. NOT IN TRASTO           F3B07170    
       01266  1 77774 2 01267 M22415 TXI M22415+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B07180    
       01267  0 07400 4 01456        TSX M22700,4        TRASTO FMLA. NO. SEARCH                      F3B07190    
       01270  0 07400 4 02077        TSX M23050,4        TIFGO FMLA. NO NOT AGAIN FOUND               F3B07200    
       01271  0 02000 0 01263        TRA M22410          TIFGO FMLA. NO. AGAIN FOUND                  F3B07210    
       01272  0 50000 0 02356 M22420 CLA ETRAST          RESET CTRAST CELL FOR                        F3B07220    
       01273  0 60100 0 02346        STO CTRAST          TRASTO LEVEL NO. SEARCH                      F3B07230    
       01274 -0 53400 2 02347        LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B07240    
       01275  1 77777 2 01276        TXI M22425,2,-1                                                  F3B07250    
       01276 -0 63400 2 02347 M22425 SXD ETRAL,2                                                      F3B07260    
 D     01277  3 00000 2 01263        TXH M22410,2                                                     F3B07270    
       01300  0 50000 0 02333        CLA ADDCO                                                        F3B07280    
       01301  0 10000 0 01343        TZE M22465+2        TIFGO ENTRY NEVER FOUND IN TRASTO            F3B07290    
       01302  1 00002 2 01303        TXI M22430,2,2      RESET ETRAL FOR SECOND                       F3B07300    
       01303 -0 63400 2 02347 M22430 SXD ETRAL,2         PASS THROUGH TREASTO                         F3B07310    
       01304  0 50000 0 02301        CLA M2CON+5                 INITIALIZE LOCATION                  F3B07320    
       01305  0 60100 0 02360        STO CLOC                    COUNTER                              F3B07330    
       01306  0 60100 0 02362        STO M2CW                    SET LOCATION WORD FOR                F3B07340    
       01307  0 50000 0 02345 M22435 CLA TIFFN                   FIRST TRASTO INSERT                  F3B07330    
       01310 -0 60200 0 02362        ORS M2CW                                                         F3B07360    
       01311  0 50000 0 02274        CLA M2CON                   INITIALIZE ADDC0 FOR                 F3B07370    
       01312  0 60100 0 02333        STO ADDCO                   TRASTO LEV NO SEARCH                 F3B07380    
       01313  0 07400 4 01477 M22440 TSX M22750,4                TRASTO LEV NO SEARCH                 F3B07390    
       01314  0 07400 4 01560        TSX M22800,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B07400    
       01315 -0 53400 2 02346        LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07410    
       01316  1 77774 2 01317 M22445 TXI M22445+1,2,-4           UPDATE TRASTO ENTRY POINT            F3807420    
       01317  0 07400 4 01456        TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07430    
       01320  0 02000 0 01326        TRA M22455                  TIFGO FMLA NO NOT AGAIN FOUND        F3B07440    
       01321  0 50000 0 02333        CLA ADDCO                   TIFGO FMLA NO AGAIN FOUND            F3B07450    
       01322  0 10000 0 01313        TZE M22440                  CUR TIFGO ADD NOT YET FOUND IN TRASTOF3807460    
       01323  0 50000 0 02274        CLA M2CON                   CUR TIFGO ENTRY ALREADY FOUND IN TRASF3B07470    
       01324  0 60100 0 02362        STO M2CW                    ADJUST LOCATION WORD                 F3B07480    
       01325  0 02000 0 01313        TRA M22440          TRASTO LEV. NO, SEARCH                       F3B07490    
       01326  0 50000 0 02333 M22455 CLA ADDCO                                                        F3B07500    
       01327  0 10000 0 01335        TZE M22460                  CUR TIFGO ADD NEVER FOUND IN TRASTO  F3807510    
       01330  0 07400 4 02163        TSX M23075,4                CUR TIFG0 ADD FOUND IN TRASTO        F3B07520    
       01331  0 50000 0 02360        CLA CLOC                    UPDATE LOCATION WORD FOR             F3B07530    
       01332  0 40000 0 02301        ADD M2CON+5                 NEXT BLOCK OF TRASTO INSERTS         F3B07540    
       01333  0 60100 0 02360        STO CLOC                                                         F3B07550    
       01334  0 60100 0 02362        STO M2CW                                                         F3B07560    
       01335  0 50000 0 02356 M22460 CLA ETRAST                  RESET CTRAST FOR TRASTO LEV          F3B07570    
       01336  0 60100 0 02346        STO CTRAST                  NO SEARCH                            F3B07580    
       01337 -0 53400 2 02347        LXD ETRAL,2                 UPDATE TRALEV ENTRY                  F3B07590    
       01340  1 77777 2 01341        TXI M22465,2,-1             POINT                                F3B07600    
       01341 -0 63400 2 02347 M22465 SXD ETRAL,2                                                      F3B07610    
 D     01342  3 00000 2 01307        TXH M22435,2        TEST END OF TRALEV ENTRIES .                 F3B07620    
       01343  1 77777 1 00503        TXI M21000,1,-1     NEXT TIFGO.                                  F3B07630    
                                         TIFGO ENTRY AN IF OVERFLOW                                   F3B07640    
       01344 -0 53400 2 02347 M22500 LXD ETRAL,2         INITIALIZE AND RECORD END OF                 F3B07650    
       01345  1 77776 2 01346        TXI M22500+2,2,-2   TRALEV ENTRY                                 F3B07660    
       01346 -0 63400 2 01277        SXD M22425+1,2                                                   F3B07670    
       01347 -0 63400 2 01342        SXD M22465+1,2                                                   F3B07680    
       01350  0 07400 4 01477 M22505 TSX M22750,4                TRASTO LEV NO SEARCH                 F3B07690    
       01351  0 07400 4 02027 COR12  TSX M23025,4                                                     F3B07700    
       01352 -0 53400 2 02346        LXD CTRAST,2                CUR TIFGO LEV NO NOT IN TRASTO       F3B07710    
       01353  1 77774 2 01354 M22510 TXI M22510+1,2,-4           UPDATE TRASTO ENTRY POINT            F3B07720    
       01354  0 07400 4 01456        TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07730    
       01355  0 07400 4 02113        TSX M23060,4                TRASTO FMLA NO NOT AGAIN FOUND       F3B07740    
       01356  0 02000 0 01350        TRA M22505                  TRASTO FMLA NO AGAIN FOUND           F3B07750    
       01357  0 02000 0 01272        TRA M22420          CONTINUE AS IN DVCH.                         F3B07760    
                                         TIFGO ENTRY AN IF (E)                                        F3B07770    
       01360 -0 53400 2 02347 M22600 LXD ETRAL,2         PERMUTE WDS. OF THIS TRALEV ENTRY            F3B07780    
       01361  0 50000 2 03211        CLA TRALEV,2        SO THAT                                      F3B07790    
       01362  0 60100 0 02361        STO SAVE            A1, A2, A3, BECOMES A2, A3, A1               F3B07800    
       01363  0 50000 2 03212        CLA TRALEV+1,2              A2 FIRST                             F3B07810    
       01364  0 60100 2 03211        STO TRALEV,2                                                     F3B07820    
       01365  0 50000 2 03213        CLA TRALEV+2,2              A3 SECOND                            F3B07830    
       01366  0 60100 2 03212        STO TRALEV+1,2                                                   F3B07840    
       01367  0 50000 0 02361        CLA SAVE                    A1 THIRD                             F3B07850    
       01370  0 60100 2 03213        STO TRALEV+2,2                                                   F3B07860    
       01371  1 77775 2 01372 M22610 TXI M22610+1,2,-3                                                F3B07870    
       01372 -0 63400 2 01342        SXD M22465+1,2                                                   F3B07880    
       01373  0 07400 4 02177        TSX CIT200,4                COMPILE INFO INSTRUCTION             F3B07890    
       01374  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B07900    
       01375  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07910    
       01376  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07920    
       01377  0 00000 0 02274        HTR M2CON           ZERO                                         F3B07930    
       01400  0 07400 4 01477 M22620 TSX M22750,4                TRASTQ LEV NO SEARCH                 F3B07940    
       01401  0 07400 4 02043        TSX M23035,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B07930    
       01402 -0 53400 2 02346        LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07960    
       01403  1 77774 2 01404 M22625 TXI M22625+1,2,-4           UPDATE TRASTO ENTRY POINT            F3B07970    
       01404  0 07400 4 01456        TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07980    
       01405  0 07400 4 02127        TSX M23065,4                TRASTO FMLA NO NOT AGAIN FOUND       F3B07990    
       01406  0 02000 0 01400        TRA M22620                  TRASTO FMLA NO AGAIN FOUND           F3B08000    
       01407  0 50000 0 02356 M22630 CLA ETRAST                  RESET CTRAST CELL FOR                F3B08010    
       01410  0 60100 0 02346        STO CTRAST                  TRASTO LEV NO SEARCH                 F3B08020    
       01411 -0 53400 2 02347        LXD ETRAL,2                 UPDATE TRALEV                        F3B08030    
       01412  1 77777 2 01413        TXI M22635,2,-1             ENTRY POINT                          F3B08040    
       01413 -0 63400 2 02347 M22635 SXD ETRAL,2                                                      F3B08050    
       01414  0 07400 4 01477 M22640 TSX M22750,4                TRASTO LEVEL NO SEARCH               F3B08060    
       01415  0 07400 4 02062        TSX M23040,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B08070    
       01416 -0 53400 4 02346        LXD CTRAST,4                CUR TIFGO LEV N0 NOT FOUND IN TRASTO F3B08080    
       01417  1 77774 2 01420        TXI M22645,2,-4             UPDATE TRASTO ENTRY POINT            F3B08090    
       01420  0 07400 4 01456 M22645 TSX M22700,4                TRASTO FMLA NO SEARCH                F3B08100    
       01421  0 07400 4 02147        TSX M23070,4                TIFGO FMLA NO NOT AGAIN FOUND        F3B08110    
       01422  0 02000 0 01414        TRA M22640                  TIFGO FMLA NO AGAIN FOUND            F3B08120    
       01423  0 50000 0 02356 M22650 CLA ETRAST                  RESET CTRAST CELL FOR                F3B08130    
       01424  0 60100 0 02346        STO CTRAST                  TRASTO LEV NO SEARCH                 F3B08140    
       01425 -0 53400 2 02347        LXD ETRAL,2                                                      F3B08150    
       01426  1 77777 2 01427        TXI M22655,2,-1             UPDATE TRALEV                        F3B08160    
       01427 -0 63400 2 02347 M22655 SXD ETRAL,2                 ENTRY POINT                          F3B08170    
       01430  0 50000 0 02333        CLA ADDCO                   SET ADDC0 FOR                        F3B08180    
       01431  0 40000 0 02301        ADD M2CON+5                 TRA ADDRESS                          F3B08190    
       01432  0 60100 0 02333        STO ADDCO                                                        F3B08200    
       01433  0 07400 4 01477 M22660 TSX M22750,4                TRASTQ LEV NO SEARCH                 F3B08210    
       01434  0 07400 4 02013        TSX M23000,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B08220    
       01435 -0 53400 2 02346        LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3808230    
       01436  1 77774 2 01437        TXI M22663,2,-4             UPDATE TRASTO ENTRY POINT            F3B08240    
       01437  0 07400 4 01456 M22663 TSX M22700,4                TRASTO FMLA NO SEARCH                F3B08250    
       01440  0 07400 4 02077        TSX M23050,4                TIFGO FMLA NO NOT AGAIN FOUND        F3B08260    
       01441  0 02000 0 01433        TRA M22660                  TIFO FMLA NO AGAIN FOUND             F3B08270    
       01442 -0 53400 2 02347        LXD ETRAL,2                                                      F3B08280    
       01443  1 77777 2 01444        TXI M22670,2,-1             UPDATE TRALEV ENTRY POINT            F3B08290    
       01444 -0 63400 2 02347 M22670 SXD ETRAL,2                 FOR NEXT TIFGO ENTRY                 F3B08300    
       01445  0 50000 0 02333        CLA ADDCO                                                        F3B08310    
       01446  0 40200 0 02301        SUB M2CON+5                                                      F3B08320    
       01447  0 10000 0 00535 COR13  TZE M21030-1                                                     F3B08330    
       01450  1 00003 2 01451        TXI M22675,2,3              RESET ETRAL FOR                      F3B08340    
       01451 -0 63400 2 02347 M22675 SXD ETRAL,2                 SECOND PASS THROUGH TRASTO           F3B08350    
       01452  0 50000 0 02356        CLA ETRAST                  RESET CTRAST FOR SECOND              F3B08360    
       01453  0 60100 0 02346        STO CTRAST                  PASS THROUGH TRASTO                  F3B08370    
       01454  0 50000 0 02302        CLA M2CON+6                 INITIALIZE LOCATION                  F3B08380    
       01455  1 77777 1 01305        TXI M22435-2,1,-1                                                F3B08390    
                                         M2 CLOSED SUBROUTINES                                        F3B08400    
                                         TRASTO FMLA NO SEARCH                                        F3B08410    
       01456 -0 75400 2 00000 M22700 PXD 0,2             PLACE COUNT 0F TRALEV ENTRY IN AC.           F3B08420    
       01457  0 40200 0 02367        SUB TRASTO-1        TRASTO WORD COUNT                            F3B08430    
       01460  0 10000 4 00001        TZE 1,4             EQUAL. TR BACK                               F3B08440    
       01461  0 50000 2 02370        CLA TRASTO,2        TRASTO ENTRY                                 F3B08450    
       01462 -0 32000 0 02306        ANA M2CON+10        SAVE DECREMENT                               F3B08460    
       01463  0 76700 0 00022        ALS 18              SHIFT B TO DECREMENT PORTION                 F3B08470    
       01464  0 34000 0 02345        CAS TIFFN           CURRENT TIFGO FMLA. NO.                      F3B08480    
       01465  0 02000 0 01470        TRA M22710          TRASTO GREATER THAN TIFGO                    F3B08490    
       01466  0 02000 0 01475        TRA M22715          TRASTO EQUAL TO TIFGO FMLA NO                F3B08500    
       01467  1 77774 2 01456        TXI M22700,2,-4     TRAS TO LESS THAN TIFGO, BACK TO BRING NEXT  F3B08510    
       01470  0 50000 2 02370 M22710 CLA TRASTO,2        TRASTO ENTRY                                 F3B08520    
       01471 -0 32000 0 02305        ANA M2CON+9         MASK OUT ADDRESS                             F3B08530    
       01472  0 34000 0 02345        CAS TIFFN           INTERNAL FORMULA NO. ALPHA                   F3B08540    
       01473  1 77774 2 01456        TXI M22700,2,-4     TRASTO                                       F3B08550    
       01474  1 77774 2 01456        TXI M22700,2,-4                                                  F3B08560    
       01475 -0 63400 2 02346 M22715 SXD CTRAST,2                                                     F3B08570    
       01476  0 02000 4 00002        TRA 2,4             TRASTO NOT FOUND                             F3B08580    
                                         TRASTO LEVEL NO SEARCH                                       F3B08590    
       01477 -0 63400 4 02331 M22750 SXD CBOX,4          TR COUNT STORED FOR LINKAGE                  F3B08600    
       01500 -0 53400 2 02347        LXD ETRAL,2         CURRENT TRALEV ENTRY PT. IN IR 2             F3B08610    
       01501  0 50000 2 03211        CLA TRALEV,2        LOAD TRALEV WORD                             F3B08620    
       01502  0 62100 0 02350        STA LEVN0           CURRENT LEVEL NO.                            F3B08630    
       01503 -0 53400 2 02346        LXD CTRAST,2        CURRENT TRASTO ENTRY PT.                     F3B08640    
       01504  0 50000 0 02340        CLA TWOL            TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD  F3808630    
       01505  0 10000 0 01527        TZE M22770          TYPE 2                                       F3B08660    
       01506  0 50000 0 02346        CLA CTRAST          CURRENT TRASTO ENTRY PT.                     F3B08670    
       01507 -0 10000 0 01513        TNZ M22760                                                       F3B08680    
       01510  0 50000 0 02337        CLA ONEL            TYPE 1                                       F3B08690    
       01511  0 10000 0 01550        TZE M22787                                                       F3B08700    
       01512  0 02000 0 01527        TRA M22770                                                       F3B08710    
       01513  0 50000 0 02337 M22760 CLA ONEL            TEST TYPE 1                                  F3B08720    
       01514 -0 10000 0 01524        TNZ M22767                                                       F3808730    
       01515  0 40000 0 02340 M22762 ADD TWOL            NO. OF TYPE 2                                F3B08740    
       01516 -0 73400 4 00000        PDX 0,4                                                          F3B08750    
       01517 -0 75400 4 00000        PXD 0,4                                                          F3B08760    
       01520  0 34000 0 02346        CAS CTRAST          COMPARE                                      F3B08770    
       01521  0 02000 0 01527        TRA M22770                                                       F3B08780    
       01522  0 02000 0 01527        TRA M22770                                                       F3B08790    
       01523  0 02000 0 01550        TRA M22787                                                       F3B08800    
       01524  0 34000 0 02346 M22767 CAS CTRAST                                                       F3B08810    
       01525  0 02000 0 01515        TRA M22762                                                       F3B08820    
       01526  0 02000 0 01515        TRA M22762                                                       F3B08830    
       01527  0 50000 2 02371 M22770 CLA TRASTO+1,2      LEVEL NOS.                                   F3B08840    
       01530 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS, TEST UPPER LEVEL               F3B08850    
       01531  0 34000 0 02350        CAS LEVN0           COMPARE TO CURRENT TIFGO LEVEL NO,           F3808860    
       01532  0 02000 0 01535        TRA M22777          LESS THAN                                    F3B08870    
       01533  0 02000 0 01556        TRA M22795                                                       F3B08880    
       01534  0 02000 0 01556        TRA M22795                                                       F3B08890    
       01535  0 50000 2 02371 M22777 CLA TRASTO+1,2      LEVEL NOS.                                   F3B08900    
       01536 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B08910    
       01537  0 77100 0 00022        ARS 18    -         PLACE IN ADDRESS                             F3B08920    
       01540  0 34000 0 02350        CAS LEVN0           CURRENT TIFGO LEVEL NO.                      F3B08930    
       01541  0 02000 0 01556        TRA M22795          EXIT, NOT FOUND                              F3B08940    
       01542  0 02000 0 01543        TRA M22783          EQUAL TO OR GREATER THAN                     F3B08930    
       01543  0 50000 0 02333 M22783 CLA ADDCO           NO. OF TIMES TIFGO APPEARS                   F3808960    
       01544  0 40000 0 02301        ADD M2CON+5         ADD 10(8) INCREMENT                          F3B08970    
       01545  0 60100 0 02333        STO ADDCO           RESTORE                                      F3B08980    
       01546 -0 53400 4 02331        LXD CBOX,4          RESTORE LINKAGE, LEVEL NO.                   F3B08990    
       01547  0 02000 4 00001        TRA 1,4             FOUND.                                       F3B09000    
       01550  0 50000 2 02372 M22787 CLA TRASTO+2,2      TAGS, WORD 3, TYPE 2 LEVEL NO.               F3B09010    
       01551 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B09020    
       01552  0 77100 0 00022        ARS 18              SHIFT TO ADDRESS                             F3B09030    
       01553  0 34000 0 02350        CAS LEVN0           COMPARE LEVEL NO.                            F3B09040    
       01554  0 02000 0 01543        TRA M22783                                                       F3B09050    
       01555  0 02000 0 01556        TRA M22795                                                       F3809060    
       01556 -0 53400 4 02331 M22795 LXD CBOX,4                                                       F3B09070    
       01557  0 02000 4 00002        TRA 2,4             NOT FOUND, BACK TO MAIN ROUTINE              F3B09080    
                                         INDEXING INSTRUCTION COMPILER                                F3B09090    
       01560 -0 63400 4 02331 M22800 SXD CBOX,4          SAVE COUNT IN 4 FOR LINKAGE                  F3B09100    
       01561 -0 53400 2 02274        LXD M2CON,2         PLACE ZERO IN IR 2                           F3B09110    
       01562  0 50000 0 02346        CLA CTRAST          CURRENT TRASTO ENTRY POINT                   F3B09120    
       01563 -0 10000 0 01567        TNZ M22810                                                       F3B09130    
       01564  0 50000 2 02337 M22805 CLA ONEL,2          LENGTH OF TYPE 1 ENTRY ETC.                  F3B09140    
       01565 -0 10000 2 01600        TNZ M22819,2        ENTRIES EXIST                                F3B09150    
       01566  1 77777 2 01564        TXI M22805,2,-1     GET NEXT TYPE ENTRY                          F3B09160    
       01567  0 50000 0 02274 M22810 CLA M2CON           ZERO IN ACC.                                 F3B09170    
       01570  0 40000 2 02337        ADD ONEL,2          LENGTH OF TYPE 1 ENTRY ETC                   F3B09180    
       01571 -0 73400 4 00000        PDX 0,4             PLACE THIS RESULT INIR 4                     F3B09190    
       01572 -0 75400 4 00000        PXD 0,4             PUT BACK IN ACC., CLEARING ADDRESS           F3B09200    
       01573  0 10000 0 01577        TZE M22813                                                       F3B09210    
       01574  0 40200 0 02346        SUB CTRAST          CURRENT TRASTO ENTRY POINT                   F3B09220    
       01575 -0 12000 2 01600        TMI M22819,2        PROPER TYPE                                  F3B09230    
       01576  0 40000 0 02346        ADD CTRAST                                                       F3B09240    
       01577  1 77777 2 01570 M22813 TXI M22810+1,2,-1   SORT ACCORDING TO TYPE                       F3B09250    
       01600  0 02000 0 01606 M22819 TRA M22825                  TYPE I INSERTS                       F3B09260    
       01601  0 02000 0 01633        TRA M22850                  TYPE II INSERTS                      F3B09270    
       01602  0 02000 0 01654        TRA M22875                  TYPE III INSERTS                     F3B09280    
       01603  0 02000 0 01677        TRA M22900                  TYPE IV INSERTS                      F3B09290    
       01604  0 02000 0 01732        TRA M22925                  TYPE V INSERTS                       F3B09300    
       01605  0 02000 0 01752        TRA M22950                  TYPE VI INSERTS                      F3B09310    
       01606 -0 53400 2 02346 M22825 LXD CTRAST,2                TYPE I INSERTS                       F3B09320    
       01607  0 50000 2 02372        CLA TRASTO+2,2      3RD WRD 0F TRASTO ENTRY                      F3B09330    
       01610  0 76500 0 00022        LRS 18              ADDRESS PORTION IN MQ                        F3B09340    
       01611  0 60100 0 02365        STO M2CW+3          DECREMENT, T1, IN 4TH WORD                   F3B09350    
       01612 -0 50000 0 02310        CAL M2CON+12        +140000000000                                F3B09360    
       01613  0 60200 0 02364        SLW M2CW+2          SYMBOLIC ADDRESS                             F3B09370    
       01614  0 76300 0 00022        LLS 18              PUT BACK T2 IN ACC                           F3B09380    
       01615 -0 60200 0 02364        ORS M2CW+2          PUT 1N ADDRESS PART OF 3RD WD                F3B09390    
       01616  0 07400 4 02177        TSX CIT200,4        COMPILE INSTRUCTIONS                         F3B09400    
       01617  0 00000 0 02362        HTR M2CW            INT. FMLA NO. IF ANY                         F3B09410    
       01620  0 00000 0 02320        HTR M2ABC+3         SXD                                          F3B09420    
       01621  0 00000 0 02364        HTR M2CW+2          +140000000000, T2                            F3B09430    
       01622  0 00000 0 02365        HTR M2CW+3          T1                                           F3B09440    
       01623  0 60100 0 02365        STO M2CW+3          PUT T2 IN 4TH WRD.                           F3B09450    
       01624  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B09460    
       01625  0 00000 0 02274        HTR M2CON           ZERO                                         F3B09470    
       01626  0 00000 0 02321        HTR M2ABC+4         LXD                                          F3B09480    
       01627  0 00000 0 02364        HTR M2CW+2          14(8),T2                                     F3B09490    
       01630  0 00000 0 02365        HTR M2CW+3          T2                                           F3B09500    
       01631 -0 53400 4 02331 M22848 LXD CBOX,4          RESTORE LINKAGE                              F3B09510    
       01632  0 02000 4 00001        TRA 1,4             BACK TO MAIN ROUTINE                         F3B09520    
       01633 -0 53400 2 02346 M22850 LXD CTRAST,2                TYPE II INSERTS                      F3B09530    
       01634 -0 50000 2 02371        CAL TRASTO+1,2      2ND WORD OF TRASTO ENTRY                     F3B09540    
       01635  0 60200 0 02364        SLW M2CW+2          SAVE IN 3RD WORD FOR COMPILER                F3B09550    
       01636 -0 50000 2 02372        CAL TRASTO+2,2      3RD WD OF ENTRY                              F3B09560    
       01637 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS                                 F3B09570    
       01640  0 60200 0 02365        SLW M2CW+3          STORE IN 4TH WD                              F3B09580    
       01641  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B09590    
       01642  0 00000 0 02362        HTR M2CW            INTERNAL FMLA NO., IF ANY                    F3B09600    
       01643  0 00000 0 02322        HTR M2ABC+5         PXD                                          F3B09610    
       01644  0 00000 0 02274        HTR M2CON           ZERO                                         F3B09620    
       01645  0 00000 0 02365        HTR M2CW+3          ZERO,T1                                      F3B09630    
       01646  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B09640    
       01647  0 00000 0 02274        HTR M2CON           ZERO                                         F3B09650    
       01650  0 00000 0 02323        HTR M2ABC+6         STO                                          F3B09660    
       01651  0 00000 0 02364        HTR M2CW+2          S(BCD)                                       F3B09670    
       01652  0 00000 0 02274        HTR M2CON           ZERO                                         F3B09680    
       01653  0 02000 0 01631        TRA M22848          TO RESTORE LINKAGE                           F3B09690    
       01654 -0 53400 2 02346 M22875 LXD CTRAST,2                TYPE III INSERTS                     F3B09700    
       01655  0 50000 2 02372        CLA TRASTO+2,2      3RD WRD OF TRASTO ENTRY                      F3B09710    
       01656  0 76500 0 00022        LRS 18              SHIFT N T0 MG                                F3B09720    
       01657  0 40000 0 02303        ADD M2CON+7         1 T0 ADDRESS FOR SIGN                        F3B09730    
       01660  0 60100 0 02365        STO M2CW+3          4TH WORD                                     F3B09740    
       01661  0 76000 0 00000        CLM                 CLEAR ACC                                    F3B09750    
       01662  0 76300 0 00022        LLS 18              PUT N BACK IN ACC.                           F3B09760    
       01663  0 76000 0 00006        COM                 COMPLIMENT                                   F3B09770    
       01664  0 40000 0 02275        ADD M2CON+1         ADD ONE, 2 S COMPLIMENT                      F3B09780    
       01665 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS                                 F3B09790    
       01666  0 60100 0 02363        STO M2CW+1          2ND WORD OF COMPILER                         F3B09800    
       01667 -0 50000 0 02324        CAL M2ABC+7         TXI                                          F3B09810    
       01670 -0 60200 0 02363        ORS M2CW+1          IN DECREMENT                                 F3B09820    
       01671  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B09830    
       01672  0 00000 0 02362        HTR M2CW                                                         F3B09840    
       01673  0 00000 0 02363        HTR M2CW+1          TXI, N(COMP)                                 F3B09850    
       01674  0 00000 0 02311        HTR M2CON+13        +170000000000                                F3B09860    
       01675  0 00000 0 02365        HTR M2CW+3          1,                                           F3B09870    
       01676  0 02000 0 01631        TRA M22848          RESTORE LINKAGE                              F3B09880    
       01677 -0 53400 2 02346 M22900 LXD CTRAST,2                TYPE IV INSERT                       F3B09890    
       01700  0 50000 2 02372        CLA TRASTO+2,2      3RD WRD 0F TRASTO ENTRY                      F3B09900    
       01701  0 76000 0 00002        CHS                 CHANGE SIGN TO PLUS                          F3B09910    
       01702  0 76500 0 00022        LRS 18              T1, T0 ADDRESS. T2 TO M2                     F3B09920    
       01703  0 76100 0 00000 COR14  NOP                                                              F3B09930    
       01704  0 60100 0 02365 PAT9   STO M2CW+3                                                       F3B09940    
       01705  0 50000 0 02360 PAT10  CLA CLOC            INCREMENT FOR LOC WD OF 1ST ENTRY            F3B09950    
       01706  0 40000 0 02301 PAT11  ADD M2CON+5         ADD 10                                       F3B09960    
       01707  0 60100 0 02360 PAT12  STO CLOC            RESTORE WITH NEW INCREMENT                   F3B09970    
       01710  0 60100 0 02364 PAT13  STO M2CW+2          ALS 0 PLACE IN 3RD WD OF COMPILER            F3B09980    
       01711  0 50000 0 02345 PAT14  CLA TRSWC           WORD COUNT                                   F3B09990    
       01712 -0 60200 0 02364 PAT15  ORS M2CW+2          SAVE IN DECREMENT OF 3RD WD                  F3B10000    
       01713  0 07400 4 02177 RET3   TSX CIT200,4        COMPILER                                     F3B10010    
       01714  0 00000 0 02362        HTR M2CW                                                         F3B10020    
       01715  0 00000 0 02320        HTR M2ABC+3         SXD                                          F3B10030    
       01716  0 00000 0 02364 COR16  HTR M2CW+2          WORD COUNT, INCREMENTED LOC WD               F3B10040    
       01717  0 00000 0 02365        HTR M2CW+3          T1                                           F3B10050    
       01720  0 50000 2 02372        CLA TRASTO+2,2      3RD WORD OF TRASTO ENTRY                     F3B10060    
       01721 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS                                 F3B10070    
       01722  0 40000 0 02303        ADD M2CON+7         1 TO ADDRESS FOR C                           F3B10080    
       01723  0 60100 0 02365        STO M2CW+3          4TH WORD                                     F3B10090    
       01724  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10100    
       01725  0 00000 0 02364 COR17  HTR M2CW+2          LOC WORD                                     F3B10110    
       01726  0 00000 0 02325        HTR M2ABC+8         TIX                                          F3B10120    
       01727  0 00000 0 02311        HTR M2CON+13        17(8)                                        F3B10130    
       01730  0 00000 0 02365        HTR M2CW+3          1T2                                          F3B10140    
       01731  0 02000 0 01631        TRA M22848          BACK TO RESTORE LINKAGE                      F3B10150    
       01732 -0 53400 2 02346 M22925 LXD CTRAST,2                TYPE V INSERTS                       F3B10160    
       01733  0 50000 2 02372        CLA TRASTO+2,2      3RD WORD                                     F3B10170    
       01734  0 76000 0 00002        CHS                 CHANGE SIGN TO PLUS                          F3B10180    
       01735  0 76500 0 00022        LRS 18              SHIFT T TO ADDRESS, N TO MQ                  F3B10190    
       01736  0 40000 0 02303        ADD M2CON+7         1 FOR SIGN                                   F3B10200    
       01737  0 60100 0 02365        STO M2CW+3          4TH WRD. FOR COMPILER                        F3B10210    
       01740 -0 50000 0 02324        CAL M2ABC+7         TXI                                          F3B10220    
       01741  0 77100 0 00022        ARS 18              SHIFT TO ADDRESS PORTION                     F3B10230    
       01742  0 76300 0 00022        LLS 18              CONTENTS OF MQ                               F3B10240    
       01743  0 60200 0 02363        SLW M2CW+1          1 TXI, N                                     F3B10250    
       01744  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10260    
       01745  0 00000 0 02362        HTR M2CW                                                         F3B10270    
       01746  0 00000 0 02363        HTR M2CW+1          TXI, N                                       F3B10280    
       01747  0 00000 0 02311        HTR M2CON+13        17(8)                                        F3B10290    
       01750  0 00000 0 02365        HTR M2CW+3          1,T                                          F3B10300    
       01751  0 02000 0 01631        TRA M22848          RESTORE LINKAGE                              F3B10310    
       01752 -0 53400 2 02346 M22950 LXD CTRAST,2                TYPE VI INSERTS                      F3B10320    
       01753  0 50000 2 02372        CLA TRASTO+2,2      3RD WORD 0F TRASTO ENTRY                     F3B10330    
       01754  0 76000 0 00002        CHS                                                              F3B10340    
       01755 -0 50100 0 02312        ORA M2CON+14        +120000000000                                F3B10350    
       01756  0 60100 0 02364        STO M2CW+2          3RD WD OF COMPILER                           F3B10360    
       01757  0 50000 0 02277        CLA M2CON+3         +000000000004                                F3B10370    
       01760 -0 50100 0 02334 COR18  ORA COR28           +000004                                      F3B10380    
       01761  0 60100 0 02366        STO M2CW+4          5TH WORD                                     F3B10390    
       01762  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10400    
       01763  0 00000 0 02362        HTR M2CW                                                         F3B10410    
       01764  0 00000 0 02320        HTR M2ABC+3         SXD                                          F3B10420    
       01765  0 00000 0 02313        HTR M2CON+15        60000000000                                  F3B10430    
       01766  0 00000 0 02366        HTR M2CW+4          4,4                                          F3B10440    
       01767  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10450    
       01770  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10460    
       01771  0 00000 0 02326        HTR M2ABC+9         TSX                                          F3B10470    
       01772  0 00000 0 02364        HTR M2CW+2          12(8),T                                      F3B10480    
       01773  0 00000 0 02277        HTR M2CON+3         ZERO,4                                       F3B10490    
       01774  0 50200 2 02372        CLS TRASTO+2,2      3RD WORD                                     F3B10500    
       01775  0 60100 0 02365        STO M2CW+3          4TH WD OF COMPILER                           F3B10510    
       01776 -0 50100 0 02310        ORA M2CON+12        14 IN DECREMENT                              F3B10520    
       01777  0 60100 0 02364        STO M2CW+2          3RD WD, SAVE T                               F3B10530    
       02000  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10540    
       02001  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10550    
       02002  0 00000 0 02321        HTR M2ABC+4         LXP                                          F3B10560    
       02003  0 00000 0 02364        HTR M2CW+2          14(8),T                                      F3B10570    
       02004  0 00000 0 02365        HTR M2CW+3          ZERO,T                                       F3B10580    
       02005  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10590    
       02006  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10600    
       02007  0 00000 0 02327        HTR M2ABC+10        LXD                                          F3B10610    
       02010  0 00000 0 02313        HTR M2CON+15        6(8)                                         F3B10620    
       02011  0 00000 0 02366        HTR M2CW+4          5   4                                        F3B10630    
       02012  0 02000 0 01631        TRA M22848          BACK TO RESTORE LINKAGE                      F3B10640    
                                         INITIAL TRANSFER COMPILERS FOR TIFGO ENTRIES                 F3B10650    
                                         WHEN A TRASTO ENTRY IS ASSOCIATED WITH                       F3B10660    
                                         THE TRANSFER ADDRESS                                         F3B10670    
                                         TRANSFER WITH LOCATION 0                                     F3B10680    
       02013 -0 63400 4 02270 M23000 SXD ADD6+3,4        SAVE CONTENTS 0F IR4 FOR LINKAGE             F3B10690    
       02014  0 50000 0 02345        CLA TIFFN           CURRENT TIF60 FMLA. NO. IN DECR.             F3B10700    
       02015  0 60100 0 02364        STO M2CW+2          3RD WORD                                     F3B10710    
       02016  0 50000 0 02333        CLA ADDCO           8 TIMES N0, 0F TIMES ADDRESS )S IN TRASTO    F3B10720    
       02017 -0 60200 0 02364        ORS M2CW+2          PLACE IN ADDRESS                             F3B10730    
       02020  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10740    
       02021  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10750    
       02022  0 00000 0 02315        HTR M2ABC           TRA                                          F3B10760    
       02023  0 00000 0 02364        HTR M2CW+2          TIFEN, ADDC0                                 F3B10770    
       02024  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10780    
       02025  0 02000 0 02271 COR20  TRA PAT17                                                        F3B10790    
       02026  0 02000 4 00006        TRA 6,4             BACK TO MAIN ROUTINE                         F3B10800    
                                         INFO INSTRUCTION FOR IF OVERFLOW                             F3B10810    
       02027 -0 63400 4 02270 M23025 SXD ADD6+3,4        SAVE LINKAGE                                 F3B10820    
       02030  0 50000 0 02345        CLA TIFFN           TIFGO FMLA NO.                               F3B10830    
       02031  0 60100 0 02364        STO M2CW+2          3RD WD.                                      F3B10840    
       02032  0 50000 0 02333        CLA ADDCO           COUNT                                        F3B10850    
       02033 -0 60200 0 02364        ORS M2CW+2          ADDRESS                                      F3B10860    
       02034  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B10870    
       02035  0 00000 0 02345        HTR TIFFN           TIFGO FMLA NO.                               F3B10880    
       02036  0 00000 0 02274        HTR M2CON           ZERO                                         F3B10890    
       02037  0 00000 0 02364        HTR M2CW+2          TIFFN, ADDC0                                 F3B10900    
       02040  0 00000 0 02274        HTR M2CON                                                        F3B10910    
       02041  0 02000 0 02271 COR22  TRA PAT17                                                        F3B10920    
       02042  0 02000 4 00006        TRA 6,4                                                          F3B10930    
                                         TRANSFER ON ZERO WITH LOCATION FMLA NO + 8                   F3B10940    
       02043 -0 63400 4 02270 M23035 SXD ADD6+3,4                                                     F3B10950    
       02044  0 50000 0 02345        CLA TIFFN                                                        F3B10960    
       02045  0 60100 0 02362        STO M2CW            INT.FMLA NO                                  F3B10970    
       02046  0 60100 0 02364        STO M2CW+2          3RD WD                                       F3B10980    
       02047  0 50000 0 02333        CLA ADDCO           COUNT                                        F3B10990    
       02050 -0 60200 0 02362        ORS M2CW            ADDRESS OF FIRST WD.                         F3B1100D    
       02051  0 40000 0 02301        ADD M2CON+5         ADD 10                                       F3B11010    
       02052 -0 60200 0 02364        ORS M2CW+2          ADD 10 TO COUNT                              F3B11020    
       02053  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B11030    
       02054  0 00000 0 02362        HTR M2CW            INT FMLAN0, ADDC0                            F3B11040    
       02055  0 00000 0 02316        HTR M2ABC+1         TZE                                          F3B11050    
       02056  0 00000 0 02364        HTR M2CW+2          INT. FMLA NO., ADDC0+10                      F3B11060    
       02057  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11070    
       02060  0 02000 0 02271 COR24  TRA PAT17                                                        F3B11080    
       02061  0 02000 4 00006        TRA 6,4                                                          F3B11090    
                                         TRANSFER ON PLUS WITH LOCATION 0                             F3B11100    
       02062 -0 63400 4 02270 M23040 SXD ADD6+3,4        SAVE LINKAGE                                 F3B11110    
       02063  0 50000 0 02345        CLA TIFFN           TIFGO INT. FMLA NO.                          F3B11120    
       02064  0 60100 0 02364        STO M2CW+2          3RD WD                                       F3B11130    
       02065  0 50000 0 02333        CLA ADDCO                                                        F3B11140    
       02066  0 40000 0 02301        ADD M2CON+5         10 TO ADDC0                                  F3B11150    
       02067 -0 60200 0 02364        ORS M2CW+2          IN ADDRESS OF 3RD WD                         F3B11160    
       02070  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B11170    
       02071  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11180    
       02072  0 00000 0 02317        HTR M2ABC+2         TPL                                          F3B11190    
       02073  0 00000 0 02364        HTR M2CW+2          TIFFN, ADDC0+10                              F3B11200    
       02074  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11210    
       02075  0 02000 0 02271 COR26  TRA PAT17                                                        F3B11220    
       02076  0 02000 4 00006        TRA 6,4                                                          F3B11230    
                                         INITIAL TRANSFER COMPILERS FOR TIFGO                         F3B11240    
                                         ENTRIES WHEN THERE IS NO TRASTO ENTRY                        F3B11250    
                                         FOR THE TRANSFER ADDRESS                                     F3B11260    
                                         TRANSFER WITH LOCATION 0                                     F3B11270    
       02077 -0 63400 4 02331 M23050 SXD CBOX,4          SAVE LINKAGE                                 F3B11280    
       02100 -0 53400 2 02347        LXD ETRAL,2         IN IRZ CURRENT TRALEV ENTRY PT,              F3B11290    
       02101  0 50000 2 03211        CLA TRALEV,2        CURRENT TRALEV ENTRY                         F3B11300    
       02102 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT, OF TRAVEV ENTRY              F3B11310    
       02103  0 60100 0 02364        STO M2CW+2          SRD WORD                                     F3B11320    
       02104  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B11330    
       02105  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11340    
       02106  0 00000 0 02315        HTR M2ABC           TRA                                          F3B11350    
       02107  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11360    
       02110  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11370    
       02111 -0 53400 4 02331        LXD CBOX,4          RESTORE LINKAGE                              F3B11380    
       02112  0 02000 4 00002        TRA 2,4                                                          F3B11390    
                                         INFO INSTRUCTION FOR IF OVERFLOW                             F3B11400    
       02113 -0 63400 4 02331 M23060 SXD CBOX,4          SAVE LINKAGE                                 F3B11410    
       02114 -0 53400 2 02347        LXD ETRAL,2         CURRENT TRALEV ENTRY DT.                     F3B11420    
       02115  0 50000 2 03211        CLA TRALEV,2        TRALEV ENTRY                                 F3B11430    
       02116 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B11440    
       02117  0 60100 0 02364        STO M2CW+2          3RD WD                                       F3B114S0    
       02120  0 07400 4 02177        TSX CIT200,4        COMPILER                                     F3B11460    
       02121  0 00000 0 02345        HTR TIFFN           TIFGO INT. FMLA NO                           F3B11470    
       02122  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11480    
       02123  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11490    
       02124  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11500    
       02125 -0 53400 4 02331        LXD CBOX,4          RESTORE LINKAGE                              F3B11510    
       02126  0 02000 4 00002        TRA 2,4                                                          F3B11520    
                                         TRANSFER ON ZERO WITH LOCATION FMLA NO + 8                   F3B11530    
       02127 -0 63400 4 02331 M23065 SXD CBOX,4          SAVE LINKAGE                                 F3B11540    
       02130 -0 53400 2 02347        LXD ETRAL,2         CURRENT TRALEV ENTRY PT                      F3B11550    
       02131  0 50000 2 03211        CLA TRALEV,2        SAVE DECREMENT OF TRALEV                     F3B11560    
       02132 -0 32000 0 02305        ANA M2CON+9         ENTRY                                        F3B11570    
       02133  0 60100 0 02364        STO M2CW+2                                                       F3B11580    
       02134  0 50000 0 02345        CLA TIFFN           TIFGO FMLA NO.                               F3B11590    
       02135  0 60100 0 02362        STO M2CW                                                         F3B11600    
       02136  0 50000 0 02301        CLA M2CON+5         10 (8)                                       F3B11610    
       02137 -0 60200 0 02362        ORS M2CW            ADD TO ADDRESS                               F3B11620    
       02140  0 07400 4 02177        TSX CIT200,4                                                     F3B11630    
       02141  0 00000 0 02362        HTR M2CW            T1FFN+10(8)                                  F3B11640    
       02142  0 00000 0 02316        HTR M2ABC+1         TZE                                          F3B11650    
       02143  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11660    
       02144  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11670    
       02145 -0 53400 4 02331        LXD CBOX,4                                                       F3B11680    
       02146  0 02000 4 00002        TRA 2,4                                                          F3B11690    
                                         TRANSFER ON PLUS WITH LOCATION 0                             F3B11700    
       02147 -0 63400 4 02331 M23070 SXD CBOX,4          SAVE LINKAGE                                 F3B11710    
       02150 -0 53400 2 02347        LXD ETRAL,2                                                      F3B11720    
       02151  0 50000 2 03211        CLA TRALEV,2                                                     F3B11730    
       02152 -0 32000 0 02305        ANA M2CON+9         DECREMENT OF TRALEV ENTRY                    F3B11740    
       02153  0 60100 0 02364        STO M2CW+2                                                       F3B11750    
       02154  0 07400 4 02177        TSX CIT200,4                                                     F3B11760    
       02155  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11770    
       02156  0 00000 0 02317        HTR M2ABC+2         TPL                                          F3B11780    
       02157  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11790    
       02160  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11800    
       02161 -0 53400 4 02331        LXD CBOX,4                                                       F3B11810    
       02162  0 02000 4 00002        TRA 2,4                                                          F3B11820    
                                         FINAL TRANSFER COMPILER FOR TIFGO                            F3B11830    
                                         ENTRIES WHEN A TRASTO ENTRY IS ASSOCIATED                    F3B11840    
                                         WITH THE TRANSFER ADDRESS                                    F3B11850    
       02163 -0 63400 4 02331 M23075 SXD CBOX,4          SAVE LINKAGE                                 F3B11860    
       02164 -0 53400 2 02347        LXD ETRAL,2                                                      F3B11870    
       02165  0 50000 2 03211        CLA TRALEV,2                                                     F3B11880    
       02166 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT OF TRALEV                     F3B11890    
       02167  0 60100 0 02364        STO M2CW+2          ENTRY                                        F3B11900    
       02170  0 07400 4 02177        TSX CIT200,4                                                     F3B11910    
       02171  0 00000 0 02311        HTR M2CON+13        +170000000000                                F3B11920    
       02172  0 00000 0 02315        HTR M2ABC           TRA                                          F3B11930    
       02173  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11940    
       02174  0 00000 0 02274        HTR M2CON           ZERO                                         F3B11950    
       02175 -0 53400 4 02331        LXD CBOX,4                                                       F3B11960    
       02176  0 02000 4 00001        TRA 1,4                                                          F3B11970    
                                         M2 COMPILER CIT200                                           F3B11980    
       02177  0 60100 0 02351 CIT200 STO E1C2            SAVE AC                                      F3B11990    
       02200 -0 60000 0 02352        STQ E2C2            SAVE MQ                                      F3B12000    
       02201 -0 63400 1 02353        SXD E3C2,1          SAVE IR 1                                    F3B12010    
       02202 -0 63400 2 02354        SXD E4C2,2          SAVE IR 2                                    F3B12020    
       02203 -0 53400 2 02355        LXD BBOX,2          2 S COMP. OF NO. OF WDS. IN BLOCK            F3B12030    
       02204  3 77634 2 02217        TXH CIT204,2,-100   COMPARE TO 100.                              F3B12040    
       02205 -3 00000 2 02217        TXL CIT204,2,0      LAST ENTRY                                   F3B12050    
       02206  0 76600 0 00222        WRS 146             SELECT TAPE 2                                F3B12060    
       02207  0 50000 0 07322        CLA TFRC0           TIFGO FILE REC. COUNT                        F3B12070    
       02210  0 40000 0 02303        ADD M2CON+7         ADD 1 TO DECREMENT                           F3B12080    
       02211  0 60100 0 07322        STO TFRC0           TIFGO FILE REC. COUNT                        F3B12090    
       02212  0 53400 1 02274        LXA M2CON,1         ZERO IN IR 1                                 F3B12100    
       02213  0 70000 1 06622 CIT201 CPY CIB2,1          OUTPUT AREA                                  F3B12110    
       02214  1 77777 1 02215        TXI CIT202,1,-1     SET COUNT FOR NEXT WORD                      F3B12120    
       02215  1 00001 2 02216 CIT202 TXI CIT203,2,1      SET UP COUNT OF BLOCK                        F3B12130    
       02216  3 00001 2 02213 CIT203 TXH CIT201,2,1      BACK T0 CONTINUE WRITING                     F3B12140    
       02217  0 53400 1 02277 CIT204 LXA M2CON+3,1       COUNT 0F 4 IN IR 1                           F3B12150    
       02220  0 50000 0 02275        CLA M2CON+1         1 IN ACC                                     F3B12160    
       02221  0 62100 0 02222        STA CIT205          TO GET NEXT ENTRY                            F3B12170    
       02222  0 50000 4 00000 CIT205 CLA 0,4             ADDRESS OF NEXT ENTRY                        F3B12180    
       02223  0 62100 0 02224        STA CIT206                                                       F3B12190    
 A     02224  0 50000 0 00000 CIT206 CLA                 NEXT ENTRY                                   F3B12200    
       02225  0 60100 2 06622        STO CIB2,2          OUTPUT AREA                                  F3B12210    
       02226  0 50000 0 02222        CLA CIT205          ADDRESS                                      F3B12220    
       02227  0 40000 0 02275        ADD M2CON+1         ONE                                          F3B12230    
       02230  0 62100 0 02222        STA CIT205          RESTORE ADDRESS                              F3B12240    
       02231  1 77777 2 02232        TXI CIT207,2,-1     DECREASE BLOCK COUNT                         F3B12250    
       02232  2 00001 1 02222 CIT207 TIX CIT205,1,1      GET NEXT ENTRY                               F3BI2260    
       02233 -0 63400 2 02355        SXD BBOX,2          SAVE COUNT                                   F3B12270    
       02234  0 50000 0 02351        CLA E1C2            RESTORE AC                                   F3B12280    
       02235  0 56000 0 02352        LDQ E2C2            RESTORE MQ                                   F3B12290    
       02236 -0 53400 1 02353        LXD E3C2,1          RESTORE IR 1                                 F3B12300    
       02237 -0 53400 2 02354        LXD E4C2,2          RESTORE IR 2                                 F3B12310    
       02240  0 02000 4 00005        TRA 5,4             BACK TO MAIN ROUTINE                         F3B12320    
       02241 -0 63400 4 02260 ADD1   SXD ADD4,4          SAVE LINKAGE                                 F3B12330    
       02242 -0 53400 2 02346 ADD2   LXD CTRAST,2        CURRENT TRASTO ENTRY POINT                   F3B12340    
       02243  0 50000 2 02372        CLA TRASTO+2,2      3RD WD OF TRASTO ENTRY                       F3B12330    
       02244  0 12000 0 02254        TPL ADD3            SORT OUT TYPES 1,2,3                         F3B12360    
       02245  0 50000 2 02371        CLA TRASTO+1,2      TYPES 4,5,6. TEST 2ND WD                     F3B12370    
       02246 -0 12000 0 02254        TMI ADD3            TYPE 2                                       F3B12380    
       02247  0 50000 2 02370        CLA TRASTO,2        1ST WORD                                     F3B12390    
       02250 -0 12000 0 02254        TMI ADD3            TYPE 3                                       F3B12400    
       02251  0 50000 0 02333        CLA ADDCO           COUNT TIMES 8                                F3B12410    
       02252  0 40000 0 02301        ADD M2CON+5         ADD ONE                                      F3B12420    
       02253  0 60100 0 02333        STO ADDCO           RESTORE NEW COUNT                            F3B12430    
       02254  1 77774 2 02255 ADD3   TXI ADD3+1,2,-4     SKIP TO NEXT ENTRY                           F3B12440    
       02255  0 07400 4 01456        TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B12450    
       02256  0 02000 0 02263        TRA ADD5                                                         F3B12460    
       02257  0 07400 4 01477        TSX M22750,4        TRASTO LEVEL NO SEA RCH                      F3B12470    
 D     02260 -3 00000 0 02265 ADD4   TXL ADD6,0                                                       F3B12480    
       02261 -0 53400 2 02346        LXD CTRAST,2        END                                          F3B12490    
       02262  1 77774 2 02255        TXI ADD3+1,2,-4     BACK FOR NEXT ENTRY                          F3B12500    
       02263 -0 53400 4 02260 ADD5   LXD ADD4,4                                                       F3B12510    
       02264  0 02000 4 00001        TRA 1,4             BACK TO MAIN ROUTINE, VIA PAT 18             F3B12520    
       02265  0 50000 0 02333 ADD6   CLA ADDCO                                                        F3B12530    
       02266  0 40200 0 02301        SUB M2CON+5                                                      F3B12540    
       02267  0 60100 0 02333        STO ADDCO                                                        F3B12550    
 D     02270 -3 00000 0 02242        TXL ADD2,0                                                       F3B12560    
       02271  0 07400 4 02241 PAT17  TSX ADD1,4                                                       F3B12570    
       02272 -0 53400 4 02270 PAT18  LXD ADD6+3,4                                                     F3B12580    
       02273  0 02000 4 00006 PAT19  TRA 6,4                                                          F3B12590    
       02274 +000000000000     M2CON DEC 0,1,2,4,6,8,16,1B17,3B17                                     F3B12600    
       02275 +000000000001    
       02276 +000000000002    
       02277 +000000000004    
       02300 +000000000006    
       02301 +000000000010    
       02302 +000000000020    
       02303 +000001000000    
       02304 +000003000000    
       02305 +077777000000           OCT 77777000000,77777,50000000000,140000000000                   F3B12610    
       02306 +000000077777    
       02307 +050000000000    
       02310 +140000000000    
       02311 +170000000000    COR27  OCT 170000000000,120000000000,60000000000,3000000                F3B12620    
       02312 +120000000000    
       02313 +060000000000    
       02314 +000003000000    
       02315  635121000000     M2ABC BCD 6TRA000TZE000TPL000SXD000LXP000PXD000                        F3B12630    
       02316  637125000000    
       02317  634743000000    
       02320  626724000000    
       02321  436747000000    
       02322  476724000000    
       02323  626346000000           BCD 5STO000TXI000TIX000TSX000LXD000                              F3B12640    
       02324  636731000000    
       02325  633167000000    
       02326  636267000000    
       02327  436724000000    
       02330 +000000000005    M2ECTR DEC 5                                                            F3B12650    
                        02274  L(0)  SYN M2CON                                                        F3B12660    
                        02276  L(2)  SYN M2CON+2                                                      F3B12670    
                        02277  L(4)  SYN M2CON+3                                                      F3B12680    
       02331 +000000000003     L(3)  DEC 3                                                            F3B12690    
                        02331 CBOX   SYN L(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGEF3B12700    
       02332 +000000000456     O456  OCT 456                                                          F3B12710    
                        02332 L0X    SYN O456 LOWER INDEX FOR TRAD IN DECR FIELD                      F3B12720    
       02333  0 00000 0 02370 TRSORG     TRASTO                                                       F3B12730    
                        02333 ORTRST SYN TRSORG                                                       F3B12740    
                        02333 ADDCO  SYN TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE   F3B127S0    
                                                CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD  F3B12760    
       02334 +000004000000    COR28  OCT 4000000                                                      F3B12770    
       02335 -200000000000     MASK  OCT -200000000000                                                F3B12780    
       02336 +000000000460     O460  OCT 460                                                          F3B12790    
       02337  0 00000 0 00000 1BOX                                                                    F3B12800    
       02340  0 00000 0 00000 2BOX                                                                    F3B12810    
       02341  0 00000 0 00000 3BOX                                                                    F3B12820    
       02342  0 00000 0 00000 4BOX                                                                    F3B12830    
       02343  0 00000 0 00000 5BOX                                                                    F3B12840    
       02344  0 00000 0 00000 6BOX                                                                    F3B12850    
                        02337 ONEL   SYN 1BOX                 TWOS COMPS                              F3B12860    
                        02340 TWOL   SYN ONEL+1               OF THE LENGTHS                          F3B12870    
                        02341 THREEL SYN ONEL+2               OF VARIOUS TYPES                        F3B12880    
                        02342 F0URL  SYN ONEL+3               OF ENTRY BLOCKS                         F3B12890    
                        02343 FIVEL  SYN ONEL+4               IN TRASTO                               F3B12900    
                        02344 SIXL   SYN ONEL+5               IN DECREMENT FIELD                      F3B12910    
       02345  0 00000 0 00000  TRSWC                         WORD COUNT                               F3B12920    
                        02345 TIFFN  SYN TRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD                    F3B12930    
       02346  0 00000 0 00000 WCCHS                                                                   F3B12940    
                        02346 CTRAST SYN WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP)    F3B12950    
       02347  0 00000 0 00000 CHS1                                                                    F3B12960    
                        02347 ETRAL  SYN CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP)     F3B12970    
       02350  0 00000 0 00000 CHS2                                                                    F3B12980    
                        02350 LEVN0  SYN CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESSF3B12990    
       02351  0 00000 0 00000 E1C2                            CELL FOR SAVING AC                      F3B13000    
       02352  0 00000 0 00000 E2C2                            CELL FOR SAVING MQ                      F3B13010    
       02353  0 00000 0 00000 E3C2                            CELL FOR SAVING IRA IN DEC FIELD        F3B13020    
       02354  0 00000 0 00000 E4C2                            CELL FOR SAVING IRB IN DEC FIELD        F3B13030    
       02355  0 00000 0 00000 BBOX        TWOS COMP OF NO OF WDS ALREADY ENTERED IN BLOCK             F3B13040    
       02356  0 00000 0 00000 ETRAST      TRASTO ENTRY POINT FOR INITIAL TIFGO FMLA NO MATCH IN DEC   F3B13050    
       02357  0 00000 0 00000 NETRAL      TRALEV ENTRY POINT FOR LAST ADD IN DEC FIELD(TWOS COMP)     F3B13060    
       02360  0 00000 0 00000 CLOC        INCREMENT FOR LOC WD OF FIRST INST IN CUR BLOCK             F3B13070    
                                            0F TRASTO INSERTIONS (IN ADDR FIELD)                      F3B13080    
       02361  0 00000 0 00000 SAVE        TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E)              F3B13090    
                        02362 M2CW   BSS 5 FOUR WORD INSTRUCTION STORAGE                              F3B13100    
       02367  0 00000 0 00000 CTRSWC                                                                  F3B13110    
                        02370 TRASTO BSS 400                                                          F3B13120    
                        02370  TYPE1 SYN TRASTO                                                       F3B13130    
                        03210  TYPE2 BSS 400                                                          F3B13140    
                        04030  TYPE3 BSS 400                                                          F3B13150    
                        04650  TYPE4 BSS 400                                                          F3B13160    
                        05470  TYPE5 BSS 400                                                          F3B13170    
                        06310  TYPE6 BSS 400                                                          F3B13180    
                        03211 TRALEV SYN TYPE2+1                                                      F3B13190    
                        05472  TIFGO SYN TYPE2+1202                                                   F3B13200    
                        06622 CIB2   SYN TYPE2+1802                                                   F3B13210    
                        06767 TRAD   SYN CIB2+101                                                     F3B13220    
                        07322        ORG 3794                                                         F3B13230    
                        07322  TFRC0 BSS 1                                                            F3B13240    
                        07323 EASC0  BSS 1 CURRENT ASC0 ENTRY POINT IN DECR FIELD (TWOS COMP)         F3B13250    
                        07324 ASN0   BSS 1  ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD                 F3B13260    
                        07325  ASC0  BSS 300                                                          F3B13270    
                        00030        END 24                                                           F3B13280    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    1329           0           0           0           0
 LIB       0           0           0           0           0
 COL    1329           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1361                  
0NUMBER OF SYMBOLS,  DEF   320,DEFOP     0,UNDEF     0      
9            REM    MASTER RECORD CARD = FN060                                            
1                                           MASTER RECORD CARD = FN060                                            
                                         THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION OF THE   F3B00010    
                                         MERGE.  IT MERGES THE FILE 0F INSTRUCTIONS PREPARED BY THE   F3B00020    
                                         FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION.  F3B00030    
                                         IN ADDITION TO MERGING THESE TWO FILES, IT INSERTS IN THEIR  F3B00040    
                                         PROPER P0SITION THE INDEXING INSTRUCTIONS NECESSITATED BY THEF3B000S0    
                                         APPEARANCE 0F RELATIVE CONSTANTS.                            F3B00060    
                        00030        ORG 24                                                           F3B00070    
                                         READ TSXCOM INTO HIGH SPEED STORAGE                          F3B00080    
       00030  0 53400 4 01202 M30000 LXA M3ECTR,4        ERORR COUNT IN IR 4                          F3B00090    
       00031  0 76200 0 00303        RDS 195             SELECT DRUM 3                                F3B00100    
       00032  0 46000 0 01147        LDA L(704)          DRUM ADDRESS                                 F3B00110    
       00033  0 70000 0 01226        CPY TSXCOM-2        WORD COUNT OF TSXCOM TABLE                   F3B00120    
       00034  0 70000 0 01227        CPY TSXCOM-1        CHECK SUM OF WORD COUNT                      F3B00130    
       00035  0 50000 0 01226        CLA TSXCOM-2        WD. COUNT                                    F3B00140    
       00036  0 40200 0 01227        SUB TSXCOM-1        CHECK SUM                                    F3B00150    
       00037  0 10000 0 00042        TZE M30010          EQUAL                                        F3B00160    
 D     00040  2 00000 4 00031        TIX M30000+1,4      NOT EQUAL, TRY 4 MORE TIMES                  F3B00170    
       00041  0 07400 4 00004        TSX 4,4             WORD COUNT NOT EQUAL TO CHECK SUM            F3B00180    
       00042  0 53400 4 01202 M30010 LXA M3ECTR,4        ERROR COUNT IN IR4                           F3B00190    
       00043  0 50000 0 01226        CLA TSXCOM-2        WORD COUNT                                   F3B00200    
       00044  0 77100 0 00022        ARS 18              PLACE IN ADDRESS                             F3B00210    
       00045  0 10000 0 00073        TZE M30050          NO TSX INSTRUCTION                           F3B00220    
       00046  0 73400 3 00000        PAX 0,3             PLACE WORD COUNT IN IR 1 AND 2               F3B00230    
       00047  0 40000 0 01142        ADD L(1)            ADD ONE TO WORD COUNT                        F3B00240    
       00050  0 40000 0 00061        ADD M30025          INIT1AL ADDRESS                              F3B00250    
       00051  0 62100 0 00055        STA M30020                                                       F3B00260    
       00052  0 76200 0 00303        RDS 195             SELECT DRUM 3                                F3B00270    
       00053  0 46000 0 01150        LDA L(706)          DRUM ADDRESS                                 F3B00280    
       00054  1 00001 1 00055        TXI M30020,1,1      INCCREMENT 8B 1                              F3B00290    
       00055  0 70000 1 00000 M30020 CPY 0,1             TSXCOM TABLE INTO STOORAGE                   F3B00300    
       00056  2 00001 1 00055        TIX M30020,1,1      COPY LOOP                                    F3B00310    
       00057  0 53400 1 01141        LXA L(0),1                                                       F3B00320    
       00060 -0 50000 0 01141        CAL L(0)            ZEROS IN ACC.                                F3B00330    
       00061  0 36100 1 01230 M30025 ACL TSXCOM,1        COMPUTE NEW CHECK SUMS AND COMPARE           F3B00340    
       00062  1 77777 1 00063        TXI M30025+2,1,-1   TO GIVEN CHECK SUM                           F3B00350    
       00063  2 00001 2 00061        TIX M30025,2,1                                                   F3B00360    
       00064 -0 63400 1 01227        SXD TSXCOM-1,1                                                   F3B00370    
       00065  0 60200 0 01226        SLW TSXCOM-2                                                     F3B00380    
       00066  0 50000 0 01226        CLA TSXCOM-2                                                     F3B00390    
       00067  0 40200 1 01230        SUB TSXCOM,1                                                     F3B00400    
       00070  0 10000 0 00073        TZE M30050          END.  CHECK SUMS AGREE                       F3B00410    
       00071  2 00001 4 00043        TIX M30010+1,4,1    NOT EQUAL) BACK TO TRY 4 MORE T IMES         F3B00420    
       00072  0 07400 4 00004        TSX 4,4             READ DRUM 3 MORE TIMES                       F3B00430    
       00073  0 02000 0 02673 M30050 TRA TSXPT1                                                       F3B00440    
                                         PROGRAM FOR PART 3 OF MERGE                                  F3B00450    
       00074  0 07400 4 00654        TSX READTF,C        INITIALIZE TIFGO FILE BUFFER                 F3B00460    
       00075  0 07400 4 00700        TSX READFF,C        FIRST FILE BUFFERS                           F3B00470    
       00076 -0 76000 0 00142        MSE 98              IS TIFGO FILE  USED UP                       F3B00480    
       00077  0 02000 0 00101        TRA C4              NO                                           F3B00490    
       00100  0 02000 0 00150        TRA G1              YES, GO TO END 0F TIFGO ROUTINE              F3B00500    
       00101  0 50000 0 07322  C4    CLA 3794            TIFGO RECORD COUNT                           F3B00510    
       00102  0 40000 0 01151        ADD L(1D)           ADD ONE TO DECREMENT                         F3B00520    
       00103  0 60100 0 07322        STO 3794            NEW TIFGO RECORD COUNT                       F3B00530    
       00104  0 50000 1 02362  C6    CLA FFLBUF,A        OBTAIN ALPHA FOR NEXT CIT IN IST FILE BUFFER F3B00340    
       00105  0 62200 0 01221        STD FFLCFN                                                       F3B00550    
       00106  0 50000 2 02216        CLA TFGBUF,B        OBTAIN  FOR NEXT CIT AND SAVE IN             F3B00560    
       00107 -0 32000 0 01162        ANA MASK            TIFGO BUFFER                                 F3B00570    
       00110  0 62200 0 01213        STD TFGCFN                                                       F3B00580    
       00111  0 34000 0 01221        CAS FFLCFN          COMPARE FIRST FILE T0 TIFGO FILE             F3B00590    
       00112  0 02000 0 00234        TRA E1                  ALPHA LESS THAN BETA                     F3B00600    
       00113  0 02000 0 00337        TRA J1                  ALPHA EQUALS BETA                        F3B00610    
                                                             ALPHA GREATER THAN BETA                  F3B00620    
       00114  0 53400 4 01145  C5    LXA L(4),C              COMPILE  THIS TIFGO FILE INSTRUCTION     F3B00630    
       00115  0 50000 2 02216  C2    CLA TFGBUF,B        SET UP FOR WORDS                             F3B00640    
       00116  0 60100 4 01220        STO TFGCOM+4,C                                                   F3B00650    
       00117  1 77777 2 00120        TXI C1,B,-1                                                      F3B00660    
       00120  2 00001 4 00115  C1    TIX C2,C,1                                                       F3B00670    
       00121  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B00680    
       00122  0 00000 0 01214        HTR TFGCOM                                                       F3B00690    
       00123  0 00000 0 01215        HTR TFGCOM+1                                                     F3B00700    
       00124  0 00000 0 01216        HTR TFGCOM+2                                                     F3B00710    
       00125  0 00000 0 01217        HTR TFGCOM+3                                                     F3B00720    
       00126 -0 75400 2 00000        PXD 0,B                 COMPARE WORD COUNT                       F3B00730    
       00127  0 34000 0 01212        CAS TFGWC               WITH BUFFER SIZE                         F3B00740    
       00130  0 02000 0 00137        TRA C7              WORD COUNT LESS THAN BUFFER SSIZE            F3B00750    
       00131  0 02000 0 00133        TRA C3                  WC EQUALS BS                             F3B00760    
       00132  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B00770    
       00133  0 07400 4 00654  C3    TSX READTF,C        READ TIFGO FILE INTO BUFFER                  F3B00780    
       00134 -0 76000 0 00142        MSE 98                  IS TIFGO FILE USED UP                    F3B00790    
       00135  0 02000 0 00137        TRA C7                  NO    TEST LOCATION WD OF NEXT ENTRY     F3B00800    
       00136  0 02000 0 00150        TRA G1                  YES GO TO END OF TIFGO F1LE ROUTINE      F3B00810    
       00137  0 50000 2 02216  C7    CLA TFGBUF,B        WORD COUNT LESS THAN BUFFER SIZE             F3B00820    
       00140 -0 32000 0 01164        ANA 2BIT                IS LOCATION WORD SPECIAL                 F3B00830    
       00141 -0 10000 0 00114        TNZ C5                  YES  BACK TO COMPILE NEXT ENTRY          F3B00840    
       00142  0 50000 2 02216        CLA TFGBUF,B            NO                                       F3B00850    
       00143 -0 32000 0 01162        ANA MASK                DOES NEXT INSTRUCTION IN TIFGO FILE      F3B00860    
       00144  0 34000 0 01213        CAS TFGCFN              BELONG TO CURRENT COMPILED BLOCK         F3B00870    
       00145  0 02000 0 00104        TRA C6                  NO                                       F3B00880    
       00146  0 76100 0 00000        NOP                     YES                                      F3B00890    
       00147  0 02000 0 00114        TRA C5                  YES                                      F3B00900    
                                         END OF TIFGO FILE RDUTINE                                    F3B00910    
       00150 -0 76000 0 00141  G1    MSE 97                  IS FIRST FILE USED UP.  TEST SWITCH      F3B00920    
       00151  0 02000 0 00153        TRA G2                          NO                               F3B00930    
       00152  0 02000 0 00443        TRA OUT                 YES   GO TO TERMINAL ROUT INE            F3B00940    
       00153  0 50000 1 02362  G2    CLA FFLBUF,A        ENTRY IN FIRST FILE BUFFER                   F3B00950    
       00154  0 62200 0 01221        STD FFLCFN          STORE INTERNAL FORMULA NO. FOR ENTRY         F3B00960    
       00155  0 53400 4 01145  G5    LXA L(4),C              COMPILE                                  F3B00970    
       00156  0 50000 1 02362  G4    CLA FFLBUF,A            FIRST                                    F3B00980    
       00157  0 60100 4 01226        STO FFLCOM+4,C          FILE                                     F3B00990    
       00160  1 77777 1 00161        TXI G3,A,-1             INSTRUCTION                              F3B01000    
       00161  2 00001 4 00156  G3    TIX G4,C,1                                                       F3B01010    
       00162  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B01020    
       00163  0 00000 0 01222        HTR FFLCOM                                                       F3B01030    
       00164  0 00000 0 01223        HTR FFLCOM+1                                                     F3B01040    
       00165  0 00000 0 01224        HTR FFLCOM+2                                                     F3B01050    
       00166  0 00000 0 01225        HTR FFLCOM+3                                                     F3B01060    
       00167 -0 75400 1 00000        PXD 0,A                 COMPARE WORD COUNT WITH BUFFER SIZE      F3B01070    
       00170  0 34000 0 01220        CAS FFLWC           TO TEST IF FIRST FILE IS NOW EMPPTY          F3B01080    
       00171  0 02000 0 00201        TRA G8              WORD COUNT LES THAN BUFFER SIZE              F3B01090    
       00172  0 02000 0 00174        TRA G7                  WC EQUALS BS                             F3B01100    
       00173  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B01110    
       00174  0 07400 4 00700  G7    TSX READFF,C                                                     F3B01120    
       00175 -0 76000 0 00141        MSE 97              TEST IF FIRST FILE IS USED UP                F3B01130    
       00176  0 02000 0 00201        TRA G8              NO                                           F3B01140    
       00177  0 07400 4 00724        TSX M31000,C        YES, GO TO TSX COM TABLE SEARCH              F3B01150    
       00200  0 02000 0 00443        TRA OUT             TERMINAL ROUTINE                             F3B01160    
       00201  0 50000 1 02362  G8    CLA FFLBUF,A        TEST IF NEXT FIRST FILE ENTRY                F3B01170    
       00202  0 10000 0 00155        TZE G5              BELONGS TOSAME BLOCK OF INSTRUCTIQNS         F3B01180    
       00203  0 07400 4 00724        TSX M31000,C        NO                                           F3B01190    
       00204  0 50000 1 02362  G9    CLA FFLBUF,A        TEST IF NEXT FIRST FILE ALPHA                F3B01200    
       00205 -0 32000 0 01162        ANA MASK            IS GREATER THAN PREVIOUS ONE                 F3B01210    
       00206  0 34000 0 01221        CAS FFLCFN          INTERNAL FORMULA NUMBER                      F3B01220    
       00207  0 02000 0 00153        TRA G2              YES, BACK TO COMPILE NEXT INSTRUCTION        F3B01230    
       00210  0 76100 0 00000        NOP                                                              F3B01240    
       00211  0 53400 4 01145        LXA L(4),C          NO, COMPILE THIS INSTRUCTION                 F3B01230    
       00212  0 50000 1 02362  G10   CLA FFLBUF,A        ENTRY IN FIRST FILE BUFFER, SET              F3B01260    
       00213  0 60100 4 01226        STO FFLCOM+4,C      UP FOUR WORDS OF ENTRY                       F3B01270    
       00214  1 77777 1 00215        TXI G11,A,-1        STEP UP IR COUNTS                            F3B01280    
       00215  2 00001 4 00212  G11   TIX G10,C,1                                                      F3B01290    
       00216  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B01300    
       00217  0 00000 0 01222        HTR FFLCOM                                                       F3B01310    
       00220  0 00000 0 01223        HTR FFLCOM+1                                                     F3B01320    
       00221  0 00000 0 01224        HTR FFLCOM+2                                                     F3B01330    
       00222  0 00000 0 01225        HTR FFLCOM+3                                                     F3B01340    
       00223 -0 75400 1 00000        PXD 0,A             TEST IF FIRS T FILE BUFFER                   F3B01350    
       00224  0 34000 0 01220        CAS FFLWC           IS EMPTY                                     F3B01360    
       00225  0 02000 0 00204        TRA G9              NO                                           F3B01370    
       00226  0 02000 0 00230        TRA G12             YES                                          F3B01380    
       00227  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B01390    
       00230  0 07400 4 00700  G12   TSX READFF,C        READ IN TO REFILL BUFFER                     F3B01400    
       00231 -0 76000 0 00141        MSE 97              TEST IF AT END OF FIRST FILE                 F3B01410    
       00232  0 02000 0 00204        TRA G9                                                           F3B01420    
       00233  0 02000 0 00443        TRA OUT             TERMINAL ROUTINE                             F3B01430    
                                                             ALPHA LESS THAN BETA                     F3B01440    
       00234  0 53400 4 01145  E1    LXA L(4),C              COMPILE                                  F3B01450    
       00235  0 50000 1 02362  E3    CLA FFLBUF,A            FIRST                                    F3B01460    
       00236  0 60100 4 01226        STO FFLCOM+4,C          FILE                                     F3B01470    
       00237  1 77777 1 00240        TXI E2,A,-1             INSTRUCTION SET UP F0UR WORDS            F3B01480    
       00240  2 00001 4 00235  E2    TIX E3,C,1                                                       F3B01490    
       00241  0 07400 4 01022        TSX CIT00,C        COMPILER                                      F3B01500    
       00242  0 00000 0 01222        HTR FFLCOM                                                       F3B01510    
       00243  0 00000 0 01223        HTR FFLCOM+1                                                     F3B01520    
       00244  0 00000 0 01224        HTR FFLCOM+2                                                     F3B01530    
       00245  0 00000 0 01225        HTR FFLCOM+3                                                     F3B01540    
       00246 -0 75400 1 00000        PXD 0,A                 COMPARE WORD COUNT                       F3B01550    
       00247  0 34000 0 01220        CAS FFLWC               WITH BUFFER SIZE                         F3B01560    
       00250  0 02000 0 00257        TRA F1                  WC LESS THAN BS                          F3B01570    
       00251  0 02000 0 00253        TRA E4                  WC EQUALS BS                             F3B01580    
       00252  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B01590    
       00253  0 07400 4 00700  E4    TSX READFF,C        READ FIRST FILE                              F3B01600    
       00254 -0 76000 0 00141        MSE 97                  IS FIRST FILE USED UP                    F3B01610    
       00255  0 02000 0 00257        TRA F1                  NO                                       F3B01620    
       00256  0 02000 0 00312        TRA H1                  YES                                      F3B01630    
       00257  0 50000 1 02362  F1    CLA FFLBUF,A            DOES NEXT INSTRUCTION IN                 F3B01640    
       00260  0 10000 0 00234        TZE E1                  FIRST FILE HAVE ZERO LOC WORD            F3B01650    
       00261  0 07400 4 00724        TSX M31000,C        TSX COM TABLE SEARCH                         F3B01660    
       00262  0 50000 1 02362  F2    CLA FFLBUF,A        TEST KF PRESENT ALPHA IS                     F3B01670    
       00263 -0 32000 0 01162        ANA MASK            GREATER THAN ALPHA OF                        F3B01680    
       00264  0 34000 0 01221        CAS FFLCFN          PREVIOUS CIT                                 F3B01690    
       00265  0 02000 0 00104        TRA C6              NEXT INTERNAL FORMULA NO.                    F3B01700    
       00266  0 76100 0 00000        NOP                                                              F3B01710    
       00267  0 53400 4 01145        LXA L(4),C                                                       F3B01720    
       00270  0 50000 1 02362  F3    CLA FFLBUF,A        PREPARE TO COMPILE THIS INSTRUCTION          F3B01730    
       00271  0 60100 4 01226        STO FFLCOM+4,C      SET UP FOUR WORDS                            F3B01740    
       00272  1 77777 1 00273        TXI F4,A,-1                                                      F3B01750    
       00273  2 00001 4 00270  F4    TIX F3,C,1                                                       F3B01760    
       00274  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B01770    
       00275  0 00000 0 01222        HTR FFLCOM                                                       F3B01780    
       00276  0 00000 0 01223        HTR FFLCOM+1                                                     F3B01790    
       00277  0 00000 0 01224        HTR FFLCOM+2                                                     F3B01800    
       00300  0 00000 0 01225        HTR FFLCOM+3                                                     F3B01810    
       00301 -0 75400 1 00000        PXD 0,A             COUNT OF POSITION OM FIRST FILE              F3B01820    
       00302  0 34000 0 01220        CAS FFLWC           TEST IF FIRST FILE BUFFER                    F3B01830    
       00303  0 02000 0 00262        TRA F2              IS EMPTY                                     F3B01840    
       00304  0 02000 0 00306        TRA F5              NO, GET NEXT CIT ENTRY                       F3B01850    
       00305  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B01860    
       00306  0 07400 4 00700  F5    TSX READFF,C        READ FIRST FILE                              F3B01870    
       00307 -0 76000 0 00141        MSE 97              TEST IF AT END OF FIRST FILE                 F3B01880    
       00310  0 02000 0 00262        TRA F2              BACK TO GET  NEXT FIRST FILE ENTRY           F3B01890    
       00311  0 02000 0 00313        TRA H0                                                           F3B01900    
                                         END OF FIRST FILE ROUTINE                                    F3B01910    
       00312  0 07400 4 00724  H1    TSX M31000,C        READ TIFGO FILE                              F3B01920    
       00313 -0 76000 0 00142  H0    MSE 98              END OF TIFGO FILE                            F3B01930    
       00314  0 02000 0 00316        TRA H2              NO                                           F3B01940    
       00315  0 02000 0 00443        TRA OUT             YES, TO TERMINAL ROUTINE                     F3B01950    
       00316  0 53400 4 01145  H2    LXA L(4),C              COMPILE                                  F3B01960    
       00317  0 50000 2 02216  H4    CLA TFGBUF,B            TIFGO                                    F3B01970    
       00320  0 60100 4 01220        STO TFGCOM+4,C          FILE                                     F3B01980    
       00321  1 77777 2 00322        TXI H3,B,-1             INSTRUCTION                              F3B01990    
       00322  2 00001 4 00317  H3    TIX H4,C,1                                                       F3B02000    
       00323  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B02010    
       00324  0 00000 0 01214        HTR TFGCOM                                                       F3B02020    
       00325  0 00000 0 01215        HTR TFGCOM+1                                                     F3B02030    
       00326  0 00000 0 01216        HTR TFGCOM+2                                                     F3B02040    
       00327  0 00000 0 01217        HTR TFGCOM+3                                                     F3B02050    
       00330 -0 75400 2 00000        PXD 0,B                 COMPARE WORD COUNT                       F3B02060    
       00331  0 34000 0 01212        CAS TFGWC               WITH BUFFER SIZE                         F3B02070    
       00332  0 02000 0 00316        TRA H2                  WC LESS THAN BS                          F3B02080    
       00333  0 02000 0 00335        TRA H5                  WC EQUALS BS                             F3B02090    
       00334  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B02100    
       00335  0 07400 4 00654  H5    TSX READTF,C        BUFFER NOW EMPTY, READ NEXT BLOCK            F3B02110    
       00336  0 02000 0 00313        TRA H0                                                           F3B02120    
                                                             ALPHA EQUALS BETA                        F3B02130    
       00337  0 50000 2 02216  J1    CLA TFGBUF,B        TEST IF LOC. WORD OF TIFGO FILE IS           F3B02140    
       00340  0 12000 0 00376        TPL L1              MINUS NO                                     F3B02150    
                                                         BETA IS MINUS , YES                          F3B02160    
       00341  0 76000 0 00003        SSP                                                              F3B02170    
       00342  0 60100 2 02216        STO TFGBUF,B        SAVE LOCATION WORD                           F3B02180    
       00343  0 40000 0 01203        ADD L(370)          370(8) TO LOC. WORD OF FIRST FILE            F3B02190    
       00344  0 60100 1 02362        STO FFLBUF,A        SAVE NEW LOCATION                            F3B02200    
       00345  0 53400 4 01145  J4    LXA L(4),C              COMPILE                                  F3B02210    
       00346  0 50000 2 02216  J3    CLA TFGBUF,B            TIFGO                                    F3B02220    
       00347  0 60100 4 01220        STO TFGCOM+4,C          FILE                                     F3B02230    
       00350  1 77777 2 00351        TXI J2,B,-1             INSTRUCTION                              F3B02240    
       00351  2 00001 4 00346  J2    TIX J3,C,1          RESET IR 4                                   F3B02250    
       00352  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B02260    
       00353  0 00000 0 01214        HTR TFGCOM                                                       F3B02270    
       00354  0 00000 0 01215        HTR TFGCOM+1                                                     F3802280    
       00355  0 00000 0 01216        HTR TFGCOM+2                                                     F3B02290    
       00356  0 00000 0 01217        HTR TFGCOM+3                                                     F3B02300    
       00357 -0 75400 2 00000        PXD 0,B                 COMPARE WORD COUNT                       F3B02310    
       00360  0 34000 0 01212        CAS TFGWC               WITH BUFFER S1ZE                         F3B02320    
       00361  0 02000 0 00370        TRA K3                  WC LESS THAN BS                          F3B02330    
       00362  0 02000 0 00364        TRA K1                  WC EQUALS BS                             F3B02340    
       00363  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B02350    
       00364  0 07400 4 00654  K1    TSX READTF,C                                                     F3B02360    
       00365 -0 76000 0 00142        MSE 98                  IS TIFGO FILE USED UP                    F3B02370    
       00366  0 02000 0 00370        TRA K3                  NO                                       F3B02380    
       00367  0 02000 0 00150        TRA G1                  YES                                      F3B02390    
       00370  0 50000 2 02216  K3    CLA TFGBUF,B            DOES NEXT INSTRUCTION IN                 F3B02400    
       00371 -0 32000 0 01162        ANA MASK                TIFGO FILE BELONG TO CURRENT             F3B02410    
       00372  0 34000 0 01213        CAS TFGCFN              COMPILED BLOCK                           F3B02420    
       00373  0 02000 0 00234        TRA E1                  NO                                       F3B02430    
       00374  0 76100 0 00000        NOP                     YES                                      F3B02440    
       00375  0 02000 0 00345        TRA J4                  YES                                      F3B02450    
                                                             BETA IS PLUS                             F3B02460    
       00376  0 53400 4 01145  L1    LXA L(4),C              OR TIFGO FILE                            F3B02470    
       00377 -0 50000 2 02216  L2    CAL TFGBUF,B            WITH FIRST FILE                          F3B02480    
       00400 -0 60200 1 02362        ORS FFLBUF,A            INSTRUCTION                              F3B02490    
       00401  1 77777 1 00402        TXI L8,A,-1         RESET IR COUNTS                              F3B02500    
       00402  1 77777 2 00403  L8    TXI L3,B,-1                                                      F3B02510    
       00403  2 00001 4 00377  L3    TIX L2,C,1                                                       F3B02520    
       00404  1 00004 1 00405        TXI L5,A,4                                                       F3B02530    
       00405  0 53400 4 01145  L5    LXA L(4),C              COMPILE                                  F3B02540    
       00406  0 50000 1 02362  L7    CLA FFLBUF,A            FIRST                                    F3B02530    
       00407  0 60100 4 01226        STO FFLCOM+4,C          FILE                                     F3B02560    
       00410  1 77777 1 00411        TXI L6,A,-1             INSTRUCTION                              F3B02570    
       00411  2 00001 4 00406  L6    TIX L7,C,1                                                       F3B02580    
       00412  0 07400 4 01022        TSX CIT00,C                                                      F3B02590    
       00413  0 00000 0 01222        HTR FFLCOM                                                       F3B02600    
       00414  0 00000 0 01223        HTR FFLCOM+1                                                     F3B02610    
       00415  0 00000 0 01224        HTR FFLCOM+2                                                     F3B02620    
       00416  0 00000 0 01225        HTR FFLCOM+3                                                     F3B02630    
       00417 -0 75400 1 00000        PXD 0,A                 COMPARE WORD COUNT                       F3B02640    
       00420  0 34000 0 01220        CAS FFLWC               WITH BUFFER SIZE                         F3B02650    
       00421  0 02000 0 00430        TRA M3                  WC LESS THAN BS                          F3B02660    
       00422  0 02000 0 00424        TRA M1                  WC EQUALS BS                             F3B02670    
       00423  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B02680    
       00424  0 07400 4 00700  M1    TSX READFF,C                                                     F3B02690    
       00425 -0 76000 0 00141        MSE 97                  IS FIRST FILE USED UP                    F3B02700    
       00426  0 02000 0 00430        TRA M3                  NO                                       F3B02710    
       00427  0 02000 0 00330 COR1   TRA H3+6                                                         F3B02720    
       00430  0 50000 1 02362  M3    CLA FFLBUF,A            DOES NEXT INSTRUCTION IN                 F3B02730    
       00431 -0 32000 0 01162        ANA MASK                FIRST FILE BELONG TO CURRENT             F3B02740    
       00432  0 34000 0 01221        CAS FFLCFN              COMPILED BLOCK                           F3B02750    
       00433  0 02000 0 00436        TRA M4                  NO                                       F3B02760    
       00434  0 76100 0 00000        NOP                     YES                                      F3B02770    
       00435  0 02000 0 00405        TRA L5                  YES                                      F3B02780    
       00436 -0 75400 2 00000 M4     PXD 0,2             TEST IF TIFGO FILE BUFFER IS EMPTY           F3B02790    
       00437  0 34000 0 01212        CAS TFGWC                                                        F3B02800    
       00440  0 02000 0 00137        TRA C7                                                           F3B02810    
       00441  0 02000 0 00133        TRA C3                                                           F3B02820    
       00442  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B02830    
                                         M3 TERMINAL ROUTINE                                          F3B02840    
       00443 -0 53400 1 01207  OUT   LXD BBOX,1          2S C OMPLIMENT OF NO. OF WORDS               F3B02850    
       00444  0 50000 1 02523 PAT1   CLA CIB-3,1         ENTERED IN BLICK                             F3B02860    
       00445  0 40200 0 01172 PAT2   SUB L(TRA)          TEST IF TRA INSTRUCTION                      F3B02870    
       00446  0 10000 0 01137 PAT3   TZE RTN             YES                                          F3B02880    
       00447  0 02000 0 01066 COR2   TRA PAT4            NO                                           F3B02890    
       00450 -0 63400 1 00454 RET1   SXD N2,1            SAVE INDEX REG. NO. IN COMPARE INSTR.        F3B02900    
       00451  0 53400 1 01141        LXA L(0),1          INITIALIZE IR 1 T0 1                         F3B02910    
       00452  0 70000 1 02526  N1    CPY CIB,1           REMAINDER OF                                 F3B02920    
       00453  1 77777 1 00454        TXI N2,1,-1             INSTRUCTIONS IN BUFFER                   F3B02930    
 D     00454  3 00000 1 00452  N2    TXH N1,1            TEST IF AT END OF BUFFER                     F3B02940    
       00455  0 77000 0 00204        WEF 4               YES, WRITE END OF FILE                       F3B02950    
       00456 -0 53400 4 07322 M32000 LXD 3794,4   WRITE DO FILE C + FORTRAN FUNCTION FILE AS 2ND FILE F3B02960    
       00457  1 00003 4 00460        TXI M32005,4,3      POSITION TAPE 2 T0 READ DO FILE C            F3B02970    
       00460  0 76400 0 00222 M32005 BST 146                                                          F3B02980    
       00461  2 00001 4 00460        TIX M32005,4,1                                                   F3B02990    
       00462  0 76200 0 00222        RDS 146             READ DO FILE C INTO STORAGE                  F3B03000    
       00463  0 70000 0 07323        CPY 3795                                                         F3B03010    
       00464  0 53400 4 07323        LXA 3795,4          WORD COUNT                                   F3B03020    
       00465  1 00004 4 00466        TXI BST,4,4                                                      F3B03030    
       00466  0 76400 0 00222 BST    BST 146             BACK T0 FIRST WD.                            F3B03040    
       00467  2 00001 4 00466        TIX BST,4,1                                                      F3B03050    
       00470  0 76200 0 00222        RDS 146             PAST IDENTIFICATION COUNT                    F3B03060    
       00471  0 76200 0 00222        RDS 146             WORD COUNT                                   F3B030T0    
       00472  0 76600 0 00224        WRS 148             ZERO ON TAPE 4                               F3B03080    
       00473  0 70000 0 01141        CPY L(0)                                                         F3B03090    
       00474  0 50000 0 01141        CLA L(0)            RESTORE BBOX TO ZERO                         F3B03100    
       00475  0 60100 0 01207        STO BBOX                                                         F3B03110    
       00476  0 76000 0 00140        PSE 96              TURN OFF ALL SENSE SWITCHES                  F3B03120    
       00477  0 07400 4 00654 READ   TSX READTF,4        TREAD TIFGO FILE                             F3B03130    
       00500 -0 76000 0 00142        MSE 98              TEST IF AT END OF TIFGO FILE                 F3B03140    
       00501  0 02000 0 00503        TRA COMP            NO                                           F3B03150    
       00502  0 02000 0 00522        TRA FREAD           YES                                          F3B03160    
       00503  0 53400 4 01145 COMP   LXA L(4),4          4 IN IR 4                                    F3B03170    
       00504  0 50000 2 02216        CLA TFGBUF,2        SET UP FOUR WORDS FOR COMPILATION            F3B03180    
       00505  0 60100 4 01220        STO TFGCOM+4,4                                                   F3B03190    
       00506  1 77777 2 00507        TXI COMP1,2,-1                                                   F3B03200    
       00507  2 00001 4 00504 COMP1  TIX COMP+1,4,1                                                   F3B03210    
       00510  0 07400 4 01022        TSX CIT00,4         COMPILER                                     F3B03220    
       00511  0 00000 0 01214        HTR TFGCOM                                                       F3B03230    
       00512  0 00000 0 01215        HTR TFGCOM+1                                                     F3B03240    
       00513  0 00000 0 01216        HTR TFGCOM+2                                                     F3B03250    
       00514  0 00000 0 01217        HTR TFGCOM+3                                                     F3B03260    
       00515 -0 75400 2 00000        PXD 0,2             COUNT OF TIFGO                               F3B03270    
       00516  0 34000 0 01212        CAS TFGWC           COMPARE TO CURRENT FMLA. NO.                 F3B03280    
       00517  0 02000 0 00503        TRA COMP            LESS THAN, COMPILE ENTRIESP                  F3B03290    
       00520  0 02000 0 00477        TRA READ            EQUAL TO.  READ NEXT ENTRY                   F3B03300    
       00521  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B03310    
       00522  0 07400 4 00700 FREAD  TSX READFF,4        READ FIRST FILE                              F3B03320    
       00523 -0 76000 0 00141        MSE 97              TEST IF AT END OF FIRST FILE                 F3B03330    
       00524  0 02000 0 00526        TRA FCOMP           NO                                           F3B03340    
       00525  0 02000 0 00545        TRA WRITE           YES                                          F3B03350    
       00526  0 53400 4 01145 FCOMP  LXA L(4),4          SET UP COUNT AND F0UR WORSD OF ENTRY         F3B03360    
       00527  0 50000 1 02362        CLA FFLBUF,1                                                     F3B03370    
       00530  0 60100 4 01226        STO FFLCOM+4,4                                                   F3B03380    
       00531  1 77777 1 00532        TXI FCOMP1,1,-1                                                  F3B03390    
       00532  2 00001 4 00527 FCOMP1 TIX FCOMP+1,4,1                                                  F3B03400    
       00533  0 07400 4 01022        TSX CIT00,4         COMPILER                                     F3B03410    
       00534  0 00000 0 01222        HTR FFLCOM                                                       F3B03420    
       00535  0 00000 0 01223        HTR FFLCOM+1                                                     F3B03430    
       00536  0 00000 0 01224        HTR FFLCOM+2                                                     F3B03440    
       00537  0 00000 0 01225        HTR FFLCOM+3                                                     F3B03450    
       00540 -0 75400 1 00000        PXD 0,1             CHECK WORD COUNT                             F3B03460    
       00541  0 34000 0 01220        CAS FFLWC           AND COMPARE TO FIRST FILE WORD COUNT         F3B03470    
       00542  0 02000 0 00526        TRA FCOMP                                                        F3B03480    
       00543  0 02000 0 00522        TRA FREAD                                                        F3B03490    
       00544  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B03500    
       00545 -0 53400 1 01207 WRITE  LXD BBOX,1          TWOS COMPLIMENT OF NO. OF ENTRIES            F3B03510    
       00546 -3 00000 1 00555        TXL WRITE2+1,1,0                                                 F3B03520    
       00547  0 76600 0 00224        WRS 148             SELECT TAPE 4                                F3B03530    
       00550 -0 63400 1 00554        SXD WRITE2,1                                                     F3B03540    
       00551  0 53400 1 01141        LXA L(0),1                                                       F3B03550    
       00552  0 70000 1 02526 WRITE1 CPY CIB,1           REMAINDER OF BUFFER ONTO TAPE 4              F3B03560    
       00553  1 77777 1 00554        TXI WRITE2,1,-1                                                  F3B03570    
 D     00554  3 00000 1 00552 WRITE2 TXH WRITE1,1                                                     F3B03580    
       00555  0 77000 0 00224        WEF 148                                                          F3B03590    
       00556  0 53400 4 07323        LXA 3795,4                                                       F3B03600    
       00557  1 00003 4 00560        TXI P0S,4,3                                                      F3B03610    
       00560  0 76400 0 00222 P0S    BST 146             BACKSPACE OVER DO FILE C                     F3B03620    
       00561  2 00001 4 00560        TIX P0S,4,1                                                      F3B03630    
       00562  0 76200 0 00222 M32010 RDS 146                     WRITE ASC0 0VER DO FILE C ON TAPE 2  F3B03640    
       00563  0 76200 0 00222        RDS 146                                                       .  F3B03650    
       00564  0 76600 0 00222        WRS 146             SELECT TAPE 2                                F3B03660    
       00565  0 70000 0 07324        CPY 3796            COPY ASC0 OVER DOFILE C                      F3B03670    
       00566  0 50000 0 07324        CLA 3796                                                         F3B03680    
       00567  0 10000 0 00576        TZE M32030-1        NO ASC0 ENTRIES                              F3B03690    
       00570 -0 73400 1 00000        PDX 0,1             NUMBER OF ASC0 ENTRIES IN IR 1               F3803700    
       00571  0 77100 0 00022        ARS 18              SHIFT WORD COUNT                             F3B03710    
       00572  0 40000 0 00574        ADD M32020          INITIAL ADDRESS                              F3B03720    
       00573  0 62100 0 00574        STA M32020          INITIALIZE COPY ADDRESS                      F3803730    
       00574  0 70000 1 07325 M32020 CPY 3797,1          ASC0 TABLR                                   F3B03740    
       00575  2 00001 1 00574        TIX M32020,1,1                                                   F3B03750    
       00576  0 77000 0 00222        WEF 146             END OF FILE AFTER ASC0 TABLE                 F3B03760    
       00577  0 53400 4 01202 M32030 LXA M3ECTR,4        ERROR COUNT                                  F3B03770    
       00600  0 76200 0 00302        RDS 194             READ FIXCON INTO STORAGE                     F3B03780    
       00601  0 70000 0 01226        CPY FIXCON-2        DRUM CHECK SUM CHCHECKING                    F3B03790    
       00602  0 70000 0 01227        CPY FIXCON-1                                                     F3B03800    
       00603  0 50000 0 01226        CLA FIXCON-2        WORD COUNT                                   F3B03810    
       00604  0 40200 0 01227        SUB FIXCON-1        CHECK SUM                                    F3B03820    
       00605  0 10000 0 00610        TZE M32040          CORRECTP                                     F3B03830    
       00606  2 00001 4 00600        TIX M32030+1,4,1    TRY 4 MORE TIMES                             F3B03840    
       00607  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B03850    
       00610  0 53400 4 01202 M32040 LXA M3ECTR,4        ERROR COUNT                                  F3B03860    
       00611  0 50000 0 01226        CLA FIXCON-2        WORD COUNT                                   F3B03870    
       00612  0 10000 0 00634        TZE M32065          NO FIXCON ENTRIES                            F3B03880    
       00613  0 73400 3 00000        PAX 0,3             INITIALIZE WORD COUNT                        F3B03890    
       00614  0 40000 0 00623        ADD M32055          INITIAL ADDRESS                              F3B03900    
       00615  0 62100 0 00620        STA M32050                                                       F3B03910    
       00616  0 76200 0 00302        RDS 194                                                          F3B03920    
       00617  0 46000 0 01143        LDA L(2)            READ DRUM 2 FOR FIXCON TABLE                 F3B03930    
       00620  0 70000 1 00000 M32050 CPY 0,1                                                          F3B03940    
       00621  2 00001 1 00620        TIX M32050,1,1                                                   F3B03950    
       00622  0 53400 1 01141        LXA L(0),1          SET IR 1 TO ZERO                             F3B03960    
       00623  0 50000 1 01230 M32055 CLA FIXCON,1        FIRST ENTRY                                  F3B03970    
       00624  0 40200 1 01231        SUB FIXCON+1,1      CHECK SUM                                    F3B03980    
       00625  0 10000 0 00630        TZE M32060          CORRECT                                      F3B03990    
       00626  2 00001 4 00611        TIX M32040+1,4,1    TRY 4 MORE TIMES                             F3B04000    
       00627  0 07400 4 00004        TSX 4,4             WORD COUNT INCORRECT                         F3B04010    
       00630  1 77776 1 00631 M32060 TXI M32060+1,1,-2   SKIP OVER CHECK SUM                          F3B04020    
       00631  2 00002 2 00623        TIX M32055,2,2      NEXT ENTRY                                   F3B04030    
       00632 -0 63400 1 00644        SXD M32070+2,1      END OF TABLE COUNT                           F3B04040    
       00633  0 53400 2 01141        LXA L(0),2          RESET IR 2 TO ZERO                           F3B04050    
       00634  0 76600 0 00222 M32065 WRS 146                 WRITE FIXCON ON TAPE 2                   F3B04060    
       00635  0 50000 0 01226        CLA FIXCON-2                                                     F3B04070    
       00636  0 77100 0 00001        ARS 1               SET UP FIX CON ENTRIES WHITHOUT              F3B04080    
       00637  0 60100 0 01226        STO FIXCON-2        CHECK SUMS FOR WRITING OUT ON TAPE 2         F3B04090    
       00640  0 70000 0 01226        CPY FIXCON-2                                                     F3B04100    
       00641  0 10000 0 00645        TZE M32075          NO FIXCON ENTRY                              F3B04110    
       00642  0 70000 2 01230 M32070 CPY FIXCON,2                                                     F3B04120    
       00643  1 77776 2 00644        TXI M32070+2,2,-2                                                F3B04130    
 D     00644  3 00000 2 00642        TXH M32070,2                                                     F3B04140    
       00645  0 77000 0 00222 M32075 WEF 146             WRITE END OF FILE AFTER FIXCON               F3B04150    
       00646  0 53400 4 01145        LXA L(4),4                                                       F3B04160    
       00647  0 76400 0 00222        BST 146             BACKSPACE TAPE 2 FOR SECTION 4               F3B04170    
       00650  2 00001 4 00647        TIX M32075+2,4,1                                                 F3B04180    
       00651  0 76000 0 00140        PSE 96              TURN OFF ALL SENSE SWITCHES                  F3B04190    
       00652  0 76200 0 00221        RTB 1                                                            F3B04200    
       00653  0 02000 0 00004        TRA 4                                                            F3B04210    
                                         M3 CLOSED SU8ROUTINES                                        F3B04220    
                                         SUBROUTINE FOR READING A RECORD OF TIFGO FILE                F3804230    
       00654 -0 63400 1 01211 READTF SXD E3M3,A          SAVE LINKAGE IN IR 1                         F3B04240    
       00655  0 53400 1 01202        LXA M3ECTR,1        ERROR COUNT                                  F3B04250    
       00656  0 76200 0 00222 M3B3   RDS 146             TAPE 2 TO READ TIFGO FILE                    F3B04260    
       00657  0 53400 2 01141        LXA L(0),B          RESET IR2 TO ZERO                            F3B04270    
       00660  0 70000 2 02216 M3B1   CPY TFGBUF,B        COPY TIFGO FILE FROM TAPE INTO BUFFER        F3B04280    
       00661  1 77777 2 00660        TXI M3B1,B,-1       SET UP COUNT                                 F3B04290    
       00662  0 02000 0 00675        TRA M3B4                EOF                                      F3B04300    
       00663  0 76600 0 00333        WRS 219             EOR) ON TAPE 3                               F3B04310    
       00664 -0 76000 0 00012        RTT                 IS TAPE CHECK INDICATOR ON                   F3B04320    
       00665  0 02000 0 00672        TRA M3B2                YES                                      F3B04330    
       00666 -0 63400 2 01212        SXD TFGWC,B             NO                                       F3B04340    
       00667  0 53400 2 01141        LXA L(0),B          RESET INDEX OF TIFGO BUFFER                  F3B04350    
       00670 -0 53400 1 01211        LXD E3M3,A          RESTORE INDEX OF FIRST FILE BUFFER           F3B04360    
       00671  0 02000 4 00001        TRA 1,C             EXIR. BACK TO MAIN ROUTINE                   F3B04370    
       00672  0 76400 0 00222 M3B2   BST 146                                                          F3B04380    
       00673  2 00001 1 00656        TIX M3B3,A,1        ERROR ROUTINE                                F3B04390    
       00674  0 07400 4 00004        TSX 4,4             ERROR READING TAPE 2. TIFGO FILE             F3B04400    
       00675  0 76000 0 00142 M3B4   PSE 98              INDICATE END OF TIFGO FILE                   F3B04410    
       00676 -0 53400 1 01211        LXD E3M3,A          RESTORE INDEX OF FIRST FILE BUFFER           F3B04420    
       00677  0 02000 4 00001        TRA 1,C             TRANSFER TO MAIN ROUTINE                     F3B04430    
                                         SU8ROUTINE FOR READING A RECORD OF FIRST FILE                F3B04440    
       00700 -0 63400 2 01210 READFF SXD E2M3,B          SAVE COUNT IN IR 2 FOR LINKAGE               F3B04450    
       00701  0 53400 2 01202        LXA M3ECTR,B        ERROR COUNT                                  F3B04460    
       00702  0 76200 0 00223 M3A3   RDS 147             READ FIRST FILE FROM TAPE 3                  F3B04470    
       00703  0 53400 1 01141        LXA L(0),A          INITIALIZE IR1 TO ZERO                       F3B04480    
       00704  0 70000 1 02362 M3A1   CPY FFLBUF,A        COPY FIRST FILE INTO BUFFER                  F3B04490    
       00705  1 77777 1 00704        TXI M3A1,A,-1                                                    F3B04500    
       00706  0 02000 0 00721        TRA M3A4            EOF                                          F3B04510    
       00707  0 76600 0 00333        WRS 219             EOR DELAY 704  TO MAKE TAPE TEST             F3B04520    
       00710 -0 76000 0 00012        RTT                                                              F3B04530    
       00711  0 02000 0 00716        TRA M3A2            ERROR ROUTINE                                F3B04540    
       00712 -0 63400 1 01220        SXD FFLWC,A         SAVE LOCAT0N WORD OF FIRST FILE              F3B04550    
       00713  0 53400 1 01141        LXA L(0),A          RESET INDEX OF FIRST F1LE BUFFER             F3B04560    
       00714 -0 53400 2 01210        LXD E2M3,B          RESTORE INDEX OF TIFGO FILE BUFFER           F3B04570    
       00715  0 02000 4 00001        TRA 1,C                                                          F3B04580    
       00716  0 76400 0 00223 M3A2   BST 147             BACKSPACE TAPE 3 TO TRY AGAIN                F3B04590    
       00717  2 00001 2 00702        TIX M3A3,B,1                                                     F3B04600    
       00720  0 07400 4 00004        TSX 4,4             ERROR READING FIRST FILE FROM TAPE 3         F3B04610    
       00721  0 76000 0 00141 M3A4   PSE 97              INDICATE END DF FIRST FILE                   F3B04620    
       00722 -0 53400 2 01210        LXD E2M3,B          RESTORE INDEX OF TIFGO FILE BUFFER           F3B04630    
       00723  0 02000 4 00001        TRA 1,C                                                          F3B04640    
                                         TSXCOM TABLE SEARCH                                          F3B04650    
       00724 -0 63400 1 01211 M31000 SXD E3M3,1          SAVE LINKAGE OF FIRST FILE BUFFER            F3B04660    
       00725 -0 63400 4 01210        SXD E2M3,4          SAVE LINKAGE FROMT TSX INSTR.                F3B04670    
       00726  0 60000 0 01065        STZ DUP             REINITIALIZE HTE INSTR.                      F3B04680    
       00727  0 50000 0 01226 M31005 CLA TSXCOM-2        TEST WORD COUNT OF CHECK SUM                 F3B04690    
       00730  0 40200 0 01227        SUB TSXCOM-1                                                     F3B04700    
       00731  0 10000 0 01017        TZE M31080          CHECK SUM EQUALS WORD COUNT                  F3B04710    
       00732 -0 53400 1 01226        LXD TSXCOM-2,1      WORD COUNT IN IR1                            F3B04720    
       00733  0 50000 1 01230        CLA TSXCOM,1        FIRST ENTRY                                  F3B04730    
       00734 -0 32000 0 01162        ANA MASK            SAVE DECREMENT, INTERNAL FMLA. NO.           F3B04740    
       00735  0 40200 0 01221        SUB FFLCFN          FIRST FILE LOCATION NO.                      F3B04750    
       00736 -0 10000 0 01017        TNZ M31080          NOT EQUAL.  NO TSXCOM ENTRY                  F3B04760    
                                         CUR FIRST FILE FMLA NO APPEARS IN TSXCOM                     F3B04770    
       00737 -0 50000 1 01231 M31015 CAL TSXCOM+1,1                                                   F3B04780    
       00740 -0 32000 0 01165        ANA PMASK           SAVE SIGN OF SECOND WD. OF ENTRY             F3B04700    
       00741  0 10000 0 01057 CQR3   TZE CIT07+6         TYPE 1 ENTRY NEGATIVE                        F3B04800    
       00742  0 50000 1 01230        CLA TSXCOM,1        TYPE 2 ENTRY                                 F3B04810    
       00743 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS AND STORE IN                    F3B04820    
       00744  0 60100 0 01225        STO FFLCOM+3        4TH WORD OF FIRST FILE COMPILER              F3B04830    
       00745  0 50000 1 01231        CLA TSXCOM+1,1      SECOND WORD OF ENTRY                         F3B04840    
       00746  0 60100 0 01224        STO FFLCOM+2        3RD. WORD OF COMPILER                        F3B04850    
       00747  0 07400 4 01022        TSX CIT00,4         COMPILE INSTRUCTION-4                        F3B04860    
       00750  0 00000 0 01141        HTR L(0)            ZERO                                         F3B04870    
       00751  0 00000 0 01156        HTR L(LXD)          LXD INSTRUCTION                              F3B04880    
       00752  0 00000 0 01224        HTR FFLCOM+2                                                     F3B04890    
       00753  0 00000 0 01225        HTR FFLCOM+3                                                     F3B04900    
       00754  1 77776 1 00755        TXI M31030,1,-2     STEP UP COUNT FOR NEXT TSXCOM ENTRY          F3B04910    
       00755 -0 63400 1 01226 M31030 SXD TSXCOM-2,1      SAVE NEW WORD COUNT                          F3B04920    
       00756  0 02000 0 00727        TRA M31005          BACK TO SEARCH REMAING ENTRIES               F3B04930    
       00757  0 07400 4 01022 M31035 TSX CIT00,4             TYPE I ENTRY                             F3B04940    
       00760  0 00000 0 01141        HTR L(0)            ZERO                                         F3B04950    
       00761  0 00000 0 01157        HTR L(SXD)          SXD                                          F3B04960    
       00762  0 00000 0 01152        HTR L(6H)           +060000000000                                F3B04970    
       00763  0 00000 0 01155        HTR L(5.4)          000004000004                                 F3B04980    
       00764  0 50000 1 01231        CLA TSXCOM+1,1      SECOND WORD OF ENTRY                         F3B04990    
       00765 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS                                 F3805000    
       00766 -0 50100 0 01153        ORA L(10H)          ADD 120000000000                             F3B05010    
       00767  0 60100 0 01224        STO FFLCOM+2        IN 3RD. WORD OF COMPILER                     F3B05020    
       00770  0 07400 4 01022        TSX CIT00,4         FOR NEXT INSTRUCTION                         F3B05030    
       00771  0 00000 0 01141        HTR L(0)            ZERO                                         F3B05040    
       00772  0 00000 0 01160        HTR L(TSX)          TSX                                          F3B05050    
       00773  0 00000 0 01224        HTR FFLCOM+2        12(8) PLUS ADDRESS                           F3805060    
       00774  0 00000 0 01145        HTR L(4)            +000000000004                                F3B05070    
       00775  0 50000 1 01231 M31050 CLA TSXCOM+1,1      SECOND WORD                                  F3B05080    
       00776 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS                                 F3B05000    
       00777  0 60100 0 01225        STO FFLCOM+3        STORE IN 4TH. WORD OF COMPILED INSTR.        F3805100    
       01000 -0 50100 0 01154        ORA L(12H)          ADD 12(8) AND DTORE IN 3RD.                  F3B05110    
       01001  0 60100 0 01224        STO FFLCOM+2        WORD OF INSTRUCTION IN COMPILER              F3805120    
       01002  0 07400 4 01022        TSX CIT00,4                                                      F3B05130    
       01003  0 00000 0 01141        HTR L(0)            ZERO                                         F3B05140    
       01004  0 00000 0 01161        HTR L(LXP)          LXP                                          F3B05150    
       01005  0 00000 0 01224        HTR FFLCOM+2        12(8) PLUS ADDDRESS                          F3B05160    
       01006  0 00000 0 01225        HTR FFLCOM+3        ADDRESS                                      F3B05170    
       01007  1 77776 1 01010        TXI M31063-1,1,-2   RESET IR1 FOR NEXT ENTRY                     F3B05180    
       01010 -0 63400 1 01226        SXD TSXCOM-2,1      SAVE WORD COUNT                              F3B05190    
       01011  0 07400 4 01022 M31063 TSX CIT00,4       COMPILE INSTRUCTION                            F3B05200    
       01012  0 00000 0 01141        HTR L(0)            ZERO000000000                                F3B05210    
       01013  0 00000 0 01156        HTR L(LXD)          LXD                                          F3B05220    
       01014  0 00000 0 01152        HTR L(6H)           +060000000000                                F3B05230    
       01015  0 00000 0 01155        HTR L(5.4)          000004000004                                 F3B05240    
       01016  0 02000 0 00727        TRA M31005          CONT1 UE TABLE SEARCH                        F3B05230    
       01017 -0 53400 1 01211 M31080 LXD E3M3,1          END OF TSXCOM TABLE SEARCH                   F3B05260    
       01020 -0 53400 4 01210        LXD E2M3,4          RESTORE IR COUNTS FROM LINKAGE               F3805270    
       01021  0 02000 4 00001        TRA 1,4             AND GO BACK TO MAIN ROUTINE                  F3805280    
                                         COMPILING ROUTINE,CIT00                                      F3B05290    
       01022 -0 60000 0 01204 CIT00  STQ E1C             SAVE CONTENTS OF MQ                          F3B05300    
       01023 -0 63400 1 01205        SXD E2C,1           SAVE CONTENTS OF IR1                         F3B03310    
       01024 -0 63400 2 01206        SXD E3C,2           SAVE CONTENTS OF IR12                        F3B05320    
       01025 -0 53400 2 01207        LXD BBOX,2          2S COMPLIMENT OF NO. OF WORDS OF ENTRY       F3B05330    
       01026  3 77634 2 01036        TXH CIT04,2,-100    TEST IF LESS THAN 100 AND GREATER            F3B05340    
       01027 -3 00000 2 01036        TXL CIT04,2,0       THAN ZERO . IF SO. COMPILE INSTRUCTION       F3B033S0    
       01030  0 76600 0 00224        WRS 148                                                          F3B05360    
       01031  0 53400 1 01141        LXA M1CON,1         SET COUNT IN IR 1 T0 ZERO                    F3B05370    
       01032  0 70000 1 02526 CIT01  CPY CIB,1           REFILL BUFFER                                F3B05380    
       01033  1 77777 1 01034        TXI CIT02,1,-1      RESET COUNTS FOR FIRST ENTRY IN BUFFER       F3B05390    
       01034  1 00001 2 01035 CIT02  TXI CIT03,2,1                                                    F3B05400    
       01035  3 00001 2 01032 CIT03  TXH CIT01,2,1                                                    F3B05410    
       01036  0 53400 1 01145 CIT04  LXA M1CON+4,1       COUNT OF 4 IN IR1                            F3B05420    
       01037  0 50000 0 01142        CLA M1CON+1                                                      F3B05430    
       01040  0 62100 0 01041        STA CIT05                                                        F3B05440    
       01041  0 50000 4 00000 CIT05  CLA 0,4             LINKAGE FROM MAIN ROUTINE PLUS 1             F3B05430    
       01042  0 62100 0 01043        STA CIT06                                                        F3B05460    
 A     01043  0 50000 0 00000 CIT06  CLA                 FIRST PARAMETER. 2ND.) 3RD.) AND4TH.         F3B03470    
       01044  0 60100 2 02526        STO CIB,2           AND STORE IN PROPER OUTPUT AREA              F3B05480    
       01045  0 50000 0 01041        CLA CIT05                                                        F3B05490    
       01046  0 40000 0 01142        ADD M1CON+1                                                      F3B05500    
       01047  0 62100 0 01041        STA CIT05           TO GET NEXT WORD                             F3B05310    
       01050  1 77777 2 01051        TXI CIT07,2,-1      DECREASE COUNT IN IR1 AND 2 BY ONE           F3B05520    
       01051  2 00001 1 01041 CIT07  TIX CIT05,1,1                                                    F3B05530    
       01052 -0 63400 2 01207        SXD BBOX,2          SAVE COUNT OF CIB BUFFER                     F3B05540    
       01053  0 56000 0 01204        LDQ E1C             REDTORE MQ                                   F3B05550    
       01054 -0 53400 1 01205        LXD E2C,1           RESTORE IR 1                                 F3B05560    
       01055 -0 53400 2 01206        LXD E3C,2           RESTORE IR2                                  F3B05570    
       01056  0 02000 4 00003        TRA 3,4             BACK TO MAIN ROUTINE                         F3B05580    
       01057  0 50000 1 01231        CLA TSXCOM+1,1                                                   F3B05590    
       01060  0 34000 0 01065        CAS DUP                                                          F3B05600    
       01061  0 02000 0 01063        TRA DIF                                                          F3B05610    
       01062  1 77776 1 00755        TXI M31030,1,-2                                                  F3B05620    
       01063  0 60100 0 01065 DIF    STO DUP                                                          F3B05630    
       01064  0 02000 0 00757        TRA M31035                                                       F3B05640    
 A     01065  0 00000 0 00000 DUP    HTR                                                              F3B05650    
       01066  0 07400 4 01022 PAT4   TSX CIT00,4         COMPILER FOR LOAD BUTTON SEQUENCE            F3B05660    
       01067  0 00000 0 01175 PAT5   HTR ZERO                                                         F3B05670    
       01070  0 00000 0 01166 PAT6   HTR L(RCD)          RCD                                          F3B05680    
       01071  0 00000 0 01175 PAT7   HTR ZERO                                                         F3B05690    
       01072  0 00000 0 01175 PAT8   HTR ZERO                                                         F3B05700    
       01073  0 07400 4 01022 PAT9   TSX CIT00,4         COMPILE INSTRUCTION                          F3B05710    
       01074  0 00000 0 01175 PAT10  HTR ZERO                                                         F3B05720    
       01075  0 00000 0 01167 PAT11  HTR L(CPY)          CPY                                          F3B05730    
       01076  0 00000 0 01175 PAT12  HTR ZERO                                                         F3B05740    
       01077  0 00000 0 01175 PAT13  HTR ZERO                                                         F3B05750    
       01100  0 07400 4 01022 PAT14  TSX CIT00,4                                                      F3B05760    
       01101  0 00000 0 01175 PAT15  HTR ZERO                                                         F3B05770    
       01102  0 00000 0 01170 PAT16  HTR L(XIT)          XIT                                          F3B05780    
       01103  0 00000 0 01173 PAT17  HTR L(15H)          +170000000000                                F3B05790    
       01104  0 00000 0 01177 PAT18  HTR L(2D)           000002000000                                 F3B05800    
       01105  0 07400 4 01022 PAT19  TSX CIT00,4                                                      F3B05810    
       01106  0 00000 0 01175 PAT20  HTR ZERO                                                         F3B05820    
       01107  0 00000 0 01171 PAT21  HTR L(HPR)          HPR                                          F3B05830    
       01110  0 00000 0 01175 PAT22  HTR ZERO                                                         F3B05840    
       01111  0 00000 0 01200 PAT23  HTR L(7M)           7 PLUS LOC. NO. OF RCD INSTR.                F3B05850    
       01112  0 07400 4 01022 PAT24  TSX CIT00,4                                                      F3B05860    
       01113  0 00000 0 01175 PAT25  HTR ZERO                                                         F3B05870    
       01114  0 00000 0 01167 PAT26  HTR L(CPY)          CPY                                          F3B05880    
       01115  0 00000 0 01175 PAT27  HTR ZERO                                                         F3B05890    
       01116  0 00000 0 01176 PAT28  HTR ONED            000000000001                                 F3B03900    
       01117  0 07400 4 01022 PAT29  TSX CIT00,4                                                      F3B05910    
       01120  0 00000 0 01175 PAT30  HTR ZERO                                                         F3B05920    
       01121  0 00000 0 01170 PAT31  HTR L(XIT)          XIT                                          F3B05930    
       01122  0 00000 0 01175 PAT32  HTR ZERO                                                         F3B05940    
       01123  0 00000 0 01175 PAT33  HTR ZERO                                                         F3B05950    
       01124  0 07400 4 01022 PAT34  TSX CIT00,4                                                      F3B05960    
       01125  0 00000 0 01174 PAT35  HTR L(LOC)          +003777000370                                F3B05970    
       01126  0 00000 0 01171 PAT36  HTR L(HPR)          HPR                                          F3B05980    
       01127  0 00000 0 01175 PAT37  HTR ZERO                                                         F3B05990    
       01130  0 00000 0 01201 PAT38  HTR L(1.7)          000001000007                                 F3B06000    
       01131  0 07400 4 01022 PAT39  TSX CIT00,4                                                      F3B06010    
       01132  0 00000 0 01175 PAT40  HTR ZERO                                                         F3B06020    
       01133  0 00000 0 01172 PAT41  HTR L(TRA)          TRA TO FINAL HALT                            F3B06030    
       01134  0 00000 0 01174 PAT42  HTR L(LOC)                                                       F3B06040    
       01135  0 00000 0 01175 PAT43  HTR ZERO                                                         F3B06050    
       01136 -0 53400 1 01207 PAT44  LXD BBOX,1          RESTORE COUNT IN IR1                         F3B06060    
       01137  0 76600 0 00224 RTN    WRS 148                                                          F3B06070    
       01140  0 02000 0 00450 PAT46  TRA RET1            BACK TO COMPLETE TERMINAL ROUTINE            F3B06080    
                                         WORKING STORAGE AND CONSTANTS                                F3B06090    
                        00001  A     EQU 1                                                            F3B06100    
                        00002  B     EQU 2                                                            F3B06110    
                        00004  C     EQU 4                                                            F3B06120    
       01141 +000000000000     L(0)  DEC 0                                                            F3B06130    
                        01141  M1CON SYN L(0)                                                         F3B06140    
       01142 +000000000001     L(1)  DEC 1                                                            F3B06150    
       01143 +000000000002    L(2)   DEC 2                                                            F3B06160    
       01144 +000000000003     L(3)  DEC 3                                                            F3B06170    
       01145 +000000000004     L(4)  DEC 4                                                            F3B06180    
       01146 +000000000010     L(8)  DEC 8                                                            F3B06190    
       01147 +000000001300    L(704) DEC 704                                                          F3B06200    
       01150 +000000001302    L(706) DEC 706                                                          F3B06210    
       01151 +000001000000    L(1D)  DEC 1B17                                                         F3B06220    
       01152 +060000000000    L(6H)  OCT 60000000000                                                  F3B06230    
       01153 +120000000000    L(10H) OCT 120000000000                                                 F3B06240    
       01154 +140000000000    L(12H) OCT 140000000000                                                 F3B06250    
       01155 +000004000004    L(5.4) OCT 4000004                                                      F3B06260    
       01156  436724000000    L(LXD) BCD 1LXD000                                                      F3B06270    
       01157  626724000000    L(SXD) BCD 1SXD000                                                      F3B06280    
       01160  636267000000    L(TSX) BCD 1TSX000                                                      F3B06290    
       01161  436747000000    L(LXP) BCD 1LXP000                                                      F3B06300    
       01162 +077777000000     MASK  OCT 77777000000                                                  F3B06310    
       01163 +000000077777     AMASK OCT 77777                                                        F3B06320    
       01164 +100000000000     2BIT  OCT 100000000000                                                 F3B06330    
       01165 -300000000000     PMASK OCT 700000000000                                                 F3806340    
       01166  512324000000    L(RCD) BCD 1RCD000                                                      F3B06330    
       01167  234770000000    L(CPY) BCD 1CPY000                                                      F3B06360    
       01170  673163000000    L(XIT) BCD 1XIT000                                                      F3806370    
       01171  304751000000    L(HPR) BCD 1HPR000                                                      F3B06380    
       01172  635121000000    L(TRA) BCD 1TRA000                                                      F3B06300    
       01173 +170000000000    L(15H) OCT 170000000000                                                 F3B06400    
       01174 +003777000370    L(LOC) OCT 3777000370                                                   F3B06410    
       01175  0 00000 0 00000 ZERO   PZE                                                              F3B06420    
       01176 +000001000000    ONED   DEC 1B17                                                         F3B06430    
       01177 +000002000000    L(2D)  DEC 2B17                                                         F3B06440    
       01200 +000000000007    L(7M)  DEC 7                                                            F3B06450    
       01201 +000001000007    L(1.7) OCT 1000007                                                      F3B06460    
       01202 +000000000005    M3ECTR DEC 5                                                            F3B06470    
       01203 +000000000370    L(370) OCT 370                                                          F3B06475    
       01204  0 00000 0 00000 E1C         CELL FOR SAVING MQ                                          F3B06480    
       01205  0 00000 0 00000 E2C         CELL FOR SAVING IRA                                         F3B06490    
       01206  0 00000 0 00000 E3C         CELL FOR SAVING IRB                                         F3B06500    
       01207  0 00000 0 00000 BBOX        2S COMP OF NO OF WORDS  ALREADY ENTERED IN BLOCK            F3B06510    
       01210  0 00000 0 00000 E2M3                                                                    F3B06520    
       01211  0 00000 0 00000 E3M3                                                                    F3B06530    
                                         SENSE LITE 98 ON FOR END OF TIFGO FILE                       F3B06540    
       01212  0 00000 0 00000 TFGWC                           TIFGO WORD COUNT                        F3B06530    
       01213  0 00000 0 00000 TFGCFN      CURRENT FORMULA NUM FOR TIFGO INSTRUCTION                   F3806560    
                        01214 TFGCOM BSS 4                   TIFGO COMPILER                           F3806570    
                                         SENSE LITE 97 ON FOR END OF FIRST FILE                       F3B06580    
       01220  0 00000 0 00000 FFLWC                           FIRST FILE WORD COUNT                   F3B06590    
       01221  0 00000 0 00000 FFLCFN      CURRENT FORMULA NUM FOR FIRST FILE INSTR                    F3B06600    
                        01222 FFLCOM BSS 4                   FIRST FILE COMPILER                      F3B06610    
       01226  0 00000 0 00000        PZE                                                              F3B06620    
       01227  0 00000 0 00000        PZE                                                              F3B06630    
                        01230 TSXCOM BSS 502                                                          F3B06640    
                        01230 FIXCON SYN TSXCOM                                                       F3B06650    
                        02216 TFGBUF BSS 100                 TIFGO BUFFER                             F3B06660    
                        02362 FFLBUF BSS 100                 FIRST FILE BUFFER                        F3B06670    
                        02526  CIB   BSS 100                                                          F3B06680    
                        02673        ORG 1467                                                         F3B06681    
       02673  0 60200 0 01226 TSXPT1 SLW TSXCOM-2                                                     F3B06682    
       02674  0 07400 4 00654        TSX READTF,4                                                     F3B06683    
       02675  0 07400 4 00700        TSX READFF,4                                                     F3B06684    
       02676 -0 76000 0 00141        MSE 97                                                           F3B06685    
       02677  0 02000 0 02702        TRA TSXPT2                                                       F3B06686    
       02700  0 76000 0 00141        PSE 97                                                           F3B06687    
       02701  0 02000 0 00076        TRA M30050+3                                                     F3B06688    
       02702  0 50000 0 01230 TSXPT2 CLA TSXCOM                                                       F3B06689    
       02703  0 34000 0 02362        CAS FFLBUF                                                       F3B06690    
       02704  0 02000 0 00076        TRA M30050+3                                                     F3B06691    
       02705  0 02000 0 00076        TRA M30050+3                                                     F3B06692    
       02706  0 50000 0 01230        CLA TSXCOM                                                       F3B06693    
       02707  0 62200 0 01221        STD FFLCFN                                                       F3B06694    
       02710  0 07400 4 00724        TSX M31000,4                                                     F3B06695    
       02711  0 02000 0 00076        TRA M30050+3                                                     F3B06696    
                        00030        END 24                                                           F3B06700    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     687           0           0           0           0
 LIB       0           0           0           0           0
 COL     687           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      696                  
0NUMBER OF SYMBOLS,  DEF   216,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN II, 4-1-6-2 SYSTEM                               F4400010    
1                                        704 FORTRAN II, 4-1-6-2 SYSTEM                               F4400010    
                                         SECTION 4 - FLOW ANALYSIS                                    F4400020    
                                         ROBERT C. BRILL - NOVEMBER 13, 1958                          F4400030    
                                                                                                      F4400040    
                                         NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2    F4400050    
                                         SYSTEM TAPE.  TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM    F4400060    
                                         TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING.             F4400070    
                                              IN RECORD F0730000, LOCATI0N 77, CHANGE                 F4400080    
                                                   000674000000 TO 003140000000                       F4400090    
                                              IN RECORD F0730000, LOCATI0N 632, CHANGE                F4400100    
                                                   000000000215 TO 000000001037                       F4400110    
                                                                                                      F4400120    
                                                                                                      F4400130    
                                         DEFINITI0N STATEMENTS                                        F4400140    
                        00215 BBBB.J SYN 141                       THESE FIRST TWO DEFINITI0NS MAKE   F4400150    
                        00674 BBSIZE SYN 444                          THE PROGRAM COMPATIBLE WITH     F4400160    
                                                                      SECTI0N 5 (TAG ANALYSIS).  THEIRF4400170    
                                                                      VALUES ARE THOSE OF PREDL (BLOCKF4400180    
                                                                      LENGTH OF PRED TABLE) AND 6*BBBLF4400190    
                                                                      (BLOCK LENGTH OF BB TABLE) RES- F4400200    
                                                                      PECT1VELY, AS GIVEN IN THE      F4400210    
                                                                      SECTI0N 5 LISTING.              F4400220    
                        04230 NOINS  SYN 2200                      BLOCK LENGTH OF COMPILED           F4400230    
                                                                      INSTRUCTION TABLE (CIT)-PART 1  F4400240    
                        00454 ZINSTM SYN 300                       SAME AS PREVIOUS - PART 2          F4400230    
                        00144 ZINSTR SYN 100                       SAME AS PREVIOUS - PART 6          F4400260    
                        01274 ZBB    SYN 700                       LENGTH OF BB LIST                  F4400270    
                        00310 ZTIFRD SYN 200                       8LOCK LENGTH OF TIFRD              F4400280    
                        01750 XFRET= SYN 1000                      TABLE LENGTH AND DRUM ADD FOR FRET F4400290    
                        00372 ZFRET= SYN 250                       BLOCK LENGTH OF FRET               F4400300    
                        00620 XSET   SYN 400                       LENGTH OF SET TABLE                F4400310    
                        00310 ZSET   SYN 200                       BLOCK LENGTH OF SET TABLE          F4400320    
                        00031 ZNLIST SYN 25                        LENGTH 0F NLIST                    F4400330    
                        05360 XTRA   SYN 2800                      LENGTH 0F TRA TABLE                F4400340    
                        01274 ZTRA   SYN 700                       BLOCK LENGTH OF TRA TA8LE          F4400350    
                        00017 ZTAG   SYN 15                        BLOCK LENGTH OF TAGLIST H          F4400360    
                        00000 XXXXXX SYN 0                         THE APPEARANCE OF THIS SYMBOL IN   F4400370    
                                                                      THE LISTING INDICATES THAT ITS  F4400380    
                                                                      VALUE IS SET BY THE PROGRAM.    F4400390    
                        00004 RDFORT SYN 4                         A TSX RDFORT,4 CALLS IN THE DIAG-  F4400400    
                                                                      NOSTIC ROUTINE. A RDS SYSTAP    F4400410    
                                                                      FOLL0WED BY A TRA RDFORT CALLS  F4400420    
                                                                      IN THE NEXT RECORD OF THE       F4400430    
                                                                      FORTRAN PROGRAM.                F4400440    
                        07774 BBOX.= SYN 4092                      THE FOLL0WING ARE THE ADDRESSES    F4400450    
                        07775 DOBOX= SYN 4093                         OF SPECIAL COUNTERS             F4400460    
                        07776 SSBOX= SYN 4094                                                         F4400470    
                        07777 TTBOX= SYN 4095                                                         F4400480    
                        07775 SUCCBX SYN 4093                                                         F4400490    
                        07776 PREDBX SYN 4094                                                         F4400500    
                        07777 BBTBOX SYN 4095                                                         F4400510    
                        00221 SYSTAP SYN 145                       FORTRAN SYSTEM TAPE (LOGICAL 1)    F4400520    
                        00222 TBLTAP SYN 146                       TIFGO, TRAD, FRET, AND DOTAG       F4400530    
                                                                      TAPE (LOGICAL 2)                F4400540    
                        00223 TAGTAP SYN 147                       TAGLIST TAPE (LOGICAL 3)           F4400550    
                        00223 BLT    SYN 147                       BBLIST TAPE (LOGICAL 3)            F4400560    
                        00224 INSTTP SYN 148                       CIT TAPE (L0GICAL 4)               F4400370    
                        00301 TIFDRM SYN 193                       TIFRD DRUM (L0GICAL 1)             F4400380    
                        00301 DOCRDR SYN 193                       DOCARE DRUM (LOGICAL 1)            F4400300    
                        00301 DODRUM SYN 193                       DOLIST DRUM (LOGICAL 1)            F4400600    
                        00301 TRADRM SYN 193                       INITIAL TRA TABLE DRUM (LOGICAL 1) F4400610    
                        00302 FRTDRM SYN 194                       FRET DRUM (LOGICAL 2)              F4400620    
                        00303 BBLDRM SYN 195                       BBLIST DRUM (LOGICAL 3)            F4400630    
                        00303 SETDRM SYN 195                       SET DRUM (LOGICAL 3)               F4400640    
                        01750 TIFADD SYN 1000                      DRUM ADDRESS FOR TIFRD             F4400630    
                        03270 DOADDR SYN 1720                      DRUM ADDRESS FOR DO LIST           F4400660    
                        02260 BBLADD SYN 1200                      DRUM ADDRESS FOR BB LIST           F4400670    
                        01750 FRTADD SYN 1000                      DRUM ADDRESS FOR FRET              F4400680    
                        01275 SETADD SYN 701                       DRUM ADDRESS FOR SET TABLE         F4400690    
                        07773 BBLIST SYN 4091                      THE FOLLOWING ARE THE BASE         F4400700    
                        06500 DOLIST SYN BBLIST-ZBB+1                 ADDRESSES OF ALL TABLES         F4400710    
                        06024 INST.A SYN DOLIST-300                                                   F4400720    
                        06024 TIFRD  SYN DOLIST-300                                                   F4400730    
                        03710 TRAD.= SYN TIFRD-1100                                                   F4400740    
                        06023 FRET.= SYN DOLIST-301                                                   F4400750    
                        06023 DVFQ.= SYN FRET.=                                                       F4400760    
                        04216 DOTAG  SYN DVFQ.=-301-600                                               F4400770    
                        04216 DOCARE SYN DOTAG                                                        F4400780    
                        06024 TRA..M SYN DOLIST-300                                                   F4400790    
                        04524 SET..M SYN TRA..M-ZTRA-4                                                F4400800    
                        04214 TIFRDM SYN SET..M-200                                                   F4400810    
                        03703 INST.M SYN TIFRDM-201                                                   F4400820    
                        07774 SETLOC SYN BBLIST+1                                                     F4400830    
                        07773 TRATBL SYN BBLIST                                                       F4400840    
                        02413 BBTABL SYN TRATBL-2800                                                  F4400850    
                        02414 FIXDOS SYN BBTABL+1                                                     F4400860    
                        01114 NLIST  SYN BBTABL-ZBB-3                                                 F4400870    
                        01062 FRET   SYN NLIST-26                                                     F4400880    
                        01062 SETTAB SYN NLIST-25-1                                                   F4400890    
                        01260 SNSLT  SYN NLIST+100                                                    F4400900    
                        01120 DOBLOK SYN BBTABL-ZBB+1                                                 F4400910    
                        00443 LCNTR  SYN DOBLOK-300-1                                                 F4400920    
                        06500 TAG    SYN BBLIST-ZBB+1                                                 F4400930    
                        06460 INST.R SYN TAG-15-1                                                     F4400940    
                        06314 BBTAGS SYN INST.R-100                                                   F4400950    
                        06024 INSTA  SYN INST.A                                                       F4400960    
                        03703 INSTM  SYN INST.M                                                       F4400970    
                        06460 INSTR  SYN INST.R                                                       F4400980    
                        07773 PRED   SYN TRATBL                                                       F4400990    
                        04524 SETM   SYN SET..M                                                       F4401000    
                        06024 TRAM   SYN TRA..M                                                       F4401010    
                        01574 BGINS  SYN INSTA-NOINS               END OF INST. BLOCK (PART 1)        F4401020    
                        04053 FRETN= SYN FRET.=-1000               BEGINNING OF FRET (PART 1)         F4401030    
                        04530 NDTRA  SYN TRAM-700                  END OF TRA TABLE BLOCK (PART 2)    F4401040    
                        03227 NDINS  SYN INSTM-300                 END OF INST. BLOCK (PART 2)        F4401030    
                        03704 NTIFR  SYN TIFRDM-200                EN0 OF TIFRD 8LOCK (PART 2)        F4401060    
                        07464 NDSET  SYN SETLOC-ZSET               END OF SET BLOCK (PART 3)          F4401070    
                                                                                                      F4401080    
                                                                                                      F4401090    
                                          SECTION 4 - PART 1 OF 6                                     F4410010    
                                                                                                      F4410020    
                                          FORTRAN EDITOR INFORMATION                                  F4410030    
                                             MASTER RECORD CARD = F0620000                            F4410040    
                                             ENTRY POINT = 112                                        F4410050    
                                             FIRST LOCATION = 30                                      F4410060    
                                             LAST LOCATION = 1327                                     F4410070    
                                                                                                      F4410080    
                                                                                                      F4410090    
                        00030        ORG 24                                                           F4410100    
                                         CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES       F4410110    
                                         THROUGHOUT SECTION 4.)                                       F4410120    
       00030 +000000000000    ERRBX  DEC 0                         COUNTER FOR READING ERRORS         F4410130    
       00031 +000000000001    LA1    DEC 1                                                            F4410140    
       00032 -000000000004    MINUS4 DEC -4                                                           F4410150    
       00033 +000000000000    L0...= DEC 0                                                            F4410160    
       00034 +000000000005    L5...= DEC 5                                                            F4410170    
       00035 +000000000002    TIFLAB DEC 2                                                            F4410180    
       00036 +000000000003    TRALAB DEC 3                                                            F4410190    
       00037 +000000000007    FRELAB DEC 7                                                            F4410200    
       00040  0 00001 0 00000 LD1..= HTR 0,0,1                                                        F4410210    
       00041  0 00000 0 00310 LZTIF=     ZTIFRD                                                       F4410220    
       00042  0 00000 0 00312 LZTF2=     ZTIFRD+2                                                     F4410230    
       00043  0 00000 0 00372 LAZFT=     ZFRET=                                                       F4410240    
       00044  0 00000 0 00374 LAFT2=     ZFRET=+2                                                     F4410250    
       00045  0 00000 0 01300 LZTR4=     ZTRA+4                                                       F4410260    
       00046  0 00000 0 01750 FRETY=     FRTADD                    DRUM ADDRESS FOR FRET              F4410270    
       00047  0 00000 0 01750 Y          TIFADD                    DRUM ADDRESS FOR TIFRD             F4410280    
       00050  0 01750 0 00000 LXFRT=     0,0,XFRET=                                                   F4410290    
       00051 +170000000000    OCTAL  OCT 170000000000                                                 F4410300    
       00052 +377777777777    ENDMK= OCT 377777777777                                                 F4410310    
       00053 +000000700000    TAGMRK OCT 700000                                                       F4410320    
       00054 +077777000000    OPMSK= OCT 77777000000                                                  F4410330    
       00055 +000060000000    PSEMK= OCT 60000000                                                     F4410340    
       00056 +000070000000    PSTMK= OCT 70000000                                                     F4410350    
       00057 +000000777777    TGMSK= OCT 777777                                                       F4410360    
       00060 -300000000000    NMASK= OCT -300000000000                                                F4410370    
       00061 -370000000000    1STLT= OCT -370000000000                                                F4410380    
       00062 -230000000000    1STT.= OCT -230000000000                                                F4410390    
       00063  0 76100 0 00000 LNOP.= NOP                           PROGRAM CONSTANT                   F4410400    
       00064 +035121000000    LTRA.= OCT 35121000000               TRA                                F4410410    
       00065 +001146000000           OCT 1146000000                TSX-TRA                            F4410420    
       00066 +000454000000           OCT 454000000                 TXL-TSX                            F4410430    
       00067 +000162000000    LTROP= OCT 162000000                 TZE-TXL                            F4410440    
       00070 +042363000000           OCT 42363000000               DCT                                F4410450    
       00071 -024000000000           OCT -24000000000              RTT-DCT                            F4410460    
       00072 +027642000000           OCT 27642000000               MSE-RTT                            F4410470    
       00073 +030000000000    LPCOP= OCT 30000000000               PSE-MSE                            F4410480    
       00074 +034743000000    LTPL.= OCT 34743000000                                                  F4410490    
       00075  0 02000 0 00135 LTRAA  TRA AA+1                                                         F4410500    
       00076  0 02000 0 00435 LOUT   TRA STTIF=                                                       F4410510    
       00077  0 02000 0 00125 LBEG   TRA BEGCLA                                                       F4410520    
       00100  0 02000 0 00135 LXRDN  TRA AA+1                                                         F4410530    
       00101  0 02000 0 01262 LMPY   TRA MPY                                                          F4410540    
       00102  0 02000 0 01235 LSTQ   TRA STQDTG                                                       F4410550    
       00103 +002000000000    CONSTA OCT 2000000000                                                   F4410560    
       00104  2 00000 1 00406 CNST2A TIX CLAB,1,0                                                     F4410570    
       00105  0 00000 0 00000 ERAS1=                                                                  F4410580    
       00106  0 00000 0 00000 ERAS2=                                                                  F4410590    
       00107  0 00000 0 00000 ERAS3=                                                                  F4410600    
                        00107 FRTBX= SYN ERAS3=                                                       F4410610    
       00110  0 00000 0 00000 OPCD                                                                    F4410620    
       00111  0 00001 0 00000 DVFQB= HTR 0,0,1                                                        F4410630    
                                                                                                      F4410640    
                                         THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST     F4410650    
                                         KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE    F4410660    
                                         FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM. F4410670    
       00112  0 77200 0 00224 PASS1  REW INSTTP                                                       F4410680    
       00113  0 50000 0 00052        CLA ENDMK=                                                       F4410690    
       00114  0 60100 0 07773        STO BBLIST                    STORE MARK FOR END OF B B LIST     F4410700    
 T     00115 -0 75400 0 00000        PXD                                                              F4410710    
       00116  0 60100 0 07774        STO BBOX.=                                                       F4410720    
       00117  0 60100 0 07775        STO DOBOX=                                                       F4410730    
       00120  0 60100 0 07776        STO SSBOX=                                                       F4410740    
       00121  0 60100 0 07777        STO TTBOX=                                                       F4410750    
       00122  0 50000 0 00077        CLA LBEG                                                         F4410760    
       00123  0 62100 0 00342        STA XRDIN                     SET EXIT ADDRESS                   F4410770    
       00124  0 02000 0 00310        TRA RDINSA                    TRANSFER TO ROUTINE TO READ IN 1ST F4410780    
                                                                      BLOCK OF COMPILED INSTRUCTIONS  F4410790    
       00125  0 50000 0 00100 BEGCLA CLA LXRDN                     RESTORE USUAL EXIT ADDRESS         F4410800    
       00126  0 62100 0 00342        STA XRDIN                                                        F4410810    
       00127  0 53400 2 00031        LXA LA1,2                     INITIALIZE INDEX REGISTERS         F4410820    
       00130  0 53400 1 00031        LXA LA1,1                                                        F4410830    
       00131  1 00014 1 00132 LD12.= TXI LD12.=+1,1,12                                                F4410840    
       00132  0 50000 1 06024        CLA INST.A,1                  PUT INSTRUCTION NUMBER OF FIRST    F4410850    
       00133  0 07400 4 00356        TSX STB,4                        INSTRUCTION IN BBLIST           F4410860    
       00134  2 04230 1 00310 AA     TIX RDINSA,1,NOINS            TEST FOR END OF INSTRUCTION BLOCK  F4410870    
       00135  0 50000 1 06024        CLA INST.A,1                  IF THERE IS NO LOCATION SYMBOL,    F4410880    
       00136  0 10000 0 00153        TZE OTHER                       THIS INST. NEED NOT BE CONSIDEREDF4410890    
       00137 -0 50000 1 06023        CAL INST.A-1,1                                                   F4410900    
       00140  0 62200 0 00110        STD OPCD                                                         F4410910    
       00141 -0 32000 0 00061        ANA 1STLT=                    IF FIRST LETTER IS A T,GO TO TRCS  F4410920    
       00142  0 60200 0 00105        SLW ERAS1=                                                       F4410930    
       00143  0 50000 0 00105        CLA ERAS1=                                                       F4410940    
       00144  0 40200 0 00062        SUB 1STT.=                                                       F4410950    
       00145  0 10000 0 00160        TZE TRCS                                                         F4410960    
       00146  0 50000 0 00110        CLA OPCD                                                         F4410970    
       00147 -0 53400 4 00220        LXD LD4..=,4                  FOUR INTO INDEX REGISTER C         F4410980    
       00150  0 40200 4 00074 PSUB   SUB LPCOP=+1,4                LOOK FOR A TEST INSTRUCTION        F4410990    
       00151  0 10000 4 00160        TZE PTRA+1,4                  THIS IS A TEST                     F4411000    
       00152  2 00001 4 00150        TIX PSUB,4,1                                                     F4411010    
       00153  1 00004 1 00134 OTHER  TXI AA,1,4                    NO TRANSFER EXISTS                 F4411020    
       00154  0 02000 0 00266        TRA TSTCS                     DCT                                F4411030    
       00155  0 02000 0 00266        TRA TSTCS                     RTT                                F4411040    
       00156  0 02000 0 00266        TRA TSTCS                     MSE                                F4411050    
       00157  0 02000 0 00262 PTRA   TRA PSECS                     PSE                                F4411060    
       00160  0 50000 0 00110 TRCS   CLA OPCD                      FIND WHAT KIND OF TRANSFER THIS IS F4411070    
       00161 -0 53400 4 00220        LXD LD4..=,4                  FOUR INTO INDEX REGISTER C         F4411080    
       00162  0 40200 4 00070 P2SUB  SUB LTROP=+1,4                                                   F4411090    
       00163  0 10000 4 00204        TZE P2TRA+1,4                 HAVE FOUND TYPE OF TRANSFER        F4411100    
       00164  2 00001 4 00162        TIX P2SUB,4,1                 NOT FOUND YET                      F4411110    
       00165  0 50000 1 06022        CLA INST.A-2,1                IS THIS A TRANSFER WITH A SYMBOLIC F4411120    
       00166  0 40200 0 00051        SUB OCTAL                        ADDRESS = SPECIAL MARK          F4411130    
       00167  0 10000 0 00153        TZE OTHER                     YES,IGNORE AS NOT REAL TRANSFER    F4411140    
       00170  0 50000 1 06024        CLA INST.A,1                                                     F4411150    
       00171  0 40200 1 06022        SUB INST.A-2,1                                                   F4411160    
       00172  0 10000 0 00153        TZE OTHER                                                        F4411170    
       00173  0 50000 1 06022 2WYTR  CLA INSTA-2,1                 IS  A CONDITONAL TRANSFER, PUT ITS F4411180    
       00174  0 07400 4 00356        TSX STB,4                        ADDRESS AND THE ADDRESS OF THE  F4411190    
       00175  0 50000 1 06016        CLA INST.A-6,1                   NEXT INSTRUCTION IN THE BASIC   F4411200    
       00176  0 07400 4 00356        TSX STB,4                        BLOCK LIST                      F4411210    
       00177  1 00010 1 00134        TXI AA,1,8                    LOOK AT NEXT INSTRUCTION           F4411220    
       00200  0 02000 0 00204        TRA TRACSA                    TRA IS THE OPERATION CODE          F4411230    
       00201  0 02000 0 00153        TRA OTHER                     TSX                                F4411240    
       00202  0 02000 0 00230        TRA DOCSA                     TXL                                F4411250    
       00203  0 02000 0 00243 P2TRA  TRA IF3CSA                    TZE                                F4411260    
       00204  0 50000 1 06021 TRACSA CLA INSTA-3,1                 IS INSTRUCTION TAGGED              F4411270    
       00205 -0 32000 0 00057        ANA TGMSK=                                                       F4411280    
       00206 -0 10000 0 00215        TNZ GOTOVA                    YES,IS A GO TO VECTOR              F4411290    
       00207 -0 50000 1 06022        CAL INST.A-2,1                TEST FOR A GO TO N                 F4411300    
       00210 -0 32000 0 00060        ANA NMASK=                    IS ADDRESS IN N-BLOCK              F4411310    
       00211 -0 10000 0 00153        TNZ OTHER                     YES,THIS IS A GO TO N,IGNORE NOW   F4411320    
       00212  0 50000 1 06022        CLA INST.A-2,1                NOT TAGGED,IS A STRAIGHT TRANSFER  F4411330    
       00213  0 07400 4 00356        TSX STB,4                     STORE ADDRESS IN BASIC BLOCK LIST  F4411340    
       00214  1 00004 1 00134        TXI AA,1,4                    LOOK AT NEXT INSTRUCTION           F4411350    
       00215  0 50000 1 06021 GOTOVA CLA INST.A-3,1                THIS IS A GO TO VECTOR             F4411360    
       00216 -0 73400 4 00000        PDX 0,4                                                          F4411370    
       00217  2 00001 4 00220 SELF1  TIX SELF1+1,4,1               PUT NUMBER OF BRANCHES INTO IR C   F4411380    
       00220  1 00004 1 00221 LD4..= TXI 4TIX,1,4                  SET FOR NEXT INSTRUCTION           F4411390    
       00221  2 04230 1 00306 4TIX   TIX RDIN,1,NOINS              READ IN MORE INSTRUCTIONS IF NEEDEDF4411400    
       00222  0 50000 1 06022        CLA INST.A-2,1                GET ADDRESS OF THIS INSTRUCTION    F4411410    
       00223 -0 63400 4 00106        SXD ERAS2=,4                  SAVE IN0EX REGISTER C              F4411420    
       00224  0 07400 4 00356        TSX STB,4                     PUT ADDRESS IN BASIC BLOCK LIST    F4411430    
       00225 -0 53400 4 00106        LXD ERAS2=,4                  RESTORE INDEX REGISTER C           F4411440    
       00226  2 00001 4 00220        TIX LD4..=,4,1                HAVE ALL BRANCHES BEEN DONE        F4411450    
       00227  1 00004 1 00134        TXI AA,1,4                    YES,LOOK AT NEXT INSTRUCTION       F4411460    
       00230 -0 53400 4 07775 DOCSA  LXD DOBOX=,4                  THIS IS THE END OF A DO            F4411470    
       00231  1 00002 4 00232 SELF2  TXI SELF2+1,4,2               SET DOLIST ADORESS FOR NEXT ENTRY  F4411480    
       00232  0 50000 1 06024        CLA INST.A,1                  PUT LOCA,ION OF TRANSFER AND       F4411490    
       00233  0 60100 4 06501        STO DOLIST+1,4                ADDRESS 0F TRANSFER INTO 0O LIST   F4411500    
       00234  0 50000 1 06022        CLA INST.A-2,1                                                   F4411510    
       00235  0 60100 4 06500        STO DOLIST,4                                                     F4411520    
       00236 -0 63400 4 07775        SXD DOBOX=,4                  STORE DO LIST ADDRESS              F4411530    
       00237  0 07400 4 00356        TSX STB,4                     PUT ADDRESS OF TRA BACK IN TRA TABLF4411540    
       00240  0 50000 1 06020        CLA INST.A-4,1                                                   F4411550    
       00241  0 07400 4 00356        TSX STB,4                     PUT LOC OF NEXT INST. IN TRA       F4411560    
       00242  1 00004 1 00134        TXI AA,1,4                    LOOK AT NEXT INST.                 F4411570    
       00243  0 50000 1 06017 IF3CSA CLA INST.A-5,1                THIS INSTRUCTION IS A TZE          F4411580    
       00244 -0 32000 0 00054        ANA OPMSK=                                                       F4411590    
       00245  0 40200 0 00074        SUB LTPL.=                    IS IT FOLLOWED BY BOTH A TPL AND   F4411600    
       00246 -0 10000 0 00173        TNZ 2WYTR                        A TRA, IF NOT, TREAT IT AS A    F4411610    
       00247  0 50000 1 06013        CLA INST.A-9,1                   TWO-WAY TRANSFER                F4411620    
       00250 -0 32000 0 00054        ANA OPMSK=                                                       F4411630    
       00251  0 40200 0 00064        SUB LTRA.=                                                       F4411640    
       00252 -0 10000 0 00173        TNZ 2WYTR                                                        F4411650    
       00253  0 50000 1 06022        CLA INST.A-2,1                PUT ADDRESSES OF THE THREE BRANCHESF4411660    
       00254  0 07400 4 00356        TSX STB,4                        INTO THE BASIC BLOCK LIST       F4411670    
       00255  0 50000 1 06016        CLA INST.A-6,1                                                   F4411680    
       00256  0 07400 4 00356        TSX STB,4                                                        F4411690    
       00257  0 50000 1 06012        CLA INST.A-10,1                                                  F4411700    
       00260  0 07400 4 00356        TSX STB,4                                                        F4411710    
       00261  1 00014 1 00134        TXI AA,1,12                   LOOK AT INSTRUCTION AFTER THESE 3. F4411720    
       00262  0 50000 1 06021 PSECS  CLA INSTA-3,1                 INSTRUCTION IS A PSE               F4411730    
       00263 -0 32000 0 00056        ANA PSTMK=                                                       F4411740    
       00264  0 40200 0 00055        SUB PSEMK=                                                       F4411750    
       00265 -0 10000 0 00153        TNZ OTHER                     NOT A SKIP, LOOK AT NEXT INST.     F4411760    
       00266  0 50000 1 06017 TSTCS  CLA INSTA-5,1                 THIS IS A TEST INSTRUCTION         F4411770    
       00267 -0 32000 0 00054        ANA OPMSK=                    IS IT FOLLOWED BY A TRA            F4411780    
       00270  0 40200 0 00064        SUB LTRA.=                                                       F4411790    
       00271 -0 10000 0 00153        TNZ OTHER                     NO,GO TO NEXT INSTRUCTION          F4411800    
       00272  0 50000 1 06016        CLA INST.A-6,1                YES, IS USED FOR SKIPPING          F4411810    
       00273  0 07400 4 00356        TSX STB,4                                                        F4411820    
       00274  0 50000 1 06013        CLA INST.A-9,1                IS TEST INSTRUCTION FOLLOWED BY    F4411830    
       00275 -0 32000 0 00054        ANA OPMSK=                       TWO TRAS                        F4411840    
       00276  0 40200 0 00064        SUB LTRA.=                                                       F4411850    
       00277 -0 10000 0 00303        TNZ SLOC                      NO, STORE LOCATION OF 2ND INST.    F4411860    
       00300  0 50000 1 06012        CLA INST.A-10,1               YES,STORE ADDRESS OF 2ND TRA       F4411870    
       00301  0 07400 4 00356        TSX STB,4                                                        F4411880    
       00302  1 00014 1 00134        TXI AA,1,12                   DO INSTRUCTION AFTER 2ND TRA NEXT  F4411890    
       00303  0 50000 1 06014 SLOC   CLA INSTA-8,1                 STORE LOCATION OF 2ND INSTRUCTION  F4411900    
       00304  0 07400 4 00356        TSX STB,4                        AFTER TEST                      F4411910    
       00305  1 00010 1 00134        TXI AA,1,8                    LOOK AT 2ND INSTRUCTION AFTER TEST F4411920    
                                                                                                      F4411930    
                                         THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO     F4411940    
                                         STORAGE FROM TAPE 4, FILE 1.                                 F4411950    
       00306  0 50000 0 00063 RDIN   CLA LNOP.=                    STORE EXIT ADDRESS FROM RDINS      F4411960    
       00307  0 60100 0 00342        STO XRDIN                                                        F4411970    
       00310  0 50000 0 00032 RDINSA CLA MINUS4                    INITIALIZE ERROR BOX               F4411980    
       00311  0 60100 0 00030        STO ERRBX                                                        F4411990    
       00312  0 76200 0 00224 RDSEL  RDS INSTTP                    SELECT INSTRUCTION TAPE            F4412000    
       00313 -0 63400 1 00105        SXD ERAS1=,1                                                     F4412010    
       00314 -0 53400 1 00131        LXD LD12.=,1                                                     F4412020    
       00315  0 50000 1 01574 RCLA   CLA BGINS,1                   MOVE EXTRA INSTRUCTIONS            F4412030    
       00316  0 60100 1 06024        STO INST.A,1                                                     F4412040    
       00317  2 00001 1 00315        TIX RCLA,1,1                                                     F4412050    
       00320 -0 63400 1 00106        SXD ERAS2=,1                  SAVE INDEX IN CASE OF ERROR        F4412060    
       00321  0 70000 1 06010 RCPY   CPY INSTA-12,1                READ IN BLOCK OF INSTRUCTIONS      F4412070    
       00322  1 00001 1 00321        TXI RCPY,1,1                                                     F4412080    
       00323  1 77777 1 00334        TXI RDEND,1,-1                END OF FILE                        F4412090    
       00324  0 76600 0 00333 TPTST  WRS 219                       TEST FOR TAPE ERROR                F4412100    
       00325 -0 76000 0 00012        RTT                                                              F4412110    
       00326  0 02000 0 00346        TRA RDERR                     ERROR                              F4412120    
       00327  0 50000 0 00032        CLA MINUS4                    INITIALIZE ERROR BOX               F4412130    
       00330  0 60100 0 00030        STO ERRBX                                                        F4412140    
       00331  3 04230 1 00341 LNOINS TXH XRDIN-1,1,NOINS           END OF RECORD--SEE IF IT IS END OF F4412150    
       00332  0 76200 0 00224        RDS INSTTP                       BLOCK GOING INTO STORAGE        F4412160    
       00333  0 02000 0 00320        TRA RCPY-1                    READ NEXT BLOCK                    F4412170    
       00334 -0 75400 1 00000 RDEND  PXD 0,1                       STORE NUMBER OF REMAINING INSTRUC- F4412180    
       00335  0 40000 0 00131        ADD LD12.=                       TIONS FOR TEST                  F4412190    
       00336  0 62200 0 00134        STD AA                                                           F4412200    
       00337  0 50000 0 00076        CLA LOUT                      STORE FINAL EXIT ADDRESS.          F4412210    
       00340  0 62100 0 00134        STA AA                                                           F4412220    
       00341 -0 53400 1 00105        LXD ERAS1=,1                  NO ERROR,RESTORE INDEX REGISTER    F4412230    
       00342  0 02000 0 00135 XRDIN  TRA AA+1                      RETURN TO MAIN ROUTINE             F4412240    
       00343  0 50000 0 00075 RDIN2  CLA LTRAA                     RESTORE USUAL EXIT ADDRESS IN RDINSF4412250    
       00344  0 60100 0 00342        STO XRDIN                                                        F4412260    
       00345  0 02000 0 00222        TRA 4TIX+1                    RETURN TO MAIN ROUTINE             F4412270    
       00346  0 50000 0 00030 RDERR  CLA ERRBX                                                        F4412280    
       00347 -0 12000 0 00351 SKIP1  TMI SKIP1+2                   HAVE 5 TRIES AT READING BEEN MADE  F4412290    
       00350  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4412300    
       00351  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4412310    
       00352  0 60100 0 00030        STO ERRBX                                                        F4412320    
       00353  0 76400 0 00224        BST INSTTP                                                       F4412330    
       00354 -0 53400 1 00106        LXD ERAS2=,1                  RESET INDEX REGISTER               F4412340    
       00355  0 02000 0 00332        TRA LNOINS+1                      AND TRY TO READ AGAIN          F4412350    
                                                                                                      F4412360    
                                         THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS,   F4412370    
                                         THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH     F4412380    
                                         BASIC BLOCK                                                  F4412390    
       00356  0 60100 0 00107 STB    STO ERAS3=                                                       F4412400    
       00357 -0 63400 1 00105        SXD ERAS1=,1                                                     F4412410    
       00360 -0 75400 2 00000        PXD 0,2                                                          F4412420    
       00361  0 62200 0 00421        STD BTXH                                                         F4412430    
       00362  0 62200 0 00425        STD BTXL                                                         F4412440    
       00363  0 62200 0 00401        STD PLACEA                                                       F4412450    
       00364  0 77100 0 00001        ARS 1                                                            F4412460    
       00365  0 30000 0 00033        FAD L0...=                                                       F4412470    
       00366  0 77100 0 00033        ARS 27                                                           F4412480    
       00367  0 40200 0 00040        SUB LD1..=                                                       F4412490    
       00370  0 62100 0 00372        STA ARS                                                          F4412500    
       00371  0 50000 0 00103        CLA CONSTA                                                       F4412510    
 A     00372  0 77100 0 00000 ARS    ARS                                                              F4412520    
       00373  0 56000 0 00104        LDQ CNST2A                                                       F4412530    
       00374 -0 73400 1 00000        PDX 0,1                                                          F4412540    
       00375  0 77100 0 00001 ARSB   ARS 1                                                            F4412550    
       00376  0 62200 0 00403        STD TXIBB                                                        F4412560    
       00377  0 62200 0 00405        STD TIXBB                                                        F4412570    
       00400  0 50000 0 00107        CLA ERAS3=                                                       F4412580    
       00401  3 00000 1 00405 PLACEA TXH TIXBB,1,XXXXXX                                               F4412590    
       00402  0 34000 1 07774        CAS BBLIST+1,1                                                   F4412600    
 D     00403  1 00000 1 00406 TXIBB  TXI CLAB,1                                                       F4412610    
       00404  0 02000 0 00432        TRA BOUT                                                         F4412620    
 D     00405  2 00000 1 00406 TIXBB  TIX CLAB,1                                                       F4412630    
       00406  0 50000 0 00405 CLAB   CLA TIXBB                                                        F4412640    
       00407  0 04000 0 00375        TLQ ARSB                                                         F4412650    
       00410  0 50000 0 00107        CLA ERAS3=                    X WAS NOT FOUND, ENTER IT          F4412660    
       00411  3 01273 2 00434        TXH BTSX,2,ZBB-1              TEST FOR OVERFLOW OF BBLIST        F4412670    
       00412  0 56000 1 07774        LDQ BBLIST+1,1                                                   F4412680    
       00413  0 04000 0 00415        TLQ TXI2                                                         F4412690    
       00414  0 02000 0 00417        TRA BLDQ+1                                                       F4412700    
       00415  1 00001 1 00416 TXI2   TXI BLDQ,1,1                                                     F4412710    
       00416  0 56000 1 07774 BLDQ   LDQ BBLIST+1,1                X SHOULD BE ENTERED HERE, SAVE NEXTF4412720    
       00417  0 60100 1 07774        STO BBLIST+1,1                  ENTRY AND STORE X                F4412730    
       00420  1 00001 1 00421        TXI BTXH,1,1                  IS THIS LAST ENTRY IN TABLE.       F4412740    
 D     00421  3 00000 1 00430 BTXH   TXH BSTQ,1                    YES, TRANSFER                      F4412750    
       00422  0 50000 1 07774        CLA BBLIST+1,1                NO, SHIFT NEXT ENTRY               F4412760    
       00423 -0 60000 1 07774        STQ BBLIST+1,1                                                   F4412770    
       00424  1 00001 1 00425        TXI BTXL,1,1                                                     F4412780    
 D     00425 -3 00000 1 00416 BTXL   TXL BLDQ,1                    IS THIS LAST ENTRY IN TABLE        F4412790    
       00426  0 60100 1 07774        STO BBLIST+1,1                YES, STORE LAST ENTRY              F4412800    
       00427  1 00001 2 00432        TXI BOUT,2,1                                                     F4412810    
       00430 -0 60000 1 07774 BSTQ   STQ BBLIST+1,1                STORE LAST ENTRY                   F4412820    
       00431  1 00001 2 00432        TXI BOUT,2,1                                                     F4412830    
       00432 -0 53400 1 00105 BOUT   LXD ERAS1=,1                  RESTORE INDEX REGISTER             F4412840    
       00433  0 02000 4 00001        TRA 1,4                       TRANSFER BACK.                     F4412850    
       00434  0 07400 4 00004 BTSX   TSX RDFORT,4                  BBLIST IS FULL WITHOUT THIS ENTRY  F4412860    
                                                                                                      F4412670    
                                         THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6,      F4412880    
                                         ELIMINATING UNWANTED PARTS OF TIFGO.                         F4412890    
       00435  0 50000 0 00032 STTIF= CLA MINUS4                    INITIALIZE ERROR BOX               F4412900    
       00436  0 60100 0 00030        STO ERRBX                                                        F4412910    
       00437  0 76400 0 00222        BST TBLTAP                    POSITION TAPE4TO READ TIFGO        F4412920    
       00440  0 76400 0 00222        BST TBLTAP                                                       F4412930    
       00441  0 76200 0 00222        RDS TBLTAP                                                       F4412940    
       00442  0 70000 0 00105        CPY ERAS1=                    GET NO. OF RECORDS IN DOTAG        F4412950    
       00443 -0 53400 1 00105        LXD ERAS1=,1                  BACKSPACE OVER COUNT, END FILE,    F4412960    
       00444  1 00014 1 00445 TXITF  TXI TXITF+1,1,12                 IXTAG, END FILE, 9 TABLES       F4412970    
       00445  0 76400 0 00222 BSTA   BST TBLTAP                                                       F4412980    
       00446  2 00001 1 00445 SELF3  TIX SELF3-1,1,1                                                  F4412990    
       00447  0 76200 0 00222        RDS TBLTAP                                                       F4413000    
       00450  0 70000 0 00106        CPY ERAS2=                    COPY TABLE NUMBER                  F4413010    
       00451  0 70000 0 00105        CPY ERAS1=                    COPY NO OF WORDS IN TABLE          F4413020    
       00452  0 70000 1 06024 CPYTF  CPY TIFRD,1                   COPY WORD 0F TIFGO                 F4413030    
       00453  0 02000 0 00456        TRA CLATFA                    REGULAR EXIT FROM COPY             F4413040    
       00454  0 07400 4 00004        TSX RDFORT,4                  END OF FILE SHOULD NOT OCCUR       F4413050    
       00455  1 77777 1 00476        TXI CHECK,1,-1                END OF RECORD - GIVE RTT, SET INDEXF4413060    
       00456  0 50000 1 06024 CLATFA CLA TIFRD,1                   LOOK AT THIS WORD OF TIFGO         F4413070    
       00457 -0 12000 0 00451        TMI CPYTF-1                   -,MEANS AN IF, GIVE 2ND COPY,IGNOREF4413080    
       00460 -0 32000 0 00057        ANA TGMSK=                    IS THIS A GO TO N ENTRY            F4413090    
       00461  0 40200 0 00031        SUB LA1                                                          F4413100    
       00462  0 70000 1 06023        CPY TIFRD-1,1                 COPY SECOND WORD OF ENTRY          F4413110    
       00463  0 10000 0 00467        TZE GOTONA                    THIS IS A GO TO N ENTRY            F4413120    
       00464  0 40200 0 00034        SUB L5...=                    NOT A GO TO N--IS IT AN ASSIGN     F4413130    
       00465 -0 10000 0 00452        TNZ CPYTF                     NO, LOOK AT NEXT ENTRY, DONT SAVE  F4413140    
       00466  1 00002 1 00452 ASSN   TXI CPYTF,1,2                 AN ASSIGN,KEEP ENTRY IN TIFRD      F4413150    
       00467  0 50000 1 06023 GOTONA CLA TIFRD-1,1                 A GO TO N, SAVE ENTRY AND ALSO     F4413160    
       00470  0 62200 0 00105        STD ERAS1=                       LEAVE ENOUGH SPACE FOR CORRES-  F4413170    
       00471  0 73400 4 00000        PAX 0,4                          PONDING ENTRIES IN TRAD         F4413180    
       00472 -0 75400 4 00000        PXD 0,4                                                          F4413190    
       00473  0 40200 0 00105        SUB ERAS1=                                                       F4413200    
       00474  0 62200 0 00475 SELF4  STD SELF4+1                                                      F4413210    
       00475  1 00000 1 00466        TXI ASSN,1,XXXXXX             LOOK AT NEXT ENTRY IN TIFRD        F4413220    
       00476  0 76600 0 00333 CHECK  IOD                           TEST FOR TAPE ERROR                F4413230    
       00477 -0 76000 0 00012        RTT                                                              F4413240    
       00500  0 02000 0 00515        TRA ERRORA                    ERROR                              F4413250    
       00501  0 50000 0 00106        CLA ERAS2=                    CHECK FOR POSITIONING OF TAPE      F4413260    
       00502  0 40200 0 00035        SUB TIFLAB                                                       F4413270    
       00503 -0 10000 0 00524        TNZ BADPOS                                                       F4413280    
       00504 -0 75400 1 00000        PXD 0,1                       SAVE LENGTH OF TABLE FOR TESTS     F4413290    
       00505  0 62200 0 00570        STD ABOX                                                         F4413300    
       00506  0 77100 0 00022        ARS 18                                                           F4413310    
       00507  0 60100 0 00106        STO ERAS2=                                                       F4413320    
       00510 -0 10000 0 00525        TNZ RDTRAD-2                  TIFGO IS NOT EMPTY                 F4413330    
       00511  0 76200 0 00222 RDS6   RDS TBLTAP                                                       F4413340    
       00512  1 77777 2 00513        TXI RDS6+2,2,-1               NO ENTRIES IN TIFGO-SKIP PROCESSINGF4413850    
       00513 -0 63400 2 07774        SXD BBOX.=,2                                                     F4413360    
       00514  0 02000 0 00637        TRA LXA6                                                         F4413370    
       00515  0 50000 0 00030 ERRORA CLA ERRBX                                                        F4413380    
       00516 -0 12000 0 00520 SKIP2  TMI SKIP2+2                   HAVE 5 TRIES AT READING BEEN MADE  F4413390    
       00517  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4413400    
       00520  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4413410    
       00521  0 60100 0 00030        STO ERRBX                                                        F4413420    
       00522 -0 53400 1 00040        LXD LD1..=,1                  RESET INDEX REGISTER               F4413430    
       00523  0 02000 0 00445        TRA BSTA                                                         F4413440    
       00524  0 07400 4 00004 BADPOS TSX RDFORT,4                  TAPE POSITIONED INCORRECTLY        F4413450    
                                                                                                      F4413460    
                                         THIS ROUTINE READS TRAD FROM TAPE 2, FILE 5, RECORD 7, AND   F4413470    
                                         ENTERS ALL WORDS OF TRAD INTO THE BASIC BLOCK LIST.          F4413480    
       00525  0 50000 0 00032        CLA MINUS4                    INITIALIZE ERROR BOX               F4413490    
       00526  0 60100 0 00030        STO ERRBX                                                        F4413500    
       00527  0 53400 1 00031 RDTRAD LXA LA1,1                     SET INDEX                          F4413510    
       00530  0 76200 0 00222        RDS TBLTAP                                                       F4413520    
       00531  0 70000 0 00105        CPY ERAS1=                    COPY TABLE NUMBER                  F4413530    
       00532  0 70000 1 03711        CPY TRAD.=+1,1                COPY NUMBER OF WORDS AND TABLE     F4413540    
       00533  1 77777 1 00532 SELF5  TXI SELF5-1,1,-1              COPY NEXT WORD                     F4413550    
       00534  0 07400 4 00004        TSX RDFORT,4                  END OF FILE SHOULD NOT OCCUR       F4413560    
       00535  0 76600 0 00333        IOD                           END OF RECORD--TEST FOR ERROR      F4413570    
       00536 -0 76000 0 00012        RTT                                                              F4413580    
       00537  0 02000 0 00551        TRA ERR2TD                    ERROR                              F4413590    
       00540  0 50000 0 00105        CLA ERAS1=                    CHECK FOR POSITIONING OF TAPE      F4413600    
       00541  0 40200 0 00036        SUB TRALAB                                                       F4413610    
       00542 -0 10000 0 00524        TNZ BADPOS                                                       F4413620    
       00543 -3 00000 1 00560 TXLTRD TXL TXITRD,1,0                ALL OF TRAD NOW IN BASIC BLOCK LISTF4413630    
       00544  0 50000 1 03710        CLA TRAD.=,1                  NO ERROR--ENTER IN BASIC BLOCK LISTF4413640    
       00545  0 76700 0 00022        ALS 18                        SHIFT WORD OF TRAO                 F4413650    
       00546  0 60100 1 03710        STO TRAD.=,1                                                     F4413660    
       00547  0 07400 4 00356        TSX STB,4                                                        F4413670    
       00550  1 00001 1 00543        TXI TXLTRD,1,1                SET FOR NEXT WORD IN TRAD          F4413680    
       00551  0 50000 0 00030 ERR2TD CLA ERRBX                                                        F4413690    
       00552 -0 12000 0 00554 SKIP3  TMI SKIP3+2                   HAVE 5 TRIES AT READING BEEN MADE  F4413700    
       00553  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4413710    
       00554  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4413720    
       00555  0 60100 0 00030        STO ERRBX                                                        F4413730    
       00556  0 76400 0 00222        BST TBLTAP                                                       F4413740    
       00557  0 02000 0 00527        TRA RDTRAD                                                       F4413750    
       00560  1 77777 2 00561 TXITRD TXI TXITRD+1,2,-1                                                F4413760    
       00561 -0 63400 2 07774        SXD BBOX.=,2                  SAVE LENGTH OF BB TABLE            F4413770    
                                                                                                      F4413780    
                                         THIS COMBINES TIFGO AND TRAD INTO TIFRD                      F4413790    
       00562  0 53400 1 00031 CMBNE  LXA LA1,1                     COMBINE TRAD WITH TIFGO            F4413800    
       00563  0 50000 1 06024 CLATF  CLA TIFRD,1                   LOOK FOR A GO TO N ENTRY IN TIFRD  F4413810    
       00564 -0 32000 0 00057        ANA TGMSK=                                                       F4413820    
       00565  0 40200 0 00031        SUB LA1                                                          F4413830    
       00566  0 10000 0 00572        TZE GOTN2                                                        F4413840    
       00567  1 00002 1 00570        TXI ABOX,1,2                                                     F4413850    
 D     00570 -2 00000 1 00563 ABOX   TNX CLATF,1                   IS THIS END OF TIFRD               F4413860    
       00571  0 02000 0 00605        TRA CLAER                     YES, STORE TIFRD ON DRUM           F4413870    
       00572  0 50000 1 06023 GOTN2  CLA TIFRD-1,1                 GO TO N, PUT IN ENTRIES FROM TRAD  F4413880    
       00573 -0 73400 2 00000        PDX 0,2                       SET INDEX FOR FIRST WORD           F4413890    
       00574  0 76700 0 00022        ALS 18                                                           F4413900    
       00575  0 62200 0 00603        STD TXH                       STORE INDEX FOR LAST WORD          F4413910    
       00576  0 50000 2 04303 CLATR  CLA TRAD.=+251,2              STORE WORD FROM TRAD INTO TIFRD    F4413920    
       00577 -0 76000 0 00003        SSM                                                              F4413930    
       00600  0 60100 1 06022        STO TIFRD-2,1                                                    F4413940    
       00601  1 77777 2 00602        TXI TXIA,2,-1                 SET INDEX FOR TRAD                 F4413950    
       00602  1 00001 1 00603 TXIA   TXI TXH,1,1                   SET INDEX FOR TIFRD                F4413960    
 D     00603  3 00000 2 00576 TXH    TXH CLATR,2                   CHECK FOR LAST WORD FOR THIS GO TO F4413970    
       00604  1 00002 1 00570        TXI ABOX,1,2                  SET FOR NEXT ENTRY IN TIFRD        F4413980    
                                                                                                      F4413990    
                                         THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS.  F4414000    
       00605  0 50000 0 00106 CLAER  CLA ERAS2=                    HOW MANY WORDS ARE LEFT TO COPY    F4414010    
       00606 -0 12000 0 00643        TMI RFRET                     NONE                               F4414020    
       00607  0 40200 0 00041        SUB LZTIF=                                                       F4414030    
       00610 -0 12000 0 00637 TMI    TMI LXA6                      ONLY A PARTIAL BLOCK               F4414040    
       00611  0 53400 1 00041        LXA LZTIF=,1                  FULL                               F4414050    
       00612  0 60100 0 00106        STO ERAS2=                    STORE NO OF WORDS LEFT AFTER THIS  F4414060    
       00613  0 76600 0 00301 WRSTIF WRS TIFDRM                                                       F4414070    
       00614 -0 75400 1 00000        PXD 0,1                       PUT LENGTH OF BLOCK IN ACCUMULATOR F4414080    
       00615  0 60100 0 00107        STO ERAS3=                      AND IN ERAS3=                    F4414090    
       00616  0 36100 1 06024 ACLF   ACL TIFRD,1                   COMPUTE CHECKSUM                   F4414100    
       00617  2 00001 1 00616        TIX ACLF,1,1                                                     F4414110    
       00620  0 60200 0 00105        SLW ERAS1=                    STORE CHECK SUM                    F4414120    
       00621  0 46000 0 00047        LDA Y                         LOCATE DRUM ADDRESS                F4414130    
       00622 -0 53400 1 00107        LXD ERAS3=,1                  SET INDEX                          F4414140    
       00623  0 70000 0 00107        CPY ERAS3=                    COPY NO OF WORDS IN BLOCK          F4414150    
       00624  0 70000 1 06024 CPY7FT CPY TIFRD,1                   COPY TABLE                         F4414160    
       00625  2 00001 1 00624 SELF9  TIX SELF9-1,1,1                                                  F4414170    
       00626  0 70000 0 00105        CPY ERAS1=                    COPY CHECK SUM                     F4414180    
       00627 -0 50000 0 00616        CAL ACLF                      SET ADDRESSES FOR COMPUTING        F4414190    
       00630  0 40200 0 00041        SUB LZTIF=                       CHECK SUM AND COPY              F4414200    
       00631  0 62100 0 00616 STA6   STA ACLF                                                         F4414210    
       00632  0 62100 0 00624        STA CPY7FT                                                       F4414220    
       00633  0 50000 0 00047        CLA Y                         SET DRUM ADDRESS                   F4414230    
       00634  0 40000 0 00042        ADD LZTF2=                                                       F4414240    
       00635  0 62100 0 00047        STA Y                                                            F4414250    
       00636  0 02000 0 00605        TRA CLAER                     DO NEXT BLOCK                      F4414260    
       00637  0 53400 1 00106 LXA6   LXA ERAS2=,1                  PUT LENGTH IN INDEX                F4414270    
       00640  0 50200 0 00033        CLS L0...=                    PUT MINUS IN ERAS2= AS LENGTH LEFT F4414280    
       00641  0 60100 0 00106        STO ERAS2=                                                       F4414290    
       00642  0 02000 0 00613        TRA WRSTIF                    TRA TO WRITE BLOCK AND COMPUTE CKSMF4414300    
                                                                                                      F4414310    
                                         THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND  F4414320    
                                         CHANGES FREQUENCIES TO PROBABILITIES.                        F4414330    
       00643  0 50000 0 00032 RFRET  CLA MINUS4                    INITIALIZE ERROR BOX               F4414340    
       00644  0 60100 0 00030        STO ERRBX                                                        F4414350    
       00645  0 53400 4 00034        LXA L5...=,4                  SPACE TO FRET                      F4414360    
       00646  0 76200 0 00222 RDSFTP RDS TBLTAP                                                       F4414370    
       00647  2 00001 4 00646        TIX RDSFTP,4,1                                                   F4414380    
       00650  0 70000 0 00106        CPY ERAS2=                    COPY TABLE NUMBER                  F4414390    
       00651  0 70000 0 00105 RDINF  CPY ERAS1=                    COPY NUMBER OF WORDS IN TABLE      F4414400    
       00652 -0 53400 2 00105        LXD ERAS1=,2                  PUT NUMBER OF WORDS INTO INDEX B   F4414410    
       00653 -3 00000 2 01012        TXL EMPTY,2,0                                                    F4414420    
       00654  0 53400 1 00031        LXA LA1,1                     INITIALIZE INDEX REGISTERS A AND C F4414430    
       00655 -0 53400 4 00050        LXD LXFRT=,4                                                     F4414440    
       00656  0 70000 4 06023 CPYF   CPY FRET.=,4                  COPY WORDS INTO STORAGE            F4414450    
       00657  0 50000 4 06023        CLA FRET.=,4                  IS THIS WORD THE FORMULA NUMBER OF F4414460    
       00660 -0 12000 0 00665        TMI TNX                          A NEW ENTRY--YES, TRANSFER      F4414470    
       00661  0 40000 4 06022 ADD    ADD FRET.=-1,4                NO, ADD THIS FREQUENCY TO PREVIOUS F4414480    
       00662  0 60100 4 06023        STO FRET.=,4                     SUM TO GET CUMULATIVE FREQUENCY F4414490    
       00663 -2 00001 2 00724        TNX ALDNE,2,1                 IS TABLE ALL COPIED                F4414500    
       00664  1 77777 4 00656        TXI CPYF,4,-1                 NO,COPY NEXT WORD                  F4414510    
       00665 -2 00001 2 00711 TNX    TNX ERRFN,2,1                 THIS IS FORM. NO,--SHOUL0NT END TABF4414520    
       00666  1 77777 4 00667 SELF10 TXI SELF10+1,4,-1             INDEX PLACE IN STORAGE             F4414530    
       00667  0 70000 4 06023 CPY3FT CPY FRET.=,4                  COPY FIRST FREQUENCY IN ENTRY      F4414540    
       00670 -2 00001 2 00706        TNX DOEND,2,1                 TEST FOR END OF TABLE ON TAPE      F4414550    
       00671  1 77777 4 00672 SELF11 TXI SELF11+1,4,-1             INDEX PLACE IN STORAGE             F4414560    
       00672  0 70000 4 06023        CPY FRET.=,4                  COPY NEXT WORD-- IS IT NEXT FREQ ORF4414570    
       00673  0 50000 4 06023        CLA FRET.=,4                     IS IT NEW FORMULA NUMBER        F4414580    
       00674  0 12000 0 00661        TPL ADD                       NEXT FREQUENCY,GO TO ADD           F4414590    
       00675  0 50000 4 06021 DOCSFT CLA FRET.=-2,4                NEW FORMULA NUMBER,ENTRY JUST      F4414600    
       00676  0 60100 1 06023        STO DVFQ.=,1                     COPIED WAS FOR A DO, MOVE TO    F4414610    
       00677  0 50000 4 06022        CLA FRET.=-1,4                   DVFQ                            F4414620    
       00700  0 60100 1 06022        STO DVFQ.=-1,1                                                   F4414630    
       00701  1 00002 1 00702        TXI CLAFT,1,2                 INDEX POSITION IN DVFQ TABLE       F4414640    
       00702  0 50000 4 06023 CLAFT  CLA FRET.=,4                  PUT NEW FORMULA INTO FRET IN PLACE F4414650    
       00703  0 60100 4 06021        STO FRET.=-2,4                   OF ENTRY JUST MOVED             F4414660    
       00704 -2 00001 2 00711        TNX ERRFN,2,1                 THIS SHOULD BE END ONLY IF WAS DOCSF4414670    
       00705  1 00001 4 00667        TXI CPY3FT,4,1                COPY NEXT WORD                     F4414680    
       00706  0 50000 0 00663 DOEND  CLA ADD+2                     THIS DO ENTRY IS END OF TABLE      F4414690    
       00707  0 62100 0 00704        STA CLAFT+2                   RESTORE ADDRESS                    F4414700    
       00710  0 02000 0 00675        TRA DOCSFT                    ERROR EXIT                         F4414710    
       00711  0 07400 4 00004 ERRFN  TSX RDFORT,4                  THE TAPE RECORD ENDS WITH A FORMULAF4414720    
       00712  0 50000 0 00665        CLA TNX                          NUMBER WITH NO FREQUENCIES      F4414730    
       00713  0 62100 0 00704        STA CLAFT+2                   RESTORE ADDRESS                    F4414740    
       00714  0 50000 0 00030 ERRORF CLA ERRBX                                                        F4414750    
       00715 -0 12000 0 00717 SKIP4  TMI SKIP4+2                   HAVE 5 TRIES AT READING BEEN MADE  F4414760    
       00716  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4414770    
       00717  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4414780    
       00720  0 60100 0 00030        STO ERRBX                                                        F4414790    
       00721  0 76400 0 00222        BST TBLTAP                                                       F4414800    
       00722  0 76200 0 00222        RDS TBLTAP                    SET TO READ FRET AGAIN.            F4414810    
       00723  0 02000 0 00650        TRA RDSFTP+2                  TRY AGAIN                          F4414820    
       00724  0 76600 0 00333 ALDNE  IOD                                                              F4414830    
       00725 -0 76000 0 00012        RTT                           TEST FOR TAPE ERROR                F4414840    
       00726  0 02000 0 00714        TRA ERRORF                    ERROR                              F4414850    
       00727  0 50000 0 00106        CLA ERAS2=                    CHECK FOR POSITIONING OF TAPE      F4414860    
       00730  0 40200 0 00037        SUB FRELAB                                                       F4414870    
       00731 -0 10000 0 00524        TNZ BADPOS                                                       F4414880    
       00732  1 77777 4 00733        TXI CONTN,4,-1                                                   F4414890    
       00733 -0 63400 1 01274 CONTN  SXD DVFTST,1                  SAVE LENGTH OF DVFQ TABLE          F4414900    
       00734 -0 63400 4 00107        SXD FRTBX=,4                  SAVE LENGTH OF FRET TABLE IN STOR. F4414910    
       00735  1 00001 4 00736        TXI CLA1,4,1                                                     F4414920    
       00736  0 50000 4 06023 CLA1   CLA FRET.=,4                  TAKE TOTAL FREQ OF ENTRY (LAST WD) F4414930    
       00737  0 60100 0 00105        STO ERAS1=                    STORE AS DIVISOR                   F4414940    
       00740  0 50000 0 00052        CLA ENDMK=                    STORE HIGHEST NO AS TOTAL PROB.    F4414950    
       00741  0 60100 4 06023        STO FRET.=,4                                                     F4414960    
       00742  1 00001 4 00743        TXI CLAD,4,1                  INDEX PLACE IN FRET                F4414970    
       00743  0 50000 4 06023 CLAD   CLA FRET.=,4                  LOOK AT NEXT WORD                  F4414980    
       00744 -0 12000 0 00753        TMI NEWFM                     FORMULA NUMBER--END OF THIS ENTRY  F4414990    
       00745  0 56000 0 00033        LDQ L0...=                    ANOTHER CUMULATIVE FREQUENCY       F4415000    
       00746  0 22100 0 00105        DVP ERAS1=                    DIVIDE BY TOTAL FREQUENCY TO GET   F4415010    
       00747  0 76000 0 00012        DCT                             CUMULATIVE PROBABILITY           F4415020    
       00750  0 56000 0 00052        LDQ ENDMK=                                                       F4415030    
       00751 -0 60000 4 06023        STQ FRET.=,4                                                     F4415040    
       00752  1 00001 4 00743        TXI CLAD,4,1                  LOOK AT NEXT WORD                  F4415050    
       00753  1 00001 4 00754 NEWFM  TXI NEWFM+1,4,1               IS THIS END OF TABLE               F4415060    
       00754 -2 01750 4 00736        TNX CLA1,4,XFRET=             NO--LOOK AT  NEXT ENTRY            F4415070    
                                                                                                      F4415080    
                                         THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS    F4415090    
       00755  0 50200 0 00107 DONE   CLS FRTBX=                                                       F4415100    
       00756  0 40000 0 00050        ADD LXFRT=                                                       F4415110    
       00757 -0 73400 4 00000        PDX 0,4                       PUT NO. OF WORDS IN FRET INTO INDEXF4415120    
       00760 -2 00372 4 01006 LZFRT= TNX LSTBLK,4,ZFRET=           IS THERE ONLY A PARTIAL BLOCK LEFT F4415130    
       00761 -0 53400 3 00760        LXD LZFRT=,3                  NO, FULL BLOCK--SET INDEX REGS.    F4415140    
       00762  0 50000 0 00043        CLA LAZFT=                    GET LENGTH OF BLOCK                F4415150    
       00763  0 40100 0 00771 ADM    ADM ACLA                      SET ADDRESSES FOR BLOCK            F4415160    
       00764  0 62100 0 00771        STA ACLA                                                         F4415170    
       00765  0 62100 0 00776        STA CPYFT                                                        F4415180    
       00766  0 76600 0 00302        WRS FRTDRM                    SELECT DRUM                        F4415190    
       00767 -0 75400 2 00000        PXD 0,2                                                          F4415200    
       00770  0 60100 0 00106        STO ERAS2=                    STORE LENGTH OF BLOCK              F4415210    
       00771  0 36100 2 04053 ACLA   ACL FRETN=,2                  FIND CHECKSUM                      F4415220    
       00772  2 00001 2 00771        TIX ACLA,2,1                                                     F4415230    
       00773  0 60200 0 00105        SLW ERAS1=                    STORE CHECKSUM                     F4415240    
       00774  0 46000 0 00046        LDA FRETY=                                                       F4415250    
       00775  0 70000 0 00106        CPY ERAS2=                    COPY NO OF WORDS IN BLOCK          F4415260    
       00776  0 70000 1 04053 CPYFT  CPY FRETN=,1                  COPY BLOCK                         F4415270    
       00777  2 00001 1 00776        TIX CPYFT,1,1                                                    F4415280    
       01000  0 70000 0 00105        CPY ERAS1=                    COPY CHECK SUM                     F4415290    
       01001  3 01750 4 01014        TXH OUTA,4,XFRET=             IS THIS END OF TABLE               F4415300    
       01002  0 50000 0 00046        CLA FRETY=                    NO,SET DRUM ADDRESS FOR NEXT BLOCK F4415310    
       01003  0 40000 0 00044        ADD LAFT2=                                                       F4415320    
       01004  0 62100 0 00046        STA FRETY=                                                       F4415330    
       01005  0 02000 0 00760        TRA LZFRT=                    DO NEXT BLOCK                      F4415340    
       01006 -0 75400 4 00000 LSTBLK PXD 0,4                       ONLY A PARTIAL BLOCK LEFT          F4415350    
       01007 -0 73400 3 00000        PDX 0,3                       LENGTH OF BLOCK INTO INDICES       F4415360    
       01010  0 77100 0 00022        ARS 18                                                           F4415370    
       01011  1 01750 4 00763        TXI ADM,4,XFRET=                                                 F4415380    
       01012  0 76600 0 00302 EMPTY  WRS FRTDRM                                                       F4415390    
       01013  0 46000 0 00046        LDA FRETY=                                                       F4415400    
       01014  0 70000 0 00033 OUTA   CPY L0...=                                                       F4415410    
       01015  0 77200 0 00224        REW INSTTP                    REWIND COMPILED INSTRUCTION TAPE   F4415420    
                                                                                                      F4415430    
                                         THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS   F4415440    
       01016 -0 53400 1 07775 SRTDO  LXD DOBOX=,1                  PUT TOTAL LNGTH OF DOLIST IN ERAS2=F4415450    
       01017 -3 00000 1 01305        TXL CLTRA=-3,1,0              IF NO DOS, OMIT ROUTINES WITH DOS  F4415460    
       01020 -0 63400 1 00106        SXD ERAS2=,1                                                     F4415470    
       01021  0 50000 1 06500 CLADO  CLA DOLIST,1                  TAKE LAST ENTRY NOT ALREADY SORTED F4415480    
       01022  0 56000 1 06501        LDQ DOLIST+1,1                PUT ADDRESS IN AC, LOC IN MQ       F4415490    
       01023 -3 00002 1 01046 TXLDO  TXL STOREA,1,2                IS THERE ANOTHER ENTRY TO BE       F4415580    
                                                                      COMPARED                        F4415510    
       01024  0 34000 1 06502        CAS DOLIST+2,1                YES, COMPARE ADDRESSES             F4415520    
       01025  1 77776 1 01023        TXI TXLDO,1,-2                STORED ADDRESS SMALLER, LOOK AT    F4415530    
                                                                      NEXT WORD                       F4415540    
       01026  0 02000 0 01040        TRA COMPR                     ADDRESSES ARE EQUAL, COMPARE LOCATNF4415550    
       01027  0 60100 0 00105        STO ERAS1=                    STORED ADDRESS LARGER, EXCHANGE    F4415560    
       01030  0 50000 1 06503        CLA DOLIST+3,1                   ENTRIES                         F4415570    
       01031 -0 60000 1 06503 STQDO  STQ DOLIST+3,1                                                   F4415580    
       01032  0 56000 0 00105        LDQ ERAS1=                                                       F4415590    
       01033  0 60100 0 00105        STO ERAS1=                                                       F4415600    
       01034  0 50000 1 06502        CLA DOLIST+2,1                                                   F4415610    
       01035 -0 60000 1 06502        STQ DOLIST+2,1                                                   F4415620    
       01036  0 56000 0 00105        LDQ ERAS1=                                                       F4415630    
       01037  1 77776 1 01023        TXI TXLDO,1,-2                                                   F4415640    
       01040  0 60100 0 00105 COMPR  STO ERAS1=                    ADDRESSES EQUAL,COMPARE LOCATIONS  F4415650    
       01041  0 50000 1 06503        CLA DOLIST+3,1                                                   F4415660    
       01042  0 04000 0 01044        TLQ CLA2                      STORED LARGER,DO NOT EXCHANGE      F4415670    
       01043  0 02000 0 01031        TRA STQDO                     STORED LOC SMALLER, EXCHANGE       F4415680    
       01044  0 50000 0 00105 CLA2   CLA ERAS1=                    RESTORE ACCUMULATOR                F4415690    
       01045  1 77776 1 01023        TXI TXLDO,1,-2                                                   F4415700    
       01046 -0 53400 1 00106 STOREA LXD ERAS2=,1                  NOW HAVE HIGHEST OF ENTRIES NOT    F4415710    
       01047  0 60100 1 06500        STO DOLIST,1                     PREVIOUSLY SORTED, STORE JUST   F4415720    
       01050 -0 60000 1 06501        STQ DOLIST+1,1                   BEFORE THOSE ALREADY SORTED AND F4415730    
       01051  1 77776 1 01052 SELF13 TXI SELF13+1,1,-2                SET INDEX TO AVOID THIS ENTRY ASF4415740    
       01052 -0 63400 1 00106        SXD ERAS2=,1                     ALREADY SORTED, LOOK FOR HIGHESTF4415750    
       01053  3 00002 1 01021        TXH CLADO,1,2                    ENTRY OF THOSE NOT YET SORTED.  F4415760    
                                                                   TABLE IS ENTIRELY SORTED NOW.      F4415770    
                                                                                                      F4415780    
                                         THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS IN THE DO LIST F4415790    
                                         BY BASIC BLOCK NUMBERS                                       F4415800    
       01054  0 53400 2 00033        LXA L0...=,2                  INITIALIZE INDEX REGISTERS         F4415810    
       01055  0 50000 0 07775        CLA DOBOX=                    PUT NUMBER OF WORDS IN LIST INTO   F4415820    
       01056  0 62200 0 01060        STD TIXDO                        DECREMENT OF TIX FOR COMPARISON F4415830    
       01057  0 53400 1 00031        LXA LA1,1                                                        F4415840    
 D     01060  2 00000 1 01102 TIXDO  TIX RDDOT,1                   HAVE ALL ENTRIES BEEN DONE         F4415850    
       01061  0 50000 1 06477        CLA DOLIST-1,1                ADD INST NO TO BE CHANGED (ADDR)   F4415860    
       01062  0 34000 2 07773 LDQ    CAS BBLIST,2                  COMPARE TO INST NO OF BEG OF BB    F4415870    
       01063  1 00001 2 01062        TXI LDQ,2,1                   BEG BB LESS, TRY NEXT              F4415880    
       01064  0 02000 0 01066        TRA LDQ+4                     BEG. B.B. EQUAL,FOUND              F4415890    
       01065  1 77777 2 01066        TXI LDQ+4,2,-1                BEG B B GREATER, PREVIOUS BB IS IT F4415900    
       01066 -0 75400 2 00000 LOQP4  PXD 0,2                       PUT B B NO IN DECREMENT            F4415910    
       01067  0 60100 1 06477        STO DOLIST-1,1                REPLACE INSTR NO IN DO LIST        F4415920    
       01070  0 50000 1 06500        CLA DOLIST,1                  ADD INSTR NO OF LOC OF TXL         F4415930    
       01071  0 34000 2 07773        CAS BBLIST,2                  COMPARE TO BB OF ADDR FIRST        F4415940    
       01072  1 00001 2 01071 SELF14 TXI SELF14-1,2,1              TOO SMALL--TRY NEXT                F4415950    
       01073  0 02000 0 01075 SELF15 TRA SELF15+2                  EQUAL--FOUND                       F4415960    
       01074  1 77777 2 01075 SELF16 TXI SELF16+1,2,-1             TOO LARGE, WAS ONE PREVIOUS        F4415970    
       01075 -0 75400 2 00000 CASP4  PXD 0,2                       PUT BB NO INTO DOLIST IN PLACE OF  F4415980    
       01076  0 60100 1 06500        STO DOLIST,1                    INSTRUCTION NUMBER               F4415990    
       01077  0 50000 1 06477        CLA DOLIST-1,1                PUT BB NO OF ADDRESS OF THIS DO    F4416000    
       01100 -0 73400 2 00000        PDX 0,2                          INTO IR B TO START COMPARISON   F4416010    
       01101  1 00002 1 01060        TXI TIXDO,1,2                 DO NEXT ENTRY                      F4416020    
                                                                                                      F4416030    
                                         THIS ROUTINE READS DOCARE FROM DRUM 1                        F4416040    
       01102  0 50000 0 00032 RDDOT  CLA MINUS4                    INITIALIZE ERROR BOX               F4416050    
       01103  0 60100 0 00030        STO ERRBX                                                        F4416060    
       01104  0 76200 0 00301 RDSDOT RDS DOCRDR                    SELECT DOCARE DRUM                 F4416070    
       01105  0 53400 1 00033        LXA L0...=,1                  ZERO INTO I.R.A                    F4416080    
       01106  0 70000 0 00105        CPY ERAS1=                                                       F4416090    
       01107  0 53400 4 00105        LXA ERAS1=,4                                                     F4416100    
       01110  0 70000 0 00106        CPY ERAS2=                                                       F4416110    
       01111 -2 00002 4 01141        TNX CLAE,4,2                  TEST FOR EMPTY TABLE               F4416120    
       01112  0 70000 1 04216 CPYDOT CPY DOCARE,1                  COPY TABLE                         F4416130    
       01113  1 00001 1 01114 SELF17 TXI SELF17+1,1,1                                                 F4416140    
       01114  0 70000 1 04363        CPY DOCARE+101,1              COPY CHECKSUMS                     F4416150    
       01115  2 00002 4 01112        TIX CPYDOT,4,2                TEST FOR END                       F4416160    
       01116 -0 63400 1 00107        SXD ERAS3=,1                  SAVE INDEX                         F4416170    
       01117 -0 53400 2 00107        LXD ERAS3=,2                                                     F4416180    
       01120 -0 50000 0 00105        CAL ERAS1=                                                       F4416190    
       01121  0 36100 1 04217        ACL DOCARE+1,1                                                   F4416200    
       01122  2 00001 1 01121 SELF18 TIX SELF18-1,1,1              SUM ENTRIES                        F4416210    
       01123  0 60200 0 00105        SLW ERAS1=                                                       F4416220    
       01124 -0 50000 0 00106        CAL ERAS2=                                                       F4416230    
       01125  0 36100 2 04363 ACLB   ACL DOCARE+101,2              SUM CHECKS                         F4416240    
       01126  2 00001 2 01125        TIX ACLB,2,1                                                     F4416250    
       01127  0 60200 0 00106        SLW ERAS2=                                                       F4416260    
       01130  0 50000 0 00106 CHSMCR CLA ERAS2=                                                       F4416270    
       01131  0 40200 0 00105        SUB ERAS1=                                                       F4416280    
       01132  0 10000 0 01143        TZE RDDTG                     NO ERROR-DO NEXT PART OF PROGRAM   F4416290    
       01133  0 50000 0 00030        CLA ERRBX                                                        F4416300    
       01134 -0 12000 0 01136 SKIP5  TMI SKIP5+2                   HAVE 5 TRIES AT READING BEEN MADE  F4416310    
       01135  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4416320    
       01136  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4416330    
       01137  0 60100 0 00030        STO ERRBX                                                        F4416340    
       01140  0 02000 0 01104        TRA RDSDOT                                                       F4416350    
       01141  0 60000 0 00107 CLAE   STZ ERAS3=                    SET SIGNAL FOR EMPTY DOCARE        F4416360    
       01142  0 02000 0 01130        TRA CHSMCR                                                       F4416370    
                                                                                                      F4416380    
                                         THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES  F4416390    
                                         IT                                                           F4416400    
       01143  0 76200 0 00222 RDDTG  RDS TBLTAP                                                       F4416410    
       01144  0 76200 0 00222        RDS TBLTAP                                                       F4416420    
       01145  0 76200 0 00222        RDS TBLTAP                                                       F4416430    
       01146  0 50000 0 00032        CLA MINUS4                    INITIALIZE ERROR BOX               F4416440    
       01147  0 60100 0 00030        STO ERRBX                                                        F4416450    
       01150 -0 53400 1 00054        LXD OPMSK=,1                  COMPLEMENT OF ONE INTO IR A        F4416460    
       01151  0 76200 0 00222 RDSDTG RDS TBLTAP                                                       F4416470    
       01152  0 70000 1 04216 CPY1D  CPY DOTAG,1                   COPY RECORD SAVING ONLY THOSE      F4416480    
       01153  0 02000 0 01156        TRA CPY2D                        PARTS TO BE USED                F4416490    
       01154  0 02000 0 01203        TRA NTRDO=                    END OF FILE--ALL COPIED            F4416500    
       01155  0 02000 0 01167        TRA TESTDT                    END OF RECORD--TEST FOR ERROR      F4416510    
       01156  0 70000 0 00105 CPY2D  CPY ERAS1=                                                       F4416520    
       01157  0 70000 0 00105        CPY ERAS1=                                                       F4416530    
       01160  0 70000 0 00105        CPY ERAS1=                                                       F4416540    
       01161  0 70000 1 04217        CPY DOTAG+1,1                                                    F4416550    
       01162  0 70000 1 04220        CPY DOTAG+2,1                                                    F4416560    
       01163  0 70000 1 04221        CPY DOTAG+3,1                                                    F4416570    
       01164  0 70000 0 00105        CPY ERAS1=                                                       F4416580    
       01165  0 70000 0 00105        CPY ERAS1=                                                       F4416590    
       01166  1 77774 1 01152        TXI CPY1D,1,-4                SET FOR NEXT ENTRY                 F4416600    
       01167 -0 76000 0 00012 TESTDT RTT       4                   TEST REDUNDANCY                    F4416610    
       01170  0 02000 0 01173        TRA ERR2DT                                                       F4416620    
       01171 -0 63400 1 01216        SXD DTGBX,1                   SAVE LENGTH OF TABLE SO FAR        F4416630    
       01172  0 02000 0 01151        TRA RDSDTG                    COPY NEXT RECORD                   F4416640    
       01173  0 50000 0 00030 ERR2DT CLA ERRBX                                                        F4416650    
       01174 -0 12000 0 01176 SKIP6  TMI SKIP6+2                   HAVE 5 TRIES AT READING BEEN MADE  F4416660    
       01175  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4416670    
       01176  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4416680    
       01177  0 60100 0 00030        STO ERRBX                                                        F4416690    
       01200  0 76400 0 00222        BST TBLTAP                                                       F4416700    
       01201 -0 53400 1 01216        LXD DTGBX,1                   SET INDEX TO READ LAST RECORD AGAINF4416710    
       01202  0 02000 0 01151        TRA RDSDTG                                                       F4416720    
                                                                                                      F4416730    
                                         THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLISTF4416740    
       01203 -0 53400 1 00054 NTRDO= LXD OPMSK=,1                  C0MPLEMENT OF ONE INTO I R A       F4416750    
       01204  0 53400 2 00031        LXA LA1,2                     ONE INTO IR B                      F4416760    
       01205  0 53400 4 00033        LXA L0...=,4                  ZERO INTO INDEX C                  F4416770    
       01206  0 50000 0 01216        CLA DTGBX                                                        F4416780    
       01207  0 62200 0 01247        STD DTGBX2                    PUT LENGTH OF DOTAG IN FOR TEST    F4416790    
 T     01210 -0 75400 0 00000        PXD                                                              F4416800    
       01211  0 60100 0 00105        STO ERAS1=                                                       F4416810    
       01212  0 60100 0 00106        STO ERAS2=                    CLEAR ERAS1= AND ERAS2=            F4416820    
       01213  0 02000 0 01216        TRA NXTDO+2                                                      F4416830    
       01214  1 00002 2 01215 NXTDO  TXI NXTDO+1,2,2                                                  F4416840    
       01215  1 77774 1 01216        TXI DTGBX,1,-4                SET FOR NEXT ENTRY                 F4416850    
       01216 -3 77777 1 01310 DTGBX  TXL CLTRA=,1,-1               IS DOTAG FINISHED--IF SO EXIT      F4416860    
       01217  0 50000 1 04221 CLADT  CLA DOTAG+3,1                 LOOK FOR INDICAT1ON OF AN IF       F4416870    
       01220  0 12000 0 01223        TPL STF+2                     TRANSFER IF DO HAS NO IF           F4416880    
       01221  0 50000 0 00053 STF    CLA TAGMRK                    STORE IF INDICATION IN DOLIST      F4416890    
       01222 -0 60200 2 06477        ORS DOLIST-1,2                                                   F4416900    
       01223  0 50000 1 04216        CLA DOTAG,1                                                      F4416910    
       01224 -0 32000 0 00053        ANA TAGMRK                    LOOK FOR INDICATION OF VARIABLE    F4416920    
                                                                      NO 0F TIMES IN LOOP             F4416930    
       01225 -0 10000 0 01266        TNZ VRBLN                     VARIABLE,GET FROM DVFQ             F4416940    
       01226  0 50000 1 04220        CLA DOTAG+2,1                 GET (N2-N1+N3) AND PUT IN MQ       F4416950    
       01227  0 62100 0 00105        STA ERAS1=                                                       F4416960    
 T     01230 -0 75400 0 00000        PXD                           CLEAR ACCUMULATOR                  F4416970    
       01231  0 56000 0 00105        LDQ ERAS1=                    DIVIDE (N2-N1+N3) BY N3 TO GET     F4416980    
       01232  0 22100 1 04217        DVP DOTAG+1,1                    NUMBER OF TIMES IN DO LOOP      F4416990    
       01233  0 76000 0 00012        DCT                                                              F4417000    
       01234  0 07400 4 00004        TSX RDFORT,4                  BAD DIVIDE                         F4417010    
       01235 -0 60000 0 00105 STQDTG STQ ERAS1=                                                       F4417020    
       01236  0 50000 0 00105        CLA ERAS1=                    SHIFT TO AC                        F4417030    
       01237  0 62100 2 06500        STA DOLIST,2                  TEST FOR END                       F4417040    
       01240 -0 53400 4 00107 NDDOT  LXD ERAS3=,4                                                     F4417050    
       01241  0 50000 1 04222        CLA DOTAG+4,1                 DOES NEXT ENTRY IN DOTAG CORRESPONDF4417060    
       01242  0 34000 4 04217 DDCAS  CAS DOCARE+1,4                     TO A TXL                      F4417070    
       01243  0 02000 0 01245        TRA DDTIX                                                        F4417080    
       01244  1 77774 1 01247        TXI DTGBX2,1,-4               NO-SET FOR NEXT ENTRY AND SAME TXL F4417090    
       01245  2 00001 4 01242 DDTIX  TIX DDCAS,4,1                                                    F4417100    
       01246  0 02000 0 01214        TRA NXTDO                     YES-LOOK AT NEXT TXL AND NEXT ENTRYF4417110    
 D     01247 -3 00000 1 01310 DTGBX2 TXL CLTRA=,1                  TEST FOR END                       F4417120    
       01250  0 50000 1 04216        CLA DOTAG,1                   DOES THIS ENTRY HAVE A VARIABLE NO.F4417130    
       01251 -0 32000 0 00053        ANA TAGMRK                       OF TIMES IN LOOP                F4417140    
       01252 -0 10000 0 01264        TNZ VBLN2                     YES,GET NO. FROM DVFQ              F4417150    
       01253  0 50000 1 04220        CLA DOTAG+2,1                 NO,GET N2-N1+N3                    F4417160    
       01254  0 62100 0 00106        STA ERAS2=                    AND PUT IN MQ                      F4417170    
       01255 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4417180    
       01256  0 56000 0 00106        LDQ ERAS2=                    DIV N2-N1+N3 BY N3 TO GET NO. OF   F4417190    
       01257  0 22100 1 04217        DVP DOTAG+1,1                    TIMES IN THIS DO                F4417200    
       01260  0 76000 0 00012        DCT                                                              F4417210    
       01261  0 07400 4 00004        TSX RDFORT,4                  BAD DIVIDE                         F4417220    
       01262  0 20000 0 00105 MPY    MPY ERAS1=                                                       F4417230    
       01263  0 02000 0 01235        TRA STQDTG                                                       F4417240    
       01264  0 50000 0 00101 VBLN2  CLA LMPY                      SET EXIT ADDRESS                   F4417250    
       01265  0 02000 0 01267        TRA VRBLN+1                                                      F4417260    
       01266  0 50000 0 00102 VRBLN  CLA LSTQ                      SET EXIT ADDRESS                   F4417270    
       01267  0 62100 0 01304        STA EXIT                                                         F4417280    
       01270  0 50000 1 04216        CLA DOTAG,1                   GET FORMULA NUMBER OF DO           F4417290    
       01271  0 77100 0 00022        ARS 18                                                           F4417300    
       01272 -0 76000 0 00003        SSM                                                              F4417310    
       01273 -0 53400 4 00111        LXD DVFQB=,4                                                     F4417320    
 D     01274  3 00000 4 01300 DVFTST TXH LDQ5,4                    TEST FOR END OF DVFQ               F4417330    
       01275  0 34000 4 06023        CAS DVFQ.=,4                  COMPARE TO FORMULA NO. IN DVFQ     F4417340    
       01276  1 00002 4 01274        TXI DVFTST,4,2                DVFQ TOO SMALL, TRY NEXT           F4417350    
       01277  1 00002 4 01302        TXI ENTER,4,2                 EQUAL--SET INDEX FOR NEXT SEARCH   F4417360    
       01300  0 56000 0 00034 LDQ5   LDQ L5...=                    FREQ NOT IN DVFQ, TAKE 5 AS FREQ   F4417370    
       01301  0 02000 0 01303        TRA ENTER+1                                                      F4417380    
       01302  0 56000 4 06024 ENTER  LDQ DVFQ.=+1,4                                                   F4417390    
       01303 -0 63400 4 00111        SXD DVFQB=,4                                                     F4417400    
 A     01304  0 02000 0 00000 EXIT   TRA                           RETURN TO MAIN PART OF THIS ROUTINEF4417410    
       01305 -0 53400 4 00220        LXD LD4..=,4                  READ DOTAG                         F4417420    
       01306  0 76200 0 00222 RDSP   RDS TBLTAP                    FIND BEGINNING OF DOTAG            F4417430    
       01307  2 00001 4 01306        TIX RDSP,4,1                                                     F4417440    
                                                                                                      F4417450    
                                         THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL       F4417460    
                                         COUNTERS TO ZERO                                             F4417470    
       01310  0 56000 0 00031 CLTRA= LDQ LA1                                                          F4417480    
       01311 -0 75400 0 00000        PXD 0,0                                                          F4417490    
       01312  0 60100 0 01113        STO NLIST-1                   STORE ENDMARK FOR N-LIST           F4417500    
       01313  0 53400 1 00045        LXA LZTR4=,1                                                     F4417510    
       01314  0 60100 1 06025        STO TRAM+1,1                                                     F4417520    
       01315 -0 60000 1 06024        STQ TRAM,1                                                       F4417530    
       01316  2 00002 1 01314 SELF26 TIX SELF26-2,1,2                                                 F4417540    
       01317 -0 53400 1 07775        LXD DOBOX=,1                                                     F4417550    
       01320  0 50000 0 00054        CLA OPMSK=                                                       F4417560    
       01321  0 60100 1 06477        STO DOLIST-1,1                STORE ENDMARK FOR DOLIST           F4417570    
       01322  0 76200 0 00221        RDS SYSTAP                                                       F4417580    
       01323  0 60000 0 01114        STZ NLIST                     CLEAR DUMMY SENSE LIGHTS.          F4417590    
       01324  0 60000 0 01115        STZ NLIST+1                                                      F4417600    
       01325  0 60000 0 01116        STZ NLIST+2                                                      F4417610    
       01326  0 60000 0 01117        STZ NLIST+3                                                      F4417620    
       01327  0 02000 0 00004        TRA RDFORT                                                       F4417630    
                                                                                                      F4417640    
                                                                                                      F4417650    
                                         SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2)                    F4420010    
                                                                                                      F4420020    
                                         FORTRAN EDITOR INFORMATION                                   F4420030    
                                            MASTER RECORD CARD = F0640000                             F4420040    
                                            ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER -    F4420050    
                                                            1 TO CS - IN ORDER TO READ IN NEXT RECORD)F4420060    
                                            FIRST LOCATION = 33                                       F4420070    
                                            LAST LOCATION = 1104                                      F4420080    
                                                                                                      F4420090    
                        00033        ORG 27                                                           F4420100    
                                         CONSTANTS AND VARIABLES                                      F4420110    
       00033  0 00000 0 00000 L0M    HTR 0                                                            F4420120    
       00034  0 00000 0 00006 L6M    HTR 6                                                            F4420130    
       00035  0 00001 0 00000 LD1M   HTR 0,0,1                                                        F4420140    
       00036  0 00003 0 00000 LD3    HTR 0,0,3                                                        F4420150    
       00037  0 00007 0 00000 LD7M   HTR 0,0,7                                                        F4420160    
       00040  0 00000 0 01275 SETYM      SETADD                    DRUM ADDRESS FOR SET TABLE         F4420170    
       00041  0 00000 0 01750 TIFY       TIFADD                    DRUM ADDRESS FOR TIFRD             F4420180    
       00042  0 00000 0 00311 LZSET1     ZSET+1                                                       F4420190    
       00043  0 00000 0 00312 LZTIF2     ZTIFRD+2                                                     F4420200    
       00044  0 05360 0 00000 LXTRA      0,0,XTRA                                                     F4420210    
       00045  0 01274 0 00000 LZTRA      0,0,ZTRA                                                     F4420220    
       00046  0 00620 0 00000 LXSET      0,0,XSET                                                     F4420230    
       00047  0 00310 0 00000 LZSET      0,0,ZSET                                                     F4420240    
       00050  0 76664 0 00000 LNLST      0,0,-NLIST                ADDRESS OF N                       F4420250    
       00051  0 76660 0 00000 LDSAN      0,0,-NLIST-4              ADDRESS OF SENSE LIGHT             F4420260    
       00052  0 00000 0 03063 LFXDN      RDTIF-1                   LAST LOCATION IN FIXDO LIST        F4420270    
       00053  0 02000 0 00613 LCOUT  TRA OUTB                      TRANSFER TO EXIT ROUTINE           F4420280    
       00054  0 02000 0 03131 TRNOM  TRA NOMOR                                                        F4420290    
       00055  2 00000 4 00705 CNST2M TIX C3CLA,4,0                 TO TEXT FOR END OF LOOKUP          F4420300    
       00056 +002000000000    CONSTM OCT 2000000000                                                   F4420310    
       00057 +000000077777    ADRMK  OCT 77777                                                        F4420320    
       00060 +077777000000    DECMKM OCT 77777000000                                                  F4420330    
       00061 -300000000000    PFXMKM OCT -300000000000                                                F4420340    
       00062 +000000700000    IFMSK  OCT 700000                                                       F4420350    
       00063 +000770000000    XXPSX  OCT 770000000                                                    F4420360    
       00064 +000140000000    XX14X  OCT 140000000                                                    F4420370    
       00065 +000160000000    XX16X  OCT 160000000                                                    F4420380    
       00066 +000360000000    XX360  OCT 360000000                                                    F4420390    
       00067 -370000000000    FSTLT  OCT -370000000000                                                F4420400    
       00070 -230000000000    FSTT   OCT -230000000000                                                F4420410    
       00071 +170000000000    0CTALM OCT 170000000000                                                 F4420420    
       00072 +377777777777    ENDMKM OCT 377777777777                                                 F4420430    
       00073 -100000000000    GTNCD  OCT -100000000000                                                F4420440    
       00074 +300000000000    CRTCD  OCT 300000000000                                                 F4420450    
       00075 +076225000000    LPSE   OCT 76225000000                                                  F4420460    
       00076 +034743000000    LTPL   OCT 34743000000                                                  F4420470    
       00077 +035121000000    LTRA   OCT 35121000000               TRA                                F4420480    
       00100 +001622000000           OCT 1622000000                TXL-TRA                            F4420490    
       00101 -000372000000    LTROP  OCT -372000000                TTR-TXL                            F4420500    
       00102 +035121000000           OCT 35121000000               TRA                                F4420510    
       00103 +041104000000           OCT 41104000000               PSE-TRA                            F4420520    
       00104 -033642000000           OCT -33642000000              DCT-PSE                            F4420530    
       00105 -024000000000           OCT -24000000000              RTT-DCT                            F4420540    
       00106 +027642000000           OCT 27642000000               MSE-RTT                            F4420550    
       00107 -007100000000           OCT -7100000000               TZE-MSE                            F4420560    
       00110 -032154000000           OCT -32154000000              HPR-TZE                            F4420570    
       00111 +031316000000    LNTOP  OCT 31316000000               TSX-HPR                            F4420580    
       00112 +000001000000    SBOX   OCT 1000000                                                      F4420590    
       00113 -000001000000    SPBOX  OCT -1000000                                                     F4420600    
       00114 +000001000000    TBOX   OCT 1000000                                                      F4420610    
       00115 -000001000000    TPBOX  OCT -1000000                                                     F4420620    
       00116  0 00312 0 00000 PBOX       0,0,ZTIFRD+2                                                 F4420630    
       00117  0 00000 0 00000 BBOX                                                                    F4420640    
       00120  0 00000 0 00000 MBOX       0                                                            F4420650    
       00121  0 00000 0 00000 ACBOX      0                                                            F4420660    
       00122  0 00000 0 00000 OUTBX      0                                                            F4420670    
       00123  0 00000 0 00000 ENTBX      0                                                            F4420680    
       00124  0 00000 0 00000 XBOX                                 SAVE POWER OF 2                    F4420690    
       00125  0 00000 0 00000 ERAS1M     0                                                            F4420700    
       00126  0 00000 0 00000 ERAS2M     0                                                            F4420710    
       00127  0 00000 0 00000 ERAS3M                                                                  F4420720    
                                                                                                      F4420730    
                                         THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED          F4420740    
                                         INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND    F4420750    
                                         TIFRD.  IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN F4420760    
                                         THE SIMULATION PROGRAM.                                      F4420770    
       00130  1 00001 2 00131 BEGBB  TXI BEGBB+1,2,1               SET FOR NEXT BASIC BLOCK           F4420780    
       00131  0 50000 0 00112        CLA SBOX                                                         F4420790    
       00132  0 40000 0 00113        ADD SPBOX                                                        F4420800    
       00133  0 77100 0 00022        ARS 18                        PUT SET TABLE ADDRESS INTO BB TABLEF4420810    
       00134  0 40000 0 00114        ADD TBOX                                                         F4420820    
       00135  0 40000 0 00115        ADD TPBOX                                                        F4420830    
       00136  0 60100 2 02413        STO BBTABL,2                  PUT TRA TABLE ADDRESS INTO BB TABLEF4420840    
       00137 -0 53400 4 00114        LXD TBOX,4                                                       F4420850    
       00140 -2 01274 4 00143        TNX FNDAS,4,ZTRA              IS BLOCK OF TRA TABLE FULL         F4420860    
       00141 -0 63400 4 00114        SXD TBOX,4                    SAVE NEW INDEX FOR TRA             F4420870    
       00142  0 07400 4 03147        TSX WRTRA,4                   WRITE TRA BLOCK ON DRUM            F4420880    
       00143 -2 00454 1 00145 FNDAS  TNX 2FNDS,1,ZINSTM            IS BLOCK OF INSTRUCTIONS ALL USED  F4420890    
       00144  0 07400 4 00763        TSX RDINSM,4                  YES, READ IN NEXT BLOCK            F4420900    
       00145  0 50000 1 03703 2FNDS  CLA INSTM,1                   IF THERE IS NO LOCATI0N SYMBOL,    F4420910    
       00146  0 10000 0 00225        TZE TR3S+1                       THIS CANT BE A SET OR AN ENDING F4420920    
                                                                      OTHER THAN A CERTAINTY CASE     F4420930    
       00147 -0 53400 4 00116        LXD PBOX,4                    CHANGE, LOOK AT ASSIGN ENTRY       F4420940    
       00150 -2 00310 4 00155 2TNX   TNX BADD,4,ZTIFRD             IS BLOCK OF TIFRD ALL USED         F4420950    
       00151 -0 63400 4 00116        SXD PBOX,4                    YES, READ IN MORE                  F4420960    
       00152  0 07400 4 03064        TSX RDTIF,4                                                      F4420970    
       00153 -0 53400 4 00116        LXD PBOX,4                                                       F4420980    
       00154  0 50000 1 03703        CLA INST.M,1                  COMPARE FORMULA NO. TO ASSIGN      F4420990    
       00155  0 40000 0 00034 BADD   ADD L6M                          LIST.                           F4421000    
       00156  0 40200 4 04214        SUB TIFRDM,4                                                     F4421010    
       00157  0 10000 0 00231        TZE ASNCS                                                        F4421020    
       00160  0 50000 1 03702 2CLA   CLA INSTM-1,1                 NOT AN ASSIGN                      F4421030    
       00161 -0 32000 0 00060        ANA DECMKM                    TEST FOR A SET SENSE LIGHT         F4421040    
       00162  0 40200 0 00075        SUB LPSE                                                         F4421050    
       00163 -0 10000 0 00257        TNZ TSTTR                     NOT A PSE, LOOK FOR A TRANSFER     F4421060    
       00164  0 50000 1 03700        CLA INST.M-3,1                LOOK AT ADDRESS OF PSE FOR SET     F4421070    
       00165 -0 32000 0 00063        ANA XXPSX                                                        F4421080    
       00166  0 40200 0 00064        SUB XX14X                                                        F4421090    
       00167  0 10000 0 00174        TZE STSLT                     IT IS A SET SENSE LIGHT            F4421100    
       00170  0 50000 1 03677        CLA INSTM-4,1                 NOT A SET SENSE LIGHT, SEE IF NEXT F4421110    
       00171  0 40200 2 07772        SUB BBLIST-1,2                   INSTRUCTION STARTS A BB         F4421120    
       00172  0 10000 0 00320        TZE CRTCS                     YES, IS A CERTAINTY CASE           F4421130    
       00173  0 02000 0 00504        TRA IF2PS                     NO, IS A PSE CASE.                 F4421140    
       00174 -0 53400 4 00112 STSLT  LXD SBOX,4                    LOAD INDEX FOR SET TABLE           F4421150    
       00175 -2 00310 4 00201        TNX 3CLA,4,ZSET               IF SET BLOCK IS FULL, PUT ON DRUM  F4421160    
       00176 -0 63400 4 00112        SXD SBOX,4                    SAVE INDEX                         F4421170    
       00177  0 07400 4 01032        TSX WRSET,4                   GO TO DRUM ROUTINE                 F4421180    
       00200 -0 53400 4 00112        LXD SBOX,4                    RESTORE INDEX                      F4421190    
       00201  0 50000 1 03700 3CLA   CLA INSTM-3,1                 LOOK AT RELATIVE ADDRESS OF PSE    F4421200    
       00202 -0 32000 0 00037        ANA LD7M                      FIND NO OF SENSE LIGHT             F4421210    
       00203  0 10000 0 00210        TZE SLSOF                     IF ZERO TURN ALL LIGHTS OFF        F4421220    
       00204  0 40000 0 00051        ADD LDSAN                     NOT ZERO, ADD ADDRESS OF FIRST     F4421230    
       00205  0 40000 0 00031        ADD LA1                       ADD ONE FOR SENSE LIGHT ON         F4421240    
       00206  0 60100 4 04524        STO SET..M,4                  STORE SET ENTRY                    F4421250    
       00207  1 00001 4 00224        TXI TR3S,4,1                  INDEX FOR NEXT SET ENTRY           F4421260    
       00210 -0 63400 2 00117 SLSOF  SXD BBOX,2                    SAVE INDEX B                       F4421270    
       00211 -0 53400 2 00276        LXD LD4,2                                                        F4421280    
       00212  0 50000 0 00051        CLA LDSAN                     PUT ENTRIES IN SET TABLE TO TURN   F4421290    
       00213  0 40000 0 00035 3ADD   ADD LD1M                         OFF ALL SENSE LIGHTS            F4421300    
       00214 -2 00310 4 00220        TNX 4STO,4,ZSET               IS BLOCK OF SETS FULL              F4421310    
       00215 -0 63400 4 00112        SXD SBOX,4                    YES, SAVE INDEX C                  F4421320    
       00216  0 07400 4 01032        TSX WRSET,4                   WRITE BLOCK ON DRUM                F4421330    
       00217 -0 53400 4 00112        LXD SBOX,4                    RESTORE INDEX C                    F4421340    
       00220  0 60100 4 04524 4STO   STO SETM,4                                                       F4421350    
       00221  1 00001 4 00222        TXI 3TIX,4,1                  SET FOR NEXT ENTRY IN TABLE        F4421360    
       00222  2 00001 2 00213 3TIX   TIX 3ADD,2,1                  ARE ALL SETS DONE                  F4421370    
       00223 -0 53400 2 00117        LXD BBOX,2                    YES, RESTORE INDEX B               F4421380    
       00224 -0 63400 4 00112 TR3S   SXD SBOX,4                    STORE SET TABLE INDEX              F4421390    
       00225  0 50000 1 03677        CLA INST.M-4,1                TEST THIS FOR END OF A BASIC BLOCK F4421400    
       00226  0 40200 2 07772        SUB BBLIST-1,2                (CANT BE A TRANSFER, SKIP, ETC.)   F4421410    
       00227  0 10000 0 00320        TZE CRTCS                     END OF BB MUST BE A CERTAINTY CASE F4421420    
       00230  1 00004 1 00143 TXFAS  TXI FNDAS,1,4                 NOT END OF BB, LOOK AT NEXT INSTR. F4421430    
       00231 -0 63400 4 00116 ASNCS  SXD PBOX,4                    SAVE INDEX FOR TIFRD               F4421440    
       00232  0 50000 1 03675        CLA INST.M-6,1                PUT ADDRESS (=N) OF STA INTO AC    F4421450    
       00233  0 07400 4 00632        TSX SRCHN,4                   SEARCH N-LIST FOR N                F4421460    
       00234  0 40000 0 00050        ADD LNLST                     PUT INDEX FOR N IN SET TABLE       F4421470    
       00235 -0 53400 4 00112        LXD SBOX,4                    PUT SET TABLE ADDRESS INTO INDEX   F4421480    
       00236 -2 00310 4 00242        TNX 4STD,4,ZSET               IS SET BLOCK FULL                  F4421490    
       00237 -0 63400 4 00112        SXD SBOX,4                    YES,SAVE INDEX                     F4421500    
       00240  0 07400 4 01032        TSX WRSET,4                   PUT BLOCK ON DRUM                  F4421510    
       00241 -0 53400 4 00112        LXD SBOX,4                    RESTORE INDEX                      F4421520    
       00242  0 60100 4 04524 4STD   STO SETM,4                    STORE ADDRESS OF N BEING SET       F4421530    
       00243 -0 63400 4 00112        SXD SBOX,4                    SAVE INDEX                         F4421540    
       00244 -0 53400 4 00116        LXD PBOX,4                    SET FOR TIFRD                      F4421550    
       00245  0 50000 4 04213        CLA TIFRDM-1,4                GET VALUE TO ASSIGN TO N FROM TIFRDF4421560    
       00246  0 76700 0 00022        ALS 18                                                           F4421570    
       00247  1 00002 4 00250 LD2    TXI LD2+1,4,2                 SET INDEX FOR NEXT ENTRY IN TIFRD  F4421580    
       00250 -0 63400 4 00116        SXD PBOX,4                    SAVE TIFRD INDEX                   F4421590    
       00251  0 07400 4 00667        TSX FNDBB,4                   CHANGE VALUE FOR N TO BASIC BLOCK  F4421600    
       00252 -0 53400 4 00112        LXD SBOX,4                       NUMBER, PUT SET ADDRESS IN INDEXF4421610    
       00253  0 77100 0 00022        ARS 18                           AND PUT VALUE N IS TO BE GIVEN  F4421620    
       00254  0 62100 4 04524        STA SET..M,4                     INTO TABLE ENTRY                F4421630    
       00255  1 00001 4 00256        TXI 4TXII,4,1                 SET INDEX FOR NEXT ENTRY IN TABLE  F4421640    
       00256  1 00004 1 00224 4TXII  TXI TR3S,1,4                  SINCE THIS INSTRUCTION IS A CLA ANDF4421650    
                                                                     IS FOLL0WED BY A STA, IT CANNOT  F4421660    
                                                                     BE THE END OF A BASIC BLOCK.     F4421670    
                                                                     ALSO THE STA CANNOT BE AN        F4421680    
                                                                     ASSIGN, PSE, TRANSFER, OR SKIP.  F4421690    
                                                                     IT CAN ONLY BE A CERTAINTY CASE  F4421700    
                                                                     OR INNOCUOUS.                    F4421710    
       00257  0 50000 1 03677 TSTTR  CLA INSTM-4,1                 IS THIS LAST INSTRUCTION IN A BB   F4421720    
       00260  0 40200 2 07772        SUB BBLIST-1,2                                                   F4421730    
       00261  0 10000 0 00312        TZE ENDBB                     YES,LOOK FOR TYPE OF ENDING        F4421740    
       00262 -0 53400 4 00612        LXD LD8,4                     NO, CHECK FOR ENDING OF GROUP OF   F4421750    
       00263 -0 50000 1 03702        CAL INST.M-1,1                   INSTRUCTIONS                    F4421760    
       00264 -0 32000 0 00060        ANA DECMKM                    LOOK AT OP CODE                    F4421770    
       00265  0 40200 4 00112 SUBP   SUB LNTOP+1,4                 COMPARE TO OP CODES OF POSSIBLE    F4421780    
       00266  0 10000 4 00307        TZE TRTIN+1,4                    ENDINGS--TRANSFER WHEN FOUND    F4421790    
       00267  2 00001 4 00265        TIX SUBP,4,1                  TRY NEXT POSSIBILITY               F4421800    
       00270 -0 50000 1 03702        CAL INST.M-1,1                NOT FOUND--LOOK FOR A CONDITIONAL  F4421810    
       00271 -0 32000 0 00067 6ANA   ANA FSTLT                        TRANSFER                        F4421820    
       00272  0 60200 0 00125        SLW ERAS1M                                                       F4421830    
       00273  0 50000 0 00125        CLA ERAS1M                                                       F4421840    
       00274  0 40200 0 00070        SUB FSTT                                                         F4421850    
       00275  0 10000 0 00426        TZE CNDTR                     IS A CONDITIONAL TRANSFER          F4421860    
       00276  1 00004 1 00143 LD4    TXI FNDAS,1,4                 NOT AN END OF BB, LOOK AT NEXT INSTF4421870    
       00277  0 02000 0 00451        TRA GOTOVM                    TRA IS THE OPERATI0N CODE          F4421880    
       00300  0 02000 0 00504        TRA IF2PS                     PSE                                F4421690    
       00301  0 02000 0 00536        TRA IF2CS                     DCT                                F4421900    
       00302  0 02000 0 00536        TRA IF2CS                     RTT                                F4421910    
       00303  0 02000 0 00530        TRA MSECSM                    MSE                                F4421920    
       00304  0 02000 0 00552        TRA IF3CSM                    TZE                                F4421930    
       00305  0 02000 0 00601        TRA HPRCS                     HPR                                F4421940    
       00306  1 00004 1 00143 TRTIN  TXI FNDAS,1,4                 TSX IS OP CODE                     F4421950    
       00307  0 02000 0 00324        TRA TRACSM                    TRA IS THE OPERATION CODE          F4421960    
       00310  0 02000 0 00377        TRA DOCSM                     TXL                                F4421970    
       00311  0 02000 0 00327 TRTTR  TRA TRACSM+3                  TTR                                F4421980    
       00312 -0 53400 4 00036 ENDBB  LXD LD3,4                     SET INDEX                          F4421990    
       00313  0 50000 1 03702        CLA INST.M-1,1                THIS INST ENDS A BASIC BLOCK--LOOK F4422000    
       00314 -0 32000 0 00060        ANA DECMKM                       AT OP CODE FOR TYPE OF ENDING   F4422010    
       00315  0 40200 4 00102 6SUB   SUB LTROP+1,4                 C0MPARE TO POSSIBLE OP CODE        F4422020    
       00316  0 10000 4 00312        TZE TRTTR+1,4                 TRANSFER IF FOUND                  F4422030    
       00317  2 00001 4 00315        TIX 6SUB,4,1                  TRY NEXT POSSIBILITY               F4422040    
       00320  0 07400 4 00663 CRTCS  TSX ENTB2,4                   NOT A CONDITIONAL TRANSFER--IT IS  F4422050    
                                                                      A CERTAINTY CASE DUE TO AN ENTRYF4422060    
       00321 -0 50000 0 00074 6CLA   CAL CRTCD                     PUT CERTAINTY CODE IN BB TABLE     F4422070    
       00322  0 63000 2 02413        STP BBTABL,2                                                     F4422080    
       00323  1 00004 1 00130        TXI BEGBB,1,4                 LOOK AT NEXT INSTR--BEG OF A BB.   F4422090    
       00324 -0 50000 1 03701 TRACSM CAL INSTM-2,1                 OP CODE IS TRA--SEE IF ADDRESS IS  F4422100    
       00325 -0 32000 0 00061        ANA PFXMKM                       IN PROGRAM(UNCONDITIONAL TRA) ORF4422110    
       00326 -0 10000 0 00334        TNZ GOTONM                       IN N LIST (GO TO N)             F4422120    
       00327  0 50000 1 03701        CLA INST.M-2,1                GET INSTR OF ADDRESS               F4422130    
       00330  0 07400 4 00653        TSX ENTRB,4                   ENTER IN TRA TABLE                 F4422140    
       00331 -0 50000 0 00074        CAL CRTCD                     STORE CERTAINTY CODE IN BB TABLE   F4422150    
       00332  0 63000 2 02413        STP BBTABL,2                                                     F4422160    
       00333  1 00004 1 00130        TXI BEGBB,1,4                 LOOK AT NEXT INST.--NEW B.B.       F4422170    
       00334 -0 50000 0 00073 GOTONM CAL GTNCD                     IS A GO TO N                       F4422180    
       00335  0 63000 2 02413        STP BBTABL,2                  STORE GO TO N CODE IN BB TABLE     F4422190    
       00336  0 50000 1 03701        CLA INST.M-2,1                PUT N INTO AC                      F4422200    
       00337  0 07400 4 00632        TSX SRCHN,4                   FIND LOCATION 0F N IN N-LIST       F4422210    
       00340 -0 53400 4 00114        LXD TBOX,4                                                       F4422220    
       00341  0 62200 4 06024        STD TRA..M,4                  PUT N-LIST ADDRESS IN TRA TABLE    F4422230    
       00342 -0 53400 4 00116        LXD PBOX,4                    PUT TIFRD ADDRESS INTO INDEX       F4422240    
       00343 -2 00310 4 00347 7TNX   TNX BCLA,4,ZTIFRD             IS TIFRD BLOCK USED                F4422250    
       00344 -0 63400 4 00116        SXD PBOX,4                    YES, SAVE INDEX                    F4422260    
       00345  0 07400 4 03064        TSX RDTIF,4                   READ IN NEXT BLOCK 0F TIFRD        F4422270    
       00346 -0 53400 4 00116        LXD PBOX,4                    RESTORE INDEX                      F4422280    
       00347  0 50000 1 03703 BCLA   CLA INSTM,1                   COMPARE FORMULA NUMBER OF INSTR. TOF4422290    
       00350 -0 32000 0 00060        ANA DECMKM                       THAT OF NEXT ENTRY IN TIFRD     F4422300    
       00351  0 40000 0 00031        ADD LA1                                                          F4422310    
       00352  0 40200 4 04214        SUB TIFRDM,4                                                     F4422320    
       00353  0 10000 0 00355 8ATZE  TZE 8TXI                      ENTRY FOUND                        F4422330    
       00354  0 07400 4 00004        TSX RDFORT,4                  NO ENTRY FOUND IN TIFRD FOR GO TO NF4422340    
       00355  1 00002 4 00356 8TXI   TXI 8TXI+1,4,2                SET FOR N-WORDS IN TIFRD           F4422350    
       00356 -2 00310 4 00362 8TNX   TNX 8CLA,4,ZTIFRD             SEE IF TIFRD BLOCK IS ALL USED     F4422360    
       00357 -0 63400 4 00116        SXD PBOX,4                    YES SAVE INDEX                     F4422370    
       00360  0 07400 4 03064        TSX RDTIF,4                   READ IN NEXT BLOCK                 F4422380    
       00361 -0 53400 4 00116        LXD PBOX,4                    RESTORE INDEX                      F4422390    
       00362  0 50000 4 04214 8CLA   CLA TIFRDM,4                  GET NEXT VALUE ON N FROM TIFRD     F4422400    
       00363  0 12000 0 00375        TPL 8ATRB                     PLUS INDICATES NO MORE VALUES FOR NF4422410    
       00364  0 76000 0 00003        SSP                           ELIMINATE MINUS SIGN               F4422420    
       00365 -0 63400 4 00116        SXD PBOX,4                    SAVE TIFRD INDEX                   F4422430    
       00366 -0 53400 4 00114        LXD TBOX,4                    GET TRA TABLE INDEX                F4422440    
       00367 -2 01274 4 00372        TNX 8ATSX,4,ZTRA              IS BLOCK OF TRA TABLE FULL         F4422450    
       00370 -0 63400 4 00114        SXD TBOX,4                    YES SAVE INDEX                     F4422460    
       00371  0 07400 4 03147        TSX WRTRA,4                   WRITE BLOCK ON DRUM                F4422470    
       00372  0 07400 4 00653 8ATSX  TSX ENTRB,4                   ENTER TRANSFER IN TRA TABLE        F4422480    
       00373 -0 53400 4 00116        LXD PBOX,4                    RESTORE INDEX FOR TIFRD            F4422490    
       00374  1 00001 4 00356        TXI 8TXI+1,4,1                SET FOR NEXT WORD                  F4422500    
       00375 -0 63400 4 00116 8ATRB  SXD PBOX,4                    SAVE TIFRD INDEX                   F4422510    
       00376  1 00004 1 00130        TXI BEGBB,1,4                 SET FOR NEXT INSTR AND NEXT BB.    F4422520    
       00377  0 50000 1 03701 DOCSM  CLA INSTM-2,1                 THIS IS A DO CASE                  F4422530    
       00400  0 07400 4 00653        TSX ENTRB,4                   ENTER ADDRESS OF TRA BACK          F4422540    
       00401  0 07400 4 00663        TSX ENTB2,4                   ENTER TRA TO NEXT INSTR            F4422550    
       00402 -0 63400 2 00117        SXD BBOX,2                    SAVE INDEX                         F4422560    
       00403 -0 53400 2 00035        LXD LD1M,2                    LOOK AT DOLIST ENTRY FOR           F4422570    
       00404 -0 53400 4 00114        LXD TBOX,4                       THIS DO                         F4422580    
       00405  0 50000 2 06500 9CLAT  CLA DOLIST,2                  COMPARE LOCATION IN DO LIST TO     F4422590    
       00406 -0 32000 0 00060        ANA DECMKM                       THIS BASIC BLOCK                F4422600    
       00407  0 40200 0 00117        SUB BBOX                                                         F4422610    
       00410  0 10000 0 00412        TZE CLAR                                                         F4422620    
       00411  1 00002 2 00405        TXI 9CLAT,2,2                 NOT FOUND--TRY NEXT                F4422630    
       00412  0 50000 2 06477 CLAR   CLA DOLIST-1,2                LOOK AT ADDRESS WORD IN DO LIST    F4422640    
       00413 -0 32000 0 00062        ANA IFMSK                     SEE IF DO HAS AN IF                F4422650    
       00414  0 10000 0 00424        TZE DONOIF                    NO IF--TRANSFER                    F4422660    
       00415  0 50000 2 06500        CLA DOLIST,2                  DO WITH IF-PUT LOOP COUNT IN       F4422670    
       00416  0 76700 0 00022        ALS 18                           TRANSFER TABLE                  F4422680    
       00417  0 62200 4 06030 DWFCD  STD TRAM+4,4                                                     F4422690    
       00420 -0 50000 0 00417        CAL DWFCD                     GET CODE FOR DO WITH IF            F4422700    
       00421 -0 53400 2 00117 DOLXD  LXD BBOX,2                    RESTORE INDEX FOR BB TABLE         F4422710    
       00422  0 63000 2 02413        STP BBTABL,2                  STORE CODE FOR ENDING IN BB TABLE  F4422720    
       00423  1 00004 1 00130        TXI BEGBB,1,4                 DO NEXT INSTR.--NEXT BASIC BLOCK   F4422730    
       00424 -0 50000 0 00424 DONOIF CAL DONOIF                    GET CODE FOR DO WITHOUT IF         F4422740    
       00425  0 02000 0 00421        TRA DOLXD                     STORE CODE IN B B TABLE            F4422750    
       00426  0 50000 1 03701 CNDTR  CLA INSTM-2,1                 THE OP CODE IS A CONDITIONAL TRA   F4422760    
       00427  0 40200 0 00071        SUB 0CTALM                       SEE IF THIS IS A REAL TRANSFER  F4422770    
       00430  0 10000 0 00230        TZE TXFAS                     NO-- IT IS NOT ANYTHING            F4422780    
       00431  0 50000 1 03703        CLA INST.M,1                                                     F4422790    
       00432  0 40200 1 03701        SUB INST.M-2,1                                                   F4422800    
       00433  0 10000 0 00230        TZE TXFAS                                                        F4422810    
       00434  0 50000 1 03701        CLA INST.M-2,1                PUT ADDRESS OF TRA IN TRA TABLE    F4422820    
       00435  0 07400 4 00653        TSX ENTRB,4                                                      F4422830    
       00436  0 50000 1 03675        CLA INST.M-6,1                PUT NEXT TRA ADDRESS IN TRA TABLE  F4422840    
       00437  0 07400 4 00653        TSX ENTRB,4                                                      F4422850    
       00440  0 50000 1 03703        CLA INST.M,1                                                     F4422860    
       00441 -0 53400 4 00114 11LXD  LXD TBOX,4                                                       F4422870    
       00442  0 62200 4 06030        STD TRA..M+4,4                                                   F4422880    
       00443 -0 50000 0 00474 11CAL  CAL PBYCDM                    PUT PROBABILITY CODE IN BB TABLE   F4422690    
       00444  0 63000 2 02413        STP BBTABL,2                                                     F4422900    
       00445  0 50000 0 00247        CLA LD2                       PUT NO. OF CASES (=2) IN TRA TABLE F4422910    
       00446  0 62200 4 06026        STD TRA..M+2,4                                                   F4422920    
       00447 -0 63400 4 00114        SXD TBOX,4                    SAVE TRA INDEX                     F4422930    
       00450  1 00010 1 00130        TXI BEGBB,1,8                 DO NEXT INSTRUCTION                F4422940    
       00451  0 50000 1 03700 GOTOVM CLA INSTM-3,1                 THIS IS A GO TO VECTOR             F4422950    
       00452 -0 73400 4 00000        PDX 0,4                                                          F4422960    
       00453  2 00001 4 00455        TIX OK,4,1                    CHECK NO. OF BRANCHES              F4422970    
       00454  0 07400 4 00004        TSX RDFORT,4                  NONE, PART OF PROGRAM NOT          F4422980    
                                                                     TRANSFERED TO                    F4422990    
       00455  3 00001 4 00457 OK     TXH ONEVCT+1,4,1              TEST FOR ONLY 0OE BRANCH           F4423000    
       00456  1 00004 1 00327 ONEVCT TXI TRACSM+3,1,4              ONLY ONE BRANCH--A CERTAINTY CASE  F4423010    
       00457 -0 75400 4 00000        PXD 0,4                       MORE THAN ONE--STANDARD CASE       F4423020    
       00460 -0 53400 4 00114        LXD TBOX,4                    SET INDEX FOR TRA TABLE ADDRESS    F4423030    
       00461  0 62200 4 06022        STD TRA..M-2,4                PUT NO. INTO TRA TABLE             F4423040    
       00462  0 62200 0 00120        STD MBOX                      SAVE NO. TO TEST IF VECTOR IS DONE F4423050    
       00463 -0 50000 0 00474        CAL PBYCDM                                                       F4423060    
       00464  0 63000 2 02413        STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423070    
       00465  0 50000 1 03703        CLA INST.M,1                                                     F4423080    
       00466  0 62200 4 06024        STD TRA..M,4                  PUT FORMULA NUMBER INT0 TRA TABLE  F4423090    
       00467 -2 00454 1 00471 13TIX  TNX 13CLA,1,ZINSTM            IS BLOCK OF INSTRUCTIONS ALL USED  F4423100    
       00470  0 07400 4 00763        TSX RDINSM,4                  READ IN NEXT BLOCK                 F4423110    
       00471  0 50000 1 03675 13CLA  CLA INSTM-6,1                 ENTER ADDRESS OF ONE TRANSFER      F4423120    
       00472  0 07400 4 00653        TSX ENTRB,4                        INTO TRA TABLE.               F4423130    
       00473 -0 53400 4 00120        LXD MBOX,4                    HAVE ALL BRANCHES OF VECTOR BEEN   F4423140    
       00474  2 00001 4 00476 PBYCDM TIX 13SXD,4,1                    ENTERED                         F4423150    
       00475  1 00010 1 00130 13ON   TXI BEGBB,1,8                 YES, GO TO NEXT BB--NEXT INST.     F4423160    
       00476 -0 63400 4 00120 13SXD  SXD MBOX,4                    NO,SAVE COUNT AND ENTER NEXT       F4423170    
       00477 -0 53400 4 00114        LXD TBOX,4                    PUT TRA TABLE ADDRESS IN INDEX     F4423180    
       00500 -2 01274 4 00503 STPCD  TNX 13TXIM,4,ZTRA             HAS THIS BLOCK OF TRA BEEN FILLED  F4423190    
       00501 -0 63400 4 00114        SXD TBOX,4                    YES,SAVE TRA INDEX                 F4423200    
       00502  0 07400 4 03147        TSX WRTRA,4                   WRITE BLOCK OF TRA ON DRUM         F4423210    
       00503  1 00004 1 00467 13TXIM TXI 13TIX,1,4                 SET INST. INDEX AND DO NEXT BRANCH F4423220    
       00504  0 50000 1 03700 IF2PS  CLA INSTM-3,1                 THIS IS A PSE, LOOK AT ADDRESS TO  F4423230    
       00505 -0 32000 0 00063        ANA XXPSX                        SEE IF IT IS 164-166            F4423240    
       00506  0 40200 0 00065        SUB XX16X                                                        F4423250    
       00507  0 10000 0 00514        TZE PSTCS                     YES, IT IS A TEST                  F4423260    
       00510  0 50000 1 03700        CLA INST.M-3,1                                                   F4423270    
       00511 -0 32000 0 00060        ANA DECMKM                    NO, SEE IF ADDR IS 360             F4423280    
       00512  0 40200 0 00066        SUB XX360                                                        F4423290    
       00513 -0 10000 0 00230        TNZ TXFAS                     NO,THIS IS NOT A BB END            F4423300    
       00514 -0 50000 0 00474 PSTCS  CAL PBYCDM                    THIS IS A PSE TEST INSTRUCTION     F4423310    
       00515  0 63000 2 02413        STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423320    
       00516 -0 53400 4 00114        LXD TBOX,4                    SET INDEX FOR TRA TABLE ADDRESS    F4423330    
       00517  0 50000 1 03703        CLA INST.M,1                  PUT FORMULA NUMBER IN TRA TABLE    F4423340    
       00520  0 62200 4 06024        STD TRA..M,4                                                     F4423350    
       00521  0 50000 0 00247        CLA LD2                       PUT NO. OF CASES(=2) IN TRA TABLE  F4423360    
       00522  0 62200 4 06022        STD TRA..M-2,4                                                   F4423370    
       00523  0 50000 1 03671 SNSCS  CLA INSTM-10,1                PUT ADDRESS FOR ON INTO TRA TABLE  F4423380    
       00524  0 07400 4 00653        TSX ENTRB,4                                                      F4423390    
       00525  0 50000 1 03675        CLA INST.M-6,1                PUT OFF ADDRESS INTO TRA TABLE     F4423400    
       00526  0 07400 4 00653        TSX ENTRB,4                                                      F4423410    
       00527  1 00014 1 00130 MSECD  TXI BEGBB,1,12                DO NEXT BB.                        F4423420    
       00530 -0 50000 0 00527 MSECSM CAL MSECD                     THIS IS A MSE TEST                 F4423430    
       00531  0 63000 2 02413        STP BBTABL,2                  STORE MSE CODE IN BBTABL           F4423440    
       00532  0 50000 1 03700        CLA INST.M-3,1                LOOK AT ADDRESS OF MSE             F4423450    
       00533 -0 53400 4 00114        LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423460    
       00534  0 62200 4 06024        STD TRA..M,4                  PUT NO. OF SENSE LIGHT IN TRA TABLEF4423470    
       00535  0 02000 0 00523        TRA SNSCS                     PUT ADDRESSES IN TRA TABLE         F4423480    
       00536 -0 50000 0 00474 IF2CS  CAL PBYCDM                    THIS IS A TWO-WAY TEST INSTRUCTION F4423490    
       00537  0 63000 2 02413        STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423500    
       00540 -0 53400 4 00114        LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423510    
       00541  0 50000 1 03703        CLA INST.M,1                  PUT FORMULA NUMBER IN TRA TABLE    F4423520    
       00542  0 62200 4 06024        STD TRA..M,4                                                     F4423530    
       00543  0 50000 0 00247        CLA LD2                       PUT NO OF CASES (=2) IN TRA TABLE  F4423540    
       00544  0 62200 4 06022        STD TRA..M-2,4                                                   F4423550    
       00545  0 50000 1 03675        CLA INST.M-6,1                PUT ADDRESSES IN TRA TABLE         F4423560    
       00546  0 07400 4 00653        TSX ENTRB,4                   =ON- ADDRESS                       F4423570    
       00547  0 50000 1 03671        CLA INST.M-10,1               -OFF - ADDRESS                     F4423580    
       00550  0 07400 4 00653        TSX ENTRB,4                                                      F4423590    
       00551  1 00014 1 00130 LD12M  TXI BEGBB,1,12                DO NEXT BB                         F4423600    
       00552  0 50000 1 03676 IF3CSM CLA INST.M-5,1                THIS IS A TZE, NOT END OF A BB.    F4423610    
       00553 -0 32000 0 00060        ANA DECMKM                    CHECK TO SEE IF IT IS FOLLOWED BY AF4423620    
       00554  0 40200 0 00076        SUB LTPL                         TPL AND A TRA, IF NOT THERE HAS F4423630    
       00555  0 10000 0 00557        TZE 16CLA                        BEEN AN ERROR                   F4423640    
       00556  0 07400 4 00004 IFTSX  TSX RDFORT,4                  ERROR                              F4423650    
       00557  0 50000 1 03672 16CLA  CLA INSTM-9,1                 CHECK FOR TRA                      F4423660    
       00560 -0 32000 0 00060        ANA DECMKM                                                       F4423670    
       00561  0 40200 0 00077        SUB LTRA                                                         F4423680    
       00562 -0 10000 0 00556        TNZ IFTSX                     ERROR                              F4423690    
       00563 -0 50000 0 00474 16CAL  CAL PBYCDM                    NO ERROR                           F4423700    
       00564  0 63000 2 02413        STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423710    
       00565 -0 53400 4 00114        LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423720    
       00566  0 50000 1 03703        CLA INST.M,1                  PUT FORMULA NO. IN TRA TABLE       F4423730    
       00567  0 62200 4 06024        STD TRA..M,4                                                     F4423740    
       00570  0 50000 0 00036        CLA LD3                       PUT N0. OF CASES (=3) IN TRA TABLE F4423750    
       00571  0 62200 4 06022        STD TRA..M-2,4                                                   F4423760    
       00572  0 50000 1 03675        CLA INST.M-6,1                PUT ADDRESSES OF BRANCHES INTO     F4423770    
       00573  0 07400 4 00653        TSX ENTRB,4                      TRA TABLE                       F4423780    
       00574  0 50000 1 03701        CLA INST.M-2,1                                                   F4423790    
       00575  0 07400 4 00653        TSX ENTRB,4                                                      F4423800    
       00576  0 50000 1 03671        CLA INST.M-10,1                                                  F4423810    
       00577  0 07400 4 00653        TSX ENTRB,4                                                      F4423820    
       00600  1 00014 1 00130        TXI BEGBB,1,12                DO NEXT BB.                        F4423830    
       00601 -0 50000 1 03676 HPRCS  CAL INSTM-5,1                 TEST FOR PAUSE(INNOCUOUS) OR A STOPF4423840    
       00602 -0 32000 0 00060        ANA DECMKM                                                       F4423850    
       00603  0 40200 0 00077        SUB LTRA                      IS HPR FOLLOWED BY TRA             F4423860    
       00604 -0 10000 0 00276        TNZ LD4                       NO-IGNORE-- IS A PAUSE             F4423870    
       00605  0 50000 1 03675        CLA INST.M-6,1                DOES TRA GO BACK TO HPR            F4423880    
       00606  0 40200 1 03703        SUB INST.M,1                                                     F4423890    
       00607 -0 10000 0 00276        TNZ LD4                       NO-- HPR IS A PAUSE--IGNORE        F4423900    
       00610 -0 50000 0 00500        CAL STPCD                     THIS IS A STOP--PUT STOP CODE IN   F4423910    
       00611  0 63000 2 02413        STP BBTABL,2                     BB TABLE AND NO ENTRY IN TRATBL F4423920    
       00612  1 00010 1 00130 LD8    TXI BEGBB,1,8                 DO NEXT BASIC BLOCK                F4423930    
       00613 -0 63400 2 00117 OUTB   SXD BBOX,2                    SAVE LENGTH OF BB TABLE            F4423940    
       00614  0 50200 0 00760        CLS C5STD                     GET ADDRESS IN FXDO LIST           F44.3950    
       00615  0 40200 0 00031        SUB LA1                                                          F4423960    
       00616  0 62100 0 00617        STA STOREB                                                       F4423970    
       00617  0 60100 0 00000 STOREB STO XXXXXX                                                       F4423980    
       00620  0 50000 2 02413        CLA BBTABL,2                  LOOK AT LAST ENTRY IN BB TABLE     F4423990    
       00621  0 62200 0 07777        STD TTBOX=                    PUT LENGTH OF TRA TABLE IN TTBOX   F4424000    
       00622  0 76700 0 00022        ALS 18                                                           F4424010    
       00623  0 62200 0 07776        STD SSBOX=                    PUT LENGTH OF SET TABLE IN SS BOX  F4424020    
       00624 -0 75400 0 00000        PXD 0,0                                                          F4424030    
       00625  0 60100 2 02412        STO BBTABL-1,2                                                   F4424040    
       00626  0 07400 4 03147        TSX WRTRA,4                   WRITE LAST BLOCK OF TRAS ON DRUM   F4424050    
       00627  0 07400 4 01032        TSX WRSET,4                   WRITE LAST BLOCK OF SETS ON DRUM   F4424060    
       00630  0 76200 0 00221        RDS SYSTAP                                                       F4424070    
       00631  0 02000 0 00004        TRA RDFORT                    DO NEXT BLOCK OF PROGRAM           F4424080    
                                                                                                      F4424090    
                                         THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS F4424100    
                                         IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION  F4424110    
                                         FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF   F4424120    
                                         THE ACCUMULATOR                                              F4424130    
       00632 -0 63400 4 00125 SRCHN  SXD ERAS1M,4                  SAVE INDEX TO RETURN               F4424140    
       00633 -0 53400 4 00035        LXD LD1M,4                    SET INDEX                          F4424150    
       00634  0 60100 0 00121        STO ACBOX                     SAVE AC                            F4424160    
       00635  0 50000 4 01114 CLANN  CLA NLIST,4                   LOOK AT ENTRY IN N-LIST            F4424170    
       00636  0 10000 0 00642        TZE ENTRN                     END OF LIST REACHED, N NOT FOUND   F4424180    
       00637  0 40200 0 00121        SUB ACBOX                     COMPARE TO N TO BE FOUND           F4424190    
       00640  0 10000 0 00650        TZE NFOUN                     N HAS BEEN FOUND                   F4424200    
       00641  1 00001 4 00635        TXI CLANN,4,1                 NOT FOUND YET, TRY NEXT ENTRY      F4424210    
       00642 -2 00031 4 00644 ENTRN  TNX C1CLA,4,ZNLIST            TEST FOR OVERFLOW OF N-LIST        F4424220    
       00643  0 07400 4 00004        TSX RDFORT,4                  N-LIST HAS OVERFLOWED              F4424230    
       00644  0 50000 0 00121 C1CLA  CLA ACBOX                     STORE N IN N-LIST                  F4424240    
       00645  0 60100 4 01114        STO NLIST,4                                                      F4424250    
 T     00646 -0 75400 0 00000        PXD                           STORE ZERO IN LOCATION AFTER LAST  F4424260    
       00647  0 60100 4 01113        STO NLIST-1,4                    ENTRY IN N-LIST                 F4424270    
       00650 -0 75400 4 00000 NFOUN  PXD 0,4                       PUT INDEX FOR N INTO AC            F4424280    
       00651 -0 53400 4 00125        LXD ERAS1M,4                  RESTORE INDEX FOR TRA BACK         F4424290    
       00652  0 02000 4 00001        TRA 1,4                       TRANSFER BACK                      F4424300    
                                                                                                      F4424310    
                                         THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE    F4424320    
                                         ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS   F4424330    
                                         THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A    F4424340    
                                         TRANSFER TO THE BEGINNING OF A 0O WITH AN IF.  IT RETURNS TO F4424350    
                                         THE LOCATION FOLLOWING THE TSX TO IT.                        F4424360    
       00653 -0 63400 4 00123 ENTRB  SXD ENTBX,4                   SAVE INDEX                         F4424370    
       00654  0 07400 4 00667        TSX FNDBB,4                   CHANGE INSTRUCTION NUMBER TO BB NO.F4424380    
       00655 -0 53400 4 00114        LXD TBOX,4                                                       F4424390    
       00656  0 62200 4 06023        STD TRA..M-1,4                ENTER IN TRA TABLE                 F4424400    
       00657  1 00002 4 00660        TXI C2SXD,4,2                 SET FOR NEXT ENTRY IN TRA TABLE    F4424410    
       00660 -0 63400 4 00114 C2SXD  SXD TBOX,4                                                       F4424420    
       00661 -0 53400 4 00123        LXD ENTBX,4                   G0 TO TSTAD WITH ADDRESS SET TO GO F4424430    
       00662  0 02000 0 00713        TRA TSTAD                        BACK TO MAIN ROUTINE            F4424440    
                                                                                                      F4424450    
                                         THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A        F4424460    
                                         TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY    F4424470    
                                         AFTER THE LOCATION OF THE TRANSFER                           F4424480    
       00663 -0 63400 4 00123 ENTB2  SXD ENTBX,4                   SAVE INDEX                         F4424490    
       00664 -0 75400 2 00000        PXD 0,2                       PUT THIS BASIC BLOCK NO. INTO AC   F4424500    
       00665  0 40000 0 00035        ADD LD1M                      ADD ONE                            F4424510    
       00666  0 02000 0 00655        TRA ENTRB+2                   ENTER AND TEST THIS ADDRESS        F4424520    
                                                                                                      F4424530    
                                         THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC)   F4424540    
                                         TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY   F4424550    
                                         OPTIMAL TABLE LOOKUP                                         F4424560    
       00667  0 60100 0 00121 FNDBB  STO ACBOX                     SAVE NUMBER BEING LOOKED FOR       F4424570    
       00670 -0 63400 4 00122        SXD OUTBX,4                   SAVE EXIT INDEX                    F4424580    
       00671  0 56000 0 00055        LDQ CNST2M                    SET UP TEST FOR END                F4424590    
       00672 -0 53400 4 00033        LXD L0M,4                     START LOOK UP                      F4424600    
       00673  0 50000 0 00124        CLA XBOX                                                         F4424610    
       00674  0 77100 0 00001 C3ARS  ARS 1                                                            F4424620    
       00675  0 62200 0 00702        STD C3TXI                                                        F4424630    
       00676  0 62200 0 00704        STD C3TIX                                                        F4424640    
       00677  0 50000 0 00121        CLA ACBOX                                                        F4424650    
 D     00700  3 00000 4 00704 PLACEM TXH C3TIX,4                                                      F4424660    
       00701  0 34000 4 07773        CAS BBLIST,4                                                     F4424670    
 D     00702  1 00000 4 00705 C3TXI  TXI C3CLA,4                                                      F4424680    
       00703  0 02000 0 00710        TRA C3FND                                                        F4424690    
       00704  2 00000 4 00705 C3TIX  TIX C3CLA,4,XXXXXX                                               F4424700    
       00705  0 50000 0 00704 C3CLA  CLA C3TIX                                                        F4424710    
       00706  0 04000 0 00674        TLQ C3ARS                                                        F4424720    
       00707  0 07400 4 00004        TSX RDFORT,4                  FL0W ERROR                         F4424730    
       00710 -0 75400 4 00000 C3FND  PXD 0,4                                                          F4424740    
       00711 -0 53400 4 00122        LXD OUTBX,4                                                      F4424750    
       00712  0 02000 4 00001        TRA 1,4                       RETURN                             F4424760    
                                                                                                      F4424770    
                                         THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO   F4424780    
                                         AND MAKES A SET ENTRY FOR THE DO.                            F4424790    
       00713 -0 63400 1 00125 TSTAD  SXD ERAS1M,1                  SAVE INDEX REGISTER FOR TRA BACK   F4424800    
       00714 -0 63400 4 00122        SXD OUTBX,4                                                      F4424810    
       00715 -0 53400 1 00112        LXD SBOX,1                                                       F4424820    
       00716  0 60100 0 00121        STO ACBOX                     SAVE ADDRESS BEING TESTED          F4424830    
       00717 -0 53400 4 00035        LXD LD1M,4                    COMPARE TO DO LIST                 F4424840    
       00720  0 50000 0 00121 C4CLA  CLA ACBOX                     PUT ADDRESS BEING TESTED INTO AC   F4424850    
       00721 -0 50100 0 00062        ORA IFMSK                     WITH AN IF MARK                    F4424860    
       00722  0 34000 4 06477 C4CAS  CAS DOLIST-1,4                COMPARE TO DO LIST                 F4424870    
       00723  1 00002 4 00722        TXI C4CAS,4,2                 ENTRY SMALLER,OR EQUAL BUT W. NO IFF4424880    
       00724  0 02000 0 00731        TRA FXDO                      ENTRY EQUAL, HAS IF                F4424890    
       00725 -0 63400 1 00112        SXD SBOX,1                    ENTRY LARGER, TEST FINISHED.       F4424900    
       00726 -0 53400 1 00125        LXD ERAS1M,1                  SAVE SET INDEX AN0 RESTORE INDEX   F4424910    
       00727 -0 53400 4 00122        LXD OUTBX,4                      REGISTERS.                      F4424920    
       00730  0 02000 4 00001        TRA 1,4                       RETURN TO MAIN ROUTINE             F4424930    
       00731 -0 75400 2 00000 FXDO   PXD 0,2                       SEE IF TRA IS IN OR OUT OF RANGE   F4424940    
       00732 -0 50100 0 00062        ORA IFMSK                        OF THIS DO                      F4424950    
       00733  0 40200 4 06477        SUB DOLIST-1,4                                                   F4424960    
       00734 -0 12000 0 00742        TMI C4ENT                     TR BEFORE BEG OF DO,MAKE SET ENTRY F4424970    
       00735 -0 75400 2 00000        PXD 0,2                       TR AFTER BEG OF DO, SEE IF IN DO.  F4424980    
       00736  0 34000 4 06500        CAS DOLIST,4                  COMPARE TO END OF DO.              F4424990    
       00737  0 02000 0 00742        TRA C4ENT                     TR. AFTER DO, ENTER SET            F4425000    
       00740  1 00002 4 00720        TXI C4CLA,4,2                 TR. AT END OF DO--NO SET           F4425010    
       00741  1 00002 4 00720        TXI C4CLA,4,2                 TR. IN RANGE OF DO--NO SET         F4425020    
       00742  0 50000 4 06500 C4ENT  CLA DOLIST,4                  ENTER SET FOR DO.                  F4425030    
       00743 -2 00310 1 00745        TNX C4STD,1,ZSET              IS BLOCK OF SET TABLE FULL         F4425040    
       00744  0 07400 4 01032        TSX WRSET,4                   YES, WRITE BLOCK ON DRUM           F4425050    
       00745  0 60100 1 04524 C4STD  STO SETM,1                    STORE BB NO. IN SET TABLE          F4425060    
       00746  0 50000 0 00031        CLA LA1                                                          F4425070    
       00747  0 62100 1 04524        STA SETM,1                    STORE 1 INTO SET LIST              F4425080    
       00750  0 50000 0 00760        CLA C5STD                     MODIFY ADDRESS IN FIX DO LIST FOR  F4425090    
       00751  0 40000 0 00031        ADD LA1                           NEXT ENTRY                     F4425100    
       00752  0 62100 0 00760        STA C5STD                                                        F4425110    
       00753 -0 32000 0 00057        ANA ADRMK                                                        F4425120    
       00754  0 40200 0 00052        SUB LFXDN                     IS FIXDO LIST FULL                 F4425130    
       00755 -0 12000 0 00757        TMI C5STD-1                   NO CONTINUE TESTING                F4425140    
       00756  0 07400 4 00004        TSX RDFORT,4                  FIXDOS FULL                        F4425150    
       00757 -0 75400 1 00000        PXD 0,1                                                          F4425160    
       00760  0 60100 0 02413 C5STD  STO FIXDOS-1                  STORE SET ADDRESS IN FIX DO LIST   F4425170    
       00761  1 00001 1 00762 C5TXI  TXI C5TXI+1,1,1               SET FOR NEXT ENTRY IN SET LIST     F4425180    
       00762  1 00002 4 00720        TXI C4CLA,4,2                 SET DO LIST INDEX, CONTINUE TEST   F4425190    
                                                                                                      F4425200    
                                         THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS    F4425210    
                                         INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE        F4425220    
                                         BEGINNING OF THE BLOCK                                       F4425230    
       00763 -0 63400 4 00122 RDINSM SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4425240    
       00764  0 50000 0 00032        CLA MINUS4                    INITIALIZE ERROR BOX               F4425250    
       00765  0 60100 0 00030        STO ERRBX                                                        F4425260    
       00766 -0 63400 2 00117        SXD BBOX,2                    SAVE INDEX                         F4425270    
       00767 -0 53400 4 00551        LXD LD12M,4                   SHIFT EXTRA INSTRUCTIONS FROM END  F4425280    
       00770  0 50000 4 03227 D1CLA  CLA NDINS,4                      OF BLOCK FOR BEGINNING          F4425290    
       00771  0 60100 4 03703        STO INST.M,4                                                     F4425300    
       00772  2 00001 4 00770        TIX D1CLA,4,1                 IS BLOCK SH1FTED                   F4425310    
       00773  0 76200 0 00224 D1RDS  RDS INSTTP                    SLLECT 1NSTRUCTION TAPE            F4425320    
       00774 -0 53400 2 00036        LXD LD3,2                     YES, SET INDEX FOR NO. OF RECORDS  F4425330    
       00775  0 70000 4 03667 D1CPY  CPY INSTM-12,4                COPY BLOCK OF INSTRUCTIONS         F4425340    
       00776  1 00001 4 00775        TXI D1CPY,4,1                 SET FOR NEXT WORD                  F4425350    
       00777  0 02000 0 01007        TRA D2END                     END OF FILE                        F4425360    
       01000 -2 00001 2 01003        TNX D1BCK,2,1                 END OF RECORD--IS IT END OF 3RD RECF4425370    
       01001  0 76200 0 00224        RDS INSTTP                    NO, READ NEXT RECORD.              F4425380    
       01002  0 02000 0 00775        TRA D1CPY                                                        F4425390    
       01003  0 76600 0 00333 D1BCK  WRS 219                       TEST EOR TAPE ERROR                E4425400    
       01004 -0 76000 0 00012        RTT                                                              F4425410    
       01005  0 02000 0 01021        TRA INERR                     ERROR                              F4425420    
       01006  3 00453 4 01016        TXH D1XX,4,ZINSTM-1           IF 3RD RECORD FULL--NOT END OF F1LEF4425430    
       01007 -0 75400 4 00000 D2END  PXD 0,4                       REACHED END OF INSTRUCTIONS,       F4425440    
       01010  0 40000 0 00612        ADD LD8                          PUT TEST FOR LAST 1NSTRUCTION   F4425450    
       01011  0 62200 0 00143        STD FNDAS                        INTO MAIN ROUT1NE               F4425460    
       01012  0 50000 0 00053        CLA LCOUT                     PUT ADDRESS OF FINAL EXIT INTO MAINF4425470    
       01013  0 60100 0 00144        STO FNDAS+1                      ROUTINE.                        F4425480    
       01014  0 50000 0 00072        CLA ENDMKM                                                       F4425490    
       01015  0 60100 4 03667        STO INST.M-12,4                                                  F4425500    
       01016 -0 53400 4 00122 D1XX   LXD OUTBX,4                   NO ERROR, RESTORE INDEX REGISTERS  F4425510    
       01017 -0 53400 2 00117        LXD BBOX,2                                                       F4425520    
       01020  0 02000 4 00001        TRA 1,4                       RETURN TO MAIN ROUT1NE             F4425530    
       01021  0 50000 0 00030 INERR  CLA ERRBX                                                        F4425540    
       01022 -0 12000 0 01024 SKIP7  TMI SKIP7+2                   HAVE 5 TRIES AT READING BEEN MADE  F4425550    
       01023  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4425560    
       01024  0 40000 0 00031        ADD LA1                          NO, TRY READING AGA1N           F4425570    
       01025  0 60100 0 00030        STO ERRBX                                                        F4425580    
       01026  0 76400 0 00224 D2BST  BST INSTTP                    BACKSPACE OVER RECOROS JUST REAO   F4425590    
       01027  1 00001 2 01030        TXI D2TIX,2,1                                                    F4425600    
       01030 -2 00003 2 01026 D2TIX  TNX D2BST,2,3                                                    F4425610    
       01031  0 02000 0 00773        TRA D1RDS                     TAPE BACKSPACED--TRY TO READ AGAIN F4425620    
                                                                                                      F4425630    
                                         THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3.               F4425640    
       01032 -0 63400 4 00122 WRSET  SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4425650    
       01033  0 60100 0 00121        STO ACBOX                     SAVE CONTENTS OF AC                F4425660    
       01034  0 50000 0 00113 D7CLA  CLA SPBOX                     SET SP BOX FOR NEXT BLOCK          F4425670    
       01035  0 40000 0 00047        ADD LZSET                                                        F4425680    
       01036  0 60100 0 00113        STO SPBOX                                                        F4425690    
       01037  0 40200 0 00046        SUB LXSET                                                        F4425700    
       01040 -0 12000 0 01042        TMI STWRS                     NO OVERFLOW --CONTINLE             F4425710    
       01041  0 07400 4 00004        TSX RDFORT,4                  SET TABLE HAS OVERFLOWED.          F4425720    
       01042  0 76600 0 00303 STWRS  WRS SETDRM                    SELECT DRUM                        F4425730    
       01043 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4425740    
       01044 -0 53400 4 00047        LXD LZSET,4                   SET INDEX FOR COMPUTING CHECKSUM   F4425750    
       01045  0 36100 4 04524 D6ACL  ACL SETM,4                    COMPUTE CHECK SUM                  F4425760    
       01046  2 00001 4 01045        TIX D6ACL,4,1                                                    F4425770    
       01047  0 60200 0 00125        SLW ERAS1M                    STORE CHECK SUM                    F4425780    
       01050  0 46000 0 00040        LDA SETYM                     LOCATE DRUM ADDRESS                F4425790    
       01051 -0 53400 4 00047        LXD LZSET,4                   SET INOEX EOR COPY1NG              F4425800    
       01052  0 70000 4 04524 D6CPY  CPY SETM,4                    COPY BLOCK                         F4425810    
       01053  2 00001 4 01052        TIX D6CPY,4,1                                                    F4425820    
       01054  0 70000 0 00125        CPY ERAS1M                    COPY CHECK SUM                     F4425830    
       01055  0 50000 0 00040        CLA SETYM                     SET DRUM ADDRESS FOR NEXT BLOCK    F4425840    
       01056  0 40000 0 00042        ADD LZSET1                                                       F4425850    
       01057  0 60100 0 00040        STO SETYM                                                        F4425860    
       01060 -0 53400 4 00122        LXD OUTBX,4                   RESTORE INDEX REGISTER             F4425870    
       01061  0 50000 0 00121        CLA ACBOX                                                        F4425880    
       01062  0 02000 4 00001        TRA 1,4                                                          F4425890    
                                                                                                      F4425900    
                                         THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST                  F4425910    
       01063 -0 53400 1 00551 PASS2  LXD LD12M,1                   INITIALIZE INDEX REGISTERS         F4425920    
       01064  1 00455 1 01065 1TXI   TXI 1TXI+1,1,ZINSTM+1                                            F4425930    
       01065  0 50000 0 07774        CLA BBOX.=                    GET LENGTH OF BBLIST               F4425940    
       01066  0 62200 0 00700        STD PLACEM                    PUT LENGTH INTO TEST               F4425950    
       01067  0 77100 0 00001        ARS 1                                                            F4425960    
       01070  0 30000 0 00033        FAD L0M                       FIND LEAST POWER OF 2 NOT LESS THANF4425970    
       01071  0 77100 0 00033        ARS 27                           LENGTH OF TABLE                 F4425980    
       01072  0 40200 0 00035        SUB LD1M                                                         F4425990    
       01073  0 62100 0 01075        STA ARSX                                                         F4426000    
       01074  0 50000 0 00056        CLA CONSTM                                                       F4426010    
 A     01075  0 77100 0 00000 ARSX   ARS                                                              F4426020    
       01076  0 60100 0 00124        STO XBOX                                                         F4426030    
       01077  0 50000 0 07775        CLA DOBOX=                    IF THERE ARE NO DOS, DO NOT TEST   F4426040    
       01100 -0 10000 0 01103        TNZ TRAQ-1                        FOR A TRANSFER TO A DO         F4426050    
       01101  0 50000 0 00730        CLA FXDO-1                                                       F4426060    
       01102  0 60100 0 00713        STO TSTAD                                                        F4426070    
       01103  0 53400 2 00057        LXA ADRMK,2                                                      F4426080    
       01104  0 02000 0 00130 TRAQ   TRA BEGBB                                                        F4426090    
                                                                                                      F4426100    
                                                                                                      F4426110    
                                         SECTION 4 - PART 2 QF 6 I2ND RECORD OF 2)                    F4426120    
                                                                                                      F4426130    
                                         FORTRAN EDITOR INFORMATION                                   F4426140    
                                            MASTER RECORD CARD = F0650000                             F4426150    
                                            ENTRY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD)      F4426160    
                                            FIRST LOCATION = 3064                                     F4426170    
                                            LAST LOCATION = 3210                                      F4426180    
                                                                                                      F4426190    
                                                                                                      F4426200    
                        03064        ORG 1588                                                         F4426210    
                                         THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM   F4426220    
                                         DRUM 1.                                                      F4426230    
       03064 -0 63400 4 00122 RDTIF  SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4426240    
       03065 -0 63400 2 00125        SXD ERAS1M,2                  SAVE INDEX                         F4426250    
       03066  0 50000 0 00032        CLA MINUS4                    INITIALIZE ERROR BOX               F4426260    
       03067  0 60100 0 00030        STO ERRBX                                                        F4426270    
       03070  0 50000 0 03703        CLA NTIFR-1                   MOVE EXTRA WORD FROM END OF BLOCK  F4426280    
       03071  0 60100 0 04213        STO TIFRDM-1                     TO BEGINNING                    F4426290    
       03072  0 76200 0 00301 TFRDS  RDS TIFDRM                    SELECT DRUM                        F4426300    
       03073  0 46000 0 00041        LDA TIFY                      LOCATE DRUM ADDRESS                F4426310    
       03074  0 70000 0 00126        CPY ERAS2M                    COPY LENGTH OF BLOCK               F4426320    
       03075 -0 53400 6 00126        LXD ERAS2M,6                  SET INDEX FOR COUNT                F4426330    
       03076  0 70000 4 04213 D2CPY  CPY TIFRDM-1,4                READ IN BLOCK OF TIFRD             F4426340    
       03077  2 00001 4 03076        TIX D2CPY,4,1                 TEST FOR END OF BLOCK              F4426350    
       03100  0 70000 0 00127        CPY ERAS3M                    COPY CHECK SUM                     F4426360    
       03101 -0 50000 0 00126        CAL ERAS2M                                                       F4426370    
       03102  0 10000 0 03121        TZE LSTBLT                    TIFGO IS EMPTY                     F4426380    
       03103  0 36100 2 04213 D3ACL  ACL TIFRDM-1,2                COMPUTE CHECKSUM                   F4426390    
       03104  2 00001 2 03103        TIX D3ACL,2,1                                                    F4426400    
       03105  0 60200 0 00121        SLW ACBOX                                                        F4426410    
       03106  0 50000 0 00121        CLA ACBOX                                                        F4426420    
       03107  0 40200 0 00127        SUB ERAS3M                    C0MPARE CHECK SUMS                 F4426430    
       03110 -0 10000 0 03141        TNZ TFERR                     NOT EQUAL,ERROR                    F4426440    
       03111 -0 53400 4 00126        LXD ERAS2M,4                  WAS THIS A FULL BLOCK              F4426450    
       03112 -2 00307 4 03121        TNX LSTBLT,4,ZTIFRD-1         NO--WAS LAST BLOCK                 F4426460    
       03113  0 50000 0 00041        CLA TIFY                      THIS WAS A FULL BLOCK, SET DRUM    F4426470    
       03114  0 40000 0 00043        ADD LZTIF2                       ADDRESS FOR NEXT BLOCK          F4426480    
       03115  0 62100 0 00041        STA TIFY                                                         F4426490    
       03116 -0 53400 2 00125 TFLXD  LXD ERAS1M,2                  RESTORE INDEX REGISTER             F4426500    
       03117 -0 53400 4 00122        LXD OUTBX,4                                                      F4426510    
       03120  0 02000 4 00001        TRA 1,4                       RETURN TO MAIN ROUT1NE             F4426520    
       03121  0 50000 0 00054 LSTBLT CLA TRNOM                     END OF TIFGO--PREVENT FURTHER      F4426530    
       03122  0 60100 0 03065        STO RDTIF+1                      ATTEMPTS TO READ IN             F4426540    
       03123  0 50000 0 00126        CLA ERAS2M                    PUT NUMBER OF WORDS IN THIS BLOCK  F4426550    
       03124  0 40000 0 00035        ADD LD1M                         INTO COMPARISONS                F4426560    
       03125  0 62200 0 00150        STD 2TNX                                                         F4426570    
       03126  0 62200 0 00343        STD 7TNX                                                         F4426580    
       03127  0 62200 0 00356        STD 8TNX                                                         F4426590    
       03130  0 02000 0 03116        TRA TFLXD                     RESTORE INDEX REGISTERS AND EXIT.  F4426600    
       03131  0 50000 0 03156 NOMOR  CLA TRTSX                     TIFRD IS ALL USED - STORE A TSX    F4426610    
       03132  0 60100 0 03064        STO RDTIF                                                        F4426620    
       03133  0 50000 0 03140        CLA TR2CL                                                        F4426630    
       03134  0 60100 0 00147        STO 2TNX-1                                                       F4426640    
       03135 -0 53400 4 00116        LXD PBOX,4                                                       F4426650    
       03136  0 60000 4 04214        STZ TIFRDM,4                                                     F4426660    
       03137  0 02000 0 03117        TRA TFLXD+1                                                      F4426670    
       03140  0 02000 0 00160 TR2CL  TRA 2CLA                                                         F4426680    
       03141  0 50000 0 00030 TFERR  CLA ERRBX                                                        F4426690    
       03142 -0 12000 0 03144 SKIP8  TMI SKIP8+2                   HAVE 5 TRIES AT READING BEEN MADE  F4426700    
       03143  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4426710    
       03144  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4426720    
       03145  0 60100 0 00030        STO ERRBX                                                        F4426730    
       03146  0 02000 0 03072        TRA TFRDS                                                        F4426740    
                                                                                                      F4426750    
                                         THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM     F4426760    
                                         WITH CHECK SUM                                               F4426770    
       03147 -0 63400 4 00122 WRTRA  SXD OUTBX,4                   SAVE INDFX FOR RETURN              F4426780    
       03150  0 60100 0 00121        STO ACBOX                     SAVE CONTENTS OF THE AC            F4426790    
       03151  0 50000 0 00115 TRCLA  CLA TPBOX                     SET TP BOX FOR NEXT BLOCK          F4426800    
       03152  0 40000 0 00045        ADD LZTRA                                                        F4426810    
       03153  0 60100 0 00115        STO TPBOX                                                        F4426820    
       03154  0 40200 0 00044        SUB LXTRA                                                        F4426830    
       03155 -0 12000 0 03157        TMI TRWRS                     NO OVERFLOW--CONTINUE              F4426840    
       03156  0 07400 4 00004 TRTSX  TSX RDFORT,4                  THE TRA TABLE HAS OVERFLOWED       F4426850    
       03157  0 76600 0 00301 TRWRS  WRS TRADRM                    SELECT DRUM                        F4426860    
       03160 -0 53400 4 00045        LXD LZTRA,4                   SET INDEX                          F4426870    
       03161 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4426880    
       03162  0 36100 4 06024 D4ACL  ACL TRAM,4                    COMPUTE CHECKSUM                   F4426890    
       03163  2 00001 4 03162        TIX D4ACL,4,1                                                    F4426900    
       03164  0 60200 0 00125        SLW ERAS1M                    STORE CHECK SUM                    F4426910    
       03165 -0 53400 4 00045        LXD LZTRA,4                   SET INDEX FOR COPYING              F4426920    
       03166  0 70000 4 06024 D4CPY  CPY TRAM,4                    COPY BLOCK                         F4426930    
       03167  2 00001 4 03166        TIX D4CPY,4,1                                                    F4426940    
       03170  0 70000 0 00125        CPY ERAS1M                    COPY CHECK SUM                     F4426950    
       03171 -0 53400 4 00276        LXD LD4,4                                                        F4426960    
       03172  0 50000 4 04530 D5CLA  CLA NDTRA,4                   SHIFT EXTRA ENTRIES FROM THE  END  F4426970    
       03173  0 60100 4 06024        STO TRA..M,4                     TO THE BEGINNING OF BLOCK       F4426980    
       03174  2 00001 4 03172        TIX D5CLA,4,1                                                    F4426990    
       03175 -0 53400 4 00045        LXD LZTRA,4                   SET INDEX                          F4427000    
       03176 -0 75400 0 00000        PXD 0,0                                                          F4427010    
       03177  0 56000 0 00031        LDQ LA1                                                          F4427020    
       03200  0 60100 4 06021 D5ST2  STO TRAM-3,4                  INITIALIZE TRA TABLE               F4427030    
       03201 -0 60000 4 06020        STQ TRA..M-4,4                                                   F4427040    
       03202  2 00002 4 03200        TIX D5ST2,4,2                                                    F4427050    
       03203  0 50000 0 03157        CLA TRWRS                     SET ADDRESS FOR NEXT BLOCK         F4427060    
       03204  0 40000 0 00031        ADD LA1                                                          F4427070    
       03205  0 62100 0 03157        STA TRWRS                                                        F4427080    
       03206 -0 53400 4 00122 TRLXD  LXD OUTBX,4                   RESTORE INDEX REGISTERS            F4427090    
       03207  0 50000 0 00121        CLA ACBOX                     RESTORE CONTENTS OF AC             F4427100    
       03210  0 02000 4 00001        TRA 1,4                       RETURN TO MAIN ROUTINE             F4427110    
                                                                                                      F4427120    
                                                                                                      F4427130    
                                            SECTION 4 - PART 3 OF 6                                   F4430010    
                                                                                                      F4430020    
                                           FORTRAN EDITOR INFORMATION                                 F4430030    
                                              MASTER RECORD CARD = F0670000                           F4430040    
                                              ENTRY POINT = 111                                       F4430050    
                                              FIRST LOCATION = 33                                     F4430060    
                                              LAST LOCATION = 437                                     F4430070    
                                                                                                      F4430080    
                                                                                                      F4430090    
                        00033        ORG 27                                                           F4430100    
                                          CONSTANTS AND VARIABLES                                     F4430110    
       00033  0 00000 0 00000 ZERO       0                                                            F4430120    
       00034  0 00001 0 00000 LD1N       0,0,1                                                        F4430130    
       00035  0 70007 0 00000 LD7N       0,0,-TRATBL+2                                                F4430140    
       00036 +200000000000    PBYCDN OCT 200000000000                                                 F4430150    
       00037 -300000000000    PFXMKN OCT -300000000000                                                F4430160    
       00040 +377777777777    ENDMKN OCT 377777777777                                                 F4430170    
       00041  0 00000 0 00310 LAZST      ZSET                                                         F4430180    
       00042  0 00000 0 00311 LZST1      ZSET+1                                                       F4430190    
       00043  0 00000 0 00374 LZFR1      ZFRET=+2                                                     F4430200    
       00044  0 00000 0 01274 LAZTR      ZTRA                                                         F4430210    
       00045  0 00310 0 00000 LZSETN     0,0,ZSET                                                     F4430220    
       00046  0 01274 0 00000 LZTRAN     0,0,ZTRA                                                     F4430230    
       00047  0 00000 0 01275 WSETY      SETADD                    DRUM ADDRESS FOR SET TABLE         F4430240    
       00050  0 00000 0 01750 FRETY      FRTADD                    DRUM ADDRESS FOR FRET              F4430250    
       00051  0 00000 0 02260 BBLYN      BBLADD                    DRUM ADDRESS FOR BB LIST           F4430260    
       00052  0 00000 0 03270 DOYN       DOADDR                    DRUM ADDRESS FOR DO LIST           F4430270    
       00053  0 02000 0 00366 TRBCK  TRA CLAFN                                                        F4430280    
       00054  0 00000 0 00201 LFXST      FXSET                                                        F4430290    
       00055  0 00000 0 00000 ERAS1N                                                                  F4430300    
       00056  0 00000 0 00000 ERAS2N                                                                  F4430310    
       00057  0 00000 0 00000 ERAS3N                                                                  F4430320    
       00060  0 00000 0 00000 ERAS4N                                                                  F4430330    
       00061  0 00000 0 00000 ERAS5N                                                                  F4430340    
                                                                                                      F4430350    
                                         THIS ROUTINE READS THE SET TABLE FROM DRUM 3.                F4430360    
       00062  0 50000 0 00032 RDSET  CLA MINUS4                    INITIALIZE ERROR BOX               F4430370    
       00063  0 60100 0 00030        STO ERRBX                                                        F4430380    
       00064  0 76200 0 00303 16WRS  RDS SETDRM                                                       F4430390    
       00065  0 46000 0 00047        LDA WSETY                     LOCATE DRUM ADDRESS                F4430400    
       00066 -0 53400 3 07776        LXD SSBOX=,3                  SET INDEX REGISTERS                F4430410    
       00067  0 70000 1 01063 16CPY  CPY SETTAB+1,1                COPY TABLE                         F4430420    
       00070  2 00001 1 00067        TIX 16CPY,1,1                                                    F4430430    
       00071  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4430440    
       00072 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4430450    
       00073  0 36100 2 01063 16ACL  ACL SETTAB+1,2                COMPUTE CHECK SUM                  F4430460    
       00074  2 00001 2 00073        TIX 16ACL,2,1                                                    F4430470    
       00075  0 60200 0 00056        SLW ERAS2N                    STORE CHECK SUM                    F4430480    
       00076  0 50000 0 00056        CLA ERAS2N                    COMPARE CHECK SUMS                 F4430490    
       00077  0 40200 0 00055        SUB ERAS1N                                                       F4430500    
       00100  0 10000 0 00107        TZE READ4                     IF NO ERROR-READ IN NEXT PROGRAM   F4430510    
       00101  0 50000 0 00030 17ERR  CLA ERRBX                                                        F4430520    
       00102 -0 12000 0 00104 SKIP9  TMI SKIP9+2                   HAVE 5 TRIES AT READING BEEN MA0E  F4430530    
       00103  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4430540    
       00104  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4430550    
       00105  0 60100 0 00030        STO ERRBX                                                        F4430560    
       00106  0 02000 0 00064        TRA 16WRS                     TRY AGAIN                          F4430570    
       00107  0 76200 0 00221 READ4  RDS SYSTAP                                                       F4430580    
       00110  0 02000 0 00004        TRA RDFORT                                                       F4430590    
                                                                                                      F4430600    
                                         THIS ROUTINE WRITES THE BBLIST ON DRUM 3                     F4430610    
       00111 -0 53400 3 07774 LXD    LXD BBOX.=,3                  PUT BASIC BLOCK LIST ON DRUM       F4430620    
       00112 -0 75400 0 00000        PXD 0,0                                                          F4430630    
       00113  0 76600 0 00303        WRS BBLDRM                                                       F4430640    
       00114  0 36100 1 07773        ACL BBLIST,1                  COMPUTE CHECK SUM                  F4430650    
       00115  2 00001 1 00114 SELF30 TIX SELF30-1,1,1                                                 F4430660    
       00116  0 36100 0 07773        ACL BBLIST                                                       F4430670    
       00117  0 60200 0 00055        SLW ERAS1N                    STORE CHECK SUM                    F4430680    
       00120  0 46000 0 00051        LDA BBLYN                                                        F4430690    
       00121  0 70000 2 07773        CPY BBLIST,2                  COPY LIST                          F4430700    
       00122  2 00001 2 00121 SELF31 TIX SELF31-1,2,1                                                 F4430710    
       00123  0 70000 0 07773        CPY BBLIST                    COPY LAST WORD IN LIST             F4430720    
       00124  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4430730    
                                                                                                      F4430740    
                                         THIS ROUTINE WRITES DOLIST ON DRUM 1.                        F4430750    
       00125 -0 53400 3 07775        LXD DOBOX=,3                  COPY DO LIST ONTO DRUM             F4430760    
       00126 -0 75400 0 00000        PXD 0,0                                                          F4430770    
       00127  0 76600 0 00301        WRS DODRUM                    SELECT DRUM                        F4430780    
       00130  0 36100 1 06500 2ACL   ACL DOLIST,1                  COMPUTE CHECK SUM                  F4430790    
       00131  2 00001 1 00130        TIX 2ACL,1,1                                                     F4430800    
       00132  0 60200 0 00055        SLW ERAS1N                    STORE CHECK SUM                    F4430810    
       00133  0 46000 0 00052        LDA DOYN                                                         F4430820    
       00134  0 70000 2 06500 2CPY   CPY DOLIST,2                  COPY TABLE                         F4430830    
       00135  2 00001 2 00134        TIX 2CPY,2,1                                                     F4430840    
       00136  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4430850    
                                                                                                      F4430860    
                                         THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM     F4430870    
       00137  0 50000 0 00032 4PXD   CLA MINUS4                    INITIALIZE ERROR BOX               F4430880    
       00140  0 60100 0 00030        STO ERRBX                                                        F4430890    
       00141  0 76200 0 00303 4WRS   RDS SETDRM                                                       F4430900    
       00142  0 46000 0 00047        LDA WSETY                                                        F4430910    
       00143 -0 53400 3 00045        LXD LZSETN,3                                                     F4430920    
       00144  0 70000 1 07774 4CPY   CPY SETLOC,1                  COPY BLOCK                         F4430930    
       00145  2 00001 1 00144        TIX 4CPY,1,1                                                     F4430940    
       00146  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4430950    
       00147 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4430960    
       00150  0 36100 2 07774 4ACL   ACL SETLOC,2                  COMPUTE CHECKSUM                   F4430970    
       00151  2 00001 2 00150        TIX 4ACL,2,1                                                     F4430980    
       00152  0 60200 0 00056        SLW ERAS2N                                                       F4430990    
       00153  0 50000 0 00056        CLA ERAS2N                                                       F4431000    
       00154  0 40200 0 00055        SUB ERAS1N                    COMPARE CHECK SUMS                 F4431010    
       00155  0 10000 0 00164 4TZE   TZE TESTST                                                       F4431020    
       00156  0 50000 0 00030 STERR  CLA ERRBX                                                        F4431030    
       00157 -0 12000 0 00161 SKIP10 TMI SKIP10+2                  HAVE 5 TRIES AT READING BEEN MADE  F4431040    
       00160  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4431050    
       00161  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4431060    
       00162  0 60100 0 00030        STO ERRBX                                                        F4431070    
       00163  0 02000 0 00141        TRA 4WRS                      TRY AGAIN TO READ IN               F4431080    
       00164  0 50000 0 07776 TESTST CLA SSBOX=                    IS THERE ANOTHER BLOCK ON DRUM     F4431090    
       00165  0 40200 0 00045        SUB LZSETN                                                       F4431100    
       00166 -0 12000 0 00201        TMI FXSET                     NO OTHER-                          F4431110    
       00167  0 50000 0 00047 6SET   CLA WSETY                     ANOTHER BLOCK-SET DRUM ADDRESS     F4431120    
       00170  0 40000 0 00042        ADD LZST1                                                        F4431130    
       00171  0 60100 0 00047        STO WSETY                                                        F4431140    
       00172  0 50000 0 00144 5CLA   CLA 4CPY                      SET ADDRESSES FOR NEXT BLOCK       F4431150    
       00173  0 40200 0 00041        SUB LAZST                                                        F4431160    
       00174  0 62100 0 00144        STA 4CPY                                                         F4431170    
       00175  0 62100 0 00150        STA 4ACL                                                         F4431180    
       00176  0 50000 0 00054        CLA LFXST                                                        F4431190    
       00177  0 62100 0 00155        STA 4TZE                      STORE ADDRESS FOR NEXT ROUTINE     F4431200    
       00200  0 02000 0 00137        TRA 4PXD                      READ IN NEXT BLOCK                 F4431210    
                                                                                                      F4431220    
                                         THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS    F4431230    
       00201  0 53400 1 00033 FXSET  LXA ZERO,1                    SET INDEX FOR FIX DO LIST          F4431240    
       00202  0 50000 1 02414 CCLA   CLA FIXDOS,1                  GET ENTRY FROM FIXDO LIST          F4431250    
       00203 -0 12000 0 00213        TMI WRTST                     ALL DONE IF MINUS                  F4431260    
       00204 -0 73400 4 00000        PDX 0,4                       SET FOR ADDRESS IN SET TABLE       F4431270    
       00205  0 50000 4 07774        CLA SETLOC,4                  LOOK AT ENTRY IN SET TABLE         F4431280    
       00206 -0 73400 2 00000        PDX 0,2                       SET FOR ADDRESS IN BASIC BLOCK TAB.F4431290    
       00207  0 50000 2 02413        CLA BBTABL,2                  GET ADDRESS IN TRA TABLE           F4431300    
       00210  0 40000 0 00035        ADD LD7N                      SET FOR CORE ADDRESS OF COUNTER    F4431310    
       00211  0 62200 4 07774        STD SETLOC,4                  PUT INTO SET TABLE                 F4431320    
       00212  1 77777 1 00202        TXI CCLA,1,-1                 LOOK AT NEXT ENTRY IN FIXDO LIST   F4431330    
                                                                                                      F4431340    
                                         THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM       F4431350    
       00213 -0 53400 3 07776 WRTST  LXD SSBOX=,3                  SET INDEX REGISTERS                F4431360    
       00214  0 76600 0 00303        WRS SETDRM                    SELECT DRUM                        F4431370    
       00215 -0 75400 0 00000        PXD 0,0                                                          F4431380    
       00216  0 36100 1 07774 7AACL  ACL SETLOC,1                  COMPUTE CHECK SUM                  F4431390    
       00217  2 00001 1 00216        TIX 7AACL,1,1                                                    F4431400    
       00220  0 60200 0 00055        SLW ERAS1N                    STORE CHECK SUM                    F4431410    
       00221  0 46000 0 00047        LDA WSETY                                                        F4431420    
       00222  0 70000 2 07774 7ACPY  CPY SETLOC,2                  COPY TABLE                         F4431430    
       00223  2 00001 2 00222        TIX 7ACPY,2,1                                                    F4431440    
       00224  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4431450    
                                                                                                      F4431460    
                                          THIS ROUTINE READS THE TRA TABLE FROM THE DRUM              F4431470    
       00225  0 50000 0 07777 RDTRA  CLA TTBOX=                                                       F4431480    
       00226  0 40200 0 00034        SUB LD1N                                                         F4431490    
       00227  0 60100 0 00057        STO ERAS3N                    INITIALIZE ERAS3N                  F4431500    
       00230  0 50000 0 00032 8PXD   CLA MINUS4                    INITIALIZE ERROR BOX               F4431510    
       00231  0 02000 0 00265        TRA SKIP11+3                                                     F4431520    
       00232  0 76200 0 00301 8WRS   RDS TRADRM                                                       F4431530    
       00233 -0 53400 3 00046        LXD LZTRAN,3                  SET INDICES                        F4431540    
       00234  0 70000 1 07774 8CPY   CPY TRATBL+1,1                COPY BLOCK OF TABLE                F4431550    
       00235  2 00001 1 00234        TIX 8CPY,1,1                                                     F4431560    
       00236  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4431570    
       00237  0 36100 2 07774 8ACL   ACL TRATBL+1,2                                                   F4431580    
       00240  2 00001 2 00237        TIX 8ACL,2,1                                                     F4431590    
       00241  0 60200 0 00056        SLW ERAS2N                                                       F4431600    
       00242  0 50000 0 00056        CLA ERAS2N                                                       F4431610    
       00243  0 40200 0 00055        SUB ERAS1N                    COMPARE CHECK SUMS                 F4431620    
       00244 -0 10000 0 00261        TNZ TRERR                     IF NOT ZERO, HAS BEEN AN ERROR     F4431630    
       00245  0 50000 0 00057        CLA ERAS3N                    PUT NO OF WORDS COPIED IN AC       F4431640    
       00246  0 40200 0 00046        SUB LZTRAN                    ADD BLOCK JUST COPIED              F4431650    
       00247 -0 12000 0 00270        TMI CLRNS                     MINUS MEANS ALL D0NE, CLEAR N LIST F4431660    
       00250  0 60100 0 00057        STO ERAS3N                    STORE NUMBER OF WORDS LEFT TO COPY F4431670    
       00251  0 50000 0 00232        CLA 8WRS                      NOT FINISHED--SET DRUM NUMBER FOR  F4431680    
       00252  0 40000 0 00031        ADD LA1                          NEXT BLOCK                      F4431690    
       00253  0 62100 0 00232        STA 8WRS                                                         F4431700    
       00254  0 50000 0 00234        CLA 8CPY                      SET ADDRESSES FOR NEXT BLOCK       F4431710    
       00255  0 40200 0 00044        SUB LAZTR                                                        F4431720    
       00256  0 62100 0 00234        STA 8CPY                                                         F4431730    
       00257  0 62100 0 00237        STA 8ACL                                                         F4431740    
       00260  0 02000 0 00230        TRA 8PXD                      COPY NEXT BLOCK                    F4431750    
       00261  0 50000 0 00030 TRERR  CLA ERRBX                                                        F4431760    
       00262 -0 12000 0 00264 SKIP11 TMI SKIP11+2                  HAVE 5 TRIES AT READING BEEN MADE  F4431770    
       00263  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4431780    
       00264  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4431790    
       00265  0 60100 0 00030        STO ERRBX                                                        F4431800    
       00266 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4431810    
       00267  0 02000 0 00232        TRA 8WRS                      TRY AGAIN                          F4431820    
                                                                                                      F4431830    
                                         THIS CLEARS THE LOCATION IN THE N-LIST                       F4431840    
       00270  0 56000 0 00033 CLRNS  LDQ ZERO                                                         F4431850    
       00271  0 53400 4 00031        LXA LA1,4                                                        F4431860    
       00272  0 50000 4 01114 CLANS  CLA NLIST,4                                                      F4431870    
       00273  0 10000 0 00300        TZE 11PXD                     END OF LIST-DO NEXT ROUTINE        F4431880    
       00274 -0 60000 4 01114        STQ NLIST,4                   STORE ZERO IN N-LIST               F4431890    
       00275  1 00001 4 00272        TXI CLANS,4,1                 SET FOR NEXT WORD IN LIST          F4431900    
                                                                                                      F4431910    
                                         THIS ROUTINE READS FRET FROM DRUM 2                          F4431920    
       00276 -0 63400 2 00060 RDFRT  SXD ERAS4N,2                  SAVE INDEX REGISTERS               F4431930    
       00277 -0 63400 1 00061        SXD ERAS5N,1                                                     F4431940    
       00300  0 50000 0 00032 11PXD  CLA MINUS4                    INITIALIZE ERROR BOX               F4431950    
       00301  0 02000 0 00343        TRA SKIP12+3                                                     F4431960    
       00302  0 76200 0 00302 11WRS  RDS FRTDRM                    SELECT DRUM                        F4431970    
       00303  0 46000 0 00050        LDA FRETY                     LOCATE DRUM ADDRESS                F4431980    
       00304  0 70000 0 00056        CPY ERAS2N                    COPY NO. 0F WORDS IN BLOCK         F4431990    
       00305 -0 53400 7 00056        LXD ERAS2N,7                  SET INDEX REGISTERS                F4432000    
       00306  0 70000 1 01062 11CPY  CPY FRET,1                    COPY BLOCK                         F4432010    
       00307  2 00001 1 00306        TIX 11CPY,1,1                                                    F4432020    
       00310  0 70000 0 00055        CPY ERAS1N                    COPY CHECK SUM                     F4432030    
       00311  0 70000 0 00057        CPY ERAS3N                    C0PY FIRST WORD OF NEXT BLOCK      F4432040    
       00312  0 36100 2 01062 11ACL  ACL FRET,2                    COMPUTE CHECKSUM                   F4432050    
       00313  2 00001 2 00312        TIX 11ACL,2,1                                                    F4432060    
       00314  0 36100 0 00056        ACL ERAS2N                                                       F4432070    
       00315  0 60200 0 00056        SLW ERAS2N                                                       F4432080    
       00316  3 00000 4 00322        TXH 11CLA,4,0                 TEST FOR FRET EMPTY                F4432090    
       00317  0 50000 0 00402        CLA NOQFD                     IF EMPTY--PREVENT LOOKING AT IT    F4432100    
       00320  0 62100 0 00357        STA 13TXIN-1                                                     F4432110    
       00321  0 02000 0 00346        TRA FXTRA                     GO TO MAKE UP PROBABILITIES        F4432120    
       00322  0 50000 0 00056 11CLA  CLA ERAS2N                    COMPARE CHECKSUMS                  F4432130    
       00323  0 40200 0 00055        SUB ERAS1N                                                       F4432140    
       00324 -0 10000 0 00337        TNZ FQERR                     IF NOT ZERO--HAS BEEN AN ERROR     F4432150    
       00325  0 50000 0 00050 12CLA  CLA FRETY                     SET DRUM ADDRESS FOR NEXT BLOCK    F4432160    
       00326  0 40000 0 00043        ADD LZFR1                                                        F4432170    
       00327  0 60100 0 00050        STO FRETY                                                        F4432180    
       00330  0 50000 0 00057        CLA ERAS3N                    TEST FOR END OF FRET               F4432190    
       00331 -0 10000 0 00334        TNZ 12TRA-2                                                      F4432200    
       00332  0 50000 0 00341        CLA SKIP12+1                  STORE A TSX TO PREVENT READING     F4432210    
       00333  0 60100 0 00301        STO 11PXD+1                      IN MORE-THIS IS END OF TABLE    F4432220    
       00334 -0 53400 1 00061        LXD ERAS5N,1                  RESTORE INDEX REGISTERS            F4432230    
       00335 -0 53400 2 00060        LXD ERAS4N,2                                                     F4432240    
       00336  0 02000 0 00346 12TRA  TRA FXTRA                     GO TO NEXT PART OF PROGRAM         F4432250    
       00337  0 50000 0 00030 FQERR  CLA ERRBX                                                        F4432260    
       00340 -0 12000 0 00342 SKIP12 TMI SKIP12+2                  HAVE 5 TRIES AT READING BEEN MADE  F4432270    
       00341  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4432280    
       00342  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4432290    
       00343  0 60100 0 00030        STO ERRBX                                                        F4432300    
       00344 -0 75400 0 00000        PXD 0,0                                                          F4432310    
       00345  0 02000 0 00302        TRA 11WRS                     TRY AGAIN                          F4432320    
                                                                                                      F4432330    
                                         THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA  F4432340    
                                         TABLE FROM THE FREQUENCY TABLE                               F4432350    
       00346 -0 53400 2 00033 FXTRA  LXD ZERO,2                    SET INDEX REGISTERS                F4432360    
       00347  0 50000 0 07774        CLA BBOX.=                    ADD LENGTH OF TABLE                F4432370    
       00350  0 40200 0 00034        SUB LD1N                                                         F4432380    
       00351  0 62200 0 00352        STD 13TXH                     STORE FOR COMPARISON               F4432390    
 D     00352  3 00000 2 00062 13TXH  TXH RDSET,2                   HAS END OF TABLE BEEN REACHED      F4432400    
       00353 -0 50000 2 02413        CAL BBTABL,2                  LOOK AT ENTRY IN BB TABLE          F4432410    
       00354 -0 73400 1 00000        PDX 0,1                       GET ADDRESS IN TRA TABLE           F4432420    
       00355 -0 32000 0 00037        ANA PFXMKN                    LOOK AT C0DE FOR ENDING            F4432430    
       00356  0 40200 0 00036        SUB PBYCDN                    IS IT A PROBABILITY CASE           F4432440    
       00357  0 10000 0 00361        TZE CLAT                      YES, GET PROBABILITIES             F4432450    
       00360  1 00001 2 00352 13TXIN TXI 13TXH,2,1                 NO, GO TO NEXT BASIC BLOCK         F4432460    
       00361  0 50000 4 01062 CLAT   CLA FRET,4                    IS FORMULA NO. IN TRA TABLE THE    F4432470    
       00362  0 76700 0 00022        ALS 18                           SAME AS IN FRET(FRET HAS - SIGN)F4432480    
       00363  0 40000 1 07773        ADD TRATBL,1                                                     F4432490    
       00364 -0 10000 0 00402        TNZ NOQFD                     NO, NO FREQUENCY FOUND             F4432500    
       00365 -2 00001 4 00372 14TIX  TNX 14LXD,4,1                 SET FOR NEXT WORD                  F4432510    
       00366  0 50000 4 01062 CLAFN  CLA FRET,4                    GET PROBABILITY FROM FRET          F4432520    
       00367 -0 12000 0 00360        TMI 13TXIN                    MINUS INDICATES NEXT ENTRY IN FRET F4432530    
       00370  0 60100 1 07773        STO TRATBL,1                  PUT PROBABILITY IN TRA TABLE       F4432540    
       00371  1 00002 1 00365        TXI 14TIX,1,2                 SET FOR NEXT ENTRY IN TRA          F4432550    
       00372  0 50000 0 00057 14LXD  CLA ERAS3N                    TEST FOR END OF LAST BLOCK         F4432560    
       00373 -0 10000 0 00377        TNZ 14CLA                                                        F4432570    
       00374  0 50000 0 00402        CLA NOQFD                     END OF TABLE-PREVENT FURTHER       F4432580    
       00375  0 62100 0 00357        STA 13TXIN-1                     LOOKING AT FRET                 F4432590    
       00376  1 00001 2 00352        TXI 13TXH,2,1                 ALSO END OF ENTRY-LOOK AT NEXT BB. F4432600    
       00377  0 50000 0 00053 14CLA  CLA TRBCK                     END OF BLOCK OF FRET--READ IN NEXT F4432610    
       00400  0 62100 0 00336        STA 12TRA                        BLOCK, SETTING ADDRESS FOR      F4432620    
       00401  0 02000 0 00276        TRA RDFRT                        RETURN                          F4432630    
       00402 -0 12000 0 00416 NOQFD  TMI NTENT                     FORM. NO. IN FRET IS LARGER, NOT   F4432640    
                                                                      IN FRET                         F4432650    
       00403  2 00001 4 00404        TIX CLAQ,4,1                  FORM. NO. SMALLER, TRY NEXT ENTRY  F4432660    
       00404  0 50000 4 01062 CLAQ   CLA FRET,4                    LOOK AT NEXT WORD IN FRET          F4432670    
       00405 -0 12000 0 00362        TMI CLAT+1                    - MEANS NEW ENTRY, COMPARE TO TRA  F4432680    
       00406  2 00001 4 00404        TIX CLAQ,4,1                  KEEP LOOKING FOR BEG. OF NEXT ENTRYF4432690    
       00407  0 50000 0 00057        CLA ERAS3N                    END OF BLOCK REACHED               F4432700    
       00410  0 10000 0 00414        TZE NDTBL                     TEST FOR END OF TABLE              F4432710    
       00411  0 50000 0 00403        CLA CLAQ-1                    END OF BLOCK ONLY-STORE RETURN     F4432720    
       00412  0 62100 0 00336        STA 12TRA                        ADDRESS AND GO TO READ          F4432730    
       00413  0 02000 0 00276        TRA RDFRT                        IN NEXT BLOCK                   F4432740    
       00414  0 50000 0 00402 NDTBL  CLA NOQFD                     END OF TABLE-PREVENT FURTHER       F4432750    
       00415  0 62100 0 00357        STA 13TXIN-1                     LOOKING AT FRET.                F4432760    
       00416  0 50000 1 07771 NTENT  CLA TRATBL-2,1                NO ENTRY IN FRET--MAKE UP FREQS    F4432770    
       00417 -0 63400 4 00055        SXD ERAS1N,4                  SAVE FRET ADDRESS                  F4432780    
       00420 -0 73400 4 00000        PDX 0,4                       PUT NO. OF BRANCHES IN INDEX       F4432790    
       00421  0 50000 0 00034        CLA LD1N                      PUT TOTAL PROBABILITY IN AC        F4432800    
       00422  0 56000 0 00033        LDQ ZERO                      CLEAR MQ                           F4432810    
       00423  0 22100 1 07771        DVP TRATBL-2,1                DIVIDE BY NO. OF BRANCHES          F4432820    
       00424  0 76000 0 00012        DCT                                                              F4432830    
       00425  0 07400 4 00004        TSX RDFORT,4                  BAD DIVIDE                         F4432840    
       00426 -0 60000 0 00056        STQ ERAS2N                    STORE PROBABILITY IN AC            F4432850    
       00427 -0 75400 0 00000        PXD 0,0                       CLEAR AC                           F4432860    
       00430  0 40000 0 00056 15ADD  ADD ERAS2N                    ADD PROB. OF BRANCH FOR CUMULATING F4432870    
       00431  0 60100 1 07773        STO TRATBL,1                     PROBABILITY AND STORE           F4432880    
       00432 -2 00001 4 00434        TNX 15LXD,4,1                 IS THIS BASIC BLOCK DONE           F4432890    
       00433  1 00002 1 00430        TXI 15ADD,1,2                 NO, DO NEXT BRANCH                 F4432900    
       00434 -0 53400 4 00055 15LXD  LXD ERAS1N,4                  RESTORE INDEX                      F4432910    
       00435  0 50000 0 00040        CLA ENDMKN                                                       F4432920    
       00436  0 60100 1 07773        STO TRATBL,1                  STORE PROBABILITY IN LAST BRANCH   F4432930    
       00437  1 00001 2 00352        TXI 13TXH,2,1                 DO NEXT BASIC BLOCK.               F4432940    
                                                                                                      F4432950    
                                                                                                      F4432960    
                                         SECTION 4 - PART 4 OF 6                                      F4440010    
                                                                                                      F4440020    
                                         FORTRAN EDITOR INFORMATION                                   F4440030    
                                            MASTER RECORD CARD = F0690000                             F4440040    
                                            ENTRY POINT = 42                                          F4440050    
                                            FIRST LOCATION = 33                                       F4440060    
                                             LAST LOCATION = 161                                      F4440070    
                                                                                                      F4440080    
                                                                                                      F4440090    
                        00033        ORG 27                                                           F4440100    
                                         CONSTANTS AND VARIABLES                                      F4440110    
       00033  0 00001 0 00000 LD1P       0,0,1                                                        F4440120    
       00034  0 77777 0 00000 DECMKP     0,0,-1                                                       F4440130    
       00035  0 77777 0 77777 ADMK       -1,0,-1                                                      F4440140    
       00036 +100000000000    BT2MK  OCT 100000000000                                                 F4440150    
       00037  0 00000 0 07640 VISITS HTR 4000                      COUNTER FOR NUMBER OF VISITS       F4440160    
       00040 +321702174347    RAND1  OCT 321702174347                                                 F4440170    
       00041 +000000000001    RAND2  OCT 1                                                            F4440180    
                                                                                                      F4440190    
                                         THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM,     F4440200    
                                         KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT F4440210    
                                         EACH BRANCH POINT                                            F4440220    
       00042 -0 53400 1 00031 SIMUL  LXD LA1,1                     PUT ZERO IN I R A                  F4440230    
       00043 -0 50000 0 07777        CAL TTBOX=                                                       F4440240    
       00044  0 77100 0 00014        ARS 12                        NUMBER OF STEPS IS NUMBER OF 2-WORDF4440250    
       00045  0 60100 0 00037        STO VISITS                       ENTRIES IN TRATBL TIMES 128     F4440260    
       00046  0 50000 0 00037 INTOBB CLA VISITS                    COUNT NO. OF BASIC BLOCKS VISITED  F4440270    
       00047  0 40200 0 00031        SUB LA1                                                          F4440280    
       00050 -0 12000 0 00160        TMI READ5                     HAVE FINISHED SIMULATION           F4440290    
       00051  0 60100 0 00037        STO VISITS                                                       F4440300    
       00052  0 50000 1 02413        CLA BBTABL,1                  GET ADDRESS OF SETS FOR THIS BB    F4440310    
       00053  0 76700 0 00022        ALS 18                                                           F4440320    
       00054  0 62200 0 00060        STD 1TXL                                                         F4440330    
       00055  0 50000 1 02412        CLA BBTABL-1,1                GET FIRST ADDRESS OF SETS FOR BB   F4440340    
       00056  0 73400 2 00000        PAX 0,2                                                          F4440350    
       00057  0 50000 2 01063 1CLA   CLA SETTAB+1,2                LOOK AT ENTRY IN SET TABLE         F4440360    
 D     00060 -3 00000 2 00065 1TXL   TXL ON,2                      NO MORE SETS                       F4440370    
       00061 -0 73400 4 00000        PDX 0,4                       PUT ADDRESS INTO INDEX             F4440380    
       00062  0 76700 0 00022        ALS 18                                                           F4440390    
       00063  0 62200 4 00000        STD 0,4                       DO THE SET                         F4440400    
       00064  1 77777 2 00057        TXI 1CLA,2,-1                 DO NEXT SET                        F4440410    
       00065 -0 50000 1 02413 ON     CAL BBTABL,1                                                     F4440420    
       00066 -0 73400 2 00000        PDX 0,2                       PUT TRATBL ADDRESS IN INDEX        F4440430    
       00067  0 40200 0 00036        SUB BT2MK                                                        F4440440    
       00070 -0 12000 0 00132        TMI DOWIF                     CODE IS 000, DO WITH IF            F4440450    
       00071  0 40200 0 00036        SUB BT2MK                                                        F4440460    
       00072 -0 12000 0 00122        TMI MSECSE                    CODE IS 001--MSE CASE              F4440470    
       00073  0 40200 0 00036        SUB BT2MK                                                        F4440480    
       00074 -0 12000 0 00141        TMI PRBYCS                    CODE IS 010--PROBABILITY           F4440490    
       00075  0 40200 0 00036        SUB BT2MK                                                        F4440500    
       00076 -0 12000 0 00147        TMI ENTERP                    CODE IS 011--CERTAINTY             F4440510    
       00077  0 40200 0 00036        SUB BT2MK                                                        F4440520    
       00100 -0 12000 0 00140        TMI TROUT                     CODE IS 100-- DO NO IF             F4440530    
       00101  0 40200 0 00036        SUB BT2MK                                                        F4440540    
       00102 -0 12000 0 00105        TMI GOTONP                    CODE IS 101-GO TO N CASE           F4440550    
       00103 -0 53400 1 00031 STOPCS LXD LA1,1                     -10 IS A STOP-GO TO BB ZERO        F4440560    
       00104  0 02000 0 00046        TRA INTOBB                                                       F4440570    
       00105  0 50000 2 07773 GOTONP CLA TRATBL,2                  THIS IS A GO TO N--GET ADDRESS OF  F4440580    
       00106 -0 73400 4 00000        PDX 0,4                          N-CELL AND PUT IN INDEX         F4440590    
       00107  0 50000 1 02412        CLA BBTABL-1,1                SAVE END OF ENTRY IN TRA TABLE     F4440600    
       00110  0 62200 0 00116        STD TXLN                                                         F4440610    
       00111  0 50000 2 07772 CLANT  CLA TRATBL-1,2                LOOK AT ENTRY IN TRAT              F4440620    
       00112 -0 32000 0 00034        ANA DECMKP                    AND OUT ALL BUT VALUE FOR N IN TRATF4440630    
       00113  0 40200 4 01114        SUB NLIST,4                   IS THIS ENTRY FOR CURRENT VALUE    F4440640    
       00114  0 10000 0 00147        TZE ENTERP                    YES, ENTER                         F4440650    
       00115  1 00002 2 00116        TXI TXLN,2,2                  NO, LOOK AT NEXT ENTRY IN TRAT     F4440660    
 D     00116 -3 00000 2 00111 TXLN   TXL CLANT,2                   TEST FOR N NOT SET                 F4440670    
       00117 -0 50000 1 02413        CAL BBTABL,1                                                     F4440680    
       00120 -0 73400 2 00000        PDX 0,2                                                          F4440690    
       00121  0 02000 0 00147        TRA ENTERP                    ENTER TRA TO FIRST BRANCH GIVEN    F4440700    
       00122  0 50000 2 07773 MSECSE CLA TRATBL,2                  THIS IS A MSE--GET ADDRESS OF SENSEF4440710    
       00123 -0 73400 4 00000        PDX 0,4                          LIGHT CELL AND PUT IN INDEX     F4440720    
       00124  0 50000 4 01260        CLA SNSLT,4                   IS LIGHT ON OR OFF                 F4440730    
       00125  0 10000 0 00131        TZE MSETXI                    OFF--TAKE SECOND BRANCH            F4440740    
       00126 -0 75400 0 00000        PXD 0,0                       ON--TURN OFF, TAKE FIRST BRANCH    F4440750    
       00127  0 60100 4 01260        STO SNSLT,4                                                      F4440760    
       00130  0 02000 0 00147        TRA ENTERP                    ENTER TRANSFER                     F4440770    
       00131  1 00002 2 00147 MSETXI TXI ENTERP,2,2                ENTER TRANSFER                     F4440780    
       00132  0 50000 2 07771 DOWIF  CLA TRATBL-2,2                THIS IS A DO WITH AN IF            F4440790    
       00133  0 40000 0 00033        ADD LD1P                      ADD ONE T0 LOOP COUNT              F4440800    
       00134  0 56000 2 07773        LDQ TRATBL,2                  COMPARE TO NO. OF TIMES IN LOOP    F4440810    
       00135  0 04000 0 00140        TLQ TROUT                     TRANSFER OUT--LOOP DONE            F4440820    
       00136  0 62200 2 07771        STD TRATBL-2,2                LOOP NOT DONE-STORE NEW COUNT      F4440830    
       00137  0 02000 0 00147        TRA ENTERP                    TAKE TRANSFER BACK                 F4440840    
       00140  1 00002 2 00147 TROUT  TXI ENTERP,2,2                TAKE TRANSFER OUT                  F4440850    
       00141  0 56000 0 00040 PRBYCS LDQ RAND1                     THIS IS A PROBABILITY CASE         F4440860    
       00142  0 20000 0 00041        MPY RAND2                     GENERATE A RANDOM NUMBER BY        F4440870    
       00143 -0 60000 0 00041        STQ RAND2                        MULTIPLIC. AND SAVE THE RESULT  F4440880    
       00144  0 50000 2 07773 COMP   CLA TRATBL,2                  COMPARE TO CUMULATIVE PROB IN TRA  F4440890    
       00145  0 04000 0 00147        TLQ ENTERP                    FOUND, TAKE TRANSFER               F4440900    
       00146  1 00002 2 00144        TXI COMP,2,2                  NOT FOUND--LOOK AT NEXT BRANCH     F4440910    
       00147  0 50000 2 07772 ENTERP CLA TRATBL-1,2                THIS IS THE BRANCH TO BE TAKEN     F4440920    
       00150 -0 73400 1 00000        PDX 0,1                       PUT NO. OF NEXT BASIC BLOCK IN IR AF4440930    
       00151  0 40000 0 00031        ADD LA1                       ADD 1 TO COUNTER FOR THIS TRANSFER F4440940    
       00152  0 62100 2 07772        STA TRATBL-1,2                STORE COUNT                        F4440950    
       00153  0 40200 2 07772        SUB TRATBL-1,2                TEST FOR OVERFLOW                  F4440960    
       00154  0 10000 0 00046        TZE INTOBB                    NO OVERFLOW, DO NEXT BB            F4440970    
       00155  0 50000 0 00035 OVRFLO CLA ADMK                                                         F4440980    
       00156  0 62100 2 07772        STA TRATBL-1,2                STORE MAXIMUM COUNT                F4440990    
       00157  0 02000 0 00046        TRA INTOBB                                                       F4441000    
       00160  0 76200 0 00221 READ5  RDS SYSTAP                                                       F4441010    
       00161  0 02000 0 00004        TRA RDFORT                                                       F4441020    
                                                                                                      F4441030    
                                                                                                      F4441040    
                                         SECTION 4 - PART 5 OF 6                                      F4450010    
                                                                                                      F4450020    
                                         FORTRAN EDITOR INFORMATION                                   F4450030    
                                            MASTER RECORD CARD = F0710000                             F4450040    
                                            ENTRY POINT = 42                                          F4450050    
                                            FIRST LOCATION = 33                                       F4450060    
                                            LAST LOCATION = 205                                       F4450070    
                                                                                                      F4450080    
                                                                                                      F4450090    
                        00033        ORG 27                                                           F4450100    
                                         CONSTANTS AND VARIABLES                                      F4450110    
       00033 +000000700000    TGMSK  OCT 700000                                                       F4450120    
       00034 +000000777777    RTMSK  OCT 777777                                                       F4450130    
       00035 -300000000000    CODMK  OCT -300000000000                                                F4450140    
       00036  0 00000 0 03270 DOYY       DOADDR                                                       F4450150    
       00037  0 00000 0 00000 MPYR1                                                                   F4450160    
       00040  0 00000 0 00000 MPYR2                                                                   F4450170    
       00041  0 00000 0 00000 BBBOX                                                                   F4450180    
                                                                                                      F4450190    
                                         THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM     F4450200    
       00042  0 50000 0 00032 RDDOS  CLA MINUS4                    INITIALIZE ERROR BOX               F4450210    
       00043  0 60100 0 00030        STO ERRBX                                                        F4450220    
       00044  0 76200 0 00301 RDSDOL RDS DODRUM                                                       F4450230    
       00045 -0 53400 3 07775        LXD DOBOX=,3                                                     F4450240    
       00046  0 46000 0 00036        LDA DOYY                                                         F4450250    
       00047 -3 00000 1 00204        TXL READ6,1,0                 IF NO DOS-GO TO TAG PASS           F4450260    
       00050  0 70000 1 01120        CPY DOBLOK,1                                                     F4450270    
       00051  2 00001 1 00050 SELF32 TIX SELF32-1,1,1                                                 F4450280    
       00052  0 70000 0 00040        CPY MPYR2                                                        F4450290    
 T     00053 -0 75400 0 00000        PXD                                                              F4450300    
       00054  0 36100 2 01120        ACL DOBLOK,2                                                     F4450310    
       00055  2 00001 2 00054 SELF33 TIX SELF33-1,2,1                                                 F4450320    
       00056  0 60200 0 00037        SLW MPYR1                                                        F4450330    
       00057  0 50000 0 00037        CLA MPYR1                                                        F4450340    
       00060  0 40200 0 00040        SUB MPYR2                                                        F4450350    
       00061  0 10000 0 00070        TZE FXDOS                                                        F4450360    
       00062  0 50000 0 00030        CLA ERRBX                                                        F4450370    
       00063 -0 12000 0 00065 SKIP13 TMI SKIP13+2                  HAVE 5 TRIES AT READING BEEN MADE  F4450380    
       00064  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4450390    
       00065  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4450400    
       00066  0 60100 0 00030        STO ERRBX                                                        F4450410    
       00067  0 02000 0 00044        TRA RDSDOL                                                       F4450420    
                                                                                                      F4450430    
                                         THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS      F4450440    
                                         WITHOUT IFS                                                  F4450450    
 T     00070 -0 75400 0 00000 FXDOS  PXD                                                              F4450460    
       00071  0 60100 2 00443 ZSTO   STO LCNTR,2                                                      F4450470    
       00072  3 00226 2 00074        TXH ZLXD,2,150                CLEAR L-C0UNTERS TO INITIALIZE     F4450480    
       00073  1 00001 2 00071        TXI ZSTO,2,1                                                     F4450490    
       00074 -0 53400 4 00031 ZLXD   LXD LA1,4                     SET INDEX REGISTER--0 IN IR C      F4450500    
       00075  0 53400 2 00031        LXA LA1,2                     ONE IN B                           F4450510    
       00076  0 50000 0 07775        CLA DOBOX=                    PUT LENGTH OF TNX TABLE IN 9TSTND  F4450520    
       00077  0 62200 0 00203        STD 9TSTND                                                       F4450530    
       00100  0 50000 2 01117 LOOKDO CLA DOBLOK-1,2                LOOK AT ENTRY IN DO LIST           F4450540    
       00101 -0 32000 0 00033        ANA TGMSK                     DOES THIS DO HAVE AN IF            F4450550    
       00102  1 00002 2 00103 4TXI   TXI 4TXI+1,2,2                SET FOR NEXT ENTRY IN DO LIST      F4450560    
       00103 -0 10000 0 00203        TNZ 9TSTND                    DO HAS IF-LOOK AT NEXT             F4450570    
       00104  0 50000 0 00031        CLA LA1                       NO IF-START FIXING COUNTERS        F4450580    
       00105  0 60100 4 00443        STO LCNTR,4                   PUT ONE IN COUNTER ZERO            F4450590    
       00106  1 00001 4 00107        TXI 4CLA,4,1                                                     F4450600    
       00107  0 50000 2 01121 4CLA   CLA DOBLOK+1,2                                                   F4450610    
       00110  0 62200 0 00041        STD BBBOX                     STORE NO. OF THIS BB.              F4450620    
       00111  0 50000 2 01122        CLA DOBLOK+2,2                                                   F4450630    
       00112  0 62100 4 00443        STA LCNTR,4                   STORE NO. TIMES IN LOOP IN COUNTERSF4450640    
       00113  0 50000 2 01117 NTHRDO CLA DOBLOK-1,2                IS THERE ANOTHER TXL TO THIS ADDR. F4450650    
       00114  0 40200 2 01121        SUB DOBLOK+1,2                                                   F4450660    
       00115 -0 10000 0 00126        TNZ ENDBBQ                    NO, LOOK AT END OF THIS B.B.       F4450670    
       00116  1 00001 4 00117 BEGDO  TXI CLANO-1,4,1               YES, INCREASE L BOX BY 1           F4450680    
       00117  1 00002 2 00120        TXI CLANO,2,2                 SET FOR NEXT ENTRY IN TNX LIST     F4450690    
       00120  0 50000 2 01122 CLANO  CLA DOBLOK+2,2                GET NO. OF TIMES IN THIS DO        F4450700    
       00121  0 62100 4 00443        STA LCNTR,4 4                                                    F4450710    
       00122  0 56000 4 00443        LDQ LCNTR,4                   MULTIPLY NO OF TIMES IN THIS D0    F4450720    
       00123  0 20000 4 00444        MPY LCNTR+1,4                    BY NO. OF TIMES IN OUTER DOS    F4450730    
       00124 -0 60000 4 00443        STQ LCNTR,4                   STORE IN COUNTER FOR THIS DO       F4450740    
       00125  0 02000 0 00113        TRA NTHRDO                    SEE IF THERE IS ANOTHER TNX TO THISF4450750    
       00126 -0 53400 1 00041 ENDBBQ LXD BBBOX,1                   THIS IS END 0F BB IN DO WITHOUT IF F4450760    
       00127  0 50000 1 02413        CLA BBTABL,1                  LOOK AT ENTRY ON BB TABLE          F4450770    
       00130 -0 73400 1 00000        PDX 0,1                       GET ADDRESS IN TRA TABLE           F4450780    
       00131 -0 32000 0 00035        ANA CODMK                     LOOK AT ENDING CODE                F4450790    
       00132  0 10000 0 00155        TZE ENDDO                     ZERO INDICATES DO ENDING           F4450800    
       00133  0 50000 1 07772        CLA TRATBL-1,1                A CERTAINTY CASE--LOOK AT TRATBL   F4450810    
       00134 -0 32000 0 00034        ANA RTMSK                     GET COUNTER FROM TRA TABLE         F4450820    
       00135  0 60100 0 00037        STO MPYR1                                                        F4450830    
       00136  0 56000 0 00037        LDQ MPYR1                     MULTIPLY C0UNTER BY NUMBER OF TIMESF4450840    
       00137  0 20000 4 00443        MPY LCNTR,4                      THIS LOOP IS DONE               F4450850    
       00140 -0 60000 0 00037        STQ MPYR1                                                        F4450860    
       00141  0 50000 0 00037        CLA MPYR1                                                        F4450870    
       00142  0 34000 0 00034        CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4450880    
       00143  0 50000 0 00034        CLA RTMSK                     COUNTER HAS OVERFLOWED             F4450890    
       00144  0 76100 0 00000        NOP                           NO OVERFLOW                        F4450900    
       00145  0 62100 1 07772        STA TRATBL-1,1                PUT ALL ONES IN C0UNTER            F4450910    
       00146 -0 53400 1 00041 6LXD   LXD BBBOX,1                                                      F4450920    
       00147  1 00001 1 00150        TXI NXTBB,1,1                 SET FOR NEXT BB--DOES IT BEGIN A DOF4450930    
       00150 -0 75400 1 00000 NXTBB  PXD 0,1                       LOOK AT NEXT BB                    F4450940    
       00151  0 62200 0 00041        STD BBBOX                     DOES THIS BB START A DO            F4450950    
       00152  0 40200 2 01117        SUB DOBLOK-1,2                COMPARE TO DO LIST                 F4450960    
       00153  0 10000 0 00116        TZE BEGDO                                                        F4450970    
       00154  0 02000 0 00126        TRA ENDBBQ                                                       F4450980    
       00155  0 50000 1 07770 ENDDO  CLA TRATBL-3,1                THIS IS THE END 0F A DO WITHOUT IF F4450990    
       00156 -0 32000 0 00034        ANA RTMSK                                                        F4451000    
       00157  0 60100 0 00037        STO MPYR1                                                        F4451010    
       00160  0 56000 0 00037        LDQ MPYR1                     MULTIPLY COUNTER BY TOTAL NO OF    F4451020    
       00161  0 20000 4 00443        MPY LCNTR,4                      TIMES IN LOOP                   F4451030    
       00162 -0 60000 0 00040        STQ MPYR2                     STORE NO IN MPYR2                  F4451040    
       00163  0 56000 0 00037        LDQ MPYR1                     MULTIPLY COUNTER BY NO TIME DO IS  F4451050    
       00164  0 20000 4 00444        MPY LCNTR+1,4                    STARTED TO GET COUNTER OUT      F4451060    
       00165 -0 60000 0 00037        STQ MPYR1                                                        F4451070    
       00166  0 50000 0 00037        CLA MPYR1                                                        F4451080    
       00167  0 34000 0 00034        CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4451090    
       00170  0 50000 0 00034        CLA RTMSK                     COUNTER HAS OVERFLOWED-USE MAX. NO.F4451100    
       00171  0 76100 0 00000        NOP                           NO OVERFLOW                        F4451110    
       00172  0 62100 1 07770        STA TRATBL-3,1                STORE NO TIMES OUT IN COUNTER OUT  F4451120    
       00173  0 50200 0 00037        CLS MPYR1                                                        F4451130    
       00174  0 40000 0 00040        ADD MPYR2                                                        F4451140    
       00175  0 34000 0 00034        CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4451150    
       00176  0 50000 0 00034        CLA RTMSK                     COUNTER HAS OVERFLOWED-USE MAX. NO.F4451160    
       00177  0 76100 0 00000        NOP                           NO OVERFLOW                        F4451170    
       00200  0 62100 1 07772        STA TRATBL-1,1                STORE NO TIMES BACK IN COUNT. BACK F4451180    
       00201  1 77777 4 00202        TXI 9TXL,4,-1                 DECREASE LEVEL COUNTER FOR DO DONE F4451190    
       00202  3 00000 4 00146 9TXL   TXH 6LXD,4,0                  IS THIS THE END OF OUTER DO        F4451200    
 D     00203 -3 00000 2 00100 9TSTND TXL LOOKDO,2                  YES, IS IT END OF PROBLEM          F4451210    
       00204  0 76200 0 00221 READ6  RDS SYSTAP                                                       F4451220    
       00205  0 02000 0 00004        TRA RDFORT                    YES, GO TO NEXT ROUTINE            F4451230    
                                                                                                      F4451240    
                                                                                                      F4451250    
                                          SECTION 4 - PART 6 OF 6                                     F4460010    
                                                                                                      F4460020    
                                          FORTRAN EDITOR INFORMATION                                  F4460030    
                                             MASTER RECORD CARD = F0730000                            F4460040    
                                             ENTRY POINT = 100                                        F4460050    
                                             FIRST LOCATION = 33                                      F4460060    
                                             LAST LOCATION = 1021                                     F4460070    
                                                                                                      F4460080    
                                                                                                      F4460090    
                        00033        ORG 27                                                           F4460100    
                                          CONSTANTS AND VARIABLES                                     F4460110    
       00033  0 00000 0 00000 LOR                                                                     F4460120    
       00034  0 00000 0 77777 LC1        -1                                                           F4460130    
       00035  0 00000 0 00005 L5         5                                                            F4460140    
       00036  0 00000 0 00006 L6R        6                                                            F4460150    
       00037  0 00000 0 00010 L8         8                                                            F4460160    
       00040  0 00000 0 03773 L2043      2043                                                         F4460170    
       00041  0 00000 0 03777 L2047      2047                                                         F4460180    
       00042  0 00000 0 04000 L2048      2048                                                         F4460190    
       00043  0 00001 0 00000 LD1R       0,0,1                                                        F4460200    
       00044 +000000777770    STMSK  OCT 777770                                                       F4460210    
       00045 +000000777777    TAGMK  OCT 777777                                                       F4460220    
       00046 +000033000000    TMARK  OCT 33000000                                                     F4460230    
       00047 +077777000000    DECMKR OCT 77777000000                                                  F4460240    
       00050 +037777037777    MASK   OCT 37777037777                                                  F4460250    
       00051 +377770000000    14ONES OCT 377770000000                                                 F4460260    
       00052  0 00017 0 00000 LZTAG      0,0,ZTAG                                                     F4460270    
                                          OPERATION CODES OF TYPES OF REFERENCES                      F4460280    
       00053 +036721000000           OCT 36721000000               LXA                                F4460290    
       00054 +036731000000           OCT 36731000000               TXI                                F4460300    
       00055 +033167000000           OCT 33167000000               TIX                                F4460310    
       00056 +036747000000           OCT 36747000000               LXP                                F4460320    
       00057 +042524000000           OCT 42524000000               DED                                F4460330    
       00060 +036724000000           OCT 36724000000               LXD                                F4460340    
       00061 +072167000000           OCT 72167000000               PAX                                F4460350    
       00062 +072467000000    LCOPS  OCT 72467000000               PDX                                F4460360    
       00063  0 00000 0 02260 BBLYR      BBLADD                                                       F4460370    
       00064  0 00000 0 00000 BBTY                                                                    F4460380    
       00065  0 76600 0 00301 LA301  WDR 1                                                            F4460390    
       00066  0 02000 0 00575 LTRND  TRA NDDR                                                         F4460400    
       00067  0 00000 0 00000 ERAS1R                                                                  F4460410    
       00070  0 00000 0 00000 ERAS2R                                                                  F4460420    
       00071  0 00000 0 00001 IINBX      1                                                            F4460430    
       00072  0 00000 0 00000 INSX                                                                    F4460440    
       00073 -0 00001 0 00000 TGPBOX MZE 0,0,1                                                        F4460450    
       00074  0 00114 0 00000 BLKNO      0,0,76                                                       F4460460    
       00075  0 00000 0 00000 BLKSIZ                               LENGTH OF BLOCK TO BE STORED       F4460470    
       00076  0 00000 0 00000 LENGTH                               TOTAL LENGTH OF TABLE LEFT TO STOREF4460480    
       00077  0 00674 0 00000 BLKMAX     0,0,BBSIZE                     BB BLOCK SIZE IN CS           F4460490    
                                                                                                      F4460500    
                                         THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT   F4460510    
                                         ON THE DRUM.                                                 F4460520    
       00100  0 77200 0 00224 START  REW INSTTP                                                       F4460530    
       00101  0 50000 0 07777        CLA TTBOX=                                                       F4460540    
       00102 -0 73400 1 00000        PDX 0,1                       PUT LENGTH OF TABLE IN INDEX       F4460550    
       00103  3 00000 1 00111        TXH ISPRED,1,0                                                   F4460560    
       00104  0 60100 0 07776 NOPRED STO PREDBX                                                       F4460570    
       00105  0 60100 0 07775        STO SUCCBX                    THERE IS NO PRED TABLE-SPACE OVER  F4460660    
       00106  0 62100 0 02412        STA BBTABL-1                                                     F4460590    
       00107  0 62100 0 02413        STA BBTABL                                                       F4460600    
       00110  0 02000 0 00234        TRA RDBBL                                                        F4460610    
       00111  0 77100 0 00023 ISPRED ARS 19                                                           F4460620    
       00112  0 62100 0 00126        STA TSX+1                     STORE LENGTH FOR PUTTING SUCCESSOR F4460630    
       00113  0 62100 0 00217        STA TSX2+1                       AND PREDECESSOR TABLES ON DRUM  F4460640    
       00114  0 56000 1 07774 1LDQ   LDQ PRED+1,1                  MOVE SUCCESSOR ADDRESS FROM DECR.  F4460650    
       00115  0 50000 1 07774        CLA PRED+1,1                     TO ADDRESS PART OF ENTRY WORD   F4460660    
       00116  0 76700 0 00003        ALS 3                            AND COUNTER FROM ADDRESS TO     F4460670    
       00117 -0 76300 0 00022        LGL 18                           BITS 1-14                       F4460680    
       00120 -0 76000 0 00001        PBT                           TEST FOR OVERFLOW                  F4460690    
       00121  0 02000 0 00123        TRA 1STO                      NO OVERFLOW                        F4460700    
       00122 -0 50100 0 00051        ORA 14ONES                    OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710    
       00123  0 60100 1 07775 1STO   STO PRED+2,1                  STORE SHIFTED ENTRY                F4460720    
       00124  2 00002 1 00114        TIX 1LDQ,1,2                  DO NEXT ENTRY                      F4460730    
       00125  0 07400 4 00633 TSX    TSX DRUM.J,4                                                     F4460740    
 A     00126  0 00000 0 00000        HTR                           NUMBER OF ENTRIES ON TABLE         F4460750    
       00127  0 00000 0 07773        HTR PRED                      CORE MEMORY ADDRESS OF LAST WORD   F4460760    
       00130  0 00000 0 00000        HTR 0                         DRUM ADDRESS AUTOMATICALLY SET FOR F4460770    
                                                                      NEXT TRY                        F4460780    
       00131  0 50000 0 00130        CLA TSX+3                                                        F4460790    
       00132  0 60100 0 00221        STO TSX2+3                                                       F4460800    
       00133  0 60100 0 07775        STO SUCCBX                                                       F4460810    
                                                                                                      F4460820    
                                         THIS PUTS THE BASIC BLOCK NUMBER OF THE PREDECESSOR IN THE   F4460830    
                                         TRA TABLE                                                    F4460840    
       00134  0 50000 0 07774        CLA BBOX.=                                                       F4460850    
       00135  0 40200 0 00043        SUB LD1R                                                         F4460860    
       00136  0 62200 0 00151        STD NBOXR                                                        F4460870    
       00137  0 53400 2 00033        LXA LOR,2                                                        F4460880    
       00140 -0 53400 1 00043        LXD LD1R,1                    ONE INTO INDEX A                   F4460890    
       00141  0 50000 2 02412 CLABB  CLA BBTABL-1,2                GET ADDRESS IN TRA TABLE           F4460900    
       00142  0 62200 0 00145        STD TXBB                                                         F4460910    
       00143 -0 75400 2 00000        PXD 0,2                       PUT PRED NO IN TRA ENTRY           F4460920    
       00144  0 77100 0 00022        ARS 18                                                           F4460930    
 D     00145  3 00000 1 00150 TXBB   TXH NBOXR-1,1                 TEST FOR END 0F TABLE              F4460940    
       00146  0 62100 1 07774 1STD   STA PRED+1,1                                                     F4460950    
       00147  1 00002 1 00145        TXI TXBB,1,2                  SET FOR NEXT TRA                   F4460960    
       00150  1 00001 2 00151        TXI NBOXR,2,1                 SET FOR NEXT BASIC BLOCK           F4460970    
 D     00151 -3 00000 2 00141 NBOXR  TXL CLABB,2                   TEST FOR LAST BB                   F4460980    
                                                                                                      F4460990    
                                         THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE         F4461000    
                                         PREDECESSOR TABLE                                            F4461010    
       00152  1 77775 1 00153 2TXI   TXI 2TXI+1,1,-3               LAST ADDRESS IN PRED INTO I R A    F4461020    
       00153 -3 00000 1 00177        TXL PRDBB,1,0                 TEST FOR ONLY ONE ENTRY IN PRED    F4461030    
       00154 -0 75400 1 00000 LXABB  PXD 0,1                                                          F4461040    
       00155 -0 73400 2 00000        PDX 0,2                                                          F4461050    
       00156  0 50000 1 07772        CLA PRED-1,1                  TAKE ENTRIES FOR COMPARISON        F4461060    
       00157  0 56000 1 07773        LDQ PRED,1                    FIND LARGEST ELEMENT LEFT IN TABLE F4461070    
       00160  0 34000 2 07774 2CAS   CAS PRED+1,2                                                     F4461080    
       00161  0 02000 0 00173        TRA 2TIX                                                         F4461090    
       00162  0 02000 0 00173        TRA 2TIX                                                         F4461100    
       00163 -0 60000 0 00067        STQ ERAS1R                                                       F4461110    
       00164  0 56000 2 07774        LDQ PRED+1,2                  EXCHANGE ENTRIES-- STORAGE IS GREATF4461120    
       00165  0 60100 2 07774        STO PRED+1,2                                                     F4461130    
       00166  0 50000 0 00067        CLA ERAS1R                                                       F4461140    
       00167 -0 60000 0 00067        STQ ERAS1R                                                       F4461150    
       00170  0 56000 2 07775        LDQ PRED+2,2                                                     F4461160    
       00171  0 60100 2 07775        STO PRED+2,2                                                     F4461170    
       00172  0 50000 0 00067        CLA ERAS1R                                                       F4461180    
       00173  2 00002 2 00160 2TIX   TIX 2CAS,2,2                  TEST FOR END OF TABLE              F4461190    
       00174  0 60100 1 07772        STO PRED-1,1                  THIS IS LARGEST ENTRY NOT SORTED   F4461200    
       00175 -0 60000 1 07773        STQ PRED,1                       YET, STORE AND CONTINUE SORT    F4461210    
       00176  2 00002 1 00154        TIX LXABB,1,2                 HAS ENTIRE TABLE BEEN SORTED YET   F4461220    
                                                                                                      F4461230    
                                         THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE  F4461240    
                                         INTO THE BASIC BLOCK TABLE                                   F4461250    
       00177 -0 53400 2 07774 PRDBB  LXD BBOX.=,2                  PUT LAST BB ADDRESS INTO IR B      F4461260    
       00200 -0 53400 5 07777        LXD TTBOX=,5                  PUT LAST PRED ADDRESS INTO A AND C F4461270    
       00201 -0 75400 4 00000 3PXD   PXD 0,4                       NEW BB                             F4461280    
       00202  0 77100 0 00022        ARS 18                                                           F4461290    
       00203  0 62100 2 02413        STA BBTABL,2                  PUT PRED ADDR IN BB TABLE          F4461300    
       00204  1 77776 4 00205 3TXI   TXI 3TXI+1,4,-2               SET FOR NEXT ENTRY IN BB TABLE     F4461310    
       00205 -2 00001 2 00214        TNX 3ENO,2,1                  IS THIS THE END OF THE TABLE       F4461320    
       00206 -0 75400 2 00000        PXD 0,2                       PUT NEW BB NO IN AC FOR COMPARISON F4461330    
       00207  0 34000 4 07774 CAS    CAS PRED+1,4                  COMPARE BB NO IN PRED TABLE TO BB  F4461340    
       00210  0 02000 0 00201        TRA 3PXD                         NO IN AC                        F4461350    
       00211  0 76100 0 00000        NOP                           EQUALITY NOT POSSIBLE              F4461360    
       00212  2 00002 4 00207        TIX CAS,4,2                                                      F4461370    
       00213  0 62100 0 02412        STA BBTABL-1                  PUT ZERO AS PRED FOR BB1           F4461380    
       00214 -0 75400 0 00000 3ENO   PXD 0,0                       PUT ZERO AS PRED ADDR INTO TABLE   F4461390    
       00215  0 62100 0 02413        STA BBTABL                       FOR BB ZERO                     F4461400    
       00216  0 07400 4 00633 TSX2   TSX DRUM.J,4                  PUT PRED TABLE ON DRUM             F4461410    
 A     00217  0 00000 0 00000        HTR                                                              F4461420    
       00220  0 00000 0 07773        HTR PRED                      CORE MEMORY ADDRESS OF LAST WORD   F4461430    
 A     00221  0 00000 0 00000        HTR                            --DRUM ADDRESS                    F4461440    
       00222  0 50000 0 00221        CLA TSX2+3                                                       F4461450    
       00223  0 60100 0 07776        STO PREDBX                    SAVE DRUM ADDRESS                  F4461460    
                                                                                                      F4461470    
                                         THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO        F4461480    
                                         CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND        F4461490    
                                         SUCCESSOR TABLES                                             F4461500    
       00224 -0 53400 2 07774 SHFTBB LXD BBOX.=,2                  SET INDEX                          F4461510    
       00225  1 00001 2 00226        TXI CAL4,2,1                                                     F4461520    
       00226 -0 50000 2 02414 CAL4   CAL BBTABL+1,2                                                   F4461530    
       00227 -0 32000 0 00050        ANA MASK                                                         F4461540    
       00230  0 77100 0 00001        ARS 1 ,                                                          F4461550    
       00231  0 62200 2 02414        STD BBTABL+1,2                                                   F4461560    
       00232  0 62100 2 02414        STA BBTABL+1,2                                                   F4461570    
       00233  2 00001 2 00226        TIX CAL4,2,1                                                     F4461580    
                                                                                                      F4461590    
                                          THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM       F4461600    
       00234  0 50000 0 00032 RDBBL  CLA MINUS4                    INITIALIZE ERROR BOX               F4461610    
       00235  0 02000 0 00260        TRA SKIP14+3                                                     F4461620    
       00236  0 76200 0 00303 BRDS   RDS BBLDRM                                                       F4461630    
       00237  0 46000 0 00063        LDA BBLYR                                                        F4461640    
       00240 -0 53400 3 07774        LXD BBOX.=,3                                                     F4461650    
       00241  0 70000 1 07773 BCPY   CPY BBLIST,1                                                     F4461660    
       00242  2 00001 1 00241        TIX BCPY,1,1                                                     F4461670    
       00243  0 70000 0 07773        CPY BBLIST                                                       F4461680    
       00244  0 70000 0 00067        CPY ERAS1R                                                       F4461690    
       00245  0 36100 2 07773 BACL   ACL BBLIST,2                                                     F4461700    
       00246  2 00001 2 00245        TIX BACL,2,1                                                     F4461710    
       00247  0 36100 0 07773        ACL BBLIST                                                       F4461720    
       00250  0 60200 0 00070        SLW ERAS2R                                                       F4461730    
       00251  0 50000 0 00070        CLA ERAS2R                                                       F4461740    
       00252  0 40200 0 00067        SUB ERAS1R                                                       F4461750    
       00253  0 10000 0 00263        TZE TAGPAS                                                       F4461760    
       00254  0 50000 0 00030        CLA ERRBX                                                        F4461770    
       00255 -0 12000 0 00257 SKIP14 TMI SKIP14+2                  HAVE 5 TRIES AT READING BEEN MADE  F4461780    
       00256  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4461790    
       00257  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4461800    
       00260  0 60100 0 00030        STO ERRBX                                                        F4461810    
 T     00261 -0 75400 0 00000        PXD                                                              F4461820    
       00262  0 02000 0 00236        TRA BRDS                                                         F4461830    
                                                                                                      F4461840    
                                         THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS        F4461850    
       00263  0 53400 2 00033 TAGPAS LXA LOR,2                     INITIALIZE INDEX REGISTERS         F4461860    
       00264  0 53400 4 00031        LXA LA1,4                                                        F4461870    
       00265  0 50000 0 00032 RDINSR CLA MINUS4                    INITIALIZE ERROR BOX               F4461880    
       00266  0 60100 0 00030        STO ERRBX                                                        F4461890    
       00267  0 53400 1 00045        LXA TAGMK,1                                                      F4461900    
       00270  0 76200 0 00224 RDSIN  RDS INSTTP                                                       F4461910    
       00271  0 70000 1 06457 CPYN   CPY INSTR-1,1                 COPY BLOCK                         F4461920    
       00272  1 00001 1 00271        TXI CPYN,1,1                                                     F4461930    
       00273  0 02000 0 00375        TRA OUTR                      END OF FILE-EXIT                   F4461940    
       00274 -0 76000 0 00012 ENDRC  RTT                                                              F4461950    
       00275  0 02000 0 00301        TRA ERRORR                                                       F4461960    
       00276 -0 63400 1 00363 1ALXD  SXD LZINS,1                   STORE LENGTH OF RECORD TO COMPARE  F4461970    
       00277  0 53400 1 00033        LXA LOR,1                     CONTINUE TAG PASS                  F4461980    
       00300  0 02000 0 00364        TRA LZINS+1                                                      F4461990    
       00301  0 50000 0 00030 ERRORR CLA ERRBX                                                        F4462000    
       00302 -0 12000 0 00304 SKIP15 TMI SKIP15+2                  HAVE 5 TRIES AT READING BEEN MADE  F4462010    
       00303  0 07400 4 00004        TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4462020    
       00304  0 40000 0 00031        ADD LA1                          NO, TRY READING AGAIN           F4462030    
       00305  0 60100 0 00030        STO ERRBX                                                        F4462040    
       00306  0 76400 0 00224        BST INSTTP                                                       F4462050    
       00307  0 02000 0 00267        TRA RDSIN-1                   TRY AGAIN TO READ IN RECORD.       F4462060    
       00310 -0 75400 4 00000 INTBB  PXD 0,4                       PUT TAG ADDR IN BB LIST            F4462070    
       00311  0 40000 0 00073        ADD TGPBOX                                                       F4462080    
       00312  0 77100 0 00022        ARS 18                                                           F4462090    
       00313 -0 50100 0 00046        ORA TMARK                                                        F4462100    
       00314  0 60100 2 06314        STO BBTAGS,2                                                     F4462110    
       00315  1 00001 2 00316 BGTXI  TXI BGTXI+1,2,1                                                  F4462120    
       00316 -0 50000 1 06455        CAL INST.R-3,1                IS THIS THE INSTRUCTION TAGGED     F4462130    
       00317 -0 32000 0 00044        ANA STMSK                                                        F4462140    
       00320  0 10000 0 00362        TZE TXINS                     NO                                 F4462150    
       00321  0 50000 1 06455        CLA INST.R-3,1                YES,                               F4462160    
       00322 -0 32000 0 00045        ANA TAGMK                                                        F4462170    
       00323 -0 76000 0 00003        SSM                           AND A MINUS FOR 1ST INST IN A BASICF4462180    
       00324  0 60100 4 06500        STO TAG,4                        BLOCK INTO TAG LIST             F4462190    
       00325 -0 63400 2 00067 TSTOP  SXD ERAS1R,2                  SAVE INDEX                         F4462200    
       00326  0 53400 2 00037        LXA L8,2                      SET FOR A COMPARISON               F4462210    
       00327  0 50000 1 06457        CLA INST.R-1,1                COMPARE OP CODE OF INSTRUCTION     F4462220    
       00330 -0 32000 0 00047        ANA DECMKR                                                       F4462230    
       00331  0 40200 2 00063 SUB    SUB LCOPS+1,2                 OP CODES OF TYPES 0F TAGGED INSTRS F4462240    
       00332  0 10000 2 00346        TZE TROPS+1,2                 TRANSFER WHEN FOUND                F4462250    
       00333  0 40000 2 00063        ADD LCOPS+1,2                 RESTORE ORIGINAL CODE TO AC        F4462260    
       00334  2 00001 2 00331        TIX SUB,2,1                   TRY NEXT COMPARISON                F4462270    
       00335  1 00005 2 00346 LD5    TXI STOCD,2,5                 NOT FOUND-IS PASSIVE -WANT 6 IN IRBF4462280    
                                         GET CODE FOR TYPE OF INSTRUCTION INTO INDEX                  F4462290    
       00336  1 77771 2 00346        TXI STOCD,2,-7                LXA--INDEX HAS 8, WANT 1           F4462300    
       00337  1 77776 2 00346        TXI STOCD,2,-2                TXI--INDEX HAS 7, WANT 5           F4462310    
       00340  1 77777 2 00346        TXI STOCD,2,-1                TIX--INDEX HAS 6, WANT 5           F4462320    
       00341  1 77775 2 00346        TXI STOCD,2,-3                LXP--INDEX HAS 5, WANT 2           F4462330    
       00342  1 77777 2 00346        TXI STOCD,2,-1                DED--INDEX HAS 4, WANT 3           F4462340    
       00343  1 77776 2 00346        TXI STOCD,2,-2                LXD--INDEX HAS 3, WANT 1           F4462350    
       00344  1 77777 2 00346        TXI STOCD,2,-1                PAX--INDEX HAS 2, WANT 1           F4462360    
       00345  0 02000 0 00346 TROPS  TRA STOCD                     PDX--INDEX HAS 1, WANT 1           F4462370    
       00346 -0 75400 2 00000 STOCD  PXD 0,2                       STORE CODE FOR TYPE OF OPERATION INF4462380    
       00347  0 62200 4 06500        STD TAG,4                        TAG LIST                        F4462390    
       00350 -0 53400 2 00067        LXD ERAS1R,2                                                     F4462400    
       00351  1 00001 4 00352        TXI TSTTG,4,1                 SET FOR NEXT WORD IN TAG LIST      F4462410    
       00352 -2 00017 4 00362 TSTTG  TNX TXINS,4,ZTAG              TEST FOR END OF BLOCK              F4462420    
       00353  0 76600 0 00223 WRTAG  WRS TAGTAP                    END OF BLOCK--WRITE ON TAPE        F4462430    
       00354  0 70000 4 06500 TGCPY  CPY TAG,4                                                        F4462440    
       00355  1 00001 4 00356 TGTXI  TXI TGTXI+1,4,1                                                  F4462450    
       00356 -2 00017 4 00354        TNX TGCPY,4,ZTAG                                                 F4462460    
       00357  0 50000 0 00073        CLA TGPBOX                                                       F4462470    
       00360  0 40000 0 00052        ADD LZTAG                                                        F4462480    
       00361  0 60100 0 00073 TGSTO  STO TGPBOX                                                       F4462490    
       00362  1 00004 1 00363 TXINS  TXI TXINS+1,1,4                                                  F4462500    
       00363  2 00144 1 00265 LZINS  TIX RDINSR,1,ZINSTR                                              F4462510    
       00364  0 50000 1 06460        CLA INSTR,1                   IS THIS THE BEG OF A BASIC BLOCK   F4462520    
       00365  0 40200 2 07773        SUB BBLIST,2                                                     F4462530    
       00366  0 10000 0 00310        TZE INTBB                     YES                                F4462540    
       00367  0 50000 1 06455        CLA INST.R-3,1                NO, IS IT TAGGED                   F4462550    
       00370 -0 32000 0 00044        ANA STMSK                                                        F4462560    
       00371  0 10000 0 00362        TZE TXINS                     NO                                 F4462570    
       00372  0 50000 1 06455        CLA INST.R-3,1                YES                                F4462580    
       00373 -0 32000 0 00045        ANA TAGMK                                                        F4462590    
       00374  0 02000 0 00324        TRA TSTOP-1                                                      F4462600    
       00375 -0 75400 4 00000 OUTR   PXD 0,4                                                          F4462610    
       00376  0 40000 0 00073        ADD TGPBOX                                                       F4462620    
       00377  0 77100 0 00022        ARS 18                                                           F4462630    
       00400 -0 50100 0 00046        ORA TMARK                                                        F4462640    
       00401  0 60100 2 06314        STO BBTAGS,2                                                     F4462650    
       00402  3 00001 4 00405        TXH WRTG2,4,1                                                    F4462660    
       00403  0 50000 0 00073        CLA TGPBOX                                                       F4462670    
       00404  0 12000 0 00411 TPL    TPL FINAL                                                        F4462680    
       00405  0 50000 0 00404 WRTG2  CLA TPL                                                          F4462690    
       00406  0 60100 0 00361        STO TGSTO                                                        F4462700    
       00407  0 53400 4 00031        LXA LA1,4                                                        F4462710    
       00410  0 02000 0 00353        TRA WRTAG                                                        F4462720    
       00411  0 50000 0 07774 FINAL  CLA BBOX.=                                                       F4462730    
       00412  0 40000 0 00043        ADD LD1R                                                         F4462740    
       00413  0 60100 0 07774        STO BBOX.=                                                       F4462750    
       00414  0 50000 0 07776        CLA PREDBX                                                       F4462760    
       00415  0 60100 0 07777        STO BBTBOX                                                       F4462770    
       00416  0 50000 0 00047        CLA DECMKR                    WANT TXL TO HAVE BLK-1             F4462780    
       00417  0 62200 0 00545        STD TXLBBT                       LATER                           F4462790    
       00420  0 76600 0 00333        IOD                                                              F4462800    
       00421  0 56000 0 00077        LDQ BLKMAX                    COMPUTE NO. OF BB IN BLOCK         F4462810    
 T     00422 -0 75400 0 00000        PXD                                                              F4462820    
       00423  0 22100 0 00036        DVP L6R                                                          F4462830    
       00424  0 76000 0 00012        DCT                                                              F4462840    
       00425  0 07400 4 00004        TSX RDFORT,4                  BAD DIVIDE                         F4462850    
       00426 -0 60000 0 00074        STQ BLKNO                                                        F4462860    
       00427  0 56000 0 07774        LDQ BBOX.=                                                       F4462870    
       00430  0 20000 0 00036        MPY L6R                                                          F4462880    
       00431 -0 60000 0 00076        STQ LENGTH                    STORE TOTAL LNGTH OF TABLE FOR DRUMF4462890    
       00432 -0 53400 1 00031        LXD LA1,1                                                        F4462900    
       00433  0 50000 0 07777 NXTBL  CLA BBTBOX                    COMPUTE WRS ADDRESSES              F4462910    
       00434 -0 32000 0 00041        ANA L2047                                                        F4462920    
       00435  0 62100 0 00064        STA BBTY                      STORE DRUM ADDRESSES               F4462930    
       00436  0 50000 0 07777        CLA BBTBOX                                                       F4462940    
       00437  0 77100 0 00013        ARS 11                                                           F4462950    
       00440  0 40000 0 00065        ADD LA301                                                        F4462960    
       00441  0 62100 0 00525        STA WRS1                                                         F4462970    
       00442  0 40000 0 00031        ADD LA1                                                          F4462980    
       00443  0 62100 0 00576        STA NDWRS                                                        F4462990    
       00444  0 50000 0 00076        CLA LENGTH                                                       F4463000    
       00445  0 10000 0 00606        TZE OUT2                                                         F4463010    
       00446 -0 12000 0 00606        TMI OUT2                      FORM NEW TABLE LENGTH              F4463020    
       00447  0 40200 0 00077        SUB BLKMAX                                                       F4463030    
       00450  0 60100 0 00076        STO LENGTH                    IS THIS A FULL BLOCK               F4463040    
       00451 -0 12000 0 00453        TMI LSTBLR                    NO, PUT IN ACTUAL LENGTH           F4463050    
 T     00452 -0 75400 0 00000        PXD                           YES, PUT IN FULL BLOCK LENGTH      F4463060    
       00453  0 40000 0 00077 LSTBLR ADD BLKMAX                    FORM NEXT DRUM ADDRESS             F4463070    
       00454  0 77100 0 00022        ARS 18                                                           F4463080    
       00455  0 40000 0 07777        ADD BBTBOX                                                       F4463090    
       00456  0 40000 0 00031        ADD LA1                                                          F4463100    
       00457  0 60100 0 07777        STO BBTBOX                                                       F4463110    
       00460  0 53400 4 00071        LXA IINBX,4                   RESTORE INSTRUCTION REPLACED FOR   F4463120    
       00461  0 50000 0 00072        CLA INSX                         END OF PREVIOUS BLOCK           F4463130    
       00462  0 60100 4 00555        STO CPY1A,4                                                      F4463140    
       00463 -0 50000 0 00545        CAL TXLBBT                    COMPUTE NEW TEST DECREMENTS FOR    F4463150    
       00464  0 40000 0 00074        ADD BLKNO                        TESTING END OF BLOCK--THE VALUE F4463160    
       00465  0 62200 0 00545        STD TXLBBT                       IS THE NUMBER OF THE LAST BASIC F4463170    
       00466  0 62200 0 00551        STD TXL2                         BLOCK WHICH WILL FIT IN THIS BLKF4463180    
       00467  0 62200 0 00570        STD TXL3                                                         F4463190    
       00470 -0 32000 0 00047        ANA DECMKR                                                       F4463200    
       00471  0 40000 0 00043        ADD LD1R                      IS THIS LARGER THAN THE NUMBER OF  F4463210    
       00472  0 40200 0 07774        SUB BBOX.=                       THE LAST BASIC BLOCK            F4463220    
       00473 -0 12000 0 00501        TMI COMB                      NO                                 F4463230    
       00474  0 50000 0 07774        CLA BBOX.=                    YES, TEST DECREMENT SHOULD BE      F4463240    
       00475  0 40200 0 00043        SUB LD1R                         NUMBER OF LAST BB INSTEAD       F4463250    
       00476  0 62200 0 00545        STD TXLBBT                                                       F4463260    
       00477  0 62200 0 00551        STD TXL2                                                         F4463270    
       00500  0 62200 0 00570        STD TXL3                                                         F4463280    
       00501  0 50000 0 00041 COMB   CLA L2047                                                        F4463290    
       00502  0 40200 0 00064        SUB BBTY                      SET B FOR TEST FOR END OF DRUM     F4463300    
       00503  0 73400 2 00000        PAX 0,2                       NUMBER OF WORDS LEFT ON DRUM INTO BF4463310    
       00504  0 40000 0 00031        ADD LA1                                                          F4463320    
       00505  0 76500 0 00043        LRS 35                        ARRANGE CONNECTION TO 2ND LOOP     F4463330    
       00506  0 22100 0 00036        DVP L6R                       FIND OUT WHICH OF THE 6 WORDS IN   F4463340    
                                                                      AN ENTRY WILL OCCUPY THE LAST   F4463350    
                                                                      POSITION ON THE DRUM            F4463360    
       00507  0 76000 0 00012        DCT                                                              F4463370    
       00510  0 07400 4 00004        TSX RDFORT,4                  BAD DIVIDE                         F4463380    
       00511  0 40200 0 00031        SUB LA1                                                          F4463390    
       00512 -0 12000 0 00604        TMI ZREM                      BREAK IS BETWEEN ENTRIES (PUT 5    F4463400    
                                                                      INTO AC)                        F4463410    
       00513 -0 10000 0 00515        TNZ FREM                      MORE THAN ONE WORD FITS (LEAVE     F4463420    
                                                                      NO-I IN AC)                     F4463430    
       00514  0 50000 0 00034        CLA LC1                       EXACTLY 1 WORD FITS (PUT LC1 IN AC)F4463440    
       00515  0 76700 0 00001 FREM   ALS 1                         GET ADDRESS OF INSTRUCTION TO BE   F4463450    
       00516  0 76000 0 00006        COM                              REPLACED BY TRA TO 2ND LOOP     F4463460    
       00517  0 62100 0 00071        STA IINBX                     SAVE ADDRESS 0F THIS ONE           F4463470    
       00520  0 53400 4 00071        LXA IINBX,4                                                      F4463480    
       00521  0 56000 4 00555        LDQ CPY1A,4                   REPLACE PROPER INSTRUCTION WITH A  F4463490    
                                                                      TRANSFER TO TAKE CARE OF END    F4463500    
                                                                      OF DRUM SITUATION               F4463510    
       00522  0 50000 0 00066        CLA LTRND                                                        F4463520    
       00523  0 60100 4 00555        STO CPY1A,4                   STORE A TRA NDDR                   F4463530    
       00524 -0 60000 0 00072        STQ INSX                                                         F4463540    
 A     00525  0 76600 0 00000 WRS1   WRS                           SELECT DRUM                        F4463550    
 T     00526 -0 75400 0 00000        PXD                                                              F4463560    
       00527 -3 00000 2 00600        TXL LDA1,2,0                  INDEX B HAS NO. OF WORDS LEFT ON   F4463570    
                                                                      DRUM, ONLY 1 WORD FITS ON DRUM  F4463580    
       00530 -2 00006 2 00573        TNX NOBK,2,6                  LESS THAN 6 WORDS FIT              F4463590    
       00531  0 46000 0 00064        LDA BBTY                      MAIN LOOP FOR STORING BB TABLE     F4463600    
       00532  0 70000 1 02413 CPY1R  CPY BBTABL,1                  WRITE SIX WORDS OF ENTRY           F4463610    
       00533  0 36100 1 02413        ACL BBTABL,1                                                     F4463620    
       00534  0 70000 1 06314        CPY BBTAGS,1                                                     F4463630    
       00535  0 36100 1 06314        ACL BBTAGS,1                                                     F4463640    
       00536  0 70000 0 00033        CPY LOR                                                          F4463650    
       00537  0 60200 0 00067        SLW ERAS1R                                                       F4463660    
       00540  0 70000 0 00033        CPY LOR                                                          F4463670    
       00541  1 00001 1 00542        TXI CPY5,1,1                  INCREASE INDEX OF POSITION IN BBT  F4463680    
       00542  0 70000 0 00033 CPY5   CPY LOR                                                          F4463690    
       00543 -2 00006 2 00550        TNX CPY6C,2,6                 TEST FOR NEARING END OF DRUM       F4463700    
       00544  0 70000 0 00033 CPY6   CPY LOR                          (LESS THAN 6 WORDS LEFT)        F4463710    
 D     00545 -3 00000 1 00532 TXLBBT TXL CPY1R,1                                                      F4463720    
       00546  0 70000 0 00067        CPY ERAS1R                    WHOLE BLOCK FITS, COPY CHECKSUM    F4463730    
       00547  0 02000 0 00433        TRA NXTBL                                                        F4463740    
       00550  0 70000 0 00033 CPY6C  CPY LOR                                                          F4463750    
       00551 -3 00000 1 00555 TXL2   TXL CPY1A,1,XXXXXX                                               F4463760    
       00552  0 70000 0 00067        CPY ERAS1R                                                       F4463770    
       00553  0 02000 0 00433        TRA NXTBL                                                        F4463780    
 A     00554  0 00000 0 00000 DUMM   HTR                           USED IN SWITCHING AT END OF BLOCK  F4463790    
                                         ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY      F4463800    
                                         TRANSFER TO SECOND DRUM.                                     F4463810    
       00555  0 70000 1 02413 CPY1A  CPY BBTABL,1                                                     F4463820    
       00556  0 36100 1 02413        ACL BBTABL,1                                                     F4463830    
       00557  0 70000 1 06314 CPY2A  CPY BBTAGS,1                                                     F4463840    
       00560  0 36100 1 06314        ACL BBTAGS,1                                                     F4463850    
       00561  0 70000 0 00033 CPY3A  CPY LOR                                                          F4463860    
       00562  0 60200 0 00067        SLW ERAS1R                                                       F4463870    
       00563  0 70000 0 00033 CPY4A  CPY LOR                                                          F4463880    
       00564  1 00001 1 00565        TXI CPY5A,1,1                                                    F4463890    
       00565  0 70000 0 00033 CPY5A  CPY LOR                                                          F4463900    
       00566  0 76100 0 00000        NOP                                                              F4463910    
       00567  0 70000 0 00033 CPY6A  CPY LOR                                                          F4463920    
       00570 -3 00000 1 00601 TXL3   TXL CPY1B,1,XXXXXX                                               F4463930    
       00571  0 70000 0 00067 CPY7A  CPY ERAS1R                                                       F4463940    
       00572  0 02000 0 00433        TRA NXTBL                                                        F4463950    
       00573  0 46000 0 00064 NOBK   LDA BBTY                                                         F4463960    
       00574  0 02000 0 00555        TRA CPY1A                                                        F4463970    
       00575  0 53400 2 00042 NDDR   LXA L2048,2                   SELECT 2ND DRUM                    F4463980    
 A     00576  0 76600 0 00000 NDWRS  WRS                                                              F4463990    
       00577  0 02000 4 00532        TRA CPY1R,4                                                      F4464000    
       00600  0 46000 0 00064 LDA1   LDA BBTY                                                         F4464010    
       00601  0 70000 1 02413 CPY1B  CPY BBTABL,1                                                     F4464020    
       00602 -0 53400 4 00603        LXD LMLE,4                    PRESET RETURN TO MAIN LOOP         F4464030    
       00603  1 77777 0 00575 LMLE   TXI NDDR,0,-1                                                    F4464040    
       00604  0 50000 0 00035 ZREM   CLA L5                        IF DRUM ENDS WITH LAST WORD IN AN  F4464050    
       00605  0 02000 0 00515        TRA FREM                         ENTRY                           F4464060    
                                                                                                      F4464070    
                                          THIS ROUTINE WRITES BBLIST ON TAPE 3.                       F4464080    
       00606  0 77000 0 00223 OUT2   WEF BLT                                                          F4464090    
       00607 -0 53400 1 07774        LXD BBOX.=,1                                                     F4464100    
       00610  0 50000 0 07774        CLA BBOX.=                                                       F4464110    
       00611  0 77100 0 00022        ARS 18                                                           F4464120    
       00612  0 60100 0 07774        STO BBOX.=                                                       F4464130    
       00613 -0 53400 2 00616        LXD WBL2,2                                                       F4464140    
       00614  0 76600 0 00223        WRS BLT                                                          F4464150    
       00615  0 70000 2 07774 WBL1   CPY BBOX.=,2                  WRITE BB LIST                      F4464160    
       00616  1 00001 2 00617 WBL2   TXI WBL2+1,2,1                                                   F4464170    
       00617  2 00001 1 00615        TIX WBL1,1,1                                                     F4464180    
       00620  0 76400 0 00223        BST BLT                                                          F4464190    
       00621  0 76400 0 00223        BST BLT                                                          F4464200    
       00622  0 76400 0 00223        BST BLT                                                          F4464210    
       00623  0 76200 0 00223        RDS BLT                                                          F4464220    
       00624  0 53400 1 00032        LXA MINUS4,1                  MOVES KEYS FOR SECTION 5 IN        F4464230    
       00625  0 50000 1 10000 KEYS   CLA 4096,1                       8-1-4-1 SYSTEM, DOES NOTHING IN F4464240    
       00626  0 60100 1 20000        STO 8192,1                       4-1-4-1 SYSTEM.                 F4464250    
       00627  2 00001 1 00625        TIX KEYS,1,1                                                     F4464260    
       00630  0 76200 0 00221        RDS SYSTAP                                                       F4464270    
       00631  0 02000 0 00004        TRA RDFORT                                                       F4464280    
                                                                                                      F4464290    
                                         THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS  F4464300    
                                         BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON F4464310    
                                         DRUM.  CALLING SEQUENCE IS,                                  F4464320    
                                               TSX DRUM,4                                             F4464330    
                                               HTR N             N IS NUMBER OF ENTRIES IN THE TABLE  F4464340    
                                               HTR A             A IS CM ADDRESS OF LAST ENTRY IN     F4464350    
                                                                 TABLE                                F4464360    
                                               HTR D             D IS DRUM ADDRESS,0-8191             F4464370    
                                         UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE    F4464380    
                                         HTR D                                                        F4464390    
                                         A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD.    F4464400    
                                         A MUST BE GREATER THAN 1,N GETS REPLACED BY 0                F4464410    
       00632  0 00000 0 00215 GP1..J HTR BBBB.J                    ADDRESS HAS B.                     F4464420    
       00633  0 50000 4 00002 DRUM.J CLA 2,4                       SET ADDRESSES DEPENDENT ON INITIAL F4464430    
       00634  0 62100 0 00664        STA G7...J                       TABLE ADDRESS IN CORES          F4464440    
       00635  0 62100 0 00757        STA G22..J                                                       F4464450    
       00636  0 62100 0 00762        STA G17..J                                                       F4464460    
       00637  0 62100 0 00753        STA G33..J                                                       F4464470    
       00640  0 40200 0 01012        SUB TWOA.J                                                       F4464480    
       00641  0 62100 0 00760        STA G14..J                                                       F4464490    
       00642 -0 53400 1 01013 G1...J LXD GK6..J,1                  INITIALIZE INDEX 0F POSITION IN    F4464500    
       00643 -0 63400 1 00666        SXD G8...J,1                     TABLE.                          F4464510    
       00644  0 50000 4 00001 G2...J CLA 1,4                       FORM N-B                           F4464520    
       00645  0 40200 0 00632        SUB GP1..J                                                       F4464530    
       00646 -0 12000 0 00733        TMI G3...J                    IS N LARGER THAN B                 F4464540    
       00647  0 60100 4 00001        STO 1,4                       YES STORE NEW N                    F4464550    
       00650  0 50000 0 00632        CLA GP1..J                    PREPARE TO TRANSFER B WORDS        F4464560    
       00651  0 10000 4 00004 G4...J TZE 4,4                       IF NO WORDS LEFT,RETURN            F4464570    
       00652  0 60100 0 01015        STO GV2..J                                                       F4464580    
       00653 -0 53400 1 00666        LXD G8...J,1                  CURRENT INDEX TO A                 F4464590    
       00654  1 00002 1 00655 G5...J TXI G5...J+1,1,2              UP IT,IT LAGS BEHIND               F4464600    
       00655 -0 63400 1 01016        SXD GV3..J,1                                                     F4464610    
       00656  0 76700 0 00023        ALS 19                                                           F4464620    
       00657  0 40200 0 00666        SUB G8...J                    THE TXL IS NEGATIVE                F4464630    
       00660 -0 73400 2 00000        PDX 0,2                                                          F4464640    
       00661 -0 63400 2 00666        SXD G8...J,2                  SET NEW END TEST                   F4464650    
       00662  0 50000 0 01014        CLA ZERO.J                                                       F4464660    
       00663  1 00002 1 00664 G6...J TXI G6...J+1,1,2              CHECK                              F4464670    
       00664  0 36100 1 00000 G7...J ACL TABLEJ,1                                                     F4464680    
       00665  3 07775 2 00667        TXH G31..J,2,4093             SUM.                               F4464690    
       00666 -3 00000 1 00663 G8...J TXL G6...J,1,SET..J                                              F4464700    
       00667  0 60200 0 01017 G31..J SLW GV4..J                    STORE CHECK SUM                    F4464710    
       00670  0 50000 4 00003        CLA 3,4                       SPACE LEFT ON DRUM, NEGATIVE       F4464720    
       00671 -0 32000 0 01004        ANA GK1..J                                                       F4464730    
       00672  0 40200 0 01005        SUB GK2..J                                                       F4464740    
       00673  0 40000 0 01015        ADD GV2..J                    WILL BLOCK FIT                     F4464750    
       00674 -0 12000 0 00721        TMI G9...J                                                       F4464760    
       00675  0 60100 0 01021 G20..J STO GV6..J                    NO,STO. AMOUNT LEFT OVER           F4464770    
       00676  0 40200 0 01015        SUB GV2..J                                                       F4464780    
       00677  0 76000 0 00003        SSP                           IN AC IS DRUM SPACE                F4464790    
       00700  0 60100 0 01015        STO GV2..J                                                       F4464800    
       00701  0 76700 0 00023        ALS 19                                                           F4464810    
       00702  0 40000 0 01016        ADD GV3..J                    FORM INITIALIZING INDEX            F4464820    
       00703 -0 73400 2 00000        PDX 0,2                          FOR 2ND HALF                    F4464830    
       00704 -0 53400 1 01016        LXD GV3..J,1                  LOAD BEFORE STORING BACK           F4464840    
       00705 -0 63400 2 01016        SXD GV3..J,2                                                     F4464850    
       00706  1 77776 2 00707 G30..J TXI G30..J+1,2,-2             END TEST IS 2 LESS                 F4464860    
       00707 -0 63400 2 00763        SXD G23..J,2                                                     F4464870    
       00710  0 50000 0 01007        CLA GK4..J                    DRUM SELECTION ROUTINE             F4464880    
       00711  0 07400 2 00770        TSX G11..J,2                  ALS0 STORES SWITCH                 F4464890    
       00712  0 02000 0 00744        TRA G15..J                                                       F4464900    
       00713  0 50000 4 00003 G24..J CLA 3,4                                                          F4464910    
       00714  0 40200 0 01010        SUB ONEA.J                                                       F4464920    
       00715  0 60100 4 00003        STO 3,4                       SET BLOCK LENGTH TO NO. OF         F4464930    
       00716  0 50000 0 01021        CLA GV6..J                       WORDS LEFT.                     F4464940    
       00717  0 60100 0 01015        STO GV2..J                                                       F4464950    
       00720  0 02000 0 00737        TRA G10..J                                                       F4464960    
       00721  0 40000 0 01010 G9...J ADD ONEA.J                    DOES SUM CHECK FIT TOO             F4464970    
       00722 -0 12000 0 00737        TMI G10..J                                                       F4464980    
       00723  0 50000 0 01006 G19..J CLA GK3..J                    NO                                 F4464990    
       00724  0 07400 2 00770        TSX G11..J,2                                                     F4465000    
       00725  0 40000 0 01010        ADD ONEA.J                    ARRANGE TO PUT CK SUM              F4465010    
       00726  0 62100 0 00730        STA G25..J                       ON NEXT DRUM                    F4465020    
       00727  0 02000 0 00741        TRA G12..J                                                       F4465030    
       00730  0 76600 0 00000 G25..J WRS SET..J                                                       F4465040    
       00731  0 70000 0 01017 G26..J CPY GV4..J                    COPY CHECK SUM.                    F4465050    
       00732  0 02000 0 00644        TRA G2...J                                                       F4465060    
       00733  0 56000 0 01014 G3...J LDQ ZERO.J                    RECORD THAT THERE ARE NO WORDS LEFTF4465070    
       00734  0 50000 4 00001        CLA 1,4                                                          F4465080    
       00735 -0 60000 4 00001        STQ 1,4                                                          F4465090    
       00736  0 02000 0 00651        TRA G4...J                                                       F4465100    
       00737  0 50000 0 00731 G10..J CLA G26..J                    SUM CK. FITS TOO                   F4465110    
       00740  0 07400 2 00770        TSX G11..J,2                                                     F4465120    
       00741  0 50000 0 00666 G12..J CLA G8...J                                                       F4465130    
       00742  0 62200 0 00763        STD G23..J                    SET END TEST                       F4465140    
       00743 -0 53400 1 01016        LXD GV3..J,1                                                     F4465150    
       00744  0 50000 0 01015 G15..J CLA GV2..J                                                       F4465160    
       00745  0 76000 0 00001        LBT                           IS BLOCK LENGTH ODD                F4465170    
       00746  0 02000 0 00766        TRA G13..J                    NO                                 F4465180    
       00747  0 56000 0 01010        LDQ ONEA.J                                                       F4465190    
       00750  0 04000 0 00755        TLQ G32..J                    IS IT EQUAL TO ONE                 F4465200    
       00751  0 46000 0 01020        LDA GV5..J                    YES, TRANSFER THE SINGLE WORD      F4465210    
       00752  1 00002 1 00753 G34..J TXI G34..J+1,1,2                                                 F4465220    
       00753  0 70000 1 00000 G33..J CPY TABLEJ,1                                                     F4465230    
       00754  0 02000 0 00764        TRA G18..J                                                       F4465240    
       00755  0 46000 0 01020 G32..J LDA GV5..J                    COPY WORDS 0NTO THE DRUM           F4465250    
       00756  1 00002 1 00757 G27..J TXI G27..J+1,1,2                                                 F4465260    
       00757  0 70000 1 00000 G22..J CPY TABLEJ,1                                                     F4465270    
       00760  0 70000 1 77776 G14..J CPY TABLEJ-2,1                                                   F4465280    
       00761  1 00004 1 00762 G16..J TXI G16..J+1,1,4                                                 F4465290    
       00762  0 70000 1 00000 G17..J CPY TABLEJ,1                                                     F4465300    
 D     00763 -3 00000 1 00760 G23..J TXL G14..J,1                                                     F4465310    
       00764  0 70000 0 01017 G18..J CPY GV4..J                    OR TRA G25 OR TRA G24              F4465320    
       00765  0 02000 0 00644        TRA G2...J                                                       F4465330    
       00766  0 46000 0 01020 G13..J LDA GV5..J                                                       F4465340    
       00767  0 02000 0 00760        TRA G14..J                                                       F4465350    
                                                                                                      F4465360    
                                         DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS          F4465370    
       00770  0 60100 0 00764 G11..J STO G18..J                    STORE SWITCH WORD.                 F4465380    
       00771  0 50000 4 00003        CLA 3,4                       PRESERVE DRUM ADDRESS              F4465390    
       00772  0 60100 0 01020        STO GV5..J                                                       F4465400    
       00773  0 40000 0 01015        ADD GV2..J                    FORM THE NEW DRUM ADDRESS          F4465410    
       00774  0 40000 0 01010        ADD ONEA.J                                                       F4465420    
       00775  0 60100 4 00003        STO 3,4                                                          F4465430    
       00776  0 50000 0 01020        CLA GV5..J                    SELECT THE DRUM                    F4465440    
       00777  0 77100 0 00013        ARS 11                                                           F4465450    
       01000  0 40000 0 01011        ADD GK5..J                                                       F4465460    
       01001  0 60100 0 01002        STO G21..J                                                       F4465470    
 A     01002  0 76600 0 00000 G21..J WRS                                                              F4465480    
       01003  0 02000 2 00001        TRA 1,2                                                          F4465490    
                                                                                                      F4465500    
                                         FOLLOWING ARE THE CONSTANTS USED                             F4465510    
       01004  0 00000 0 03777 GK1..J     2047                                                         F4465520    
       01005  0 00000 0 04000 GK2..J     2048                                                         F4465530    
       01006  0 02000 0 00730 GK3..J TRA G25..J                                                       F4465540    
       01007  0 02000 0 00713 GK4..J TRA G24..J                                                       F4465550    
       01010  0 00000 0 00001 ONEA.J     1                                                            F4465560    
       01011  0 76600 0 00301 GK5..J WDR 1                                                            F4465570    
       01012  0 00000 0 00002 TWOA.J     2                                                            F4465580    
       01013  0 77774 0 00000 GK6..J     0,0,-4                                                       F4465590    
       01014  0 00000 0 00000 ZERO.J                                                                  F4465600    
                                         VARIABLES OR TEMPORARY STORAGE                               F4465610    
       01015  0 00000 0 00000 GV2..J                               LENGTH OF BLOCK                    F4465620    
       01016  0 00000 0 00000 GV3..J                               INDEX OF LAST WORD IN BLOCK        F4465630    
       01017  0 00000 0 00000 GV4..J                               SUM CHECK                          F4465640    
       01020  0 00000 0 00000 GV5..J                               OLD DRUM ADDRESS                   F4465650    
       01021  0 00000 0 00000 GV6..J                               REMAINING BLOCK LENGTH             F4465660    
                        00000 TABLEJ SYN 0                                                            F4465670    
                        00000 SET..J SYN 0                                                            F4465680    
                                                                                                      F4465690    
                                                                                                      F4465700    
 A                      00000        END                                                              F4465710    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    2683           0           0           0           0
 LIB       0           0           0           0           0
 COL    2683           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     2692                  
0NUMBER OF SYMBOLS,  DEF   774,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN II, SECTION V, TAG ANALYS1S, 4-1-6-2             F5G00010    
1                                        704 FORTRAN II, SECTION V, TAG ANALYS1S, 4-1-6-2             F5G00010    
                                         DAVID STERNLIGHT      I.B.M. WORLD HEADQUARTERS  5 NOV 58.   F5G00020    
                                                            INTRODUCTION                              F5G00030    
                                         THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM   F5G00040    
                                         USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050    
                                         REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON    F5G00060    
                                         INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070    
                                         INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE   F5G00080    
                                         REPLACED.  THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090    
                                         REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECIION5.F5G00100    
                                         THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPIRG     F5G00110    
                                         INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120    
                                         3 1NDEX REGISTERS CONTAIN THE PROPER 1RFORMATION AT ALL      F5G00130    
                                         TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS.      F5G00140    
                                         GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL    F5G00150    
                                         MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND   F5G00160    
                                         NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT  F5G00170    
                                         CONCERN ABOUT WHAT IS WIPED OUT.   THE SKILLFUL PLACEMENT OF F5G00180    
                                         THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5.            F5G00190    
                                         THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS,   F5G00200    
                                         PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210    
                                         ED BY SECTION 4.  THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220    
                                         BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION.     F5G00230    
                                         SECTION 5 ANALYSES THE OBJECT PROGRAM BY START1NG WITH THE   F5G00240    
                                         HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD    F5G00250    
                                         ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS.  THE AREA FORM-F5G00260    
                                         ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS  F5G00270    
                                         CALLED A LOOPLIST.  THIS IS TREATED TO REDUCE THE NUMBER OF  F5G00280    
                                         INDEX REGISTERS TO 3, IS THER CALLED A REGION, AND CAN ENTER F5G00290    
                                         FUTURE LOOPLISTS.  THE LOOPLIST PROCESS IS CONTINUED,        F5G00300    
                                         CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM  F5G00310    
                                         BY THE INCLUSION OF ALREADY TREATED REGIONS IN  THE CURRENT  F5G00320    
                                         LOOPLIST WHERE APPRORRIATE TO THE FLOW OF THE PROGRAM.  THESEF5G00330    
                                         REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340    
                                         END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350    
                                         FINALLY THE ENT1RE PROGRAM HAS BEEN TREATED.  A FURTHER PRIN-F5G00360    
                                         CIPLE USED BY SECT1ON 5 IS TO COMPILE THE UPDAT1NG SX,S AS   F5G00370    
                                         LATE AS POSS1BLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,     F5G00380    
                                         SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUERCY  F5G00390    
                                         OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS  F5G00400    
                                         OF THE SX.                                                   F5G00410    
                                         LPLST IS FORMED IN CORES BV SECTION 5 PART 1.  IT SUMMARIZES F5G00420    
                                         EACH NEW REGION TO BE TREATED.  PREFIX CODES ARE 2=OPAQUE    F5G00430    
                                         REGION,  1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER   F5G00440    
                                         FREE) AND PREFIX CODE 0=BASIC BLOCKS.  THE BB NUMBER         F5G00450    
                                         IS CONTAINED IN THE DECREMENT OR ADDRESS.  77777 INDICATE.   F5G00460    
                                         LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470    
                                         OF REGION, SPECIFIED BY BB NUMBER.  000000 INDICATES NOTHING F5G00480    
                                         INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR     F5G00490    
                                         ADDRESS.  A WORD OF FULL BB,ENS, CALLED SENTINEL, TERMINATES F5G00500    
                                         LPLST.  THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST   F5G00510    
                                         BEFORE TREATMENT LIKE                                        F5G00520    
                                         277777 000014                                                F5G00530    
                                         000023 000000                                                F5G00540    
                                         100026 000033                                                F5G00550    
                                         200003 777777                                                F5G00560    
                                         777777 777777.                                               F5G00570    
                                         THIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580    
                                         BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM     F5G00590    
                                         BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3,      F5G00600    
                                         TERMINATING THIS LPLST.  WHEN TREATED, THIS ENTIRE LPLST     F5G00610    
                                         BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS   F5G00620    
                                         AND BB,S IN IT, WHICH WILL DISAPPEAR.                        F5G00630    
                                         REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION.  PREFIX F5G00640    
                                         INDICATES EXISTENCE IN REGION OF LX,S TO THE IR,S ,          F5G00650    
                                         DECREMENT=FIRST BB NO. IN REGION,  TAG BITS=EMPTINESS        F5G00660    
                                         THROUGHOUT REGION OF IR,S.                                   F5G00670    
                                              INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM.      F5G00680    
                                         SUCC IS FIRST DRUM TABLE.  IT IS PREPARED BY SECTION 4,      F5G00690    
                                         ORDERED ON BB NUMBER.  IT IS PING PONGED BETWEEN DRUM AND    F5G00700    
                                         CORES BY THE SE6 ROUTINE.                                    F5G00710    
                                         THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720    
                                         IS TREATED.  BITS 1-14=FREQUENCY OF LINK,  ADDRESS=NO. OF    F5G00730    
                                         SUCCESSOR BASIC BLOCK.                                       F5G00740    
                                         PRED IS THE SECOND DRUM TABLE.  IT IS PREPARED BY SECTION 4. F5G00750    
                                         PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760    
                                         CORES BY THE SE5 R0UTINE.                                    F5G00770    
                                         WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED.          F5G00780    
                                         BITS 1-14=FREQUENCY OF LINK.  BITS 15-17 CALL FOR LX,S TO    F5G00790    
                                         THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800    
                                         PRIATE INDEX CELLS.  THESE SX,S WILL LATER BE COMPILED       F5G00810    
                                         BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5.  THE ADDRESS    F5G00820    
                                         CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK.          F5G00830    
                                         BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4.   F5G00840    
                                         THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850    
                                         THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860    
                                         WORD FORMAT FROM SECTION 4.  FIRST WORD DECR=STARTING POINT  F5G00870    
                                         IN SUCC,  ADDRESS=STARTING POINT IN PRED OF ENTRIES          F5G00880    
                                         REFERRING TO THIS BASIC BLOCK.  FIRST WORD PREFIX CONTAINS   F5G00890    
                                         CODE DESCRIBING TYPE OF ENDING BB HAS.  CODING IS....        F5G00900    
                                         000=DO WITH AN IF,  001=MSE,  010=PROBABILITY BRANCH         F5G00910    
                                         011=CERTAINTY BRANCH,  100=DO WITHOUT AN IF,  101=GO TO N,   F5G00920    
                                         110=STOP.  SECOND WORD, BITS 12-17=PERMUTATION NUMBERS,      F5G00930    
                                         INITIALIZED TO 33 BY SECTION 4.  ADDRESS=ORDINAL NUMBER OF   F5G00940    
                                         FIRST TAGLIST ENTRY BELONGING TO THIS BB.  REMAINING WORDS   F5G00950    
                                         INITIALIZED TO ZEROES BY SECTION 4.                          F5G00960    
                                         IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE.  SECOND WORD  F5G00970    
                                         BITS S-2 INDICATE IR ACTIVITY IN THIS BB.  PERMUTATION NOS.  F5G00980    
                                         MAY UNDERGO CHANGE.  WORDS 3-5 RECORD ENTRY AND EXIT CONDS.  F5G00990    
                                         FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS.      F5G01000    
                                         WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO.           F5G01010    
                                         ADDRESS=NUMBER OF NEXT BB IN REGION.                         F5G01020    
                                         STAG IS THE F0URTH DRUM TABLE.  INITIALIZED TO ZEROES AT SEC.F5G01030    
                                         5 PART 1 START.  ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040    
                                         IS MADE IN SECTI0N 5 PART 1 AN0 READ IN PART 4.  BITS S-8    F5G01050    
                                         CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION,  BITS 9-17 F5G01060    
                                         FOR AN LX FOLLOWING.  BITS 18-35 IN PAIRS SPECIFY THE INDEX  F5G01070    
                                         REGISTER TAGLIST INSTRUCTION IS TO USE.  THUS PRED RECORDS   F5G01080    
                                         INTER BB LX,S AND SX,S AND STAG RECORDS INTRA-BB LX,S AND    F5G01090    
                                         SX,S.  STAG IS HANDLED BY THE SE4 ROUTINE.                   F5G01100    
                                         CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD        F5G01110    
                                         FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTION      F5G01120    
                                         CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE       F5G01130    
                                         SYMBOLIC ADDRESS, AS FOLLOWS,   BITS 24-26 CONTAIN TAU 1,2,  F5G01140    
                                         OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150    
                                         TAU TABLE.  NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160    
                                         INDEX CELLS IS, TAU 1=G,  TAU 2=10, TAU 3=1G, AND THIS       F5G01170    
                                         SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY.  THUS A       F5G01180    
                                         TAGLIST ENTRY IN THE ADORESS OF 003005 BECOMES 1G5, THAT IS, F5G01190    
                                         TAU 3, ENTRY 5.  THE INSTRUCTION CLASSES AS FOLLOWS,  IN DECRF5G01200    
                                         L=LXA,LXD,PAX,PDX.   2=LXP.  3=DED.  4 IS UNUSED BUT AVAIL.  F5G01210    
                                         FOR TNX.  5=ACTIVE INSTR LIKE TIX AND TXI.  6=PASSIVE INSTR. F5G01220    
                                         A PASSIVE INSTR IS A TAGGED INSTR THAT 0OES NOT CHANGE THE   F5G01230    
                                         CONTENTS OF THE INDEX REGISTER.  7=UNUSED BUT AVAIL. FOR TIX.F5G01240    
                                         WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A      F5G01250    
                                         TRANSFER, NOT AN ACTIVE TIX.  ACTIVE INSTRUCTIONS MAY        F5G01260    
                                         BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q  F5G01270    
                                         WHERE Q IS SOME CONSTANT.                                    F5G01280    
                                         CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290    
                                         IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS.                F5G01300    
                                         GIVING DRUM TABLE LENGTHS.  TAPE TABLES USED FOR INPUT       F5G01310    
                                         INCLUDE TAGLIST AND CIT.  INTERMEDIATE TABLES INCLUDE THE    F5G01320    
                                         ABOVE AND STAG, LPLST, CMTAG, AND REG.  CMTAG IS A CORE      F5G01330    
                                         BUFFER FOR TAGLIST.  THE DRUM TABLES ALSO APPEAR IN CORE     F5G01340    
                                         IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN    F5G01350    
                                         COMBINATION OF THE FACTORS OF LENGTH AND COMPLEXITY OF       F5G01360    
                                         TRANSFER STRUCTURE.  OUTPUT TABLES INCLU0E CIT ON TAPE.      F5G01370    
                                         TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE.  IT IS AF5G01380    
                                         SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM INSTRUCTIONS    F5G01390    
                                         RESULTING FROM SECTION 3.  EACH ENTRY IS ONE WORD.  THE      F5G01400    
                                         PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS     F5G01410    
                                         CONTAINS SYMBOLIC INDEX REGISTER,S NAME.                     F5G01420    
                                              BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM       F5G01430    
                                         TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER       F5G01440    
                                         COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING.      F5G01450    
                                         IN ADDITION, SENSE SWITCH 4, WHEN DOWN, PROVIOES UP TO       F5G01460    
                                         20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT   F5G01470    
                                         A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PR0GRAM          F5G01480    
                                         EFFICIENCY.  THIS SENSE SWITCH HAS NO EFFECT ON SHORTER      F5G01490    
                                         PROGRAMS.                                                    F5G01500    
                                              IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE,    F5G01510    
                                         SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST   F5G01520    
                                         BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED  F5G01530    
                                         ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END  F5G01540    
                                         OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED.         F5G01550    
                                         IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN      F5G01560    
                                         THE FOLLOWING PARAMETER LIST MUST BE CHANGED.                F5G01570    
                                                      4-1-6-2 PARAMETER LIST                          F5G01580    
                        10000  MSIZE EQU 4096              4-1-6-2 MEMORY SIZE                        F5G01590    
                        00062    FP1 EQU 50                4-1-6-2 REG TABLE SIZE                     F5G01600    
                        00036   S3P1 EQU 30                4-1-6-2 LPLST TABLE SIZE                   F5G01610    
                        00062    STL EQU 50                4-1-6-2 STAG LENGTH                        F5G01620    
                                                   FIXED PARAMETER LIST, INDEP. OF CORESIZE           F5G01670    
                        07774   KEYS SYN MSIZE-4           CONSTANTS TO RELATE PROGRAM T0 TABLES      F5G01680    
                                         ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLL0WED BY   F5G01690    
                                         PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V.        F5G01700    
                                         THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER 0F BBS,  F5G01710    
                                         KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG.  F5G01720    
                        00004 INSTTP EQU 4                 COMPILED INST ON TAPE 4                    F5G01730    
                        00003   TAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01740    
                        00003  OTAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01750    
                        00003    BLT EQU 3                 BLOCK LIST ON TAPE 3                       F5G01760    
                        00002  ACTPE EQU 2                 ASSIGN CONSTANTS ON TAPE 2                 F5G01770    
                        00001  RECNO EQU 1                 NO OF CIT RECORDS IN AT ONE TIME           F5G01780    
                        00144  ZINST EQU RECNO*100         LENGTH 0F INST TABLE                       F5G01790    
                        00144  LCLST EQU 100               LENGTH 0F OUTPUT BLOCK, COMPILED INSTR     F5G01800    
                        00200   NSXD EQU 128               NO. OF SXD CASES IN SXD LIST               F5G01810    
                        00024   PTL1 EQU 20                SPACE FOR PATCHES, PART 1                  F5G01811    
                        00051   PTL2 EQU 41                SPACE FOR PATCHES, PART 2.                 F5G01812    
                        00052   PTL3 EQU 42                SPACE FOR PATCHES, PART 3                  F5G01813    
                        00042  PTL4  EQU 34                SPACE FOR PATCHES, PART 4.                 F5G01814    
                        00000    SET EQU 0                 INITIAL DRUM ADDRESS                       F5G01820    
                        00000      K EQU 0                 INITIAL DRUM ADDRESS                       F5G01830    
                                                 EDITOR RECORD NO. 75                                 F5G01840    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G01850    
                                               NO DIAGN0STIC CALLER FOLLOWS                           F5G01870    
                                                           PART 1A                                    F5G01880    
                                         OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N,           F5G01890    
                                         INSTRUCTION COMPILATION.                                     F5G01900    
                        00030        ORG 24                                                           F5G01910    
                                             ROUTINE T0 TRANSFER NEXT                                 F5G01920    
                                               PROGRAM PART                                           F5G01930    
       00030  0 76200 0 00221 R      RTB 1  SKIP DIAGNOSTIC                                           F5G01940    
       00031  0 02000 0 00004        TRA 4   READ NEXT PROGRAM RECORD                                 F5G01950    
                                         THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES   F5G01960    
                                         SUCC, PRED, BBB, AND STAG.  THEY ARE ENTERED WITH THE WANTED F5G01970    
                                         ITEM IN THE AC.  THEY LOAD IX1 FOR IMMEDIATE REFERENCE TO THEF5G01980    
                                         STATED ITEM.  AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990    
                                         THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES.  IF THE   F5G02000    
                                         ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM        F5G02010    
                                         MANIPULATION IS NECESSARY.                                   F5G02020    
       00032  0 76700 0 00022 SE4    ALS 18                                                           F5G02030    
       00033 -0 32000 0 00303        ANA SEK4                                                         F5G02040    
       00034  0 07400 2 00101        TSX SE21,2                                                       F5G02050    
                                          PARAMETERS FOR STAG TABLE                                   F5G02060    
       00035  0 00000 0 00000 STAGP  HTR 0 N(0)                                                       F5G02070    
       00036  0 00000 0 00000        HTR 0 N(1)                                                       F5G02080    
       00037  0 00062 0 00000        HTR 0,0,STAGL N(S)                                               F5G02090    
       00040  0 00000 0 00000        HTR 0,0,SET N(L)                                                 F5G02100    
       00041  0 00000 0 00001        HTR 1 S                                                          F5G02110    
       00042  0 00000 0 00000        HTR SET D(0)                                                     F5G02120    
       00043  0 00000 0 05061        HTR STAG A                                                       F5G02130    
                                          PARAMETERS FOR SUCC. TABLE                                  F5G02140    
       00044 -0 32000 0 00303 SE6    ANA SEK4                                                         F5G02150    
       00045  0 07400 2 00101        TSX SE21,2                                                       F5G02160    
       00046  0 00000 0 00000  SUCCP HTR 0              N(0)                                          F5G02170    
       00047 -000000000001           OCT -1 NI1I                                                      F5G02180    
       00050  0 00215 0 00000        HTR 0,0,SUCCL N(S)                                               F5G02190    
       00051  0 00000 0 00000        HTR SET N(L)                                                     F5G02200    
       00052  0 00000 0 00001        HTR 1 S                                                          F5G02210    
       00053  0 00000 0 00000        HTR 0 D(0)                                                       F5G02220    
       00054  0 00000 0 07555        HTR SUCC A                                                       F5G02230    
                                           PARAMETERS FOR PRED. TABLE                                 F5G02240    
       00055  0 76700 0 00022 SE5    ALS 18                                                           F5G02250    
       00056 -0 32000 0 00303        ANA SEK4                                                         F5G02260    
       00057  0 07400 2 00101        TSX SE21,2                                                       F5G02270    
       00060  0 00000 0 00000  PREDP HTR 0              N(0)                                          F5G02280    
       00061 -000000000001           OCT -1 N(1)                                                      F5G02290    
       00062  0 00215 0 00000        HTR 0,0,PREDL N(S)                                               F5G02300    
       00063  0 00000 0 00000        HTR SET NIL)                                                     F5G02310    
       00064  0 00000 0 00001        HTR 1 S                                                          F5G02320    
       00065  0 00000 0 00000        HTR SET D(0)                                                     F5G02330    
       00066  0 00000 0 07337        HTR PRED A                                                       F5G02340    
                                           PARAMETERS FOR BBB TABLE                                   F5G02350    
       00067  0 76700 0 00022 SE1    ALS 18 BB NO. IN ADDR.                                           F5G02360    
       00070 -0 32000 0 00303 SE     ANA SEK4 BB NO. IN DECR.                                         F5G02370    
       00071  0 07400 2 00101        TSX SE21,2                                                       F5G02380    
       00072  0 00000 0 00000  BBBP  HTR 0              N(0) IN DECR. 1ST BB IN CM                    F5G02390    
       00073 -000000000001           OCT -1 N(1) IN DECR,LAST BB IN CM +1                             F5G02400    
       00074  0 00112 0 00000        HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM                    F5G02410    
       00075  0 00000 0 00000        HTR SET N(L) IN DECR,NO. OF BBS                                  F5G02420    
       00076  0 00000 0 00006        HTR 6 S IN ADDR.,NO. OF WDS PER BB                               F5G02430    
       00077  0 00000 0 00000        HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR.                         F5G02440    
       00100  0 00000 0 06442        HTR BBB A IN AOOR.,INITIAL CM ADDR                               F5G02450    
                                           2 ED PARAMETER IS + OR - ACCORDING                         F5G02460    
                                           AS CM BLOCK IS FULL OR EMPTY                               F5G02470    
                                           SR FOR SHUFFLING TABLES TO AND FROM DRUM                   F5G02480    
       00101  0 60100 0 00306 SE21   STO SEV2 STJ=S 1TEM NO.,X                                        F5G02490    
       00102  0 34000 2 00002        CAS 2,2 IS N .X CM                                               F5G02500    
       00103  3 00000 0 00000        TXH -,-,-                                                        F5G02510    
       00104 -3 00000 0 00106        TXL SE42,0,-                                                     F5G02520    
       00105  0 02000 0 00156        TRA SE41 POSSIBLY                                                F5G02530    
       00106 -0 63400 4 00311 SE42   SXD SEV5,4 NO,STORE RETURN INDEX                                 F5G02540    
       00107  0 50000 2 00002        CLA 2,2                                                          F5G02550    
       00110 -0 12000 0 00120        TMI SE35 IS CM BLOCK EMPTY                                       F5G02560    
       00111  0 07400 4 00262        TSX SE22,4 NO,FORM CHECK SUM                                     F5G02570    
       00112  0 50000 0 00273        CLA SE23                                                         F5G02580    
       00113  0 62100 0 00115        STA SE24 STORE                                                   F5G02590    
       00114  0 50000 0 00307        CLA SEV3 CHECK                                                   F5G02600    
       00115  0 60100 0 00000 SE24   STO SET SUM                                                      F5G02610    
       00116  0 50000 0 00277        CLA SEK                                                          F5G02620    
       00117  0 07400 4 00166        TSX SE26,4                                                       F5G02630    
       00120  0 50000 0 00314 SE35   CLA ZERO                                                         F5G02640    
       00121  0 56000 0 00306        LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S)                            F5G02650    
       00122  0 22100 2 00003        DVP 3,2                                                          F5G02660    
       00123  0 20000 2 00003        MPY 3,2                                                          F5G02670    
       00124 -0 60000 2 00001        STQ 1,2 N(1)=MIN (N (0)+N(S),N(L))                               F5G02680    
       00125  0 50000 2 00001        CLA 1,2                                                          F5G02690    
       00126  0 40000 2 00003        ADD 3,2                                                          F5G02700    
       00127  0 56000 2 00004        LDQ 4,2                                                          F5G02710    
       00130 -0 60000 2 00002        STQ 2,2                                                          F5G02720    
       00131  0 04000 0 00133        TLQ SE36                                                         F5G02730    
       00132  0 60100 2 00002        STO 2,2                                                          F5G02740    
       00133  0 50000 0 00300 SE36   CLA SEK1 TRANSFER IN A                                           F5G02750    
       00134  0 07400 4 00166        TSX SE26,4 BLOCK OF THE TABLE                                    F5G02760    
       00135  0 07400 4 00262        TSX SE22,4 CHECK SUM                                             F5G02770    
       00136  0 50000 0 00273        CLA SE23 COMPARE                                                 F5G02780    
       00137  0 62100 0 00140        STA SE37 CHECK                                                   F5G02790    
       00140  0 50000 0 00000 SE37   CLA SET SUMS                                                     F5G02800    
       00141  0 34000 0 00307        CAS SEV3                                                         F5G02810    
       00142  0 02000 0 00144 SE45   TRA SE43                                                         F5G02820    
       00143  0 02000 0 00152        TRA SE40 AGREE                                                   F5G02830    
       00144 -0 53400 4 00151 SE43   LXD TPCT,4     REPEAT 5 TIMES                                    F5G02840    
       00145  1 00001 4 00146        TXI SE44,4,1                                                     F5G02850    
       00146 -0 63400 4 00151 SE44   SXD TPCT,4                                                       F5G02860    
       00147 -3 00004 4 00133        TXL SE36,4,4           TRY AGAIN                                 F5G02870    
       00150  0 07400 4 00004        TSX 4,4      TRIEO 5 TIMES GO TO DIAGNOSTIC                      F5G02880    
                                         NOTE ON TH1S 150 STOP.  THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890    
                                         BY MACHINE ERROR.                                            F5G02900    
                                         IF IX 2 CONTAINS       TABLE 1S  AND CHECK                   F5G02910    
                                         77744                  STAG      40                          F5G02920    
                                         77732                  SUCC      51         ALL              F5G02930    
                                         77721                  PRED      63        OCTAL             F5G02940    
                                         77707                  BBB       75                          F5G02950    
                                         TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS             F5G02960    
                                         THAN THE CONTENTS OF 306 OCTAL.  IF SO, SOURCE PROGRAM, RATH-F5G02970    
                                         ER THAN MACHINE ERROR IS LIKELY.  THE ERROR COULD BE         F5G02980    
                                         A.  TRANSFER TO A NON-EXECUTABLE INSTRUCTIOR.                F5G02990    
                                         B.  UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM.           F5G03000    
                                         C.  LAST STATEMENT OF A DO IS A TRANSFER.                    F5G03010    
                                         D.  INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT.    F5G03020    
       00151  0 00000 0 00000  TPCT  HTR -                                                            F5G03030    
       00152 -0 63400 0 00151 SE40   SXD TPCT,0     RESET TARECOUNT                                   F5G03040    
       00153 -0 53400 4 00311        LXD SEV5,4 RESTORE RETURN INDEX                                  F5G03050    
       00154  0 50000 0 00306        CLA SEV2 GET N AGANIN                                            F5G03060    
       00155  0 02000 0 00156        TRA SE41                                                         F5G03070    
                                          THE ITEM MIGHT BE IN STORAGE                                F5G03080    
       00156  0 40200 2 00001 SE41   SUB 1,2 N-N(0)                                                   F5G03090    
       00157 -0 12000 0 00106        TMI SE42 DOES IT LIE IN STORAGE                                  F5G03100    
       00160  0 76500 0 00043        LRS 35 YES,INDEX=                                                F5G03110    
       00161  0 20000 2 00005        MPY 5,2 COM((N-N(0).S)                                           F5G03120    
       00162  0 76300 0 00021        LLS 17                                                           F5G03130    
       00163  0 40200 0 00304        SUB SEK5                                                         F5G03140    
       00164  0 73400 1 00000        PAX 0,1                                                          F5G03150    
       00165  0 02000 4 00001        TRA 1,4                                                          F5G03160    
                                          DRUM TRANSFER SUBROUTINE PROPER                             F5G03170    
       00166 -0 63400 4 00310 SE26   SXD SEV4,4 STORE RETURN INDEX ANO ITEM NO. TO BE TRANSFERRED     F5G03180    
       00167  0 60100 0 00260        STO SE25 STORE READ-WRITE INDICATOR                              F5G03190    
       00170  0 56000 2 00003        LDQ 3,2 FORM                                                     F5G03200    
       00171  0 20000 2 00005        MPY 5,2 N(S)*S+1                                                 F5G03210    
       00172  0 76300 0 00021        LLS 17 ANO                                                       F5G03220    
       00173  0 40000 0 00315        ADD ONEA STORE                                                   F5G03230    
       00174  0 60100 0 00305        STO SEV1 IT                                                      F5G03240    
       00175  0 50000 0 00314        CLA ZERO FORM                                                    F5G03250    
       00176  0 56000 2 00001        LDQ 1,2 ((N(0)/N(S))                                             F5G03260    
       00177  0 22100 2 00003        DVP 3,2     (N(S)(S+1))                                          F5G03270    
       00200  0 20000 0 00305        MPY SEV1                                                         F5G03280    
       00201 -0 60000 0 00305        STQ SEV1 INITIAL DRUM ADDRESS                                    F5G03290    
       00202  0 50000 2 00006        CLA 6,2 =D(0)+(N0N(S))$(N(S).S=1)                                F5G03300    
       00203  0 40000 0 00305        ADD SEV1                                                         F5G03310    
       00204  0 60100 0 00313        STO SEV7 SET LDA INSTRUCTIONS                                    F5G03320    
       00205  0 76700 0 00007        ALS 7 COMPUTE THE                                                F5G03330    
       00206  0 76000 0 00006        COM  DRUM SELECTION                                              F5G03340    
       00207 -0 73400 1 00000        PDX 0,1 INDEX                                                    F5G03350    
       00210  0 07400 4 00260        TSX SE25,4 SELECT DRUM                                           F5G03360    
       00211  0 50000 2 00002        CLA 2,2                                                          F5G03370    
       00212  0 40200 2 00001        SUB 1,2 (N(1)-N(0))S                                             F5G03380    
       00213  0 76500 0 00065        LRS 53 INTO MQ                                                   F5G03390    
       00214  0 20000 2 00005        MPY 5,2                                                          F5G03400    
       00215  0 50000 0 00313        CLA SEV7 FORM NO. OF                                             F5G03410    
       00216 -0 32000 0 00301        ANA SEK2 WORDS LEFT ON                                           F5G03420    
       00217  0 40200 0 00302        SUB SEK3 DRUM GROUP                                              F5G03430    
       00220  0 76000 0 00003        SSP                                                              F5G03440    
       00221  0 04000 0 00247        TLQ SE31 MUST BLOCK BE SPLIT                                     F5G03450    
       00222  0 73400 4 00000        PAX 0,4 YES                                                      F5G03460    
       00223  0 40000 2 00007        ADD 7,2 SET INDEX AND                                            F5G03470    
       00224  0 62100 0 00236        STA SE27 COMPUTE ADDRESS OF 1ST CPY                              F5G03480    
       00225  0 40200 2 00007        SUB 7,2 COMPUTE NO.                                              F5G03490    
       00226 -0 60000 0 00305        STQ SEV1 OF WORDS IN                                             F5G03500    
       00227  0 40200 0 00305        SUB SEV1 2 ED TRANSFER                                           F5G03510    
       00230  0 40200 0 00315        SUB ONEA                                                         F5G03520    
       00231  0 76000 0 00003        SSP                                                              F5G03530    
       00232  0 60100 0 00305        STO SEV1                                                         F5G03540    
       00233  0 40000 0 00236        ADD SE27                                                         F5G03550    
       00234  0 62100 0 00243        STA SE29 SET 2 ED CPY                                            F5G03560    
       00235  0 46000 0 00313 SE28   LDA SEV7                                                         F5G03570    
       00236  0 70000 4 00000 SE27   CPY SET,4 TRANSFER                                               F5G03580    
       00237  2 00001 4 00236        TIX SE27,4,1 1ST BLOCK OF WORDS                                  F5G03590    
       00240  2 00001 1 00241        TIX SE30,1,1 DECREASE C(1) BY 1                                  F5G03600    
       00241  0 07400 4 00260 SE30   TSX SE25,4 SELECT DRUM                                           F5G03610    
       00242  0 53400 4 00305        LXA SEV1,4                                                       F5G03620    
       00243  0 70000 4 00000 SE29   CPY SET,4 TRANSFER                                               F5G03630    
       00244  2 00001 4 00243        TIX SE29,4,1 2 EDBLOCK                                           F5G03640    
       00245 -0 53400 4 00310 SE34   LXD SEV4,4                                                       F5G03650    
       00246  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G03660    
       00247  0 76300 0 00043 SE31   LLS 35 (N(1)-N(0)).S+1                                           F5G03670    
       00250  0 40000 0 00315        ADD ONEA WORDS ARE TO                                            F5G03680    
       00251  0 73400 4 00000        PAX 0,4 BE TRANSFERED                                            F5G03690    
       00252  0 40000 2 00007        ADD 7,2                                                          F5G03700    
       00253  0 62100 0 00255        STA SE32                                                         F5G03710    
       00254  0 46000 0 00313 SE33   LDA SEV7                                                         F5G03720    
       00255  0 70000 4 00000 SE32   CPY SET,4                                                        F5G03730    
       00256  2 00001 4 00255        TIX SE32,4,1                                                     F5G03740    
       00257  0 02000 0 00245        TRA SE34                                                         F5G03750    
       00260  0 76200 1 00300 SE25   RDS 192,1 (OR WRS) DRUM                                          F5G03760    
       00261  0 02000 4 00001        TRA 1,4 SELECTION SUBROUTINE.                                    F5G03770    
                                          CHECK SUM SUBROUTINL                                        F5G03780    
       00262  0 50000 2 00002 SE22   CLA 2,2                                                          F5G03790    
       00263  0 40200 2 00001        SUB 1,2 COMPUTE                                                  F5G03800    
       00264  0 76500 0 00043        LRS 35 (N(1)-N(0)).S                                             F5G03810    
       00265  0 20000 2 00005        MPY 5,2 THE NUMBER OF WORDS                                      F5G03820    
       00266  0 76300 0 00021        LLS 17 TO BE SUM                                                 F5G03830    
       00267  0 73400 1 00000        PAX 0,1 CHECKED                                                  F5G03840    
       00270  0 40000 2 00007        ADD 7,2 C0MPUTE AND STORE                                        F5G03850    
                                         ADDRESS OF WORD                                              F5G03860    
       00271  0 62100 0 00273        STA SE23 FOLLOWING LAST TABLE WORD.                              F5G03870    
       00272  0 50000 0 00314        CLA ZERO CLEAR SUM CHECK.                                        F5G03880    
       00273  0 36100 1 00000 SE23   ACL -,1     FORM THE                                             F5G03890    
       00274  2 00001 1 00273        TIX SE23,1,1 SUM CHECK.                                          F5G03900    
       00275  0 60200 0 00307        SLW SEV3                                                         F5G03910    
       00276  0 02000 4 00001        TRA 1,4                                                          F5G03920    
       00277  0 76600 1 00300 SEK    WRS 192,1 WRS,192,1                                              F5G03930    
       00300  0 76200 1 00300 SEK1   RDS 192,1 RDS,192,1                                              F5G03940    
       00301  0 00000 0 03777 SEK2   HTR 2047 MASK TO EXTRACT LAST 11 BIT                             F5G03950    
       00302  0 00000 0 04000 SEK3   HTR 2048 2048 IN ADDR.                                           F5G03960    
       00303  0 77777 0 00000 SEK4   HTR 0,0,-1         IN DECR. PART                                 F5G03970    
       00304  0 00000 1 00000 SEK5   HTR 0,1 2 15                                                     F5G03980    
       00305  0 00000 0 00000  SEV1       NS.S+1 TEMP STORAGE                                         F5G03990    
       00306  0 00000 0 00000  SEV2       STORAGE OF N (DECR.)                                        F5G04000    
       00307  0 00000 0 00000  SEV3       STORAGE OF CK SUM.                                          F5G04010    
       00310  0 00000 0 00000  SEV4       RETURN FROM SE 26                                           F5G04020    
       00311  0 00000 0 00000  SEV5       RETURN FROM SE                                              F5G04030    
       00312  0 00000 0 00000  SEV6       STORE N TO BE TRANSFERRED                                   F5G04040    
       00313  0 00000 0 00000  SEV7       INITIAL DRUM ADDR.                                          F5G04050    
       00314 +000000000000    ZERO   OCT 0                                                            F5G04060    
       00315  0 00000 0 00001 ONEA   HTR 1                                                            F5G04070    
       00316  0 00001 0 00000 ONED   HTR 0,0,1                                                        F5G04080    
                                          CONSTANTS USED IN S1                                        F5G04090    
       00317  0 00006 0 00000 S1K2   HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF.                   F5G04100    
       00320  0 00000 0 00010 S1K3   HTR 8 NO. OF S3 VARIABLES SAVED.                                 F5G04110    
                        00317 C      SYN S1K2                                                         F5G04120    
       00321  0 77777 0 00000 S2K1   HTR 0,0,-1 ONES IN DECR. PART.                                   F5G04130    
       00322  0 00001 0 00000 S2K2   HTR 0,0,1 CONST. USED TO TEST FOR LX.                            F5G04140    
       00323 -377777777777    S3K1   OCT -377777777777 END LOOP LIST SENTENIAL                        F5G04150    
       00324  0 77777 7 77777 S3K2   HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS     IS BB           F5G04160    
       00325  0 00036 0 00000 S3K3   HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST                   F5G04170    
       00326 +000000777777    S3K4   OCT 777777 MASK TO EXTRACT LAST 1/2 WORD.                        F5G04180    
       00327  0 77777 0 00000 S3K5   HTR 0,0,-1 MASK T0 EXTRACT INST. TYPE                            F5G04190    
                                         CONSTANTS OF S4                                              F5G04200    
       00330  0 00000 0 01224 S4K1       CMTL SIZE OF STORAGE FOR TAG TABLE.                          F5G04210    
       00331  0 00000 0 00017 S4K2   HTR 15 NO OF TAGS PER RECORD.                                    F5G04220    
       00332  0 00000 0 05216 S4K3   HTR CMTAG                                                        F5G04230    
                                          THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5               F5G04240    
       00333 +000000777776    LK1    OCT 777776 E,HASH SYMBOL                                         F5G04250    
       00334 -200000000000    LK2    OCT -200000000000 CONSTANTS FOR EXTRACTING                       F5G04260    
       00335 -300000000000    LK3    OCT -300000000000 1ST 2,3 BITS OF WORD RESPT.                    F5G04270    
                                         CONSTANTS FOR MATCHING SUBROUTINE                            F5G04280    
       00336 +000000777777    S5K1   OCT 777777 PHI,EMPTINESS                                         F5G04290    
       00337 +000000777775    S5K2   OCT 777775 CONSTANT USEO TO TEST FOR REAL TAGS                   F5G04300    
       00340 -000000000000    S5K3   OCT -0 -0                                                        F5G04310    
       00341  0 00000 0 00002 S5K4   HTR 2 +2                                                         F5G04320    
       00342  0 00000 0 00003 S5K5   HTR 3 +3                                                         F5G04330    
       00343  0 00000 0 00010 S5K6   HTR 8 +8                                                         F5G04340    
       00344  0 00000 0 00004 S9K1   HTR 4 +4                                                         F5G04350    
       00345  0 00000 1 00000 S9K2       0,1 MASK FOR PHI DIGIT NO. 1                                 F5G04360    
       00346  0 00000 2 00000            0,2 MASK FOR PHI DIGIT NO. 2                                 F5G04370    
       00347  0 00000 4 00000            0,4 MASK FOR PHI DIGIT NO. 3                                 F5G04380    
       00350  0 00003 0 00000 S9K3   HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR.                        F5G04390    
       00351  0 00000 0 07776 SAK1       4094            CONST  USED TO TEST NON EXISTENT BB          F5G04400    
                                         CONSTANTS OF SB                                              F5G04410    
       00352 +001000000000    SBK1   OCT +001000000000 CONST. USED TO GENERATE SX BIT. AD.            F5G04420    
       00353  0 00000 0 77777 SBK2   HTR -1 USED TO EXTRACT ADOR.                                     F5G04430    
       00354  0 00004 0 00000 SBK3   HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER                 F5G04440    
       00355  0 04741 0 00000 SCK1   HTR 0,0,LPLST                                                    F5G04450    
       00356 +177777077777    FK1    OCT 177777077777           TRANSPARANT REGION CONST              F5G04460    
       00357 +277777077777    FK2    OCT 277777077777       OPAQUE REGION CONST                       F5G04470    
       00360  0 00000 7 00000 FK3    HTR 0,7 MASK T0 EXTRACT TAG.                                     F5G04480    
       00361 +177777777777    FK4    OCT 177777777777 CONST TO TEST FOR OPAQUE REG.                   F5G04490    
       00362  0 00000 0 00062 FK5    HTR FP1 LENGTH OF REGION LIST                                    F5G04500    
       00363 -000000000000    XK3    OCT -0 3 CONSTANTS USED TO                                       F5G04510    
       00364 +200000000000           OCT 200000000000 CHANGE REGION WDS.                              F5G04520    
       00365 +100000000000           OCT 100000000000 TO INDICATE IRS LX E0.                          F5G04530    
       00366 -377776000000    XK4    OCT -377776000000 E,HASH SYMBOL,1N LQT HALF                      F5G04540    
       00367 -300000000000    XK5    OCT -300000000000 MASK FOR PREFIX                                F5G04550    
       00370 +200000000000    XK6    OCT 200000000000                                                 F5G04560    
       00371  0 00000 0 00011 XK9    HTR 9                                                            F5G04570    
                        00363 XK10   SYN XK3 MASK TO EXTRACT 1ST 1N BB FIT.                           F5G04580    
       00372 +000001000000    XK11   OCT 1000000 CONST. TO GENERAGE LX BIT.                           F5G04590    
       00373  0 00005 0 00000 XK12   HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE                      F5G04600    
       00374  0 00004 0 00000 XK13   HTR 0,0,4 TNX                                                    F5G04610    
       00375  0 00007 0 00000 XK14   HTR 0,0,7 TIX                                                    F5G04620    
       00376  0 00002 0 00000 XK15   HTR 0,0,2 LXP                                                    F5G04630    
       00377  0 00000 4 00000 XK16   HTR 0,4 CONST. TO GENERATE LX BIT.                               F5G04640    
       00400  1 00000 0 00000 XK17   PON              CONST. TO SEPARATE TYPES                        F5G04650    
                        00366 XK18   SYN XK4 E IN LEFT HALF WORD.                                     F5G04660    
       00401 -377777000000    XK19   OCT -377777000000 MASK LEFT HALF WORD.                           F5G04670    
       00402 -377700777777    XK20   OCT -377700777777 CONST. TO DELETE PERM. NOS.                    F5G04680    
       00403  0 00003 0 00000 XK21   HTR 0,0,3 CONST. TO TEST FOR DED INST.                           F5G04690    
       00404 -377777077777    XK22   OCT -377777077777 CONST. TO DELETE PHIS.                         F5G04700    
       00405  0 00000 1 00000 XK23   HTR 0,1                                                          F5G04710    
       00406  0 00000 2 00000        HTR 0,2                                                          F5G04720    
       00407  0 00000 4 00000        HTR 0,4                                                          F5G04730    
       00410  0 00000 0 00000  S1V1       TEMP. STORAGE FOR                                           F5G04740    
       00411  0 00000 0 00000        HTR -                                                            F5G04750    
       00412  0 00000 0 00000        HTR -              1ST 9 VARIABLES                               F5G04760    
       00413  0 00000 0 00000        HTR -              IN S3                                         F5G04770    
       00414  0 00000 0 00000        HTR -                                                            F5G04780    
       00415  0 00000 0 00000        HTR -                                                            F5G04790    
       00416  0 00000 0 00000        HTR -                                                            F5G04800    
       00417  0 00000 0 00000        HTR -                                                            F5G04810    
       00420  0 00000 0 00000  S1V3                     THE CLA IN S3                                 F5G04820    
       00421  0 00000 0 00000  S1V4                     RETURN INDEX                                  F5G04830    
       00422  0 00000 0 00000  S1V5                     (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R.       F5G04840    
       00423  0 00000 0 00000  S1V6                     TEMP                                          F5G04850    
       00424  0 00000 0 00000  S1V7                     STORAGE                                       F5G04860    
                                         THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS,   F5G04870    
                                         AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880    
                                         SYMBOL 777776. (HASH MEANS THE REGISTER IS NOT EMPTY BUT     F5G04890    
                                         ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900    
                                         DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910    
                                         IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920    
       00425  0 00000 0 00000  IR1                      THE 3 I.R.S IN                                F5G04930    
       00426  0 00000 0 00000  IR2                      THE LAST 1/2 OF REGISTER                      F5G04940    
       00427  0 00000 0 00000  IR3                                                                    F5G04950    
       00430  0 00000 0 00000  IRR                      HOLDS 3,2,1 IF IR1,2,3 SELECTED               F5G04960    
       00431  0 00000 0 00000 IND1        + OR - ACCORDING AS IR1 EOUND OR IR1 NOT FOUND              F5G04970    
       00432  0 00000 0 00000 IND2       + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND               F5G04980    
       00433  0 00000 0 00000 IND3       + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND               F5G04990    
       00434  0 00000 0 00000  IN4                  +F OR - IF IR HAS OR HASNT BEEN FOUND             F5G05000    
                                          VARIABLES OF S3 SUBROUTINE                                  F5G05010    
       00435  0 00000 0 00000  S3V1       LOCATION OF 1ST TAG IN BB                                   F5G05020    
       00436  0 00000 0 00000  S3V2       TAG COUNTER,IN DECR. PART.                                  F5G05030    
       00437  0 00000 0 00000  S3V3       + NO. OF TAGS LEFT IN BB AFTER T1X,OR-                      F5G05040    
       00440  0 00000 0 00000  S3V4       LOOP LIST INDEX.                                            F5G05050    
       00441  0 00000 0 00000  1TAG       THE TAN-TAG                                                 F5G05060    
       00442  0 00000 0 00000  TPE        THE TYPE OF INSTR.                                          F5G05070    
       00443  0 00000 0 00000  INTAG      TAG + INSTR. TYPE (ENTRY IN TAG LIST)                       F5G05080    
       00444  0 00000 0 00000  S3V5       LOOP LIST QUANTITY                                          F5G05090    
       00445  0 00000 0 00000  S3V8       RETURN INDEX                                                F5G05100    
       00446  0 00000 0 00000  S3V6       (1ST TAG IN BB-1ST TAG IN C.M.)                             F5G05110    
       00447  0 00000 0 00000  S3V7       NO. OF WORDS LEFT IN C.M.                                   F5G05120    
       00450  0 00000 0 00000  S3V9       (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB)                  F5G05130    
                                          VARIABLES OF S4                                             F5G05140    
       00451  0 00000 0 00000  S4V1       LOC OF 1ST TAG IN CMTAG                                     F5G05150    
       00452  0 00000 0 00000  S4V2       LOC OF 1ST TAG IN NEX, RECORD (TAPE POS.)                   F5G05160    
       00453  0 00000 0 00000  S4V3       (LOC OF LAST TAG)+ 1                                        F5G05170    
                                          ABOVE MUST BE SET AT START.                                 F5G05180    
       00454  0 00000 0 00000  S4V4       (LOC. OF 1ST TAG IN BB-POS OF TAPE)                         F5G05190    
                                          VARIABLES FOR MATCHING SUBROUTINE S5                        F5G05200    
       00455  0 00000 0 00000 IR4         TEMP. STORAGE FOR C (IR1)                                   F5G05210    
       00456  0 00000 0 00000 IR5         TEMP. STORAGE FOR C (IR2)                                   F5G05220    
       00457  0 00000 0 00000 IR6         TEMP. STORAGE FOR C (IR3)                                   F5G05230    
       00460  0 00000 0 00000 ENC         COUNTER OF =                                                F5G05240    
       00461  0 00000 0 00000 IRC         COUNTER OF =                                                F5G05250    
                                         THE IN 1,2,3,  EN4,5,6 CELLS ARE LOAOED BY THE S5 ROUTINE    F5G05260    
                                         FOR PERMUTATION OF INDEX REGISTER ASSIGIMENT THROUGHOUT AN   F5G05270    
                                         ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST.   F5G05280    
                                         OPTIMIZED MATCH TO CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290    
                                         PERMUTING THE ENTIRE REGION AS NECESSARY.  THE IN1,2,3       F5G05300    
                                         AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3,  EX1,2,3 F5G05310    
                                         ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3,   F5G05320    
                                         AC1,2,3,  LX1,2,3.  FOR EXAMPLE EN4 IS 3,2,OR. DEPENDING ON  F5G05330    
                                         WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3.  INVERSELY, F5G05340    
                                         IN1 IS 3,2,OR1 FOR THE CORRESPON0ENT OF IR1 EQUAL TO EN1,2,3.F5G05350    
       00462  0 00000 0 00000 IN1         INDEX OF CORRES OF IR1                                      F5G05360    
       00463  0 00000 0 00000 IN2         INDEX OF CORRES OF IR2                                      F5G05370    
       00464  0 00000 0 00000 IN3         INDEX OF CORRES OF IR3                                      F5G05380    
       00465  0 00000 0 00000 EN4         INDEX OF CORRES OF EN1                                      F5G05390    
       00466  0 00000 0 00000 EN5         INOEX OF CORRE8 OF EN2                                      F5G05400    
       00467  0 00000 0 00000 EN6          INDEX OF CORRES OF EN3                                     F5G05410    
       00470  0 00000 0 00000 EN1          THE ENTRANCE REQUIREM                                      F5G05420    
       00471  0 00000 0 00000 EN2          ENTS EN1,ENZ,EN3.                                          F5G05430    
       00472  0 00000 0 00000 EN3                                                                     F5G05440    
       00473  0 00000 0 00000 S5V1         TEMP. STORE FOR RETURN INDEX.                              F5G05450    
       00474  0 00000 0 00000 S5V2         TEMP STORE FOR LOOP LIST QUANT.                            F5G05460    
       00475  0 00000 0 00000 S9V1         TEMP. STORE FOR BB NO.                                     F5G05470    
       00476  0 00000 0 00000 S9V2         TEMP. STORE FOR RETURN INDEX                               F5G05480    
       00477  0 00000 0 00000 S9V4         TEMP. STORE FOR REGION WORD.                               F5G05490    
                                          VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS)    F5G05500    
       00500  0 00000 0 00000 SAV1        TEMP STORE FOR PERMUTATION NOS.                             F5G05510    
       00501  0 00000 0 00000 SAV2        RETURN INDEX.                                               F5G05520    
       00502  0 00000 0 00000 SAV3        TEMP. STORE FOR REGION WORD.                                F5G05530    
                                         THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540    
                                         HAS ALREADY BEEN TREATED.                                    F5G05550    
       00503  0 00000 0 00000 EX1         3 EXIT CONDITIONS                                           F5G05560    
       00504  0 00000 0 00000 EX2                                                                     F5G05570    
       00505  0 00000 0 00000 EX3                                                                     F5G05580    
                                         THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590    
       00506  0 00000 0 00000 ACT1        3 ACTIVE                                                    F5G05600    
       00507  0 00000 0 00000        HTR -              INDICATORS                                    F5G05610    
       00510  0 00000 0 00000        HTR -                                                            F5G05620    
                                          VARIABLES OF SB                                             F5G05630    
       00511  0 00000 0 00000 SBV1        RETURN INDEX                                                F5G05640    
       00512  0 00000 0 00000 SBV2        TEMP. STORAGE.                                              F5G05650    
       00513  0 00000 0 00000 SBV3        TEMP. STORAGE.                                              F5G05660    
       00514  0 00000 0 00000 SBV4        INDEX OF REGISTER WHICH IS ACTIVE.                          F5G05670    
       00515  0 00000 0 00000 SBV5        STORAGE FOR PERMUTATION NOS.                                F5G05680    
       00516  0 00000 0 00000 SCV1        RETURN INDEX                                                F5G05690    
       00517  0 00000 0 00000 SCV2        INDEX OF BB.                                                F5G05700    
       00520  0 00000 0 00000 SCV3        INDEX OF POSITION IN LOOP LIST                              F5G05710    
       00521  0 00000 0 00000 ACIND                 + OR - MEANS 2ED OR ACTIVE PASS                   F5G05720    
       00522  0 00000 0 00000 SDV1        STORE FOR RETURN INDEX.                                     F5G05730    
       00523  0 00000 0 00000 SDV2        INDEX OF ACTIVE I.R.                                        F5G05740    
       00524  0 00000 0 00000 SDV3        THE PERMUTATION NOS.                                        F5G05750    
       00525  0 00000 0 00000 SDV4        TEMP. STORE FOR INDEX OF BB                                 F5G05760    
       00526  0 00000 0 00000 SFV1        ACTIVE INOICATOR FORMED HERE.                               F5G05770    
       00527  0 00000 0 00000 SFV2        RETURN INOEX.                                               F5G05780    
       00530  0 00000 0 00000 SGV1                       RETURN INDEX                                 F5G05790    
       00531  0 00000 0 00000 SGV2                       PERMUTED REGION WORD                         F5G05800    
       00532  0 00000 0 00000 FV1         HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY)            F5G05810    
       00533  0 00000 0 00000 FV2         BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.)                   F5G05820    
       00534  0 00000 0 00000 FV3         PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.)                   F5G05830    
       00535  0 00000 0 00000 FV4         WORD HAVING REGION NO. (5TH BB WORD)                        F5G05840    
       00536  0 00000 0 00000 FV5         CURRENT BB NO. BEING CONSIDERED. (ADDR.)                    F5G05850    
       00537  0 00000 0 00000 FV6         RETURN INDEX OF F1,F80                                      F5G05860    
       00540  0 00000 0 00000 FV7         PRED. NO. BEING CONSIDERED IN B.B. (ADDR.)                  F5G05870    
       00541  0 00000 0 00000 FV8         FIRST PRED. FROM NEXT B.B. (ADDR.)                          F5G05880    
       00542  0 00000 0 00000 FV9        0,0,-    TEMP STORE FORCURRENT SUCC IN DECR ONLY             F5G05890    
       00543  0 00000 0 00000 FV10       0,0,-     TEMP STORE IN DECR ONLY, CURRENT SUCC              F5G05900    
       00544  0 00000 0 00000 FV101       HIGHEST FREQ. IN BB (PRED. TABLE ENTRY)                     F5G05910    
       00545  0 00000 0 00000 FV102       BB NO. BEING CONSIDERED. (ADDR.)                            F5G05920    
       00546  0 00000 0 00000 FV103       PRED. NO. (0TH WORD FROM BB) IADDR.)                        F5G05930    
       00547  0 00000 0 00000 FV104       WORD HAVING REGION. NO.                                     F5G05940    
       00550  0 00000 0 00000 LPIND                   + OR - IF IT ISNT OF IS A LOOP                  F5G05950    
       00551  0 00000 0 00000 LV1         THE CONDITIONS OF THE I.R.S                                 F5G05960    
       00552  0 00000 0 00000 LV2         AT END OF THE                                               F5G05970    
       00553  0 00000 0 00000 LV3         1ST LXING PASS.                                             F5G05980    
       00554  0 00000 0 00000 LV4         THE LO0P LIST QUANTITY                                      F5G05990    
       00555  0 00000 0 00000 LV5         WORD FROM BB WITH PRED. AND SUCC. LOCS                      F5G06000    
                                          VARIABLES OF 2ED LXING PASS.                                F5G06010    
                                         ACTIVITY.  WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS,   F5G06020    
                                         IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX  F5G06030    
                                         REGISTER BECOMES ACTIVE.  THIS IS PLUS ACTIVITY.  IF THE SAMEF5G06040    
                                         REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED  F5G06050    
                                         TO RECORD AN SX NECESSARY.  SINCE THE ACTIVITY IS PLUS, THE  F5G06060    
                                         SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE     F5G06070    
                                         INSTRUCTION.  THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING   F5G06080    
                                         CARE OF THE PROBLEM.  AT THE END OF LPLST, IF THE INDEX      F5G06090    
                                         REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE     F5G06100    
                                         PEGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110    
                                         IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120    
                                         MINUS.  THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED.  THE F5G06130    
                                         APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE        F5G06140    
                                         APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150    
                                         THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB    F5G06160    
                                         ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM  F5G06170    
                                         THAT BB.  THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180    
                                         INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190    
                                         OF SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW      F5G06200    
                                         FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT     F5G06210    
                                         PROGRAM TIME.                                                F5G06220    
                                         THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3.   F5G06230    
                                         ZERO...NOT ACTIVE,  PLUS ACTIVITY...ACTIVE INSTRUCTION IN A  F5G06240    
                                         BB NOT TREATED UNTIL THIS LPLST.  AC1,2,3 CONTAINS INFO.     F5G06250    
                                         FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION.       F5G06260    
                                         MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION.    F5G06270    
                                         AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK   F5G06280    
                                         OUT OF THE REGION.                                           F5G06290    
       00556  0 00000 0 00000 AC1         3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE                     F5G06300    
       00557  0 00000 0 00000 AC2         IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS               F5G06310    
       00560  0 00000 0 00000 AC3         LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE,      F5G06320    
       00561  0 00000 0 00000        HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR.          F5G06330    
                                         THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340    
       00562  0 00000 0 00000 LX1         3 ENTRANCE REQUIREMENTS OF A BB                             F5G06350    
       00563  0 00000 0 00000 LX2         BUILT UP HERE. +0 MEANS                                     F5G06360    
       00564  0 00000 0 00000 LX3         NO ENTRANCE REQU. DETERMINED.                               F5G06370    
       00565  0 00000 0 00000 XV1         IN DECR., INDEX OF CURRENT REGION                           F5G06380    
       00566  0 00000 0 00000 XV2         THE NEW REGION WORD.                                        F5G06390    
       00567  0 00000 0 00000 XV3         THE WORD POSITION IN STAG                                   F5G06400    
       00570  0 00000 0 00000 XV4         THE DIGIT INDEX WITHIN THE WORD.                            F5G06410    
       00571  0 00000 0 00000 XV5         THE LOCATION OF CURRENT TAG (INSTR.)                        F5G06420    
       00572  0 00000 0 00000 XV6         NEAR X07,C.F. OF TNX BRANCH,NEAR X85, TAG                   F5G06430    
       00573  0 00000 0 00000 XV7         X07 TO X09+,INDEX OF BB,NEAR X85,TAG                        F5G06440    
       00574  0 00000 0 00000 XV8         INDEX OF BB NEAR X33                                        F5G06450    
                                         PERMUTATION.  WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN  F5G06460    
                                         ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AN0 BBB MUST F5G06470    
                                         BE UPDATED.  INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION     F5G06480    
                                         NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING    F5G06490    
                                         REQUIRES ONLY THESE NUMBERS TO BE CHANGED.  IN SECTION 5 PARTF5G06500    
                                         2 WHFN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES  F5G06510    
                                         THEMSELVES ARE ACTUALLY UPDATED.         ,                   F5G06520    
       00575  0 00000 0 00000 XV9         THE PERMUTATION NOS.                                        F5G06530    
       00576  0 00000 0 00000 XV10        INDEX 0F I.R. IN BB CONSIDERED.                             F5G06540    
       00577  0 00000 0 00000 XV11                                                                    F5G06550    
       00600  0 00000 0 00000 XV12                                                                    F5G06560    
       00601  0 00000 0 00000 XV13        INDEX 0F PARTICULAR BB X40 ON                               F5G06570    
       00602  0 00000 0 00000 XV14        TEMP. STORE FOR 2 INDEXES                                   F5G06580    
       00603  0 00000 0 00000 XV15        WHILE USING SUBROUTINE.                                     F5G06590    
       00604  0 00000 0 00000 XV16        TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON                 F5G06600    
       00605  0 00000 0 00000 XV17        TEMP. STORE FOR OLD REGION WD.,X74                          F5G06610    
       00606  0 00000 0 00000 XV18        IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR.                   F5G06620    
       00607  0 00000 0 00000 XV19           TEMP STORE FOR PREVIOUS LPLST QUANTITY                   F5G06630    
       00610  0 00000 0 00000 XV20              TEMP STORE IN DECR. ONLY                              F5G06640    
       00611  0 00000 0 00000 XV21              TEMP STORE FOR TAG NEAR X43                           F5G06650    
       00612  0 00000 0 00000 XV22             NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED       F5G06660    
       00613  0 00000 0 00000 XV23            DECR ONLY , TEMP STORE FOR REGION INDEX                 F5G06670    
       00614  0 00000 0 00000 XV24                     0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION     F5G06680    
       00615  0 00000 0 00000 AV1         TEMP. STORE FOR PRED. TABLE ENTRY.                          F5G06690    
       00616  0 00000 0 00000 AV2         TEMP. STORE FOR INDEX OF I.R.                               F5G06700    
       00617  0 00000 0 00000 AV3         TEMP. STORE FOR PERM. NOS.                                  F5G06710    
                                         THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST   F5G06720    
                                         (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD         F5G06730    
                                         THROUGH LPLST.  THE IR WHOSE CONTENTS ARE REQUIRED AGAIN     F5G06740    
                                         SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE.  THESE       F5G06750    
                                         ROUTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO      F5G06760    
                                         SELECT AN IR.                                                F5G06770    
       00620 -0 76000 0 00003 S111   SSM  SET INDICATOR TO-MEANING                                    F5G06780    
       00621  0 02000 0 00623        TRA S109 SEARCH FOR LEAST REPLACEABLE I.R.                       F5G06790    
       00622  0 76000 0 00003 S1     SSP  SET INDICATOR TO + MEANING                                  F5G06800    
       00623  0 60100 0 00422 S109   STO S1V5 SEARCH FOR MOST REPLACEABLE I.R.                        F5G06810    
       00624 -0 63400 4 00421        SXD S1V4,4 STORE RETURN INDEX.                                   F5G06820    
       00625 -0 76000 0 00003        SSM  SET                                                         F5G06830    
       00626  0 60100 0 00431        STO IND1 INDICATORS                                              F5G06840    
       00627  0 60100 0 00432        STO IND2 TO                                                      F5G06850    
       00630  0 60100 0 00433        STO IND3 NOT                                                     F5G06860    
       00631  0 60100 0 00434        STO IN4 FOUND.                                                   F5G06870    
       00632 -0 53400 2 00641        LXD S123,2 SET TO LOOP FOR EMPTY I.R.                            F5G06880    
       00633  0 53400 1 00342 S119   LXA S5K5,1        SET COUNT TO 3, N TO 1                         F5G06890    
       00634  0 50000 1 00430 S120   CLA IR1+3,1 IS IRN EMPTY OR                                      F5G06900    
       00635  0 34000 2 00000        CAS 0,2 (FILLED WITH HASH)                                       F5G06910    
       00636 -3 77445 0 00640 S121   TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR.                   F5G06920    
       00637  0 02000 0 00644        TRA S124 YES,                                                    F5G06930    
       00640  2 00001 1 00634 S122   TIX S120,1,1 NO,COUNT TO 3,N=N+1                                 F5G06940    
       00641  3 77442 2 00662 S123   TXH S127,2,-S5K1 HAVE WE L0OKEO FOR HASH                         F5G06950    
       00642 -0 53400 2 00636        LXD S121,2 NO,SET TO LOOP FOR HASH.                              F5G06960    
       00643  0 02000 0 00633        TRA S119                                                         F5G06970    
       00644  0 50200 0 00422 S124   CLS S1V5 LOOK1NG FOR MOST REPLACEABLE                            F5G06980    
       00645 -0 12000 0 00656        TMI S129 I.R.                                                    F5G06990    
       00646  0 60100 1 00434        STO IND1+3,1 NO, RECORD IRN ELIMINATED                           F5G07000    
       00647  0 56000 0 00434        LDQ IN4                                                          F5G07010    
       00650  0 60100 0 00434        STO IN4 RECORD SOME IR ELIMINATED                                F5G07020    
       00651  0 16200 0 00653        TQP S128 HAS AN IR BEEN ELIMINATED BEFORE                        F5G07030    
       00652  0 02000 0 00640        TRA S122                                NO,                      F5G07040    
       00653  0 53400 1 00342 S128   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G07050    
       00654  0 50000 1 00434 S126   CLA IND1+3,1 HAS IRN                                             F5G07060    
       00655  0 12000 0 00660        TPL S125 BEEN ELIMINATED                                         F5G07070    
       00656 -0 63400 1 00430 S129   SXD IRR,1 NO,SELECT IRN                                          F5G07080    
       00657  0 02000 4 00001        TRA 1,4 AND RETURN.                                              F5G07090    
       00660  2 00001 1 00654 S125   TIX S126,1,1 COUNT TO 3,N=N+1                                    F5G07100    
       00661  0 07400 4 00004 S130   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR.                           F5G07110    
       00662  0 50000 0 01122 S127   CLA S39                                                          F5G07120    
       00663  0 60100 0 00420        STO S1V3 STORE ASIDE                                             F5G07130    
       00664  0 53400 4 00320        LXA S1K3,4 THE                                                   F5G07140    
       00665  0 50000 4 00445 S112   CLA S3V1+8,4 STATE                                               F5G07150    
       00666  0 60100 4 00420        STO S1V1+8,4 OF THE                                              F5G07160    
       00667  2 00001 4 00665        TIX S112,4,1 S3 ROUTINE.                                         F5G07170    
       00670  0 07400 4 01023 S11    TSX S3,4 GET NEXT TAG                                            F5G07180    
       00671  0 02000 0 00706        TRA S103 COME HERE IF TAG NOT GOT.                               F5G07190    
       00672  0 50000 0 00410        CLA S1V1                                                         F5G07200    
       00673  0 34000 0 00435        CAS S3V1 IS THE LOOP COMPLETED                                   F5G07210    
       00674  0 02000 0 00676        TRA S104 NO                                                      F5G07220    
       00675  0 02000 0 00701        TRA S135 PERHAPS                                                 F5G07230    
       00676  0 07400 4 00766 S104   TSX S2,4 NO                                                      F5G07240    
       00677  0 02000 0 00745        TRA S16 COME HERE IF IR DECIDED ON                               F5G07250    
       00700  0 02000 0 00670        TRA S11 COME HERE IF NOT DECIDED ON                              F5G07260    
       00701  0 50000 0 00411 S135   CLA S1V1+1 IS THE LOOP COMPLETED                                 F5G07270    
       00702  0 34000 0 00436        CAS S3V2                                                         F5G07280    
       00703  0 02000 0 00676        TRA S104                                                         F5G07290    
       00704  0 02000 0 00741        TRA S102 YES                                                     F5G07300    
       00705  0 02000 0 00676        TRA S104                                                         F5G07310    
       00706  0 34000 0 00323 S103   CAS S3K1 IS THIS AN END LOOP LIST                                F5G07320    
       00707  0 02000 0 00711        TRA S105 NO                                                      F5G07330    
       00710  0 02000 0 00763        TRA S101 YES                                                     F5G07340    
       00711  0 50000 0 00444 S105   CLA S3V5 GET LOOP LIST QUANTITY AGAIN.                           F5G07350    
       00712  0 34000 0 00324        CAS S3K2 IS IT A BB                                              F5G07360    
       00713  0 76100 0 00000        NOP  NO,IT IS EITHER A TRANSPARENT                               F5G07370    
       00714  0 02000 0 00716        TRA P001              OR OPAQUE REGION                           F5G07380    
       00715  0 02000 0 00670        TRA S11 YES                                                      F5G07390    
       00716  0 34000 0 00417   P001 CAS S1V1+7                                                       F5G07400    
       00717  0 02000 0 00721        TRA S136                                                         F5G07410    
       00720  0 02000 0 00741        TRA S102                                                         F5G07420    
       00721  0 07400 4 00070 S136   TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU.                       F5G07430    
       00722  0 56000 0 00317        LDQ S1K2 MAKE THIS LOOK LIKE A                                   F5G07440    
       00723 -0 60000 0 00442        STQ TPE PASSIVE REFERENCE.                                       F5G07450    
       00724  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3.                                       F5G07460    
       00725 -0 50000 1 06444 S115   CAL BBB+2,1     PUT THIS TAU TAG                                 F5G07470    
       00726  0 77100 0 00022        ARS 18 IN LOCATION                                               F5G07480    
       00727  0 60200 0 00441        SLW 1TAG           TAG                                           F5G07490    
       00730 -0 63400 1 00423        SXD S1V6,1 STORE THE                                             F5G07500    
       00731 -0 63400 4 00424        SXD S1V7,4 INDEXES.                                              F5G07510    
       00732  0 07400 4 00766        TSX S2,4 TRY TO SELECT AN I.R.                                   F5G07520    
       00733  0 02000 0 00745        TRA S16 COME HERE IF I.R. SELECTED.                              F5G07530    
       00734 -0 53400 1 00423        LXD S1V6,1 AND HERE IF NOT. RESTORE                              F5G07540    
       00735 -0 53400 4 00424        LXD S1V7,4 THE INDEXES.                                          F5G07550    
       00736  1 77777 1 00737        TXI S114,1,-1     DECREASE ENTR. INDEX                           F5G07560    
       00737  2 00001 4 00725 S114   TIX S115,4,1 COUNT TO 3.                                         F5G07570    
       00740  0 02000 0 00670        TRA S11                                                          F5G07580    
       00741  0 50000 0 00431 S102   CLA IND1 HAS C(IR1) BEEN                                         F5G07590    
       00742  0 12000 0 00756        TPL S13 FOUND (ELIMINATED)                                       F5G07600    
       00743  0 53400 4 00342 S18    LXA S5K5,4 NO,SELECT                                             F5G07610    
       00744 -0 63400 4 00430 S15    SXD IRR,4 IR1.                                                   F5G07620    
       00745  0 53400 4 00320 S16    LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR)                          F5G07630    
       00746  0 50000 4 00420 S113   CLA S1V1+8,4 TO STATE                                            F5G07640    
       00747  0 60100 4 00445        STO S3V1+8,4 BEFORE                                              F5G07650    
       00750  2 00001 4 00746        TIX S113,4,1 S1 WAS USED.                                        F5G07660    
       00751  0 50000 0 00420        CLA S1V3                                                         F5G07670    
       00752  0 60100 0 01122        STO S39                                                          F5G07680    
       00753  0 07400 4 01133        TSX S4,4 MAKE SURE SAME TAGS ARE IN CM.                          F5G07690    
       00754 -0 53400 4 00421        LXD S1V4,4                                                       F5G07700    
       00755  0 02000 4 00001 S14    TRA 1,4 RETURN                                                   F5G07710    
       00756  0 50000 0 00432 S13    CLA IND2 HAS IR2 BEEN                                            F5G07720    
       00757  0 12000 0 00762        TPL S107 FOUND (ELIMINATED)                                      F5G07730    
       00760  0 53400 4 00341 S108   LXA S5K4,4 NO,SELECT                                             F5G07740    
       00761  0 02000 0 00744        TRA S15 IR2.                                                     F5G07750    
       00762  0 07400 4 00004 S107   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR                            F5G07760    
                                          OF SOME KIND.                                               F5G07770    
       00763  0 56000 0 00550 S101   LDQ LPIND IS THIS                                                F5G07780    
       00764  0 16200 0 00741        TQP S102 A LOOP                                                  F5G07790    
       00765  0 02000 0 00670        TRA S11 YES                                                      F5G07800    
       00766  0 50000 0 00441  S2    CLA 1TAG           PUT TAU-TAG IN AC.                            F5G07610    
       00767  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3.                                       F5G07820    
       00770  0 56000 1 00434 S22    LDQ IND1+3,1                                                     F5G07830    
       00771  0 16200 0 00775        TQP S21 BEEN FOUND                                               F5G07840    
       00772  0 34000 1 00430        CAS IR1+3,1     NO, IS TAU TAG EQUAL                             F5G07850    
       00773  0 02000 0 00775        TRA S21 NO,TO C(IRN)                                             F5G07860    
       00774  0 02000 0 00777        TRA S24 YES                                                      F5G07870    
       00775  2 00001 1 00770 S21    TIX S22,1,1 NO.                                                  F5G07880    
       00776  0 02000 4 00002        TRA 2,4 RETURN TO L(TSX)+2                                       F5G07890    
       00777  0 50000 0 00442    S24 CLA TPE               IS IT A DED, LXP, OR LX CLASS.             F5G07900    
       01000  0 34000 0 00403        CAS XK21              IF SO, MAKE P=1, MAKING TEST=TMI S25       F5G07910    
       01001 -0 50100 0 00340        ORA S5K3              WHILE IF SO MAKE TEST TPL S25.             F5G07920    
       01002  0 76100 0 00000        NOP                   THUS GO TO S23 AND USE IT IF LXP,DED,LX    F5G07930    
       01003  0 63000 0 01005        STP TEST              AND TAGS LEFT IN BB AFTER TIX, OR          F5G07940    
       01004  0 50200 0 00422        CLS S1V5              IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950    
       01005 -0 12000 0 01010   TEST TMI S25               THIS MIGHT BE A TPL S25.                   F5G07960    
       01006 -0 63400 1 00430 S23    SXD IRR,1 RECORD IRN INDEX.                                      F5G07970    
       01007  0 02000 4 00001        TRA 1,4                                                          F5G07980    
       01010  0 56000 0 00314 S25    LDQ ZERO      RECORD IRN FOUND OR ELIM                           F5G07990    
       01011 -0 60000 1 00434        STQ IND1+3,1                                                     F5G08000    
       01012  0 50200 0 00434        CLS IN4       HAS ONE OTHER I R BEEN                             F5G08010    
       01013 -0 12000 0 01016        TMI S26 (FOUND/ELIM)                                             F5G08020    
       01014  0 60100 0 00434        STO IN4                                                          F5G08030    
       01015  0 02000 4 00002        TRA 2,4                                                          F5G08040    
       01016  0 53400 1 00342 S26    LXA S5K5,1 SEARCH FOR THE                                        F5G08050    
       01017  0 50000 1 00434 S27    CLA IND1+3,1 I.R. WHICH HASNT                                    F5G08060    
       01020 -0 12000 0 01006        TMI S23 BEEN (FOUND/ELIM) YET.                                   F5G08070    
       01021  2 00001 1 01017        TIX S27,1,1                                                      F5G08080    
       01022  0 07400 4 00004        TSX 4,4   NOT FOUND, DIAGNOSTIC                                  F5G08090    
                                         THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES.   F5G08100    
                                         IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES  F5G08110    
                                         THE TAG FEED EXIT.  IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120    
                                         LPLST AND TAKES THE LPLST FEED EXIT.  WHEN IT COMES TO A     F5G08130    
                                         LPLST ITEM  WHICH IS A BB ANO NOT IN A REGION, IT GOES TO    F5G08140    
                                         FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150    
                                         THAT BB HAS BEEN FED.  THEN IT RETURNS TO LPLST FEED.  WHEN  F5G08160    
                                         SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE     F5G08170    
                                         BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE.  IT USES   F5G08180    
                                         THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190    
       01023 -0 53400 1 00436 S3     LXD S3V2,1 ARE THERE ANY                                         F5G08200    
       01024  2 00001 1 01122        TIX S39,1,1                                                      F5G08210    
       01025 -0 63400 4 00445        SXD S3V8,4 NO,STORE RETURN INDEX                                 F5G08220    
       01026  0 50000 0 00437        CLA S3V3                                                         F5G08230    
       01027  0 60100 0 00450        STO S3V9                                                         F5G08240    
       01030  0 12000 0 01114        TPL S300 ARE THERE ANY MORE TAGS IN BB                           F5G08250    
       01031 -0 53400 1 00440        LXD S3V4,1 NO                                                    F5G08260    
       01032  0 50000 0 00444        CLA S3V5       WAS THE LAST THING                                F5G08270    
       01033  0 12000 0 01035        TPL S306       AN END LPLST                                      F5G08280    
       01034 -0 53400 1 00325        LXD S3K3,1     YES, RESET LPLST INDEX                            F5G08290    
       01035  0 50000 1 04777 S306   CLA LPLST+S3P1,1      GET LOOP LIST QUANTITY                     F5G08300    
       01036  0 60100 0 00444        STO S3V5 QUANTITY.                                               F5G08310    
       01037  1 77777 1 01040        TXI S31,1,-1                                                     F5G08320    
       01040 -0 63400 1 00440 S31    SXD S3V4,1 THE INDEX.                                            F5G08330    
       01041  0 34000 0 00323        CAS S3K1 IS THIS END OF LOOP LIST                                F5G08340    
       01042  0 02000 0 01044        TRA S32 NO,                                                      F5G08350    
       01043  0 02000 0 01052        TRA S35 YES,                                                     F5G08360    
       01044  0 34000 0 00324 S32    CAS S3K2                                                         F5G08370    
       01045  0 76100 0 00000        NOP  NO                                                          F5G08380    
       01046  0 02000 0 01050        TRA S305                                                         F5G08390    
       01047  0 02000 0 01053        TRA S34 YES                                                      F5G08400    
       01050 -0 53400 4 00445 S305   LXD S3V8,4                                                       F5G08410    
       01051  0 50000 0 00444        CLA S3V5 RETURN WITH LOOP                                        F5G08420    
       01052  0 02000 4 00001 S35    TRA 1,4        LIST QUANTITY                                     F5G08430    
       01053  0 07400 4 00070 S34    TSX SE,4 GET INDEX OF BB                                         F5G08440    
       01054  0 50000 1 06443        CLA BBB+1,1                                                      F5G08450    
       01055 -0 32000 0 00326        ANA S3K4 GET AND STORE THE                                       F5G08460    
       01056  0 60100 0 00435 S303   STO S3V1 TAG LOCATION.                                           F5G08470    
       01057  0 07400 4 01133        TSX S4,4 GO TO PUT TAG IN CM.                                    F5G08480    
       01060  0 60100 0 00446        STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.)                      F5G08490    
       01061  0 40200 0 00330        SUB S4K1 FORM NO. OF                                             F5G08500    
       01062  0 76000 0 00003        SSP  WDS LEFT IN C.M.                                            F5G08510    
       01063  0 60100 0 00447        STO S3V7                                                         F5G08520    
       01064  0 50000 0 00444        CLA S3V5 GET THE                                                 F5G08530    
       01065  0 40000 0 00316        ADD ONED LOC. OF 1ST                                             F5G08540    
       01066  0 07400 4 00070        TSX SE,4 TAG IN                                                  F5G08550    
       01067  0 50000 1 06443        CLA BBB+1,1 NEXT BB.                                             F5G08560    
       01070 -0 32000 0 00326        ANA S3K4                                                         F5G08570    
       01071  0 40200 0 00435        SUB S3V1 IS NO. OF TAGS IN BB LESS                               F5G08580    
       01072  0 34000 0 00447        CAS S3V7 THAN OR EQUAL TO SPACE IN C.M.                          F5G08590    
       01073  0 02000 0 01076        TRA S304                                                         F5G08600    
       01074  0 02000 0 01117        TRA S36 YES,                                                     F5G08610    
       01075  0 02000 0 01117        TRA S36 YES,                                                     F5G08620    
       01076  0 40200 0 00447 S304   SUB S3V7      STORE S  EXCESS OF TAGS                            F5G08630    
       01077  0 60100 0 00437        STO S3V3                                                         F5G08640    
       01100  0 50000 0 00447        CLA S3V7                                                         F5G08650    
       01101  0 73400 1 00000 S302   PAX 0,1 SET COUNT OF NO. OF TAGS.                                F5G08660    
       01102  1 00001 1 01103 S37    TXI S38,1,1                                                      F5G08670    
       01103 -0 63400 1 00436 S38    SXD S3V2,1                                                       F5G08680    
       01104  0 40000 0 00332        ADD S4K3 SET ADDRESS OF                                          F5G08690    
       01105  0 40000 0 00446        ADD S3V6 CLA                                                     F5G08700    
       01106  0 62100 0 01122        STA S39 INSTRUCTION.                                             F5G08710    
       01107 -0 53400 4 00445        LXD S3V8,4                                                       F5G08720    
       01110  0 50000 0 00450        CLA S3V9 IS THIS A                                               F5G08730    
       01111  0 12000 0 01023        TPL S3 NEW BB                                                    F5G08740    
       01112  0 50000 0 00444        CLA S3V5 YES,RETURN WITH                                         F5G08750    
       01113  0 02000 4 00001        TRA 1,4 LOOP LIST QUANTITY.                                      F5G08760    
       01114  0 50000 0 00451 S300   CLA S4V1 NEXT TAG NEEDED HAS                                     F5G08770    
       01115  0 40000 0 00330        ADD S4K1 LOC. (S+1ST TAG IN C.M.)                                F5G08780    
       01116  0 02000 0 01056        TRA S303                                                         F5G08790    
       01117  0 56000 0 00323 S36    LDQ S3K1                                                         F5G08800    
       01120 -0 60000 0 00437        STQ S3V3                                                         F5G08810    
       01121  0 02000 0 01101        TRA S302                                                         F5G08820    
       01122  0 50000 1 00000 S39    CLA -,1 GET TAG WORD                                             F5G08830    
       01123 -0 63400 1 00436        SXD S3V2,1                                                       F5G08840    
       01124  0 60100 0 00443        STO INTAG AND                                                    F5G08850    
       01125 -0 32000 0 00326        ANA S3K4 SEPARATE TYPE                                           F5G08860    
       01126  0 60100 0 00441        STO 1TAG           FROM                                          F5G08870    
       01127 -0 50000 0 00327        CAL S3K5 TAU-TAG.                                                F5G08880    
       01130 -0 32000 0 00443        ANA INTAG                                                        F5G08890    
       01131  0 60100 0 00442        STO TPE                                                          F5G08900    
       01132  0 02000 4 00002        TRA 2,4                                                          F5G08910    
       01133  0 50000 0 00435 S4     CLA S3V1 FORM (LOC. OF 1ST TAG IN BB                             F5G08920    
       01134  0 40200 0 00451        SUB S4V1 -LOC. OF 1ST TAG IN CM)                                 F5G08930    
       01135 -0 12000 0 01142        TMI S41 IS TAG IN C.M.                                           F5G08940    
       01136  0 34000 0 00330        CAS S4K1 P0SSIBLY,IS IT FOR SURE                                 F5G08950    
       01137  0 76100 0 00000        NOP  NO                                                          F5G08960    
       01140  0 02000 0 01142        TRA S41       NO                                                 F5G08970    
       01141  0 02000 4 00001        TRA 1,4 YES. RETURN.                                             F5G08980    
       01142  0 50000 0 00435 S41    CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB                          F5G08990    
       01143  0 40200 0 00452        SUB S4V2 -POSITION OF TAPE)                                      F5G09000    
       01144 -0 12000 0 01166        TMI S42 MUST WE RUN TAPE BACK WORDS                              F5G09010    
       01145  0 60100 0 00454        STO S4V4 NO,                                                     F5G09020    
       01146  0 50000 0 00453        CLA S4V3 CAN ALL THE FOLLOWING TAGS                              F5G09030    
       01147  0 40200 0 00452        SUB S4V2 BE PUT IN C.M.                                          F5G09040    
       01150  0 34000 0 00330        CAS S4K1                                                         F5G09050    
       01151  0 02000 0 01154        TRA S401    NO                                                   F5G09060    
       01152  0 02000 0 01173        TRA S45 YES,GO TO SET COUNT                                      F5G09070    
       01153  0 02000 0 01173        TRA S45 YES,TO NO. OF TAGS IN BB.                                F5G09080    
       01154  0 50000 0 00454 S401   CLA S4V4                                                         F5G09090    
       01155  0 34000 0 00331        CAS S4K2 IS TAG IN NEXT RECORD                                   F5G09100    
       01156  0 76100 0 00000        NOP  NO                                                          F5G09110    
       01157  0 02000 0 01161        TRA S47                                                          F5G09120    
       01160  0 02000 0 01172        TRA S44 YES                                                      F5G09130    
       01161  0 76200 0 00223 S47    RTB TAPE       NO, SPACE FWD 1 REC.                              F5G09140    
       01162  0 50000 0 00452        CLA S4V2 ADJUST TAPE POSITION                                    F5G09150    
       01163  0 40000 0 00331        ADD S4K2                                                         F5G09160    
       01164  0 60100 0 00452 S43    STO S4V2                                                         F5G09170    
       01165  0 02000 0 01142        TRA S41                                                          F5G09180    
       01166  0 76400 0 00203 S42    BST TAPE ADJUST TAPE POSITION                                    F5G09190    
       01167  0 50000 0 00452        CLA S4V2 AFTER BACKSPACING                                       F5G09200    
       01170  0 40200 0 00331        SUB S4K2 ONE RECORD.                                             F5G09210    
       01171  0 02000 0 01164        TRA S43                                                          F5G09220    
       01172  0 50000 0 00330 S44    CLA S4K1 SET COUNT TO STORAGE SIZE.                              F5G09230    
       01173  0 73400 2 00000 S45    PAX 0,2                                                          F5G09240    
       01174  0 40000 0 00332        ADD S4K3 SET CPY                                                 F5G09250    
       01175  0 62100 0 01207        STA S46 ADDRESS.                                                 F5G09260    
       01176  0 50000 0 00452        CLA S4V2                                                         F5G09270    
       01177  0 60100 0 00451        STO S4V1                                                         F5G09280    
       01200  0 76200 0 00223 S49    RTB TAPE                                                         F5G09290    
       01201 -0 63400 2 01210        SXD S407,2 STORE (2) IN CASE OF TAPE CHECK                       F5G09300    
       01202 -0 76000 0 00012        RTT  TURN OFF TAPE                                               F5G09310    
       01203  0 76100 0 00000        NOP  CHECK.                                                      F5G09320    
       01204  0 50000 0 00452        CLA S4V2 ADJUST                                                  F5G09330    
       01205  0 40000 0 00331        ADD S4K2 TAPE                                                    F5G09340    
       01206  0 60100 0 00452        STO S4V2 POSITION                                                F5G09350    
       01207  0 70000 2 00000 S46    CPY -,2                                                          F5G09360    
       01210  1 00000 0 01216 S407   TXI S48,0,- VALUE OF (2) STORED HERE                             F5G09370    
       01211  0 07400 4 00004        TSX 4,4 END OF FILE 0CCURRED,DIAGNOSTIC                          F5G09380    
       01212 -0 63400 4 01244        SXD S405,4                                                       F5G09390    
       01213  0 07400 4 01226        TSX S406,4 CHECK REDUNDANCY BITS                                 F5G09400    
       01214 -0 53400 4 01244        LXD S405,4                                                       F5G09410    
       01215  0 02000 0 01200        TRA S49                                                          F5G09420    
       01216  2 00001 2 01207 S48    TIX S46,2,1 C0UNT NO. OF WORDS CPYED.                            F5G09430    
       01217  0 70000 0 00454 S409   CPY S4V4 COPY OUT TO                                             F5G09440    
       01220  0 02000 0 01217        TRA S409 END OF RECORD.                                          F5G09450    
       01221  0 07400 4 00004        TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC                         F5G09460    
       01222 -0 63400 4 01244        SXD S405,4 CHECK REDUNDANCY BITS                                 F5G09470    
       01223  0 07400 4 01226        TSX S406,4                                                       F5G09480    
       01224 -0 53400 4 01244        LXD S405,4                                                       F5G09490    
       01225  0 02000 0 01133        TRA S4                                                           F5G09500    
       01226  0 76600 0 00333 S406   IOD                                                              F5G09510    
       01227 -0 76000 0 00012        RTT                                                              F5G09520    
       01230  0 02000 0 01233        TRA S402  TRY AGAIN                                              F5G09530    
       01231 -0 63400 0 00151        SXD TPCT,0   RESETS REPEAT COUNT                                 F5G09540    
       01232  0 02000 4 00001 S404   TRA 1,4 RETURN                                                   F5G09550    
       01233  0 76400 0 00203 S402   BST TAPE PREPARE TO READ AGAIN                                   F5G09560    
       01234 -0 53400 2 00151        LXD TPCT,2 FIVE TIMES                                            F5G09570    
       01235  1 00001 2 01236        TXI S402A,2,1                                                    F5G09580    
       01236 -0 63400 2 00151 S402A  SXD TPCT,2                                                       F5G09590    
       01237 -3 00004 2 01241        TXL S402B,2,4 GO ON                                              F5G09600    
       01240  0 07400 4 00004        TSX 4,4  NO GOOD,DIAGNOSTIC                                      F5G09610    
       01241 -0 53400 2 01210 S402B  LXD S407,2 RESET INDEX                                           F5G09620    
       01242  0 76200 0 00223        RTB TAPE                                                         F5G09630    
       01243 -0 53400 4 01244        LXD S405,4                                                       F5G09640    
       01244  1 00000 0 01207 S405   TXI S46,0,- RETURN ADDR. STORED HERE                             F5G09650    
                                         THE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660    
                                         OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED   F5G09670    
                                         IN LPLST.  IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680    
                                         THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND      F5G09690    
                                         EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5.  S5 USES F5G09700    
                                         S1,S111,S6,S7,S9, AS SUBROUTINES.                            F5G09710    
       01245 -0 63400 4 00473 S5     SXD S5V1,4     STORE RETURN INDEX                                F5G09720    
       01246  0 60100 0 00474        STO S5V2 STORE LOOP LIST QUANTITY                                F5G09730    
       01247  0 07400 4 01466        TSX S9,4 GET THE ENTRANCE                                        F5G09740    
                                          REQUIREMENTS                                                F5G09750    
       01250  0 50000 0 00340        CLA S5K3                                                         F5G09760    
       01251  0 53400 2 00343        LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL            F5G09770    
       01252  0 60100 2 00470 S51    STO ENC+8,2       STORE -0S IN THE                               F5G09780    
       01253  2 00001 2 01252        TIX S51,2,1 REGISTERS.                                           F5G09790    
       01254  0 53400 1 00342        LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09800    
       01255  0 53400 2 00342 S54    LXA S5K5,2      SET INDEX FOR IR1, M EQUALS 1                    F5G09810    
       01256  0 50000 1 00473        CLA EN1+3,1                                                      F5G09820    
       01257  0 34000 0 00336        CAS S5K1 IS ENN EMPTY                                            F5G09830    
       01260  0 02000 0 01262        TRA S55 NO                                                       F5G09840    
       01261  0 02000 0 01427        TRA S58 YES                                                      F5G09850    
       01262  0 56000 2 00465 S55    LDQ IN1+3,2 NO                                                   F5G09860    
       01263  0 16200 0 01267        TQP S56 IS IRM ASSIGNED                                          F5G09870    
       01264  0 34000 2 00430        CAS IR1+3,2 NO,IS C(ENM)=C(IRM)                                  F5G09880    
       01265  0 02000 0 01267        TRA S56 NO.                                                      F5G09890    
       01266  0 02000 0 01433        TRA S59 YES.                                                     F5G09900    
       01267  2 00001 2 01262 S56    TIX S55,2,1 NO. THRU WITH IRS                                    F5G09910    
       01270  2 00001 1 01255 S57    TIX S54,1,1 YES. THRU WITH ENS                                   F5G09920    
       01271  0 53400 2 00342        LXA S5K5,2 YES,SET INDEX FOR IR1,M=1                             F5G09930    
       01272  0 53400 1 00342 S510   LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09940    
       01273  0 50000 2 00430        CLA IR1+3,2                                                      F5G09950    
       01274  0 34000 0 00336        CAS S5K1 IS IRM EMPTY                                            F5G09960    
       01275  0 02000 0 01277        TRA S511 NO                                                      F5G09970    
       01276  0 02000 0 01310        TRA S513 YES                                                     F5G09980    
       01277  0 56000 2 00465 S511   LDQ IN1+3,2 NO                                                   F5G09990    
       01300  0 16200 0 01320        TQP S514 IS IRM ASSIGNED                                         F5G10000    
       01301  0 34000 0 00337        CAS S5K2 NO,IS C(IRM)REAL                                        F5G10010    
       01302  0 02000 0 01320        TRA S514 NO,                                                     F5G10020    
       01303  0 02000 0 01320        TRA S514 NO,                                                     F5G10030    
       01304  0 50000 0 00461 S512   CLA IRC INCREASE REAL                                            F5G10040    
       01305  0 40000 0 00315        ADD ONEA UNASSIGNED TAG                                          F5G10050    
       01306  0 60100 0 00461        STO IRC COUNTER.                                                 F5G10060    
       01307  0 02000 0 01320        TRA S514                                                         F5G10070    
       01310  0 50000 1 00470 S513   CLA EN4+3,1 HAS ENN                                              F5G10080    
       01311  0 12000 0 01317        TPL S537 BEEN ASSIGNED                                           F5G10090    
       01312  0 56000 0 00337        LDQ S5K2 NO,IS C(ENN)                                            F5G10100    
       01313  0 50000 1 00473        CLA EN1+3,1 REAL                                                 F5G10110    
       01314  0 04000 0 01317        TLQ S537                                                         F5G10120    
       01315  0 07400 4 01443        TSX S6,4 YES,MAKE IRM=ENN                                        F5G10130    
       01316  0 02000 0 01320        TRA S514                                                         F5G10140    
       01317  2 00001 1 01310 S537   TIX S513,1,1 ARE WE THRU WITH EN S                               F5G10150    
       01320  2 00001 2 01272 S514   TIX S510,2,1 YES, ARE WE THRU WITH IRS                           F5G10160    
       01321  0 50000 0 00460        CLA ENC YES.                                                     F5G10170    
       01322 -0 12000 0 01327        TMI S515 ARE THERE NO EMPTY ENS                                  F5G10180    
       01323  0 34000 0 00341        CAS S5K4 HOW MANY EMPTY ENS.                                     F5G10190    
       01324  0 02000 0 01327        TRA S515     3  OR 0                                             F5G10200    
       01325  0 02000 0 01343        TRA S520 2 EMPTY EN                                              F5G10210    
       01326  0 02000 0 01366        TRA S526 1 EMPTY EN                                              F5G10220    
       01327  0 53400 1 00342 S515   LXA S5K5,1 3 OR 0 EMPTY EN,N=1                                   F5G10230    
       01330  0 53400 2 00342 S519   LXA S5K5,2 M=1                                                   F5G10240    
       01331  0 50000 1 00470        CLA EN4+3,1                                                      P5G10250    
       01332  0 12000 0 01340        TPL S516 ENN ASSIGNED                                            F5G10260    
       01333  0 50000 2 00465 S518   CLA IN1+3,2 NO,IRM                                               F5G10270    
       01334  0 12000 0 01337        TPL S517 ASSIGNED                                                F5G10280    
       01335  0 07400 4 01443        TSX S6,4 NO,MAKE IRM=IRN                                         F5G10290    
       01336  0 02000 0 01340        TRA S516                                                         F5G10300    
       01337  2 00001 2 01333 S517   TIX S518,2,1                                                     F5G10310    
       01340  2 00001 1 01330 S516   TIX S519,1,1                                                     F5G10320    
       01341 -0 53400 4 00473        LXD S5V1,4                                                       F5G10330    
       01342  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G10340    
       01343  0 50000 0 00461 S520   CLA IRC                                                          F5G10350    
       01344  0 34000 0 00341        CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS               F5G10360    
       01345  0 02000 0 01350        TRA S536                                                         F5G10370    
       01346  0 02000 0 01405        TRA S531 1,NO,GO MATCH EMPTY ENS                                 F5G10380    
       01347  0 02000 0 01405        TRA S531 2,NO. WITH ANY REAL UNASS. IRS                          F5G10390    
       01350  0 07400 4 01450 S536   TSX S7,4    3, YES, TO COPY  IRS, ETC.                           F5G10400    
       01351  0 07400 4 00622        TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G10410    
       01352  0 53400 1 00342        LXA S5K5,1                                                       F5G10420    
       01353  0 07400 4 01435        TSX S595,4                                                       F5G10430    
       01354  0 50000 1 00473 S521   CLA EN1+3,1 IS EN                                                F5G10440    
       01355  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G10450    
       01356  0 02000 0 01360        TRA S522 NO                                                      F5G10460    
       01357  2 00001 1 01354        TIX S521,1,1 INDEX COUNTER OF IR S                               F5G10470    
       01360  0 07400 4 01443 S522   TSX S6,4 MADE ENN = IRM                                          F5G10480    
       01361  0 53400 1 00342 S529   LXA S5K5,1                                                       F5G10490    
       01362  0 50000 1 00460 S525   CLA IR4+3,1    REPLACE THE IRS                                   F5G10500    
       01363  0 60100 1 00430        STO IR1+3,1                                                      F5G10510    
       01364  2 00001 1 01362        TIX S525,1,1                                                     F5G10520    
       01365  0 02000 0 01327        TRA S515                                                         F5G10530    
       01366  0 56000 0 00461 S526   LDQ IRC                                                          FS010540    
       01367  0 50000 0 00341        CLA S5K4 ARE THERE 2 OR 3 REAL                                   F5G10550    
       01370  0 04000 0 01403        TLQ S530 UNASSNEO TAGS                                           F5G10560    
       01371  0 07400 4 01450        TSX S7,4 YES,COPY IRS                                            F5G10570    
       01372  0 07400 4 00620        TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R.                       F5G10580    
       01373  0 07400 4 01435        TSX S595,4                                                       F5G10590    
       01374  0 53400 1 00342        LXA S5K5,1 ASSIGN THE EMPTY                                      F5G10600    
       01375  0 50000 1 00473 S527   CLA EN1+3,1 EN TO THE IR                                         F5G10610    
       01376  0 34000 0 00336        CAS S5K1 SELECTED                                                F5G10620    
       01377  0 02000 0 01401        TRA S528                                                         F5G10630    
       01400  0 07400 4 01443        TSX S6,4 BY                                                      F5G10640    
       01401  2 00001 1 01375 S528   TIX S527,1,1 S111.                                               F5G10650    
       01402  0 02000 0 01361        TRA S529                                                         F5G10660    
       01403  0 16200 0 01405 S530   TQP S531 IS THERE ONE REAL TAG                                   F5G10670    
       01404  0 02000 0 01327        TRA S515 NO,GO MATCH ARBITRARILY.                                F5G10680    
       01405  0 53400 1 00342 S531   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G10690    
       01406  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,M=1                                    F5G10700    
       01407  0 50000 1 00473 S532   CLA EN1+3,1 IS ENN                                               F5G10710    
       01410  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G10720    
       01411  0 02000 0 01413        TRA S533 NO,                                                     F5G10730    
       01412  0 02000 0 01415        TRA S534 YES,                                                    F5G10740    
       01413  2 00001 1 01407 S533   TIX S532,1,1 NO,THRU WITH ENS                                    F5G10750    
       01414  0 02000 0 01327        TRA S515 YES.                                                    F5G10760    
       01415  0 50000 2 00465 S534   CLA IN1+3,2                                                      F5G10770    
       01416  0 12000 0 01425        TPL S535                                                         F5G10780    
       01417  0 50000 2 00430        CLA IR1+3,2 NO                                                   F5G10790    
       01420  0 34000 0 00337        CAS S5K2 IS C (IRM) REAL                                         F5G10800    
       01421  0 76100 0 00000        NOP  NO                                                          F5G10810    
       01422  0 02000 0 01425        TRA S535                                                         F5G10820    
       01423  0 07400 4 01443        TSX S6,4 YES                                                     F5G10830    
       01424  0 02000 0 01327        TRA S515                                                         F5G10840    
       01425  2 00001 2 01415 S535   TIX S534,2,1 NO                                                  F5G10850    
       01426  0 02000 0 01413        TRA S533                                                         F5G10860    
       01427  0 50000 0 00460 S58    CLA ENC YESENM EMPTY                                             F5G10870    
       01430  0 40000 0 00315        ADD ONEA INCREASE COUNTER                                        F5G10880    
       01431  0 60100 0 00460        STO ENC OF NO. OF EMPTY ENS.                                     F5G10890    
       01432  0 02000 0 01270        TRA S57                                                          F5G10900    
       01433  0 07400 4 01443 S59    TSX S6,4 MAKE IRM=ENN                                            F5G10910    
       01434  0 02000 0 01270        TRA S57                                                          F5G10920    
       01435 -0 53400 2 00430 S595   LXD IRR,2                                                        F5G10930    
       01436  0 50000 2 00430        CLA IR1+3,2                                                      F5G10940    
       01437  0 34000 0 01465        CAS S7K1                                                         F5G10950    
       01440  0 02000 4 00001        TRA 1,4                                                          F5G10960    
       01441  0 02000 0 01361        TRA S529                                                         F5G10970    
       01442  0 02000 4 00001        TRA 1,4                                                          F5G10980    
       01443 -0 75400 1 00000 S6     PXD 0,1                                                          F5G10990    
       01444  0 60100 2 00465        STO IN1+3,2                                                      F5G11000    
       01445 -0 75400 2 00000        PXD 0,2                                                          F5G11010    
       01446  0 60100 1 00470        STO EN4+3,1                                                      F5G11020    
       01447  0 02000 4 00001        TRA 1,4                                                          F5G11030    
       01450  0 53400 1 00342 S7     LXA S5K5,1 SET COUNT TO 3,M=1                                    F5G11040    
       01451  0 50000 1 00430 S71    CLA IR1+3,1 COPY ASIDE C(IRM)                                    F5G11050    
       01452  0 60100 1 00460        STO IR4+3,1                                                      F5G11060    
       01453  0 56000 1 00465        LDQ IN1+3,1 IRM ASSIGNED                                         F5G11070    
       01454  0 16200 0 01461        TQP S72                                                          F5G11080    
       01455  0 34000 0 00337        CAS S5K2 NO, IS C(IRM) REAL                                      F5G11090    
       01456  0 76100 0 00000        NOP                                                              F5G11100    
       01457  0 02000 0 01461        TRA S72 NO                                                       F5G11110    
       01460  0 02000 0 01463        TRA S73 YES.                                                     F5G11120    
       01461  0 50000 0 01465 S72    CLA S7K1 NO,REPLACE CIIRM)                                       F5G11130    
       01462  0 60100 1 00430        STO IR1+3,1 BY IMPOSSIBLE TAG.                                   F5G11140    
       01463  2 00001 1 01451 S73    TIX S71,1,1 COUNT TO 3,M=M+1                                     F5G11150    
       01464  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G11160    
       01465 +000000777760    S7K1   OCT 777760 IMPOSSIBLE TAG VALUE.                                 F5G11170    
                                         THE S9 SUBROUT1NE LOADS EN1,2,3.                             F5G11180    
       01466 -0 63400 4 00476 S9     SXD S9V2,4 STORE RETURN INDEX.                                   F5G11190    
       01467  0 07400 4 00070        TSX SE,4 MAKE SURE BB IS IN C+M+                                 F5G11200    
       01470  0 50000 1 06447        CLA BBB+5,1 GET AND                                              F5G11210    
       01471 -0 73400 2 00000        PDX 0,2 STORE THE                                                F5G11220    
       01472  0 50000 2 05061        CLA REG,2 REGION                                                 F5G11230    
       01473  0 60100 0 00477        STO S9V4 WORD+                                                   F5G11240    
       01474  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G11250    
       01475  0 50000 1 06443        CLA BBB+1,1 STORE THE WORD                                       F5G11260    
       01476  0 60100 0 00475        STO S9V1 CONTAINING THE PERMATATION NOS.                         F5G11270    
       01477  0 50000 0 00475 S92    CLA S9V1 EXTRACT THE N TH                                        F5G11280    
       01500  0 77100 2 00003        ARS 3,2 PERMUTATION NO.                                          F5G11290    
       01501  0 77100 2 00003        ARS 3,2 AND PUT IT                                               F5G11300    
       01502 -0 32000 0 00350        ANA S9K3 IN                                                      F5G11310    
       01503 -0 73400 4 00000        PDX 0,4 INDEX 4.                                                 F5G11320    
       01504 -0 50000 0 00477        CAL S9V4 IS THIS                                                 F5G11330    
       01505 -0 32000 4 00350        ANA S9K2+3,4 AN EMPTY                                            F5G11340    
       01506  0 10000 0 01515        TZE S93 I.R.                                                     F5G11350    
       01507  0 50000 0 00336        CLA S5K1 YES,STORE EMPTINESS SYMBOL                              F5G11360    
       01510  0 60100 4 00473 S94    STO EN1+3,4                                                      F5G11370    
       01511  1 77777 1 01512        TXI S91,1,-1      D0WN THE ENTR. INDEX                           F5G11380    
       01512  2 00001 2 01477 S91    TIX S92,2,1 COUNT TO 3                                           F5G11390    
       01513 -0 53400 4 00476        LXD S9V2,4                                                       F5G11400    
       01514  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G11410    
       01515 -0 50000 1 06444 S93    CAL BBB+2,1 SET THE                                              F5G11420    
       01516  0 77100 0 00022        ARS 18 ENTRANCE REQUIREMENT.                                     F5G11430    
       01517  0 34000 0 00336        CAS S5K1 IS IT AN EMPTINESS SYMBOL                               F5G11440    
       01520  0 02000 0 01510        TRA S94 NO,                                                      F5G11450    
       01521  0 50000 0 00333        CLA LK1 YES,STORE E,(HASH SYMBOL).                               F5G11460    
       01522  0 02000 0 01510        TRA S94 NO,                                                      F5G11470    
                                         THE SA SUBROUTINE LOADS EX1,2,3 AND ACT1,2,3 FROM EXIT       F5G11480    
                                         CONDITIONS AND ACTIVITY BITS IPREFIX, WORD 2, BBB) OF THE    F5G11490    
                                         EXIT BB IN A REGION.                                         F5G11500    
       01523 -0 63400 4 00501 SA     SXD SAV2,4 STORE RETURN INDEX.                                   F5G11510    
       01524 -0 32000 0 00353        ANA SBK2         IF THIS IS AN IMPOSSIBLE BB,                    F5G11520    
       01525  0 56000 0 00351        LDQ SAK1         RETURN AT ONCE, DOING NOTHING                   F5G11530    
       01526  0 04000 4 00001        TLQ 1,4                                                          F5G11540    
       01527  0 07400 4 00067        TSX SE1,4 MAKE SURE BB IS IN CM.                                 F5G11550    
       01530  0 50000 1 06447        CLA BBB+5,1 GET AND                                              F5G11560    
       01531 -0 73400 2 00000        PDX 0,2 STORE                                                    F5G11570    
       01532  0 50000 2 05061        CLA REG,2 REGION                                                 F5G11580    
       01533  0 60100 0 00502        STO SAV3 WORD.                                                   F5G11590    
       01534  0 50000 1 06443        CLA BBB+1,1 GET AND STORE THE                                    F5G11600    
       01535  0 60100 0 00500        STO SAV1 WORD HAVING PERMUTATION NOS.                            F5G11610    
       01536  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=N+1                                  F5G11620    
       01537 -0 50000 0 00500 SA1    CAL SAV1 PUT PERMUTATION                                         F5G11630    
       01540  0 77100 2 00003        ARS 3,2 NUMBER                                                   F5G11640    
       01541  0 77100 2 00003        ARS 3,2 IN                                                       F5G11650    
       01542 -0 32000 0 00350        ANA S9K3 INDEX 4                                                 F5G11660    
       01543 -0 73400 4 00000        PDX 0,4                                                          F5G11670    
       01544 -0 50000 0 00502        CAL SAV3 IS THIS                                                 F5G11680    
       01545 -0 32000 4 00350        ANA S9K2+3,4 AN EMPTY                                            F5G11690    
       01546  0 10000 0 01560        TZE SA2 EXIT                                                     F5G11700    
       01547  0 50000 0 00336        CLA S5K1 YES,STORE EMPTINESS SYMBOL.                             F5G11710    
       01550  0 60100 4 00506 SA4    STO EX1+3,4                                                      F5G11720    
       01551 -0 50000 0 00500 SA5    CAL SAV1       STORE THE                                         F5G11730    
       01552  0 76700 2 00003        ALS 3,2 ACTIVE                                                   F5G11740    
       01553  0 60200 4 00511        SLW ACT1+3,4        INDICATOR                                    F5G11750    
       01554  1 77777 1 01555        TXI SA3,1,-1                                                     F5G11760    
       01555  2 00001 2 01537 SA3    TIX SA1,2,1 COUNT TO 3                                           F5G11770    
       01556 -0 53400 4 00501        LXD SAV2,4                                                       F5G11780    
       01557  0 02000 4 00001        TRA 1,4          RETURN                                          F5G11790    
       01560 -0 50000 1 06444 SA2    CAL BBB+2,1                                                      F5G11800    
       01561 -0 32000 0 00326        ANA S3K4 IS THIS                                                 F5G11810    
       01562  0 34000 0 00336        CAS S5K1 AN EMPTY SYMBOL                                         F5G11820    
       01563  0 02000 0 01550        TRA SA4 NO                                                       F5G11830    
       01564  0 50000 0 00333        CLA LK1 YES REPLACE BY E.                                        F5G11840    
       01565  0 02000 0 01550        TRA SA4 NO                                                       F5G11850    
                                         THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860    
                                         COMPILATION.  THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS   F5G11870    
                                         EXAMINED.  IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB     F5G11880    
                                         ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE    F5G11890    
                                         LINK OUT OF THE REGION.  IF IT IS POSITIVE (ACTIVE INSTRUC.  F5G11900    
                                         IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG     F5G11910    
                                         TABLE,AT THE ACTIVE INSTRUCTION.  THE APPROPRIATE AC1,2, OR 3F5G11920    
                                         IS ALSO TURNED OFF BY SB.                                    F5G11930    
       01566 -0 63400 1 00514 SB     SXD SBV4,1 STORE INDEX OF ACTIVE I.R+                            F5G11940    
       01567 -0 63400 4 00511        SXD SBV1,4 STORE INDEX OF RETURN,                                F5G11950    
       01570  0 50000 1 00561        CLA AC1+3,1 IS THE ACTIVE THING                                  F5G11960    
       01571  0 12000 0 01641        TPL SB1 AN INSTRUCTION                                           F5G11970    
       01572 -0 73400 1 00000        PDX 0,1 NO                                                       F5G11980    
       01573  0 50000 1 04777        CLA LPLST+S3P1,1 GET + STORE                                     F5G11990    
       01574  0 34000 0 00324        CAS S3K2 PRED. BB                                                F5G12000    
       01575  0 76100 0 00000        NOP                                                              F5G12010    
       01576  0 02000 0 01600        TRA SB01                                                         F5G12020    
       01577  0 77100 0 00022        ARS 18 NO                                                        F5G12030    
       01600  0 62100 0 00513 SB01   STA SBV3                                                         F5G12040    
       01601  0 50000 1 05000        CLA LPLST+S3P1+1,1                                               F5G12050    
       01602  0 34000 0 00323        CAS S3K1 END LOOP LIST SENTINEL                                  F5G12060    
       01603  0 02000 0 01605        TRA SB7 NO,                                                      F5G12070    
       01604  0 50000 0 04741        CLA LPLST YES,SUCCESSOR IS 1ST ENTRY.                            F5G12080    
       01605  0 07400 4 00070 SB7    TSX SE,4 NO,GET ADDR. OF                                         F5G12090    
       01606  0 50000 1 06443        CLA BBB+1,1 PRED.                                                F5G12100    
       01607  0 60100 0 00515        STO SBV5 STORE PERMUTATION NOS.                                  F5G12110    
       01610  0 50000 1 06442        CLA BBB,1 GET ADDR OF 1ST PRED.                                  F5G12120    
       01611  0 60200 0 00512 SB4    SLW SBV2                                                         F5G12130    
       01612  0 07400 4 00055        TSX SE5,4                                                        F5G12140    
       01613 -0 50000 1 07337        CAL PRED,1                                                       F5G12150    
       01614 -0 32000 0 00353        ANA SBK2                                                         F5G12160    
       01615  0 34000 0 00513        CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G12170    
       01616  0 02000 0 01620        TRA SB2 NO                                                       F5G12180    
       01617  0 02000 0 01623        TRA SB5 YES                                                      F5G12190    
       01620  0 50000 0 00512 SB2    CLA SBV2 NO TRY NEXT PRED.                                       F5G12200    
       01621  0 40000 0 00315        ADD ONEA                                                         F5G12210    
       01622  0 02000 0 01611        TRA SB4                                                          F5G12220    
       01623  0 53400 2 00342 SB5    LXA S5K5,2                                                       F5G12230    
       01624 -0 50000 0 00515 SB00   CAL SBV5 SEARCH PERMUTATION                                      F5G12240    
       01625  0 77100 2 00003        ARS 3,2 NOS. FOR THE INDEX                                       F5G12250    
       01626  0 77100 2 00003        ARS 3,2 STORED IN SBV4                                           F5G12260    
       01627 -0 32000 0 00350        ANA S9K3                                                         F5G12270    
       01630  0 34000 0 00514        CAS SBV4 IS THIS PERMUTATION NO.                                 F5G12280    
       01631  0 02000 0 01633        TRA SB8 NO EQUAL TO THE ACTIVE                                   F5G12290    
       01632  0 02000 0 01635        TRA SB9 YES IR                                                   F5G12300    
       01633  2 00001 2 01624 SB8    TIX SB00,2,1 NO                                                  F5G12310    
       01634  0 07400 4 00004        TSX 4,4 DIAGNOSTIC,ERROR                                         F5G12320    
       01635  0 50000 0 00354 SB9    CLA SBK3 GENERATE NO STORE                                       F5G12330    
       01636  0 77100 2 00003        ARS 3,2 THE                                                      F5G12340    
       01637 -0 60200 1 07337        ORS PRED,1 SX FIT IN                                             F5G12350    
       01640  0 02000 0 01654        TRA SB6 PRED. TABLE.                                             F5G12360    
       01641 -0 32000 0 00326 SB1    ANA S3K4                                                         F5G12370    
       01642  0 76500 0 00043        LRS 35 COMPUTE NO. 0F WORD IN                                    F5G12380    
       01643  0 22100 0 00371        DVP XK9 STAG ANO POSITION OF SX                                  F5G12390    
       01644  0 73400 2 00000        PAX 0,2 FIT IN WORD.                                             F5G12400    
       01645 -0 50000 0 00352        CAL SBK1 GENERATE                                                F5G12410    
       01646  0 76700 2 00010        ALS 8,2 THE BIT                                                  F5G12420    
       01647  0 60200 0 00512        SLW SBV2 TO                                                      F5G12430    
                                          STORE.                                                      F5G12440    
       01650  0 76300 0 00043        LLS 35 GET NO. OF WORD OUT OF MQ.                                F5G12450    
       01651  0 07400 4 00032        TSX SE4,4 MAKE SURE THE WD IS IN C.M.                            F5G12460    
       01652 -0 50000 0 00512        CAL SBV2                                                         F5G12470    
       01653 -0 60200 1 05061        ORS STAG,1                                                       F5G12480    
       01654  0 50000 0 00314 SB6    CLA ZERO SET IR                                                  F5G12490    
       01655 -0 53400 1 00514        LXD SBV4,1 TO                                                    F5G12500    
       01656  0 60100 1 00561        STO AC1+3,1 NOT ACTIVE.                                          F5G12510    
       01657 -0 53400 4 00511        LXD SBV1,4 RE-                                                   F5G12520    
       01660  0 02000 4 00001        TRA 1,4 TURN                                                     F5G12530    
                                         THE SC SUBR0UTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX     F5G12540    
                                         REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION.  THIS  F5G12550    
                                         POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND.  F5G12560    
                                         THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2,  F5G12570    
                                         BBB TABLE FOR ALL BB,S DURING WHICH INDEX REGISTER IS ACTIVE.F5G12580    
                                         THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590    
                                         TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600    
                                         ING A SECTION OF LPLST ACTIVE.  ALL BB,S BETWEEN THE ORIGIN  F5G12610    
                                         OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS    F5G12620    
                                         ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS     F5G12630    
                                         TURNED OFF.  SD IS USED AS A SUBR0UTINE, DOING THE ACTUAL    F5G12640    
                                         MARKING OF BB,S ACTIVE.                                      F5G12650    
       01661  0 50000 1 00561 SC     CLA AC1+3,1 IS IR                                                F5G12660    
       01662  0 10000 4 00001        TZE 1,4 ACTIVE                                                   F5G12670    
       01663 -0 63400 4 00516        SXD SCV1,4 YES,STORE RETURN                                      F5G12680    
       01664 -0 63400 1 01736        SXD SC9,1 AND INDEX OF ACTIVE I.R+                               F5G12690    
       01665  0 62200 0 00520        STD SCV3 STORE INDEX OF LOOP LIST.                               F5G12700    
       01666  0 50000 0 00520        CLA SCV3 IS THIS THE CURRENT                                     F5G12710    
       01667  0 40200 0 00316        SUB ONED                                                         F5G12720    
       01670 -0 40000 0 00440        SBM S3V4       IS THIS THE CURRENT LPLST INDEX                   F5G12730    
       01671 -0 10000 0 01674        TNZ SC40                                                         F5G12740    
       01672  0 50000 0 00521        CLA ACIND      YES                                               F5G12750    
       01673  0 12000 4 00001        TPL 1,4        IS THIS THE ACTIVE PASS                           F5G12760    
       01674 -0 53400 2 00520 SC40   LXD SCV3,2     YES                                               F5G12770    
       01675  0 50000 2 04777        CLA LPLST+S3P1,2                                                 F5G12780    
       01676  0 34000 0 00324        CAS S3K2       IS 1ST AACTIVE QUANTITY A BB                      F5G12790    
       01677  0 02000 0 01721        TRA SC02                                                         F5G12800    
       01700  0 02000 0 01721        TRA SC02       NO                                                F5G12810    
       01701  0 02000 0 01734        TRA SC8        YES                                               F5G12620    
       01702  0 40200 0 00316 SC4    SUB ONED       IS THIS CURRENT                                   F5G12830    
       01703  0 34000 0 00440        CAS S3V4       LOOP LIST INDEX                                   F5G12840    
       01704  0 02000 0 01706        TRA SC2 N0,                                                      F5G12850    
       01705  0 02000 0 01725        TRA SC5 YES,                                                     F5G12860    
       01706 -0 53400 2 00520 SC2    LXD SCV3,2 NO,                                                   F5G12870    
       01707  0 50000 2 04777        CLA LPLST+S3P1,2                                                 F5G12880    
       01710  0 34000 0 00323        CAS S3K1 IS IT END LOOP LIST                                     F5G12890    
       01711  0 02000 0 01713        TRA SC3 N0,                                                      F5G12900    
       01712  0 02000 0 01732        TRA SC6 YES,                                                     F5G12910    
       01713  0 34000 0 00324 SC3    CAS S3K2 NO,IS IT A BB                                           F5G12920    
       01714  0 76100 0 00000        NOP  NO,                                                         F5G12930    
       01715  0 02000 0 01717        TRA SC04                                                         F5G12940    
       01716  0 02000 0 01734        TRA SC8 YES,                                                     F5G12950    
       01717 -0 53400 2 01736 SC04   LXD SC9,2      NO, PUT INDEX OF ACTIVE IR                        F5G12960    
       01720  0 07400 4 01753        TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE.                       F5G12970    
       01721  0 50000 0 00520 SC02   CLA SCV3 PREPARE TO GET                                          F5G12980    
       01722  0 40200 0 00316        SUB ONED       NEXT                                              F5G12990    
       01723  0 62200 0 00520 SC7    STD SCV3 LOOP LIST QUANTITY.                                     F5G13000    
       01724  0 02000 0 01702        TRA SC4                                                          F5G13010    
       01725 -0 53400 1 01736 SC5    LXD SC9,1                                                        F5G13020    
       01726  0 50000 0 00314        CLA ZERO RECORD I.R. NOT                                         F5G13030    
       01727  0 60100 1 00561        STO AC1+3,1 ACTIVE ANYMORE.                                      F5G13040    
       01730 -0 53400 4 00516        LXD SCV1,4                                                       F5G13050    
       01731  0 02000 4 00001        TRA 1,4 RETURN.                                                  F5G13060    
       01732  0 50000 0 00325 SC6    CLA S3K3          ARRANGE TO GET 1ST LPLST QUANTITY              F5G13070    
       01733  0 02000 0 01723        TRA SC7 QUANTITY NEXT.                                           F5G13080    
       01734  0 07400 4 00070 SC8    TSX SE,4                                                         F5G13090    
       01735 -0 63400 1 00517        SXD SCV2,1 GET INDEX OF BB                                       F5G13100    
       01736  1 00000 1 01737 SC9    TXI SC01,1,0 INCREASE INDEX BY INDEX 0F OCT. I.R.                F5G13110    
       01737  0 50000 1 06447 SC01   CLA BBB+5,1 GET THE                                              F5G13120    
       01740 -0 32000 0 00326        ANA S3K4 EXIT CONDITION.                                         F5G13130    
       01741 -0 53400 2 01736        LXD SC9,2 IS EXIT COND. SAME                                     F5G13140    
       01742  0 34000 2 00430        CAS IR1+3,2 AS TAG IN ACTIVE I.RH                                F5G13150    
       01743  0 02000 0 01721        TRA SC02 NO,                                                     F5G13160    
       01744  0 02000 0 01746        TRA SC03 YES,                                                    F5G13170    
       01745  0 02000 0 01721        TRA SC02 NO,                                                     F5G13180    
       01746 -0 50000 0 00340 SC03   CAL S5K3 RECORD THAT BB IS                                       F5G13190    
       01747  0 77100 2 00003        ARS 3,2 ACTIVE                                                   F5G13200    
       01750 -0 53400 1 00517        LXD SCV2,1 WO THIS                                               F5G13210    
       01751 -0 60200 1 06443        ORS BBB+1,1 I+R.                                                 F5G13220    
       01752  0 02000 0 01721        TRA SC02                                                         F5G13230    
       01753 -0 63400 2 00523 SD     SXD SDV2,2                                                       F5G13240    
       01754 -0 63400 4 00522        SXD SDV1,4 STORE RETURN.                                         F5G13250    
       01755  0 07400 4 00070        TSX SE,4 GET INO=X OF BB                                         F5G13260    
       01756  0 50000 1 06447        CLA BBB+5,1 GET                                                  F5G13270    
       01757 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G13280    
       01760  0 50000 1 05061        CLA REG,1 WORD.                                                  F5G13290    
       01761  0 07400 4 00070        TSX SE,4 GET BB INDEX.                                           F5G13300    
       01762 -0 63400 1 00525 SD7    SXD SDV4,1                                                       F5G13310    
       01763  0 50000 1 06443        CLA BBB+1,1 STORE                                                F5G13320    
       01764  0 60100 0 00524        STO SDV3 AWAY THE PERMUTATION NOS.                               F5G13330    
       01765  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G13340    
       01766 -0 50000 0 00524 SD3    CAL SDV3 IS                                                      F5G13350    
       01767  0 77100 2 00003        ARS 3,2 PERMUTATION NO.                                          F5G13360    
       01770  0 77100 2 00003        ARS 3,2                                                          F5G13370    
       01771 -0 32000 0 00350        ANA S9K3 N EQUAL                                                 F5G13380    
       01772  0 34000 0 00523        CAS SDV2 TO I.R. INDEX                                           F5G13390    
       01773  0 02000 0 01775        TRA SD1 NO                                                       F5G13400    
       01774  0 02000 0 02000        TRA SD4 YES                                                      F5G13410    
       01775  1 77777 1 01776 SD1    TXI SD1+1,1,-1    NO                                             F5G13420    
       01776  2 00001 2 01766 S02    TIX SD3,2,1 COUNT TO 3                                           F5G13430    
       01777  0 07400 4 00004        TSX 4,4                                                          F5G13440    
       02000 -0 50000 1 06444 SD4    CAL BBB+2,1                                                      F5G13450    
       02001 -0 32000 0 00326        ANA S3K4 IS TAG IN                                               F5G13460    
       02002 -0 53400 4 00523        LXD SDV2,4 EXIT CONDITION                                        F5G13470    
       02003 -0 53400 1 00525        LXD SDV4,1 SAME AS IN ACTIVE I.R.                                F5G13480    
       02004  0 34000 4 00430        CAS IR1+3,4                                                      F5G13490    
       02005  0 02000 0 02007        TRA SD5 NO                                                       F5G13500    
       02006  0 02000 0 02020        TRA SD9 YES,IS                                                   F5G13510    
       02007 -0 50000 1 06447 SD5    CAL BBB+5,1 NO THIS LAST                                         F5G13520    
       02010 -0 32000 0 00353        ANA SBK2 BB                                                      F5G13530    
       02011  0 34000 0 00353        CAS SBK2 IN REGI0N                                               F5G13540    
       02012  0 02000 0 02014        TRA SD6 NO                                                       F5G13550    
       02013  0 02000 0 02016        TRA SD8 YES                                                      F5G13560    
       02014  0 07400 4 00067 SD6    TSX SE1,4 NO                                                     F5G13570    
       02015  0 02000 0 01762        TRA SD7                                                          F5G13580    
       02016 -0 53400 4 00522 SD8    LXD SDV1,4 RETURN                                                F5G13590    
       02017  0 02000 4 00001        TRA 1,4                                                          F5G13600    
       02020 -0 50000 0 00340 SD9    CAL S5K3 RECORD THIS BB                                          F5G13610    
       02021  0 77100 2 00003        ARS 3,2 ACTIVE                                                   F5G13620    
       02022 -0 60200 1 06443        ORS BBB+1,1 WO THIS IR                                           F5G13630    
       02023  0 02000 0 02007        TRA SD5                                                          F5G13640    
                                         THE SF SUBROUTINE FORMS APPRQPRIATE AC1,2,3 ENTRY WHEN AN    F5G13650    
                                         ACTIVE INSTRUCT1ON IS ENCOUNTERED.                           F5G13660    
       02024  0 50000 0 00442 SF     CLA TPE IS THIS                                                  F5G13670    
       02025  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G13680    
       02026  0 02000 0 02030        TRA SF1 NO,                                                      F5G13690    
       02027  0 02000 0 02034        TRA SF4 YES,                                                     F5G13700    
       02030  0 34000 0 00373 SF1    CAS XK12 NO,IS IT AN ACTIVE INSTR                                F5G13710    
       02031  0 02000 4 00001        TRA 1,4 NO RETURN                                                F5G13720    
       02032  0 02000 0 02034        TRA SF4 YES,                                                     F5G13730    
       02033  0 02000 4 00001        TRA 1,4 NO                                                       F5G13740    
       02034  0 50000 0 00571 SF4    CLA XV5 FORM QUANTITY TO                                         F5G13750    
       02035  0 60100 0 00526        STO SFV1 BE PUT                                                  F5G13760    
       02036 -0 53400 2 00440        LXD S3V4,2 INTO                                                  F5G13770    
       02037  1 00001 2 02040        TXI SF5,2,1 ACTIVE                                               F5G13780    
       02040 -0 63400 2 00526 SF5    SXD SFV1,2        INDICATOR                                      F5G13790    
       02041  0 02000 4 00002        TRA 2,4                                                          F5G13800    
                                           PERMUTE THE PHI AND LX BITS  SUBROUTINE                    F5G13810    
                                         THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG  F5G13820    
                                         ENTRY.                                                       F5G13830    
       02042 -0 63400 4 00530 SG     SXD SGV1,4          SAVE RETURN                                  F5G13840    
       02043  0 56000 0 00315        LDQ ONEA            SET NEW LX AND PHI BITS TO ONEA              F5G13850    
       02044 -0 60000 0 00531        STQ SGV2                                                         F5G13860    
       02045  0 50000 0 00444        CLA S3V5            GET INDEX OF REGION WORD                     F5G13870    
       02046  0 07400 4 00070        TSX SE,4                                                         F5G13880    
       02047  0 50000 1 06447        CLA BBB+5,1                                                      F5G13890    
       02050 -0 73400 2 00000        PDX 0,2                                                          F5G13900    
       02051  0 53400 4 00342        LXA S5K5,4          SET COUNT TO 3                               F5G13910    
       02052  0 50000 4 00470 SG1    CLA EN4+3,4         FIND INDEX OF IR                             F5G13920    
       02053 -0 73400 1 00000        PDX 0,1                                                          F5G13930    
       02054 -0 50000 2 05061        CAL REG,2           PERMUTE THE LX BIT                           F5G13940    
       02055  0 76700 4 00003        ALS 3,4                                                          F5G13950    
       02056 -0 32000 0 00340        ANA S5K3                                                         F5G13960    
       02057  0 77100 1 00003        ARS 3,1                                                          F5G13970    
       02060 -0 60200 0 00531        ORS SGV2                                                         F5G13980    
       02061 -0 50000 2 05061        CAL REG,2           PERMUTE THE PHI BIT                          F5G13990    
       02062  0 77100 4 00003        ARS 3,4                                                          F5G14000    
       02063 -0 32000 0 00405        ANA XK23                                                         F5G14010    
       02064  0 76700 1 00003        ALS 3,1                                                          F5G14020    
       02065 -0 60200 0 00531        ORS SGV2                                                         F5G14030    
       02066  2 00001 4 02052        TIX SG1,4,1       COUNT TO 3                                     F5G14040    
       02067 -0 50000 2 05061        CAL REG,2                                                        F5G14050    
       02070 -0 32000 0 00303        ANA SEK4                                                         F5G14060    
       02071 -0 50100 0 00531        ORA SGV2                                                         F5G14070    
       02072  0 60200 2 05061        SLW REG,2                                                        F5G14080    
       02073 -0 53400 4 00530        LXD SGV1,4          RETURN                                       F5G14090    
       02074  0 02000 4 00001        TRA 1,4                                                          F5G14100    
                                         THE FI SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110    
                                         A GIVEN BB AND STORES IT IN FV 101.                          F5G14120    
       02075 -0 63400 4 00537 F1     SXD FV6,4 STORE RETURN                                           F5G14130    
       02076  0 56000 0 00314        LDQ ZERO SET HIGHEST                                             F5G14140    
       02077 -0 60000 0 00544        STQ FV101 FREQ. TO 0.                                            F5G14150    
       02100  0 60100 0 00545        STO FV102 STORE BB NO+                                           F5G14160    
       02101  0 07400 4 00067        TSX SE1,4 GET INDEX OF BB                                        F5G14170    
       02102  0 50000 1 06447        CLA BBB+5,1 STORE REGION                                         F5G14180    
       02103  0 60100 0 00547        STO FV104 NO. WORD.                                              F5G14190    
       02104 -0 50000 1 06442        CAL BBB,1 GET PRED.                                              F5G14200    
       02105  0 62100 0 00540        STA FV7 NO. AND STORE IT                                         F5G14210    
       02106 -0 50000 0 00545        CAL FV102           GET AND STORE                                F5G14220    
       02107  0 40000 0 00315        ADD ONEA FIRST PRED. IN                                          F5G14230    
       02110  0 07400 4 00067        TSX SE1,4 NEXT B.B.                                              F5G14240    
       02111  0 50000 1 06442        CLA BBB,1                                                        F5G14250    
       02112  0 62100 0 00541        STA FV8                                                          F5G14260    
       02113  0 50000 0 00540        CLA FV7 IS THIS PRED.                                            F5G14270    
       02114  0 34000 0 00541 F4     CAS FV8 IN SAME BB                                               F5G14280    
       02115  0 02000 0 02117        TRA F2                                                           F5G14290    
       02116  0 02000 0 02134        TRA F5 NO                                                        F5G14300    
       02117  0 07400 4 00055 F2     TSX SE5,4 GET INDEX OF PRED                                      F5G14310    
       02120  0 50000 1 07337        CLA PRED,1                                                       F5G14320    
       02121  0 34000 0 00544        CAS FV101 IS THIS FREQ. GREATER                                  F5G14330    
       02122  0 02000 0 02125        TRA F92                                                          F5G14340    
       02123  0 76100 0 00000        NOP                                                              F5G14350    
       02124  0 02000 0 02130        TRA F3 NO                                                        F5G14360    
       02125  0 60100 0 00544 F92    STO FV101     STORE NEW MAX.                                     F5G14370    
       02126  0 50000 0 00540        CLA FV7 STORE NEW                                                F5G14380    
       02127  0 60100 0 00546        STO FV103 PRED. NO.                                              F5G14390    
       02130  0 50000 0 00540 F3     CLA FV7 ARRANGE TO                                               F5G14400    
       02131  0 40000 0 00315        ADD ONEA CONSIDER NEXT PRED.                                     F5G14410    
       02132  0 62100 0 00540        STA FV7                                                          F5G14420    
       02133  0 02000 0 02114        TRA F4                                                           F5G14430    
       02134 -0 53400 4 00537 F5     LXD FV6,4                                                        F5G14440    
       02135  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G14450    
                                         THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460    
                                         A GIVEN BB AND STORES IT IN FV 101.                          F5G14470    
       02136 -0 63400 4 00537 F30    SXD FV6,4                                                        F5G14480    
       02137  0 56000 0 00314        LDQ ZERO SET HIGHEST FREQH                                       F5G14490    
       02140 -0 60000 0 00544        STQ FV101 TO 0.                                                  F5G14500    
       02141  0 60100 0 00545        STO FV102 STORE BB NO.                                           F5G14510    
       02142  0 07400 4 00070        TSX SE,4                                                         F5G14520    
       02143  0 50000 1 06447        CLA BBB+5,1                                                      F5G14530    
       02144  0 60100 0 00547        STO FV104                                                        F5G14540    
       02145 -0 50000 1 06442        CAL BBB,1 GET SUCC. NO.                                          F5G14550    
       02146  0 62200 0 00542        STD FV9          AND STORE IT                                    F5G14560    
       02147 -0 50000 0 00545        CAL FV102           GET AND STORE                                F5G14570    
       02150  0 40000 0 00316        ADD ONED SUCC.                                                   F5G14580    
       02151  0 07400 4 00070        TSX SE,4 NO.                                                     F5G14590    
       02152  0 50000 1 06442        CLA BBB,1 OF 1ST SUCC.                                           F5G14600    
       02153  0 62200 0 00543        STD FV10       IN NEXT BB                                        F5G14610    
       02154  0 50000 0 00542        CLA FV9                                                          F5G14620    
       02155  0 34000 0 00543 F31    CAS FV10     IS SUCC IN SAME BB                                  F5G14630    
       02156  0 02000 0 02160        TRA F32                                                          F5G14640    
       02157  0 02000 0 02175        TRA F34 NO.                                                      F5G14650    
       02160  0 07400 4 00044 F32    TSX SE6,4 GET INDEX OF SUCC.                                     F5G14660    
       02161  0 50000 1 07555        CLA SUCC,1                                                       F5G14670    
       02162  0 34000 0 00544        CAS FV101 IS THIS FREQ. GREATER                                  F5G14680    
       02163  0 02000 0 02166        TRA F93                                                          F5G14690    
       02164  0 76100 0 00000        NOP                                                              F5G14700    
       02165  0 02000 0 02171        TRA F33 NO                                                       F5G14710    
       02166  0 60100 0 00544 F93    STO FV101      STORE NEW MAX.                                    F5G14720    
       02167  0 50000 0 00542        CLA FV9       STORE NEW                                          F5G14730    
       02170  0 60100 0 00546        STO FV103 SUCC. NO.                                              F5G14740    
       02171  0 50000 0 00542 F33    CLA FV9       ARRANGE TO CONSIDER                                F5G14750    
       02172  0 40000 0 00316        ADD ONED NEXT SUCC.                                              F5G14760    
       02173  0 62200 0 00542        STD FV9                                                          F5G14770    
       02174  0 02000 0 02155        TRA F31                                                          F5G14780    
       02175 -0 53400 4 00537 F34    LXD FV6,4                                                        F5G14790    
       02176  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G14800    
       02177  0 50000 0 00314 F      CLA ZERO SET INDICATOR TO SAY                                    F5G14810    
       02200  0 60100 0 00550        STO LPIND THIS ISNT A LOOP.                                      F5G14820    
       02201  0 60100 0 00532        STO FV1 SET HIGHEST FREQ. TO 0.                                  F5G14830    
       02202  0 60100 0 00536        STO FV5        SET TO CONSIDER 0TH BB                            F5G14840    
       02203  0 50000 0 00536 F7     CLA FV5                                                          F5G14850    
       02204  0 07400 4 02075        TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER                   F5G14860    
       02205  0 50000 0 00544        CLA FV101 IS IT GREATER THAN                                     F5G14870    
       02206  0 34000 0 00532        CAS FV1 PREVIOUS MAXIMUM                                         F5G14880    
       02207  0 02000 0 02212        TRA F85                                                          F5G14890    
       02210  0 76100 0 00000        NOP                                                              F5G14900    
       02211  0 02000 0 02221        TRA F6 NO+                                                       F5G14910    
       02212  0 60100 0 00532 F85    STO FV1      REPLACE PREV. MAX.                                  F5G14920    
       02213  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G14930    
       02214  0 60100 0 00533        STO FV2                                                          F5G14940    
       02215  0 50000 0 00546        CLA FV103 AND PRED. NO.                                          F5G14950    
       02216  0 60100 0 00534        STO FV3                                                          F5G14960    
       02217  0 50000 0 00547        CLA FV104 AND REGION NO. WORD.                                   F5G14970    
       02220  0 60100 0 00535        STO FV4                                                          F5G14980    
       02221  0 50000 0 00536 F6     CLA FV5 ARRANGE TO CONSIDER NEXT                                 F5G14990    
       02222  0 40000 0 00315        ADD ONEA B.B.                                                    F5G15000    
       02223  0 60100 0 00536        STO FV5                                                          F5G15010    
       02224  0 40200 0 07774        SUB KEYS                                                         F5G15020    
       02225  0 40000 0 00315        ADD ONEA                                                         F5G15030    
       02226 -0 10000 0 02203        TNZ F7         WAS THIS THE LAST BB                              F5G15040    
       02227  0 76000 0 00012  F86   DCT         YES, IF ANY DIVIDE CHECKS GO                         F5G15050    
       02230  0 07400 4 00004        TSX 4,4     TO DIAGNOSTIC.                                       F5G15060    
       02231  0 50000 0 00532        CLA FV1     NO DVD CHECKS, WERE THERE ANY                        F5G15070    
       02232 -0 10000 0 02234        TNZ F86A    UNCONSIDERED PREDS                                   F5G15080    
       02233  0 02000 0 00030        TRA R  NO,CONTINUE PROGRAM, PART I DONE.                         F5G15090    
       02234  0 50000 0 00535  F86A  CLA FV4     YES                                                  F5G15100    
       02235  0 10000 0 02245        TZE F9 IS THIS A REGION ALREADY                                  F5G15110    
       02236 -0 73400 1 00000        PDX 0,1 YES.                                                     F5G15120    
       02237  0 50000 1 05061        CLA REG,1 GET REGION WORD.                                       F5G15130    
       02240 -0 32000 0 00360        ANA FK3                                                          F5G15140    
       02241  0 10000 0 02244        TZE F8 IS IT AN OPAQUE REGION                                    F5G15150    
       02242  0 50000 0 00356        CLA FK1 NO,GET TRANSPARENT REGION MARKER.                        F5G15160    
       02243  0 02000 0 02245        TRA F9                                                           F5G15170    
       02244  0 50000 0 00357 F8     CLA FK2 GET OPAQUE REGION MARKER.                                F5G15180    
       02245  0 60100 0 04775 F9     STO LPLST+S3P1-2                                                 F5G15190    
       02246  0 50000 0 00533        CLA FV2 STORE THE REGION MARKER                                  F5G15200    
       02247  0 76700 0 00022        ALS 18 AT END OF LPLST.                                          F5G15210    
       02250  0 62200 0 04775        STD LPLST+S3P1-2                                                 F5G15220    
       02251  0 50000 0 00350        CLA S9K3 INITIALIZE THE STORING                                  F5G15230    
       02252  0 62200 0 02270        STD F11 POSITION IN LPLST.                                       F5G15240    
       02253  0 50000 0 00532 F23    CLA FV1 GET INDEX                                                F5G15250    
       02254  0 07400 4 00067        TSX SE1,4 OF BB UP FOR ENTRY.                                    F5G15260    
       02255  0 50000 1 06447        CLA BBB+5,1 IS THIS BB IN                                        F5G15270    
       02256  0 10000 0 02611        TZE F57 A REGION                                                 F5G15280    
       02257 -0 73400 2 00000        PDX 0,2 YES                                                      F5G15290    
       02260  0 50000 2 05061        CLA REG,2 GET AND STORE                                          F5G15300    
       02261  0 60100 0 00535        STO FV4 REGION WORD                                              F5G15310    
       02262 -0 32000 0 00360        ANA FK3                                                          F5G15320    
       02263  0 10000 0 02603        TZE F55 IS IT AN OPAQUE REGION                                   F5G15330    
       02264  0 53400 1 00341        LXA S5K4,1      NO, TRANSPARENT                                  F5G15340    
       02265  0 50000 1 04777 F12    CLA LPLST+S3P1,1                                                 F5G15350    
       02266  1 00001 1 02267        TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED.        F5G15360    
       02267 -0 63400 1 02412 F25    SXD F18,1                                                        F5G15370    
       02270  3 00000 1 02321 F11    TXH F19,1,K ARE WE THRU WITH COMPARISONS                         F5G15380    
       02271  0 34000 0 00324        CAS S3K2 NO,IS THIS BB ENTRY                                     F5G15390    
       02272  0 76100 0 00000        NOP                                                              F5G15400    
       02273  0 02000 0 02275        TRA F87                                                          F5G15410    
       02274  0 02000 0 02265        TRA F12 YES.                                                     F5G15420    
       02275  0 07400 4 00070 F87    TSX SE,4      GET INDEX OF BB                                    F5G15430    
       02276  0 50000 1 06447        CLA BBB+5,1 GET                                                  F5G15440    
       02277 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G15450    
       02300  0 50000 1 05061        CLA REG,1 WORD.                                                  F5G15460    
       02301 -0 53400 1 02412        LXD F18,1                                                        F5G15470    
       02302  0 34000 0 00535        CAS FV4 IS THIS THE SAME REGION                                  F5G15480    
       02303  0 02000 0 02265        TRA F12 NO                                                       F5G15490    
       02304  0 02000 0 02306        TRA F100                                                         F5G15500    
       02305  0 02000 0 02265        TRA F12 NO                                                       F5G15510    
       02306  0 50000 0 00532 F100   CLA FV1             PUT EXIT BB NO.                              F5G15520    
       02307  0 62100 1 05000        STA LPLST+S3P1+1,1     IN TR. REG. QUANTITY                      F5G15530    
       02310  2 00001 1 02311 F13    TIX F24,1,1 GENERATE INOEX OF LAST THING TO BE MOVED UP.         F5G15540    
       02311 -0 53400 2 02270 F24    LXD F11,2 GET IN0EX TO GENERATE INDEX OF 1ST THING               F5G15550    
       02312 -0 63400 1 02412 F43    SXD F18,1 STORE IN0EX OF LAST THING                              F5G15560    
       02313  0 56000 0 00323        LDQ S3K1 RECORD                                                  F5G15570    
       02314 -0 60000 0 00550        STQ LPIND LOOP.                                                  F5G15580    
       02315  2 00001 2 02316        TIX F14,2,1 GENERATE INDEX OF 1ST THING                          F5G15590    
       02316  0 07400 4 02407 F14    TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+                        F5G15600    
       02317  0 07400 4 02651        TSX F80,4                                                        F5G15610    
       02320  0 02000 0 02717        TRA L TO 1ST LXING PASS.                                         F5G15620    
       02321  0 50000 0 00356 F19    CLA FK1                                                          F5G15630    
       02322 -0 53400 1 02270        LXD F11,1 STORE TRANSPARENT                                      F5G15640    
       02323  0 60100 1 04777        STO LPLST+S3P1,1 REGION MARKER                                   F5G15650    
       02324  0 50000 0 00532        CLA FV1                                                          F5G15660    
       02325  0 62100 1 04777        STA LPLST+S3P1,1                                                 F5G15670    
       02326  0 07400 4 00067        TSX SE1,4 FIND BB INDEX.                                         F5G15680    
       02327  0 50000 0 00314        CLA ZERO SET INITIAL MAX                                         F5G15690    
       02330  0 60100 0 00532        STO FV1 FREQ. TO 0+                                              F5G15700    
       02331  0 50000 1 06447        CLA BBB+5,1 GET THE                                              F5G15710    
       02332 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G15720    
       02333  0 50000 1 05061        CLA REG,1 WORD                                                   F5G15730    
       02334  0 77100 0 00022        ARS 18                                                           F5G15740    
       02335  0 07400 4 02075 F21    TSX F1,4 DETERMINE MOST FREQ. PRED IN BB.                        F5G15750    
       02336  0 50000 0 00544        CLA FV101 IS IT MORE FREQ. THAN                                  F5G15760    
       02337  0 34000 0 00532        CAS FV1 PREV. MAX.                                               F5G15770    
       02340  0 02000 0 02343        TRA F88                                                          F5G15780    
       02341  0 76100 0 00000        NOP                                                              F5G15790    
       02342  0 02000 0 02352        TRA F20 NO.                                                      F5G15800    
       02343  0 60100 0 00532 F88    STO FV1     REPLACE PREV.  MAX.                                  F5G15810    
       02344  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G15820    
       02345  0 60100 0 00533        STO FV2 AND                                                      F5G15830    
       02346  0 50000 0 00546        CLA FV103 PRED. NO.                                              F5G15840    
       02347  0 60100 0 00534        STO FV3 AND                                                      F5G15850    
       02350  0 50000 0 00547        CLA FV104 REGION NO. WORD.                                       F5G15860    
       02351  0 60100 0 00535        STO FV4                                                          F5G15870    
       02352  0 50000 0 00547 F20    CLA FV104 ARRANGE TO CONSIDER THE                                F5G15880    
       02353 -0 32000 0 00353        ANA SBK2 NEXT B.B. IN REGION.                                    F5G15890    
       02354  0 34000 0 00353        CAS SBK2 ARE WE THRU WITH REGION                                 F5G15900    
       02355  0 02000 0 02335        TRA F21                                                          F5G15910    
       02356  0 02000 0 02360        TRA F22 YES                                                      F5G15920    
       02357  0 02000 0 02335        TRA F21                                                          F5G15930    
       02360  0 50000 0 00532 F22    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G15940    
       02361  0 10000 0 02372        TZE F28 PRED                                                     F5G15950    
       02362  0 50000 0 00533        CLA FV2 YES,STORE THE                                            F5G15960    
       02363 -0 53400 1 02270        LXD F11,1 ENTRY B.B.                                             F5G15970    
       02364  0 76700 0 00022        ALS 18 NO.                                                       F5G15980    
       02365  0 62200 1 04777        STD LPLST+S3P1,1                                                 F5G15990    
       02366  1 00001 1 02367        TXI F70,1,1 UP THE STORING INDEX                                 F5G16000    
       02367 -0 63400 1 02270 F70    SXD F11,1                                                        F5G16010    
       02370  3 00036 1 02404        TXH F73,1,S3P1 IS LPLST FULL                                     F5G16020    
       02371  0 02000 0 02253        TRA F23                                                          F5G16030    
       02372 -0 53400 2 02270 F28    LXD F11,2                                                        F5G16040    
       02373  0 53400 1 00341 F56    LXA S5K4,1                                                       F5G16050    
       02374 -0 63400 1 02412        SXD F18,1                                                        F5G16060    
       02375  0 07400 4 02407        TSX F15,4 NONE LPLST UP.                                         F5G16070    
       02376  0 50000 0 04740        CLA LPLST-1                                                      F5G16080    
       02377  0 34000 0 00361        CAS FK4 IS THIS AN OPAQUE REGION                                 F5G16090    
       02400  0 76100 0 00000        NOP                                                              F5G16100    
       02401  0 02000 0 02706        TRA F75 TO 2ED LXING PASS.                                       F5G16110    
       02402  3 00002 1 02421   P002 TXH F29,1,2                                                      F5G16120    
       02403  0 02000 0 02706        TRA F75                                                          F5G16130    
       02404  0 50000 0 00303 F73    CLA SEK4 STORE SPECIAL                                           F5G16140    
       02405  0 62200 0 04741        STD LPLST SYMBOL IN DECR. PART OF 1ST LPLST                      F5G16150    
       02406  0 02000 0 02536        TRA F53 QUANTITY                                                 F5G16160    
       02407 -0 53400 1 00325 F15    LXD S3K3,1 SET INDEX TO START OF LOOP LIST.                      F5G16170    
       02410  0 50000 2 04777 F26    CLA LPLST+S3P1,2 MOVE THIS                                       F5G16180    
       02411  0 60100 1 04777        STO LPLST+S3P1,1 ENTRY UP.                                       F5G16190    
       02412 -3 00000 2 02415 F18    TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED.             F5G16200    
       02413  2 00001 1 02414        TIX F16,1,1 NO.                                                  F5G16210    
       02414  2 00001 2 02410 F16    TIX F26,2,1 ARE WE FINISHED COPYING                              F5G16220    
       02415  0 60100 0 04740 F17    STO LPLST-1 CASE OF LOOP,STORE PRED. OF 1ST ELEMENT.             F5G16230    
       02416  0 50000 0 00323        CLA S3K1 STORE THE END                                           F5G16240    
       02417  0 60100 1 05000        STO LPLST+S3P1+1,1 LO0P LIST QUANTITY.                           F5G16250    
       02420  0 02000 4 00001        TRA 1,4                                                          F5G16260    
       02421 -0 63400 1 02527 F29    SXD F39,1 INITIALIZE STORING LOCATION.                           F5G16270    
       02422  0 34000 0 00324 F64    CAS S3K2 ISNT OPAQUE REGIONH IS IT BB                            F5G16280    
       02423  0 76100 0 00000        NOP  NO.                                                         F5G16290    
       02424  0 02000 0 02426        TRA F89                                                          F5G16300    
       02425  0 02000 0 02543        TRA F44 YES.                                                     F5G16310    
       02426  0 56000 0 00314 F89    LDQ ZERO   NO, SET INITIAL                                       F5G16320    
       02427 -0 60000 0 00532        STQ FV1 FREQ+ TO 0.                                              F5G16330    
       02430  0 07400 4 00070        TSX SE,4 GET                                                     F5G16340    
       02431  0 50000 1 06447        CLA BBB+5,1 REGION                                               F5G16350    
       02432 -0 73400 1 00000        PDX 0,1 NO.                                                      F5G16360    
       02433  0 50000 1 05061        CLA REG,1 GET NO. OF 1ST BB IN REGION                            F5G16370    
       02434  0 07400 4 02136 F35    TSX F30,4  DETERMINE MOST FREQ SUCC IN BB                        F5G16380    
       02435  0 50000 0 00544        CLA FV101 IS IT MORE FREQ. THAN                                  F5G16390    
       02436  0 34000 0 00532        CAS FV1 PREV+ MAX                                                F5G16400    
       02437  0 02000 0 02442        TRA F90                                                          F5G16410    
       02440  0 76100 0 00000        NOP  YES,                                                        F5G16420    
       02441  0 02000 0 02451        TRA F36 NO                                                       F5G16430    
       02442  0 60100 0 00532 F90    STO FV1    YES, REPLACE PREV.MAX.                                F5G16440    
       02443  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G16450    
       02444  0 60100 0 00533        STO FV2 AND                                                      F5G16460    
       02445  0 50000 0 00546        CLA FV103 SUCC. NO+                                              F5G16470    
       02446  0 60100 0 00534        STO FV3 AND                                                      F5G16480    
       02447  0 50000 0 00547        CLA FV104 REGION NO. WORD                                        F5G16490    
       02450  0 60100 0 00535        STO FV4                                                          F5G16500    
       02451  0 50000 0 00547 F36    CLA FV104 ARRANGE TO CONSIDER THE                                F5G16510    
       02452 -0 32000 0 00353        ANA SBK2 NEXT BB IN REGION                                       F5G16520    
       02453  0 34000 0 00353        CAS SBK2 IS II LAST BB IN REGION                                 F5G16530    
       02454  0 02000 0 02456        TRA F94                                                          F5G16540    
       02455  0 02000 0 02460        TRA F37 YES                                                      F5G16550    
       02456  0 76700 0 00022 F94    ALS 18                                                           F5G16560    
       02457  0 02000 0 02434        TRA F35                                                          F5G16570    
       02460  0 50000 0 00532 F37    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G16580    
       02461 -0 53400 1 02527        LXD F39,1 SUCC                                                   F5G16590    
       02462  0 10000 0 02550        TZE F47                                                          F5G16600    
       02463  0 50000 0 00533        CLA FV2 EXIT BB                                                  F5G16610    
       02464  0 77100 0 00022        ARS 18 NO.                                                       F5G16620    
       02465  0 62100 1 04777        STA LPLST+S3P1,1                                                 F5G16630    
       02466  2 00001 1 02467 F45    TIX F62,1,1 DOWN THE STORING                                     F5G16640    
       02467 -0 63400 1 02527 F62    SXD F39,1 INDEX.                                                 F5G16650    
       02470  0 50000 0 00532        CLA FV1 GET INDEX OF                                             F5G16660    
       02471  0 07400 4 00067        TSX SE1,4 BB UP FOR ENTRY.                                       F5G16670    
       02472  0 50000 1 06447        CLA BBB+5,1 IS THIS BB IN                                        F5G16660    
       02473  0 10000 0 02553        TZE F48 A REGION                                                 F5G16690    
       02474 -0 73400 2 00000        PDX 0,2 YES.                                                     F5G16700    
       02475  0 50000 2 05061        CLA REG,2 GET AND                                                F5G16710    
       02476  0 60100 0 00535        STO FV4 STORE REGION WORD.                                       F5G16720    
       02477 -0 32000 0 00360        ANA FK3 IS IT IN AN                                              F5G16730    
       02500  0 10000 0 02574        TZE F54 OPAGUE REGION                                            F5G16740    
       02501 -0 53400 1 02527        LXD F39,1 NO.                                                    F5G16750    
       02502  0 50000 0 00356        CLA FK1 STORE TRANSPARENT REGION                                 F5G16760    
       02503  0 60100 1 04777        STO LPLST+S3P1,1 MARKER                                          F5G16770    
       02504  0 50000 0 00532        CLA FV1 WITH                                                     F5G16780    
       02505  0 76700 0 00022        ALS 18 ENTRY                                                     F5G16790    
       02506  0 62200 1 04777        STD LPLST+S3P1,1 BB NO. IN DECR.                                 F5G16800    
       02507 -0 53400 2 00325        LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST.                    F5G16810    
       02510  0 50000 2 04777 F38    CLA LPLST+S3P1,2                                                 F5G16820    
       02511  0 34000 0 00324        CAS S3K2 IS THIS A BB ENTRY                                      F5G16830    
       02512  0 76100 0 00000        NOP                                                              F5G16840    
       02513  0 02000 0 02515        TRA F91                                                          F5G16850    
       02514  0 02000 0 02526        TRA F40 YES                                                      F5G16860    
       02515 -0 63400 2 02412 F91    SXD F18,2    STOREINDEX OF QUANTITYBEING C.F. ED                 F5G16870    
       02516  0 07400 4 00067        TSX SE1,4                                                        F5G16880    
       02517  0 50000 1 06447        CLA BBB+5,1       GET                                            F5G16890    
       02520 -0 73400 2 00000        PDX 0,2 REGION WORD.                                             F5G16900    
       02521  0 50000 2 05061        CLA REG,2                                                        F5G16910    
       02522 -0 53400 2 02412        LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED.                  F5G16920    
       02523  0 34000 0 00535        CAS FV4 IS THIS NAME REGION                                      F5G16930    
       02524  0 02000 0 02526        TRA F40                                                          F5G16940    
       02525  0 02000 0 02531        TRA F41 YES                                                      F5G16950    
       02526  2 00001 2 02527 F40    TIX F39,2,1                                                      F5G16960    
       02527 -3 00000 2 02535 F39    TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED             F5G16970    
       02530  0 02000 0 02510        TRA F38 NO                                                       F5G16980    
       02531  0 50000 2 04777 F41    CLA LPLST+S3P1,2 PUT EXIT BB NO.                                 F5G16990    
       02532 -0 53400 1 02527        LXD F39,1 FROM PREVIOUS QUANTITY                                 F5G17000    
       02533  0 62100 1 04777        STA LPLST+S3P1,1 IN THIS LATEST ONE.                             F5G17010    
       02534  0 02000 0 02312        TRA F43                                                          F5G17020    
       02535  3 00002 2 02541 F42    TXH F63,2,2 IS LPLST FULL                                        F5G17030    
       02536  0 50000 0 00323 F53    CLA S3K1 STORE ENO                                               F5G17040    
       02537  0 60100 0 04776        STO LPLST+S3P1-1 LOOP LIST SENTINEL.                             F5G17050    
       02540  0 02000 0 02706        TRA F75 GO TO DEAL WITH STRING.                                  F5G17060    
       02541  0 50000 2 04777 F63    CLA LPLST+S3P1,2                                                 F5G17070    
       02542  0 02000 0 02422        TRA F64                                                          F5G17080    
       02543  0 07400 4 02136 F44    TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB.                      F5G17090    
       02544  0 50000 0 00544        CLA FV101 STORE THE                                              F5G17100    
       02545  0 60100 0 00532        STO FV1 MOST FREQ. SUCC. AWAY.                                   F5G17110    
       02546 -0 53400 1 02527        LXD F39,1                                                        F5G17120    
       02547 -0 10000 0 02466        TNZ F45 WAS THERE AN UNCONSIDERED SUCC.                          F5G17130    
       02550  0 50000 0 00323 F47    CLA S3K1 NO,RECORD AN                                            F5G17140    
       02551  0 60100 1 05000        STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL.                       F5G17150    
       02552  0 02000 0 02706        TRA F75                                                          F5G17160    
       02553 -0 53400 1 02527 F48    LXD F39,1 ENTER BB                                               F5G17170    
       02554  0 50000 0 00532        CLA FV1 NO. AND MARKER                                           F5G17180    
       02555 -0 32000 0 00353        ANA SBK2 IN                                                      F5G17190    
       02556  0 76700 0 00022        ALS 18 LPLST                                                     F5G17200    
       02557  0 60100 0 00535        STO FV4                                                          F5G17210    
       02560  0 60100 1 04777        STO LPLST+S3P1,1                                                 F5G17220    
       02561 -0 63400 1 02570        SXD F50,1                                                        F5G17230    
       02562 -0 53400 2 00325        LXD S3K3,2 S + TO                                                F5G17240    
       02563  0 50000 2 04777 F51    CLA LPLST+S3P1,2                                                 F5G17250    
       02564  0 34000 0 00535        CAS FV4 IS THIS SAME BB AS NEW ENTRY                             F5G17260    
       02565  0 02000 0 02567        TRA F49                                                          F5G17270    
       02566  0 02000 0 02312        TRA F43 YES                                                      F5G17280    
       02567  2 00001 2 02570 F49    TIX F50,2,1 DECREASE COMPARISON INDEX.                           F5G17290    
       02570 -3 00000 2 02572 F50    TXL F52,2,- IS THIS INDEX OF NEW QUANTITY                        F5G17300    
       02571  0 02000 0 02563        TRA F51 NO.                                                      F5G17310    
       02572  3 00002 2 02541 F52    TXH F63,2,2       IS LPLST FULL                                  F5G17320    
       02573  0 02000 0 02536        TRA F53 YES.                                                     F5G17330    
       02574 -0 53400 1 02527 F54    LXD F39,1 IS OPAQUE REGION                                       F5G17340    
       02575  0 50000 0 00357        CLA FK2 ENTER OPAQUE                                             F5G17350    
       02576  0 60100 1 04777        STO LPLST+S3P1,1 REGION MARKER                                   F5G17360    
       02577  0 50000 0 00532        CLA FV1 WITH CORRECT                                             F5G17370    
       02600  0 76700 0 00022        ALS 18 ENTRY BB                                                  F5G17380    
       02601  0 62200 1 04777        STD LPLST+S3P1,1 NO.                                             F5G17390    
       02602  0 02000 0 02550        TRA F47                                                          F5G17400    
       02603 -0 53400 2 02270 F55    LXD F11,2 STORE THE                                              F5G17410    
       02604  0 50000 0 00357        CLA FK2 OPAQUE                                                   F5G17420    
       02605  0 60100 2 04777        STO LPLST+S3P1,2 REGION MARKR                                    F5G17430    
       02606  0 50000 0 00532        CLA FV1 WITH                                                     F5G17440    
       02607  0 62100 2 04777        STA LPLST+S3P1,2 EXIT BB                                         F5G17450    
       02610  0 02000 0 02373        TRA F56 NO.                                                      F5G17460    
       02611  0 50000 0 00532 F57    CLA FV1 PUT THE                                                  F5G17470    
       02612 -0 32000 0 00353        ANA SBK2 B.B. NO.                                                F5G17480    
       02613  0 76700 0 00022        ALS 18 IN                                                        F5G17490    
       02614  0 60100 0 00535        STO FV4 DECR. PART.                                              F5G17500    
       02615  0 50000 0 02270        CLA F11 SET THE END                                              F5G17510    
       02616  0 62200 0 02623        STD F59 TEST.                                                    F5G17520    
       02617  0 53400 1 00341        LXA S5K4,1     SET INDEX OF 1ST LPLST TO BE COMPARED             F5G17530    
       02620  0 50000 1 04777 F61    CLA LPLST+S3P1,1                                                 F5G17540    
       02621  1 00001 1 02622        TXI F58,1,1                                                      F5G17550    
       02622 -0 63400 1 02412 F58    SXD F18,1                                                        F5G17560    
       02623  3 00000 1 02630 F59    TXH F60,1,- WAS THAT THE LAST QUANTITY                           F5G17570    
       02624  0 34000 0 00535        CAS FV4 IS THIS THE SAME BB.                                     F5G17580    
       02625  0 02000 0 02620        TRA F61                                                          F5G17590    
       02626  0 02000 0 02310        TRA F13 YES                                                      F5G17600    
       02627  0 02000 0 02620        TRA F61                                                          F5G17610    
       02630 -0 53400 1 02270 F60    LXD F11,1                                                        F5G17620    
       02631  0 50000 0 00532        CLA FV1 STORE THE                                                F5G17630    
       02632 -0 32000 0 00353        ANA SBK2 BB                                                      F5G17640    
       02633  0 76700 0 00022        ALS 18 MARKER.                                                   F5G17650    
       02634  0 60100 1 04777        STO LPLST+S3P1,1                                                 F5G17660    
       02635  0 50000 0 00532        CLA FV1                                                          F5G17670    
       02636  0 07400 4 02075        TSX F1,4 FIND MOST FREQ. PRED. OF BB.                            F5G17680    
       02637  0 50000 0 00544        CLA FV101 DOES B.B. HAVE                                         F5G17690    
       02640  0 60100 0 00532        STO FV1 UNCONSIDERED PRED.                                       F5G17700    
       02641 -0 10000 0 02644        TNZ F71                                                          F5G17710    
       02642 -0 53400 2 02270        LXD F11,2 NO,GO TO MOVE LPLST UP.                                F5G17720    
       02643  0 02000 0 02373        TRA F56                                                          F5G17730    
       02644 -0 53400 1 02270 F71    LXD F11,1                                                        F5G17740    
       02645  1 00001 1 02646        TXI F72,1,1 UP THE STORING INDEX                                 F5G17750    
       02646 -0 63400 1 02270 F72    SXD F11,1                                                        F5G17760    
       02647  3 00036 1 02536        TXH F53,1,S3P1 IS LPLST FULL                                     F5G17770    
       02650  0 02000 0 02253        TRA F23 NO.                                                      F5G17780    
       02651  0 53400 1 00362 F80    LXA FK5,1 FIND                                                   F5G17790    
       02652  0 50000 1 05061 F81    CLA REG,1 THE 1ST AVAILABLE REGION                               F5G17800    
       02653  0 10000 0 02656        TZE F82 POSITION.                                                F5G17810    
       02654  2 00001 1 02652        TIX F81,1,1                                                      F5G17820    
       02655  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR                                        F5G17830    
       02656 -0 63400 1 00565 F82    SXD XV1,1      STORE THE INDEX                                   F5G17840    
                                            OF THE NEW REGION WORD                                    F5G17850    
       02657  0 56000 0 00314 F83    LDQ ZERO         STORE INITIAL                                   F5G17860    
       02660 -0 60000 0 00566        STQ XV2        VALUE OF REGION                                   F5G17870    
       02661  0 02000 4 00001        TRA 1,4                                                          F5G17880    
       02662  0 07400 4 01523 F78    TSX SA,4 GET EXIT CONDITIONS OF REGION.                          F5G17890    
       02663  0 53400 1 00342        LXA S5K5,1        PUT EXIT                                       F5G17900    
       02664  0 56000 0 00314        LDQ ZERO                                                         F5G17910    
       02665  0 50000 1 00506 F76    CLA EX1+3,1 CONDITONS                                            F5G17920    
       02666  0 60100 1 00430        STO IR1+3,1 INTO                                                 F5G17930    
       02667  0 50000 1 00511        CLA ACT1+3,1 I+R.S                                               F5G17940    
       02670 -0 60000 1 00561        STQ AC1+3,1                                                      F5G17950    
       02671  0 12000 0 02675        TPL F77 IS THIS EXIT ACTIVE                                      F5G17960    
       02672  0 50000 0 00325        CLA S3K3 YES,FORM AND                                            F5G17970    
       02673 -0 76000 0 00003        SSM  STORE ACTIVE                                                F5G17980    
       02674  0 60100 1 00561        STO AC1+3,1 INDICATOR                                            F5G17990    
       02675  2 00001 1 02665 F77    TIX F76,1,1 COUNT TO 3                                           F5G18000    
       02676  0 50000 0 00325        CLA S3K3 INITIALIZE                                              F5G18010    
       02677  0 40200 0 00316        SUB ONED LOOP LIST                                               F5G18020    
       02700  0 60100 0 00440        STO S3V4 TO ITS                                                  F5G18030    
       02701  0 60100 0 00444        STO S3V5                                                         F5G18040    
       02702  0 50000 0 00340        CLA S5K3 2ED                                                     F5G16050    
       02703  0 60100 0 00437        STO S3V3 ELEMENT                                                 F5G18060    
       02704 -0 63400 0 00436        SXD S3V2,0                                                       F5G18070    
       02705  0 02000 0 03072        TRA X32                                                          F5G18080    
       02706  0 07400 4 02651 F75    TSX F80,4 DETERMINE NEW REGION INDEX                             F5G18090    
       02707  0 50000 0 04741        CLA LPLST IS 1ST                                                 F5G18100    
       02710  0 56000 0 00324        LDQ S3K2              ELEMENT OF LPLST A TRANSPARENT             F5G18110    
       02711  0 04000 0 02662        TLQ F78 ON OPAQUE REGION                                         F5G18120    
       02712  0 53400 1 00342        LXA S5K5,1 NO,INITIALIZE                                         F5G18130    
       02713  0 50000 0 00336        CLA S5K1 THE                                                     F5G18140    
       02714  0 60100 1 00430 F79    STO IR1+3,1 I.R.S                                                F5G18150    
       02715  2 00001 1 02714        TIX F79,1,1 TO EMPTINESS                                         F5G18160    
       02716  0 02000 0 03061        TRA X                                                            F5G18170    
                                          FIRST LXING PASS.                                           F5G18180    
       02717 -0 63400 0 02763  L     SXD ROT3,0                                                       F5G18190    
       02720 -0 63400 0 02756        SXD ROT1,0                                                       F5G18200    
       02721  0 53400 1 00342 INIZ   LXA S5K5,1            INITIALIZE                                 F5G18210    
       02722  0 50000 0 00336        CLA S5K1 THE                                                     F5G18220    
       02723  0 60100 1 00430 L23    STO IR1+3,1 INDEX REGISTERS                                      F5G18230    
       02724  2 00001 1 02723        TIX L23,1,1 TO EMPTINESS.                                        F5G18240    
       02725  0 56000 0 00325        LDQ S3K3                                                         F5G18250    
       02726 -0 60000 0 00440        STQ S3V4       INITIALIZE THE                                    F5G18260    
       02727  0 56000 0 00340        LDQ S5K3 LOOP LIST.                                              F5G18270    
       02730 -0 60000 0 00437        STQ S3V3 MAKE SURE THAT THE                                      F5G18280    
       02731 -0 63400 0 00436        SXD S3V2,0                                                       F5G18290    
       02732  0 07400 4 01023  1L4   TSX S3,4 GET NEXT TAG.                                           F5G18300    
       02733  0 02000 0 03013        TRA L6 *RETURN HERE IF TAG WASNT GOTTEN.                         F5G18310    
       02734  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18320    
       02735  0 50000 0 00441        CLA 1TAG           IS CL (TAG) EQUAL                             F5G18330    
       02736  0 34000 1 00430 L2     CAS IR1+3,1 TO C (IRN)                                           F5G18340    
       02737  0 02000 0 02741        TRA L1 NO.                                                       F5G18350    
       02740  0 02000 0 03000        TRA 1L3            YES                                           F5G18360    
       02741  2 00001 1 02736 L1     TIX L2,1,1 NO. COUNT TO 3,N=N+1                                  F5G18370    
       02742  0 50000 0 00442        CLA TPE IS THIS                                                  F5G18380    
       02743  0 34000 0 00376        CAS XK15 AN LXP INSTR.                                           F5G18390    
       02744  0 02000 0 02746        TRA L18 NO,                                                      F5G18400    
       02745  0 02000 0 02752        TRA ROT0          YES                                            F5G18410    
       02746  0 34000 0 00403 L18    CAS XK21 NO,IS IT A DED INSTR.                                   F5G18420    
       02747  0 02000 0 02773        TRA L17 NO                                                       F5G18430    
       02750  0 02000 0 02752        TRA ROT0               YES                                       F5G18440    
       02751  0 02000 0 02773        TRA L17                                                          F5G18450    
       02752 -0 53400 2 00440  ROT0  LXD S3V4,2                                                       F5G18460    
       02753 -3 00034 2 02732        TXL 1L4,2,S3P1-2                                                 F5G18470    
       02754 -0 53400 2 02763        LXD ROT3,2                                                       F5G18480    
       02755  1 77777 2 02756        TXI ROT1,2,-1                                                    F5G18490    
       02756 -3 00000 2 02732  ROT1  TXL 1L4,2,-                                                      F5G18500    
       02757 -0 63400 2 02763        SXD ROT3,2                                                       F5G18510    
       02760 -0 53400 2 00314        LXD ZERO,2                                                       F5G18520    
       02761  0 50000 2 04741  ROT2  CLA LPLST,2                                                      F5G18530    
       02762  0 34000 0 00323        CAS S3K1                                                         F5G18540    
       02763 -3 00000 0 02765  ROT3  TXL ROT4,0,-                                                     F5G18550    
       02764 -3 00000 0 02767        TXL ROT5,0,-                                                     F5G18560    
       02765  0 60100 2 04740  ROT4  STO LPLST-1,2                                                    F5G18570    
       02766  1 77777 2 02761        TXI ROT2,2,-1                                                    F5G18580    
       02767 -0 63400 2 02756  ROT5  SXD ROT1,2                                                       F5G18590    
       02770  0 50000 0 04740        CLA LPLST-1                                                      F5G18600    
       02771  0 60100 2 04740        STO LPLST-1,2                                                    F5G18610    
       02772  0 02000 0 02721        TRA INIZ                                                         F5G18620    
       02773  0 07400 4 00622 L17    TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G18630    
       02774 -0 53400 4 00430        LXD IRR,4 PLACE TAU-TAG                                          F5G18640    
       02775  0 50000 0 00441        CLA 1TAG           IN APPROPRIATE                                F5G18650    
       02776  0 60100 4 00430        STO IR1+3,4 I.R.                                                 F5G18660    
       02777  0 02000 0 02732        TRA 1L4                                                          F5G18670    
       03000  0 50000 0 00442  1L3   CLA TPE IS THIS AN LXP                                           F5G16680    
       03001  0 34000 0 00376        CAS XK15                                                         F5G18690    
       03002  0 02000 0 03004        TRA 1L19                                                         F5G16700    
       03003  0 02000 0 03010        TRA L5 YES                                                       F5G18710    
       03004  0 34000 0 00403  1L19  CAS XK21 IS IT AN DED                                            F5G18720    
       03005  0 02000 0 02732        TRA 1L4                                                          F5G18730    
       03006  0 02000 0 03010        TRA L5 YES.                                                      F5G18740    
       03007  0 02000 0 02732        TRA 1L4                                                          F5G18750    
       03010  0 50000 0 00333 L5     CLA LK1 PLACE AN E (HASH                                         F5G18760    
       03011  0 60100 1 00430        STO IR1+3,1 SYMBOL) IN                                           F5G18770    
       03012  0 02000 0 02732        TRA 1L4            RIGHT IR,                                     F5G18780    
       03013  0 60100 0 00554 L6     STO LV4 IS THIS AN END OF LOOP                                   F5G18790    
       03014  0 34000 0 00323        CAS S3K1 LIST SENTINEL                                           F5G18800    
       03015  0 02000 0 03017        TRA L14 NO,                                                      F5G18810    
       03016  0 02000 0 03051        TRA L15 YES,                                                     F5G18820    
       03017 -0 50000 0 00554 L14    CAL LV4 IS                                                       F5G18830    
       03020 -0 32000 0 00335        ANA LK3 THIS A                                                   F5G18840    
       03021  0 10000 0 02732        TZE 1L4            BB                                            F5G18850    
       03022  0 50000 0 00554        CLA LV4 NO,FORM CORRESPONOENCE                                   F5G18860    
       03023  0 07400 4 01245        TSX S5,4 BETWEEN IRS AND ENS                                     F5G18870    
       03024  0 50000 0 00554        CLA LV4 GET + STORE EXIT CONDITIONS                              F5G18880    
       03025  0 07400 4 01523        TSX SA,4 AND (USELESSLY+ OCTIVE 1NOICATORS.                      F5G18890    
       03026  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18900    
       03027  0 50000 1 00470 L11    CLA EN4+3,1 PUT CORRESPONDENCE INDEX                             F5G18910    
       03030 -0 73400 2 00000        PDX 0,2 IN 2.                                                    F5G18920    
       03031  0 50000 1 00506        CLA EX1+3,1 IS THIS EXIT CONDITION                               F5G18930    
       03032  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G18940    
       03033  0 02000 0 03035        TRA L13 NO,                                                      F5G18950    
       03034  0 02000 0 03040        TRA P003                                                         F5G18960    
       03035  0 60100 2 00430 L13    STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION.                 F5G18970    
       03036  2 00001 1 03027 L10    TIX L11,1,1 COUNT TO 3,N=N+1                                     F5G18980    
       03037  0 02000 0 02732        TRA 1L4                                                          F5G18990    
       03040  0 50000 2 00430   P003 CLA IR1+3,2                                                      F5G19000    
       03041  0 56000 0 00333        LDQ LK1                                                          F5G19010    
       03042  0 04000 0 03036        TLQ L10                                                          F5G19020    
       03043  0 53400 4 00342        LXA S5K5,4                                                       F5G19030    
       03044  0 34000 4 00506  P003A CAS EX1+3,4                                                      F5G19040    
       03045  0 02000 0 03047        TRA P003B                                                        F5G19050    
       03046 -0 60000 2 00430        STQ IR1+3,2                                                      F5G19060    
       03047  2 00001 4 03044  P003B TIX P003A,4,1                                                    F5G19070    
       03050  0 02000 0 03036        TRA L10                                                          F5G19080    
       03051  0 53400 1 00342 L15    LXA S5K5,1 COPY ASIDE THE FINAL                                  F5G19090    
       03052  0 50000 1 00430 L16    CLA IR1+3,1 CONTENTS                                             F5G19100    
       03053  0 34000 0 00333        CAS LK1               (IF REAL, OTHERWISE                        F5G19110    
       03054  0 76100 0 00000        NOP                                                              F5G19120    
       03055  0 50000 0 00336        CLA S5K1              SET TO                                     F5G19130    
       03056  0 60100 1 00430        STO IR1+3,1           EMPTY)                                     F5G19140    
       03057  0 60100 1 00554        STO LV1+3,1 OF THE                                               F5G19150    
       03060  2 00001 1 03052        TIX L16,1,1 IRS                                                  F5G19160    
                                          THE SECONO LXING PASS FOLLOWS.                              F5G19170    
                                          PRECEEDED BY 1ST LXING PASS                                 F5G19180    
       03061  0 56000 0 00325 X      LDQ S3K3 INITIALIZE THE                                          F5G19190    
       03062 -0 60000 0 00440        STQ S3V4 LOOP LIST AND                                           F5G19200    
       03063  0 56000 0 00340        LDQ S5K3 MAKE SURE TAG                                           F5G19210    
       03064 -0 60000 0 00437        STQ S3V3 LOC. GETS SET.                                          F5G19220    
       03065 -0 63400 1 00436        SXD S3V2,1                                                       F5G19230    
       03066  0 50000 0 00314 X21    CLA ZERO SET ACTIVE INDICATORS                                   F5G19240    
       03067  0 60100 0 00556        STO AC1 TO                                                       F5G19250    
       03070  0 60100 0 00557        STO AC2                                                          F5G19260    
       03071  0 60100 0 00560        STO AC3 NOT ACTIVE.                                              F5G19270    
       03072  0 50000 0 00314 X32    CLA ZERO SET LX INDICATORS                                       F5G19280    
       03073  0 60100 0 00562        STO LX1 TO                                                       F5G19290    
       03074  0 60100 0 00563        STO LX2 NOT                                                      F5G19300    
       03075  0 60100 0 00564        STO LX3 LX ED.                                                   F5G19310    
       03076  0 60100 0 00521        STO ACIND      SET IND. TO SAY THIS IS 2ED LXING PASS            F5G19320    
       03077  0 07400 4 01023 X3     TSX S3,4 TRY TO GET NEXT TAG.                                    F5G19330    
       03100  0 02000 0 03322        TRA X13 COME HERE IF TAG NOT GOT.                                F5G19340    
       03101  0 50000 0 01122        CLA S39 COMPUTE LOCATIONS OF                                     F5G19350    
       03102 -0 32000 0 00353        ANA SBK2 THIS TAG=(ADDR. FOLLOWING                               F5G19360    
       03103  0 40000 0 00451        ADD S4V1 TIX BLACK + L (CM)-                                     F5G19370    
       03104  0 40200 0 00332        SUB S4K3 CMTAG-INDEX OF TAG                                      F5G19380    
       03105  0 76700 0 00022        ALS 18                                                           F5G19390    
       03106 -0 40000 0 00436        SBM S3V2                                                         F5G19400    
       03107  0 76500 0 00065        LRS 53 THEN FORM LOC/9                                           F5G19410    
       03110 -0 60000 0 00571        STQ XV5 AND REMAINDER                                            F5G19420    
       03111  0 22100 0 00371        DVP XK9 STORE INTEG. PART                                        F5G19430    
       03112 -0 60000 0 00567        STQ XV3 AND REMAINDER.                                           F5G19440    
       03113  0 60100 0 00570        STO XV4                                                          F5G19450    
       03114  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G19460    
       03115  0 50000 0 00441        CLA 1TAG                                                         F5G19470    
       03116  0 34000 1 00430 X2     CAS IR1+3,1       IS CONTENTS OF IRN SAME AS 0F TAG              F5G19480    
       03117  0 02000 0 03121        TRA X1 NO                                                        F5G19490    
       03120  0 02000 0 03257        TRA X7 YES                                                       F5G19500    
       03121  2 00001 1 03116 X1     TIX X2,1,1 NO COUNT OT 3,N=N+1                                   F5G19510    
       03122  0 50000 0 00442        CLA TPE IS THIS AN                                               F5G19520    
       03123  0 34000 0 00376        CAS XK15 LX PRIME                                                F5G19530    
       03124  0 02000 0 03126        TRA X103 NO                                                      F5G19540    
       03125  0 02000 0 03131        TRA X8    YES.  COMPILE LXD FOR LXP.                             F5G19550    
       03126  0 34000 0 00403 X103   CAS XK21 IS IT A DED                                             F5G19560    
       03127  0 02000 0 03131        TRA X8                                                           F5G19570    
       03130  0 02000 0 03077        TRA X3 YES                                                       F5G19580    
       03131  0 07400 4 00622 X8     TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G19590    
       03132 -0 53400 1 00430        LXD IRR,1 PLACE TAU-TAG                                          F5G19600    
       03133  0 50000 0 00441        CLA 1TAG           IN SELECTED                                   F5G19610    
       03134  0 60100 1 00430        STO IR1+3,1 I.R.                                                 F5G19620    
       03135  0 50000 1 00561        CLA AC1+3,1 IS THIS                                              F5G19630    
       03136  0 10000 0 03140        TZE X4 IR ACTIVE                                                 F5G19640    
       03137  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G19650    
       03140  0 50000 0 00442 X4     CLA TPE IS THIS                                                  F5G19660    
       03141  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G19670    
       03142  0 02000 0 03144        TRA X5 NO                                                        F5G19680    
       03143  0 02000 0 03155        TRA X14 YES                                                      F5G19690    
       03144 -0 50000 0 00443 X5     CAL INTAG IS THIS 1ST INSTR.                                     F5G19700    
       03145 -0 32000 0 00363        ANA XK10 IN A BB                                                 F5G19710    
       03146 -0 10000 0 03204        TNZ X9                                                           F5G19720    
       03147  0 50000 0 00567        CLA XV3 NO,                                                      F5G19730    
       03150  0 07400 4 00032        TSX SE4,4 DETERMINE INDEX IN STAG                                F5G19740    
       03151  0 53400 2 00570        LXA XV4,2                                                        F5G19750    
       03152 -0 50000 0 00372        CAL XK11 GENERATE                                                F5G19760    
       03153  0 76700 2 00010        ALS 8,2 LX BIT                                                   F5G19770    
       03154 -0 60200 1 05061        ORS STAG,1 STORE IN STAG.                                        F5G19780    
       03155  0 07400 4 02024 X14    TSX SF,4 CHECK IF AN ACT1VE INSTR.                               F5G19790    
       03156  0 02000 0 03162        TRA X01 COME HERE IF NOT ACTIVE                                  F5G19800    
       03157 -0 53400 1 00430        LXD IRR,1 ACTIVE-STORE ACTIVE                                    F5G19810    
       03160  0 50000 0 00526        CLA SFV1 INDICATOR                                               F5G19820    
       03161  0 60100 1 00561        STO AC1+3,1                                                      F5G19830    
       03162 -0 53400 2 00430 X01    LXD IRR,2                                                        F5G19840    
       03163  0 50000 2 00565        CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT                          F5G19850    
       03164 -0 10000 0 03167        TNZ X19 BEEN DETERMINED FOR THIS BB.                             F5G19860    
       03165  0 50000 0 00333        CLA LK1 NO,RECORD HASH                                           F5G19870    
       03166  0 60100 2 00565        STO LX1+3,2 AS ENTRANCE REQUIREMENT                              F5G19880    
       03167 -0 50000 0 00340 X19    CAL S5K3 RECORD THAT THERE IS AN                                 F5G19890    
       03170  0 77100 2 00003        ARS 3,2 LX FOR THIS IR IN                                        F5G19900    
       03171 -0 60200 0 00566        ORS XV2 REGION.                                                  F5G19910    
       03172  0 50000 0 00567 X02    CLA XV3 RECORD THE                                               F5G19920    
       03173  0 07400 4 00032        TSX SE4,4 SPECIFIC                                               F5G19930    
       03174 -0 50000 0 00570        CAL XV4 TAG                                                      F5G19940    
       03175  0 76000 0 00006        COM  IN                                                          F5G19950    
       03176  0 73400 2 00000        PAX 0,2 THE                                                      F5G19960    
       03177 -0 50000 0 00430        CAL IRR STAG                                                     F5G19970    
       03200  0 77100 2 00000        ARS 0,2 TABLE                                                    F5G19980    
       03201  0 77100 2 00000        ARS 0,2                                                          F5G19990    
       03202 -0 60200 1 05061        ORS STAG,1                                                       F5G20000    
       03203  0 02000 0 03077        TRA X3                                                           F5G20010    
       03204 -0 53400 1 00440 X9     LXD S3V4,1 GET                                                   F5G20020    
       03205 -3 00034 1 03212        TXL XI1+1,1,S3P1-2                                               F5G20030    
       03206  0 50000 0 00550        CLA LPIND                                                        F5G20040    
       03207 -0 12000 0 03212        TMI XI1+1                                                        F5G20050    
       03210 -0 53400 2 00430        LXD IRR,2                                                        F5G20060    
       03211  0 02000 0 03243 XI1    TRA X16-3                                                        F5G20070    
       03212  0 50000 1 04775        CLA LPLST+S3P1-2,1 AND                                           F5G20080    
       03213  0 34000 0 00324        CAS S3K2 STORE                                                   F5G20090    
       03214  0 76100 0 00000        NOP  BB                                                          F5G20100    
       03215  0 02000 0 03217        TRA X117                                                         F5G20110    
       03216  0 77100 0 00022        ARS 18 PRED                                                      F5G20120    
       03217  0 62100 0 00513 X117   STA SBV3      NO.                                                F5G20130    
       03220  0 50000 1 04776        CLA LPLST+S3P1-1,1                                               F5G20140    
       03221  0 07400 4 00070        TSX SE,4 GET ADDR. OF                                            F5G20150    
       03222  0 50000 1 06442        CLA BBB,1 1ST PRED.                                              F5G20160    
       03223  0 60200 0 00512 X03    SLW SBV2                                                         F5G20170    
       03224  0 07400 4 00055        TSX SE5,4 GET PRED.                                              F5G20180    
       03225 -0 50000 1 07337        CAL PRED,1                                                       F5G20190    
       03226 -0 32000 0 00353        ANA SBK2                                                         F5G20200    
       03227  0 34000 0 00513        CAS SBV3 IS THIS RIGHT PRED.                                     F5G20210    
       03230  0 02000 0 03232        TRA X04 NO                                                       F5G20220    
       03231  0 02000 0 03235        TRA X05 YES                                                      F5G20230    
       03232  0 50000 0 00512 X04    CLA SBV2 NO ARRANGE TO                                           F5G20240    
       03233  0 40000 0 00315        ADD ONEA TRY NEXT                                                F5G20250    
       03234  0 02000 0 03223        TRA X03 PRED.                                                    F5G20260    
       03235 -0 53400 2 00430 X05    LXD IRR,2 PUT LX                                                 F5G20270    
       03236 -0 50000 0 00377        CAL XK16 BIT INTO                                                F5G20280    
       03237  0 77100 2 00003        ARS 3,2 PRED.                                                    F5G20290    
       03240 -0 60200 1 07337        ORS PRED,1 TABLE.                                                F5G20300    
       03241 -0 53400 4 00440        LXD S3V4,4                                                       F5G20310    
       03242 -0 60200 4 04776        ORS LPLST+S3P1-1,4                                               F5G20320    
       03243  0 50000 2 00430        CLA IR1+3,2       SET ENTR. REQU.                                F5G20330    
       03244  0 60100 2 00565        STO LX1+3,2                                                      F5G20340    
       03245  0 02000 0 03155        TRA X14                                                          F5G20350    
       03246  0 07400 4 01661 X16    TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST                  F5G20360    
       03247  0 56000 0 00333        LDQ LK1                                                          F5G20370    
       03250  0 50000 1 00565        CLA LX1+3,1 HAS THIS                                             F5G20380    
       03251 -0 10000 0 03253        TNZ X100 ENTR. REQU. BEEN DETERMINED                             F5G20390    
       03252 -0 60000 1 00565        STQ LX1+3,1 NO,RECORD ENTR. REQU. IS AN E.                       F5G20400    
       03253 -0 60000 1 00430 X100   STQ IR1+3,1 ERASE THIS I.R.                                      F5G20410    
       03254  0 50000 0 00314        CLA ZERO RECORD THAT THIS                                        F5G20420    
       03255  0 60100 1 00561        STO AC1+3,1 I.R. ISNT ACTIVE.                                    F5G20430    
       03256  0 02000 0 03172        TRA X02                                                          F5G20440    
       03257 -0 63400 1 00430 X7     SXD IRR,1                                                        F5G20450    
       03260  0 50000 0 00442        CLA TPE IS THIS                                                  F5G20460    
       03261  0 34000 0 00376        CAS XK15 AN LXP                                                  F5G20470    
       03262  0 02000 0 03264        TRA X104 NO                                                      F5G20480    
       03263  0 02000 0 03246        TRA X16 YES.                                                     F5G20490    
       03264  0 34000 0 00403 X104   CAS XK21 IS IT A DED                                             F5G20500    
       03265  0 02000 0 03267        TRA X15                                                          F5G20510    
       03266  0 02000 0 03246        TRA X16 YES.                                                     F5G20520    
       03267  0 07400 4 02024 X15    TSX SF,4 DETERMINE ACTIVITY.                                     F5G20530    
       03270  0 02000 0 03275        TRA X17 COME HERE IF NOT ACTIVE.                                 F5G20540    
       03271 -0 53400 1 00430        LXD IRR,1                                                        F5G20550    
       03272  0 07400 4 01661        TSX SC,4 RECORD PART OF LOOP LIST ACTIVE.                        F5G20560    
       03273  0 50000 0 00526        CLA SFV1 STORE ACTIVE                                            F5G20570    
       03274  0 60100 1 00561        STO AC1+3,1 INDICATOR.                                           F5G20580    
       03275  0 50000 0 00442 X17    CLA TPE                                                          F5G20590    
       03276  0 34000 0 00322        CAS S2K2 IS THIS AN LX                                           F5G20600    
       03277  0 02000 0 03301        TRA X18                                                          F5G20610    
       03300  0 02000 0 03162        TRA X01 YES.                                                     F5G20620    
       03301 -0 53400 1 00430 X18    LXD IRR,1                                                        F5G20630    
       03302  0 50000 1 00565        CLA LX1+3,1 WAS THIS                                             F5G20640    
       03303 -0 10000 0 03172        TNZ X02 I.R. LX ED                                               F5G20650    
       03304  0 50000 1 00430        CLA IR1+3,1 NO,STORE THE TAG                                     F5G20660    
       03305  0 60100 1 00565        STO LX1+3,1 IN TH LX INDICATOR.                                  F5G20670    
       03306  0 02000 0 03172        TRA X02                                                          F5G20680    
       03307  0 07400 4 00070 X22    TSX SE,4 MAKE SURE BB IS IN C+M.                                 F5G20690    
       03310  0 53400 2 00342        LXA S5K5,2                                                       F5G20700    
       03311  0 50000 2 00565 X25    CLA LX1+3,2                                                      F5G20710    
       03312 -0 10000 0 03314        TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND                        F5G20720    
       03313  0 50000 2 00430        CLA IR1+3,2 NO,ENTRANCE = EXIT.                                  F5G20730    
       03314  0 76700 0 00022 X23    ALS 18 PUT ENTR. REQ. IN LEFT.                                   F5G20740    
       03315  0 40000 2 00430        ADD IR1+3,2 ADD THE EXIT REQUIREMENTS.                           F5G20750    
       03316  0 60200 1 06444        SLW BBB+2,1                                                      F5G20760    
       03317  1 77777 1 03320        TXI X24,1,-1      DOWN INDEX OF ENTR-EXIT REQU.                  F5G20770    
       03320  2 00001 2 03311 X24    TIX X25,2,1 COUNT TO 3                                           F5G20780    
       03321  0 02000 0 03353        TRA X26                                                          F5G20790    
       03322 -0 53400 1 00440 X13    LXD S3V4,1      GET LOOP LIST QUANTITY                           F5G20800    
       03323  3 00034 1 03353        TXH X26,1,S3P1-2  TRANSFER IF THIS IS 1ST IN LPLST               F5G20810    
       03324  0 50000 1 04775        CLA LPLST+S3P1-2,1     OF PREVIOUS QUANTITY                      F5G20820    
       03325  0 60100 0 00607        STO XV19                                                         F5G20830    
       03326  0 56000 0 00324        LDQ S3K2        WAS IT                                           F5G20840    
       03327  0 04000 0 03331        TLQ X126      A BB                                               F5G20850    
       03330  0 77100 0 00022        ARS 18       YES                                                 F5G20860    
       03331 -0 32000 0 00326  X126  ANA S3K4              IS THERE                                   F5G20870    
       03332  0 56000 0 00351        LDQ SAK1                                                         F5G20880    
       03333  0 04000 0 03346        TLQ X129                                                         F5G20890    
       03334  0 07400 4 00067        TSX SE1,4             YES, GET EXIT BB                           F5G20900    
       03335  0 50000 1 06442        CLA BBB,1       WAS THAT BB                                      F5G20910    
       03336  0 77100 0 00041        ARS 33        TERMINATED BY                                      F5G20920    
       03337  0 40000 0 00315        ADD ONEA           A                                             F5G20930    
       03340 -0 10000 0 03346        TNZ X129          GO TO N                                        F5G20940    
       03341  0 53400 1 00342        LXA S5K5,1       YES, SET COUNT TO 3                             F5G20950    
       03342  0 50000 1 00561 X128   CLA AC1+3,1      IS THIS IR                                      F5G20960    
       03343  0 10000 0 03345        TZE X127          ACTIVE                                         F5G20970    
       03344  0 07400 4 01566        TSX SB,4          YES, RECORD SXD NECESSARY                      F5G20980    
       03345  2 00001 1 03342 X127   TIX X128,1,1         COUNT TO 3                                  F5G20990    
       03346  0 50000 0 00607 X129   CLA XV19       GET                                               F5G21000    
       03347  0 34000 0 00324        CAS S3K2                                                         F5G21010    
       03350  0 76100 0 00000        NOP  NO                                                          F5G21020    
       03351  0 02000 0 03353        TRA X26                                                          F5G21030    
       03352  0 02000 0 03307        TRA X22 YES,                                                     F5G21040    
       03353  0 50000 0 00444 X26    CLA S3V5 NO                                                      F5G21050    
       03354  0 34000 0 00323        CAS S3K1 IS THIS AN END-LOOP-LIST                                F5G21060    
       03355  0 02000 0 03357        TRA X31 NO                                                       F5G21070    
       03356  0 02000 0 04370        TRA X88 YES                                                      F5G21080    
       03357 -0 50000 0 00444 X31    CAL S3V5                                                         F5G21090    
       03360 -0 32000 0 00335        ANA LK3                                                          F5G21100    
       03361  0 34000 0 00400        CAS XK17 WHAT TYPE ENTRY IS THIS                                 F5G21110    
       03362  0 02000 0 03365        TRA X118                                                         F5G21120    
       03363  0 02000 0 04043        TRA X33 TRANSPARENT REGION                                       F5G21130    
       03364  0 02000 0 03072        TRA X32 BB                                                       F5G21140    
       03365  0 50000 0 00444 X118   CLA S3V5     OPAQUE REGION                                       F5G21150    
       03366  0 07400 4 00070        TSX SE,4     IS                                                  F5G21160    
       03367  0 50000 1 06447        CLA BBB+5,1     THIS                                             F5G21170    
       03370  0 60100 0 00614        STO XV24                                                         F5G21180    
       03371  0 62200 0 00613        STD XV23      THE                                                F5G21190    
       03372  0 50000 0 04741        CLA LPLST      SAME                                              F5G21200    
       03373  0 56000 0 00361        LDQ FK4                                                          F5G21210    
       03374  0 04000 0 03376        TLQ X221                                                         F5G21220    
       03375  1 00000 0 03404        TXI X213,0,-                                                     F5G21230    
       03376  0 07400 4 00067 X221   TSX SE1,4         REGION                                         F5G21240    
       03377  0 50000 1 06447        CLA BBB+5,1        AS                                            F5G21250    
       03400 -0 32000 0 00321        ANA S2K1          AT THE BEGINNING                               F5G21260    
       03401  0 40200 0 00613        SUB XV23      OF THE                                             F5G21270    
       03402  0 60100 0 00614        STO XV24          STORE IND. OF SAMENESS OF 1ST REGION           F5G21280    
       03403  0 10000 0 03724        TZE X61       LPLST                                              F5G21290    
       03404  0 50000 0 00444 X213   CLA S3V5                                                         F5G21300    
       03405  0 07400 4 01245 X57    TSX S5,4 NO,MATCH ENTR. REQU.                                    F5G21310    
       03406 -0 53400 1 00613 X63    LXD XV23,1        GET                                            F5G21320    
       03407  0 50000 1 05061        CLA REG,1         REGION WORD                                    F5G21330    
       03410  0 07400 4 00070        TSX SE,4          CST INDEX OF 1ST BB                            F5G21340    
       03411 -0 50000 1 06443 X209   CAL BBB+1,1       GET THE                                        F5G21350    
       03412  0 60200 0 00575        SLW XV9           ORIGINAL PERM. NOS.                            F5G21360    
       03413 -0 32000 0 00402        ANA XK20          STORE WORD TO                                  F5G21370    
       03414  0 60200 0 00574        SLW XV8           CONTAIN NEW PERM. NOS.                         F5G21380    
       03415  0 53400 2 00342        LXA S5K5,2        SET COUNT TO 3                                 F5G21390    
       03416 -0 50000 0 00575 X210   CAL XV9           GET THE                                        F5G21400    
       03417  0 77100 2 00003        ARS 3,2                                                          F5G21410    
       03420  0 77100 2 00003        ARS 3,2           PERM. NO. AND                                  F5G21420    
       03421 -0 32000 0 00350        ANA S9K3          PUT IT                                         F5G21430    
       03422 -0 73400 4 00000        PDX 0,4           IN 4.                                          F5G21440    
       03423  0 50000 4 00470        CLA EN4+3,4       GET THE                                        F5G21450    
       03424  0 76700 2 00003        ALS 3,2           CORRESPONDENCE                                 F5G21460    
       03425  0 76700 2 00003        ALS 3,2           OF THE ENTR. REQUIREMENTS                      F5G21470    
       03426 -0 60200 0 00574        ORS XV8           FORM NEW PERM.                                 F5G21480    
       03427  2 00001 2 03416        TIX X210,2,1                                                     F5G21490    
       03430 -0 50000 0 00574        CAL XV8            STORE NEW PERM.                               F5G21500    
       03431  0 62200 1 06443        STD BBB+1,1       NOS.                                           F5G21510    
       03432  0 50000 1 06447        CLA BBB+5,1       IS THIS THE LAST                               F5G21520    
       03433 -0 32000 0 00353        ANA SBK2          BB IN REGION                                   F5G21530    
       03434  0 34000 0 00353        CAS SBK2                                                         F5G21540    
       03435  0 02000 0 03437        TRA X211          NO.                                            F5G21550    
       03436  0 02000 0 03441        TRA X212          YES, DONE                                      F5G21560    
       03437  0 07400 4 00067 X211   TSX SE1,4         ARRANGE TO DO NEXT                             F5G21570    
       03440  0 02000 0 03411        TRA X209          BB.                                            F5G21580    
       03441  0 53400 1 00342 X212   LXA S5K5,1        SET COUNT TO 3                                 F5G21590    
       03442  0 50000 1 00465 X60    CLA IN1+3,1       GET INDEX                                      F5G21600    
       03443 -0 73400 2 00000        PDX 0,2 OF EN.                                                   F5G21610    
       03444  0 50000 2 00473        CLA EN1+3,2 IS C(ENM)                                            F5G21620    
       03445  0 34000 1 00430        CAS IR1+3,1 =C(IRN)                                              F5G21630    
       03446  0 02000 0 03450        TRA X58                                                          F5G21640    
       03447  0 02000 0 03734        TRA X64 YES,                                                     F5G21650    
       03450  0 34000 0 00337 X58    CAS S5K2 IS C(ENM) REAL                                          F5G21660    
       03451  0 76100 0 00000        NOP  NO,                                                         F5G21670    
       03452  0 02000 0 03454        TRA X119                                                         F5G21680    
       03453  0 02000 0 03771        TRA X67 YES,                                                     F5G21690    
       03454  0 50000 1 00561 X119   CLA AC1+3,1     NO,IS                                            F5G21700    
       03455  0 10000 0 03457 X102   TZE X59 IRN ACTIVE                                               F5G21710    
       03456  0 07400 4 01566 X65    TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G21720    
       03457  2 00001 1 03442 X59    TIX X60,1,1                                                      F5G21730    
       03460  0 07400 4 02042        TSX SG,4            PERMUTE REGION WORD                          F5G21740    
       03461  0 50000 0 04741 X89    CLA LPLST                                                        F5G21750    
       03462  0 34000 0 00324        CAS S3K2          IS IT A BB                                     F5G21760    
       03463  0 07400 4 00067        TSX SE1,4         NO                                             F5G21770    
       03464  0 02000 0 03466        TRA X206                                                         F5G21780    
       03465  0 02000 0 03471        TRA X207                                                         F5G21790    
       03466  0 50000 1 06447 X206   CLA BBB+5,1                                                      F5G21800    
       03467 -0 73400 1 00000        PDX 0,1                                                          F5G21810    
       03470  0 50000 1 05061        CLA REG,1         FORM NO OF 1ST BB IN REGION                    F5G21820    
       03471  0 62200 0 00566 X207   STD XV2                                                          F5G21830    
       03472  0 53400 1 00342        LXA S5K5,1                                                       F5G21840    
       03473  0 50000 0 00336 X116   CLA S5K1                                                         F5G21850    
       03474  0 34000 1 00430        CAS IR1+3,1      IS THIS IR EMPTY                                F5G21860    
       03475  0 02000 0 03500        TRA X115                                                         F5G21870    
       03476 -0 50000 1 00410        CAL XK23+3,1     YES, INITIALIZE IR                              F5G21880    
       03477 -0 60200 0 00566        ORS XV2       TO EMRTYNESS                                       F5G21890    
       03500  2 00001 1 03473 X115   TIX X116,1,1      COUNT TO 3                                     F5G21900    
       03501 -0 53400 2 00325        LXD S3K3,2        PREPARE TO SCAN LOOP LIST                      F5G21910    
       03502 -0 63400 2 00600        SXD XV12,2                                                       F5G21920    
       03503  0 50000 2 04777 X79    CLA LPLST+S3P1,2                                                 F5G21930    
       03504  0 34000 0 00323        CAS S3K1 IS THIS END LOOP LIST                                   F5G21940    
       03505  0 02000 0 03507        TRA X120                                                         F5G21950    
       03506  0 02000 0 03717        TRA X81 YES.                                                     F5G21960    
       03507  0 34000 0 00324 X120   CAS S3K2         IS IT A BB                                      F5G21970    
       03510  0 76100 0 00000        NOP                                                              F5G21980    
       03511  0 02000 0 03513        TRA X121                                                         F5G21990    
       03512  0 77100 0 00022        ARS 18 YES.                                                      F5G22000    
       03513  0 62100 0 00513 X121   STA SBV3       STORE EXIT BB NO.                                 F5G22010    
       03514  0 50000 2 05000        CLA LPLST+S3P1+1,2                                               F5G22020    
       03515  0 34000 0 00323        CAS S3K1 IS NEXT QUANTITY AN END LPLST                           F5G22030    
       03516  0 02000 0 03520        TRA X107                                                         F5G22040    
       03517  0 02000 0 03603        TRA X114 YES.                                                    F5G22050    
       03520  0 77100 0 00022 X107   ARS 18                                                           F5G22060    
       03521  0 62100 0 00606        STA XV18 STORE ENTRY BB NO.                                      F5G22070    
       03522  0 40000 0 00315        ADD ONEA                                                         F5G22080    
       03523  0 07400 4 00067        TSX SE1,4                                                        F5G22090    
       03524 -0 50000 1 06442        CAL BBB,1                                                        F5G22100    
       03525 -0 32000 0 00353        ANA SBK2                                                         F5G22110    
       03526  0 60100 0 00515        STO SBV5                                                         F5G22120    
       03527  0 50000 0 00606        CLA XV18                                                         F5G22130    
       03530  0 07400 4 00067        TSX SE1,4                                                        F5G22140    
       03531  0 50000 1 06442        CLA BBB,1                                                        F5G22150    
       03532 -0 32000 0 00353        ANA SBK2                                                         F5G22160    
       03533  0 60200 0 00512 X109   SLW SBV2                                                         F5G22170    
       03534  0 07400 4 00055        TSX SE5,4                                                        F5G22180    
       03535 -0 50000 1 07337        CAL PRED,1                                                       F5G22190    
       03536 -0 32000 0 00353        ANA SBK2                                                         F5G22200    
       03537  0 34000 0 00513        CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G22210    
       03540  0 02000 0 03542        TRA X108                                                         F5G22220    
       03541  0 02000 0 03550        TRA X110 YES                                                     F5G22230    
       03542  0 50000 0 00512 X108   CLA SBV2 ARRANGE TO TRY                                          F5G22240    
       03543  0 40000 0 00315        ADD ONEA NEXT PRED.                                              F5G22250    
       03544  0 34000 0 00515        CAS SBV5            IS THIS PRED ENTRY IN SAME BB                F5G22260    
       03545  0 02000 0 03533        TRA X109                                                         F5G22270    
       03546  0 02000 0 03554        TRA X222                                                         F5G22280    
       03547  0 02000 0 03533        TRA X109                                                         F5G22290    
       03550  0 50000 1 07337 X110   CLA PRED,1 SET SIGN                                              F5G22300    
       03551 -0 76000 0 00003        SSM  OF PRED.                                                    F5G22310    
       03552  0 60100 1 07337        STO PRED,1 ENTRY NEGATIVE.                                       F5G22320    
       03553  0 02000 0 03542        TRA X108                                                         F5G22330    
       03554  0 50000 0 00513 X222   CLA SBV3            GET INDEX                                    F5G22340    
       03555  0 40000 0 00315        ADD ONEA                                                         F5G22350    
       03556  0 07400 4 00067        TSX SE1,4 OF                                                     F5G22360    
       03557  0 50000 1 06442        CLA BBB,1                                                        F5G22370    
       03560 -0 32000 0 00321        ANA S2K1                                                         F5G22380    
       03561  0 60100 0 00515        STO SBV5                                                         F5G22390    
       03562  0 50000 0 00513        CLA SBV3                                                         F5G22400    
       03563  0 07400 4 00067        TSX SE1,4                                                        F5G22410    
       03564  0 50000 1 06442        CLA BBB,1                                                        F5G22420    
       03565 -0 32000 0 00321        ANA S2K1                                                         F5G22430    
       03566  0 60200 0 00512 X112   SLW SBV2                                                         F5G22440    
       03567  0 07400 4 00044        TSX SE6,4                                                        F5G22450    
       03570 -0 50000 1 07555        CAL SUCC,1                                                       F5G22460    
       03571 -0 32000 0 00353        ANA SBK2                                                         F5G22470    
       03572  0 34000 0 00606        CAS XV18 IS THIS RIGHT SUCC.                                     F5G22480    
       03573  0 02000 0 03575        TRA X111                                                         F5G22490    
       03574  0 02000 0 03607        TRA X113                                                         F5G22500    
       03575  0 50000 0 00512 X111   CLA SBV2 ARRANGE TO TRY NEXT SUCC.                               F5G22510    
       03576  0 40000 0 00316        ADD ONED                                                         F5G22520    
       03577  0 34000 0 00515        CAS SBV5            IS THIS SUCC IN SAME BB                      F5G22530    
       03600  0 02000 0 03566        TRA X112                                                         F5G22540    
       03601  0 02000 0 03613        TRA X74                                                          F5G22550    
       03602  0 02000 0 03566        TRA X112                                                         F5G22560    
       03603  0 50000 0 00550 X114   CLA LPIND IS THIS                                                F5G22570    
       03604  0 12000 0 03613        TPL X74        A LOOP                                            F5G22580    
       03605  0 50000 0 04741        CLA LPLST YES                                                    F5G22590    
       03606  0 02000 0 03520        TRA X107                                                         F5G22600    
       03607  0 50000 1 07555 X113   CLA SUCC,1 SET SIGN                                              F5G22610    
       03610 -0 76000 0 00003        SSM  OF SUCC+ ENTRY                                              F5G22620    
       03611  0 60100 1 07555        STO SUCC,1 NEGATIVE                                              F5G22630    
       03612  0 02000 0 03575        TRA X111                                                         F5G22640    
       03613 -0 53400 2 00600 X74    LXD XV12,2                                                       F5G22650    
       03614  0 50000 2 04777        CLA LPLST+S3P1,2                                                 F5G22660    
       03615  0 34000 0 00324        CAS S3K2         IS IT A BB                                      F5G22670    
       03616  0 76100 0 00000        NOP                                                              F5G22680    
       03617  0 02000 0 03621        TRA X122                                                         F5G22690    
       03620  0 02000 0 03662        TRA X80 YES                                                      F5G22700    
       03621 -0 73400 4 00000 X122   PDX 0,4                                                          F5G22710    
       03622  3 77776 4 03624        TXH X205,4,-2     IS THE DECR. AN IMPOSSIBLE BB                  F5G22720    
       03623  0 77100 0 00022        ARS 18                                                           F5G22730    
       03624  0 07400 4 00067 X205   TSX SE1,4                                                        F5G22740    
       03625  0 50000 1 06447        CLA BBB+5,1 THE                                                  F5G22750    
       03626 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G22760    
       03627 -0 50000 1 05061        CAL REG,1           WORD                                         F5G22770    
       03630  0 60200 0 00605        SLW XV17                                                         F5G22780    
       03631  0 10000 0 03655        TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED                 F5G22790    
       03632 -0 32000 0 00335        ANA LK3     OR THE LX BITS FOR                                   F5G22800    
       03633 -0 60200 0 00566        ORS XV2 OLD REGION IN NEW REGION WORD.                           F5G22810    
       03634 -0 50000 0 00404        CAL XK22            AND THE OLD PHI                              F5G22820    
       03635 -0 50100 0 00605        ORA XV17 BITS                                                    F5G22830    
       03636  0 32000 0 00566        ANS XV2 INTO NEW REGION WORD.                                    F5G22840    
       03637  0 50000 0 00314        CLA ZERO CLEAR OLD                                               F5G22850    
       03640  0 60100 1 05061        STO REG,1 REGION WORD.                                           F5G22860    
       03641  0 50000 0 00605        CLA XV17 GET INDEX OF                                            F5G22870    
       03642  0 77100 0 00022        ARS 18                FIRST BB IN REG                            F5G22880    
       03643  0 62100 0 00612 X75    STA XV22       STOREBB NO.                                       F5G22890    
       03644  0 07400 4 00067        TSX SE1,4 GET INDEX OF BB                                        F5G22900    
       03645  0 50000 0 00565 X101   CLA XV1 STORE THE                                                F5G22910    
       03646  0 62200 1 06447        STD BBB+5,1 NEW REGION NO.                                       F5G22920    
       03647  0 50000 1 06447        CLA BBB+5,1 IS THIS THE                                          F5G22930    
       03650 -0 32000 0 00353        ANA SBK2 LAST BB                                                 F5G22940    
       03651  0 34000 0 00353        CAS SBK2 OF THE REGION                                           F5G22950    
       03652  0 02000 0 03643        TRA X75                                                          F5G22960    
       03653  0 02000 0 03665        TRA X76 YES.                                                     F5G22970    
       03654  0 02000 0 03643        TRA X75                                                          F5G22980    
       03655  0 50000 0 00612 X105   CLA XV22      RECORD THAT PREVIOUSLY                             F5G22990    
       03656  0 07400 4 00067        TSX SE1,4 NUMBERED BB                                            F5G23000    
       03657  0 50000 0 00404        CLA XK22 WAS LAST                                                F5G23010    
       03660  0 62100 1 06447        STA BBB+5,1 ONE IN NEW REGION.                                   F5G23020    
       03661  0 02000 0 03717        TRA X81 FINISHED RENUMBERING.                                    F5G23030    
       03662  0 77100 0 00022 X80    ARS 18                                                           F5G23040    
       03663  0 62100 0 00612        STA XV22                                                         F5G23050    
       03664  0 07400 4 00067        TSX SE1,4                                                        F5G23060    
       03665 -0 53400 2 00600 X76    LXD XV12,2                                                       F5G23070    
       03666  1 77777 2 03667 X140   TXI X140+1,2,-1                                                  F5G23080    
       03667 -0 63400 2 00600        SXD XV12,2                                                       F5G23090    
       03670  0 50000 2 04777 X77    CLA LPLST+S3P1,2                                                 F5G23100    
       03671  0 34000 0 00323        CAS S3K1 IS THIS END LOOP LIST                                   F5G23110    
       03672  1 00000 0 03700 X219   TXI X217,0,-      SEE X217+2                                     F5G23120    
       03673  0 50000 0 00336        CLA S5K1          YES                                            F5G23130    
       03674  0 62100 1 06447 X216   STA BBB+5,1       RECORD THE NEXT BB NO.                         F5G23140    
       03675  0 50000 0 00565        CLA XV1 RECORD THE                                               F5G23150    
       03676  0 62200 1 06447        STD BBB+5,1 NEW REGION                                           F5G23160    
       03677  0 02000 0 03503        TRA X79 NO.                                                      F5G23170    
       03700  0 56000 0 00324 X217   LDQ S3K2                                                         F5G23180    
       03701  0 04000 0 03704        TLQ X220                                                         F5G23190    
       03702  0 77100 0 00022 X215   ARS 18            NO                                             F5G23200    
       03703  1 00000 0 03674 X218   TXI X216,0,-                                                     F5G23210    
       03704 -0 63400 2 03672  X220  SXD X219,2                                                       F5G23220    
       03705  0 07400 4 00070        TSX SE,4                                                         F5G23230    
       03706  0 50000 1 06447        CLA BBB+5,1                                                      F5G23240    
       03707 -0 73400 1 00000        PDX 0,1                                                          F5G23250    
       03710  0 50000 1 05061        CLA REG,1         GET REGION WORD                                F5G23260    
       03711  0 62200 0 03703        STD X218                                                         F5G23270    
       03712  0 50000 0 00612        CLA XV22                                                         F5G23280    
       03713  0 07400 4 00067        TSX SE1,4                                                        F5G23290    
       03714  0 50000 0 03703        CLA X218                                                         F5G23300    
       03715 -0 53400 2 03672        LXD X219,2                                                       F5G23310    
       03716  1 00000 0 03702        TXI X215,-,-                                                     F5G23320    
       03717  0 50000 0 00566 X81    CLA XV2                                                          F5G23330    
       03720 -0 50100 0 00315        ORA ONEA                                                         F5G23340    
       03721 -0 53400 1 00565        LXD XV1,1 NEW REGION                                             F5G23350    
       03722  0 60100 1 05061        STO REG,1 WORD.                                                  F5G23360    
       03723  0 02000 0 02177        TRA F                                                            F5G23370    
       03724  0 53400 1 00342 X61    LXA S5K5,1                                                       F5G23380    
       03725 -0 75400 1 00000 X62    PXD 0,1 PLACE APPROPRIATE NOS.                                   F5G23390    
       03726  0 62200 1 00465        STD IN1+3,1     IN CORRSEPONDENCE                                F5G23400    
       03727  0 62200 1 00470        STD EN4+3,1      TABLES                                          F5G23410    
       03730  2 00001 1 03725        TIX X62,1,1                                                      F5G23420    
       03731  0 50000 0 00444        CLA S3V5                                                         F5G23430    
       03732  0 07400 4 01466        TSX S9,4          GET THE ENTRANCE REQUIREMENTS                  F5G23440    
       03733  0 02000 0 03406        TRA X63                                                          F5G23450    
       03734  0 50000 1 00561 X64    CLA AC1+3,1 IS THIS I.R.                                         F5G23460    
       03735  0 10000 0 03457        TZE X59 ACTIVE                                                   F5G23470    
       03736 -0 53400 4 00440        LXD S3V4,4 YES.                                                  F5G23480    
       03737  0 50000 4 04776        CLA LPLST+S3P1-1,4 GET                                           F5G23490    
       03740 -0 63400 1 00577        SXD XV11,1 THE                                                   F5G23500    
       03741 -0 63400 2 00600        SXD XV12,2 REGION                                                F5G23510    
       03742  0 07400 4 00070        TSX SE,4 WORD                                                    F5G23520    
       03743  0 50000 1 06447        CLA BBB+5,1 IN                                                   F5G23530    
       03744 -0 73400 4 00000        PDX 0,4 THE                                                      F5G23540    
       03745  0 56000 4 05061        LDQ REG,4 MQ.                                                    F5G23550    
       03746 -0 53400 1 00577        LXD XV11,1 HAS THERE                                             F5G23560    
       03747 -0 53400 2 00600        LXD XV12,2                                                       F5G23570    
       03750 -0 77300 2 00003        RQL 3,2               BEEN AN LX                                 F5G23580    
       03751  0 16200 0 03753        TQP X66 FOR THIS I.R.                                            F5G23590    
       03752  0 02000 0 03456        TRA X65 YES                                                      F5G23600    
       03753  0 50000 0 00614 X66    CLA XV24                                                         F5G23610    
       03754 -0 10000 0 03762        TNZ X208          IS THIS SAME REG. AS BEGINS STRING             F5G23620    
       03755  0 50000 0 04741        CLA LPLST         YES                                            F5G23630    
       03756  0 07400 4 01523        TSX SA,4          GET ACTIVE INDS. AT START OF STRING            F5G23640    
       03757 -0 53400 1 00577        LXD XV11,1                                                       F5G23650    
       03760  0 50000 1 00511        CLA ACT1+3,1      WAS THIS IR ACTIVE AT START                    F5G23660    
       03761  0 12000 0 03456        TPL X65                                                          F5G23670    
       03762 -0 53400 4 00440 X208   LXD S3V4,4        YES, MARK ALL                                  F5G23680    
       03763  0 50000 4 04776        CLA LPLST+S3P1-1,4           BBS IN OPAQUE                       F5G23690    
       03764 -0 53400 2 00577        LXD XV11,2        REGION ACTIVE                                  F5G23700    
       03765  0 07400 4 01753        TSX SD,4                                                         F5G23710    
       03766 -0 53400 1 00577        LXD XV11,1                                                       F5G23720    
       03767  0 07400 4 01661        TSX SC,4          MARK SECTION OF LLLST ACTIVE                   F5G23730    
       03770  0 02000 0 03457        TRA X59                                                          F5G23740    
       03771 -0 63400 1 00577 X67    SXD XV11,1                                                       F5G23750    
       03772 -0 53400 1 00440        LXD S3V4,1       GET                                             F5G23760    
       03773  0 50000 1 04775        CLA LPLST+S3P1-2,1 PRED+ NO                                      F5G23770    
       03774  0 34000 0 00324        CAS S3K2 IS THIS A BB                                            F5G23780    
       03775  0 76100 0 00000        NOP       NO                                                     F5G23790    
       03776  0 02000 0 04000        TRA X123                                                         F5G23800    
       03777  0 77100 0 00022        ARS 18 YES,SHIFT BB NO RIGHT.                                    F5G23810    
       04000  0 62100 0 00513 X123   STA SBV3      AND STORE IT                                       F5G23820    
       04001  0 50000 1 04776        CLA LPLST+S3P1-1,1 GET INDEX OF                                  F5G23830    
       04002  0 07400 4 00070        TSX SE,4 THIS BB                                                 F5G23840    
       04003  0 50000 1 06443        CLA BBB+1,1 GET TO STORE                                         F5G23850    
       04004  0 60100 0 00575        STO XV9 PREM. NO.                                                F5G23860    
       04005  0 50000 1 06442        CLA BBB,1 GET PRED. NO.                                          F5G23870    
       04006  0 60200 0 00512 X68    SLW SBV2                                                         F5G23880    
       04007  0 07400 4 00055        TSX SE5,4 GET INDEX OF PRED.                                     F5G23890    
       04010 -0 50000 1 07337        CAL PRED,1 IS THIS THE                                           F5G23900    
       04011 -0 32000 0 00353        ANA SBK2 RIGHT PRED                                              F5G23910    
       04012  0 34000 0 00513        CAS SBV3                                                         F5G23920    
       04013  0 02000 0 04015        TRA X69                                                          F5G23930    
       04014  0 02000 0 04020        TRA X70 YES.                                                     F5G23940    
       04015  0 50000 0 00512 X69    CLA SBV2                                                         F5G23950    
       04016  0 40000 0 00315        ADD ONEA                                                         F5G23960    
       04017  0 02000 0 04006        TRA X68                                                          F5G23970    
       04020  0 53400 4 00342 X70    LXA S5K5,4 SET COUNT TO 3                                        F5G23980    
       04021 -0 50000 0 00575 X72    CAL XV9 FIND                                                     F5G23990    
       04022  0 77100 4 00003        ARS 3,4 THE                                                      F5G24000    
       04023  0 77100 4 00003        ARS 3,4 PERM+ NO.                                                F5G24010    
       04024 -0 32000 0 00350        ANA S9K3                                                         F5G24020    
       04025  0 34000 0 00577        CAS XV11 IS THIS THE RIGHT I.R.                                  F5G24030    
       04026  0 02000 0 04030        TRA X71 NO,                                                      F5G24040    
       04027  0 02000 0 04032        TRA X73 YES,                                                     F5G24050    
       04030  2 00001 4 04021 X71    TIX X72,4,1 NO,                                                  F5G24060    
       04031  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G24070    
       04032 -0 50000 0 00377 X73    CAL XK16 RECORD THAT AN                                          F5G24080    
       04033  0 77100 4 00003        ARS 3,4 LX IS                                                    F5G24090    
       04034 -0 60200 1 07337        ORS PRED,1 NECESSARY.                                            F5G24100    
       04035 -0 53400 4 00577        LXD XV11,4 RECORD                                                F5G24110    
       04036 -0 50000 0 00340        CAL S5K3 LX                                                      F5G24120    
       04037  0 77100 4 00003        ARS 3,4 FOR THIS I.R.                                            F5G24130    
       04040 -0 60200 0 00566        ORS XV2 IN THIS REGION.                                          F5G24140    
       04041 -0 53400 1 00577        LXD XV11,1                                                       F5G24150    
       04042  0 02000 0 03454        TRA X119                                                         F5G24160    
       04043  0 50000 0 00444 X33    CLA S3V5                                                         F5G24170    
       04044  0 07400 4 01245        TSX S5,4 MATCH ENTRANCE REQU.                                    F5G24180    
       04045  0 50000 0 00444        CLA S3V5                                                         F5G24190    
       04046  0 07400 4 01523        TSX SA,4 GET EXIT COND.                                          F5G24200    
       04047  0 50000 0 00444        CLA S3V5                                                         F5G24210    
       04050  0 07400 4 00070        TSX SE,4 GET INDEX OF                                            F5G24220    
       04051  0 50000 1 06447        CLA BBB+5,1 B.B.                                                 F5G24230    
       04052 -0 73400 1 00000        PDX 0,1 GET                                                      F5G24240    
       04053  0 50000 1 05061        CLA REG,1 REGION                                                 F5G24250    
       04054  0 07400 4 00070        TSX SE,4 WORD.                                                   F5G24260    
       04055 -0 63400 1 00601 X40    SXD XV13,1 GET INDEX OF FIRST BB.                                F5G24270    
       04056 -0 50000 1 06443        CAL BBB+1,1 CLEAR REGISTER TO                                    F5G24280    
       04057  0 60200 0 00575        SLW XV9 CONTAIN PERM. NOS.                                       F5G24290    
       04060 -0 32000 0 00402        ANA XK20 GET ORIGINAL PERM. NOS.                                 F5G24300    
       04061  0 60200 0 00574        SLW XV8                                                          F5G24310    
       04062  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3.                                       F5G24320    
       04063 -0 50000 0 00575 X38    CAL XV9 GET THE                                                  F5G24330    
       04064  0 77100 2 00003        ARS 3,2 PERM.                                                    F5G24340    
       04065  0 77100 2 00003        ARS 3,2 NO. AND                                                  F5G24350    
       04066 -0 32000 0 00350        ANA S9K3 PUT IT                                                  F5G24360    
       04067 -0 73400 4 00000        PDX 0,4 IN 4.                                                    F5G24370    
       04070  0 50000 4 00470        CLA EN4+3,4 GET THE CORRESPONDENCE                               F5G24380    
       04071  0 76700 2 00003        ALS 3,2 OF THE ENTR,                                             F5G24390    
       04072  0 76700 2 00003        ALS 3,2 REQUIREMENTS.                                            F5G24400    
       04073 -0 60200 0 00574        ORS XV8 FORM NEW PERM. NOS.                                      F5G24410    
       04074 -0 63400 1 00576        SXD XV10,1                                                       F5G24420    
       04075  0 50000 4 00470        CLA EN4+3,4                                                      F5G24430    
       04076 -0 73400 1 00000        PDX 0,1 GET INDEX OF I.R.                                        F5G24440    
       04077  0 50000 4 00473        CLA EN1+3,4                                                      F5G24450    
       04100  0 34000 0 00336        CAS S5K1 IS ENM EMPTY                                            F5G24460    
       04101  0 02000 0 04103        TRA X34 NO,                                                      F5G24470    
       04102  0 02000 0 04150        TRA X41 YES,                                                     F5G24480    
       04103  0 34000 0 00333 X34    CAS LK1 NO,IS C(ENM)=E                                           F5G24490    
       04104  0 02000 0 04106        TRA X35 NO,                                                      F5G24500    
       04105  0 02000 0 04111        TRA X36 YES,                                                     F5G24510    
       04106  0 34000 1 00430 X35    CAS IR1+3,1 C-(ENM)=C(IRN)                                       F5G24520    
       04107  0 02000 0 04111        TRA X36 NO                                                       F5G24530    
       04110  0 02000 0 04132        TRA X43 YES                                                      F5G24540    
       04111 -0 53400 1 00576 X36    LXD XV10,1 NO                                                    F5G24550    
       04112  1 77777 1 04113 X42    TXI X42+1,1,-1                                                   F5G24560    
       04113  2 00001 2 04063 X37    TIX X38,2,1 COUNT TO 3                                           F5G24570    
       04114 -0 50000 0 00574        CAL XV8       STORE NEW                                          F5G24580    
       04115  0 62200 1 06440        STD BBB-2,1 PERM. NOS.                                           F5G24590    
       04116  0 63000 1 06440        STP BBB-2,1      AND ACTIVE INDICATORS                           F5G24600    
       04117  0 50000 1 06444        CLA BBB+2,1 IS THIS                                              F5G24610    
       04120 -0 32000 0 00353        ANA SBK2 LAST BB IN REGION                                       F5G24620    
       04121  0 34000 0 00353        CAS SBK2                                                         F5G24630    
       04122  0 02000 0 04124        TRA X39                                                          F5G24640    
       04123  0 02000 0 04217        TRA X45 YES,DONE.                                                F5G24650    
       04124  0 07400 4 00067 X39    TSX SE1,4 GET INDEX OF NEXT B.B.                                 F5G24660    
       04125  0 02000 0 04055        TRA X40                                                          F5G24670    
       04126  0 50000 4 00506 X200   CLA EX1+3,4       IS CONTENTS OF IR                              F5G24680    
       04127  0 56000 0 00337        LDQ S5K2       AT EXIT                                           F5G24690    
       04130  0 04000 0 04135        TLQ X130      REAL                                               F5G24700    
       04131  0 02000 0 04111        TRA X36       YES                                                F5G24710    
       04132  0 50000 4 00511 X43    CLA ACT1+3,4                                                     F5G24720    
       04133 -0 63400 1 05164  PW0   SXD W2+1,1                                                       F5G24730    
       04134  0 12000 0 04126        TPL X200       IS IT ACTIVE AT EXIT                              F5G24740    
       04135  0 50000 1 00561 X130   CLA AC1+3,1     YES,IS THIS IR ACTIVE                            F5G24750    
       04136  0 10000 0 04111        TZE X36                                                          F5G24760    
       04137  0 50000 1 00430        CLA IR1+3,1 YES                                                  F5G24770    
       04140  0 60100 0 00611        STO XV21                                                         F5G24780    
       04141 -0 53400 1 00576        LXD XV10,1 DOES THIS BB CONTAIN THE                              F5G24790    
       04142  0 50000 1 06444        CLA BBB+2,1     SAME TAG IN THIS P0SITION                        F5G24800    
       04143 -0 32000 0 00336        ANA S5K1                                                         F5G24810    
       04144  0 34000 0 00611        CAS XV21                                                         F5G24820    
       04145  0 02000 0 05144        TRA W0                                                           F5G24830    
       04146  0 02000 0 04213        TRA X44 YES.                                                     F5G24840    
       04147  0 02000 0 05144        TRA W0                                                           F5G24850    
                                          C(XV10)= INDEX OF PARTICULAR                                F5G24860    
                                          ENTRANCE REQUIREMENT.                                       F5G24870    
       04150  0 50000 1 00430 X41    CLA IR1+3,1                                                      F5G24880    
       04151  0 60100 0 00572        STO XV6                                                          F5G24890    
       04152  0 76700 0 00022        ALS 18 STORE AWAY THIS                                           F5G24900    
       04153  0 40000 1 00430        ADD IR1+3,1 TAG TEMPORARILY.                                     F5G24910    
       04154  0 60200 0 00573        SLW XV7                                                          F5G24920    
       04155  0 50000 1 00430        CLA IR1+3,1     IS THIS                                          F5G24930    
       04156  0 56000 0 00337        LDQ S5K2      TAG                                                F5G24940    
       04157  0 04000 0 04176        TLQ X201                                                         F5G24950    
       04160 -0 53400 1 00601        LXD XV13,1                                                       F5G24960    
       04161  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3.                                       F5G24970    
       04162 -0 50000 1 06444 X85    CAL BBB+2,1                                                      F5G24980    
       04163  0 76500 0 00022        LRS 18                                                           F5G24990    
       04164  0 34000 0 00572        CAS XV6 IS ENTR. REQU. EQUAL TO TAG                              F5G25000    
       04165  0 02000 0 04167        TRA X82 NO,                                                      F5G25010    
       04166  0 02000 0 04202        TRA X86 YES,                                                     F5G25020    
       04167  0 50000 0 00314 X82    CLA ZERO NO,                                                     F5G25030    
       04170  0 76300 0 00022        LLS 18                                                           F5G25040    
       04171  0 34000 0 00572        CAS XV6 IS TAG EQUAL TO EXIT COND.                               F5G25050    
       04172  0 02000 0 04174        TRA X83                                                          F5G25060    
       04173  0 02000 0 04206        TRA X87 YES                                                      F5G25070    
       04174  1 77777 1 04175 X83    TXI X83+1,1,-1                                                   F5G25080    
       04175  2 00001 4 04162 X84    TIX X85,4,1 COUNT TO 3.                                          F5G25090    
       04176  0 50000 0 00573 X201   CLA XV7       STORE THE                                          F5G25100    
       04177 -0 53400 1 00576        LXD XV10,1 NEW ENTRAKCE-                                         F5G25110    
       04200  0 60100 1 06444        STO BBB+2,1 EXIT REQUI.                                          F5G25120    
       04201  0 02000 0 04112        TRA X42                                                          F5G25130    
       04202 -0 50000 0 00366 X86    CAL XK18 PUT AN E                                                F5G25140    
       04203  0 62200 0 00573        STD XV7 IN THE ENTR. REQU.                                       F5G25150    
       04204  0 63000 0 00573        STP XV7                                                          F5G25160    
       04205  0 02000 0 04167        TRA X82                                                          F5G25170    
       04206 -0 50000 0 00573 X87    CAL XV7 PLACE E                                                  F5G25180    
       04207 -0 32000 0 00401        ANA XK19 IN                                                      F5G25190    
       04210  0 40000 0 00333        ADD LK1 EXIT                                                     F5G25200    
       04211  0 60200 0 00573        SLW XV7 REQUIREMENT.                                             F5G25210    
       04212  0 02000 0 04174        TRA X83                                                          F5G25220    
       04213 -0 50000 0 00340 X44    CAL S5K3 RECORD THIS                                             F5G25230    
       04214  0 77100 2 00003        ARS 3,2 I.R.                                                     F5G25240    
       04215 -0 60200 0 00574        ORS XV8 ACTIVE                                                   F5G25250    
       04216  0 02000 0 04112        TRA X42                                                          F5G25260    
       04217  0 53400 2 00342 X45    LXA S5K5,2                                                       F5G25270    
       04220 -0 63400 2 00602 X56    SXD XV14,2                                                       F5G25280    
       04221  0 50000 2 00470        CLA EN4+3,2                                                      F5G25290    
       04222 -0 73400 4 00000        PDX 0,4 GET INDEX                                                F5G25300    
       04223 -0 63400 4 00514        SXD SBV4,4 OF I.R.                                               F5G25310    
       04224  0 50000 2 00473        CLA EN1+3,2                                                      F5G25320    
       04225  0 34000 0 00336        CAS S5K1 IS ENM EMPTY                                            F5G25330    
       04226  0 02000 0 04230        TRA X46                                                          F5G25340    
       04227  0 02000 0 04343        TRA X223                                                         F5G25350    
       04230  0 34000 0 00333 X46    CAS LK1 IS THERE HASH IN ENM                                     F5G25360    
       04231  0 02000 0 04233        TRA X134                                                         F5G25370    
       04232  0 02000 0 04307        TRA X55 YES                                                      F5G25380    
       04233  0 34000 4 00430 X134   CAS IR1+3,4        DOES CONTENTS OF IR EQUAL CONTENTS OF EN      F5G25390    
       04234  0 02000 0 04236        TRA X47          NO                                              F5G25400    
       04235  0 02000 0 04357        TRA X131          YES                                            F5G25410    
       04236 -0 53400 1 00440 X47    LXD S3V4,1 GET AND                                               F5G25420    
       04237  0 50000 1 04775        CLA LPLST+S3P1-2,1 STORE PRED.                                   F5G25430    
       04240  0 34000 0 00324        CAS S3K2 BB                                                      F5G25440    
       04241  0 76100 0 00000        NOP  NO.                                                         F5G25450    
       04242  0 02000 0 04244        TRA X124                                                         F5G25460    
       04243  0 77100 0 00022        ARS 18                                                           F5G25470    
       04244  0 62100 0 00513 X124   STA SBV3                                                         F5G25480    
       04245  0 50000 1 04776        CLA LPLST+S3P1-1,1 GET                                           F5G25490    
       04246  0 07400 4 00070        TSX SE,4 BB NO.                                                  F5G25500    
       04247  0 50000 1 06443        CLA BBB+1,1 STORE THE                                            F5G25510    
       04250  0 60100 0 00575        STO XV9 PERM. NOS.                                               F5G25520    
       04251  0 50000 1 06447        CLA BBB+5,1                                                      F5G25530    
       04252 -0 73400 4 00000        PDX 0,4                                                          F5G25540    
       04253 -0 53400 2 00602        LXD XV14,2                                                       F5G25550    
       04254 -0 50000 0 00340        CAL S5K3                                                         F5G25560    
       04255  0 77100 2 00003        ARS 3,2                                                          F5G25570    
       04256 -0 60200 4 05061        ORS REG,4                                                        F5G25580    
       04257  0 50000 1 06442        CLA BBB,1 GET PRED. NO.                                          F5G25590    
       04260  0 60200 0 00512 X48    SLW SBV2          STORE PRED. NO.                                F5G25600    
       04261  0 07400 4 00055        TSX SE5,4 OBTAIN PRED. INDEX.                                    F5G25610    
       04262 -0 50000 1 07337        CAL PRED,1 IS THIS                                               F5G25620    
       04263 -0 32000 0 00353        ANA SBK2 THE CORRECT                                             F5G25630    
       04264  0 34000 0 00513        CAS SBV3 PRED                                                    F5G25640    
       04265  0 02000 0 04267        TRA X49                                                          F5G25650    
       04266  0 02000 0 04272        TRA X50 YES.                                                     F5G25660    
       04267  0 50000 0 00512 X49    CLA SBV2 ARRANGE TO                                              F5G25670    
       04270  0 40000 0 00315        ADD ONEA TRY NEXT PREDECESSOR.                                   F5G25680    
       04271  0 02000 0 04260        TRA X48                                                          F5G25690    
       04272  0 53400 4 00342 X50    LXA S5K5,4 1 HAS INDEX OF PRED.                                  F5G25700    
       04273 -0 50000 0 00575 X52    CAL XV9 EXTRACT                                                  F5G25710    
       04274  0 77100 4 00003        ARS 3,4 THE                                                      F5G25720    
       04275  0 77100 4 00003        ARS 3,4 PERM.                                                    F5G25730    
       04276 -0 32000 0 00350        ANA S9K3 NO.                                                     F5G25740    
       04277  0 34000 0 00514        CAS SBV4 IS THIS THE PERM. NO.                                   F5G25750    
       04300  0 02000 0 04302        TRA X51                                                          F5G25760    
       04301  0 02000 0 04304        TRA X53 YES.                                                     F5G25770    
       04302  2 00001 4 04273 X51    TIX X52,4,1                                                      F5G25780    
       04303  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G25790    
       04304 -0 50000 0 00377 X53    CAL XK16 GENERATE                                                F5G25800    
       04305  0 77100 4 00003        ARS 3,4 THE LX BIT.                                              F5G25810    
       04306 -0 60200 1 07337        ORS PRED,1 INSERT LX BIT.                                        F5G25820    
       04307 -0 53400 1 00514 X55    LXD SBV4,1 IS THE                                                F5G25830    
       04310  0 50000 1 00561        CLA AC1+3,1 I.R.                                                 F5G25840    
       04311  0 10000 0 04313        TZE X135         ACTIVE                                          F5G25850    
       04312  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NEEDED.                                  F5G25860    
       04313 -0 53400 2 00602 X135   LXD XV14,2     REPLACE IR                                        F5G25870    
       04314 -0 53400 4 00514        LXD SBV4,4      BY EXIT CONDITIONS                               F5G25880    
       04315  0 50000 2 00506        CLA EX1+3,2       OF THE                                         F5G25890    
       04316  0 60100 4 00430        STO IR1+3,4      REGION                                          F5G25900    
       04317  0 50000 2 00511 X136   CLA ACT1+3,2      IS IR                                          F5G25910    
       04320  0 12000 0 04325        TPL X54       ACTIVE AT EXIT                                     F5G25920    
       04321  0 50000 0 00440        CLA S3V4        SET                                              F5G25930    
       04322 -0 76000 0 00003        SSM                   ACTIVE                                     F5G25940    
       04323  0 40200 0 00316        SUB ONED         INDICATOR                                       F5G25950    
       04324  0 60100 4 00561        STO AC1+3,4                                                      F5G25960    
       04325 -0 53400 2 00602 X54    LXD XV14,2      COUNT TO                                         F5G25970    
       04326  2 00001 2 04220        TIX X56,2,1        3                                             F5G25980    
       04327  0 07400 4 02042        TSX SG,4            PERMUTE REGION WORD                          F5G25990    
       04330 -0 50000 2 05061        CAL REG,2                                                        F5G26000    
       04331 -0 32000 0 00404        ANA XK22                                                         F5G26010    
       04332  0 60200 2 05061        SLW REG,2                                                        F5G26020    
       04333  0 53400 4 00342        LXA S5K5,4                                                       F5G26030    
       04334  0 50000 4 00430 XY1    CLA IR1+3,4                                                      F5G26040    
       04335  0 40200 0 00336        SUB S5K1                                                         F5G26050    
       04336 -0 10000 0 04341        TNZ XY2                                                          F5G26060    
       04337 -0 50000 4 00410        CAL XK23+3,4                                                     F5G26070    
       04340 -0 60200 2 05061        ORS REG,2                                                        F5G26080    
       04341  2 00001 4 04334 XY2    TIX XY1,4,1                                                      F5G26090    
       04342  0 02000 0 03077        TRA X3                                                           F5G26100    
       04343  0 50000 4 00430 X223   CLA IR1+3,4         IS CONTENTS OF IR REAL                       F5G26110    
       04344  0 56000 0 00337        LDQ S5K2                                                         F5G26120    
       04345  0 04000 0 04325        TLQ X54                                                          F5G26130    
       04346  0 53400 1 00342        LXA S5K5,1          YES, SET COUNT TO 3                          F5G26140    
       04347  0 34000 1 00506 X225   CAS EX1+3,1         IS CONTENTS SAME AS EXIT CONDITIONS          F5G26150    
       04350  0 02000 0 04352        TRA X224                                                         F5G26160    
       04351  0 02000 0 04354        TRA X226            YES                                          F5G26170    
       04352  2 00001 1 04347 X224   TIX X225,1,1        C0UNT TO 3                                   F5G26180    
       04353  0 02000 0 04325        TRA X54                                                          F5G26190    
       04354  0 50000 0 00333 X226   CLA LK1             REPLACE IR BY E                              F5G26200    
       04355  0 60100 4 00430        STO IR1+3,4                                                      F5G26210    
       04356  0 02000 0 04325        TRA X54                                                          F5G26220    
       04357  0 56000 2 00506 X131   LDQ EX1+3,2       IS THE EXIT                                    F5G26230    
       04360  0 50000 0 00337        CLA S5K2         CONDITION REAL FOR THIS IR                      F5G26240    
       04361  0 04000 0 04365        TLQ X132                                                         F5G26250    
       04362 -0 53400 1 00514  X133  LXD SBV4,1            NO                                         F5G26260    
       04363  0 07400 4 01661        TSX SC,4        RECORD PART OF LPLST ACTIVE                      F5G26270    
       04364  0 02000 0 04313        TRA X135                                                         F5G26280    
       04365  0 50000 2 00511 X132   CLA ACT1+3,2       IS THIS IR ACTIVE                             F5G26290    
       04366  0 12000 0 04313        TPL X135          AT EXIT OF REGION                              F5G26300    
       04367  0 02000 0 04362        TRA X133        YES                                              F5G26310    
       04370  0 50000 0 00550 X88    CLA LPIND                                                        F5G26320    
       04371  0 12000 0 04416        TPL XY3               IS THIS A LOOP                             F5G26330    
       04372  0 50000 0 04740        CLA LPLST-1 YES                                                  F5G26340    
       04373  0 34000 0 00324        CAS S3K2 IS LAST LPLST QUANTITY A BB                             F5G26350    
       04374  0 76100 0 00000        NOP  NO                                                          F5G26360    
       04375  0 02000 0 04377        TRA X125                                                         F5G26370    
       04376  0 77100 0 00022        ARS 18 YES                                                       F5G26380    
       04377  0 62100 0 00513 X125   STA SBV3     STORE PRED. NO.                                     F5G26390    
       04400  0 50000 0 04741        CLA LPLST                                                        F5G26400    
       04401  0 07400 4 00070        TSX SE,4 GET INDEX OF 1ST BB IN LOOP.                            F5G26410    
       04402 -0 63400 1 00574        SXD XV8,1        STORE INDEX OF 1ST BB                           F5G26420    
       04403  0 50000 1 06442        CLA BBB,1                                                        F5G26430    
       04404  0 60200 0 00604 X91    SLW XV16          STORE PRED. NO.                                F5G26440    
       04405  0 07400 4 00055        TSX SE5,4 GET INDEX OF PRED.                                     F5G26450    
       04406  0 50000 1 07337        CLA PRED,1 IS                                                    F5G26460    
       04407 -0 32000 0 00353        ANA SBK2 THIS THE                                                F5G26470    
       04410  0 34000 0 00513        CAS SBV3 RIGHT PRED                                              F5G26480    
       04411  0 02000 0 04413        TRA X90                                                          F5G26490    
       04412  0 02000 0 04445        TRA X92 YES                                                      F5G26500    
       04413  0 50000 0 00604 X90    CLA XV16                                                         F5G26510    
       04414  0 40000 0 00315        ADD ONEA                                                         F5G26520    
       04415  0 02000 0 04404        TRA X91                                                          F5G26530    
       04416  0 53400 1 00342 XY3    LXA S5K5,1                                                       F5G26540    
       04417  0 07400 4 01661 XY4    TSX SC,4                                                         F5G26550    
       04420  2 00001 1 04417        TIX XY4,1,1                                                      F5G26560    
       04421  0 02000 0 03461        TRA X89                                                          F5G26570    
       04422 -0 63400 1 04444 X97    SXD X137,1                                                       F5G26580    
       04423  0 34000 1 00430        CAS IR1+3,1  IS CONTENTS 0F IRN EQUAL TO CONTENTS OF ENM         F5G26590    
       04424  0 02000 0 04426        TRA X98                                                          F5G26600    
       04425  0 02000 0 04473        TRA X93        YES                                               F5G26610    
       04426 -0 50000 0 00340 X98    CAL S5K3 RECORD LX FOR                                           F5G26620    
       04427  0 77100 1 00003        ARS 3,1 THIS IR IN THIS                                          F5G26630    
       04430 -0 53400 1 00565        LXD XV1,1 REGION.                                                F5G26640    
       04431 -0 60200 1 05061        ORS REG,1                                                        F5G26650    
       04432 -0 63400 4 00602        SXD XV14,4 GET                                                   F5G26660    
       04433 -0 63400 2 00603        SXD XV15,2 INDEX                                                 F5G26670    
       04434  0 50000 0 00604        CLA XV16 OF                                                      F5G26680    
       04435  0 07400 4 00055        TSX SE5,4 PRED.                                                  F5G26690    
       04436 -0 53400 4 00602        LXD XV14,4                                                       F5G26700    
       04437 -0 53400 2 00603        LXD XV15,2                                                       F5G26710    
       04440 -0 50000 0 00377        CAL XK16 RECORD                                                  F5G26720    
       04441  0 77100 4 00003        ARS 3,4 LX                                                       F5G26730    
       04442 -0 60200 1 07337        ORS PRED,1 NECESSARY.                                            F5G26740    
       04443 -0 53400 1 04444        LXD X137,1                                                       F5G26750    
       04444  1 00000 0 04464 X137   TXI X96,0,-                                                      F5G26760    
       04445 -0 53400 2 00574 X92    LXD XV8,2                                                        F5G26770    
       04446  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3                                        F5G26780    
       04447  0 50000 2 06443        CLA BBB+1,2 GET THE WORD WITH                                    F5G26790    
       04450  0 60100 0 00575        STO XV9 PERM. NOS.                                               F5G26800    
       04451 -0 50000 0 00575 X95    CAL XV9 GET                                                      F5G26810    
       04452  0 77100 4 00003        ARS 3,4 INDEX                                                    F5G26820    
       04453  0 77100 4 00003        ARS 3,4 OF                                                       F5G26830    
       04454 -0 32000 0 00350        ANA S9K3 THE                                                     F5G26840    
       04455 -0 73400 1 00000        PDX 0,1 I.R.                                                     F5G26850    
       04456 -0 50000 2 06444        CAL BBB+2,2 GET ENTRANCE                                         F5G26860    
       04457  0 77100 0 00022        ARS 18 REQUIREMENT.                                              F5G26870    
       04460  0 34000 0 00337        CAS S5K2          IS ENM REAL                                    F5G26880    
       04461  0 76100 0 00000        NOP                                                              F5G26890    
       04462  0 02000 0 04464        TRA X96         NO                                               F5G26900    
       04463  0 02000 0 04422        TRA X97 YES                                                      F5G26910    
       04464  0 50000 1 00561 X96    CLA AC1+3,1 IS IRN                                               F5G26920    
       04465  0 10000 0 04473        TZE X93 ACTIVE                                                   F5G26930    
       04466 -0 63400 2 00602        SXD XV14,2 YES,                                                  F5G26940    
       04467 -0 63400 4 00603        SXD XV15,4                                                       F5G26950    
       04470  0 07400 4 01566        TSX SB,4 RECORD SXD NECESSARY.                                   F5G26960    
       04471 -0 53400 2 00602        LXD XV14,2                                                       F5G26970    
       04472 -0 53400 4 00603        LXD XV15,4                                                       F5G26980    
       04473  1 77777 2 04474 X93    TXI X93+1,2,-1                                                   F5G26990    
       04474  2 00001 4 04451 X94    TIX X95,4,1 COUNT TO 3                                           F5G27000    
                                          ACTIVE PASS.                                                F5G27010    
                                          F0LLOWS 2 ED LXING PASS.                                    F5G27020    
       04475  0 56000 0 00325        LDQ S3K3 INITIALIZE THE                                          F5G27030    
       04476 -0 60000 0 00440        STQ S3V4 LOOP LIST                                               F5G27040    
       04477  0 56000 0 00340        LDQ S5K3 AND                                                     F5G27050    
       04500 -0 60000 0 00437        STQ S3V3 MAKE SURE TAG                                           F5G27060    
       04501 -0 60000 0 00521        STQ ACIND      SET IND. TO SAY THIS IS ACTIVE PASS               F5G27070    
       04502 -0 63400 0 00436        SXD S3V2,0     LOCATI0N GETS SET                                 F5G27080    
       04503  0 50000 0 00314 A3     CLA ZERO ARE                                                     F5G27090    
       04504  0 40100 0 00556        ADM AC1 THERE                                                    F5G27100    
       04505  0 40100 0 00557        ADM AC2 ANY                                                      F5G27110    
       04506  0 40100 0 00560        ADM AC3 ACTIVE I.R.S                                             F5G27120    
       04507  0 10000 0 03461        TZE X89 LEFT GO TO RENUMBER.                                     F5G27130    
       04510  0 07400 4 01023        TSX S3,4 YES. TRY TO GET NEXT TAG.                               F5G27140    
       04511  0 02000 0 04644        TRA A12 COME HERE IF TAG NOT GOT                                 F5G27150    
       04512  0 50000 0 01122        CLA S39 COMPUTE LOCATION OF THIS                                 F5G27160    
       04513 -0 32000 0 00353        ANA SBK2 TAG=(ADDR. FOLLOWING                                    F5G27170    
       04514  0 40000 0 00451        ADD S4V1 TIX BLOCK + L(CM)-CM TAG                                F5G27180    
       04515  0 40200 0 00332        SUB S4K3 - INDEX OF TAG.)                                        F5G27190    
       04516  0 76700 0 00022        ALS 18                                                           F5G27200    
       04517 -0 40000 0 00436        SBM S3V2                                                         F5G27210    
       04520  0 76500 0 00065        LRS 53                                                           F5G27220    
       04521 -0 60000 0 00571        STQ XV5                                                          F5G27230    
       04522  0 22100 0 00371        DVP XK9 FORM LOC/9 AND                                           F5G27240    
       04523 -0 60000 0 00567        STQ XV3 REMAINDER                                                F5G27250    
       04524  0 60100 0 00570        STO XV4                                                          F5G27260    
       04525  0 50000 0 00442        CLA TPE IS THIS                                                  F5G27270    
       04526  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G27280    
       04527  0 02000 0 04531        TRA A1                                                           F5G27290    
       04530  0 02000 0 04570        TRA A5 YES                                                       F5G27300    
       04531  0 34000 0 00376 A1     CAS XK15 IS IT AN LX PRIME                                       F5G27310    
       04532  0 02000 0 04534        TRA A20                                                          F5G27320    
       04533  0 02000 0 04614        TRA A8 YES                                                       F5G27330    
       04534  0 34000 0 00403 A20    CAS XK21 IS IT A DED                                             F5G27340    
       04535  0 02000 0 04537        TRA A21                                                          F5G27350    
       04536  0 02000 0 04614        TRA A8 YES.                                                      F5G27360    
       04537  0 34000 0 00373 A21    CAS XK12 IS IT AN ACTIVE INSTR.                                  F5G27370    
       04540  0 02000 0 04542        TRA A2                                                           F5G27380    
       04541  0 02000 0 04570        TRA A5 YES.                                                      F5G27390    
       04542  0 50000 0 00567 A2     CLA XV3 GET INDEX                                                F5G27400    
       04543  0 07400 4 00032        TSX SE4,4 OF STAG ENTRY.                                         F5G27410    
       04544  0 53400 2 00570        LXA XV4,2 IS THERE                                               F5G27420    
       04545 -0 50000 1 05061        CAL STAG,1 AN LX                                                 F5G27430    
       04546  0 77100 2 00010        ARS 8,2 IN FRONT                                                 F5G27440    
       04547 -0 32000 0 00372        ANA XK11 OF                                                      F5G27450    
       04550  0 34000 0 00372        CAS XK11 THIS INSTR.                                             F5G27460    
       04551  0 02000 0 04503        TRA A3                                                           F5G27470    
       04552  0 02000 0 04554        TRA A4 YES.                                                      F5G27480    
       04553  0 02000 0 04503        TRA A3                                                           F5G27490    
       04554 -0 50000 0 00570 A4     CAL XV4 GET                                                      F5G27500    
       04555  0 76000 0 00006        COM  THE                                                         F5G27510    
       04556  0 73400 2 00000        PAX 0,2 S-TAG                                                    F5G27520    
       04557 -0 50000 1 05061        CAL STAG,1 IN                                                    F5G27530    
       04560  0 76700 2 00000        ALS 0,2 DECR.                                                    F5G27540    
       04561  0 76700 2 00000        ALS 0,2 PART.                                                    F5G27550    
       04562 -0 32000 0 00350        ANA S9K3                                                         F5G27560    
       04563 -0 73400 1 00000        PDX 0,1                                                          F5G27570    
       04564  0 50000 1 00561        CLA AC1+3,1 IS THE CORRESPONDING                                 F5G27580    
       04565  0 10000 0 04503        TZE A3 I.R. ACTIVE                                               F5G27590    
       04566  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NECESSARY                                F5G27600    
       04567  0 02000 0 04503        TRA A3                                                           F5G27610    
       04570  0 50000 0 00567 A5     CLA XV3                                                          F5G27620    
       04571  0 07400 4 00032        TSX SE4,4 GET STAG INDEX.                                        F5G27630    
       04572 -0 50000 0 00570        CAL XV4                                                          F5G27640    
       04573  0 76000 0 00006        COM  IS IT                                                       F5G27650    
       04574  0 73400 2 00000        PAX 0,2 TO                                                       F5G27660    
       04575 -0 50000 1 05061        CAL STAG,1 AN                                                    F5G27670    
       04576  0 76700 2 00000        ALS 0,2                                                          F5G27680    
       04577  0 76700 2 00000        ALS 0,2 ACTIVE                                                   F5G27690    
       04600 -0 32000 0 00350        ANA S9K3                                                         F5G27700    
       04601 -0 73400 1 00000        PDX 0,1 IR                                                       F5G27710    
       04602  0 50000 1 00561        CLA AC1+3,1                                                      F5G27720    
       04603  0 10000 0 04503        TZE A3                                                           F5G27730    
       04604  0 50000 1 00430   A51  CLA IR1+3,1 IS IT                                                F5G27740    
       04605  0 34000 0 00441        CAS 1TAG           SAME TAU-TAG                                  F5G27750    
       04606  0 02000 0 04610        TRA A6                                                           F5G27760    
       04607  0 02000 0 04612        TRA A7 YES                                                       F5G27770    
       04610  0 07400 4 01566 A6     TSX SB,4 RECORD SXD NEEDED.                                      F5G27780    
       04611  0 02000 0 04503        TRA A3                                                           F5G27790    
       04612  0 07400 4 01661 A7     TSX SC,4 RECORD CERTAIN PART OF                                  F5G27800    
       04613  0 02000 0 04503        TRA A3 LOOP LIST ACTIVE.                                         F5G27810    
       04614  0 50000 0 00567 A8     CLA XV3 GET                                                      F5G27820    
       04615  0 07400 4 00032        TSX SE4,4 THE                                                    F5G27830    
       04616 -0 50000 0 00570        CAL XV4                                                          F5G27840    
       04617  0 76000 0 00006        COM  S-TAG                                                       F5G27850    
       04620  0 73400 2 00000        PAX 0,2 OF                                                       F5G27860    
       04621 -0 50000 1 05061        CAL STAG,1                                                       F5G27870    
       04622  0 60100 0 00423        STO S1V6                                                         F5G27871    
       04623  0 76700 2 00000        ALS 0,2 THIS                                                     F5G27880    
       04624  0 76700 2 00000        ALS 0,2 INSTR.                                                   F5G27890    
       04625 -0 32000 0 00350        ANA S9K3                                                         F5G27900    
       04626 -0 73400 1 00000        PDX 0,1                                                          F5G27910    
       04627  0 10000 0 04503        TZE A3 DOES THIS INSTR HAVE AN S-TAG                             F5G27920    
       04630  0 50000 1 00561        CLA AC1+3,1 YES.                                                 F5G27930    
       04631  0 10000 0 04503        TZE A3                IS THIS IR ACTIVE                          F5G27940    
       04632  0 50000 0 00314        CLA ZERO                                                         F5G27941    
       04633 -0 75400 2 00000        PXD 0,2                                                          F5G27942    
       04634  0 76000 0 00006        COM                                                              F5G27943    
       04635 -0 73400 4 00000        PDX 0,4                                                          F5G27944    
       04636  0 50000 0 00423        CLA S1V6                                                         F5G27945    
       04637  0 77100 4 00010        ARS 8,4                                                          F5G27946    
       04640 -0 32000 0 00316        ANA ONED                                                         F5G27947    
       04641 -0 10000 0 04604        TNZ A51                                                          F5G27948    
       04642  0 07400 4 01661        TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE                      F5G27950    
       04643  0 02000 0 04503        TRA A3                                                           F5G27960    
       04644 -0 53400 1 00440 A12    LXD S3V4,1      GET INDEX OF LPLST QUANTITY                      F5G27970    
       04645  0 50000 1 04775        CLA LPLST+S3P1-2,1     GET PREVIOUS LPLST QUANTITY               F5G27980    
       04646  0 60100 0 00607        STO XV19                                                         F5G27990    
       04647  0 56000 0 00324        LDQ S3K2      WAS IT A                                           F5G28000    
       04650  0 04000 0 04663        TLQ A28                                                          F5G28010    
       04651  0 07400 4 00070 A25    TSX SE,4          YES, WAS THAT                                  F5G26020    
       04652  0 50000 1 06442        CLA BBB,1     BB TERMINATED                                      F5G28030    
       04653  0 77100 0 00041        ARS 33        BY A                                               F5G28040    
       04654  0 40000 0 00315        ADD ONEA         GO TO N                                         F5G28050    
       04655 -0 10000 0 04663        TNZ A28                                                          F5G28060    
       04656  0 53400 1 00342        LXA S5K5,1     YES                                               F5G28070    
       04657  0 50000 1 00561 A26    CLA AC1+3,1     IS THIS                                          F5G28080    
       04660  0 10000 0 04662        TZE A27      IR ACTIVE                                           F5G28090    
       04661  0 07400 4 01566        TSX SB,4     YES, RECORD SXD NECESSARY                           F5G28100    
       04662  2 00001 1 04657 A27    TIX A26,1,1                                                      F5G28110    
       04663  0 50000 0 00444 A28    CLA S3V5                                                         F5G28120    
       04664  0 56000 0 00324        LDQ S3K2          IS THIS                                        F5G28130    
       04665  0 04000 0 04700        TLQ A35           ATR. REGION                                    F5G28140    
       04666 -0 32000 0 00336        ANA S5K1              NO, BB                                     F5G28150    
       04667  0 10000 0 04503        TZE A3                                                           F5G28160    
       04670  0 76700 0 00003        ALS 3                                                            F5G28170    
       04671 -0 73400 1 00000        PDX 0,1                                                          F5G28180    
       04672 -3 00002 1 04674        TXL AP1,1,2                                                      F5G28190    
       04673  1 77777 1 04674        TXI AP1,1,-1                                                     F5G28200    
       04674  0 50000 1 00561 AP1    CLA AC1+3,1                                                      F5G28210    
       04675  0 10000 0 04503        TZE A3                                                           F5G28220    
       04676  0 07400 4 01566        TSX SB,4                                                         F5G28230    
       04677  0 02000 0 04503        TRA A3                                                           F5G28240    
       04700  0 07400 4 00070 A35    TSX SE,4                                                         F5G28250    
       04701  0 50000 1 06447        CLA BBB+5,1                                                      F5G28260    
       04702 -0 73400 2 00000        PDX 0,2          INDEX OF REGION TO 2                            F5G28270    
       04703  0 50000 2 05061        CLA REG,2        GET REGION                                      F5G28280    
       04704  0 60100 0 00607        STO XV19                                                         F5G28290    
       04705  0 53400 1 00342        LXA S5K5,1                                                       F5G28300    
       04706 -0 50000 0 00607 A31    CAL XV19                                                         F5G28310    
       04707  0 76700 1 00003        ALS 3,1                                                          F5G28320    
       04710 -0 76000 0 00001        PBT                   IS THERE AN LX                             F5G28330    
       04711  0 02000 0 04715        TRA A30               FOR THIS IR                                F5G28340    
       04712  0 50000 1 00561        CLA AC1+3,1      YES                                             F5G28350    
       04713  0 10000 0 04715        TZE A30          IS THIS IR ACTIVE                               F5G28360    
       04714  0 07400 4 01566        TSX SB,4         YES, RECORD SXD NECESSARY                       F5G28370    
       04715  2 00001 1 04706 A30    TIX A31,1,1                                                      F5G28380    
       04716  0 50000 0 00444        CLA S3V5                                                         F5G28390    
       04717  0 07400 4 01523        TSX SA,4         GET THE EXIT CONDITIONS                         F5G28400    
       04720  0 53400 1 00342        LXA S5K5,1                                                       F5G28410    
       04721  0 50000 1 00561 A34    CLA AC1+3,1                                                      F5G28420    
       04722  0 10000 0 04736        TZE A32          IS THIS IR ACTIVE                               F5G28430    
       04723  0 50000 1 00506        CLA EX1+3,1      YES                                             F5G28440    
       04724  0 56000 0 00337        LDQ S5K2                                                         F5G28450    
       04725  0 04000 0 04730        TLQ A33          IS THE EXIT CONDITION REAL                      F5G28460    
       04726  0 50000 1 00511        CLA ACT1+3,1     YES                                             F5G28470    
       04727  0 12000 0 04736        TPL A32          IS THE IR ACTIVE AT EXIT                        F5G28480    
       04730 -0 63400 1 00610 A33    SXD XV20,1       YES                                             F5G28490    
       04731 -0 53400 2 00610        LXD XV20,2                                                       F5G28500    
       04732  0 50000 0 00444        CLA S3V5                                                         F5G28510    
       04733  0 07400 4 01753        TSX SD,4         RECORD TR. REG. ACTIVE                          F5G28520    
       04734 -0 53400 1 00610        LXD XV20,1                                                       F5G28530    
       04735  0 07400 4 01661        TSX SC,4         RECORD SECTION OF LPLST ACTIVE                  F5G28540    
       04736  2 00001 1 04721 A32    TIX A34,1,1      COUNT TO 3                                      F5G28550    
       04737  0 02000 0 04503        TRA A3                                                           F5G28560    
       04740  0 50000 0 00376  QP    CLA XK15                                                         F5G28580    
       04741 -0 32000 0 00020        ANA 16                                                           F5G28590    
       04742  0 77100 0 00001        ARS 1                                                            F5G28600    
       04743  0 62200 0 00103        STD SE21+2                                                       F5G28610    
       04744  0 10000 0 00030        TZE R                                                            F5G28620    
       04745 -0 53400 4 00063        LXD PREDP+3,4                                                    F5G28630    
       04746  0 50000 0 00075        CLA BBBP+3                                                       F5G28640    
       04747 -3 00000 4 00030 QP0    TXL R,4,0                                                        F5G28650    
       04750  1 77777 4 04751        TXI QP1,4,-1                                                     F5G28660    
       04751 -0 63400 4 00104  QP1   SXD SE21+3,4                                                     F5G28670    
       04752  0 40200 0 00316        SUB ONED                                                         F5G28680    
       04753  0 07400 4 00070        TSX SE,4                                                         F5G28690    
       04754 -0 53400 4 00072        LXD BBBP,4                                                       F5G28700    
       04755  1 00111 4 04756        TXI QP2,4,BBBL-1                                                 F5G28710    
       04756 -0 63400 4 04767  QP2   SXD QP4,4                                                        F5G28720    
       04757 -0 63400 4 04771        SXD QP5,4                                                        F5G28730    
       04760  0 53400 4 06442        LXA BBB,4                                                        F5G28740    
       04761 -0 63400 4 04775        SXD QP8,4                                                        F5G28750    
       04762 -0 53400 4 00104        LXD SE21+3,4                                                     F5G28760    
       04763 -0 75400 4 00000  QP3   PXD 0,4                                                          F5G28770    
       04764  0 07400 4 00056        TSX SE5+1,4                                                      F5G28780    
       04765  0 50200 1 07337        CLS PRED,1                                                       F5G28790    
       04766  0 73400 4 00000        PAX 0,4                                                          F5G28800    
       04767  3 00000 4 04772  QP4   TXH QP6,4,-                                                      F5G28810    
       04770  1 00112 4 04771        TXI QP5,4,BBBL                                                   F5G28820    
       04771  3 00000 4 04773  QP5   TXH QP7,4,-                                                      F5G28830    
       04772  0 60100 1 07337  QP6   STO PRED,1                                                       F5G28840    
       04773 -0 53400 4 00306  QP7   LXD SEV2,4                                                       F5G28850    
       04774  0 50000 0 00072        CLA BBBP                                                         F5G28860    
       04775 -3 00000 4 04747  QP8   TXL QP0,4,-                                                      F5G28870    
       04776  1 77777 4 04763        TXI QP3,4,-1                                                     F5G28880    
                        04741        ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS.        F5G28890    
                                          STORAGE ASSIGNMENT (TABLES)                                 F5G28900    
                        04741 LPLST  BSS S3P1 SPACE FOR LOOP LIST TABLE                               F5G28910    
                        05061 REG    BES FP1 SPACE FOR REGION WORDS                                   F5G28920    
                        02712 SPACE  EQU MSIZE-5-REG     STORAGE SPACE LEFT                           F5G28930    
                        00062  STAGL SYN STL                                                          F5G28940    
       05061  0 00000 0 00000 STAG   HTR -                                                            F5G28950    
       05062  0 00000 0 00000        HTR -                                                            F5G28960    
       05063  0 00000 0 00000        HTR -                                                            F5G28960    
       05064  0 00000 0 00000        HTR -                                                            F5G28960    
       05065  0 00000 0 00000        HTR -                                                            F5G28960    
       05066  0 00000 0 00000        HTR -                                                            F5G28960    
       05067  0 00000 0 00000        HTR -                                                            F5G28960    
       05070  0 00000 0 00000        HTR -                                                            F5G28960    
       05071  0 00000 0 00000        HTR -                                                            F5G28960    
       05072  0 00000 0 00000        HTR -                                                            F5G28960    
       05073  0 00000 0 00000        HTR -                                                            F5G28960    
       05074  0 00000 0 00000        HTR -                                                            F5G28960    
       05075  0 00000 0 00000        HTR -                                                            F5G28960    
       05076  0 00000 0 00000        HTR -                                                            F5G28960    
       05077  0 00000 0 00000        HTR -                                                            F5G28960    
       05100  0 00000 0 00000        HTR -                                                            F5G28960    
       05101  0 00000 0 00000        HTR -                                                            F5G28960    
       05102  0 00000 0 00000        HTR -                                                            F5G28960    
       05103  0 00000 0 00000        HTR -                                                            F5G28960    
       05104  0 00000 0 00000        HTR -                                                            F5G28960    
       05105  0 00000 0 00000        HTR -                                                            F5G28960    
       05106  0 00000 0 00000        HTR -                                                            F5G28960    
       05107  0 00000 0 00000        HTR -                                                            F5G28960    
       05110  0 00000 0 00000        HTR -                                                            F5G28960    
       05111  0 00000 0 00000        HTR -                                                            F5G28960    
       05112  0 00000 0 00000        HTR -                                                            F5G28960    
       05113  0 00000 0 00000        HTR -                                                            F5G28960    
       05114  0 00000 0 00000        HTR -                                                            F5G28960    
       05115  0 00000 0 00000        HTR -                                                            F5G28960    
       05116  0 00000 0 00000        HTR -                                                            F5G28960    
       05117  0 00000 0 00000        HTR -                                                            F5G28960    
       05120  0 00000 0 00000        HTR -                                                            F5G28960    
       05121  0 00000 0 00000        HTR -                                                            F5G28960    
       05122  0 00000 0 00000        HTR -                                                            F5G28960    
       05123  0 00000 0 00000        HTR -                                                            F5G28960    
       05124  0 00000 0 00000        HTR -                                                            F5G28960    
       05125  0 00000 0 00000        HTR -                                                            F5G28960    
       05126  0 00000 0 00000        HTR -                                                            F5G28960    
       05127  0 00000 0 00000        HTR -                                                            F5G28960    
       05130  0 00000 0 00000        HTR -                                                            F5G28960    
       05131  0 00000 0 00000        HTR -                                                            F5G28960    
       05132  0 00000 0 00000        HTR -                                                            F5G28960    
       05133  0 00000 0 00000        HTR -                                                            F5G28960    
       05134  0 00000 0 00000        HTR -                                                            F5G28960    
       05135  0 00000 0 00000        HTR -                                                            F5G28960    
       05136  0 00000 0 00000        HTR -                                                            F5G28960    
       05137  0 00000 0 00000        HTR -                                                            F5G28960    
       05140  0 00000 0 00000        HTR -                                                            F5G28960    
       05141  0 00000 0 00000        HTR -                                                            F5G28960    
       05142  0 00000 0 00000        HTR -                                                            F5G28960    
       05143  0 00000 0 00000        HTR -                                                            F5G28960    
       05144  0 50000 1 06444  W0    CLA BBB+2,1                                                      F5G28980    
       05145  0 77100 0 00022        ARS 18                                                           F5G28990    
       05146  0 40200 0 00611        SUB XV21                                                         F5G29000    
       05147  0 10000 0 04112        TZE X42                                                          F5G29010    
       05150  0 53400 1 00342        LXA S5K5,1                                                       F5G29020    
       05151 -0 53400 4 00601        LXD XV13,4                                                       F5G29030    
       05152  0 50000 4 06444  W1    CLA BBB+2,4                                                      F5G29040    
       05153  0 76500 0 00022        LRS 18                                                           F5G29050    
       05154  0 40200 0 00611        SUB XV21                                                         F5G29060    
       05155  0 10000 0 05165        TZE W3                                                           F5G29070    
       05156  0 50000 0 00314        CLA ZERO                                                         F5G29080    
       05157  0 76300 0 00022        LLS 18                                                           F5G29090    
       05160  0 40200 0 00611        SUB XV21                                                         F5G29100    
       05161  0 10000 0 05165        TZE W3                                                           F5G29110    
       05162  1 77777 4 05163        TXI W2,4,-1                                                      F5G29120    
       05163  2 00001 1 05152  W2    TIX W1,1,1                                                       F5G29130    
       05164 -3 00000 0 04111        TXL X36,-,-                                                      F5G29140    
       05165 -0 63400 2 05171  W3    SXD W4,2                                                         F5G29150    
       05166 -0 53400 1 05164        LXD W2+1,1                                                       F5G29160    
       05167  0 07400 4 01566        TSX SB,4                                                         F5G29170    
       05170 -0 53400 2 05171        LXD W4,2                                                         F5G29180    
       05171 -3 00000 0 04111  W4    TXL X36,-,-                                                      F5G29190    
                        05172        BSS PTL1      SPACE FOR PATCHES                                  F5G29200    
                        01224 CMTL   SYN 9*SPACE/20/15*15                                             F5G29210    
                        05216 CMTAG  BSS CMTL                                                         F5G29220    
                        00112 BBBL   SYN 6*SPACE/20/6                                                 F5G29230    
                        06442 BBB    BSS BBBL*6+1                                                     F5G29240    
                        07337 PRED   SYN BBB+BBBL*6+1                                                 F5G29250    
                        00435 SPAC1  EQU MSIZE-4-PRED                                                 F5G29260    
                        00215 PREDL  EQU SPAC1/2-1                                                    F5G29270    
                        07337        BSS PREDL+1                                                      F5G29280    
                        00215 SUCCL  SYN PREDL                                                        F5G29290    
                        07555 SUCC   BSS SUCCL+1                                                      F5G29300    
                                                 EDITOR RECORD NO. 76                                 F5G29310    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G29320    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G29340    
                                                         PART 1B                                      F5G29350    
                                            INITIALIZATI0N AND PRED LIMIT FOR FAST COMPILING.         F5G29360    
                        07337        ORG PRED                                                         F5G29370    
       07337  0 53400 1 00362 I      LXA FK5,1                  CLEAR REG. TABLE                      F5G29380    
       07340  0 76000 0 00012        DCT   CLEAR DIVIDE CHECK LIGHT                                   F5G29390    
       07341  0 76100 0 00000        NOP      IN CASE DIVIDE CHECK IS ON                              F5G29400    
       07342  0 50000 0 00314        CLA ZERO                                                         F5G29410    
       07343  0 60100 1 05061 I11    STO REG,1                                                        F5G29420    
       07344  2 00001 1 07343        TIX I11,1,1                                                      F5G29430    
       07345  0 76000 0 00140        PSE 96                TURN OFF SENSE LIGHTS.                     F5G29440    
       07346  0 50000 0 07777        CLA KEYS+3               INITIALIZE                              F5G29441    
       07347  0 60100 0 00042        STO STAGP+5 DRUM ADDR. OF STAG                                   F5G29450    
       07350  0 50000 0 07775        CLA KEYS+1                                                       F5G29460    
       07351  0 60100 0 00065        STO PREDP+5                                                      F5G29470    
       07352  0 50000 0 07776        CLA KEYS+2                                                       F5G29480    
       07353  0 60100 0 00077        STO BBBP+5 DRUM ADDR. OF BB.B.                                   F5G29490    
       07354  0 50000 0 07774        CLA KEYS                                                         F5G29500    
       07355  0 76700 0 00022        ALS 18                                                           F5G29510    
       07356  0 60100 0 00075        STO BBBP+3 N0. OF BASIC BLOCKS.                                  F5G29520    
       07357  0 40200 0 00316        SUB ONED                                                         F5G29530    
       07360  0 07400 4 00070        TSX SE,4                                                         F5G29540    
       07361  0 50000 1 06442        CLA BBB,1                                                        F5G29550    
       07362  0 62200 0 00051        STD SUCCP+3    LOCATION OF LAST SUCC                             F5G29560    
       07363  0 76700 0 00022        ALS 18                                                           F5G29570    
       07364  0 62200 0 00063        STD PREDP+3      LOCATION OF LAST PRED                           F5G29580    
       07365  0 50000 1 06443        CLA BBB+1,1                                                      F5G29590    
       07366 -0 32000 0 00326        ANA S3K4                                                         F5G29600    
       07367  0 60100 0 00453        STO S4V3                                                         F5G29610    
       07370  0 76500 0 00043        LRS 35                                                           F5G29620    
       07371  0 22100 0 00331        DVP S4K2 COMPUTE                                                 F5G29630    
       07372 -0 60000 0 07450        STQ IV1 THE                                                      F5G29640    
       07373  0 10000 0 07375        TZE I1 LOCATION                                                  F5G29650    
       07374  0 50000 0 00315        CLA ONEA WHICH A TAG                                             F5G29660    
       07375  0 40000 0 07450 I1     ADD IV1 WOULD HAVE                                               F5G29670    
       07376  0 76500 0 00043        LRS 35 IF IT                                                     F5G29680    
       07377  0 20000 0 00331        MPY S4K2 WERE FIRST IN                                           F5G29690    
       07400  0 76300 0 00043        LLS 35 THE NEXT RECORD.                                          F5G29700    
       07401  0 60100 0 00452        STO S4V2                                                         F5G29710    
       07402  0 60100 0 00451        STO S4V1                                                         F5G29720    
       07403  0 50000 1 06443        CLA BBB+1,1 DETERMINE NO.                                        F5G29730    
       07404 -0 32000 0 00326        ANA S3K4 OF ENTRIES IN                                           F5G29740    
       07405  0 76500 0 00043        LRS 35 STAG.                                                     F5G29750    
       07406  0 22100 0 00371        DVP XK9                                                          F5G29760    
       07407 -0 60000 0 07450        STQ IV1                                                          F5G29770    
       07410  0 10000 0 07412        TZE I10                                                          F5G29780    
       07411  0 50000 0 00315        CLA ONEA                                                         F5G29790    
       07412  0 40000 0 07450 I10    ADD IV1          INITIALIZE                                      F5G29800    
       07413  0 76700 0 00022        ALS 18                                                           F5G29810    
       07414  0 60100 0 00040        STO STAGP+3 OF ENTRIES IN STAG                                   F5G29820    
       07415  0 76500 0 00043        LRS 35 COMPUTE                                                   F5G29830    
       07416  0 22100 0 00037        DVP STAGP+2   THE                                                F5G29840    
       07417  0 10000 0 07421        TZE I3 DRUM                                                      F5G29850    
       07420  0 50000 0 00315        CLA ONEA ADDR.                                                   F5G29860    
       07421 -0 60000 0 07451 I3     STQ IV2 FOLLOWING                                                F5G29870    
       07422  0 40000 0 07451        ADD IV2 THE                                                      F5G29880    
       07423  0 76700 0 00022        ALS 18                                                           F5G29890    
       07424  0 40000 0 00040        ADD STAGP+3 STAG                                                 F5G29900    
       07425  0 77100 0 00022        ARS 18                                                           F5G29910    
       07426  0 40000 0 00042        ADD STAGP+5 TABLE.                                               F5G29920    
       07427  0 56000 0 07453        LDQ IK1                                                          F5G29930    
       07430  0 04000 0 07447        TLQ I7                                                           F5G29940    
       07431  0 50000 0 00036 I6     CLA STAGP+1                                                      F5G29950    
       07432  0 34000 0 00040        CAS STAGP+3    ARE WE THRU STORING 0 S                           F5G29960    
       07433  0 02000 0 07435        TRA I4                                                           F5G29970    
       07434  0 02000 0 07454        TRA I9                                                           F5G29980    
       07435  0 60100 0 00035 I4     STO STAGP SET N(0) TO OLD N(1)                                   F5G29990    
       07436  0 40000 0 00037        ADD STAGP+2 SET N(1) TO MIN (OLD N(1)+N.,                        F5G30000    
       07437  0 56000 0 00040        LDQ STAGP+3 N(L)                                                 F5G30010    
       07440 -0 60000 0 00036        STQ STAGP+1                                                      F5G30020    
       07441  0 04000 0 07443        TLQ I5                                                           F5G30030    
       07442  0 60100 0 00036        STO STAGP+1                                                      F5G30040    
       07443  0 50000 0 00277 I5     CLA SEK                                                          F5G30050    
       07444  0 53400 2 07452        LXA IK2,2                                                        F5G30060    
       07445  0 07400 4 00166        TSX SE26,4 STORE BLOCK OF 0S                                     F5G30070    
       07446  0 02000 0 07431        TRA I6                                                           F5G30080    
       07447  0 07400 4 00004 I7     TSX 4,4 TO DIAGNOSTIC                                            F5G30090    
       07450  0 00000 0 00000 IV1                                                                     F5G30100    
       07451  0 00000 0 00000 IV2                                                                     F5G30110    
       07452  0 00000 0 77744 IK2        1-STAGP                                                      F5G30120    
       07453  0 00000 0 17777 IK1    HTR 8191                                                         F5G30130    
       07454  0 07400 4 01133 I9     TSX S4,4                                                         F5G30140    
       07455  0 77200 0 00204        REW INSTTP            REWIND THE COMPILED INST TAPE              F5G30150    
       07456  0 50000 0 07775        CLA KEYS+1                                                       F5G30160    
       07457 -0 10000 0 04740        TNZ LPLST-1                                                      F5G30170    
       07460  0 60100 0 00550        STO LPIND                                                        F5G30180    
       07461  0 60100 0 04740        STO LPLST-1                                                      F5G30190    
       07462  0 60100 0 04741        STO LPLST                                                        F5G30200    
       07463  0 50000 0 00323        CLA S3K1                                                         F5G30210    
       07464  0 60100 0 04742        STO LPLST+1                                                      F5G30220    
       07465 -0 53400 4 00317        LXD S1K2,4  SKIP DIAGNOSTICS                                     F5G30230    
       07466  0 76200 0 00221 I9A    RTB 1  AND ANTIPINGPONG                                          F5G30240    
       07467  2 00001 4 07466        TIX I9A,4,1   SIX RECORDS                                        F5G30250    
       07470  0 02000 0 02706        TRA F75                                                          F5G30260    
                                                 EDITOR RECORD NO. 78                                 F5G30270    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30280    
                                              DIAGNOSTIC CALLER F0LL0WS                               F5G30300    
                                                   PART 1C                                            F5G30310    
                                               SUCC LIMIT FOR FAST COMPILING                          F5G30320    
                        04740        ORG LPLST-1                                                      F5G30330    
       04740 -0 53400 1 00103  QS    LXD SE21+2,1                                                     F5G30340    
       04741 -3 00000 1 02177        TXL F,1,0                                                        F5G30350    
       04742 -0 53400 4 00051        LXD SUCCP+3,4                                                    F5G30360    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G30370    
       04744 -3 00000 4 02177  QS0   TXL F,4,0                                                        F5G30380    
       04745  1 77777 4 04746        TXI QS1,4,-1                                                     F5G30390    
       04746 -0 63400 4 00104  QS1   SXD SE21+3,4                                                     F5G30400    
       04747  0 40200 0 00316        SUB ONED                                                         F5G30410    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G30420    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G30430    
       04752  1 00111 4 04753        TXI QS2,4,BBBL-1                                                 F5G30440    
       04753 -0 63400 4 04764  QS2   SXD QS4,4                                                        F5G30450    
       04754 -0 63400 4 04766        SXD QS5,4                                                        F5G30460    
       04755 -0 53400 4 06442        LXD BBB,4                                                        F5G30470    
       04756 -0 63400 4 04772        SXD QS8,4                                                        F5G30480    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G30490    
       04760 -0 75400 4 00000  QS3   PXD 0,4                                                          F5G30500    
       04761  0 07400 4 00044        TSX SE6,4                                                        F5G30510    
       04762  0 50200 1 07555        CLS SUCC,1                                                       F5G30520    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G30530    
       04764  3 00000 4 04767  QS4   TXH QS6,4,-                                                      F5G30540    
       04765  1 00112 4 04766        TXI QS5,4,BBBL                                                   F5G30550    
       04766  3 00000 4 04770  QS5   TXH QS7,4,-                                                      F5G30560    
       04767  0 60100 1 07555  QS6   STO SUCC,1                                                       F5G30570    
       04770 -0 53400 4 00306  QS7   LXD SEV2,4                                                       F5G30580    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G30590    
       04772 -3 00000 4 04744  QS8   TXL QS0,4,-                                                      F5G30600    
       04773  1 77777 4 04760        TXI QS3,4,-1                                                     F5G30610    
                                                 EDITOR RECORD NO. 80                                 F5G30620    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30630    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G30650    
                                                   PART 1D                                            F5G30660    
                                                 PRED UNDO FROM FAST COMPILING                        F5G30670    
                        04740        ORG LPLST-1                                                      F5G30680    
       04740 -0 53400 1 00103  QPU   LXD SE21+2,1                                                     F5G30690    
       04741 -3 00000 1 00030        TXL R,1,0                                                        F5G30700    
       04742 -0 53400 4 00063        LXD PREDP+3,4                                                    F5G30710    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G30720    
       04744 -3 00000 4 00030 QPU0   TXL R,4,0                                                        F5G30730    
       04745  1 77777 4 04746        TXI QPU1,4,-1                                                    F5G30740    
       04746 -0 63400 4 00104  QPU1  SXD SE21+3,4                                                     F5G30750    
       04747  0 40200 0 00316        SUB ONED                                                         F5G30760    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G30770    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G30780    
       04752  1 00111 4 04753        TXI QPU2,4,BBBL-1                                                F5G30790    
       04753 -0 63400 4 04764  QPU2  SXD QPU4,4                                                       F5G30800    
       04754 -0 63400 4 04766        SXD QPU5,4                                                       F5G30810    
       04755  0 53400 4 06442        LXA BBB,4                                                        F5G30820    
       04756 -0 63400 4 04772        SXD QPU8,4                                                       F5G30830    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G30840    
       04760 -0 75400 4 00000  QPU3  PXD 0,4                                                          F5G30850    
       04761  0 07400 4 00056        TSX SE5+1,4                                                      F5G30860    
       04762  0 50200 1 07337        CLS PRED,1                                                       F5G30870    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G30880    
       04764  3 00000 4 04767  QPU4  TXH QPU6,4,-                                                     F5G30890    
       04765  1 00112 4 04766        TXI QPU5,4,BBBL                                                  F5G30900    
       04766  3 00000 4 04770  QPU5  TXH QPU7,4,-                                                     F5G30910    
       04767  0 60100 1 07337  QPU6  STO PRED,1                                                       F5G30920    
       04770 -0 53400 4 00306  QPU7  LXD SEV2,4                                                       F5G30930    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G30940    
       04772 -3 00000 4 04744  QPU8  TXL QPU0,4,-                                                     F5G30950    
       04773  1 77777 4 04760        TXI QPU3,4,-1                                                    F5G30960    
                                                 EDITOR RECORD NO. 82                                 F5G30970    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30980    
                                              DIAGN0STIC CALLER FOLLOWS                               F5G31000    
                                                   PART 1E                                            F5G31010    
                                                   SUCC UNDO FROM FAST COMPILING                      F5G31020    
                        04740        ORG LPLST-1                                                      F5G31030    
       04740 -0 53400 1 00103  QSU   LXD SE21+2,1                                                     F5G31040    
       04741 -3 00000 1 02177        TXL F,1,0                                                        F5G31050    
       04742 -0 53400 4 00051        LXD SUCCP+3,4                                                    F5G31060    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G31070    
       04744 -3 00000 4 02177  QSU0  TXL F,4,0                                                        F5G31080    
       04745  1 77777 4 04746        TXI QSU1,4,-1                                                    F5G31090    
       04746 -0 63400 4 00104  QSU1  SXD SE21+3,4                                                     F5G31100    
       04747  0 40200 0 00316        SUB ONED                                                         F5G31110    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G31120    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G31130    
       04752  1 00111 4 04753        TXI QSU2,4,BBBL-1                                                F5G31140    
       04753 -0 63400 4 04764  QSU2  SXD QSU4,4                                                       F5G31150    
       04754 -0 63400 4 04766        SXD QSU5,4                                                       F5G31160    
       04755 -0 53400 4 06442        LXD BBB,4                                                        F5G31170    
       04756 -0 63400 4 04772        SXD QSU8,4                                                       F5G31180    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G31190    
       04760 -0 75400 4 00000  QSU3  PXD 0,4                                                          F5G31200    
       04761  0 07400 4 00044        TSX SE6,4                                                        F5G31210    
       04762  0 50200 1 07555        CLS SUCC,1                                                       F5G31220    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G31230    
       04764  3 00000 4 04767  QSU4  TXH QSU6,4,-                                                     F5G31240    
       04765  1 00112 4 04766        TXI QSU5,4,BBBL                                                  F5G31250    
       04766  3 00000 4 04770  QSU5  TXH QSU7,4,-                                                     F5G31260    
       04767  0 60100 1 07555  QSU6  STO SUCC,1                                                       F5G31270    
       04770 -0 53400 4 00306  QSU7  LXD SEV2,4                                                       F5G31280    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G31290    
       04772 -3 00000 4 04744  QSU8  TXL QSU0,4,-                                                     F5G31300    
       04773  1 77777 4 04760        TXI QSU3,4,-1                                                    F5G31310    
                                                 EDITOR RECORO NO. 84                                 F5G31320    
                                         FOR CONTROL CARD INFORMATION, SEE ENO OF ASSEMBLY.           F5G31330    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G31350    
                                                   PART 2                                             F5G31360    
                                         PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE            F5G31370    
                        00317        ORG C                                                            F5G31380    
       00317  0 00000 0 77777 BLV09  HTR -1              BB NO. OF LAST GO TO N                       F5G31390    
       00320  0 76200 0 00223 BL12   RTB BLT             FIND THE END OF FILE PRECEEDING BB LIST      F5G31400    
       00321  0 70000 0 00655 BL13   CPY BLIST                                                        F5G31410    
       00322  0 02000 0 00320        TRA BL12                                                         F5G31420    
       00323  0 02000 0 00325        TRA BL6                                                          F5G31430    
       00324  0 02000 0 00320        TRA BL12                                                         F5G31440    
       00325 -0 53400 2 00332 BL6    LXD CON1,2                                                       F5G31450    
       00326  0 76200 0 00223 BL5    RTB BLT                                                          F5G31460    
       00327  0 53400 1 00332        LXA CON1,1                                                       F5G31470    
       00330  0 70000 1 00655 BL1    CPY BLIST,1         COPY BB LIST INTO CS                         F5G31480    
       00331  1 77777 1 00330        TXI BL1,1,-1                                                     F5G31490    
       00332  0 00005 0 00000 CON1       0,0,5                                                        F5G31500    
       00333  0 76600 0 00333        IOD                                                              F5G31510    
       00334 -0 76000 0 00012        RTT                                                              F5G31520    
       00335  0 02000 0 00435        TRA BL4             ERROR                                        F5G31530    
       00336  0 50000 0 07774        CLA KEYS            O.K. COMPUTE TEST CONSTANT                   F5G31540    
       00337  0 40200 0 00552        SUB TWO                                                          F5G31550    
       00340  0 60100 0 00566        STO BLV3                                                         F5G31560    
       00341  0 50000 0 00314        CLA ZERO                                                         F5G31570    
       00342  0 07400 4 00032        TSX SE4,4           STAG WORD                                    F5G31580    
       00343  0 50000 1 05061        CLA STAG,1                                                       F5G31590    
       00344  0 60100 0 00602        STO BLV07                                                        F5G31600    
       00345  0 50000 0 00564        CLA BLV1                                                         F5G31610    
       00346  0 56000 0 00566 BL3    LDQ BLV3            HAVE WE ALREADY DEALT WITH LAST BB           F5G31620    
       00347  0 04000 0 00541        TLQ BL06            YES , GO TO READ IN NEXT PART                F5G31630    
       00350  0 40000 0 00315        ADD ONEA                                                         F5G31640    
       00351  0 07400 4 00067        TSX SE1,4           GET UNDEX OF NEXT BB                         F5G31650    
       00352  0 50000 1 06443        CLA BBB+1,1         STORE THE NO. OF THE                         F5G31660    
       00353 -0 32000 0 00554        ANA RMSK            FIRST TAG IN                                 F5G31670    
       00354  0 60100 0 00571        STO BLV6            NEXT BB.                                     F5G31680    
       00355  0 50000 1 06442        CLA BBB,1                                                        F5G31690    
       00356 -0 32000 0 00553        ANA 2AMSK                                                        F5G31700    
       00357  0 60100 0 00570        STO BLV5            STORE AWAY NO. OF U1ST PRED IN NEXT BB.      F5G31710    
       00360  0 50000 0 00564        CLA BLV1                                                         F5G31720    
       00361  0 07400 4 00067        TSX SE1,4                                                        F5G31730    
       00362 -0 53400 2 00565        LXD BLV2,2                                                       F5G31740    
       00363  0 50000 2 00655        CLA BLIST,2         REPLACE LAST WORD OF BBB ENTRY               F5G31750    
       00364  0 60100 1 06447        STO BBB+5,1         BY THE LOCATION FROM THE BB LIST.            F5G31760    
       00365  1 77777 2 00366 BL2    TXI BL2+1,2,-1                                                   F5G31770    
       00366 -0 63400 2 00565        SXD BLV2,2                                                       F5G31780    
       00367  0 50000 1 06443        CLA BBB+1,1         STORE PERMUTATION NOS.                       F5G31790    
       00370  0 60100 0 00572        STO BLV7                                                         F5G31800    
       00371 -0 63400 1 00567        SXD BLV4,1                                                       F5G31810    
       00372  0 50000 1 06443        CLA BBB+1,1         GET                                          F5G31820    
       00373 -0 32000 0 00554        ANA RMSK            OF 1ST TAG IN BB                             F5G31830    
       00374  0 40200 0 00571        SUB BLV6            FORM COUNT OF NO. OF TAGS                    F5G31840    
       00375  0 40200 0 00315        SUB ONEA                                                         F5G31850    
       00376  0 73400 2 00000        PAX 0,2             COUNT OF NO. OF TAGS INTO 2.                 F5G31860    
       00377 -0 63400 2 00600        SXD BLV05,2         STORE COUNT OF NO. OF TAGS                   F5G31870    
       00400  0 50000 1 06442        CLA BBB,1                                                        F5G31880    
       00401 -0 32000 0 00553        ANA 2AMSK                                                        F5G31890    
       00402  0 60100 0 00575 BL9    STO BLV01                                                        F5G31900    
       00403  0 34000 0 00570        CAS BLV5            IS THIS PRED IN SAME BB                      F5G31910    
       00404  0 02000 0 00406        TRA BL7             YES                                          F5G31920    
       00405  0 02000 0 00440        TRA BL01            NO                                           F5G31930    
       00406  0 07400 4 00055 BL7    TSX SE5,4           YES, GET INDEX OF PRED                       F5G31940    
       00407 -0 50000 0 00555        CAL SALM                                                         F5G31950    
       00410  0 60200 0 00574        SLW BLV9                                                         F5G31960    
       00411 -0 50000 1 07337        CAL PRED,1                                                       F5G31970    
       00412  0 60200 0 00573        SLW BLV8            STODRE OLD PRED WORD                         F5G31980    
       00413  0 32000 0 00574        ANS BLV9            INT  INITIALIZE NEW PRED WORD                F5G31990    
       00414 -0 53400 2 00550        LXD 2LD3,2         SET COUNT TO 3                                F5G32000    
       00415 -0 50000 0 00572 BL8    CAL BLV7            PLACE THE                                    F5G32010    
       00416  0 77100 2 00003        ARS 3,2             PERMUTATION NO.                              F5G32020    
       00417  0 77100 2 00003        ARS 3,2             IN REGISTER 4                                F5G32030    
       00420 -0 32000 0 00550        ANA 2LD3                                                         F5G32040    
       00421 -0 73400 4 00000        PDX 0,4                                                          F5G32050    
       00422 -0 50000 0 00573        CAL BLV8            PERMUTE                                      F5G32060    
       00423  0 76700 2 00003        ALS 3,2             THE LXD                                      F5G32070    
       00424 -0 32000 0 00557        ANA BITMK           AND SXD                                      F5G32080    
       00425  0 77100 4 00003        ARS 3,4             BITS IN THE                                  F5G32090    
       00426 -0 60200 0 00574        ORS BLV9            PRED ENTRY                                   F5G32100    
       00427  2 00001 2 00415        TIX BL8,2,1         COUNT TO 3                                   F5G32110    
       00430  0 50000 0 00574        CLA BLV9                                                         F5G32120    
       00431  0 60100 1 07337        STO PRED,1          STORE PRED ENTRY WITH PERMUTED BITS          F5G32130    
       00432  0 50000 0 00575        CLA BLV01           ARRANGE TO CONSIDER                          F5G32140    
       00433  0 40000 0 00315        ADD ONEA            NEXT PRED ENTRY                              F5G32150    
       00434  0 02000 0 00402        TRA BL9                                                          F5G32160    
       00435  0 76400 0 00203 BL4    BST BLT             TAPE CHECK     BACKSPACE TAPE                F5G32170    
       00436  2 00001 2 00326        TIX BL5,2,1         IRY 5 TIMES                                  F5G32180    
       00437  0 07400 4 00004        TSX 4,4 THEN START DIAGNOSTIC.                                   F5G32190    
       00440 -0 53400 1 00600 BL01   LXD BLV05,1                                                      F5G32200    
       00441 -2 00001 1 00504 BL03   TNX BL04,1,1        IS THERE ANOTHER TAG IN BB                   F5G32210    
       00442 -0 53400 2 00577        LXD BLV04,2         YES                                          F5G32220    
       00443  2 00001 2 00466        TIX BL02,2,1        HAVE WE EXHAUSTED STAG WORO                  F5G32230    
       00444 -0 63400 1 00600        SXD BLV05,1         YES, STORE COUNT OF NO. OF TAGS              F5G32240    
       00445 -0 53400 2 00603        LXD BLV08,2         STORE                                        F5G32250    
       00446  0 50000 0 00602        CLA BLV07           OLD PERMUTED                                 F5G32260    
       00447  0 60100 2 05061        STO STAG,2          STAG WORD                                    F5G32270    
       00450  0 50000 0 00314        CLA ZERO                                                         F5G32280    
       00451  0 60100 0 00602        STO BLV07                                                        F5G32290    
       00452  0 50000 0 00576        CLA BLV03           GET                                          F5G32300    
       00453  0 07400 4 00032        TSX SE4,4           NEXT                                         F5G32310    
       00454 -0 63400 1 00603        SXD BLV08,1         STAG                                         F5G32320    
       00455 -0 50000 1 05061        CAL STAG,1          WORD                                         F5G32330    
       00456  0 60200 0 00601        SLW BLV06           STORL STAG WORD                              F5G32340    
       00457 -0 32000 0 00560        ANA LMSK            AND                                          F5G32350    
       00460  0 60200 0 00602        SLW BLV07           INITIALIZE NEW STAG WORD                     F5G32360    
       00461  0 50000 0 00576        CLA BLV03           INCREASE THE                                 F5G32370    
       00462  0 40000 0 00315        ADD ONEA            STAG WORD NO.                                F5G32380    
       00463  0 60100 0 00576        STO BLV03                                                        F5G32390    
       00464 -0 53400 2 00551        LXD 2LD9,2         RESET COUNT TO 9                              F5G32400    
       00465 -0 53400 1 00600        LXD BLV05,1         RESTORE 1                                    F5G32410    
       00466 -0 63400 2 00577 BL02   SXD BLV04,2         STORE COUNTER                                F5G32420    
       00467 -0 50000 0 00601        CAL BLV06                                                        F5G32430    
       00470  0 76700 0 00002        ALS 2                                                            F5G32440    
       00471  0 60200 0 00601        SLW BLV06                                                        F5G32450    
       00472 -0 32000 0 00550        ANA 2LD3           EXTRACT TAG                                   F5G32460    
       00473 -0 73400 4 00000        PDX 0,4                                                          F5G32470    
       00474 -0 50000 0 00572        CAL BLV7            PERMUTE                                      F5G32480    
       00475  0 77100 4 00003        ARS 3,4                                                          F5G32490    
       00476  0 77100 4 00003        ARS 3,4             THE                                          F5G32500    
       00477 -0 32000 0 00550        ANA 2LD3           TAG                                           F5G32510    
       00500  0 77100 2 00012        ARS 10,2                                                         F5G32520    
       00501  0 77100 2 00012        ARS 10,2                                                         F5G32530    
       00502 -0 60200 0 00602        ORS BLV07           FORM NEW TAG WORD                            F5G32540    
       00503  0 02000 0 00441        TRA BL03                                                         F5G32550    
       00504 -0 53400 1 00567 BL04   LXD BLV4,1          GET INDEX OF BB                              F5G32560    
       00505  0 50000 1 06442        CLA BBB,1           IS                                           F5G32570    
       00506  0 77100 0 00041        ARS 33              THIS                                         F5G32580    
       00507  0 40000 0 00315        ADD ONEA            A GO N                                       F5G32590    
       00510 -0 10000 0 00516        TNZ BL07            NO                                           F5G32600    
       00511  0 50000 0 00317        CLA BLV09           YES, STORE BB NO.                            F5G32610    
       00512  0 76700 0 00022        ALS 18              OF LAST                                      F5G32620    
       00513  0 62200 1 06443        STD BBB+1,1         GO N ENCOUNTERED                             F5G32630    
       00514  0 50000 0 00564        CLA BLV1            STORE PRESENT                                F5G32640    
       00515  0 60100 0 00317        STO BLV09           BB NO.                                       F5G32650    
       00516 -0 53400 2 00550  BL07  LXD 2LD3,2         SET COUNT TO 3                                F5G32660    
       00517 -0 50000 0 00572 BL09   CAL BLV7                                                         F5G32670    
       00520  0 77100 2 00003        ARS 3,2                                                          F5G32680    
       00521  0 77100 2 00003        ARS 3,2             GET PERMUTATION NO.                          F5G32690    
       00522 -0 32000 0 00550        ANA 2LD3                                                         F5G32700    
       00523 -0 73400 4 00000        PDX 0,4                                                          F5G32710    
       00524  0 50000 1 06444        CLA BBB+2,1         PERMUTE                                      F5G32720    
       00525  0 60100 4 00564        STO EXCO,4          ENTRANCE-EXIT REQUIREMENTS                   F5G32730    
       00526  1 77777 1 00527 BL08   TXI BL08+1,1,-1                                                  F5G32740    
       00527  2 00001 2 00517        TIX BL09,2,1        COUNT TO 3                                   F5G32750    
       00530 -0 53400 2 00550        LXD 2LD3,2         PLACE PERMUTED                                F5G32760    
       00531  0 50000 2 00564 BL10   CLA EXCO,2          ENTRANCE-EXIT COND.                          F5G32770    
       00532  0 60100 1 06441        STO BBB-1,1         BACK IN BB                                   F5G32780    
       00533  1 77777 1 00534 BL11   TXI BL11+1,1,-1                                                  F5G32790    
       00534  2 00001 2 00531        TIX BL10,2,1        COUNT TO 3                                   F5G32800    
       00535  0 50000 0 00564 BL05   CLA BLV1            PREPARE TO DEAL WITH                         F5G32810    
       00536  0 40000 0 00315        ADD ONEA            WITH NEXT BB                                 F5G32820    
       00537  0 60100 0 00564        STO BLV1                                                         F5G32830    
       00540  0 02000 0 00346        TRA BL3                                                          F5G32840    
       00541  0 07400 4 00067 BL06   TSX SE1,4  PUT EDN MARK INTO THE DUMMEY BB                       F5G32850    
       00542  0 50000 0 00556        CLA EN2MK                                                        F5G32860    
       00543  0 60100 1 06447        STO BBB+5,1                                                      F5G32870    
       00544  0 50000 0 00602        CLA BLV07           STORE                                        F5G32880    
       00545 -0 53400 2 00603        LXD BLV08,2         OLD                                          F5G32890    
       00546  0 60100 2 05061        STO STAG,2          STAG WORD                                    F5G32900    
       00547  0 02000 0 00030        TRA R               READ NEXT PART                               F5G32910    
       00550  0 00003 0 00000  2LD3      0,0,3                                                        F5G32920    
       00551  0 00011 0 00000  2LD9      0,0,9                                                        F5G32930    
       00552  0 00000 0 00002 TWO        2                                                            F5G32940    
       00553  0 00000 0 77777  2AMSK     -1             ADDRESS MASK                                  F5G32950    
       00554  0 00000 7 77777 RMSK       -1,-1           RIGHT HALF MASK                              F5G32960    
       00555 -377770077777    SALM   OCT -377770077777   MS    MASK OUT SXD AND LXD PRED REULTS       F5G32970    
       00556  3 77777 7 77777  EN2MK PTH -1,-1,-1        PUT IN LOCATION OF DUMMEY BB                 F5G32980    
       00557  0 00004 4 00000 BITMK      0,4,4           MASK TO EXTRACT ONE SXD AND LXD BIT          F5G32990    
       00560 -377777000000    LMSK   OCT -377777000000                                                F5G33000    
                        00564 EXCO   BES 3               THE ENTRANCE-EXIT CONDITIONS  PERMUTED       F5G33010    
       00564  0 00000 0 00000 BLV1                       BBNO.                                        F5G33020    
       00565  0 00000 0 00000 BLV2                       INDEX IN BB LIST                             F5G33030    
       00566  0 00000 0 00000 BLV3                       TEST CONSTANT                                F5G33040    
       00567  0 00000 0 00000 BLV4                       INDEX OF BB                                  F5G33050    
       00570  0 00000 0 00000 BLV5                       1ST PRED NO. IN NEXT BB                      F5G33060    
       00571  0 00000 0 00000 BLV6                       UST TAG IN NEXT BB,                          F5G33070    
       00572  0 00000 0 00000 BLV7                       PERMUTTTION NOS.                             F5G33080    
       00573  0 00000 0 00000 BLV8                       OLD PRED ENTRY                               F5G33090    
       00574  0 00000 0 00000 BLV9                       NEW, PERMUTED, PRED ENTRY                    F5G33100    
       00575  0 00000 0 00000 BLV01                      CURRENT PRED. NO.                            F5G33110    
       00576  0 00000 0 00000 BLV03                      NO. OF STAG WORD, INITIALLY ZERO             F5G33120    
       00577  0 00000 0 00000 BLV04                      COUNTER TO 9, INITIALLY ZERO                 F5G33130    
       00600  0 00000 0 00000 BLV05                      COUNT OF NO. OF TAGS IN BB                   F5G33140    
       00601  0 00000 0 00000 BLV06                      STAG WORD                                    F5G33150    
       00602  0 00000 0 00000 BLV07                      NEW, PERMUTED , STAG WORD                    F5G33160    
       00603  0 00000 0 00000 BLV08                      INDEX OF OLD STAG WORD                       F5G33170    
                        00604        BSS PTL2      SPACE FOR PATCHES                                  F5G33180    
       00655  0 00000 0 00000 BLIST                                                                   F5G33190    
                                                 EDITOR RECORD NO. 86                                 F5G33200    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G33210    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G33230    
                                                   PART 3                                             F5G33240    
                                         CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO       F5G33250    
                                         N RESTRICTION.  MODIFY ASSIGN CONSTANT TABLE.                F5G33260    
                                           C CONTAINS THE BB NO. OF THE GO TO N                       F5G33270    
                        00320        ORG C+1                                                          F5G33280    
       00320  0 76200 0 00222 START  RTB ACTPE           LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290    
       00321  0 70000 0 00573        CPY ACV12                                                        F5G33300    
       00322  0 02000 0 00320        TRA START                                                        F5G33310    
       00323  0 02000 0 00330        TRA RDIN                                                         F5G33320    
       00324  0 02000 0 00320        TRA START                                                        F5G33330    
       00325  0 76400 0 00202 ERR    BST ACTPE           BACKSPACE TAPE TO TRY AGAIN                  F5G33340    
       00326  2 00001 2 00331        TIX AAC2,2,1        COUNT TO 5                                   F5G33350    
       00327  0 07400 4 00004        TSX 4,4     TO DIAGNOSTIC                                        F5G33360    
       00330 -0 53400 2 00555  RDIN  LXD 3LD3,2                                                       F5G33370    
       00331  0 76200 0 00222 AAC2   RTB ACTPE                                                        F5G33380    
       00332  0 70000 0 00573        CPY ACV12           COPY THE EXTRA WORD                          F5G33390    
       00333  0 53400 1 00314        LXA ZERO,1                                                       F5G33400    
       00334  0 70000 1 00647 AAC1   CPY ASCON,1                                                      F5G33410    
       00335  1 77777 1 00334        TXI AAC1,1,-1                                                    F5G33420    
       00336  0 07400 4 00004        TSX 4,4                                                          F5G33430    
       00337  0 76600 0 00333        IOD                 CHECK      REDUNDANCY BITS                   F5G33440    
       00340 -0 76000 0 00012        RTT                                                              F5G33450    
       00341  0 02000 0 00325        TRA ERR             THERR IS AN ERROR                            F5G33460    
       00342  0 76200 0 00222        RTB ACTPE                                                        F5G33470    
       00343  0 76200 0 00222        RTB ACTPE                                                        F5G33480    
       00344  0 76200 0 00222        RTB ACTPE                                                        F5G33490    
       00345  0 76600 0 00333        IOD                                                              F5G33500    
       00346 -0 63400 1 00527        SXD ACV1,1          O.K. STORE RECORD  OF NO. OF ENTRIES         F5G33510    
       00347 -0 63400 1 00541        SXD AC22,1                                                       F5G33520    
       00350  0 50000 0 00317        CLA C                                                            F5G33530    
       00351  0 56000 0 00560 AC15   LDQ ACK1            GET BB NO. OF 1ST GO TO N                    F5G33540    
       00352  0 04000 0 00520        TLQ AC16            WAS THIS THE LAST GO TO N                    F5G33550    
       00353  0 40000 0 00315        ADD ONEA            NO                                           F5G33560    
       00354  0 07400 4 00067        TSX SE1,4                                                        F5G33570    
       00355 -0 50000 1 06442        CAL BBB,1           FIND NO. OF 1ST SUCC IN NEXT BB              F5G33580    
       00356  0 77100 0 00022        ARS 18                                                           F5G33590    
       00357  0 62100 0 00562        STA ACV3                                                         F5G33600    
       00360  0 50000 0 00317        CLA C                                                            F5G33610    
       00361  0 07400 4 00067        TSX SE1,4                                                        F5G33620    
       00362  0 50000 0 00314        CLA ZERO            CLEAR THE COMBINED SXDD CASE                 F5G33630    
       00363  0 60100 0 00563        STO ACV4                                                         F5G33640    
       00364 -0 50000 1 06442        CAL BBB,1           FIND THE NO. OF 1ST SUCC IN THIS BB          F5G33650    
       00365  0 77100 0 00022        ARS 18                                                           F5G33660    
       00366 -0 32000 0 00552        ANA AMSK                                                         F5G33670    
       00367  0 60100 0 00561 AC13   STO ACV2                                                         F5G33680    
       00370  0 34000 0 00562        CAS ACV3            IS THIS SUCC IN SAME BB                      F5G33690    
       00371  0 02000 0 00373        TRA AAC3            YES                                          F5G33700    
       00372  0 02000 0 00506        TRA AC14            NO                                           F5G33710    
       00373  0 76700 0 00022 AAC3   ALS 18                                                           F5G33720    
       00374  0 07400 4 00044        TSX SE6,4           YES GET BB NO. OF SUCESSOR                   F5G33730    
       00375 -0 50000 1 07555        CAL SUCC,1                                                       F5G33740    
       00376  0 62100 0 00567        STA ACV8                                                         F5G33750    
       00377  0 40000 0 00315        ADD ONEA            FIN NO. OF 1ST PRED ENTRY NEXT BBB           F5G33760    
       00400  0 07400 4 00067        TSX SE1,4                                                        F5G33770    
       00401  0 50000 1 06442        CLA BBB,1                                                        F5G33780    
       00402  0 62100 0 00565        STA ACV6                                                         F5G33790    
       00403  0 50000 0 00314        CLA ZERO                                                         F5G33800    
       00404  0 60100 0 00571        STO ACV10           PRESET COMBINED LXD CASE TO 0                F5G33810    
       00405  0 50000 0 00567        CLA ACV8            FIND NO. OF 1ST PRED  IN THIS BB             F5G33820    
       00406  0 07400 4 00067        TSX SE1,4                                                        F5G33830    
       00407 -0 50000 1 06442        CAL BBB,1                                                        F5G33840    
       00410 -0 32000 0 00552        ANA AMSK                                                         F5G33850    
       00411  0 62100 0 00570        STA ACV9            RECORD 1ST PRED FOR FUTURE USE               F5G33860    
       00412  0 62100 0 00566 AC7    STA ACV7                                                         F5G33870    
       00413  0 34000 0 00565        CAS ACV6            IS THIS PRED IN SAME BB                      F5G33880    
       00414  0 02000 0 00416        TRA AC4                                                          F5G33890    
       00415  0 02000 0 00444        TRA AC8             NO                                           F5G33900    
       00416  0 07400 4 00055 AC4    TSX SE5,4           IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910    
       00417 -0 50000 1 07337        CAL PRED,1          ED GO TO NP                                  F5G33920    
       00420 -0 32000 0 00552        ANA AMSK                                                         F5G33930    
       00421  0 40200 0 00317        SUB C                                                            F5G33940    
       00422 -0 10000 0 00427        TNZ AC5             IF NOT SKIP THE ORING OF SXD CASE            F5G33950    
       00423 -0 50000 1 07337        CAL PRED,1          OR THE SXD CASE INTO COMBINED SXD CASE       F5G33960    
       00424 -0 60200 0 00563        ORS ACV4                                                         F5G33970    
       00425 -0 50000 0 00554        CAL NTMSK                                                        F5G33980    
       00426  0 32000 1 07337        ANS PRED,1                                                       F5G33990    
       00427 -0 50000 1 07337 AC5    CAL PRED,1          IS THE BB WHICH IS PREDECESSOR               F5G34000    
       00430 -0 63400 1 00572        SXD ACV11,1         A GO TO N                                    F5G34010    
       00431  0 07400 4 00067        TSX SE1,4                                                        F5G34020    
       00432  0 50000 1 06442        CLA BBB,1                                                        F5G34030    
       00433  0 77100 0 00041        ARS 33                                                           F5G34040    
       00434  0 40000 0 00315        ADD ONEA                                                         F5G34050    
       00435 -0 10000 0 00441        TNZ AC6                                                          F5G34060    
       00436 -0 53400 2 00572        LXD ACV11,2         YES, OR THE LXD XCASE INTO THE               F5G34070    
       00437 -0 50000 2 07337        CAL PRED,2          COMBINED LXD CASE                            F5G34080    
       00440 -0 60200 0 00571        ORS ACV10                                                        F5G34090    
       00441  0 50000 0 00566 AC6    CLA ACV7                                                         F5G34100    
       00442  0 40000 0 00315        ADD ONEA                                                         F5G34110    
       00443  0 02000 0 00412        TRA AC7                                                          F5G34120    
       00444 -0 50000 0 00571 AC8    CAL ACV10           IS THE COMBINED LXD CASE ZERO                F5G34130    
       00445 -0 32000 0 00553        ANA TMSK                                                         F5G34140    
       00446  0 10000 0 00503        TZE AC12                                                         F5G34150    
       00447  0 50000 0 00567        CLA ACV8            NO, HAS THIS BB ALREADY BEEN                 F5G34160    
       00450  0 07400 4 00067        TSX SE1,4           CONSIDERED                                   F5G34170    
       00451  0 56000 1 06442        LDQ BBB,1           AS A SUCCESSOR TO                            F5G34180    
       00452 -0 77300 0 00024        RQL 20              A GO TO N                                    F5G34190    
       00453  0 16200 0 00455        TQP AC18                                                         F5G34200    
       00454  0 02000 0 00503        TRA AC12                                                         F5G34210    
       00455  0 50000 0 00557 AC18   CLA LT1                                                          F5G34220    
       00456 -0 60200 1 06442        ORS BBB,1           RECORD THAT THIS BB HAS BEEN CONSIDERED AS   F5G34230    
       00457  0 50000 0 00570        CLA ACV9            ECT..PE  PREPARE TO SCAN ALL PRED ENTRYS     F5G34240    
       00460  0 62100 0 00566 AC11   STA ACV7                                                         F5G34250    
       00461  0 34000 0 00565        CAS ACV6            IS THIS PRED IN SAME BB                      F5G34260    
       00462  0 02000 0 00464        TRA AC9                                                          F5G34270    
       00463  0 02000 0 00531        TRA AC19            NO                                           F5G34280    
       00464  0 07400 4 00055 AC9    TSX SE5,4           DETERMINE IF THE BB WHICH                    F5G34290    
       00465 -0 63400 1 00572        SXD ACV11,1         IS THE PREDECESSOR OF THIS ONE               F5G34300    
       00466  0 50000 1 07337        CLA PRED,1          IS A GO TO N                                 F5G34310    
       00467  0 07400 4 00067        TSX SE1,4                                                        F5G34320    
       00470  0 50000 1 06442        CLA BBB,1                                                        F5G34330    
       00471  0 77100 0 00041        ARS 33                                                           F5G34340    
       00472  0 40000 0 00315        ADD ONEA                                                         F5G34350    
       00473 -0 10000 0 00500        TNZ AC10                                                         F5G34360    
       00474 -0 53400 2 00572        LXD ACV11,2         IT IS A GO TO N                              F5G34370    
       00475  0 50000 0 00571        CLA ACV10           REPLACE LXD CASE BY THE                      F5G34380    
       00476 -0 32000 0 00553        ANA TMSK            COMBINED LXD CASE                            F5G34390    
       00477 -0 60200 2 07337        ORS PRED,2                                                       F5G34400    
       00500  0 50000 0 00566 AC10   CLA ACV7            ARRANGE TO TREAT NEXT PRED ENTRY             F5G34410    
       00501  0 40000 0 00315        ADD ONEA                                                         F5G34420    
       00502  0 02000 0 00460        TRA AC11                                                         F5G34430    
       00503  0 50000 0 00561 AC12   CLA ACV2                                                         F5G34440    
       00504  0 40000 0 00315        ADD ONEA            ARRANGE TO TREAT NEXT SUCC ENTRY             F5G34450    
       00505  0 02000 0 00367        TRA AC13                                                         F5G34460    
       00506  0 50000 0 00317 AC14   CLA C               STORE COMBINED                               F5G34470    
       00507  0 07400 4 00067        TSX SE1,4           SXDCASE IN PREFIX                            F5G34480    
       00510  0 50000 0 00563        CLA ACV4            OF 2ED WORD OF BBB ENTRY                     F5G34490    
       00511  0 76700 0 00017        ALS 15                                                           F5G34500    
       00512  0 63000 1 06443        STP BBB+1,1                                                      F5G34510    
       00513  0 50000 1 06443        CLA BBB+1,1         GET NEXT GO TO N NUMBER                      F5G34520    
       00514  0 77100 0 00022        ARS 18                                                           F5G34530    
       00515 -0 32000 0 00552        ANA AMSK                                                         F5G34540    
       00516  0 60100 0 00317        STO C                                                            F5G34550    
       00517  0 02000 0 00351        TRA AC15                                                         F5G34560    
       00520  0 76600 0 00222 AC16   WTB ACTPE           WRITE ASSIGN CONSTANTS BACK ON TAPE          F5G34570    
       00521  0 53400 1 00314        LXA ZERO,1                                                       F5G34580    
       00522 -0 53400 2 00527        LXD ACV1,2                                                       F5G34590    
       00523  0 70000 0 00573        CPY ACV12                                                        F5G34600    
       00524 -3 00000 2 00030        TXL R,2,0           IF NO ASSIGN CONST., GO TO NEXT PART         F5G34610    
       00525  0 70000 1 00647 AC17   CPY ASCON,1                                                      F5G34620    
       00526  1 77777 1 00527        TXI ACV1,1,-1                                                    F5G34630    
       00527 -3 00000 1 00030 ACV1   TXL R,1,SET                                                      F5G34640    
       00530  0 02000 0 00525        TRA AC17                                                         F5G34650    
       00531  0 50000 0 00567 AC19   CLA ACV8                                                         F5G34660    
       00532  0 07400 4 00067        TSX SE1,4                                                        F5G34670    
       00533  0 53400 2 00314        LXA ZERO,2                                                       F5G34680    
       00534  0 50000 1 06447 AC25   CLA BBB+5,1                                                      F5G34690    
       00535  0 34000 2 00647 AC23   CAS ASCON,2         IS THIS ASSIGN CONST. EQUAL TO THE           F5G34700    
       00536  0 02000 0 00540        TRA AC20            LOCATION OF 1ST INST IN BB                   F5G34710    
       00537  0 02000 0 00543        TRA AC24            YES                                          F5G34720    
       00540 -3 00000 2 00542 AC20   TXL AC21,2,0                                                     F5G34730    
       00541 -3 00000 2 00503 AC22   TXL AC12,2,SET                                                   F5G34740    
       00542  1 77777 2 00535 AC21   TXI AC23,2,-1                                                    F5G34750    
       00543 -0 50000 0 00571 AC24   CAL ACV10           REPLACE ASSIGN CONST. BY NEW                 F5G34760    
       00544 -0 32000 0 00553        ANA TMSK            LOCATION SYMBOL                              F5G34770    
       00545  0 77100 0 00005        ARS 5                                                            F5G34780    
       00546  0 40000 0 00567        ADD ACV8                                                         F5G34790    
       00547  0 36100 0 00556        ACL LXDC                                                         F5G34800    
       00550  0 60200 2 00647        SLW ASCON,2                                                      F5G34810    
       00551  0 02000 0 00534        TRA AC25                                                         F5G34820    
       00552  0 00000 0 77777 AMSK   HTR -1                                                           F5G34830    
       00553  0 00000 7 00000 TMSK   HTR 0,-1                                                         F5G34840    
       00554 -377770777777    NTMSK  OCT 777770777777                                                 F5G34850    
       00555  0 00005 0 00000  3LD3      0,0,5                                                        F5G34860    
       00556 +150000000000    LXDC   OCT 150000000000      THE NUMBER IDENTIFYING THE LOC. OF AN LXD  F5G34870    
       00557  0 00000 1 00000 LT1    HTR 0,1                                                          F5G34880    
       00560 +000000077776    ACK1   OCT 77776                                                        F5G34890    
       00561  0 00000 0 00000 ACV2                       NO. OF CURRENT SUCC. OF THIS BB  IN ADDR.    F5G34900    
       00562  0 00000 0 00000 ACV3                       NO. OF 1ST SUCC IN NEXT BB   IN ADDR         F5G34910    
       00563  0 00000 0 00000 ACV4                       COMBINED SXD CASE  LAST OCTAL DIGIT IN DECR  F5G34920    
       00564  0 00000 0 00000 ACV5                       NO. OF CURRENT PRED   IN ADDR                F5G34930    
       00565  0 00000 0 00000 ACV6                       NO. OF 1ST PRED IN NEXT BB  IN ADDR          F5G34940    
       00566  0 00000 0 00000 ACV7                       MO. OF CURRENT PRED IN THIS BB   IN ADDR     F5G34950    
       00567  0 00000 0 00000 ACV8                       BB NO. OF SUCCESSOR   IN ADDR                F5G34960    
       00570  0 00000 0 00000 ACV9                       NO. OF 1ST PRED IN THE SUCCESSOR BB   IN ADDRF5G34970    
       00571  0 00000 0 00000 ACV10                      THE COMBINED LXD CASE                        F5G34980    
       00572  0 00000 0 00000 ACV11                      TEMP. STORE FOR PRED TABLE INDEX   AT AC5    F5G34990    
       00573  0 00000 0 00000 ACV12                      EXTRA WORD FROM ASSIGN CONSTANT RECORD       F5G35000    
       00574  0 00000 0 00000 ACV13                      TEMP. STORE FOR LOCATION OF 1ST INST. IN BB  F5G35010    
                        00647 ASCON  BES PTL3       SPACE FOR PATCHES                                 F5G35020    
                                                 EDITOR RECORD NO. 88                                 F5G35030    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G35040    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G35060    
                                                   PART 4                                             F5G35070    
                                         COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS                   F5G35080    
                                          CONSTANTS                                                   F5G35090    
                        00317        ORG C                                                            F5G35100    
       00317  0 00000 0 00003 L3         3                                                            F5G35110    
       00320  0 00000 0 00004 L4         4                                                            F5G35120    
       00321  0 00000 0 00007 L7         7                                                            F5G35130    
       00322  0 00000 0 00023 L19        19                                                           F5G35140    
                        00316 LD1    SYN ONED                                                         F5G35150    
       00323  0 00002 0 00000 LD2        0,0,2                                                        F5G35160    
       00324  0 00003 0 00000 LD3        0,0,3                                                        F5G35170    
       00325  0 00004 0 00000 LD4        0,0,4                                                        F5G35180    
       00326  0 00007 0 00000 LD7        0,0,7                                                        F5G35190    
       00327  0 00010 0 00000 LD8        0,0,8                                                        F5G35200    
       00330  0 00011 0 00000 LD9        0,0,9                                                        F5G35210    
       00331  0 00014 0 00000 LD12       0,0,12                                                       F5G35220    
       00332  0 00000 7 00000 LT7        0,7                                                          F5G35230    
       00333  0 00000 0 77754 LM20       -20                                                          F5G35240    
       00334  0 00000 0 77774 LM4        -4                                                           F5G35250    
       00335  0 77777 0 00000 DECMK      0,0,-1          DECREMENT MASK                               F5G35260    
       00336  3 77777 7 77777 ENDMK  PTH -1,-1,-1                                                     F5G35270    
       00337  0 00000 0 77777 ADDMK      -1                                                           F5G35280    
       00340 +000000777770    STMSK  OCT 777770                                                       F5G35290    
       00341  0 00007 7 00000 PRMK       0,7,7           MASK FOR PRED RESULTS                        F5G35300    
       00342  0 00000 7 77777 TAGMK      -1,-1           MASK FOR TAU- TAGS                           F5G35310    
       00343 -3 77777 0 00000 LFTMSK MTH 0,0,-1                                                       F5G35320    
                        00343 SMK3   SYN LFTMSK                                                       F5G35330    
       00344  634743000000    LTPL   BCD 1TPL000                                                      F5G35340    
       00345  436747000000    LLXP   BCD 1LXP000                                                      F5G35350    
       00346  627045000000    LSYN   BCD 1SYN000                                                      F5G35360    
       00347  242524000000    LDED   BCD 1DED000                                                      F5G35370    
       00350  635121000000    LTRA   BCD 1TRA000                                                      F5G35380    
       00351  636267000000    LTSX   BCD 1TSX000                                                      F5G35390    
       00352  226262000000     LBSS  BCD 1BSS000           BSS IN BCD.                                F5G35391    
       00353 +076225000000    LPSE   OCT 76225000000                                                  F5G35400    
       00354 +060000000000    GSYM   OCT 60000000000     GARBAGE SYMBLE                               F5G35410    
       00355  0 00004 0 00004 T4SYM  PZE 4,0,4             TAG 4 AND RELATIVE PART 4                  F5G35420    
       00356  0 00000 0 00004            4               4 NUMBERS TO CONVERT S-TAG                   F5G35430    
       00357  0 00000 0 00002            2                                                            F5G35440    
       00360  0 00000 0 00001            1                                                            F5G35450    
       00361  0 00000 0 00000 VSTAG  PZE 0                                                            F5G35460    
       00362  0 00000 0 00001 RECSC  HTR RECNO           ADDR, NO. OF RECS. BROUGHT IN , C.I.T.       F5G35470    
       00363  0 02000 0 00000  LCOUT TRA -               TRANSFER TO EXIT ROUTINE                     F5G35480    
       00364 +035121000000           OCT 35121000000     TRA OP CODE                                  F5G35490    
       00365 +041104000000           OCT 41104000000     PSE-TRA                                      F5G35500    
       00366 -033642000000           OCT -33642000000    DCT-PSE                                      F5G35510    
       00367 -024000000000           OCT -24000000000    RTT-DCT                                      F5G35520    
       00370 +027642000000           OCT 27642000000     MSE-RTT                                      F5G35530    
       00371 -007100000000           OCT -7100000000     TZE-MSE                                      F5G35540    
       00372 -032154000000           OCT -32154000000    HPR-TZE                                      F5G35550    
       00373 +031316000000    LNTOP  OCT 31316000000     TSX-HPR                                      F5G35560    
       00374 +035121000000           OCT 35121000000                                                  F5G35570    
       00375 +001622000000           OCT 1622000000      TXL-TRA                                      F5G35580    
       00376 -031772000000           OCT -31772000000    HPR-TXL                                      F5G35590    
       00377 +031400000000    LTROP  OCT 31400000000     TTR-HPR                                      F5G35600    
       00400 -370000000000    FSTLT  OCT -370000000000                                                F5G35610    
       00401 -230000000000    FSTT   OCT -230000000000                                                F5G35620    
       00402 +170000000000    PCC    OCT 170000000000    MEANS LOCATION OF THIS INST.                 F5G35630    
       00403 -300000000000    PFXMK  OCT -300000000000                                                F5G35640    
       00404 +000770000000    XXPSX  OCT 770000000       CONSTANTS TO TEST PSE ADDR.                  F5G35650    
       00405 +000160000000    XX16X  OCT 160000000                                                    F5G35660    
       00406 +000360000000    XX360  OCT 360000000                                                    F5G35670    
       00407 +000000777777    SHK1   OCT 777777          CONST. TO EXTRACT R. HALF WORD               F5G35680    
                        00320 SHK2   SYN L4                                                           F5G35690    
       00410 +160000000000    SIK2   OCT 160000000000    I.D. FOR LOCATION OF SXD                     F5G35700    
       00411  626724000000    SIK3   BCD 1SXD000         SXD IN BCD                                   F5G35710    
                        00411 LSXD   SYN SIK3                                                         F5G35720    
                        00410 IDSXD  SYN SIK2                                                         F5G35730    
       00412  0 00000 0 00144 SKK1       LCLST                                                        F5G35740    
                        00350 SLK1   SYN LTRA            TRA IN BCD                                   F5G35750    
       00413 +150000000000    SMK1   OCT 150000000000    I.D. FOR LOCATI0N OF LX0                     F5G35760    
       00414  436724000000    SMK2   BCD 1LXD000         LXD IN BCD                                   F5G35770    
                        00414 LLXD   SYN SMK2                                                         F5G35780    
                                                         FOR SMK3 SEE LFTMSK                          F5G35790    
       00415 +140000000000    SMK4   OCT 140000000000    I.D. FOR TAU-TAG                             F5G35800    
                        00413 SLK2   SYN SMK1                                                         F5G35810    
                        00413 IDLXD  SYN SMK1                                                         F5G35820    
                        00415 IDTAG  SYN SMK4                                                         F5G35830    
       00416 -000000000000    Z1K3   OCT -0                                                           F5G35840    
                        00416 MZE    SYN Z1K3                                                         F5G35850    
       00417  0 77776 0 00000 Z2K1       0,0,-2          THE INDEXES NEEDED TO REFER                  F5G35860    
       00420  0 77772 0 00000            0,0,-6          TO THE BOTTOM POSITIONS                      F5G35870    
       00421  0 77766 0 00000            0,0,-10         IN LIST1, LIST2, LIST3, RESPT.               F5G35880    
       00422  0 00007 0 00003 Z2K2   HTR 3,0,7           NO. OF LISTS, NO. OF CASES                   F5G35890    
       00423  0 00000 0 00001 CASE   HTR 1                                                            F5G35900    
       00424  0 00000 0 00002            2                                                            F5G35910    
       00425  0 00000 0 00004            4                                                            F5G35920    
       00426  0 00000 0 00003            3                                                            F5G35930    
       00427  0 00000 0 00005            5                                                            F5G35940    
       00430  0 00000 0 00006            6                                                            F5G35950    
       00431  0 00000 0 00007            7                                                            F5G35960    
       00432 +000032212110    Z2K3   OCT 32212110        CONST. TO DETERMINE NO. 1 S IN 3 BITS        F5G35970    
       00433 +000030000000    Z2K4   DEC 3B14                                                         F5G35980    
       00434  0 00000 0 00007 Z2K5   HTR 7                                                            F5G35990    
       00435  0 00000 0 77777 Z4K1       -1                                                           F5G36000    
       00436  0 00000 0 00000 Z4K2       0               INDEX OF ST SXD CASE                         F5G36010    
       00437  0 00000 0 01000 LNSX0      NSXD*4          NO. OF SXD IN SXD LIST                       F5G36020    
       00440  0 77770 0 00000 Z7K1       0,0,-8          INDEAXES OF ASSOCIATED SXD CASES             F5G36030    
       00441  0 77764 0 00000            0,0,-12                                                      F5G36040    
       00442  0 77760 0 00000            0,0,-16                                                      F5G36050    
                                         THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS       F5G36060    
       00443 -0 00001 0 00000 BBNO   MZE 0,0,1           DECR., CURRENT BB NO. BEING SCANNED          F5G36070    
       00444  0 00000 0 00000 NXTLOC                     LOCATUON OF 1ST INST OF THE BB               F5G36080    
       00445  0 00000 0 00000 OUTBX                      TEMP. STORAGE OF RETURN INDEXES              F5G36090    
       00446  0 00000 0 00000 ERRBX                      ERROR INDICATOR                              F5G36100    
       00447  0 00000 0 00000 BBOX                       TEMP. STORE FOR INDEXES, MAINLY 2            F5G36110    
       00450  0 00000 0 00000 BBOX1                      ANOTHER  OF SAME                             F5G36120    
       00451  0 00000 0 00000 ABOX                       TEMP. STORE , INDEX 1                        F5G36130    
       00452  0 00000 0 00000 TAG                        TAU-TAG FROM AN INST.                        F5G36140    
       00453  0 00000 0 00000 STAGN1                     WORD FROM STAG SHIFTED LEFT MULTIPLE OF I    F5G36150    
       00454  0 00000 0 00000 STAGN2                     SAME WORD SHIFTED BY ONES                    F5G36160    
       00455  0 00000 0 00000 9CNT                       COUNT TO 9, 9 TAGS IN STAG WORD              F5G36180    
       00456 -000000000001    STGWD  DEC -1              NO. OF STAG ENTRY BEING CONSIDERED           F5G36180    
       00457  0 00000 0 00000 TMP10                      TEMP. STORE , LASTS ONLY 10 INSTRS.          F5G36190    
       00460  0 00000 0 00000 CIND                       + OR - MEANS IR4 ISNT OR IS NECESSARY        F5G36200    
       00461 -0 00000 0 00000  CPIND MZE              + OR - MEANS COMPILE/DONT COMPILE               F5G36210    
       00462  0 00000 0 00000 ARG1                       U  1ST ARGUMENT FOR SUBROUTINES              F5G36220    
       00463  0 00000 0 00000 MBOX                       NO. OF TRANSFERS IN GO TO VECTOR             F5G36230    
       00464  0 00000 0 00000 SUCNO                      NO. OF A SUCCESSOR, GOV ROUTINE              F5G36240    
       00465  0 00000 0 00000 SXD0                       LXD CASE IN DECR., PRED NO. IN ADDR.         F5G36250    
       00466  0 00000 0 00000 SXD1                       3 TAU TAGS WHICH MUST BE STORED              F5G36260    
       00467  0 00000 0 00000 SXD2                       FROM IR1,2,3                                 F5G36270    
       00470  0 00000 0 00000 SXD3                       RESPT.                                       F5G36280    
       00471  0 00000 0 00000 SADV1                      RETURN INDEX                                 F5G36290    
       00472  0 00000 0 00000 SADV2                      LOCATION OF 1ST INST IN SUCCESSOR BB         F5G36300    
       00473  0 00000 0 00000 SADV3                      NO. OF CURRENT PRED                          F5G36310    
       00474  0 00000 0 00000 SADV4                      NO. OF 1ST PRED IN SUCCESSOR BB              F5G36320    
       00475  0 00000 0 00000 SADV5                      THE SUCCESSOR BB NO.                         F5G36330    
       00476  0 00000 0 00000 SHV1                       RETURN INDEX                                 F5G36340    
       00477  0 00000 0 00000 SHV2                       ENTRY FROM PRED.                             F5G36350    
       00500  0 00000 0 00000 SIV1                       INDEX OF SXD CASE RELATIVE TO SXST           F5G36360    
       00501  0 00000 0 00000 SIV2                       RETURN INDEX                                 F5G36370    
       00502  0 00000 0 00000 SIV3                       LOCATION OF 1ST INST. IN SXD GROUP           F5G36380    
       00503  0 00000 0 00000 SIV4                       TEMP. STORE                                  F5G36390    
       00504  0 00000 0 00000 SIV5                       STORE FOR INDEX OF TAU TAG IN SXD CASE       F5G36400    
       00505  0 00000 0 00000 SIV6                       STOER FOR THE TAG                            F5G36410    
       00506  0 00000 0 00000 SJV1                       LXD CASE IN DECR.                            F5G36420    
       00507  0 00000 0 00000 SJV2                       RETURN INDEX                                 F5G36430    
       00510  0 00000 0 00000 SJV3                                                                    F5G36440    
                        00655 CLST   BES LCLST           THE NEW LIST OF COMPILED INST.               F5G36450    
       00655  0 00144 0 00000 SKV1       0,0,LCLST       INDEX FOR NEXT ENTRY IN CLST                 F5G36460    
                                          SKV1 COMES ALREADY INITIALIZED                              F5G36470    
       00656  0 00000 0 00000 SLV1                       RETURN INDEX                                 F5G36480    
       00657  0 00000 0 00000 SLV2                       LOCATION TO BE ATTACHED TO TRA               F5G36490    
       00660  0 00000 0 00000 SLV3                       + OR - MEANS  ISNT OR IS HANGING TRA0        F5G36500    
       00661  0 00000 0 00000 SMV1                       RETURN INDEX                                 F5G36510    
       00662  0 00000 0 00000 SMV2                       TAG TO BE COMPILED                           F5G36520    
       00663  0 00000 0 00000 SMV3                       STORE INDEX OF QUANTITY IN LIST              F5G36530    
       00664  0 00000 0 00000 SMV4                       LOCATION , TEMP. STORE                       F5G36540    
       00665  0 00000 0 00000 Z1V2                       NO. OF 1ST PRED. IN NEXT BB                  F5G36550    
       00666  0 00000 0 00000 Z1V3                       NO. OF PRED BEING CONSIDERED                 F5G36560    
       00667  0 00000 0 00000 Z1V5                       THE CASES                                    F5G36570    
       00670  0 00000 0 00000 Z1V8                       THE LOC. OF 1ST PRED IN BB,  USED IN Z4      F5G36580    
       00671  0 00000 0 00000 Z2V1                       IN DECREMENTS, THE INDEXES                   F5G36590    
       00672  0 00000 0 00000                            THE TOP ENTRIES                              F5G36600    
       00673  0 00000 0 00000                            IN THE 3 LXD LISTS                           F5G36610    
       00674  0 00000 0 00000 Z2V2                       IN ADDR., NO. OF 1S IN DIFFERENCE            F5G36620    
       00675  0 00000 0 00000 Z2V3                       IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630    
                        00676 LIST1  BSS 4                                                            F5G36640    
                        00702 LIST2  BSS 4                                                            F5G36650    
                        00706 LIST3  BSS 4                                                            F5G36660    
                        00715 LLIND  BES 3               + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670    
       00715  0 00000 0 00000 Z4V1                       TEMP. STORE , LXD CASE IN ADDR.              F5G36680    
       00716  0 00000 0 00000 Z5V1                       INDEX IN SYN TABLE                           F5G36690    
       00717  0 00000 0 00000 Z7V1                       INDEX OF LIST                                F5G36700    
       00720  0 00000 0 00000 Z7V2                       + OR - MEANS 1ST OR 2ED TIME THRU            F5G36710    
                        00735 NDINS  BES 12              BLOCK FOR 3 EXTRA COMPILED INST.             F5G36720    
                        01101 INST   BES RECNO*100       THE BLOCK FOR 1HE COMPILED INSTR             F5G36730    
       01101 -0 00000 0 00000 SXST   MZE                 - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740    
                        01102        BSS 3                                                            F5G36750    
                                          THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER           F5G36760    
                        01105 SXAS0  BSS 4               ASSOCIATED WITH 0 LXD CASE                   F5G36770    
                        01111 SXAS1  BSS 4               WITH 1ST LXD LIST                            F5G36780    
                        01115 SXAS2  BSS 4               2ED LIST                                     F5G36790    
                        01121 SXAS3  BSS 4               3RD                                          F5G36800    
                        01125 SXAS   BSS 4*NSXD          THE LIST OF SXD INST.                        F5G36810    
       02125 -0 00000 0 00000 SYN    MZE                 SYN CARD TABLE STORED BACKWARD               F5G36820    
                                         WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO.   F5G36830    
                                          OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840    
                                         DRESS OF CORRESPONDING TRANSFER INST.  SHOULD BE AND RETURNS F5G36850    
                                          WITH THE ADDR IN LOGICAL AC                                 F5G36860    
       02126 -0 63400 4 00471 SAD    SXD SADV1,4         STORE RETURN                                 F5G36870    
       02127 -0 32000 0 00337        ANA ADDMK           STORE THE SUCC. NO.                          F5G36880    
       02130  0 60100 0 00475        STO SADV5                                                        F5G36890    
       02131  0 07400 4 00067        TSX SE1,4                                                        F5G36900    
       02132  0 50000 1 06447        CLA BBB+5,1                                                      F5G36910    
       02133  0 60100 0 00472        STO SADV2                                                        F5G36920    
       02134  0 50000 1 06442        CLA BBB,1                                                        F5G36930    
       02135 -0 32000 0 00337        ANA ADDMK                                                        F5G36940    
       02136  0 60200 0 00474        SLW SADV4                                                        F5G36950    
       02137  0 60200 0 00473 SAD1   SLW SADV3                                                        F5G36960    
       02140  0 07400 4 00055        TSX SE5,4                                                        F5G36970    
       02141  0 50000 1 07337        CLA PRED,1                                                       F5G36980    
       02142 -0 32000 0 00337        ANA ADDMK           IS THIS THE CORRECT                          F5G36990    
       02143  0 40200 0 00462        SUB ARG1            PRED ENTRY                                   F5G37000    
       02144  0 10000 0 02150        TZE SAD2                                                         F5G37010    
       02145 -0 50000 0 00473        CAL SADV3           NO, TRY NEXT RETURN                          F5G37020    
       02146  0 40000 0 00315        ADD ONEA                                                         F5G37030    
       02147  0 02000 0 02137        TRA SAD1                                                         F5G37040    
       02150 -0 50000 1 07337 SAD2   CAL PRED,1          IS THE SXD CASE 0                            F5G37050    
       02151 -0 32000 0 00326        ANA LD7                                                          F5G37060    
       02152  0 10000 0 02160        TZE SAD3            YES                                          F5G37070    
       02153  0 50000 0 00473        CLA SADV3           NO, FORM THE SYMBOLIC ADDR.                  F5G37080    
       02154  0 40200 0 00474        SUB SADV4           AS ID FOR SXD PLUS NO. OF PRED WITHIN        F5G37090    
       02155  0 76700 0 00012        ALS 10              THE BB * 1024    PLUS BB NO.                 F5G37100    
       02156  0 40000 0 00410        ADD IDSXD                                                        F5G37110    
       02157  0 02000 0 02165        TRA SAD6                                                         F5G37120    
       02160  0 50000 1 07337 SAD3   CLA PRED,1          IS THE LXD CASE ZERO                         F5G37130    
       02161 -0 32000 0 00332        ANA LT7                                                          F5G37140    
       02162  0 10000 0 02170        TZE SAD4                                                         F5G37150    
       02163  0 77100 0 00005        ARS 5               NO, FORM TH SYMBOLIC ADDR.                   F5G37160    
       02164  0 40000 0 00413        ADD IDLXD           AS 1024* LXD CASE PLUS BB NO. PLUS           F5G37170    
       02165  0 40000 0 00475 SAD6   ADD SADV5           I. D. FOR AN LXD                             F5G37180    
       02166 -0 53400 4 00471 SAD5   LXD SADV1,4                                                      F5G37190    
       02167  0 02000 4 00001        TRA 1,4                                                          F5G37200    
       02170 -0 50000 0 00472 SAD4   CAL SADV2                                                        F5G37210    
       02171  0 02000 0 02166        TRA SAD5                                                         F5G37220    
                                          THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND   F5G37230    
                                          INDICATES IT SHOULD BE                                      F5G37240    
       02172  0 50000 0 00461 SCMI   CLA CPIND           SHOULD INST. BE COMPILED                     F5G37250    
       02173  0 12000 0 02206        TPL SCMI1                                                        F5G37260    
       02174 -0 63400 4 00457        SXD TMP10,4         YES, COMPILE THE INST                        F5G37270    
       02175  0 50000 2 01101        CLA INST,2                                                       F5G37280    
       02176  0 07400 4 02367        TSX SK,4                                                         F5G37290    
       02177  0 50000 2 01100        CLA INST-1,2                                                     F5G37300    
       02200  0 07400 4 02367        TSX SK,4                                                         F5G37310    
       02201  0 50000 2 01077        CLA INST-2,2                                                     F5G37320    
       02202  0 07400 4 02367        TSX SK,4                                                         F5G37330    
       02203  0 50000 2 01076        CLA INST-3,2                                                     F5G37340    
       02204  0 07400 4 02367        TSX SK,4                                                         F5G37350    
       02205 -0 53400 4 00457        LXD TMP10,4                                                      F5G37360    
       02206 -0 76000 0 00003 SCMI1  SSM                                                              F5G37370    
       02207  0 60100 0 00461        STO CPIND           RECORD INST SHOULD BE COMPILED               F5G37380    
       02210  0 02000 4 00001        TRA 1,4                                                          F5G37390    
                                         DETERMINE AN SXD CASE SUBROUTINE                             F5G37400    
       02211 -0 63400 4 00476 SH     SXD SHV1,4          STORE RETURN                                 F5G37410    
       02212  0 53400 4 00320        LXA SHK2,4          CLEAR                                        F5G37420    
       02213  0 56000 0 00314        LDQ ZERO            THE                                          F5G37430    
       02214 -0 60000 4 00471 SH1    STQ SXD0+4,4        SXD                                          F5G37440    
       02215  2 00001 4 02214        TIX SH1,4,1         POSITIONS 0-3                                F5G37450    
       02216  0 62100 0 00465        STA SXD0            STORE THE PRED NO.                           F5G37460    
       02217  0 07400 4 00055        TSX SE5,4           GET INDEX OF PRED                            F5G37470    
       02220  0 50000 1 07337        CLA PRED,1          GET AND                                      F5G37480    
       02221  0 60100 0 00477        STO SHV2            STORE PRED ENTRY                             F5G37490    
       02222  0 07400 4 00067        TSX SE1,4           GET INDEX OF BBB TABLE ENTRY                 F5G37500    
       02223 -0 53400 4 00324        LXD LD3,4           NO, SET COUNT TO 3                           F5G37510    
       02224  0 56000 0 00477 SH2    LDQ SHV2            IS                                           F5G37520    
       02225 -0 77300 4 00022        RQL 18,4            SXD REQUIRED                                 F5G37530    
       02226  0 16200 0 02232        TQP SH3             FOR THIS I.R.                                F5G37540    
       02227  0 50000 1 06444        CLA BBB+2,1         YES, GET AND                                 F5G37550    
       02230 -0 32000 0 00342        ANA TAGMK           EXTRACT THE                                  F5G37560    
       02231  0 60100 4 00471        STO SXD1+3,4        EXIT CONDITIONS                              F5G37570    
       02232  1 77777 1 02233 SH3    TXI SH3+1,1,-1      DOWN THE EXIT CONDITIONS                     F5G37580    
       02233  2 00001 4 02224        TIX SH2,4,1         COUNT TO 3                                   F5G37590    
       02234 -0 50000 0 00477 SH4    CAL SHV2            GET                                          F5G37600    
       02235 -0 32000 0 00332        ANA LT7             AND STORE                                    F5G37610    
       02236  0 76700 0 00003        ALS 3               LXD CASE                                     F5G37620    
       02237  0 62200 0 00465        STD SXD0                                                         F5G37630    
       02240 -0 53400 4 00476        LXD SHV1,4                                                       F5G37640    
       02241  0 02000 4 00001        TRA 1,4             RETURN                                       F5G37650    
                                         COMPILE AN SXD CASE SUBROUTINE                               F5G37660    
       02242 -0 63400 4 00501 SI     SXD SIV2,4          STORE RETURN                                 F5G37670    
       02243 -0 63400 1 00500        SXD SIV1,1          STORE INDEX OF SXD CASE                      F5G37680    
       02244  0 07400 4 02426        TSX SL1,4           RECORD ANY HANGING TRANSFER                  F5G37690    
       02245 -0 50000 0 00443        CAL BBNO                                                         F5G37700    
       02246  0 77100 0 00022        ARS 18                                                           F5G37710    
       02247  0 60100 0 00657        STO SLV2            STORE BB NO.                                 F5G37720    
       02250  0 07400 4 00067        TSX SE1,4           GET INDEX OF BB                              F5G37730    
       02251  0 50000 1 06442        CLA BBB,1                                                        F5G37740    
       02252 -0 32000 0 00337        ANA ADDMK                                                        F5G37750    
       02253  0 60100 0 00503        STO SIV4            STORE LOC. OF 1ST PRED IN BB                 F5G37760    
       02254 -0 53400 1 00500        LXD SIV1,1          FORM                                         F5G37770    
       02255  0 50000 1 01101        CLA SXST,1          LOC. OF THIS PRED -                          F5G37780    
       02256 -0 32000 0 00337        ANA ADDMK           LOC. OF 1ST  PRED IN BB                      F5G37790    
       02257  0 40200 0 00503        SUB SIV4                                                         F5G37800    
       02260  0 76700 0 00012        ALS 10                                                           F5G37810    
       02261  0 40000 0 00657        ADD SLV2                                                         F5G37820    
       02262  0 40000 0 00410        ADD SIK2                                                         F5G37830    
       02263  0 60100 0 00657        STO SLV2            STORE THE LOC. OF 1ST SXD                    F5G37840    
       02264 -0 53400 2 00324        LXD LD3,2                                                        F5G37850    
       02265  0 50000 1 01102 SI2    CLA SXST+1,1                                                     F5G37860    
       02266  0 10000 0 02305        TZE SI1             IS THIS TAG 0                                F5G37870    
       02267 -0 63400 1 00504        SXD SIV5,1          NO, PRESERVE IN0EX 1                         F5G37880    
       02270  0 60100 0 00505        STO SIV6            PRESERVE THE TAG                             F5G37890    
       02271  0 50000 0 00657        CLA SLV2            PUT LOCATION WORD ON TAPE                    F5G37900    
       02272  0 07400 4 02367        TSX SK,4                                                         F5G37910    
       02273  0 50000 0 00314        CLA ZERO            AND RESET TO 0                               F5G37920    
       02274  0 60100 0 00657        STO SLV2                                                         F5G37930    
       02275  0 50000 0 00411        CLA SIK3            PUT SXD ON TAPE                              F5G37940    
       02276  0 07400 4 02367        TSX SK,4                                                         F5G37950    
       02277  0 50000 0 00505        CLA SIV6            14*2**-5+TAU-TAG IS                          F5G37960    
       02300  0 40000 0 00415        ADD SMK4            SYMBOLIC ADDRESS                             F5G37970    
       02301  0 07400 4 02367        TSX SK,4                                                         F5G37980    
       02302  0 50000 2 00361        CLA VSTAG,2                                                      F5G37990    
       02303  0 07400 4 02367        TSX SK,4            PUT S-TAG ON TAPE                            F5G38000    
       02304 -0 53400 1 00504        LXD SIV5,1                                                       F5G38010    
       02305  1 77777 1 02306 SI1    TXI SI1+1,1,-1                                                   F5G38020    
       02306  2 00001 2 02265        TIX SI2,2,1         COUNT TO 3, FORM N+1                         F5G38030    
       02307 -0 53400 1 00500        LXD SIV1,1                                                       F5G38040    
       02310  0 50000 1 01101        CLA SXST,1                                                       F5G38050    
       02311 -0 73400 2 00000        PDX 0,2                                                          F5G38060    
       02312 -3 00000 2 02321        TXL SI3,2,0         IS THE LXD CASE 0                            F5G38070    
       02313 -3 00000 1 02325        TXL SI4,1,0         NO, IS THIS THE ST POSITION                  F5G38080    
       02314  3 77757 1 02334        TXH SI6,1,-16-1     IS THIS ASSOCIATED WITH A LIST               F5G38090    
       02315  0 77100 0 00022 SI5    ARS 18              NO                                           F5G38100    
       02316  0 07400 4 02403        TSX SL,4            COMPILE A TRA TO LXD CASE                    F5G38110    
       02317 -0 53400 4 00501        LXD SIV2,4                                                       F5G38120    
       02320  0 02000 4 00003        TRA 3,4             RETURN TO LOC. OF TSX + 3                    F5G38130    
       02321  0 50200 0 00315 SI3    CLS ONEA            RECORD THAT THERE IS                         F5G38140    
       02322  0 60100 0 00660        STO SLV3            A HANGING TRA TO 0 CASE                      F5G38150    
       02323 -0 53400 4 00501        LXD SIV2,4                                                       F5G38160    
       02324  0 02000 4 00001        TRA 1,4             RETURN TO LOC. OF TSX +1                     F5G38170    
       02325  0 60100 0 00465 SI4    STO SXD0            STORE LXD CASE AS ARG FOR SJ                 F5G38180    
       02326  0 07400 4 02336        TSX SJ,4            IS SXD CASE INST POS. ASSOC. WITH LIST       F5G38190    
       02327  0 00000 0 00000                            SHOULDENT BE WITH CASE 0                     F5G38200    
       02330  0 02000 0 02334        TRA SI6             YES                                          F5G38210    
       02331 -0 53400 1 00500        LXD SIV1,1          NO                                           F5G38220    
       02332  0 50000 1 01101        CLA SXST,1                                                       F5G38230    
       02333  0 02000 0 02315        TRA SI5             GO TO COMPILE TRA TO LXD CASE                F5G38240    
       02334 -0 53400 4 00501 SI6    LXD SIV2,4          RETURN TO 2 FOLL0WING TSX WITH               F5G38250    
       02335  0 02000 4 00002        TRA 2,4             INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260    
                                          DETERMINE IF THE SXO CASE IS ASSOCIATED WITH AN LXD LIST    F5G38270    
       02336 -0 63400 4 00507 SJ     SXD SJV2,4                                                       F5G38280    
       02337  0 50000 0 00465        CLA SXD0                                                         F5G38290    
       02340 -0 32000 0 00335        ANA DECMK                                                        F5G38300    
       02341  0 60100 0 00506        STO SJV1                                                         F5G38310    
       02342  0 10000 0 02363        TZE SJ3             IS THIS THE 0 LXD CASE                       F5G38320    
       02343 -0 53400 4 00314        LXD ZERO,4          NO, SET COUNT TO 3, N TO 1                   F5G38330    
       02344 -0 53400 2 00324        LXD LD3,2           2 HAS THE C0UNTER                            F5G38340    
       02345  0 50000 4 01111 SJ2    CLA SXAS1,4                                                      F5G38350    
       02346  0 12000 0 02357        TPL SJ1             DOES THE LIST ALREADY HAVE SXD               F5G38360    
       02347  0 50000 2 00674        CLA Z2V1+3,2        NO                                           F5G38370    
       02350 -0 73400 1 00000        PDX 0,1             GET INDEX OF TOP QUANTITY                    F5G38380    
       02351  0 50000 1 00676        CLA LIST1,1                                                      F5G38390    
       02352  0 76700 0 00022        ALS 18                                                           F5G38400    
       02353  0 40200 0 00506        SUB SJV1            IS THIS CASE SAME AS CASE HEADUNG LIST N     F5G38410    
       02354 -0 10000 0 02357        TNZ SJ1                                                          F5G38420    
       02355 -0 53400 4 00507        LXD SJV2,4          YES                                          F5G38430    
       02356  0 02000 4 00002        TRA 2,4             RETURN, INDEX OF TOP OF LIST IN 1            F5G38440    
       02357  1 77777 4 02360 SJ1    TXI SJ1+1,4,-1                                                   F5G38450    
       02360  2 00001 2 02345        TIX SJ2,2,1         COUNT TO 3                                   F5G38460    
       02361 -0 53400 4 00507        LXD SJV2,4                                                       F5G38470    
       02362  0 02000 4 00003        TRA 3,4                                                          F5G38480    
       02363 -0 53400 4 00507 SJ3    LXD SJV2,4                                                       F5G38490    
       02364  0 50000 0 01105        CLA SXAS0                                                        F5G38500    
       02365  0 12000 4 00003        TPL 3,4                                                          F5G38510    
       02366  0 02000 4 00001        TRA 1,4                                                          F5G38520    
                                         PUT WORD OF COMPILED INST ON TAPE                            F5G38530    
       02367 -0 53400 1 00655 SK     LXD SKV1,1                                                       F5G38540    
       02370  0 60100 1 00655        STO CLST,1          STORE THE WORD IN CLST                       F5G38550    
       02371  2 00001 1 02401        TIX SK1,1,1         C0UNT NO OF WORDS  IS CLST FULL              F5G38560    
       02372  0 53400 1 00412        LXA SKK1,1          YES                                          F5G38570    
       02373 -0 63400 1 00655        SXD SKV1,1          RESET THE INDEX                              F5G38580    
       02374  0 76600 0 00223        WTB OTAPE           WRITE THE BLOCK ON                           F5G38590    
       02375  0 70000 1 00655 SK2    CPY CLST,1          THE OUTPUT TAPE                              F5G38600    
       02376  2 00001 1 02375        TIX SK2,1,1                                                      F5G38610    
       02377  0 76600 0 00333        IOD                                                              F5G38620    
       02400  0 02000 4 00001        TRA 1,4                                                          F5G38630    
       02401 -0 63400 1 00655 SK1    SXD SKV1,1          STORE INDEX OF NEXT WORD                     F5G38640    
       02402  0 02000 4 00001        TRA 1,4                                                          F5G38650    
                                          SUBROUTINE FOR COMPILING TRA TO LXD CASE                    F5G38660    
       02403 -0 32000 0 00434 SL     ANA Z2K5            FORM                                         F5G38670    
       02404  0 76700 0 00012        ALS 10              THE                                          F5G38680    
       02405  0 40000 0 00413        ADD SLK2            ADDRESS                                      F5G38690    
       02406  0 60100 0 00657        STO SLV2            OF                                           F5G38700    
       02407  0 50000 0 00443        CLA BBNO            THE                                          F5G38710    
       02410 -0 32000 0 00335        ANA DECMK                                                        F5G38720    
       02411  0 77100 0 00022        ARS 18              TRA IN                                       F5G38730    
       02412 -0 60200 0 00657        ORS SLV2            SLV2                                         F5G38740    
       02413 -0 63400 4 00656        SXD SLV1,4          STORE RETURJ                                 F5G38750    
       02414  0 50000 0 00314 SL2    CLA ZERO            PUT 0 LOCATION                               F5G38760    
       02415  0 07400 4 02367        TSX SK,4            ON TAPE                                      F5G38770    
       02416  0 50000 0 00350        CLA LTRA                                                         F5G38780    
       02417  0 07400 4 02367        TSX SK,4            PUT SYMB. ADDR. ON TAPE                      F5G38790    
       02420  0 50000 0 00657        CLA SLV2                                                         F5G38800    
       02421  0 07400 4 02367        TSX SK,4            PUT SYMB. ADDR ON TAPE                       F5G36810    
       02422  0 50000 0 00314        CLA ZERO                                                         F5G38820    
       02423  0 07400 4 02367        TSX SK,4            ANOTHER 0                                    F5G38830    
       02424 -0 53400 4 00656        LXD SLV1,4                                                       F5G38840    
       02425  0 02000 4 00001        TRA 1,4                                                          F5G38850    
                                          SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE                F5G38860    
       02426  0 50000 0 00660 SL1    CLA SLV3                                                         F5G38870    
       02427  0 12000 4 00001        TPL 1,4             RETURN IF THERE IS NO HANGING TRA0           F5G38880    
       02430 -0 63400 4 00656        SXD SLV1,4          OTHERWISE , STORE RETURN AND                 F5G38890    
       02431  0 50000 0 00443        CLA BBNO            GET                                          F5G38900    
       02432  0 07400 4 00070        TSX SE,4            THE                                          F5G38910    
       02433  0 50000 1 06447        CLA BBB+5,1         SYMBOLIC LOCATION                            F5G38920    
       02434  0 60100 0 00657        STO SLV2            OF 1ST INST IN BB AND                        F5G38930    
       02435  0 50000 0 00314        CLA ZERO            STORE IN SYNBOLIS ADDR WORD                  F5G38940    
       02436  0 60100 0 00660        STO SLV3            SET INDICATOR TO SAY NO HANGING TRA          F5G38950    
       02437  0 02000 0 02414        TRA SL2                                                          F5G38960    
                                         COMPILE AN LXD LIST                                          F5G38970    
       02440  0 50000 2 00715 SM     CLA LLIND,2         IMMEDIATELY RETURN IF LIST IS                F5G38980    
       02441  0 12000 4 00001        TPL 1,4             ALREADY COMPOLED                             F5G38990    
       02442  0 60200 2 00715        SLW LLIND,2         RECORD LIST ALREADY COMPILED                 F5G39000    
       02443 -0 63400 4 00661        SXD SMV1,4          STORE RETURN                                 F5G39010    
       02444  0 50000 2 00422        CLA Z2K1+3,2        COMPUTE THE                                  F5G39020    
       02445  0 40200 0 00316        SUB ONED            INDEX OF SUB BOTTEM                          F5G39030    
       02446  0 62200 0 02453        STD SM1             POSITION OF LIDT                             F5G39040    
       02447  0 62200 0 02513        STD SM5             SET END TEST                                 F5G39050    
       02450  0 50000 1 00676 SM6    CLA LIST1,1                                                      F5G39060    
       02451 -0 12000 0 02521        TMI SM8             DOES THIS ELEMENT OF LIST REPRESENT AN LXD   F5G39070    
       02452 -3 00000 1 02454        TXL SM1+1,1,0                                                    F5G39080    
       02453 -3 00000 1 02455 SM1    TXL SM10,1,SET      YES, IS ELEMENT IN SUB BOTTOM POS.           F5G39090    
       02454 -0 40000 1 00677        SBM LIST1+1,1       NO                                           F5G39100    
       02455  0 60100 0 00662 SM10   STO SMV2            STORE THE TAG AWAY                           F5G39110    
       02456  0 50000 0 00443        CLA BBNO            FORN                                         F5G39120    
       02457 -0 32000 0 00335        ANA DECMK           THE                                          F5G39130    
       02460  0 76500 0 00034        LRS 28              LOCATION                                     F5G39140    
       02461  0 50000 1 00676        CLA LIST1,1                                                      F5G39150    
       02462  0 76300 0 00012        LLS 10                                                           F5G39160    
       02463  0 40000 0 00413        ADD SMK1                                                         F5G39170    
       02464 -0 63400 1 00663        SXD SMV3,1          STORE INDEX OF LIST QUANTITY                 F5G39180    
       02465  0 60100 0 00664        STO SMV4                                                         F5G39190    
       02466  0 07400 4 02426        TSX SL1,4           RECORD ANY HANGING TRA0                      F5G39200    
       02467  0 50000 0 00664        CLA SMV4                                                         F5G39210    
       02470  0 07400 4 02367        TSX SK,4            COMPILE THE LOCATION                         F5G39220    
       02471  0 50000 0 00414        CLA SMK2                                                         F5G39230    
       02472  0 07400 4 02367        TSX SK,4            COMPILE LXD                                  F5G39240    
       02473  0 50000 0 00443        CLA BBNO                                                         F5G39250    
       02474  0 07400 4 00070        TSX SE,4            FIND INDEX OF BB                             F5G39260    
       02475  0 50000 0 00662        CLA SMV2                                                         F5G39270    
       02476  0 34000 0 00320 SM3    CAS L4              IS THIS THE CORRECT ENT. REQUIREMENT         F5G39280    
       02477  0 02000 0 02501        TRA SM2                                                          F5G39290    
       02500  0 02000 0 02503        TRA SM4             YES                                          F5G39300    
       02501  0 76700 0 00001 SM2    ALS 1               NO, SHIFT IT LEFT ONE                        F5G39310    
       02502  1 77777 1 02476        TXI SM3,1,-1        AND INDEX TO NEXT ENRR. REQUIREMENT          F5G39320    
       02503 -0 50000 1 06444 SM4    CAL BBB+2,1         FORM                                         F5G39330    
       02504  0 77100 0 00022        ARS 18              AND COMPILE                                  F5G39340    
       02505  0 40000 0 00415        ADD SMK4            THE                                          F5G39350    
       02506  0 07400 4 02367        TSX SK,4                                                         F5G39360    
       02507  0 50000 0 00662        CLA SMV2            C0MPILE THE TAG                              F5G39370    
       02510  0 07400 4 02367        TSX SK,4                                                         F5G39380    
       02511 -0 53400 1 00663        LXD SMV3,1          IS THE ELEMENT IN SUB BOTTOM POSITION        F5G39390    
       02512 -3 00000 1 02514        TXL SM5+1,1,0                                                    F5G39400    
       02513 -3 00000 1 02515 SM5    TXL SM7,1,SET                                                    F5G39410    
       02514  1 77777 1 02450        TXI SM6,1,-1        NO, INDEX TO NEXT LIST POS.                  F5G39420    
       02515  0 50200 0 00315 SM7    CLS ONEA                                                         F5G39430    
       02516  0 60100 0 00660        STO SLV3            RECORD THAT THERE IS HANGING TRA 0           F5G39440    
       02517 -0 53400 4 00661 SM9    LXD SMV1,4                                                       F5G39450    
       02520  0 02000 4 00001        TRA 1,4             RETURN                                       F5G39460    
       02521  0 10000 0 02515 SM8    TZE SM7             GO TO RECORD HANGING TRA                     F5G39470    
       02522  0 76000 0 00003        SSP                                                              F5G39480    
       02523  0 07400 4 02403        TSX SL,4            RECORD A TRA TO LXD CASE                     F5G39490    
       02524  0 02000 0 02517        TRA SM9                                                          F5G39500    
                                         THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND      F5G39510    
                                         CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.  F5G39520    
       02525 -2 00144 2 02527 FNDAS  TNX 2FNDS,2,ZINST   IS BLOCK OF INST. ALL USED                   F5G39530    
       02526  0 07400 4 03472        TSX RDINS,4         YES, READ IN NEXT BLOCK                      F5G39540    
       02527 -0 50000 2 01076 2FNDS  CAL INST-3,2        IS THIS INST. TAGGED                         F5G39550    
       02530 -0 32000 0 00340        ANA STMSK                                                        F5G39560    
       02531  0 10000 0 03336        TZE CI7A                                                         F5G39570    
       02532 -0 53400 4 00455 CI4    LXD 9CNT,4          YES                                          F5G39580    
       02533  2 00001 4 02547        TIX CI5,4,1         COUNT TO 9, IS STAG WORD EXHAUSTED           F5G39590    
       02534 -0 63400 2 00447        SXD BBOX,2          YES, GET ANOTHER                             F5G39600    
       02535  0 50000 0 00456        CLA STGWD           INCREASE THE NO. OF CURRENT STAG WORD        F5G39610    
       02536  0 40000 0 00315        ADD ONEA                                                         F5G39620    
       02537  0 60100 0 00456        STO STGWD                                                        F5G39630    
       02540  0 07400 4 00032        TSX SE4,4           GET INDEX OF NEXT STAG WORD                  F5G39640    
       02541  0 50000 1 05061        CLA STAG,1                                                       F5G39650    
       02542  0 60100 0 00454        STO STAGN2          GET AND STORE                                F5G39660    
       02543  0 76700 0 00002        ALS 2                                                            F5G39670    
       02544  0 60100 0 00453        STO STAGN1          THE STAG WORD                                F5G39680    
       02545 -0 53400 2 00447        LXD BBOX,2          RESTORE INDEX REGISER 2                      F5G39690    
       02546 -0 53400 4 00330        LXD LD9,4           RESET COUNT TO 9                             F5G39700    
       02547 -0 63400 4 00455 CI5    SXD 9CNT,4                                                       F5G39710    
       02550 -0 50000 2 01076        CAL INST-3,2                                                     F5G39720    
       02551 -0 32000 0 00342        ANA TAGMK           EXTRACT THE TAG                              F5G39730    
       02552  0 60100 0 00452        STO TAG                                                          F5G39740    
       02553 -0 50000 0 00453        CAL STAGN1                                                       F5G39750    
       02554 -0 32000 0 00324        ANA LD3             EXTRACT THE S-TAG                            F5G39760    
       02555 -0 73400 4 00000        PDX 0,4                                                          F5G39770    
       02556 -0 50000 4 00361        CAL VSTAG,4         CONVERT S-TAG TO 1,2, OR 4                   F5G39780    
       02557  0 62100 2 01076        STA INST-3,2        REPLACE TAU-TAG BY S-TAG                     F5G39790    
       02560  0 40200 0 00320        SUB L4              IS THE TAG 4                                 F5G39800    
       02561 -0 10000 0 02564        TNZ CI5A                                                         F5G39810    
       02562 -0 76000 0 00003        SSM                                                              F5G39820    
       02563  0 60100 0 00460        STO CIND            YES, RECORD IR 4 NECESSARY                   F5G39830    
       02564 -0 50000 0 00454 CI5A   CAL STAGN2                                                       F5G39840    
       02565  0 76700 0 00011        ALS 9                                                            F5G39850    
       02566 -0 76000 0 00001        PBT                 IS AN LXD NECESSARY                          F5G39860    
       02567  0 02000 0 02602        TRA SKLX            NO                                           F5G39870    
       02570  0 50000 0 00314        CLA ZERO            YES                                          F5G39880    
       02571  0 07400 4 02367        TSX SK,4            COMPILE LOCATION OF 0                        F5G39890    
       02572  0 50000 0 00414        CLA SMK2            COMPILE LXD                                  F5G39900    
       02573  0 07400 4 02367        TSX SK,4                                                         F5G39910    
       02574  0 50000 0 00452        CLA TAG             COMPILE THE SYMB. ADDR. OF THE CELL          F5G39920    
       02575 -0 50100 0 00415        ORA SMK4                                                         F5G39930    
       02576  0 07400 4 02367        TSX SK,4                                                         F5G39940    
       02577  0 50000 2 01076        CLA INST-3,2        COMPILE THE S-TAG                            F5G39950    
       02600 -0 32000 0 00337        ANA ADDMK                                                        F5G39960    
       02601  0 07400 4 02367        TSX SK,4                                                         F5G39970    
       02602 -0 50000 2 01100 SKLX   CAL INST-1,2                                                     F5G39980    
       02603 -0 32000 0 00343        ANA LFTMSK                                                       F5G39990    
       02604  0 60200 0 00457        SLW TMP10                                                        F5G40000    
       02605  0 50000 0 00457        CLA TMP10                                                        F5G40010    
       02606  0 34000 0 00345        CAS LLXP            IS THIS AN LXP                               F5G40020    
       02607  0 02000 0 02637        TRA CI1                                                          F5G40030    
       02610  0 02000 0 02612        TRA SKLY              YES.                                       F5G40031    
       02611  0 02000 0 02637        TRA CI1                                                          F5G40032    
       02612 -0 50000 0 00454  SKLY  CAL STAGN2                                                       F5G40040    
       02613  0 76700 0 00011        ALS 9                                                            F5G40041    
       02614 -0 76000 0 00001        PBT                   IS LXD NECESSARY.                          F5G40042    
       02615  0 02000 0 03462        TRA CI3A              NO.                                        F5G40043    
       02616  0 50000 2 01076        CLA INST-3,2          YES.  IS S-TAG=4.                          F5G40044    
       02617  0 60200 0 00461        SLW CPIND             RECORD DONT COMPILE.                       F5G40045    
       02620 -0 32000 0 00337        ANA ADDMK                                                        F5G40046    
       02621  0 40200 0 00320        SUB L4                                                           F5G40047    
       02622 -0 10000 0 02667        TNZ CI6               NOT 4.                                     F5G40048    
       02623 -0 50000 2 01074        CAL INST-5,2          IS NEXT INSTR                              F5G40049    
       02624 -0 32000 0 00343        ANA LFTMSK                                                       F5G40050    
       02625  0 60200 0 00457        SLW TMP10             AN LXD                                     F5G40051    
       02626  0 50000 0 00457        CLA TMP10                                                        F5G40052    
       02627  0 40200 0 00414        SUB LLXD              WITH REAL                                  F5G40053    
       02630 -0 10000 0 02667        TNZ CI6               IR4.                                       F5G40054    
       02631  0 50000 2 01072        CLA INST-7,2                                                     F5G40055    
       02632 -0 32000 0 00337        ANA ADDMK             IF SO,                                     F5G40056    
       02633  0 40200 0 00320        SUB L4                                                           F5G40057    
       02634 -0 10000 0 02667        TNZ CI6               TURN ON                                    F5G40058    
       02635  0 76000 0 00141        PSE 97                                                           F5G40059    
       02636  0 02000 0 02667        TRA CI6               SENSE LIGHT.                               F5G40060    
       02637  0 34000 0 00347  CI1   CAS LDED              IS IT A DED                                F5G40061    
       02640  0 02000 0 02642        TRA CI2                                                          F5G40062    
       02641  0 02000 0 03462        TRA CI3A            YES                                          F5G40070    
       02642  0 50000 0 00454 CI2    CLA STAGN2                                                       F5G40080    
       02643  0 12000 0 02667        TPL CI6             IS SXD REQUIRED                              F5G40090    
       02644  0 50000 2 01101        CLA INST,2          NEITHER LXP NOR DED, COMPILE THE             F5G40100    
       02645  0 07400 4 02367        TSX SK,4            INST.                                        F5G40110    
       02646  0 50000 2 01100        CLA INST-1,2                                                     F5G40120    
       02647  0 07400 4 02367        TSX SK,4                                                         F5G40130    
       02650  0 50000 2 01077        CLA INST-2,2                                                     F5G40140    
       02651  0 07400 4 02367        TSX SK,4                                                         F5G40150    
       02652  0 50000 2 01076        CLA INST-3,2                                                     F5G40160    
       02653  0 07400 4 02367        TSX SK,4                                                         F5G40170    
       02654  0 50000 0 00314        CLA ZERO            YES, COMPILE AN SXD, ZERO LOCATION           F5G40180    
       02655  0 60100 0 00461        STO CPIND           RECORD THAT THIS INST. SHOULDNT BE CONPILED  F5G40190    
       02656  0 07400 4 02367        TSX SK,4                                                         F5G40200    
       02657  0 50000 0 00411        CLA SIK3            SXD IN BCD                                   F5G40210    
       02660  0 07400 4 02367        TSX SK,4                                                         F5G40220    
       02661  0 50000 0 00452        CLA TAG             SYMB. ADDR. OF TAU-TAG CELL                  F5G40230    
       02662 -0 50100 0 00415        ORA SMK4                                                         F5G40240    
       02663  0 07400 4 02367        TSX SK,4                                                         F5G40250    
       02664  0 50000 2 01076        CLA INST-3,2        AND TAG WORD                                 F5G40260    
       02665 -0 32000 0 00337        ANA ADDMK                                                        F5G40270    
       02666  0 07400 4 02367        TSX SK,4                                                         F5G40280    
       02667 -0 50000 0 00453  CI6   CAL STAGN1            NO SXD REQUIRED.                           F5G40290    
       02670  0 76700 0 00002        ALS 2                                                            F5G40300    
       02671  0 60200 0 00453        SLW STAGN1                                                       F5G40310    
       02672 -0 50000 0 00454        CAL STAGN2                                                       F5G40320    
       02673  0 76700 0 00001        ALS 1                                                            F5G40330    
       02674  0 60200 0 00454        SLW STAGN2                                                       F5G40340    
       02675  0 02000 0 02700        TRA CKLOC           GO TO CHECK FOR ENDINGS                      F5G40350    
       02676 -0 76000 0 00003 CI7    SSM                                                              F5G40360    
       02677  0 60100 0 00461        STO CPIND           RECODD LATER COMPILING NECESSARY             F5G40370    
                                         NOW THE END OF BB IS CHECKED FOR                             F5G40380    
       02700  0 50000 2 01101 CKLOC  CLA INST,2          IF NO LOCATION SYMBOL , THIS CANT BE         F5G40390    
       02701  0 10000 0 02723        TZE TR3S            ENSING OTHER THAN CERTAINTY                  F5G40400    
       02702  0 50000 2 01075        CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40410    
       02703  0 40200 0 00444        SUB NXTLOC                                                       F5G40420    
       02704  0 10000 0 02743        TZE ENDBB           YES, LOOK FOR TYPE OF ENDING                 F5G40430    
       02705 -0 53400 4 00327        LXD LD8,4           NO, CHECK FOR ENDING OF GROUP OF INST        F5G40440    
       02706 -0 50000 2 01100        CAL INST-1,2                                                     F5G40450    
       02707 -0 32000 0 00335        ANA DECMK           LOOK AT OP CODE                              F5G40460    
       02710  0 40200 4 00374 SUBP   SUB LNTOP+1,4       COMPARE TO OP CODES OF POSSIBLE              F5G40470    
       02711  0 10000 4 02737        TZE TRTIN+1,4       ENDINGS    TRANSFER WHEN FOUND               F5G40480    
       02712  2 00001 4 02710        TIX SUBP,4,1        TRY NEXT POSSIBILITY                         F5G40490    
       02713 -0 50000 2 01100        CAL INST-1,2        NOT FOUND, LOOK FORCONDITIONAL TRANSFER      F5G40500    
       02714 -0 32000 0 00400 6ANA   ANA FSTLT                                                        F5G40510    
       02715  0 60200 0 00457        SLW TMP10                                                        F5G40520    
       02716  0 50000 0 00457        CLA TMP10                                                        F5G40530    
       02717  0 40200 0 00401        SUB FSTT                                                         F5G40540    
       02720  0 10000 0 03162        TZE TTYPE           IS A CONDITIONAL TRANSFER                    F5G40550    
       02721  0 07400 4 02172 NOEND  TSX SCMI,4          NOT AN END OD BB COMPILE INST                F5G40560    
       02722  1 00004 2 02525        TXI FNDAS,2,4       IF IT NEEDS TO BE                            F5G40570    
       02723  0 50000 2 01075 TR3S   CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40580    
       02724  0 40200 0 00444        SUB NXTLOC                                                       F5G40590    
       02725  0 10000 0 03042        TZE SEQTR           YES                                          F5G40600    
       02726  0 02000 0 02721        TRA NOEND           NO                                           F5G40610    
                                          TRANSFER VECTOR      SEE SUBP+1 ABOVE                       F5G40620    
       02727  0 02000 0 03046        TRA GOTOV           TRA IS OP CODE                               F5G40630    
       02730  0 02000 0 03115        TRA IF2PS           PSE                                          F5G40640    
       02731  0 02000 0 03171        TRA IF2CS           DCT                                          F5G40650    
       02732  0 02000 0 03171        TRA IF2CS           RTT                                          F5G40660    
       02733  0 02000 0 03125        TRA MSECS           MSE                                          F5G40670    
       02734  0 02000 0 03226        TRA IF3CS           TZE                                          F5G40680    
       02735  0 02000 0 03324        TRA STPCSZ            HPR                                        F5G40690    
       02736  0 02000 0 02721 TRTIN  TRA NOEND           TSX                                          F5G40700    
                                         THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW     F5G40710    
       02737  0 02000 0 02752        TRA TRACS           TRAIS OP CODE                                F5G40720    
       02740  0 02000 0 03037        TRA DOCS            TXL                                          F5G40730    
       02741  0 02000 0 03042        TRA PAUSE           HPR                                          F5G40740    
       02742  0 02000 0 02755 TRTTR  TRA TRAC3           TTR                                          F5G40750    
       02743 -0 53400 4 00325 ENDBB  LXD LD4,4           THIS INST ENDS A BASIC                       F5G40760    
       02744  0 50000 2 01100        CLA INST-1,2        BLOCK    LOOKAT OP CODE                      F5G40770    
       02745 -0 32000 0 00335        ANA DECMK           FOR TYPE OF ENDING                           F5G40780    
       02746  0 40200 4 00400 6SUB   SUB LTROP+1,4                                                    F5G40790    
       02747  0 10000 4 02743        TZE TRTTR+1,4       TRANSFER IF IOUND                            F5G40800    
       02750  2 00001 4 02746        TIX 6SUB,4,1        TRY NEXT POSSIBILITY                         F5G40810    
       02751  0 02000 0 03042        TRA SEQTR                                                        F5G40820    
       02752 -0 50000 2 01077 TRACS  CAL INST-2,2        OP CODE IS TRA    SEE IF ADDRESS             F5G40830    
       02753 -0 32000 0 00403        ANA PFXMK           IS IN PROGRAM  UNCONDITITONAL TRANSFER       F5G40840    
       02754 -0 10000 0 02772        TNZ GOTON           IF TRANSFER     IT IS A GO TO N              F5G40850    
       02755 -0 63400 2 00447 TRAC3  SXD BBOX,2          THIS IS GO TO ALPHA                          F5G40860    
       02756 -0 50000 0 00443        CAL BBNO                                                         F5G40870    
       02757  0 77100 0 00022        ARS 18                                                           F5G40880    
       02760  0 60100 0 00462        STO ARG1            STORE BBNO AS ARGUMENT OF SAD                F5G40890    
       02761  0 07400 4 00067        TSX SE1,4                                                        F5G40900    
       02762 -0 50000 1 06442        CAL BBB,1                                                        F5G40910    
       02763  0 07400 4 00044        TSX SE6,4           GET SUCC. TABLE ENTRY                        F5G40920    
       02764 -0 50000 1 07555        CAL SUCC,1                                                       F5G40930    
       02765  0 07400 4 02126        TSX SAD,4           GO TO DETERMINE SYMBOLIC ADDRESS             F5G40940    
       02766 -0 53400 2 00447        LXD BBOX,2                                                       F5G40950    
       02767  0 60200 2 01077        SLW INST-2,2        TEPLACE SYMBOLIC ADDR.                       F5G40960    
       02770  0 07400 4 02172        TSX SCMI,4          COMPILE THE INSTR                            F5G40970    
       02771  1 00004 2 03544        TXI BEGBB,2,4       BEGINNING OF BB, INDEX TO NEXT INSTR         F5G40980    
       02772 -0 63400 2 00447 GOTON  SXD BBOX,2                                                       F5G40990    
       02773  0 50000 0 00443        CLA BBNO                                                         F5G41000    
       02774  0 07400 4 00070        TSX SE,4                                                         F5G41010    
       02775  0 50000 1 06442        CLA BBB,1           CHECK TO MAKE SURE THIS IS GO TO N           F5G41020    
       02776  0 77100 0 00041        ARS 33                                                           F5G41030    
       02777  0 40000 0 00315        ADD ONEA                                                         F5G41040    
       03000  0 10000 0 03002        TZE GON1                                                         F5G41050    
       03001  0 07400 4 00004        TSX 4,4       DIAGNOSTIC THIS ISNT GO N                          F5G41060    
       03002 -0 50000 1 06443 GON1   CAL BBB+1,1                                                      F5G41070    
       03003  0 77100 0 00041        ARS 33              PUT SXD CASE IN TMP10                        F5G41080    
       03004  0 60200 0 00457        SLW TMP10                                                        F5G41090    
                                          NOW ANY SXD BEFIR GO TO N ARE COMPILED                      F5G41100    
       03005 -0 53400 2 00324        LXD LD3,2                                                        F5G41110    
       03006  0 50000 2 00361 GON3   CLA VSTAG,2         DOES THIS THIS IR NEED SXD                   F5G41120    
       03007 -0 32000 0 00457        ANA TMP10                                                        F5G41130    
       03010  0 10000 0 03032        TZE GON2                                                         F5G41140    
       03011 -0 63400 1 00451        SXD ABOX,1          YES                                          F5G41150    
       03012  0 56000 0 00314        LDQ ZERO            REPLACE LOCATION BY 0 AND                    F5G41160    
       03013 -0 53400 4 00447        LXD BBOX,4          PUT LOCATION ON THE                          F5G41170    
       03014  0 50000 4 01101        CLA INST,4          SXD INST.                                    F5G41180    
       03015 -0 60000 4 01101        STQ INST,4          SXDINST                                      F5G41190    
       03016  0 07400 4 02367        TSX SK,4                                                         F5G41200    
       03017  0 50000 0 00411        CLA LSXD                                                         F5G41210    
       03020  0 07400 4 02367        TSX SK,4                                                         F5G41220    
       03021 -0 53400 1 00451        LXD ABOX,1                                                       F5G41230    
       03022 -0 50000 1 06444        CAL BBB+2,1                                                      F5G41240    
       03023 -0 32000 0 00342        ANA TAGMK                                                        F5G41250    
       03024 -0 50100 0 00415        ORA IDTAG                                                        F5G41260    
       03025  0 07400 4 02367        TSX SK,4                                                         F5G41270    
       03026 -0 50000 0 00457        CAL TMP10                                                        F5G41280    
       03027 -0 32000 2 00361        ANA VSTAG,2                                                      F5G41290    
       03030  0 07400 4 02367        TSX SK,4                                                         F5G41300    
       03031 -0 53400 1 00451        LXD ABOX,1                                                       F5G41310    
       03032  1 77777 1 03033 GON2   TXI GON2+1,1,-1                                                  F5G41320    
       03033  2 00001 2 03006        TIX GON3,2,1                                                     F5G41330    
       03034 -0 53400 2 00447        LXD BBOX,2                                                       F5G41340    
       03035  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST                             F5G41350    
       03036  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G41360    
       03037 -0 75400 0 00000 DOCS   PXD 0,0                                                          F5G41370    
       03040  0 60100 0 01101        STO SXST            T     RECORD THERE IS SEQUDNTIAL TRANSFER    F5G41380    
       03041  0 02000 0 02755        TRA TRAC3           OTHERWISE DO EXACTLY AS FOR TRA TRANSFER     F5G41390    
       03042 -0 75400 0 00000 PAUSE  PXD 0,0                                                          F5G41400    
                        03042 SEQTR  SYN PAUSE                                                        F5G41410    
       03043  0 60100 0 01101        STO SXST            RECORD SEQUENTIAL TRANSFER                   F5G41420    
       03044  0 07400 4 02172        TSX SCMI,4                                                       F5G41430    
       03045  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G41440    
       03046  0 07400 4 02172 GOTOV  TSX SCMI,4          COMPILE INST IF NECESSARY                    F5G41450    
       03047  0 50000 2 01076        CLA INST-3,2        FIND NO. OF BRANCHES IN VECTOR               F5G41460    
       03050  0 40200 0 00316        SUB LD1                                                          F5G41470    
       03051  0 62200 0 00463        STD MBOX                                                         F5G41480    
       03052  0 50000 0 00443        CLA BBNO                                                         F5G41490    
       03053  0 77100 0 00022        ARS 18              STORE BBNO FOR SAD ROUTINE                   F5G41500    
       03054  0 60100 0 00462        STO ARG1                                                         F5G41510    
       03055  1 00004 2 03056 GOV4   TXI GOV4+1,2,4                                                   F5G41520    
       03056 -0 63400 2 00450        SXD BBOX1,2                                                      F5G41530    
       03057  0 07400 4 00067        TSX SE1,4                                                        F5G41540    
       03060  0 50000 1 06442        CLA BBB,1                                                        F5G41550    
       03061  0 60200 0 00464        SLW SUCNO           STORE NO OF 1ST SUCCESSOR                    F5G41560    
       03062 -0 53400 2 00450        LXD BBOX1,2                                                      F5G41570    
       03063 -2 00144 2 03065 13TNX  TNX GOV1,2,ZINST    IS BLOCK OF INST ALL USED                    F5G41580    
       03064  0 07400 4 03472        TSX RDINS,4         T   READ NEXT BLOCK                          F5G41590    
       03065 -0 63400 2 00450 GOV1   SXD BBOX1,2                                                      F5G41600    
       03066 -0 50000 0 00464        CAL SUCNO                                                        F5G41610    
       03067  0 07400 4 00044        TSX SE6,4                                                        F5G41620    
       03070  0 50000 1 07555        CLA SUCC,1                                                       F5G41630    
       03071  0 07400 4 02126        TSX SAD,4           FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER     F5G41640    
       03072 -0 53400 2 00450        LXD BBOX1,2                                                      F5G41650    
       03073  0 60200 0 00457        SLW TMP10           STORE SYMBOLIC ADDR.                         F5G41660    
       03074 -0 53400 4 00463        LXD MBOX,4                                                       F5G41670    
       03075  2 00001 4 03101        TIX GOV2,4,1        IS THIS THE LAST TRANSFER                    F5G41680    
       03076  0 50000 2 01077        CLA INST-2,2                                                     F5G41690    
       03077  0 40200 0 00444        SUB NXTLOC          1ST INST IN NEXT BB, IS IT                   F5G41700    
       03100  0 10000 0 03104        TZE GOV3                                                         F5G41710    
       03101  0 50000 0 00457 GOV2   CLA TMP10           NO                                           F5G41720    
       03102  0 60100 2 01077        STO INST-2,2                                                     F5G41730    
       03103  0 07400 4 02172        TSX SCMI,4          COMPILE THE INXT                             F5G41740    
       03104  1 00004 2 03105 GOV3   TXI GOV3+1,2,4                                                   F5G41750    
       03105 -0 50000 0 00464        CAL SUCNO                                                        F5G41760    
       03106  0 40000 0 00316        ADD ONED                                                         F5G41770    
       03107  0 60200 0 00464        SLW SUCNO                                                        F5G41780    
       03110 -0 53400 4 00463        LXD MBOX,4                                                       F5G41790    
       03111  1 77777 4 03112 GOV5   TXI GOV5+1,4,-1                                                  F5G41800    
       03112 -0 63400 4 00463        SXD MBOX,4                                                       F5G41810    
       03113  3 00000 4 03063        TXH 13TNX,4,0       IS THIS LAST TRA OF VECTOR                   F5G41820    
       03114  0 02000 0 03544        TRA BEGBB           YES                                          F5G41830    
       03115  0 50000 2 01076 IF2PS  CLA INST-3,2        THIS IS PSE LOOK AT ADDRESS TO               F5G41840    
       03116 -0 32000 0 00404        ANA XXPSX           SEE IF IT IS 164-6                           F5G41850    
       03117  0 40200 0 00405        SUB XX16X                                                        F5G41860    
       03120  0 10000 0 03125        TZE PSTCS           YES, IT IS A TEST                            F5G41870    
       03121  0 50000 2 01076        CLA INST-3,2                                                     F5G41880    
       03122 -0 32000 0 00335        ANA DECMK           NO, SEE IF ADDR IS 360                       F5G41890    
       03123  0 40200 0 00406        SUB XX360                                                        F5G41900    
       03124 -0 10000 0 02721        TNZ NOEND           NO, THIS ISNT BB END                         F5G41910    
       03125  0 07400 4 02172 PSTCS  TSX SCMI,4          THIS IS A PSE TEST INST                      F5G41920    
                        03125 MSECS  SYN PSTCS           OR AN MSE INST                               F5G41930    
       03126  1 00004 2 03127 PS1    TXI PS1+1,2,4       INEDX TO CONSIEER 1ST TRANSFER               F5G41940    
       03127 -0 63400 2 00450        SXD BBOX1,2                                                      F5G41950    
       03130 -0 50000 0 00443        CAL BBNO                                                         F5G41960    
       03131  0 77100 0 00022        ARS 18                                                           F5G41970    
       03132  0 60100 0 00462        STO ARG1            STORE BBNO AS ARGUMENT FOR SAD               F5G41980    
       03133  0 07400 4 00067        TSX SE1,4                                                        F5G41990    
       03134 -0 50000 1 06442        CAL BBB,1                                                        F5G42000    
       03135  0 60100 0 00464        STO SUCNO           GETNUMBER OF 1ST SUCCESSOR                   F5G42010    
       03136  0 40000 0 00316        ADD LD1                                                          F5G42020    
       03137  0 07400 4 00044        TSX SE6,4           GET THE SECOND SUCC ENTRY                    F5G42030    
       03140  0 50000 1 07555        CLA SUCC,1                                                       F5G42040    
       03141  0 07400 4 02126        TSX SAD,4                                                        F5G42050    
       03142 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42060    
       03143  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42070    
       03144  0 07400 4 02172        TSX SCMI,4                                                       F5G42080    
       03145  1 00004 2 03146 PS2    TXI PS2+1,2,4       INCREASE INSTR INDEX                         F5G42090    
       03146  0 50000 2 01077        CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42100    
       03147  0 40200 0 00444        SUB NXTLOC                                                       F5G42110    
       03150  0 10000 0 03307        TZE PS3             YES, SKIP COMPILING THE INST                 F5G42120    
       03151 -0 63400 2 00450        SXD BBOX1,2         NO                                           F5G42130    
       03152  0 50000 0 00464        CLA SUCNO                                                        F5G42140    
       03153  0 07400 4 00044        TSX SE6,4                                                        F5G42150    
       03154  0 50000 1 07555        CLA SUCC,1                                                       F5G42160    
       03155  0 07400 4 02126        TSX SAD,4           DETERMINE THE SYMBOLIC ADDRESS               F5G42170    
       03156 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42180    
       03157  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42190    
       03160  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST.                            F5G42200    
       03161  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G42210    
       03162  0 50000 2 01077 TTYPE  CLA INST-2,2        IS THIS TRANSFER TO NEXT INST.               F5G42220    
       03163  0 34000 2 01101        CAS INST,2                                                       F5G42230    
       03164  0 02000 0 03166        TRA TTYP1                                                        F5G42240    
       03165  0 02000 0 02721        TRA NOEND           YES                                          F5G42250    
       03166  0 40200 0 00402 TTYP1  SUB PCC                                                          F5G42260    
       03167  0 10000 0 02721        TZE NOEND           YES                                          F5G42270    
       03170  0 02000 0 03173        TRA CNOTR           NO, IS CONDITIONAL TRANSFER                  F5G42280    
       03171  0 07400 4 02172 IF2CS  TSX SCMI,4          THIS IS DCT OR RTT                           F5G42290    
       03172  1 00004 2 03173 RT1    TXI RT1+1,2,4       INDEX TO CONSIDER 1ST TRANSFER               F5G42300    
       03173 -0 63400 2 00450 CNOTR  SXD BBOX1,2      STORE BBNO. AS ARGUMENT                         F5G42310    
       03174 -0 50000 0 00443        CAL BBNO            STORE BBNO AS ARGUMENT                       F5G42320    
       03175  0 77100 0 00022        ARS 18              OF SAD                                       F5G42330    
       03176  0 60100 0 00462        STO ARG1                                                         F5G42340    
       03177  0 07400 4 00067        TSX SE1,4                                                        F5G42350    
       03200 -0 50000 1 06442        CAL BBB,1                                                        F5G42360    
       03201  0 60100 0 00464        STO SUCNO                                                        F5G42370    
       03202  0 07400 4 00044        TSX SE6,4           GET THE 1ST SUCC ENTRY                       F5G42380    
       03203  0 50000 1 07555        CLA SUCC,1                                                       F5G42390    
       03204  0 07400 4 02126        TSX SAD,4                                                        F5G42400    
       03205 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42410    
       03206  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42420    
       03207  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST                             F5G42430    
       03210  1 00004 2 03211 RT2    TXI RT2+1,2,4                                                    F5G42440    
       03211  0 50000 2 01077        CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42450    
       03212  0 40200 0 00444        SUB NXTLOC                                                       F5G42460    
       03213  0 10000 0 03307        TZE PS3             YES, SKIP COMPILING THE INST                 F5G42470    
       03214 -0 63400 2 00450        SXD BBOX1,2                                                      F5G42480    
       03215  0 50000 0 00464        CLA SUCNO                                                        F5G42490    
       03216  0 40000 0 00316        ADD LD1                                                          F5G42500    
       03217  0 07400 4 00044        TSX SE6,4                                                        F5G42510    
       03220  0 50000 1 07555        CLA SUCC,1                                                       F5G42520    
       03221  0 07400 4 02126        TSX SAD,4           DETERMINE THE SYMBOLIC ADDR                  F5G42530    
       03222 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42540    
       03223  0 60200 2 01077        SLW INST-2,2                                                     F5G42550    
       03224  0 07400 4 02172        TSX SCMI,4          COMPILE THE TRANSFER                         F5G42560    
       03225  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G42570    
       03226 -0 63400 2 00450 IF3CS  SXD BBOX1,2         THIS IS A TZE INST I. E. AN IF               F5G42580    
       03227 -0 50000 0 00443        CAL BBNO                                                         F5G42590    
       03230  0 77100 0 00022        ARS 18              STORE BB NO. FOR SUBROUTINE                  F5G42600    
       03231  0 60100 0 00462        STO ARG1                                                         F5G42610    
       03232  0 07400 4 00067        TSX SE1,4           ARGUMENT                                     F5G42620    
       03233 -0 50000 1 06442        CAL BBB,1                                                        F5G42630    
       03234  0 60100 0 00464        STO SUCNO                                                        F5G42640    
       03235  0 40000 0 00316        ADD LD1             GET THE SUCC ENTRY                           F5G42650    
       03236  0 07400 4 00044        TSX SE6,4           FOR THE TZE                                  F5G42660    
       03237  0 50000 1 07555        CLA SUCC,1                                                       F5G42670    
       03240  0 07400 4 02126        TSX SAD,4                                                        F5G42680    
       03241 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42690    
       03242  0 60200 2 01077        SLW INST-2,2        REPLACE THE SYMBOLIC ADDREAS                 F5G42700    
       03243  0 07400 4 02172        TSX SCMI,4          C0MPILE THE TZE                              F5G42710    
       03244  1 00004 2 03245 IF1    TXI IF1+1,2,4                                                    F5G42720    
       03245 -0 50000 2 01100        CAL INST-1,2        CHECK NEXT INST TO SEE                       F5G42730    
       03246 -0 32000 0 00343        ANA LFTMSK          IF IT IS TPL                                 F5G42740    
       03247  0 60200 0 00457        SLW TMP10                                                        F5G42750    
       03250  0 50000 0 00457        CLA TMP10                                                        F5G42760    
       03251  0 40200 0 00344        SUB LTPL                                                         F5G42770    
       03252  0 10000 0 03254        TZE 16CLA                                                        F5G42780    
       03253  0 07400 4 00004 IFHPR  TSX 4,4             IF NOT, DIAGNOSTIC                           F5G42790    
       03254  0 50000 2 01077 16CLA  CLA INST-2,2        DOES THIS EXIT GO TO NEXT BB                 F5G42800    
       03255  0 40200 0 00444        SUB NXTLOC                                                       F5G42810    
       03256 -0 10000 0 03265        TNZ IF2                                                          F5G42820    
       03257  0 50000 2 01073        CLA INST-6,2        YES, DOES NEXT ONE ALSO                      F5G42830    
       03260  0 40200 0 00444        SUB NXTLOC                                                       F5G42840    
       03261 -0 10000 0 03265        TNZ IF2                                                          F5G42850    
       03262 -0 75400 0 00000        PXD 0,0             YES, RECORD SEQUENTIAL TRANSFER              F5G42860    
       03263  0 60100 0 01101        STO SXST                                                         F5G42870    
       03264  1 00010 2 03544        TXI BEGBB,2,8                                                    F5G42880    
       03265 -0 63400 2 00450 IF2    SXD BBOX1,2         COMPILE THE TPL                              F5G42890    
       03266  0 50000 0 00464        CLA SUCNO                                                        F5G42900    
       03267  0 07400 4 00044        TSX SE6,4                                                        F5G42910    
       03270  0 50000 1 07555        CLA SUCC,1                                                       F5G42920    
       03271  0 07400 4 02126        TSX SAD,4           FIND AND                                     F5G42930    
       03272 -0 53400 2 00450        LXD BBOX1,2         REPLACE                                      F5G42940    
       03273  0 60200 2 01077        SLW INST-2,2        SYMBOLIC ADDRESS                             F5G42950    
       03274  0 07400 4 02172        TSX SCMI,4                                                       F5G42960    
       03275  1 00004 2 03276 IF3    TXI IF3+1,2,4                                                    F5G42970    
       03276 -0 50000 2 01100        CAL INST-1,2        IS THIS TRA                                  F5G42980    
       03277 -0 32000 0 00343        ANA LFTMSK                                                       F5G42990    
       03300  0 60200 0 00457        SLW TMP10                                                        F5G43000    
       03301  0 50000 0 00457        CLA TMP10                                                        F5G43010    
       03302  0 40200 0 00350        SUB LTRA                                                         F5G43020    
       03303 -0 10000 0 03253        TNZ IFHPR           IF NOT , STOP                                F5G43030    
       03304  0 50000 2 01077        CLA INST-2,2        YES IT IS   IS THIS A                        F5G43040    
       03305  0 40200 0 00444        SUB NXTLOC          SEQUENTIAL TRANSFER                          F5G43050    
       03306 -0 10000 0 03312        TNZ IF4                                                          F5G43060    
       03307 -0 75400 0 00000 PS3    PXD 0,0             YES, RECORD THAT                             F5G43070    
       03310  0 60100 0 01101        STO SXST                                                         F5G43080    
       03311  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43090    
       03312 -0 63400 2 00450 IF4    SXD BBOX1,2         CONPILE THE TRA                              F5G43100    
       03313  0 50000 0 00464        CLA SUCNO                                                        F5G43110    
       03314  0 40000 0 00323        ADD LD2                                                          F5G43120    
       03315  0 07400 4 00044        TSX SE6,4                                                        F5G43130    
       03316  0 50000 1 07555        CLA SUCC,1          IF NECESSARY                                 F5G43140    
       03317  0 07400 4 02126        TSX SAD,4           MODIFY THE                                   F5G43150    
       03320 -0 53400 2 00450        LXD BBOX1,2         SYMBOLIC                                     F5G43160    
       03321  0 60200 2 01077        SLW INST-2,2        ADDRESS                                      F5G43170    
       03322  0 07400 4 02172        TSX SCMI,4                                                       F5G43180    
       03323  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43190    
       03324  0 50000 2 01074 STPCSZ CLA INST-5,2                                                     F5G43200    
       03325  0 40200 0 00350        SUB LTRA                                                         F5G43210    
       03326 -0 10000 0 02721        TNZ NOEND                                                        F5G43220    
       03327  0 50000 2 01101        CLA INST,2                                                       F5G43230    
       03330  0 40200 2 01073        SUB INST-6,2                                                     F5G43240    
       03331 -0 10000 0 02721        TNZ NOEND                                                        F5G43250    
       03332  0 07400 4 02172 STPCS  TSX SCMI,4          COMPILE THE TWO INXT                         F5G43260    
       03333  1 00004 2 03334 STP1   TXI STP1+1,2,4      AND GO TO STAET BB                           F5G43270    
       03334  0 07400 4 02172        TSX SCMI,4                                                       F5G43280    
       03335  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43290    
                                          THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND       F5G43300    
                                          SUBROUTINE CALL SEQUENCES                                   F5G43310    
       03336 -0 50000 2 01100 CI7A   CAL INST-1,2        IS THIS AN SXD INST                          F5G43320    
       03337 -0 32000 0 00343        ANA LFTMSK                                                       F5G43330    
       03340  0 60200 0 00457        SLW TMP10                                                        F5G43340    
       03341  0 50000 0 00457        CLA TMP10                                                        F5G43350    
       03342  0 40200 0 00411        SUB LSXD                                                         F5G43360    
       03343 -0 10000 0 03412        TNZ CI7C                                                         F5G43370    
       03344 -0 50000 2 01076        CAL INST-3,2        YES, DOES IT HAVE TAG 4                      F5G43380    
       03345 -0 32000 0 00337        ANA ADDMK                                                        F5G43390    
       03346  0 40200 0 00320        SUB L4                                                           F5G43400    
       03347 -0 10000 0 03412        TNZ CI7C                                                         F5G43410    
       03350  0 50000 0 00460        CLA CIND            YES, IS IR4 NECESSARY                        F5G43420    
       03351  0 12000 0 03401        TPL DLSXD                                                        F5G43430    
       03352 -0 50000 2 01074        CAL INST-5,2        YES, IS THE NEXT INST A TSX                  F5G43440    
       03353 -0 32000 0 00343        ANA LFTMSK                                                       F5G43450    
       03354  0 60200 0 00457        SLW TMP10                                                        F5G43460    
       03355  0 50000 0 00457        CLA TMP10                                                        F5G43470    
       03356  0 40200 0 00351        SUB LTSX                                                         F5G43480    
       03357 -0 10000 0 03412        TNZ CI7C                                                         F5G43490    
       03360  0 50000 2 01101        CLA INST,2                                                       F5G43500    
       03361  0 07400 4 02367        TSX SK,4            YES, COMPILE AN SXD INSTR , TAG 4, TO        F5G43510    
       03362  0 50000 0 00411        CLA LSXD            SPECIAL TEMP. STORAGE LOC.                   F5G43520    
       03363  0 07400 4 02367        TSX SK,4                                                         F5G43530    
       03364  0 50000 0 00354        CLA GSYM                                                         F5G43540    
       03365  0 07400 4 02367        TSX SK,4                                                         F5G43550    
       03366  0 50000 0 00355        CLA T4SYM                                                        F5G43560    
       03367  0 07400 4 02367        TSX SK,4                                                         F5G43570    
       03370  0 50000 2 01075 CMTSX  CLA INST-4,2        COMPILE THE TSX INST                         F5G43580    
       03371  0 07400 4 02367 CMTS1  TSX SK,4                                                         F5G43590    
       03372  0 50000 2 01074        CLA INST-5,2                                                     F5G43600    
       03373  0 07400 4 02367        TSX SK,4                                                         F5G43610    
       03374  0 50000 2 01073        CLA INST-6,2                                                     F5G43620    
       03375  0 07400 4 02367        TSX SK,4                                                         F5G43630    
       03376  0 50000 2 01072        CLA INST-7,2                                                     F5G43640    
       03377  0 07400 4 02367        TSX SK,4                                                         F5G43650    
       03400  1 00010 2 02525 CI7B   TXI FNDAS,2,8       LOOK AT NEXT INST   LXF                      F5G43660    
       03401  0 50000 2 01101 DLSXD  CLA INST,2                                                       F5G43670    
       03402  0 07400 4 02367        TSX SK,4    IR4 NOT NECESS.  COMPILE BSS 0.                      F5G43680    
       03403  0 50000 0 00352        CLA LBSS                                                         F5G43690    
       03404  0 07400 4 02367        TSX SK,4                                                         F5G43700    
       03405  0 50000 0 00314        CLA ZERO                                                         F5G43710    
       03406  0 07400 4 02367        TSX SK,4                                                         F5G43720    
       03407  0 50000 0 00314        CLA ZERO                                                         F5G43730    
       03410  0 07400 4 02367        TSX SK,4                                                         F5G43740    
       03411  0 02000 0 03370        TRA CMTSX                                                        F5G43750    
       03412 -0 50000 2 01100 CI7C   CAL INST-1,2        IS THIS AN LXD                               F5G43770    
       03413 -0 32000 0 00343        ANA LFTMSK                                                       F5G43780    
       03414  0 60200 0 00457        SLW TMP10                                                        F5G43790    
       03415  0 50000 0 00457        CLA TMP10                                                        F5G43800    
       03416  0 40200 0 00414        SUB LLXD                                                         F5G43810    
       03417 -0 10000 0 02676        TNZ CI7             NO, GO TO COMPILE THE INST                   F5G43820    
       03420 -0 50000 2 01076        CAL INST-3,2        YES, IS THE TAG 4                            F5G43830    
       03421 -0 32000 0 00337        ANA ADDMK                                                        F5G43840    
       03422  0 40200 0 00320        SUB L4                                                           F5G43850    
       03423 -0 10000 0 02676        TNZ CI7             NO, G0 TO C0MPILE THE INST.                  F5G43860    
       03424  0 50000 0 00460        CLA CIND            YES.  IS IR4 NECESSARY.                      F5G43870    
       03425  0 12000 0 03460        TPL CI7E            NO, GO TO REPRESS LATER COMPILING OF INST    F5G43880    
       03426 -0 76000 0 00141        MSE 97                CHECK FOR LXP WHICH WAS LXD-D.             F5G43881    
       03427  0 02000 0 03432        TRA CI7C1             NO,SUCH.                                   F5G43882    
       03430  0 76000 0 00003        SSP                   THERE WAS, SUPPRESS LATER COMPILING        F5G43883    
       03431  0 02000 0 03460        TRA CI7E              OF INST.                                   F5G43884    
       03432 -0 50000 2 01074  CI7C1 CAL INST-5,2          IS FOLLOWING INSTR AN SXD.                 F5G43885    
       03433 -0 32000 0 00343        ANA LFTMSK                                                       F5G43900    
       03434  0 60200 0 00457        SLW TMP10                                                        F5G43910    
       03435  0 50000 0 00457        CLA TMP10                                                        F5G43920    
       03436  0 40200 0 00411        SUB LSXD                                                         F5G43930    
       03437 -0 10000 0 03450        TNZ CI7D                                                         F5G43940    
       03440 -0 50000 2 01072        CAL INST-7,2        YES, IS THE TAG A 4                          F5G43950    
       03441 -0 32000 0 00337        ANA ADDMK                                                        F5G43960    
       03442  0 40200 0 00320        SUB L4                                                           F5G43970    
       03443 -0 10000 0 03450        TNZ CI7D                                                         F5G43980    
       03444  0 50000 2 01075        CLA INST-4,2    IS SXD FIRST INSTR                               F5G43990    
       03445  0 40200 0 00444        SUB NXTLOC   OF NEXT BB.                                         F5G44000    
       03446  0 10000 0 03450        TZE CI7D     YES, COMPILE LX.                                    F5G44010    
       03447  1 00010 2 02525        TXI FNDAS,2,8     NO--DELETE LX, SX.                             F5G44020    
       03450  0 50000 0 00314 CI7D   CLA ZERO            CLMPILE THE LXO WITH GARBAGE                 F5G44030    
       03451  0 07400 4 02367        TSX SK,4            SYMBOLADDEAA AND TAG 4                       F5G44040    
       03452  0 50000 0 00414        CLA LLXD                                                         F5G44050    
       03453  0 07400 4 02367        TSX SK,4                                                         F5G44060    
       03454  0 50000 0 00354        CLA GSYM                                                         F5G44070    
       03455  0 07400 4 02367        TSX SK,4                                                         F5G44080    
       03456  0 50000 0 00355        CLA T4SYM                                                        F5G44090    
       03457  0 07400 4 02367        TSX SK,4                                                         F5G44100    
       03460  0 60100 0 00461 CI7E   STO CPIND           SURPRESS LATER C0MPILING INST  SET +         F5G44110    
       03461  0 02000 0 02700        TRA CKLOC                                                        F5G44120    
       03462  0 50000 2 01076 CI3A   CLA INST-3,2        IS THE S-TAG EQUAL TO 4                      F5G44130    
       03463  0 60200 0 00461        SLW CPIND           RECORD INST. NOT TO BE COMPILED              F5G44140    
       03464 -0 32000 0 00337        ANA ADDMK                                                        F5G44150    
       03465  0 40200 0 00320        SUB L4                                                           F5G44160    
       03466 -0 10000 0 02667        TNZ CI6                                                          F5G44170    
       03467 -0 75400 0 00000        PXD 0,0             YES, RECORD IR4 NOT NECESSARY                F5G44180    
       03470  0 60100 0 00460        STO CIND                                                         F5G44190    
       03471  0 02000 0 02667        TRA CI6             SINCE LXP OR DED, SKIP COMPILING INST.       F5G44200    
                                          THIS R0UTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS   F5G44210    
                                          AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK         F5G44220    
       03472 -0 63400 4 00445 RDINS  SXD OUTBX,4         SAVE RETURN INDEX                            F5G44230    
       03473  0 50000 0 00320        CLA L4  SET ERRBX FOR 5 TRIES                                    F5G44240    
       03474  0 60100 0 00446        STO ERRBX                                                        F5G44250    
       03475 -0 63400 1 00447        SXD BBOX,1          SAVE INDEX 1                                 F5G44260    
       03476 -0 53400 4 00331        LXD LD12,4          SHIFT EXTRA INST FROM END                    F5G44270    
       03477  0 50000 4 00735 D1CLA  CLA NDINS,4         OF BLOCK TO BEGINNING                        F5G44280    
       03500  0 60100 4 01101        STO INST,4                                                       F5G44290    
       03501  2 00001 4 03477        TIX D1CLA,4,1       IS BLOCK SHIFTED                             F5G44300    
       03502  0 76200 0 00224 D1RDS  RTB INSTTP          SELECT INST TAPE                             F5G44310    
       03503  0 53400 1 00362        LXA RECSC,1         YES, SET INDEX FOR NO. OF RECORDS            F5G44320    
       03504  0 70000 4 01065 D1CPY  CPY INST-12,4       COPY BLOCK OF INST                           F5G44330    
       03505  1 00001 4 03504        TXI D1CPY,4,1       SET FOR NEXT WORD                            F5G44340    
       03506  0 02000 0 03516        TRA D2END           END OF FILE                                  F5G44350    
       03507 -2 00001 1 03512        TNX D1BCK,1,1       END OF RECORD    IS IT END OF LAST RECORD    F5G44360    
       03510  0 76200 0 00224        RTB INSTTP          NO, READ NEXT RECORD                         F5G44370    
       03511  0 02000 0 03504        TRA D1CPY                                                        F5G44380    
       03512  0 76600 0 00333 D1BCK  IOD                 TEST FOR TAPE ERROR                          F5G44390    
       03513 -0 76000 0 00012        RTT                                                              F5G44400    
       03514  0 02000 0 03530        TRA INERR           ERROR                                        F5G44410    
       03515  3 00143 4 03525        TXH D1XX,4,ZINST-1   IF 3RD FULL REC. NOT END OF FILE            F5G44420    
       03516 -0 75400 4 00000 D2END  PXD 0,4             REACHED END OF INSTR                         F5G44430    
       03517  0 40000 0 00327        ADD LD8             PUT TEST FOR LAST INST                       F5G44440    
       03520  0 62200 0 02525        STD FNDAS INTO MAIN ROUTINE                                      F5G44450    
       03521  0 50000 0 00363        CLA LCOUT           PUT ADDR OF FINAL EXIT INTO  MAIN            F5G44460    
       03522  0 60100 0 02526        STO FNDAS+1         ROUTINE                                      F5G44470    
       03523  0 50000 0 00336        CLA ENDMK                                                        F5G44480    
       03524  0 60100 4 01065        STO INST-12,4                                                    F5G44490    
       03525 -0 53400 4 00445 D1XX   LXD OUTBX,4         NO ERROR, RESTORE INDEX REGISTERS            F5G44500    
       03526 -0 53400 1 00447        LXD BBOX,1                                                       F5G44510    
       03527  0 02000 4 00001        TRA 1,4             RETURN TO MAIN ROUTINE                       F5G44520    
       03530  0 50000 0 00446 INERR  CLA ERRBX           ERROR IN READING  IS THIS 1ST TRY            F5G44530    
       03531  0 10000 0 03540        TZE HTRD2           TO READ IN                                   F5G44540    
       03532  0 40200 0 00315        SUB ONEA            YES, STORE INDICATION AND TRY AGAIN          F5G44550    
       03533  0 60100 0 00446        STO ERRBX                                                        F5G44560    
       03534  0 76400 0 00204 D2BST  BST INSTTP          BACKSPACE OVER RECORDS JUST READ             F5G44570    
       03535  1 00001 1 03536        TXI D2TIX,1,1                                                    F5G44580    
       03536 -2 00001 1 03534 D2TIX  TNX D2BST,1,RECNO                                                F5G44590    
       03537  0 02000 0 03502        TRA D1RDS           TAPE BACKSPACED   TRY AGAIN                  F5G44600    
       03540  0 07400 4 00004 HTRD2  TSX 4,4             ERROR ON 5TH TRY  DIAGNOSTIC                 F5G44610    
       03541 -0 53400 2 00331 PASS2  LXD LD12,2                                                       F5G44620    
       03542  0 77200 0 00203        REW OTAPE                                                        F5G44630    
       03543  1 00145 2 03544 1TXI   TXI 1TXI+1,2,ZINST+1                                             F5G44640    
                                          INITIALIZE FOR START OF BB                                  F5G44650    
       03544 -0 63400 2 00450 BEGBB  SXD BBOX1,2         STORE INDEX OF POSITION ON ONST TABOE        F5G44660    
       03545  0 50000 0 00316        CLA ONED                                                         F5G44670    
       03546  0 40000 0 00443        ADD BBNO                                                         F5G44680    
       03547  0 60100 0 00443        STO BBNO                                                         F5G44690    
       03550  0 77100 0 00022        ARS 18              WAS THIS THE LAST BB                         F5G44700    
       03551  0 40200 0 07774        SUB KEYS                                                         F5G44710    
       03552  0 40000 0 00315        ADD ONEA                                                         F5G44720    
       03553  0 10000 0 04413        TZE LSTBB           YES, GL  GO WRITE PARTIAL BLOLK              F5G44730    
       03554  0 50000 0 01101        CLA SXST              NO                                         F5G44740    
       03555 -0 12000 0 03560        TMI BEGBBY                                                       F5G44750    
       03556  0 50000 0 00337        CLA ADDMK                                                        F5G44760    
       03557  0 60100 0 01101        STO SXST                                                         F5G44770    
       03560  0 50000 0 00443 BEGBBY CLA BBNO                                                         F5G44780    
       03561  0 07400 4 00070        TSX SE,4                                                         F5G44790    
       03562 -0 50000 1 06444        CAL BBB+2,1         GET ENTRANCE REQUIREMENT                     F5G44800    
       03563  0 77100 0 00022        ARS 18              FOR IR4                                      F5G44810    
       03564  0 40200 0 00340        SUB STMSK           STORE + OR - IF IR4                          F5G44820    
       03565  0 60100 0 00460        STO CIND            ISNT OR IS NECESSARY                         F5G44830    
       03566  0 50000 0 00315        CLA ONEA            RECORD THERE ISNT HANGING TRA 0              F5G44840    
       03567  0 60100 0 00660        STO SLV3                                                         F5G44850    
       03570 -0 50000 0 00443        CAL BBNO            FIND THE 1ST INST IN NEXT                    F5G44860    
       03571  0 40000 0 00316        ADD ONED                                                         F5G44870    
       03572  0 07400 4 00070        TSX SE,4            BB                                           F5G44880    
       03573  0 50000 1 06447        CLA BBB+5,1                                                      F5G44890    
       03574  0 60100 0 00444        STO NXTLOC                                                       F5G44900    
                                          DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5            F5G44910    
       03575  0 56000 0 00314 Z1     LDQ ZERO            INITIALIZE THE EXISTENCE                     F5G44920    
       03576 -0 60000 0 00667        STQ Z1V5            INDICATOR WORD                               F5G44930    
       03577  0 50000 1 06442        CLA BBB,1           GET AND STORE NO. OF 1ST PRED IN             F5G44940    
       03600  0 62100 0 00665        STA Z1V2            NEXT BB                                      F5G44950    
       03601 -0 50000 0 00443        CAL BBNO                                                         F5G44960    
       03602  0 07400 4 00070        TSX SE,4                                                         F5G44970    
       03603 -0 50000 1 06442        CAL BBB,1           STORE THE NO OF                              F5G44980    
       03604  0 62100 0 00666        STA Z1V3            1ST PRED IN                                  F5G44990    
       03605  0 62100 0 00670        STA Z1V8            THIS BB                                      F5G45000    
       03606  0 50000 0 00666        CLA Z1V3                                                         F5G45010    
       03607  0 34000 0 00665 Z15    CAS Z1V2            IS THIS PRED IN SAME BB                      F5G45020    
       03610  0 02000 0 03612        TRA Z12             YES                                          F5G45030    
       03611  0 02000 0 03626        TRA Z2              NO                                           F5G45040    
       03612  0 07400 4 00055 Z12    TSX SE5,4                                                        F5G45050    
       03613  0 50000 1 07337        CLA PRED,1          DETERMINE THE                                F5G45060    
       03614 -0 32000 0 00332        ANA LT7             LXD CASE                                     F5G45070    
       03615  0 76700 0 00003        ALS 3                                                            F5G45080    
       03616 -0 73400 4 00000        PDX 0,4                                                          F5G45090    
       03617 -0 50000 0 00416        CAL Z1K3            STORE BIT AS INDICATOR                       F5G45100    
       03620  0 77100 4 00007        ARS 7,4             FOR THIS                                     F5G45110    
       03621 -0 60200 0 00667        ORS Z1V5            LXD CASE                                     F5G45120    
       03622  0 50000 0 00666        CLA Z1V3                                                         F5G45130    
       03623  0 40000 0 00315        ADD ONEA            ARRANGE TO DEAL WITH NEXT                    F5G45140    
       03624  0 62100 0 00666        STA Z1V3            PRED                                         F5G45150    
       03625  0 02000 0 03607        TRA Z15                                                          F5G45160    
                                          THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN   F5G45170    
                                          Z1V5 BY Z1                                                  F5G45180    
       03626  0 56000 0 00314 Z2     LDQ ZERO                                                         F5G45190    
       03627  0 53400 1 00422        LXA Z2K2,1                                                       F5G45200    
       03630 -0 60000 1 00715 Z21    STQ LLIND,1         SET THE 3 INDEXDS TO THE SUB                 F5G45210    
       03631  0 50000 1 00422        CLA Z2K1+3,1        BOTTOM POSITIONS                             F5G45220    
       03632  0 40200 0 00316        SUB ONED            IN THE 3 LISTS AND ALL                       F5G45230    
       03633  0 60100 1 00674        STO Z2V1+3,1        INDICATORS TO SAY COMPILED                   F5G45240    
       03634  2 00001 1 03630        TIX Z21,1,1                                                      F5G45250    
       03635 -0 53400 1 00331        LXD LD12,1                                                       F5G45260    
       03636  0 50000 0 00416        CLA MZE             PLACE -0 S IN THE                            F5G45270    
       03637  0 60100 1 00712 Z28    STO LIST1+12,1      LXD LISTS                                    F5G45280    
       03640  2 00001 1 03637        TIX Z28,1,1                                                      F5G45290    
       03641 -0 53400 1 00422        LXD Z2K2,1          SET TO BEGINNING OF CASE LIST                F5G45300    
       03642  0 56000 0 00667 Z25    LDQ Z1V5            DID                                          F5G45310    
       03643  0 50000 1 00432        CLA CASE+7,1        THIS                                         F5G45320    
       03644  0 73400 2 00000        PAX 0,2             CASE                                         F5G45330    
       03645 -0 77300 2 00007        RQL 7,2             OCCURR                                       F5G45340    
       03646  0 16200 0 03711        TQP Z26                                                          F5G45350    
       03647  0 50000 0 00434        CLA Z2K5            YES, SET NO OF ONES IN                       F5G45360    
       03650  0 60100 0 00674        STO Z2V2            DIFFERENCE TO HIGH NUMBER                    F5G45370    
       03651  0 53400 2 00422        LXA Z2K2,2          INITIALIZE TO 1ST LIST                       F5G45380    
       03652  0 56000 0 00314    Z23 LDQ ZERO        IS P004                                          F5G45390    
       03653  0 50000 2 00674        CLA Z2V1+3,2                                                     F5G45400    
       03654 -0 73400 4 00000   R004 PDX 0,4    QUANTITY IN THE LIST                                  F5G45410    
       03655  0 50000 4 00676        CLA LIST1,4         IS THE TOP                                   F5G45420    
       03656 -0 32000 1 00432        ANA CASE+7,1        YES, DETERMINE                               F5G45430    
       03657 -0 40000 4 00676        SBM LIST1,4         CONTAINED IN THIS                            F5G45440    
       03660 -0 10000 0 03676        TNZ Z27             CASE                                         F5G45450    
       03661  0 50000 1 00432        CLA CASE+7,1        YES, DETERMINE                               F5G45460    
       03662  0 40200 4 00676        SUB LIST1,4         THE NO.                                      F5G45470    
       03663  0 76500 0 00025        LRS 21              OF ONES                                      F5G45480    
       03664  0 20000 0 00433        MPY Z2K4            IN THE                                       F5G45490    
       03665  0 62100 0 03667        STA Z22 LOGICAL                                                  F5G45500    
       03666  0 50000 0 00432        CLA Z2K3            DIFFERENCE                                   F5G45510    
       03667  0 77100 0 00000 Z22    ARS SET                                                          F5G45520    
       03670 -0 32000 0 00434        ANA Z2K5                                                         F5G45530    
       03671  0 34000 0 00674        CAS Z2V2              IS THE NUMBER OF ONES IN THE               F5G45540    
       03672  0 02000 0 03676        TRA Z27               DIFFERENCE LESS THAN OR EQUAL TO           F5G45550    
       03673  0 02000 0 03676        TRA Z27               THE PREVIOUS MINIMUM.  NO                  F5G45560    
       03674  0 60100 0 00674        STO Z2V2            YES, STORE NEW MIN                           F5G45570    
       03675 -0 63400 2 00675        SXD Z2V3,2          STORE INDEX OF LIST OF GIVING NEW MIN        F5G45580    
       03676  2 00001 2 03652 Z27    TIX Z23,2,1         COUNT TO 3 LISTS   ARE WE THRU               F5G45590    
       03677 -0 53400 2 00675        LXD Z2V3,2          UES, GET INDEX OF LIST WITH MIN DIFF         F5G45600    
       03700  0 50000 2 00674        CLA Z2V1+3,2        STIRE                                        F5G45610    
       03701 -0 73400 4 00000        PDX 0,4             THIS                                         F5G45620    
       03702  0 50000 1 00432        CLA CASE+7,1        CASE AT TOP OF                               F5G45630    
       03703  1 00001 4 03704 Z24    TXI Z24+1,4,1       THAT LIST                                    F5G45640    
       03704  0 60100 4 00676        STO LIST1,4                                                      F5G45650    
       03705 -0 75400 4 00000        PXD 0,4             STORE INDEX OF TOP                           F5G45660    
       03706  0 60100 2 00674        STO Z2V1+3,2        POSITI0N IN THAT LIST                        F5G45670    
       03707  0 50000 0 00416        CLA MZE             STORE INDICATION THAT THE                    F5G45680    
       03710  0 60100 2 00715        STO LLIND,2         LIST IS TO BE COMPILED                       F5G45690    
       03711  2 00001 1 03642 Z26    TIX Z25,1,1         COUNT THE 7 CASES                            F5G45700    
                                          EXPAND TNE LXD LISTS                                        F5G45710    
       03712  0 50000 0 00434 Z3     CLA Z2K5            IS THE                                       F5G45720    
       03713 -0 40000 0 00700        SBM LIST1+2         BOTTOM ENTRY OF                              F5G45730    
       03714  0 10000 0 04003        TZE Z307            LIST1 A CASE 7                               F5G45740    
       03715  0 50000 0 00700        CLA LIST1+2         NO, DO THE BOTTOMS                           F5G45750    
       03716 -0 32000 0 00704        ANA LIST2+2         OF LISTS 1 AND 2 HAVE                        F5G45760    
       03717  0 10000 0 03766        TZE Z35             A NON ZERO INTERSECTION                      F5G45770    
       03720  0 34000 0 00700        CAS LIST1+2         YES, DOES INTERSECTION EQUAL 1               F5G45780    
       03721  0 02000 0 03723        TRA Z31                                                          F5G45790    
       03722  0 02000 0 03760        TRA Z33             YES                                          F5G45800    
       03723  0 34000 0 00704 Z31    CAS LIST2+2         IS IT EQUAL TO BOTTOM OF 2                   F5G45810    
       03724  0 02000 0 03726        TRA Z32                                                          F5G45820    
       03725  0 02000 0 03763        TRA Z34             YES                                          F5G45830    
       03726  0 60100 0 00701 Z32    STO LIST1+3         STORE INTERSECTION IN SUB1                   F5G45840    
       03727 -0 76000 0 00003        SSM                 POSITITON AND -(INTER.) IN                   F5G45850    
       03730  0 60100 0 00705        STO LIST2+3         SUB2 POS.                                    F5G45860    
       03731  0 02000 0 04015        TRA Z306                                                         F5G45870    
       03732 -0 76000 0 00003 Z38    SSM                 ENTER -INTER1 AND 3                          F5G45880    
       03733  0 60100 0 00711        STO LIST3+3         IN SUB3 POS.                                 F5G45890    
       03734  0 02000 0 04015        TRA Z306                                                         F5G45900    
       03735 -0 76000 0 00003 Z39    SSM                 ENTER - INTER 1 AND 3                        F5G45910    
       03736  0 60100 0 00701        STO LIST1+3         INSUV1 POS.                                  F5G45920    
       03737  0 02000 0 04015        TRA Z306                                                         F5G45930    
       03740  0 50000 0 00704 Z300   CLA LIST2+2         DO BOTTOM ENTRIES                            F5G45940    
       03741 -0 32000 0 00710        ANA LIST3+2         OF 2 AND 3 HAVE                              F5G45950    
       03742  0 10000 0 04015        TZE Z306            NONZERO INTERSECTION                         F5G45960    
       03743  0 34000 0 00704        CAS LIST2+2         YES, IS INTRE 2 AND 3                        F5G45970    
       03744  0 02000 0 03746        TRA Z301                                                         F5G45980    
       03745  0 02000 0 03755        TRA Z303            YES                                          F5G45990    
       03746  0 34000 0 00710 Z301   CAS LIST3+2         IS INTERSECTION EQUAL TO BOTTOM OF LIST 3    F5G46000    
       03747  0 02000 0 03751        TRA Z302                                                         F5G46010    
       03750  0 02000 0 04013        TRA Z304            YES                                          F5G46020    
       03751  0 60100 0 00711 Z302   STO LIST3+3         STORE INTER 2 AND 3 IN SUB 3 POS.            F5G46030    
       03752 -0 76000 0 00003        SSM                 AND -INTER IN                                F5G46040    
       03753  0 60100 0 00705        STO LIST2+3         SUB 2 POS.                                   F5G46050    
       03754  0 02000 0 04015        TRA Z306                                                         F5G46060    
       03755 -0 76000 0 00003 Z303   SSM                 ENTER -(INTER 2 AND 3 )                      F5G46070    
       03756  0 60100 0 00711        STO LIST3+3         IN SUB 3 POS.                                F5G46080    
       03757  0 02000 0 04015        TRA Z306                                                         F5G46090    
       03760 -0 76000 0 00003 Z33    SSM                 ENTER -(INTER 1 AND 2 )                      F5G46100    
       03761  0 60100 0 00705        STO LIST2+3         IN SUB 2 POS.                                F5G46110    
       03762  0 02000 0 04015        TRA Z306                                                         F5G46120    
       03763 -0 76000 0 00003 Z34    SSM                 STORE -(INTER 1 AND 2 )                      F5G46130    
       03764  0 60100 0 00701        STO LIST1+3         IN SUB 1 POS.                                F5G46140    
       03765  0 02000 0 04015        TRA Z306                                                         F5G46150    
       03766  0 50000 0 00700 Z35    CLA LIST1+2         DO BOTTOM ENTRIES IN                         F5G46160    
       03767 -0 32000 0 00710        ANA LIST3+2         1 AND 3 HAVE NONZERO                         F5G46170    
       03770  0 10000 0 03740        TZE Z300            INTERSECTION                                 F5G46180    
       03771  0 34000 0 00700        CAS LIST1+2         YES, IS IT EQUAL TO BOT. 1                   F5G46190    
       03772  0 02000 0 03774        TRA Z36                                                          F5G46200    
       03773  0 02000 0 03732        TRA Z38             YES                                          F5G46210    
       03774  0 34000 0 00710 Z36    CAS LIST3+2         TO THE BOTTOM ENTRY IN 3                     F5G46220    
       03775  0 02000 0 03777        TRA Z37                                                          F5G46230    
       03776  0 02000 0 03735        TRA Z39             YES                                          F5G46240    
       03777  0 60100 0 00711 Z37    STO LIST3+3         ENTER 1NTLR 1 ANO 3 IN SUB                   F5G46250    
       04000 -0 76000 0 00003        SSM                 3 POS. AND -( INTER ) IN                     F5G46260    
       04001  0 60100 0 00701        STO LIST1+3         SUB1 POS.                                    F5G46270    
       04002  0 02000 0 04015        TRA Z306                                                         F5G46280    
       04003 -0 63400 0 00671 Z307   SXD Z2V1,0          CREATE THE LIST                              F5G46290    
       04004  0 50000 0 00321        CLA L7                                                           F5G46300    
       04005  0 60100 0 00676        STO LIST1                                                        F5G46310    
       04006  0 50000 0 00317        CLA L3                                                           F5G46320    
       04007  0 60100 0 00677        STO LIST1+1                                                      F5G46330    
       04010  0 50000 0 00315        CLA ONEA                                                         F5G46340    
       04011  0 60100 0 00700        STO LIST1+2                                                      F5G46350    
       04012  0 02000 0 04053        TRA Z4                                                           F5G46360    
       04013 -0 76000 0 00003 Z304   SSM                 ENTER  - INTER 2 AND 3                       F5G46370    
       04014  0 60100 0 00705 Z305   STO LIST2+3         INSUB2 POS.                                  F5G46380    
       04015 -0 53400 2 00324 Z306   LXD LD3,2           SET COUNT TO 3                               F5G46390    
       04016  0 53400 1 00314        LXA ZERO,1          SET TO INSPECT 1ST L1ST                      F5G46400    
       04017  0 50000 1 00700 Z309   CLA LIST1+2,1                                                    F5G46410    
       04020  0 10000 0 04031        TZE Z308            IS THE BOTTOM ENTRY ZERO                     F5G46420    
       04021  0 40200 0 00315        SUB ONEA            NO                                           F5G46430    
       04022 -0 32000 1 00700        ANA LIST1+2,1       DOES IT HAVE TWO ONES                        F5G46440    
       04023  0 10000 0 04031        TZE Z308                                                         F5G46450    
       04024  0 60100 0 00457        STO TMP10           YES                                          F5G46460    
       04025  0 50000 1 00701        CLA LIST1+3,1       IS THE SUB BOTTOM                            F5G46470    
       04026 -0 10000 0 04031        TNZ Z308            ENTRY ZERO                                   F5G46480    
       04027  0 50000 0 00457        CLA TMP10           YES                                          F5G46490    
       04030  0 60100 1 00701        STO LIST1+3,1                                                    F5G46500    
       04031  1 77774 1 04032 Z308   TXI Z308+1,1,-4     PRERARE FOR NLXT LIST                        F5G46510    
       04032  2 00001 2 04017        TIX Z309,2,1        COUNT TO 3                                   F5G46520    
       04033  0 50000 0 00434        CLA Z2K5                                                         F5G46530    
       04034 -0 40000 0 00677        SBM LIST1+1                                                      F5G46540    
       04035 -0 10000 0 04053        TNZ Z4                                                           F5G46550    
       04036  0 50000 0 00700        CLA LIST1+2                                                      F5G46560    
       04037  0 40200 0 00315        SUB ONEA                                                         F5G46570    
       04040 -0 32000 0 00700        ANA LIST1+2                                                      F5G46580    
       04041 -0 10000 0 04053        TNZ Z4                                                           F5G46590    
       04042  0 50000 0 00700        CLA LIST1+2                                                      F5G46600    
       04043  0 60100 0 00701        STO LIST1+3                                                      F5G46610    
       04044  0 50000 0 00434        CLA Z2K5                                                         F5G46620    
       04045  0 40200 0 00700        SUB LIST1+2                                                      F5G46630    
       04046  0 60100 0 00700        STO LIST1+2                                                      F5G46640    
       04047  0 40200 0 00315        SUB ONEA                                                         F5G46650    
       04050  0 32000 0 00700        ANS LIST1+2                                                      F5G46660    
       04051 -0 50000 0 00701        CAL LIST1+3                                                      F5G46670    
       04052 -0 60200 0 00700        ORS LIST1+2                                                      F5G46680    
                                          DETECT AND COMPILE ANY SEQUENTIAL TRANSFER                  F5G46690    
       04053  0 56000 0 00416 Z4     LDQ MZE             PUT MINUS ZEROS IN                           F5G46700    
       04054 -0 60000 0 01125        STQ SXAS            THE ASSOXIATED                               F5G46710    
       04055  0 53400 4 00322        LXA L19,4           SXDPOSITIONS                                 F5G46720    
       04056 -0 60000 4 01125 Z411   STQ SXST+20,4                                                    F5G46730    
       04057  2 00001 4 04056        TIX Z411,4,1                                                     F5G46740    
       04060  0 50000 0 01101        CLA SXST                                                         F5G46750    
       04061 -0 12000 0 04140        TMI Z5              IS THERE A SEQUENTIAL TRANSFER               F5G46760    
       04062 -0 50000 0 00443        CAL BBNO            YES                                          F5G46770    
       04063  0 77100 0 00022        ARS 18                                                           F5G46780    
       04064  0 40200 0 00315        SUB ONEA                                                         F5G46790    
       04065  0 60100 0 00457        STO TMP10           PUT NO OF PREV. BB IN TMP10                  F5G46800    
       04066  0 50000 0 00670        CLA Z1V8            INITIALIZE 1ST PRED NO THIS BB               F5G46810    
       04067  0 60100 0 00666 Z49    STO Z1V3                                                         F5G46820    
       04070  0 07400 4 00055        TSX SE5,4                                                        F5G46830    
       04071 -0 50000 1 07337        CAL PRED,1                                                       F5G46840    
       04072 -0 32000 0 00337        ANA ADDMK           IS THIS THE SEQUENTIAL                       F5G46850    
       04073  0 40200 0 00457        SUB TMP10           TRANSFERS PREO ENTRY                         F5G46860    
       04074  0 10000 0 04100        TZE Z410                                                         F5G46870    
       04075 -0 50000 0 00666        CAL Z1V3            NO, TRY NEXT ONE                             F5G46880    
       04076  0 40000 0 00315        ADD ONEA                                                         F5G46890    
       04077  0 02000 0 04067        TRA Z49                                                          F5G46900    
       04100  0 50000 0 00666 Z410   CLA Z1V3            GET THE PRED NO                              F5G46910    
       04101  0 07400 4 02211        TSX SH,4            FORM THE SXD CASE                            F5G46920    
       04102  0 50000 0 00466        CLA SXD1                                                         F5G46930    
       04103  0 40000 0 00467        ADD SXD2                                                         F5G46940    
       04104  0 40000 0 00470        ADD SXD3                                                         F5G46950    
       04105  0 10000 0 04117        TZE Z44             IS THIS A 0 SXD CASE                         F5G46960    
       04106  0 53400 4 00320        LXA L4,4            ISNT 0 SXD CASL                              F5G46970    
       04107  0 50000 4 00471 Z41    CLA SXD1+3,4        RECORD SXD CASE                              F5G46980    
       04110  0 60100 4 01105        STO SXST+4,4        IN POSITION ASSOCIATED                       F5G46990    
       04111  2 00001 4 04107        TIX Z41,4,1         WITH SEQUENTIAL TRANSFER                     F5G47000    
       04112  0 53400 1 00314        LXA ZERO,1          COMPILE THE SXD                              F5G47010    
       04113  0 07400 4 02242        TSX SI,4            INST. WITH                                   F5G47020    
       04114  0 02000 0 04140        TRA Z47             (1) ASSOCIATED SXD WITH 0 LXD CASE           F5G47030    
       04115  0 07400 4 02440 Z42    TSX SM,4            (2)ASSOCIATED       WITH AN LXD LIST         F5G47040    
       04116  0 02000 0 04140        TRA Z47             (3) NOT ASSOCIATED  ( TRA COMPILED )         F5G47050    
       04117 -0 53400 4 00465 Z44    LXD SXD0,4                                                       F5G47060    
       04120 -3 00000 4 04136        TXL Z46,4,0         DOES IT HAVE A 0 LXD CASE                    F5G47070    
       04121 -0 75400 4 00000        PXD 0,4             NO                                           F5G47080    
       04122  0 77100 0 00022        ARS 18              LXD CASE TO AC  (ADDR)                       F5G47090    
       04123  0 60100 0 00715        STO Z4V1                                                         F5G47100    
       04124 -0 53400 2 00324        LXD LD3,2           SET COUNT TO 3 , N=1                         F5G47110    
       04125  0 50000 2 00674 Z45    CLA Z2V1+3,2        GET INDEX                                    F5G47120    
       04126 -0 73400 1 00000        PDX 0,1             OF TOP QUANTITY IN LIST N                    F5G47130    
       04127  0 50000 1 00676        CLA LIST1,1         IS THE LXD CASE OF THIS SXD                  F5G47140    
       04130  0 40200 0 00715        SUB Z4V1            CASE THE SAME AS                             F5G47150    
       04131  0 10000 0 04115        TZE Z42             THE TOP  QUANTITY IN LIST N                  F5G47160    
       04132  2 00001 2 04125        TIX Z45,2,1         NO, COUNT TO 3                               F5G47170    
       04133  0 50000 0 00715        CLA Z4V1            COMPILE A                                    F5G47180    
       04134  0 07400 4 02403        TSX SL,4            TRA  (LXD )                                  F5G47190    
       04135  0 02000 0 04140        TRA Z47                                                          F5G47200    
       04136  0 50200 0 00315 Z46    CLS ONEA            RECORD THAT THERE                            F5G47210    
       04137  0 60100 0 00660 Z48    STO SLV3            IS A HANGING TRA 0CASE                       F5G47220    
                        04140 Z47    SYN Z48+1                                                        F5G47230    
                                          FORM THE SXD LIST AND THE SYN CARD LIST                     F5G47240    
       04140  0 50000 0 00316 Z5     CLA ONED            SET INDEX IN SYN TABLE                       F5G47250    
       04141  0 60100 0 00716        STO Z5V1                                                         F5G47260    
       04142  0 50000 0 00670        CLA Z1V8            RESET 1 ST PRED IN BB                        F5G47270    
       04143  0 60100 0 00666 Z53    STO Z1V3                                                         F5G47280    
       04144  0 40200 0 00665        SUB Z1V2            IS THIS PRED IN SAME BB                      F5G47290    
       04145  0 10000 0 04263        TZE Z6              NO, ADD FINISHED                             F5G47300    
       04146  0 50000 0 01101        CLA SXST            YES                                          F5G47310    
       04147 -0 12000 0 04153        TMI Z51             WAS THERE A SEQUENTIAL TRANSFER              F5G47320    
       04150 -0 32000 0 00337        ANA ADDMK           YES, EXTRACT ADDRESS                         F5G47330    
       04151  0 40200 0 00666        SUB Z1V3            HAS PRED ALREDY BEEN CONSIDERED              F5G47340    
       04152  0 10000 0 04213        TZE Z55             AS A SEQUENTIAL TRANSFER                     F5G47350    
       04153  0 50000 0 00666 Z51    CLA Z1V3            NO                                           F5G47360    
       04154  0 07400 4 02211        TSX SH,4            GENERATE SXD CASE                            F5G47370    
       04155  0 50000 0 00466        CLA SXD1            IS THE                                       F5G47380    
       04156  0 40000 0 00467        ADD SXD2            SXD CASE                                     F5G47390    
       04157  0 40000 0 00470        ADD SXD3            ZERO                                         F5G47400    
       04160  0 10000 0 04213        TZE Z55                                                          F5G47410    
       04161  0 53400 1 00314        LXA ZERO,1          NO, PREPARE TO SCAN SXD LIST                 F5G47420    
       04162  0 50000 1 01101 Z503   CLA SXST,1          IS               SUBSXD0                     F5G47430    
       04163 -0 32000 0 00335        ANA DECMK                                                        F5G47440    
       04164  0 60100 0 00457        STO TMP10                                                        F5G47450    
       04165  0 50000 0 00465        CLA SXD0                                                         F5G47460    
       04166 -0 32000 0 00335        ANA DECMK                                                        F5G47470    
       04167  0 40200 0 00457        SUB TMP10                                                        F5G47480    
       04170 -0 10000 0 04216        TNZ Z54                                                          F5G47490    
       04171  0 50000 1 01102        CLA SXST+1,1        THIS SXD CASE                                F5G47500    
       04172  0 40200 0 00466        SUB SXD1                                                         F5G47510    
       04173 -0 10000 0 04216        TNZ Z54                                                          F5G47520    
       04174  0 50000 1 01103        CLA SXST+2,1        SAME AS                                      F5G47530    
       04175  0 40200 0 00467        SUB SXD2                                                         F5G47540    
       04176 -0 10000 0 04216        TNZ Z54                                                          F5G47550    
       04177  0 50000 1 01104        CLA SXST+3,1        THE ONE ALREADY                              F5G47560    
       04200  0 40200 0 00470        SUB SXD3            STORED                                       F5G47570    
       04201 -0 10000 0 04216        TNZ Z54                                                          F5G47580    
       04202  0 50000 1 01101        CLA SXST,1          YES, STORE INDICATION                        F5G47590    
       04203 -0 53400 2 00716        LXD Z5V1,2                                                       F5G47600    
       04204 -0 32000 0 00337        ANA ADDMK           SYN,2  CARD                                  F5G47610    
       04205  0 60100 2 02125        STO SYN,2           IN THE                                       F5G47620    
       04206  0 50000 0 00465        CLA SXD0            SYN                                          F5G47630    
       04207  0 76700 0 00022        ALS 18              LIST                                         F5G47640    
       04210  0 62200 2 02125        STD SYN,2                                                        F5G47650    
       04211  1 00001 2 04212 Z52    TXI Z52+1,2,1                                                    F5G47660    
       04212 -0 63400 2 00716        SXD Z5V1,2                                                       F5G47670    
       04213  0 50000 0 00666 Z55    CLA Z1V3            PREPARE TO DEAL WITH NEXT PRED               F5G47680    
       04214  0 40000 0 00315        ADD ONEA                                                         F5G47690    
       04215  0 02000 0 04143        TRA Z53                                                          F5G47700    
       04216  0 50000 1 01101 Z54    CLA SXST,1                                                       F5G47710    
       04217  0 12000 0 04232        TPL Z502            IS THIS SXD POS. EMPTY                       F5G47720    
       04220 -0 53400 2 00324        LXD LD3,2           YES                                          F5G47730    
       04221 -3 00000 1 04232        TXL Z502,1,0        IS THIS ST CASE                              F5G47740    
       04222  3 77773 1 04233        TXH Z504,1,-4-1     NO, IS THIS 0 LIST CASE                      F5G47750    
       04223  3 77767 1 04242        TXH Z507,1,-8-1     NO             1ST                           F5G47760    
       04224  3 77763 1 04241        TXH Z506,1,-12-1                2ED                              F5G47770    
       04225  3 77757 1 04240        TXH Z505,1,-16-1                3RD                              F5G47780    
       04226  0 07400 4 04252        TSX Z500,4          ENTER THE SXD CASE IN THE LIST               F5G47790    
       04227  0 50000 0 00416        CLA MZE                                                          F5G47800    
       04230  0 60100 1 01105        STO SXST+4,1        STORE ENO MARK FOR SYN CAEDS                 F5G47810    
       04231  0 02000 0 04213        TRA Z55                                                          F5G47820    
       04232  1 77774 1 04162 Z502   TXI Z503,1,-4       EXAMINE NEXT SXD CASE                        F5G47830    
       04233 -0 50000 0 00465 Z504   CAL SXD0            ZERO LIST CASE                               F5G47840    
       04234 -0 32000 0 00335        ANA DECMK           IS THE LXD CASE 0                            F5G47850    
       04235 -0 10000 0 04232        TNZ Z502                                                         F5G47860    
       04236  0 07400 4 04252        TSX Z500,4          YES, ENTER SXD CASE IN                       F5G47870    
       04237  0 02000 0 04213        TRA Z55             ASSOCIATED       POSITION                    F5G47880    
       04240  2 00001 2 04241 Z505   TIX Z505+1,2,1      GENERATE INDEX OF LIST                       F5G47890    
       04241  2 00001 2 04242 Z506   TIX Z506+1,2,1                                                   F5G47900    
       04242 -0 50000 2 00674 Z507   CAL Z2V1+3,2        IS                                           F5G47910    
       04243 -0 73400 4 00000        PDX 0,4             THE                                          F5G47920    
       04244  0 50000 0 00465        CLA SXD0            LXD                                          F5G47930    
       04245  0 77100 0 00022        ARS 18              CASE THE                                     F5G47940    
       04246  0 40200 4 00676        SUB LIST1,4         SAME                                         F5G47950    
       04247 -0 10000 0 04232        TNZ Z502                                                         F5G47960    
       04250  0 07400 4 04252        TSX Z500,4          YES                                          F5G47970    
       04251  0 02000 0 04213        TRA Z55                                                          F5G47980    
                                           SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST               F5G47990    
       04252  0 50000 0 00465 Z500   CLA SXD0                                                         F5G48000    
       04253  0 60100 1 01101        STO SXST,1                                                       F5G48010    
       04254  0 50000 0 00466        CLA SXD1                                                         F5G48020    
       04255  0 60100 1 01102        STO SXST+1,1                                                     F5G48030    
       04256  0 50000 0 00467        CLA SXD2                                                         F5G48040    
       04257  0 60100 1 01103        STO SXST+2,1                                                     F5G48050    
       04260  0 50000 0 00470        CLA SXD3                                                         F5G48060    
       04261  0 60100 1 01104        STO SXST+3,1                                                     F5G48070    
       04262  0 02000 4 00001        TRA 1,4                                                          F5G48080    
                                          COMPILE THE SXD LIST                                        F5G48090    
       04263  0 53400 1 00333 Z6     LXA LM20,1          SET TO START OF SXD LIST                     F5G48100    
       04264  0 50000 1 01101 Z61    CLA SXST,1                                                       F5G48110    
       04265 -0 12000 0 04274        TMI Z7              IS THIS SXD POSITION EMPTY                   F5G48120    
       04266 -0 63400 1 04271        SXD Z6V1,1          NO                                           F5G48130    
       04267  0 07400 4 02242        TSX SI,4            COMPILE THE SXD CASE WITH                    F5G48140    
       04270  0 76100 0 00000        NOP                 (1)   0 LXD CASE,  OR                        F5G48150    
       04271  3 00000 0 00000 Z6V1   TXH 0,0,SET         (2) THIS RETURN CANT OCCURR                  F5G48160    
       04272 -0 53400 1 04271        LXD Z6V1,1          (3) TRA ALREADY CONPILED                     F5G48170    
       04273  1 77774 1 04264        TXI Z61,1,-4                                                     F5G48180    
                                          COMPILE TNE LXD LISTS AND ASSOCIATED SXD S                  F5G48190    
       04274 -0 53400 2 00324 Z7     LXD LD3,2           SET TO BEGIN SCAN OF LISTS                   F5G48200    
       04275  0 50000 2 00422 Z72    CLA Z2K1+3,2                                                     F5G48210    
       04276 -0 73400 1 00000        PDX 0,1             PUT INDEX OF BOTTOM POSITION IN 1            F5G48220    
       04277  0 50000 1 00676        CLA LIST1,1                                                      F5G48230    
       04300 -0 12000 0 04350        TMI Z75             YES, IS IT A TRA(0) CASE                     F5G48240    
       04301  0 10000 0 04320        TZE Z73             IS THE L1ST FILLED                           F5G48250    
       04302  0 50000 1 00677        CLA LIST1+1,1       PERHAPS, IS IT A FOR SURE                    F5G48260    
       04303  0 10000 0 04350        TZE Z75              IT IS IF EITHER THE SUB BOTTOM              F5G48270    
       04304  0 12000 0 04350        TPL Z75             ENTRY IS -0 OR POS1TIVE                      F5G48280    
       04305  0 50000 0 00720        CLA Z7V2                                                         F5G48290    
       04306 -0 12000 0 04320        TMI Z73             IS THIS 1ST TIME THRU                        F5G48300    
       04307  0 50000 2 00443 Z76    CLA Z7K1+3,2        YES                                          F5G48310    
       04310 -0 73400 1 00000        PDX 0,1             IS THERE ASSOCIATED                          F5G48320    
       04311  0 50000 1 01101        CLA SXST,1          SXDLIST                                      F5G48330    
       04312 -0 63400 2 00717        SXD Z7V1,2                                                       F5G48340    
       04313 -0 12000 0 04344        TMI Z74                                                          F5G48350    
       04314  0 07400 4 02242        TSX SI,4            YES, COMPILE SXD CASE                        F5G48360    
       04315  0 02000 0 04317        TRA Z71                                                          F5G48370    
       04316  0 02000 0 04333        TRA Z77             COMPILE                                      F5G48380    
       04317 -0 53400 2 00717 Z71    LXD Z7V1,2                                                       F5G48390    
       04320  2 00001 2 04275 Z73    TIX Z72,2,1         COUNT TO 3                                   F5G48400    
       04321  0 50200 0 00720        CLS Z7V2            IS THIS 1ST TIME THRU                        F5G48410    
       04322  0 60100 0 00720        STO Z7V2                                                         F5G48420    
       04323 -0 12000 0 04274        TMI Z7              YES, GO BACK     CLASXST                     F5G48430    
       04324  0 50000 0 01105        CLA SXAS0           IS THERE A 0 ASSOCIATED SXD CASE             F5G48440    
       04325 -0 12000 0 04353        TMI Z8                                                           F5G48450    
       04326  0 53400 1 00334        LXA LM4,1           YES                                          F5G48460    
       04327  0 07400 4 02242        TSX SI,4            COMPILE SXD CASE                             F5G48470    
       04330  0 02000 0 04353        TRA Z8                                                           F5G48480    
       04331  0 02000 0 04353        TRA Z8                                                           F5G48490    
       04332  0 02000 0 04353        TRA Z8                                                           F5G48500    
       04333 -0 53400 2 00717 Z77    LXD Z7V1,2                                                       F5G48510    
       04334  0 50000 2 00715        CLA Z4V1,2                                                       F5G48520    
       04335 -0 12000 0 04344        TMI Z74                                                          F5G48530    
       04336  0 50000 2 00443        CLA Z7K1+3,2                                                     F5G48540    
       04337 -0 73400 1 00000        PDX 0,1                                                          F5G48550    
       04340  0 50000 1 01101        CLA SXST,1                                                       F5G48560    
       04341  0 77100 0 00022        ARS 18                                                           F5G48570    
       04342  0 07400 4 02403        TSX SL,4                                                         F5G48580    
       04343  0 02000 0 04317        TRA Z71                                                          F5G48590    
       04344  0 50000 2 00674 Z74    CLA Z2V1+3,2        COMPILE THE LXD LIST                         F5G48600    
       04345 -0 73400 1 00000        PDX 0,1                                                          F5G48610    
       04346  0 07400 4 02440        TSX SM,4                                                         F5G48620    
       04347  0 02000 0 04317        TRA Z71                                                          F5G48630    
       04350  0 50000 0 00720 Z75    CLA Z7V2            IS THIS 1ST TIME THRU                        F5G48640    
       04351 -0 12000 0 04307        TMI Z76             NO, 2ED TIME                                 F5G48650    
       04352  0 02000 0 04320        TRA Z73             YES                                          F5G48660    
                                          COMPILE ANY SYN CARDS                                       F5G48670    
       04353 -0 50000 0 00443 Z8     CAL BBNO            FORM                                         F5G48680    
       04354  0 77100 0 00022        ARS 18              AND                                          F5G48690    
       04355  0 60100 0 00457        STO TMP10           STORE                                        F5G48700    
       04356  0 07400 4 00067        TSX SE1,4                                                        F5G48710    
       04357 -0 50000 1 06442        CAL BBB,1           -(IDSXD)-(BBNO)+(1ST PRED)*2**25             F5G48720    
       04360 -0 32000 0 00337        ANA ADDMK                                                        F5G48730    
       04361  0 76700 0 00012        ALS 10                                                           F5G48740    
       04362  0 40200 0 00457        SUB TMP10                                                        F5G48750    
       04363  0 40200 0 00410        SUB IDSXD                                                        F5G48760    
       04364  0 60100 0 00457        STO TMP10                                                        F5G48770    
       04365 -0 53400 2 00716        LXD Z5V1,2          SET TO START OF SYN LIST                     F5G48780    
       04366 -3 00001 2 04407 Z81    TXL Z83,2,1         ARE WE THRU                                  F5G48790    
       04367  2 00001 2 04370 Z82    TIX Z82+1,2,1       DECREASE INDEX                               F5G48800    
       04370 -0 50000 2 02125        CAL SYN,2                                                        F5G48810    
       04371 -0 32000 0 00335        ANA DECMK           COMPILE THE SYN CARD                         F5G48820    
       04372  0 77100 0 00010        ARS 8                                                            F5G48830    
       04373  0 40200 0 00457        SUB TMP10                                                        F5G48840    
       04374  0 07400 4 02367        TSX SK,4                                                         F5G48850    
       04375  0 50000 0 00346        CLA LSYN                                                         F5G48860    
       04376  0 07400 4 02367        TSX SK,4                                                         F5G48870    
       04377 -0 50000 2 02125        CAL SYN,2                                                        F5G48880    
       04400 -0 32000 0 00337        ANA ADDMK                                                        F5G48890    
       04401  0 76700 0 00012        ALS 10                                                           F5G48900    
       04402  0 40200 0 00457        SUB TMP10                                                        F5G48910    
       04403  0 07400 4 02367        TSX SK,4                                                         F5G48920    
       04404  0 50000 0 00314        CLA ZERO                                                         F5G48930    
       04405  0 07400 4 02367        TSX SK,4                                                         F5G48940    
       04406  0 02000 0 04366        TRA Z81                                                          F5G48950    
       04407 -0 53400 2 00450 Z83    LXD BBOX1,2         GET INDEX OF COMPILED INDT                   F5G48960    
       04410  0 50000 0 00416        CLA MZE             RECORD NO SEQUENTIAL TRANSFER                F5G48970    
       04411  0 60100 0 01101        STO SXST                                                         F5G48980    
       04412  0 02000 0 02525        TRA FNDAS                                                        F5G48990    
                                          WRITE TH E LAST BLOCK OF C.I. T. ON TAPE                    F5G49000    
                                          AFTER PUTTING RELATIVE CONSTANT ROUT1NES AT END             F5G49010    
       04413  0 76200 0 00224 LSTBB  RTB INSTTP          AN END OF                                    F5G49020    
       04414  0 70000 0 00457        CPY TMP10           FILE SEPARATES RELATIVE CONST. ROUTINES      F5G49030    
       04415  0 02000 0 04420        TRA EF3             END FILE ALREADY READ                        F5G49040    
       04416  0 02000 0 04413        TRA LSTBB           READ END FILE                                F5G49050    
       04417  0 07400 4 00004        TSX 4,4  DIAGNOSTIC, ERROR                                       F5G49060    
       04420 -0 53400 4 00325 EF3    LXD LD4,4             TRY 4 TIMES                                F5G49070    
       04421  0 53400 3 00337 EFRTB  LXA ADDMK,3         READ IN NEXT RECORD                          F5G49080    
       04422  0 76200 0 00224        RTB INSTTP          OF RELATIVE CONSTANT SUBROUTINES             F5G49090    
       04423  0 70000 1 04516 EFCPY  CPY RELSR,1                                                      F5G49100    
       04424  1 77777 1 04423        TXI EFCPY,1,-1                                                   F5G49110    
       04425  0 02000 0 04436        TRA EFREW           END OF FILE , END OF INST.                   F5G49120    
       04426  0 76600 0 00333        IOD                                                              F5G49130    
       04427 -0 76000 0 00012        RTT                                                              F5G49140    
       04430  0 02000 0 04451        TRA EFERR                                                        F5G49150    
       04431 -0 63400 1 04432        SXD EFTXL,1         STORE END TEST                               F5G49160    
       04432 -3 00000 2 04421 EFTXL  TXL EFRTB,2,SET     COMPILE THE INSTRUCTIONS                     F5G49170    
       04433  0 50000 2 04516        CLA RELSR,2                                                      F5G49180    
       04434  0 07400 4 02367        TSX SK,4                                                         F5G49190    
       04435  1 77777 2 04432        TXI EFTXL,2,-1                                                   F5G49200    
       04436  0 77200 0 00204 EFREW  REW INSTTP          REWIND THE TAPE                              F5G49210    
       04437  0 53400 1 00412        LXA SKK1,1          SET 1 TO LENGTH OF CS BLOCK                  F5G49220    
       04440 -0 53400 4 00655        LXD SKV1,4          INDEX OF NEXTCLST POSITION                   F5G49230    
       04441 -0 63400 4 04444        SXD LSTXL,4                                                      F5G49240    
       04442  3 00143 4 04447        TXH LSWEF,4,LCLST-1    IS BLOCK EMRTY                            F5G49250    
       04443  0 76600 0 00223        WTB OTAPE           NO, WRITE                                    F5G49260    
       04444 -3 00000 1 04447 LSTXL  TXL LSWEF,1,-       IT ON TAPE                                   F5G49270    
       04445  0 70000 1 00655        CPY CLST,1                                                       F5G49280    
       04446  1 77777 1 04444        TXI LSTXL,1,-1                                                   F5G49290    
       04447  0 77000 0 00203 LSWEF  WEF OTAPE           WRITE AN END FILE                            F5G49300    
       04450  0 02000 0 00030        TRA R                                                            F5G49310    
       04451  0 76400 0 00204 EFERR  BST INSTTP                                                       F5G49320    
       04452  2 00001 4 04421        TIX EFRTB,4,1                                                    F5G49330    
       04453  0 07400 4 00004        TSX 4,4  4TH ERROR, TO DIAGNOSTIC                                F5G49340    
                        04454        BSS PTL4        SPACE FOR PATCHES                                F5G49350    
       04516  0 00000 0 00000 RELSR                      START OF REL. CONST. ROUTINES                F5G49360    
                        00000        ORG 0                                                            F5G49370    
       00000  0 00004 0 00030        HTR R,0,4                  CONTROL CARD PART 1.                  F5G49371    
       00001  0 00000 0 05215        HTR CMTAG-1                                                      F5G49372    
                        00000        ORG 0                                                            F5G49373    
       00000  0 07337 0 07337        HTR PRED,0,PRED            CONTROL CARD PART 1B.                 F5G49374    
       00001  0 00000 0 07470        HTR I9A+2                                                        F5G49375    
                        00000        ORG 0                                                            F5G49376    
       00000  0 04740 0 04740        HTR QS,0,QS                CONTROL CARD, PART 1C.                F5G49377    
       00001  0 00000 0 04773        HTR QS8+1                                                        F5G49378    
                        00000        ORG 0                                                            F5G49379    
       00000  0 04740 0 04740        HTR QPU,0,QPU              CONTROL CARD, PART 1D.                F5G49380    
       00001  0 00000 0 04773        HTR QPU8+1                                                       F5G49381    
                        00000        ORG 0                                                            F5G49382    
       00000  0 04740 0 04740        HTR QSU,0,QSU              CONTROL CARD, PART 1E.                F5G49383    
       00001  0 00000 0 04773        HTR QSU8+1                                                       F5G49384    
                        00000        ORG 0                                                            F5G49385    
       00000  0 00320 0 00317        HTR BLV09,0,BL12           CONTROL CARD, PART 2.                 F5G49386    
       00001  0 00000 0 00655        HTR BLIST                                                        F5G49387    
                        00000        ORG 0                                                            F5G49388    
       00000  0 00320 0 00320        HTR START,0,START          CONTROL CARD, PART 3.                 F5G49389    
       00001  0 00000 0 00647        HTR ASCON                                                        F5G49390    
                        00000        ORG 0                                                            F5G49391    
       00000  0 03541 0 00317        HTR L3,0,PASS2             CONTROL CARD, PART 4.                 F5G49392    
       00001  0 00000 0 04516        HTR RELSR                                                        F5G49393    
                        03541        END PASS2                                                        F5G49394    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    4988           0           0           0           0
 LIB       0           0           0           0           0
 COL    5086           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     5045                  
0NUMBER OF SYMBOLS,  DEF  1244,DEFOP     0,UNDEF     0      
9            REM APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081, JOB NO. 1.             
1                                        APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081, JOB NO. 1.             
                                                                                                                  
                                                                                                                  
                                         THE FOLLOWING CONVENTIONS ARE USED IN TH1S LISTING=                      
                                                                                                                  
                                                                                                                  
                                         ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION                   
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.               
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF               
                                         THIS L0GICAL BLOCK OR SUBROUTINE.                                        
                                         C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.                     
                                         P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).              
                                                                                                                  
                                                                                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                                                                                                  
                                         704 FORTRAN 2 / SECTION 5PRIME / A. S. NOBLE, JR. / 12 FEB 58            
                                                                                                                  
                                                                                                                  
                                         5PRIME COMPILES ASSIGN CONSTANTS, FIXED POINT CONSTANTS                  
                                         FLOATING POINT CONSTANTS, REGION SIX CONSTANTS AND FORMAT                
                                         STATEMENTS. THE FOLLOWING TABLES ARE PUT ON DRUMS FOR USE IN             
                                         THE ASSEMBLY PROGRAM ... SIZ, TEIFNO, EQUIT, CLOSUB, FORSUB.             
                        00030        ORG 24                                                                       
                                         SETCIT/ CALLS=OIAG.                                                      
                                         SET UP CIT BUFFER, COUNTER, ANO TARE FOR COMPILING.                      
       00030  0 76400 0 00203 5PRIME BST CITTAP                    BACKSPACE CIT TAPE OVER EOF MARK               
       00031  0 76400 0 00203        BST CITTAP                    AND LAST RECOR0.                               
       00032  0 53400 2 00420        LXA TERC,2                    SET TAPE ERROR COUNTER FOR 5 TRYS.             
       00033  0 76200 0 00223        RTB CITTAP                    SELECT CIT TAPE FOR READING.                   
       00034  0 53400 1 00413        LXA L(0),1                    COPY LAST                                      
       00035  0 70000 1 00445 CPYCIT CPY CIB,1                     CIT RECORD                                     
       00036  1 77777 1 00035        TXI CPYCIT,1,-1               INTO CIT BUFFER.                               
       00037  0 07400 4 00004        TSX DIAG,4                  * EOF ERROR - GO TO DIAGNOSTIC.                  
       00040  0 76400 0 00203        BST CITTAP                    REPOSITION CIT TAPE, AND                       
       00041 -0 76000 0 00012        RTT                           IF TAPE RECORD                                 
 D     00042  1 00000 0 00045        TXI RTTON1,0                  WAS READ CORRECTLY,                            
       00043 -0 63400 1 00044        SXD BBOX,1                    SAVE CIT COUNTER,                              
       00044  1 00000 0 00047 BBOX   TXI 5P1ASC,0,**             * AND GO READ ASSIGN CONSTANTS.                  
       00045  2 00001 2 00033 RTTON1 TIX CPYCIT-2,2,1              OTHERWISE, GO REREAD RECORD UNLESS             
       00046  0 07400 4 00004        TSX DIAG,4                  * 5 ATTEMPTS FAILE0 - GO TO DIAG.                
                                          END OF PROGRAM SETCIT.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P1ASC/ CALLS=5PS1R,5PS2C.                                               
                                         READ IN AND COMPILE ASSIGN CONSTANTS.                                    
       00047  0 76400 0 00202 5P1ASC BST TABTAP                    POSITION TABLE TAPE, AND                       
       00050  0 07400 4 00304        TSX 5PS1R,4                 * GO READ ASSIGN CONSTANTS.                      
       00051 -3 00000 1 00053        TXL SETOP,1,0                 IF NO ENTRIES, GO SET OP TO OCT.               
       00052  0 07400 4 00331        TSX 5PS2C,4                 * GO COMPILE ASSIGN CONSTANTS.                   
       00053  0 50000 0 00431 SETOP  CLA OCTLOP                    SET WORD2 OF COMPILED INSTRUCTION              
       00054  0 60100 0 00442        STO WORD2                     TO (OCT000) BCD FOR FUTURE USE.                
                                          END OF PROGRAM 5P1ASC.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P2FXC/ CALLS=5PS1R,5PS2C.                                               
                                         READ IN AND COMPILE FIXCON.                                              
       00055  0 53400 2 00416 5P2FXC LXA L(3),2                    POSITION                                       
       00056  0 76400 0 00202        BST TABTAP                    TABLE TAPE                                     
       00057  2 00001 2 00056        TIX 5P2FXC+1,2,1              TO FIXCON.                                     
       00060  0 07400 4 00304        TSX 5PS1R,4                 * GO READ FIXCON INTO BUFFER.                    
       00061 -3 00000 1 00065        TXL 5P3F3D,1,0              * IF NO ENTRIES, GO READ IN FORSUB.              
       00062  0 50000 0 00426        CLA FIXSYM                    SET WORD1 OF COMPILED                          
       00063  0 60100 0 00441        STO WORD1                     INSTRUCTION TO (200000) BCD.                   
       00064  0 07400 4 00331        TSX 5PS2C,4                 * GO COMPILE FIXCON ENTRIES.                     
                                          END OF PROGRAM 5P2FXC.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P3F3D/ CALLS=5PS1R,5PS3D.                                               
                                         TRANSFER FORSUB TABLE FROM TAPE 2 TO DRUM 3.                             
       00065  0 53400 2 00420 5P3F3D LXA L(5),2                    POSITION                                       
       00066  0 76400 0 00202        BST TABTAP                    TABLE TAPE                                     
       00067  2 00001 2 00066        TIX 5P3F3D+1,2,1              TO DO TAG B                                    
       00070  0 76200 0 00222        RTB TABTAP                    RECORD COUNT                                   
       00071  0 70000 0 00440        CPY 5PERAS                    AND ADD 23                                     
       00072 -0 53400 1 00440        LXD 5PERAS,1                  TO THIS TO                                     
       00073  1 00027 1 00074        TXI BKSPC,1,23                POSITION                                       
       00074  0 76400 0 00202 BKSPC  BST TABTAP                    TABLE TAPE                                     
       00075  2 00001 1 00074        TIX BKSPC,1,1                 TO FORSUB.                                     
       00076  0 07400 4 00304        TSX 5PS1R,4                 * GO READ FORSUB INTO BUFFER.                    
       00077  0 60000 0 00613        STZ WRDCNT                    IF THERE WERE                                  
       00100 -3 00000 1 00107        TXL EMPTY1,1,0                ENTRIES MADE IN                                
       00101 -0 75400 1 00433 L(SIX) PXD SIX,1                     FORSUB TABLE                                   
       00102  0 76000 0 00006        COM                           COMPUTE THE                                    
       00103  0 40100 0 00425        ADM DECR1                     WORD COUNT                                     
       00104  0 62200 0 00613        STD WRDCNT                    AND THEN                                       
       00105  0 07400 4 00345        TSX 5PS3D1,4                * GO WRITE FORSUB ONTO DRUM3.                    
 D     00106  1 00000 0 00110        TXI 5P4FLC,0                * WHEN DONE, GO READ IN FLOCON.                  
       00107  0 07400 4 00351 EMPTY1 TSX 5PS3D3,4                * IF FORSUB IS EMPTY, RECORD WRD CNT.            
                                           END OF PROGRAM 5P3F3D.                                                 
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                          5P4FLC/ CALLS=5PS1R,5PS2C.                                              
                                          READ IN AND COMPILE FLOCON.                                             
       00110  0 76200 0 00222 5P4FLC RTB TABTAP                    FIND                                           
       00111  0 70000 0 00440        CPY 5PERAS                    NEXT                                           
 D     00112  1 00000 0 00111        TXI 5P4FLC+1,0                END OF FILE                                    
 D     00113  1 00000 0 00115        TXI EOFILE,0                  ON TABLE TAPE                                  
       00114  1 77773 0 00110 MINUS5 TXI 5P4FLC,0,-5               TO LOCATE FLOCON.                              
       00115  0 76600 0 00333 EOFILE IOD                           WHEN DONE,                                     
       00116 -0 76000 0 00012        RTT                           MAKE SURE TAPE CHECK                           
       00117  0 76100 0 00000        NOP                           LIGHT IS TURNED OFF, AND                       
       00120  0 07400 4 00304        TSX 5PS1R,4                 * GO READ FLOCON INTO BUFFER.                    
       00121 -3 00000 1 00125        TXL 5P5R6C,1,0              * IF NO ENTRIES, GO COMPILE REGION6.             
       00122  0 50000 0 00427        CLA FLOSYM                    SET WORD1 OF COMPILED                          
       00123  0 60100 0 00441        STO WORD1                     INSTRUCTION TO (300000) BCD.                   
       00124  0 07400 4 00331        TSX 5PS2C,4                 * GO COMPILE FLOCON ENTRIES.                     
                                          END OF PROGRAM 5P4FLC.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P5R6C/ CALLS=5PS2C.                                                     
                                         COMPILE REGION-SIX CONSTANTS.                                            
       00125  0 50000 0 00430 5P5R6C CLA SIXSYM                    SET WORD1 OF COMPILED                          
       00126  0 60100 0 00441        STO WORD1                     INSTRUCTION TO (600000) BCD.                   
       00127  0 50000 0 00101        CLA L(SIX)                    SET COMPILING                                  
       00130  0 62100 0 00333        STA COMP                      SUBROUTINE (5PS2)                              
       00131 -0 53400 1 00114        LXD MINUS5,1                  TO PICK UP THE FIVE CONSTANTS.                 
       00132  0 07400 4 00331        TSX 5PS2C,4                 * GO COMPILE REGION-SIX CONSTANTS.               
                                          END OF PROGRAM 5P5R6C.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P6FTC/ CALLS=5PS1R,5PS4W.                                               
                                         READ IN AND COMPILE FORMAT TABLE.                                        
       00133  0 50000 0 00137 5P6FTC CLA TXLOP                     SET OP SWITCH                                  
       00134  0 63000 0 00306        STP OPSW1                     IN READING ROUTINE (5PS1)                      
       00135  0 50000 0 00424        CLA L(10)                     TO TEST FOR CORRECT TABLE NUMBER.              
       00136  0 07400 4 00304        TSX 5PS1R,4                 * GO READ IN FORMAT TABLE.                       
       00137 -3 00000 1 00154 TXLOP  TXL 5P7CBW,1,0              * IF NO ENTRIES, GO WRITE OUT CIT.               
       00140  0 50000 0 00432        CLA 4MATOP                    SET WORD2 OF COMPILED                          
       00141  0 60100 0 00442        STO WORD2                     INSTRUCTION TO (BCD000) BCD.                   
       00142  0 53400 2 00413        LXA L(0),2                    MOVE                                           
       00143  0 50000 2 00614 COMPW1 CLA BUFFER,2                  FORMAT                                         
       00144  0 60100 0 00441        STO WORD1                     ENTRY                                          
       00145  1 77777 2 00146        TXI COMPW3,2,-1               INTO                                           
       00146  0 50000 2 00614 COMPW3 CLA BUFFER,2                  WORD1 AND                                      
       00147  0 60100 0 00443        STO WORD3                     WORD3.                                         
       00150  0 07400 4 00370        TSX 5PS4W,4                 * THEN GO COMPILE FORMAT TABLE.                  
       00151  1 00002 1 00152        TXI TESTF,1,2                 IF NO ENTRIES REMAIN,                          
       00152 -3 00000 1 00154 TESTF  TXL 5P7CBW,1,0              * THEN GO WRITE OUT CIT BUFFER.                  
       00153  1 77777 2 00143        TXI COMPW1,2,-1               OTHERWISE, CONTINUE COMPILING.                 
                                          END OF PROGRAM 5P6FTC.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P7CBW.                                                                  
                                         TERMINATE COMPILING.                                                     
       00154  0 76600 0 00223 5P7CBW WTB CITTAP                    WRITE                                          
       00155 -0 53400 2 00044        LXD BBOX,2                    THE CONTENTS                                   
       00156 -0 63400 2 00162        SXD TESTC,2                   OF THE                                         
       00157  0 53400 2 00413        LXA L(0),2                    CIT BUFFER                                     
       00160  0 70000 2 00445 WRCIB  CPY CIB,2                     ONTO                                           
       00161  1 77777 2 00162        TXI TESTC,2,-1                TAPE3                                          
       00162  3 00000 2 00160 TESTC  TXH WRCIB,2,**                FOLLOWED BY                                    
       00163  0 77000 0 00203        WEF CITTAP                    AN END OF FILE.                                
                                          END OF PROGRAM 5P7CBW.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P8S2D/ CALLS=5PS1R,5PS3D.                                               
                                         TRANSFER SIZ TABLE FROM TAPE 2 TO DRUM 2.                                
       00164 -0 50000 0 00137 5P8S2D CAL TXLOP                     SET OP SWITCH IN 5PS1R                         
       00165  0 63000 0 00310        STP OPSW2                     TO COPY EIFNO, BUT SKIP TABNO TEST.            
       00166  0 07400 4 00304        TSX 5PS1R,4                 * GO READ IN SIZ TABLE + EIFNO.                  
       00167  0 50000 0 00612        CLA TABNUM                    MOVE EIFNO                                     
       00170  0 60100 0 00611        STO EIFNO                     INTO PROPER LOCATION.                          
       00171  0 50000 0 00351        CLA SETDRM                    SET DRUM ROUTINE (5PS3D)                       
       00172  0 40200 0 00414        SUB L(1)                      TO WRITE ONTO DRUM2.                           
       00173  0 60100 0 00351        STO SETDRM                    SET DRUM ADDRESS                               
       00174 -0 75400 0 02000 DRMLOC PXD 1024,0                    FOR REMAINING DRUM TABLES                      
       00175  0 62100 0 00174        STA DRMLOC                    TO ZERO.                                       
       00176 -3 00000 1 00202        TXL EMPTY2,1,0                IF THERE WERE ENTRIES MADE                     
       00177  0 50000 0 00613        CLA WRDCNT                    IN SIZ TABLE, PICKUP WRDCNT AND,               
       00200  0 07400 4 00346        TSX 5PS3D2,4                * GO WRITE SIZ ONTO DRUM2.                       
 D     00201  1 00000 0 00203        TXI 5P9T4D,0                * WHEN DONE, GO READ IN TEIFNO.                  
       00202  0 07400 4 00351 EMPTY2 TSX 5PS3D3,4                * IF SIZ IS EMPTY, GO RECORD WRD CNT.            
                                          END OF PROGRAM 5P8S2D.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P9T4D/ CALLS=5PS1R,5PS3D.                                               
                                         TRANSFER TEIFNO TABLE FROM TAPE 2 TO DRUM 4.                             
       00203  0 53400 2 00420 5P9T4D LXA L(5),2                    MOVE TABLE TAPE                                
       00204  0 76200 0 00222        RTB TABTAP                    OVER END OF FILE AND 1ST FOUR                  
       00205  2 00001 2 00204        TIX 5P9T4D+1,2,1              TABLES TO POSITION FOR TEIFNO.                 
       00206  0 50000 0 00137        CLA TXLOP                     SET OP SW1TCH IN 5PS1R                         
       00207  0 63000 0 00310        STP OPSW2                     TO MAKE TABLE NUMBER TEST.                     
       00210  0 50000 0 00413        CLA L(0)                      PICKUP TEIFNO TABLE NUMBER, AND                
       00211  0 07400 4 00304        TSX 5PS1R,4                 * GO READ IN TEIFNO TABLE.                       
       00212  0 50000 0 00137        CLA TXLOP                     SET OP SWITCH IN 5PS3D                         
       00213  0 63000 0 00354        STP DRMSW                     TO WRITE EIFNO ON DRUM.                        
       00214  0 50000 0 00351        CLA SETDRM                    SET DRUM ROUTINE                               
       00215  0 40000 0 00415        ADD L(2)                      TO WRITE ONTO                                  
       00216  0 60100 0 00351        STO SETDRM                    DRUM 4.                                        
       00217 -3 00000 1 00222        TXL EMPTY3,1,0                IF THERE WERE ENTRIES MAEEIN TEIFNO            
       00220  0 07400 4 00344        TSX 5PS3D,4                 * GO WRITE EIFNO AND TEIFNO ON DRUM4.            
 D     00221  1 00000 0 00223        TXI 5P10ED,0                * WHEN DONE, GO READ IN EQUIT.                   
       00222  0 07400 4 00351 EMPTY3 TSX 5PS3D3,4                * IF TEIFNO IS EMPTY, RECORD WRD CNT.            
                                          END OF PROGRAM 5P9T4D.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5P10ED/ CALLS=5PS1R,5PS3D.                                               
                                         TRANSFER EQU1T TABLE FROM TAPE 2 TO DRUM 1.                              
       00223  0 53400 1 00421 5P10ED LXA L(7),1                    MOVE TABLE TAPE                                
       00224  0 76200 0 00222        RTB TABTAP                    OVER 7 RECORDS                                 
       00225  2 00001 1 00224        TIX 5P10ED+1,1,1              TO POSITION FOR EQUIT.                         
       00226  0 50000 0 00422        CLA L(8)                      PICKUP EQUIT TABLE NUMBER, AND                 
       00227  0 07400 4 00304        TSX 5PS1R,4                 * GO READ IN EQUIT TABLE.                        
       00230 -0 50000 0 00137        CAL TXLOP                     SET OP SWITCH IN 5PS3D                         
       00231  0 63000 0 00354        STP DRMSW                     TO SKIP WRIT1NG OF EIFNO.                      
       00232  0 50000 0 00351        CLA SETDRM                    SET DRUM ROUTINE                               
       00233  0 40200 0 00416        SUB L(3)                      TO WRITE ONTO                                  
       00234  0 60100 0 00351        STO SETDRM                    DRUM1.                                         
       00235 -3 00000 1 00270        TXL EMPTY4,1,0                IF EQUIT IS EMPTY, RECORD WRDCNT.              
       00236 -0 53400 4 00613        LXD WRDCNT,4                  OTHERWISE,                                     
       00237  0 53400 3 00413        LXA L(0),3                    COMPUTE A                                      
       00240  0 76000 0 00000 EQCHS  CLM                           LOG1CAL                                        
       00241  0 36100 1 00614 CLASS  ACL BUFFER,1                  CHECK                                          
       00242  0 56000 1 00614        LDQ BUFFER,1                  SUM                                            
       00243 -0 60000 2 03550        STQ NEWEQ,2                   FOR                                            
       00244  1 77777 1 00245        TXI NXT1,1,-1                 EACH                                           
       00245  1 77777 2 00246 NXT1   TXI NXT2,2,-1                 EQUIVALENCE                                    
       00246  0 36100 1 00614 NXT2   ACL BUFFER,1                  CLASS                                          
       00247  0 56000 1 00614        LDQ BUFFER,1                  AND                                            
       00250 -0 60000 2 03550        STQ NEWEQ,2                   MOVE                                           
       00251  1 77777 1 00252        TXI NXT3,1,-1                 EACH                                           
       00252  1 77777 2 00253 NXT3   TXI NXT4,2,-1                 CLASS                                          
       00253  1 77776 4 00254 NXT4   TXI NXT5,4,-2                 FOLLOWED                                       
       00254  0 16200 0 00241 NXT5   TQP CLASS                     BY ITS                                         
       00255  0 60200 2 03550 L(NEQ) SLW NEWEQ,2                   CHECK                                          
       00256  1 77777 2 00257        TXI NXT6,2,-1                 SUM                                            
       00257  3 00001 4 00240 NXT6   TXH EQCHS,4,1                 INTO NEWEQ.                                    
       00260 -0 75400 2 00000        PXD ,2                        COMPUTE                                        
       00261  0 76000 0 00006        COM                           THE                                            
       00262  0 40100 0 00425        ADM DECR1                     NEW                                            
       00263  0 62200 0 00613        STD WRDCNT                    WORDCOUNT                                      
       00264  0 77100 0 00022        ARS 18                        AND                                            
       00265  0 73400 1 00000        PAX ,1                        THE                                            
       00266  0 40000 0 00255        ADD L(NEQ)                    NEW                                            
       00267  0 62100 0 00362        STA CADDRM                    MEMORY ADDRESS, AND                            
       00270  0 07400 4 00351 EMPTY4 TSX 5PS3D3,4                * GO WRITE EQUIT ON DRUM 1.                      
                                            END OF PROGRAM 5P10ED.                                                
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                          5P11CD/ CALLS=5PS1R,5PS3D.                                              
                                          TRANSFER CLOSUB TABLE FROM TAPE 2 TO DRUM 3.                            
       00271  0 50000 0 00423 5P11CD CLA L(9)                      PICKUP CLOSUB TABLE NUMBER, AND                
       00272  0 07400 4 00304        TSX 5PS1R,4                 * GO READ IN CLOSUB TABLE.                       
       00273  0 50000 0 00351        CLA SETDRM                    SET DRUM ROUTINE                               
       00274  0 40000 0 00415        ADD L(2)                      TO WRITE ONTO                                  
       00275  0 60100 0 00351        STO SETDRM                    DRUM3.                                         
       00276 -3 00000 1 00301        TXL EMPTY5,1,0                IF THERE WERE ENTRIES MADEIN CLOSUB            
       00277  0 07400 4 00344        TSX 5PS3D,4                 * GO WRITE CLOSUB ONTO DRUM3.                    
       00300  1 00000 0 00302 5PXR1  TXI END5P,0,**                THEN GO CALL SECTION SIX.                      
       00301  0 07400 4 00351 EMPTY5 TSX 5PS3D3,4                * IF CLOSUB IS EMPTY, RECORD WRDCNT.             
       00302  0 76200 0 00221 END5P  RTB SYSTAP                    SPACE OVER DIAGNOSTIC RECORD,                  
       00303  1 00000 0 00004 5PXR2  TXI SECSIX,0,**             * THEN GO CALL SECTION SIX.                      
                                            END OF PROGRAM 5P11CD.                                                
                                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *          
                                                                                                                  
                                            END OF PROGRAM 5PRIME.                                                
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                          5PS1R,4/ CALLERS=5P1ASC,5P2FXC,5P3F3D,5P4FLC,5P6FTC,5P8S2D,             
                                          5P9T4D,5P10ED,5P11CD. CALLS=DIAG.                                       
                                          READ A RECORD FROM TAPE 2.                                              
       00304  0 53400 2 00420 5PS1R  LXA TERC,2                    SET TAPE ERROR COUNTER FOR 5 TRYS.             
       00305  0 76200 0 00222 READ   RTB TABTAP                    SELECT TABLE TAPE FOR READING.                 
 D     00306 -3 00000 0 00315 OPSW1  TXL SKIP,0                    IF OP SWITCH IS SET TO TXH,                    
       00307  0 70000 0 00612        CPY TABNUM                    THEN COPY 1ST WORD INTO TABNUM.                
 D     00310  3 00000 0 00315 OPSW2  TXH SKIP,0                    IF OP SWITCH IS SET TO TXH,                    
       00311  0 34000 0 00612        CAS TABNUM                    THEN COMPARE C(AC) WITH TABNUM=                
 D     00312  1 00000 0 00314        TXI STOP,0                    IF INCORRECT RECORD - GO TO STOP.              
       00313  1 00000 0 00315 5PXR4  TXI SKIP,0,**                 IF EQUAL - THEN CONTINUE.                      
       00314  0 07400 4 00004 STOP   TSX DIAG,4                  * IF INCORRECT RECORD - GO TO DIAG.              
       00315  0 70000 0 00613 SKIP   CPY WRDCNT                    READ WORD COUNT,                               
       00316  0 53400 1 00413        LXA L(0),1                    AND THEN READ                                  
       00317  0 70000 1 00614 COPY   CPY BUFFER,1                  COMPLETE TABLE                                 
       00320  1 77777 1 00317        TXI COPY,1,-1                 INTO BUFFER.                                   
       00321  0 07400 4 00004        TSX DIAG,4                  * IF END OF FILE -,GO TO DIAGNOSTIC.             
       00322  0 76600 0 00333        IOD                           WHEN DONE,                                     
       00323 -0 76000 0 00012        RTT                           IF TAPE RECORD                                 
 D     00324  1 00000 0 00326        TXI RTTON,0                   WAS READ CORRECTLY,                            
       00325  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.                        
       00326  0 76400 0 00202 RTTON  BST TABTAP                    OTHERWISE, BACKSPACE TAPE, AND                 
       00327  2 00001 2 00305        TIX READ,2,1                  GO REREAD RECORD UNLESS                        
       00330  0 07400 4 00004        TSX DIAG,4                  * 5 ATTEMPTS FAILED - GO TO DIAG.                
                                          END OF PROGRAM 5PS1R.                                                   
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         5PS2C,4/ CALLS=5PS4W. CALLERS=5P1ASC,5P2FXC,5P4FLC,5P5R6C.               
                                         COMPILE 4-WORD INSTRUCTIONS FROM BUFFER ENTRIES.                         
       00331 -0 63400 4 00313 5PS2C  SXD 5PXR4,4                   SAVE C(XR4) FOR EXIT.                          
       00332  0 53400 2 00413        LXA L(0),2                    MOVE                                           
       00333  0 50000 2 00614 COMP   CLA BUFFER,2                  ENTRY                                          
       00334  0 60100 0 00443        STO WORD3                     INTO WORD3,                                    
       00335  0 07400 4 00370        TSX 5PS4W,4                 * AND GO COMPILE INSTRUCTION.                    
       00336  1 00001 1 00337        TXI TEST,1,1                  IF NO ENTRIES REMAIN,                          
       00337 -3 00000 1 00342 TEST   TXL EXIT2,1,0                 THEN TAKE EXIT2.                               
       00340  0 60000 0 00441        STZ WORD1                     SET WORD1 TO ZERO,                             
       00341  1 77777 2 00333        TXI COMP,2,-1                 AND COMPILE SUCCEEDING ENTRIES.                
       00342 -0 53400 4 00313 EXIT2  LXD 5PXR4,4                   RESTORE C(XR4), AND                            
       00343  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.                        
                                           END OF PROGRAM 5PS2C.                                                  
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                          5PS3D,4/ CALLERS=5P3F3D,5P8S2D,5P9T4D,5P10ED,5P11CD.                    
                                          WRITE TABLE ONTO DRUM FOLLOWED BY CHECKSUM.                             
       00344  0 50000 0 00613 5PS3D  CLA WRDCNT                    SET C(XR1)                                     
       00345  0 77100 0 00022 5PS3D1 ARS 18                        EQUAL TO                                       
       00346  0 73400 1 00614 5PS3D2 PAX BUFFER,1                  THE WORD COUNT                                 
       00347  0 40000 0 00346        ADD 5PS3D2                    AND INITIALIZE                                 
       00350  0 62100 0 00362        STA CADDRM                    CAD ADDRESS.                                   
       00351  0 76600 0 00303 5PS3D3 WDR 3                         WRITE ONTO                                     
       00352  0 76000 0 00000        CLM                           THE DRUM,                                      
       00353  0 46000 0 00174        LDA DRMLOC                    ACCORDING TO SWITCH SETTING.                   
 D     00354 -3 00000 0 00357 DRMSW  TXL DRMSW+3,0                 IF OP SWITCH IS TXH,                           
       00355  0 70000 0 00611        CPY EIFNO                     WRITE EIFNO FOLLOWED                           
       00356  0 70000 0 00611        CPY EIFNO                     BY ITS CHECKSUM.                               
       00357  0 70000 0 00613        CPY WRDCNT                    WRITE WORD COUNT FOLLOWED                      
       00360  0 70000 0 00613        CPY WRDCNT                    BY ITS CHECKSUM, AND THEN                      
       00361 -3 00000 1 00367        TXL EXIT3,1,0                 UNLESS THE BUFFER IS EMPTY,                    
       00362 -0 70000 1 00000 CADDRM CAD **,1                      WRITE THE                                      
       00363  2 00001 1 00362        TIX CADDRM,1,1                CONTENTS OF BUFFER                             
       00364  0 70000 0 00413        CPY L(0)                      ONTO DRUM FOLLOWED                             
       00365  0 60200 0 00440        SLW 5PERAS                    BY ZERO AND THEN                               
       00366  0 70000 0 00440        CPY 5PERAS                    THE LOGICAL CHECKSUM.                          
       00367  0 02000 4 00001 EXIT3  TRA 1,4                     * RETURN TO MAIN ROUTINE.                        
                                           END OF PROGRAM 5PS3D.                                                  
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                         5PS4W,4/ CALLERS=5P6FTC,5PS2C.                                           
                                         MOVE 4-WORD INSTRUCTION INTO CIB, AND WRITE CIB ONTO TAPE3.              
       00370 -0 63400 1 00300 5PS4W  SXD 5PXR1,1                   SAVE C(XR1) AND                                
       00371 -0 63400 2 00303        SXD 5PXR2,2                   SAVE C(XR2).                                   
       00372 -0 53400 2 00044        LXD BBOX,2                    IF THE NUMBER OF                               
       00373  3 77634 2 00402        TXH MOVE-1,2,-100             WORDS ENTERED = 100,                           
       00374  0 76600 0 00223        WTB CITTAP                    THEN                                           
       00375  0 53400 1 00413        LXA L(0),1                    WRITE                                          
       00376  0 70000 1 00445 WRITE  CPY CIB,1                     THE CONTENTS                                   
       00377  1 00001 2 00400        TXI TESTB,2,1                 OF THE CIT                                     
       00400 -3 00000 2 00402 TESTB  TXL MOVE-1,2,0                BUFFER                                         
       00401  1 77777 1 00376        TXI WRITE,1,-1                ONTO TAPE3.                                    
       00402  0 53400 1 00417        LXA L(4),1                    MOVE                                           
       00403  0 50000 1 00445 MOVE   CLA WORD1+4,1                 NEW                                            
       00404  0 60100 2 00445        STO CIB,2                     4 WORD                                         
       00405  1 77777 2 00406        TXI TESTA,2,-1                INSTRUCTION                                    
       00406  2 00001 1 00403 TESTA  TIX MOVE,1,1                  INTO CIT BUFFER.                               
       00407 -0 63400 2 00044        SXD BBOX,2                    ADJUST BUFFER COUNT.                           
       00410 -0 53400 1 00300        LXD 5PXR1,1                   RESTORE C(XR1),                                
       00411 -0 53400 2 00303        LXD 5PXR2,2                   RESTORE C(XR2), AND                            
       00412  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE.                          
                                           END DF PROGRAM 5PS4W.                                                  
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                                                                                                  
                                          CONSTANTS USED BY 5 PRIME.                                              
       00413  0 00000 0 00000 L(0)   PZE 0                                                                        
       00414  0 00000 0 00001 L(1)   PZE 1                                                                        
       00415  0 00000 0 00002 L(2)   PZE 2                                                                        
       00416  0 00000 0 00003 L(3)   PZE 3                                                                        
       00417  0 00000 0 00004 L(4)   PZE 4                                                                        
       00420  0 00000 0 00005 L(5)   PZE 5                                                                        
       00421  0 00000 0 00007 L(7)   PZE 7                                                                        
       00422  0 00000 0 00010 L(8)   PZE 8                                                                        
       00423  0 00000 0 00011 L(9)   PZE 9                                                                        
       00424  0 00000 0 00012 L(10)  PZE 10                                                                       
       00425  0 00001 0 00000 DECR1  PZE 0,0,1                                                                    
       00426  020000000000    FIXSYM BCD 1200000                                                                  
       00427  030000000000    FLOSYM BCD 1300000                                                                  
       00430  060000000000    SIXSYM BCD 1600000                                                                  
       00431  462363000000    OCTLOP BCD 1OCT000                                                                  
       00432  222324000000    4MATOP BCD 1BCD000                                                                  
       00433 +233000000000    SIX    OCT 233000000000,77777,0,1000000,0                                           
       00434 +000000077777    
       00435 +000000000000    
       00436 +000001000000    
       00437 +000000000000    
                                          END OF 5 PRIME CONSTANTS.                                               
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         WORKING STORAGE USED BY 5 PRIME.                                         
                        00440 5PERAS BSS 1                                                                        
       00441  050000000000    WORD1  BCD 1500000                                                                  
       00442  635121000000    WORD2  BCD 1TRA000                                                                  
       00443  000000000000    WORD3  BCD 1000000                                                                  
       00444  000000000000    WORD4  BCD 1000000                                                                  
                        00445 CIB    BSS 100                                                                      
                        00611 EIFNO  BSS 1                                                                        
                        00612 TABNUM BSS 1                                                                        
                        00613 WRDCNT BSS 1                                                                        
                        00614 BUFFER BSS 1500                                                                     
                        03550 NEWEQ  BSS 1500                                                                     
                                          END OF 5 PRIME WORKING STORAGE.                                         
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                                                                                                  
                                         SYNONYMS USED BY 5 PRIME.                                                
                        00351 SETDRM SYN 5PS3D3                    LOCATION OF WDR INSTRUCTION.                   
                        00420 TERC   SYN L(5)                      TAPE ERROR COUNTER.                            
                        00001 SYSTAP SYN 1                         FORTRAN SYSTEM TAPE.                           
                        00002 TABTAP SYN 2                         TABLE TAPE.                                    
                        00003 CITTAP SYN 3                         COMPILED INSTRUCTION TAPE.                     
                        00004 DIAG   SYN 4                         DIAGNOSTIC ROUTINE.                            
                        00004 SECSIX SYN 4                         SECTION SIX = NEXT SECTION.                    
                                           END OF 5 PRIME SYNONYMS.                                               
                                          * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *           
                                                                                                                  
                                                                                                                  
                        00030        END 5PRIME                                                                   
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     403           0           0           0           0
 LIB       0           0           0           0           0
 COL     403           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      416                  
0NUMBER OF SYMBOLS,  DEF   104,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION PRE-SIX ********************F6A00010    
1                                        ************* FORTRAN II SECTION PRE-SIX ********************F6A00010    
                                         FORTRAN 2   RECORD 92  -  PRE-6.                             F6A00011    
                                                                                                      F6A00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)           F6A00013    
                                                                                                      F6A00014    
                        00030        ORG 24                                                           F6A00020    
       00030  0 00000 0 00000  PC1   HTR 0                                                            F6A00030    
       00031  0 00000 0 00000  PC2   HTR 0                                                            F6A00040    
       00032  0 00000 0 00000  PC3   HTR 0                                                            F6A00050    
       00033  0 00000 0 00000  PC4   HTR 0                                                            F6A00060    
       00034  0 00000 0 00000  PC5   HTR 0                                                            F6A00070    
       00035  0 00000 0 00000  PC6   HTR 0                                                            F6A00080    
       00036  0 00000 0 00000  SUBIN HTR 0                                                            F6A00090    
                                         SECTION PRE 6                                                F6A00100    
                                         TRANSFER VECTOR COMPILING                                    F6A00110    
                        00037        ORG 31                                                           F6A00120    
       00037  0 77200 0 00202  START REW 2                                                            F6A00130    
       00040  0 77200 0 00203        REW 3                                                            F6A00140    
       00041  0 77200 0 00204        REW 4                                                            F6A00150    
       00042  0 07400 4 01406        TSX APCH2,4       TO SKIP BCD FILE.                              F6A00160    
       00043  0 76200 0 00222  P1    RTB 2             ON TAPE 2.                                     F6A00170    
       00044  0 70000 0 01355  CH1   CPY ERAS1                                                        F6A00180    
       00045  0 02000 0 00044        TRA CH1                                                          F6A00190    
       00046  0 02000 0 00050        TRA P2            END OF FILE.                                   F6A00200    
       00047  0 02000 0 00043        TRA P1            END OF REC.                                    F6A00210    
       00050  2 00001 2 00043  P2    TIX P1,2,1                                                       F6A00220    
       00051  0 76200 0 00222        RTB 2                 RECORD 3                                   F6A00230    
       00052  0 77100 0 00377        ARS 255                                                          F6A00240    
       00053  0 77100 0 00377        ARS 255                                                          F6A00250    
       00054 -0 76000 0 00012        RTT                                                              F6A00260    
       00055  0 76100 0 00000        NOP                                                              F6A00270    
                                         READ TRANSFER VECTOR FROM DRUM 3                             F6A00280    
       00056  0 53400 2 00142        LXA P16,2                                                        F6A00290    
       00057  0 76200 0 00303  RDRM  RDR 3                                                            F6A00300    
 T     00060 -0 75400 0 00000  MDA   PXD                                                              F6A00310    
       00061  0 46000 0 00060        LDA MDA                                                          F6A00320    
       00062 -0 70000 0 04574        CAD TV-2                                                         F6A00330    
       00063  0 76000 0 00006        COM                                                              F6A00340    
       00064 -0 70000 0 04575        CAD TV-1                                                         F6A00350    
       00065  0 76000 0 00006        COM                                                              F6A00360    
       00066  0 10000 0 00071        TZE RDRF                                                         F6A00370    
       00067  2 00001 2 00057        TIX RDRM,2,1                                                     F6A00380    
       00070  0 07400 4 00004        TSX 4,4                                                          F6A00390    
       00071 -0 53400 3 04574  RDRF  LXD TV-2,3                                                       F6A00400    
 D     00072 -3 00000 1 00110        TXL SDF,1                                                        F6A00410    
       00073  0 53400 2 00142        LXA P16,2                                                        F6A00420    
       00074  0 76200 0 00303  RDRM1 RDR 3                                                            F6A00430    
 T     00075 -0 75400 0 00002  FDA   PXD 2                                                            F6A00440    
       00076  0 46000 0 00075        LDA FDA                                                          F6A00450    
       00077 -0 70000 1 04574  CPY   CAD TV-2,1                                                       F6A00460    
       00100  2 00001 1 00077        TIX CPY,1,1                                                      F6A00470    
       00101  0 70000 0 01366        CPY SUM                                                          F6A00480    
       00102  0 76000 0 00006        COM                                                              F6A00490    
       00103 -0 70000 0 01366        CAD SUM                                                          F6A00500    
       00104  0 76000 0 00006        COM                                                              F6A00510    
       00105  0 10000 0 00110        TZE SDF                                                          F6A00520    
       00106  2 00001 2 00074        TIX RDRM1,2,1                                                    F6A00530    
       00107  0 07400 4 00004        TSX 4,4                                                          F6A00540    
       00110  0 50000 0 04574  SDF   CLA TV-2          WD CT. OF TRANSFER VECTOR.                     F6A00550    
       00111  0 60100 0 00032        STO PC3           STORE LENGTH IN PROGRAM CARD.                  F6A00560    
       00112  0 10000 0 00133        TZE NOVC                                                         F6A00570    
       00113  0 40200 0 01342        SUB C18                                                          F6A00580    
       00114  0 62200 0 00127        STD P8                                                           F6A00590    
       00115 -0 53400 5 01307        LXD C1,5          INITIALIZE TAPE 4 (SETXR1 AND 4=0)             F6A00600    
       00116 -0 50000 4 04573  P9    CAL TV-3,4        STORAGE.                                       F6A00610    
       00117  0 60200 1 02461        SLW REC-1,1       SELECT NAME AND                                F6A00620    
       00120  0 60200 1 02457        SLW REC-3,1       COMPILE CIT.                                   F6A00630    
       00121  0 60000 1 02456        STZ REC-4,1                                                      F6A00640    
       00122 -0 50000 0 01311        CAL BCD                                                          F6A00650    
       00123  0 60200 1 02460        SLW REC-2,1                                                      F6A00660    
       00124  1 00004 1 00125        TXI P7,1,4                                                       F6A00670    
       00125  3 00143 1 00131  P7    TXH WRIT4,1,99                                                   F6A00680    
       00126  1 00001 4 00127  P11   TXI P8,4,1                                                       F6A00690    
       00127  3 00127 4 00135  P8    TXH P10,4,*                                                      F6A00700    
       00130  0 02000 0 00116        TRA P9                                                           F6A00710    
       00131  0 07400 2 01254  WRIT4 TSX SUB1,2        WRITE RECORD ON                                F6A00720    
       00132  0 02000 0 00126        TRA P11           TAPE 4.                                        F6A00730    
       00133 -0 53400 1 01307  NOVC  LXD C1,1          SETXR1=0                                       F6A00740    
       00134  0 02000 0 00135        TRA P10                                                          F6A00750    
                                         SUBDEF COMPILING                                             F6A00760    
       00135  0 53400 4 00142  P10   LXA P16,4         SET READ ERROR COUNTER.                        F6A00770    
       00136  0 02000 0 00143        TRA P17                                                          F6A00780    
       00137  0 76400 0 00202  P15   BST 2                                                            F6A00790    
       00140  2 00001 4 00143        TIX P17,4,1                                                      F6A00800    
       00141  0 07400 4 00004        TSX 4,4                                                          F6A00810    
       00142  0 42000 0 00005  P16   HPR 5                                                            F6A00820    
       00143  0 76200 0 00222  P17   RTB 2             READ SUBDEF TABLE INTO                         F6A00830    
       00144  0 53400 2 01310        LXA C2,2          SUB-1,-2,...                                   F6A00840    
       00145  0 70000 2 04574  P18   CPY SUB-2,2                                                      F6A00850    
       00146  1 00001 2 00145        TXI P18,2,1                                                      F6A00860    
       00147  0 02000 0 01341        TRA EOF2                                                         F6A00870    
       00150  0 77100 0 00377        ARS 255                                                          F6A00880    
       00151  0 77100 0 00377        ARS 255                                                          F6A00890    
       00152 -0 76000 0 00012        RTT                                                              F6A00900    
       00153  0 02000 0 00137        TRA P15                                                          F6A00910    
       00154  0 50000 0 00032        CLA PC3                                                          F6A00920    
       00155  0 77100 0 00022        ARS 18                                                           F6A00930    
       00156  0 60100 0 00035        STO PC6                                                          F6A00940    
       00157 -0 50000 0 04574        CAL SUB-2         STORE SUBDEF WORD COUNT.                       F6A00950    
       00160  0 60100 0 00036        STO SUBIN                                                        F6A00960    
       00161  0 10000 0 01233        TZE NOSUB         TEST FOR SUBROUTINE.                           F6A00970    
       00162 -0 50000 0 04573  P19   CAL SUB-3         STORE NAME OF SUBROUTINE FOR PROGRAM CARD.     F6A00980    
       00163  0 60200 0 00034        SLW PC5                                                          F6A00990    
       00164  0 50000 0 00035        CLA PC6                                                          F6A01000    
       00165  0 40000 0 01307        ADD C1                                                           F6A01010    
       00166  0 60100 0 00035        STO PC6           SET RELATIVE                                   F6A01020    
       00167  0 60000 0 01356        STZ RCT           COUNT T0 0.                                    F6A01030    
       00170 -0 50000 0 01314        CAL C5            COMPILE CITS.                                  F6A01040    
       00171  0 60200 1 02461        SLW REC-1,1                                                      F6A01050    
       00172  0 07400 2 01265        TSX SUB2,2        COMPLETES CIT ONE.                             F6A01060    
       00173  0 02000 0 00175        TRA P20               CIT 1                                      F6A01070    
       00174  0 07400 2 01254        TSX SUB1,2        IF VEC, WRITE OFF TAPE FOUR.                   F6A01080    
       00175  0 60000 1 02461  P20   STZ REC-1,1       COMPILE CIT, WD1=0,                            F6A01090    
       00176  0 07400 2 01265        TSX SUB2,2        WD 2=HTR, WD 3=0, WD 4=0.                      F6A01100    
       00177  0 02000 0 00201        TRA P22                                                          F6A01110    
       00200  0 07400 2 01254        TSX SUB1,2        IF NEC, WRITE OFF TAPE FOUR.                   F6A01120    
       00201  0 60000 1 02461  P22   STZ REC-1,1       CIT 3                                          F6A01130    
       00202  0 07400 2 01265        TSX SUB2,2                                                       F6A01140    
       00203  0 02000 0 01415        TRA NAME                                                         F6A01150    
       00204  0 07400 2 01254        TSX SUB1,2                                                       F6A01160    
       00205  0 02000 0 01415  COMPX TRA NAME                                                         F6A01170    
       00206  0 07400 2 01275        TSX SUB3,2        TO STORE CIT 4 IN TAPE 4 BUFFER.               F6A01180    
       00207  0 02000 0 00211        TRA P26                                                          F6A01190    
       00210  0 07400 2 01254        TSX SUB1,2                                                       F6A01200    
       00211 -0 50000 0 01320  P26   CAL C9                                                           F6A01210    
       00212  0 07400 2 01275        TSX SUB3,2        TO STORE IN T-4 BUFFER PROLOGUE CIT 5          F6A01220    
       00213  0 02000 0 00215        TRA P28                                                          F6A01230    
       00214  0 07400 2 01254        TSX SUB1,2                                                       F6A01240    
       00215 -0 50000 0 01321  P28   CAL C10           TO STORE IN T-4 BUFFER PROLOGUE CIT 6.         F6A01250    
       00216  0 07400 2 01275        TSX SUB3,2                                                       F6A01260    
       00217  0 02000 0 00221        TRA P30                                                          F6A01270    
       00220  0 07400 2 01254        TSX SUB1,2                                                       F6A01280    
       00221  0 56000 0 01307  P30   LDQ C1            INIT DELETE                                    F6A01290    
       00222 -0 60000 0 01357        STQ DELIN         INDICATOR NOT ZERO.                            F6A01300    
       00223  0 50000 0 04574        CLA SUB-2         COMPUTE TEST                                   F6A01310    
       00224  0 77100 0 00022        ARS 18            ADDRESS FOR END                                F6A01320    
       00225  0 40200 0 01317        SUB C8            OF ARG LIST.                                   F6A01330    
       00226  0 60100 0 01360        STO ARGCT         ARGCT CONTAINS WD CT. OF SUBDEF-1.             F6A01340    
       00227  0 10000 0 01243        TZE F1            =0 IF NO ARGUMENTS                             F6A01350    
       00230  0 40000 0 01322        ADD C11                                                          F6A01360    
       00231  0 62100 0 01333        STA AGTST         AGTST CONTAINS NO. OF ARGS-SUB+4               F6A01370    
                                         FORM ARG ARRAY INDICATOR TABLE                               F6A01380    
       00232 -0 50000 0 01322  A1    CAL C11           INIT ARG LIST,                                 F6A01390    
       00233  0 62100 0 00306        STA A10           SET ADDRESS A10=SUB-4.                         F6A01400    
       00234  0 53400 2 00142        LXA P16,2                                                        F6A01410    
       00235  0 76200 0 00302  A4    RDR 2             READ SIZE TABLE WORD COUNT.                    F6A01420    
       00236  0 46000 0 00237        LDA A2                                                           F6A01430    
 T     00237 -0 75400 0 00000  A2    PXD 0                                                            F6A01440    
       00240 -0 70000 0 01350        CAD EA1                                                          F6A01450    
       00241  0 76000 0 00006        COM                                                              F6A01460    
       00242 -0 70000 0 01351        CAD EA2                                                          F6A01470    
       00243  0 76000 0 00006        COM                                                              F6A01480    
       00244  0 10000 0 00247        TZE A3                                                           F6A01490    
       00245  2 00001 2 00235        TIX A4,2,1                                                       F6A01500    
       00246  0 07400 4 00004        TSX 4,4                                                          F6A01510    
       00247  0 50000 0 01350  A3    CLA EA1                                                          F6A01520    
       00250  0 77100 0 00001        ARS 1                                                            F6A01530    
       00251  0 60100 0 01350        STO EA1           EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES IN SIZE F6A01540    
                                                       TABLE.                                         F6A01541    
       00252 -0 53400 2 01307  A18   LXD C1,2          SET ARRAY IND. TABLE                           F6A01550    
       00253  0 60000 2 05310  A19   STZ ARIND,2       TO ZERO,                                       F6A01560    
       00254  1 00001 2 00255        TXI A20,2,1           TABLE                                      F6A01570    
       00255  3 00035 2 00257  A20   TXH CH4,2,29                                                     F6A01580    
       00256  0 02000 0 00253        TRA A19                                                          F6A01590    
       00257  0 53400 2 01350  CH4   LXA EA1,2                                                        F6A01600    
       00260 -3 00000 2 00342        TXL B1,2,0        TEST FOR NO ARRAYS.                            F6A01610    
       00261 -0 63400 1 01352        SXD IRIST,1       SAVE TAPE 4 INDEX.                             F6A01620    
       00262  0 53400 1 00142        LXA P16,1                                                        F6A01630    
       00263  0 76200 0 00302  A8    RDR 2                                                            F6A01640    
       00264  0 46000 0 00265        LDA A5                                                           F6A01650    
 T     00265 -0 75400 0 00002  A5    PXD 2                                                            F6A01660    
       00266 -0 70000 2 06546  A6    CAD DIM,2         READ SIZ TABLE.                                F6A01670    
       00267 -0 70000 0 01351        CAD EA2                                                          F6A01680    
       00270  2 00001 2 00266        TIX A6,2,1                                                       F6A01690    
       00271  0 70000 0 01351        CPY EA2                                                          F6A01700    
       00272  0 76000 0 00006        COM                                                              F6A01710    
       00273 -0 70000 0 01351        CAD EA2                                                          F6A01720    
       00274  0 76000 0 00006        COM                                                              F6A01730    
       00275  0 10000 0 00300        TZE A7                                                           F6A01740    
       00276  2 00001 1 00263        TIX A8,1,1                                                       F6A01750    
       00277  0 07400 4 00004        TSX 4,4                                                          F6A01760    
       00300  0 50000 0 01324  A7    CLA C13           INIT ARIND TABLE.                              F6A01770    
       00301 -0 53400 1 01352        LXD IRIST,1                                                      F6A01780    
       00302  0 60100 0 01351        STO EA2                                                          F6A01790    
       00303  0 50000 0 01323        CLA C12                                                          F6A01800    
       00304  0 62100 0 00316        STA A14                                                          F6A01810    
       00305  0 53400 2 01350  A9    LXA EA1,2                                                        F6A01820    
       00306  0 50000 0 04572  A10   CLA SUB-4         SELECT ARG.                                    F6A01830    
       00307  0 34000 2 06546        CAS DIM,2         IS ARGUMENT AN ARRAY.                          F6A01840    
       00310  0 02000 0 00312        TRA A11                                                          F6A01850    
       00311  0 02000 0 00315        TRA A13           YES                                            F6A01860    
       00312  2 00001 2 00306  A11   TIX A10,2,1                                                      F6A01870    
       00313  0 50000 0 01334  A12   CLA ZERO          ARG IS NOT ARRAY. SET BIT TO ZERO              F6A01880    
       00314  0 02000 0 00316        TRA A14                                                          F6A01890    
       00315  0 50000 0 01325  A13   CLA C14           ARG IS ARRAY, SET BIT TO BE 1.                 F6A01900    
       00316 -0 60200 0 05310  A14   ORS ARIND STORE INSTORE INDICATOR                                F6A01910    
       00317  0 50000 0 01325        CLA C14                                                          F6A01920    
       00320  0 77100 0 00001  A17   ARS 1                                                            F6A01930    
       00321  0 60100 0 01325        STO C14                                                          F6A01940    
       00322 -0 50000 0 01351        CAL EA2           MODIFY ARIND COUNT.                            F6A01950    
       00323  0 40200 0 01317        SUB C8                                                           F6A01960    
       00324  0 60100 0 01351        STO EA2                                                          F6A01970    
       00325  0 10000 0 00334        TZE A15           WORD FULL TEST.                                F6A01980    
       00326  0 50000 0 00306  A16   CLA A10           MODIFY ARG                                     F6A01990    
       00327  0 40200 0 01317        SUB C8            LIST ADDRESS.                                  F6A02000    
       00330  0 62100 0 00306        STA A10                                                          F6A02010    
       00331  0 40200 0 01333        SUB AGTST                                                        F6A02020    
       00332  0 10000 0 00342        TZE B1            NO MORE ARGUMENTS.                             F6A02030    
       00333  0 02000 0 00305        TRA A9                                                           F6A02040    
       00334  0 50000 0 01324  A15   CLA C13                                                          F6A02050    
       00335  0 60100 0 01351        STO EA2                                                          F6A02060    
       00336  0 50000 0 00316        CLA A14                                                          F6A02070    
       00337  0 40000 0 01317        ADD C8                                                           F6A02080    
       00340  0 62100 0 00316        STA A14                                                          F6A02090    
       00341  0 02000 0 01432        TRA APCH3+1                                                      F6A02100    
       00342 -0 63400 1 01352  B1    SXD IRIST,1       SAVE TAPE 4 INDEX                              F6A02110    
                                         FORM OP TABLES FROM SEARCHING CIT                            F6A02120    
       00343  0 60000 0 01361        STZ TP2CT         SET TAPE 2 RECORD COUNT TO ZERO,               F6A02130    
       00344  0 76200 0 00222  B3    RTB 2             READY TAPE 2.                                  F6A02140    
       00345  0 70000 0 01351  CH2   CPY EA2                                                          F6A02150    
       00346  0 02000 0 00345        TRA CH2                                                          F6A02160    
       00347  0 02000 0 00351        TRA B2            E0F                                            F6A02170    
       00350  0 02000 0 00344        TRA B3            EOR                                            F6A02180    
       00351 -0 53400 1 01307  B2    LXD C1,1          INIT OP BLOCK. SET XR1=0                       F6A02190    
       00352  0 53400 4 00357  B8    LXA B5,4              READ TAPE 3                                F6A02200    
       00353  0 02000 0 00360        TRA B6                                                           F6A02210    
       00354  0 76400 0 00203  B4    BST 3                                                            F6A02220    
       00355  2 00001 4 00360        TIX B6,4,1                                                       F6A02230    
       00356  0 07400 4 00004        TSX 4,4                                                          F6A02240    
       00357  0 42000 0 00005  B5    HPR 5                                                            F6A02250    
       00360  0 76200 0 00223  B6    RTB 3             SELECT CIT TAPE.                               F6A02260    
       00361  0 53400 2 01310        LXA C2,2          SETXR2=-1                                      F6A02270    
       00362  0 70000 2 02624  B7    CPY CIT-2,2       COPY A RECORD OF CIT TAPE INTO CIT-1,-2,       F6A02280    
       00363  1 00001 2 00362        TXI B7,2,1                                                       F6A02290    
       00364  0 02000 0 00517        TRA B28           END OF FILE                                    F6A02300    
       00365  0 77100 0 00377        ARS 255           END OF RECORD                                  F6A02310    
       00366  0 77100 0 00377        ARS 255                                                          F6A02320    
       00367 -0 76000 0 00012        RTT                                                              F6A02330    
       00370  0 02000 0 00354        TRA B4                                                           F6A02340    
       00371 -0 63400 2 00515        SXD B27,2         SAVE TAPE 3 RECORD LENGTH(-2)                  F6A02350    
       00372 -0 53400 4 01307        LXD C1,4          INIT TAPE 3 BLOCK.                             F6A02360    
       00373  0 50000 0 01356        CLA RCT                                                          F6A02370    
       00374 -0 10000 0 00377        TNZ B9            TRANSFER IF RELATIVE COUNT NOT ZERO.           F6A02380    
       00375 -0 50000 0 02625        CAL CIT-1         STORE INITIAL                                  F6A02390    
       00376  0 60200 0 01353        SLW SLINT         SYM LOCATION.                                  F6A02400    
       00377  0 50000 0 01357  B9    CLA DELIN         IS DELINO ZERO.                                F6A02410    
       00400  0 10000 0 00414        TZE B11           TRANSFER IF YES.                               F6A02420    
       00401 -0 50000 4 02624        CAL CIT-2,4       SELECT CIT. IS OP QPR.                         F6A02430    
       00402  0 77100 0 00022        ARS 18                                                           F6A02440    
       00403  0 34000 0 01332        CAS QPR                                                          F6A02450    
       00404  0 02000 0 00425        TRA B12                                                          F6A02460    
       00405  0 02000 0 00407        TRA B10           EQUAL. OP IS QPR.                              F6A02470    
       00406  0 02000 0 00425        TRA B12           NOT EQUAL                                      F6A02480    
       00407  0 60000 0 01357  B10   STZ DELIN         QPR OP. SET DELETE INDICATOR TO ZERO.          F6A02490    
       00410  0 50000 0 01356  B16   CLA RCT                                                          F6A02500    
       00411  0 40000 0 01317        ADD C8            INCREMENT RCT BY 1,                            F6A02510    
       00412  0 60100 0 01356        STO RCT           AND GO MODIFY TAPE THREE INDEX.                F6A02520    
       00413  0 02000 0 00514        TRA B26                                                          F6A02530    
       00414  0 50000 0 01317  B11   CLA C8            SET DELETE INDIC. EQUAL ONE                    F6A02540    
       00415  0 60100 0 01357        STO DELIN         AND GO MODIFY TAPE 3 IN0EX.                    F6A02550    
       00416  0 02000 0 00514        TRA B26                                                          F6A02560    
       00417  0 50000 4 02622  EXT21 CLA CIT-4,4                                                      F6A02570    
       00420  0 77100 0 00022        ARS 18                                                           F6A02580    
       00421  0 40000 0 01356        ADD RCT                                                          F6A02590    
       00422  0 60100 0 01356        STO RCT                                                          F6A02600    
       00423  0 02000 0 00514        TRA B26                                                          F6A02610    
       00424  000000226262     BSS   BCD 1000BSS                                                      F6A02620    
       00425  0 34000 0 00424  B12   CAS BSS           OP NOT QPR. TEST FOR BSS OP.                   F6A02630    
       00426  0 02000 0 00430        TRA EXT20                                                        F6A02640    
       00427  0 02000 0 00417        TRA EXT21         OP EQUAL BSS.                                  F6A02650    
       00430  0 02000 0 01370  EXT20 TRA APCH1         OP NOT QPR NOR BSS.                            F6A02660    
       00431  0 62100 0 00432        STA B13           INITIALIZE ARGUMENT LIST ADDRESS.              F6A02670    
       00432  0 50000 0 04572  B13   CLA SUB-4         SEARCH ARG LIST                                F6A02680    
       00433  0 34000 4 02623        CAS CIT-3,4       FOR EQUAL SYMBOLIC                             F6A02690    
       00434  0 02000 0 00436        TRA B15           ADDRESS.                                       F6A02700    
       00435  0 02000 0 00444        TRA B14           EQUAL, GO TO B14 TO COMPILE OP TABLE ENTRY.    F6A02710    
       00436  0 50000 0 00432  B15   CLA B13           SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE       F6A02720    
       00437  0 40200 0 01317        SUB C8            ARGUMENT COUNTER.                              F6A02730    
       00440  0 62100 0 00432        STA B13                                                          F6A02740    
       00441  0 40200 0 01333        SUB AGTST         TEST FOR ALL ARGUMENTS TREATED.                F6A02750    
       00442  0 10000 0 00410        TZE B16           NO MORE ARGUMENTS. TRANSFER.                   F6A02760    
       00443  0 02000 0 00432        TRA B13           GO CHECK AGAINST NEXT ARGUMENT.                F6A02770    
       00444  0 50200 0 01322  B14   CLS C11           EQUAL, MUST COMPILE OP TABLE ENTRY.            F6A02780    
       00445  0 40200 0 00432        SUB B13                                                          F6A02790    
       00446  0 40000 0 01317        ADD C8                                                           F6A02800    
       00447  0 60100 0 01354        STO ARGNO             COMPUTE ADDRESS                            F6A02810    
       00450  0 40200 0 01317        SUB C8            COMPUTE ADDRESS                                F6A02820    
       00451  0 76500 0 00043        LRS 35            OF BIT IN ARIND                                F6A02830    
       00452  0 22000 0 01324        DVH C13           TABLE.                                         F6A02840    
       00453 -0 60000 0 01355        STQ ERAS1                                                        F6A02850    
       00454  0 62100 0 00461        STA B18                                                          F6A02860    
       00455  0 50000 0 01323        CLA C12                                                          F6A02870    
       00456  0 40200 0 01355        SUB ERAS1                                                        F6A02880    
       00457  0 62100 0 00460        STA B17                                                          F6A02890    
       00460  0 56000 0 00460  B17   LDQ *             TEST FOR ARRAY.                                F6A02900    
       00461  0 76300 0 00461  B18   LLS *                                                            F6A02910    
 T     00462 -0 75400 0 00000        PXD                                                              F6A02920    
       00463  0 76300 0 00001        LLS 1                                                            F6A02930    
       00464  0 10000 0 00470        TZE B19           NOT ARRAY.                                     F6A02940    
       00465  0 50000 4 02622        CLA CIT-4,4       ARG IS ARRAY, SO STORE RELATIVE ADDRESS OF     F6A02950    
       00466  0 60100 1 06544        STO OP-2,1        CIT AS WORD 2 OF OP TABLE ENTRY.               F6A02960    
       00467  0 02000 0 00471        TRA B20                                                          F6A02970    
       00470  0 60000 1 06544  B19   STZ OP-2,1        ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0.    F6A02980    
       00471  0 50000 0 01354  B20   CLA ARGNO         ASSEMBLE WORD ONE OF OP TABLE ENTRY.           F6A02990    
       00472  0 76700 0 00022        ALS 18                                                           F6A03000    
       00473  0 40000 0 01356        ADD RCT                                                          F6A03010    
       00474  0 60100 1 06545        STO OP-1,1                                                       F6A03020    
       00475  1 00002 1 00476        TXI B21,1,2       MODIFY TAPE 2                                  F6A03030    
       00476  3 00441 1 00500  B21   TXH B22,1,289     BLOCK.                                         F6A03040    
       00477  0 02000 0 00410        TRA B16                                                          F6A03050    
       00500  0 76600 0 00222  B22   WTB 2             WRITE OFF                                      F6A03060    
       00501 -0 53400 1 01307        LXD C1,1          TAPE 2.                                        F6A03070    
       00502  0 70000 1 06545  B25   CPY OP-1,1                                                       F6A03080    
       00503  1 00001 1 00504        TXI B23,1,1                                                      F6A03090    
       00504  3 00441 1 00506  B23   TXH B24,1,289                                                    F6A03100    
       00505  0 02000 0 00502        TRA B25                                                          F6A03110    
       00506 -0 53400 1 01307  B24   LXD C1,1          SET XR1 EQUAL ZERO                             F6A03120    
       00507  0 50000 0 01361        CLA TP2CT         UPDATE TAPE TWO RECORD COUNT.                  F6A03130    
       00510  0 40000 0 01317        ADD C8                                                           F6A03140    
       00511  0 60100 0 01361        STO TP2CT                                                        F6A03150    
       00512  0 76600 0 00333        IOD                                                              F6A03160    
       00513  0 02000 0 00410        TRA B16                                                          F6A03170    
       00514  1 00004 4 00515  B26   TXI B27,4,4       MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM   F6A03180    
                                                       TAPE 3).                                       F6A03181    
       00515  3 00515 4 00352  B27   TXH B8,4,*        TEST END OF TAPE 3 BLOCK.                      F6A03190    
       00516  0 02000 0 00377        TRA B9                                                           F6A03200    
       00517  0 77200 0 00203  B28   REW 3             EOF TAPE 3. REWIND TAPE 3.                     F6A03210    
       00520  3 00000 1 00522        TXH B29,1,0       ANY OP ENTRIES TO BE WRITTEN ON T-2.           F6A03220    
       00521  0 02000 0 00531        TRA B34           NO.                                            F6A03230    
       00522 -0 63400 1 00527  B29   SXD B31,1         YES, SAVE COUNT OF WORDS TO BE WRITTEN.        F6A03240    
       00523  0 76600 0 00222        WTB 2                                                            F6A03250    
       00524 -0 53400 1 01320        LXD C9,1          WRITE OFF ON                                   F6A03260    
       00525  0 70000 1 06546  B30   CPY OP,1          TAPE 2.                                        F6A03270    
       00526  1 00001 1 00527        TXI B31,1,1           NECESSARY                                  F6A03280    
       00527  3 00527 1 00534  B31   TXH B35,1,*                                                      F6A03290    
       00530  0 02000 0 00525        TRA B30                                                          F6A03300    
       00531  0 50000 0 01361  B34   CLA TP2CT         IS RECORD COUNT ZERO.                          F6A03310    
       00532 -0 10000 0 00540        TNZ B36           NO. OKAY 50 TRANSFER TO READ TARE TWO.         F6A03320    
       00533  0 07400 4 00004        TSX 4,4           YES, ERROR.                                    F6A03330    
       00534  0 50000 0 01361  B35   CLA TP2CT                                                        F6A03340    
       00535  0 76600 0 00333        IOD               UPDATE TAPE TWO RECORD COUNT.                  F6A03350    
       00536  0 40000 0 01317        ADD C8                                                           F6A03360    
       00537  0 60100 0 01361        STO TP2CT                                                        F6A03370    
       00540  0 77000 0 00202  B36   WEF 2             WEF TAPE 2.                                    F6A03380    
       00541  0 76400 0 00202        BST 2                                                            F6A03390    
       00542  0 53400 1 01361        LXA TP2CT,1       BACK SPACE TO                                  F6A03400    
       00543  0 76400 0 00202  B37   BST 2             BEGIN OF FILE.                                 F6A03410    
       00544  2 00001 1 00543        TIX B37,1,1                                                      F6A03420    
       00545  0 77100 0 00377        ARS 255                                                          F6A03430    
       00546  0 77100 0 00377        ARS 255                                                          F6A03440    
       00547 -0 76000 0 00012        RTT                                                              F6A03450    
       00550  0 76100 0 00000        NOP                                                              F6A03460    
       00551 -0 53400 1 01352        LXD IRIST,1                                                      F6A03470    
       00552  0 60000 0 01356        STZ RCT           SET RELATIVE COUNT TO ZERO.                    F6A03480    
       00553  0 50000 0 01326        CLA C15                                                          F6A03490    
       00554  0 60100 0 01357        STO DELIN         SET DELETE INDICATOR TO NOT-ZERO.              F6A03500    
       00555 -0 53400 2 01334  REA02 LXD ZERO,2                                                       F6A03510    
       00556  0 53400 4 00563  D5    LXA D1,4          SET READ-ERROR COUNTER.                        F6A03520    
       00557  0 02000 0 00564        TRA D2                                                           F6A03530    
       00560  0 76400 0 00202  D3    BST 2             REA0 TAPE 2 FILE 6                             F6A03540    
       00561  2 00001 4 00564        TIX D2,4,1        INTO STORAGE.                                  F6A03550    
       00562  0 07400 4 00004        TSX 4,4                                                          F6A03560    
       00563  0 42000 0 00005  D1    HPR 5                                                            F6A03570    
       00564  0 76200 0 00222  D2    RTB 2                                                            F6A03580    
       00565  0 76100 0 00000        NOP                                                              F6A03590    
       00566  0 70000 2 06545  D4    CPY OP-1,2                                                       F6A03600    
       00567  1 00001 2 00566        TXI D4,2,1                                                       F6A03610    
       00570  0 02000 0 00576        TRA D89           E.O.F.                                         F6A03620    
       00571  0 77100 0 00377        ARS 255                                                          F6A03630    
       00572  0 77100 0 00377        ARS 255                                                          F6A03640    
       00573 -0 76000 0 00012        RTT                                                              F6A03650    
       00574  0 02000 0 00560        TRA D3                                                           F6A03660    
       00575  0 02000 0 00556        TRA D5                                                           F6A03670    
       00576  0 60000 0 01350  D89   STZ EA1                                                          F6A03680    
       00577 -0 63400 2 01350        SXD EA1,2                                                        F6A03690    
       00600  0 76100 0 00000        NOP                                                              F6A03700    
       00601  0 50000 0 01350  D30   CLA EA1           TEST WD COUNT OF OP TABLE.                     F6A03710    
       00602  0 40200 0 01345        SUB C21                                                          F6A03720    
       00603 -0 12000 0 00605        TMI D6                                                           F6A03730    
       00604  0 07400 4 00004        TSX 4,4           MORE THAN 2000 WORDS IS ERROR.                 F6A03740    
       00605  0 77200 0 00202  D6    REW 2             REWIND TAPE 2.                                 F6A03750    
       00606  0 60000 0 01363        STZ CONCT         SET CONCT EQUAL ZERO                           F6A03760    
       00607  0 50000 0 01317        CLA C8            INIT. ARG. NUMBER TO ONE.                      F6A03770    
       00610  0 60100 0 01354        STO ARGNO                                                        F6A03780    
       00611  0 50000 0 01350        CLA EA1                                                          F6A03790    
       00612  0 40200 0 01342        SUB C18           SUBTRACT ONE (IN DECREMENT)                    F6A03800    
       00613  0 62200 0 00636        STD D14           SET END OF 0P BLOCK TEST. (EA1-1)              F6A03810    
       00614  0 60000 1 02461  D7    STZ REC-1,1       COMPILE CLA N,4                                F6A03820    
       00615 -0 50000 0 01327        CAL C16           WHERE N IS THE ARGUMENT NUMBER.                F6A03830    
       00616  0 60200 1 02460        SLW REC-2,1       SL=0                                           F6A03840    
       00617  0 50000 0 01354        CLA ARGNO         OP=CLA                                         F6A03850    
       00620  0 76700 0 00022        ALS 18            SA=0                                           F6A03860    
       00621  0 40000 0 01307        ADD C1            RA=N,4                                         F6A03870    
       00622  0 60100 1 02456        STO REC-4,1                                                      F6A03880    
       00623  0 60000 1 02457        STZ REC-3,1                                                      F6A03890    
       00624  1 00004 1 00625        TXI D8,1,4                                                       F6A03900    
       00625  3 00143 1 00647  D8    TXH D9,1,99       TEST CIT BLOCK FULL. IF YES, GO WRITE OFF.     F6A03910    
       00626  0 60000 0 01362  D10   STZ DELTA         SET DELTA ZERO.                                F6A03920    
       00627 -0 53400 2 01307        LXD C1,2          INIT. IR2 TO ZERO.                             F6A03930    
       00630  0 50000 2 06545  D11   CLA OP-1,2        SELECT OP TABLE ENTRY.                         F6A03940    
       00631  0 77100 0 00022        ARS 18                                                           F6A03950    
       00632  0 34000 0 01354        CAS ARGNO         COMPARE IT WITH ARG NO.                        F6A03960    
       00633  0 02000 0 00635        TRA D12                                                          F6A03970    
       00634  0 02000 0 00651        TRA D13           EQUAL ARGUMENT, GO COMPILE STORE.              F6A03980    
       00635  1 00002 2 00636  D12   TXI D14,2,2       UPDATE OP TABLE COUNTER.                       F6A03990    
       00636  3 00636 2 00640  D14   TXH D15,2,*       TEST FOR END OF OP TABLE.                      F6A04000    
       00637  0 02000 0 00630        TRA D11                                                          F6A04010    
       00640  0 50000 0 01354  D15   CLA ARGNO         MODIFY ARG NUMBER (INCREASE IT BY ONE).        F6A04020    
       00641  0 40000 0 01317        ADD C8                                                           F6A04030    
       00642  0 60100 0 01354        STO ARGNO                                                        F6A04040    
       00643  0 40200 0 01360        SUB ARGCT         TEST END OF ARG. NUMBERS.                      F6A04050    
       00644 -0 12000 0 00614        TMI D7            NO.                                            F6A04060    
       00645  0 10000 0 00614        TZE D7            NO.                                            F6A04070    
       00646  0 02000 0 00761        TRA E1            FINISHED.                                      F6A04080    
       00647  0 07400 2 01254  D9    TSX SUB1,2        WRITE OFF ON                                   F6A04090    
       00650  0 02000 0 00626        TRA D10           TAPE 4.                                        F6A04100    
       00651  0 50000 2 06544  D13   CLA OP-2,2        COMPILE STORE.                                 F6A04110    
       00652  0 77100 0 00022        ARS 18                                                           F6A04120    
       00653  0 60100 0 01364        STO DELDD         COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY TO F6A04130    
       00654  0 40200 0 01362        SUB DELTA         ADD T0 GET EFFECTIVE ADDRESS FOR STA.          F6A04140    
       00655  0 60100 0 01365        STO GAMMA                                                        F6A04150    
       00656  0 56000 0 01364        LDQ DELDD                                                        F6A04160    
       00657 -0 60000 0 01362        STQ DELTA                                                        F6A04170    
       00660  0 50000 0 01365        CLA GAMMA         IS INCREMENT ZERO.                             F6A04180    
       00661  0 10000 0 00722        TZE D25           YES                                            F6A04190    
       00662  0 50000 0 01363        CLA CONCT         NO. TEST FOR ANY INCREMENT TABLE.              F6A04200    
       00663  0 10000 0 00677        TZE CH6           NO INCREMENT TABLE.                            F6A04210    
       00664  0 40000 0 01330        ADD C17           YES, THERE IS AN INCREMENT TABLE.              F6A04220    
       00665  0 40200 0 01317        SUB C8            SET ADDRESS OF D17=LOCATION OF                 F6A04230    
       00666  0 62100 0 00667        STA D17           LAST GAMMA STORED.                             F6A04240    
       00667  0 50000 0 06546  D17   CLA HTAB          IS LAST GAMMA                                  F6A04250    
       00670  0 40200 0 01365        SUB GAMMA         EQUAL CURRENT GAMMA.                           F6A04260    
       00671  0 10000 0 00743        TZE EX1           YES, ADDEND ALREADY IN TABLE                   F6A04270    
       00672  0 50000 0 00667        CLA D17           NO,                                            F6A04280    
       00673  0 40200 0 01317        SUB C8            MODIFY ADDRESS IN HTAB.                        F6A04290    
       00674  0 62100 0 00667        STA D17                                                          F6A04300    
       00675  0 40200 0 01330        SUB C17           ANY MORE ENTRIES IN HTAB.                      F6A04310    
       00676  0 12000 0 00667        TPL D17           YES.                                           F6A04320    
       00677  0 50000 0 01330  CH6   CLA C17           NOT IN TABLE.                                  F6A04330    
       00700  0 40000 0 01363        ADD CONCT                                                        F6A04340    
       00701  0 62100 0 00703        STA D18                                                          F6A04350    
       00702  0 50000 0 01365        CLA GAMMA                                                        F6A04360    
       00703  0 60100 0 00703  D18   STO *             SET BY CH6 TO HTAB+CONCT. STORE GAMMA.         F6A04370    
       00704  0 50000 0 01363        CLA CONCT         UP CONCOUNT BY ONE.                            F6A04380    
       00705  0 40000 0 01317        ADD C8                                                           F6A04390    
       00706  0 60100 0 01363        STO CONCT                                                        F6A04400    
       00707  0 60000 1 02461  D19   STZ REC-1,1       COMPILE ADD.                                   F6A04410    
       00710 -0 50000 0 01331        CAL ADD               ADD                                        F6A04420    
       00711  0 60200 1 02460        SLW REC-2,1                                                      F6A04430    
       00712 -0 50000 0 01335        CAL TABCT                                                        F6A04440    
       00713  0 60200 1 02457        SLW REC-3,1       SA=9(                                          F6A04450    
       00714  0 50000 0 01363        CLA CONCT                                                        F6A04460    
       00715  0 40200 0 01317        SUB C8                                                           F6A04470    
       00716  0 76700 0 00022        ALS 18            RELATIVE LOCATION OF HTAB CONSTANT.            F6A04480    
       00717  0 60100 1 02456        STO REC-4,1                                                      F6A04490    
       00720  1 00004 1 00721        TXI D16,1,4       MODIFY TAPE 4 BLOCK.                           F6A04500    
       00721  3 00143 1 00737  D16   TXH D20,1,99      TEST TAPE 4 BLOCK FULL.                        F6A04510    
       00722  0 60000 1 02461  D25   STZ REC-1,1       COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG.   F6A04520    
       00723 -0 50000 0 01337        CAL STA           APPEARS IN OP TABLE.                           F6A04530    
       00724  0 60200 1 02460        SLW REC-2,1                                                      F6A04540    
       00725 -0 50000 0 01353        CAL SLINT         TEST INITIAL SYMBOLIC LOCATION.                F6A04550    
       00726 -0 10000 0 00730        TNZ D21           TRANSFER IF NOT ZERO.                          F6A04560    
       00727 -0 50000 0 01313        CAL C4            ZERO. SET SA EQUAL TO $$000.                   F6A04570    
       00730  0 60200 1 02457  D21   SLW REC-3,1                                                      F6A04580    
       00731  0 56000 2 06545        LDQ OP-1,2                                                       F6A04590    
       00732  0 76300 0 00022        LLS 18                                                           F6A04600    
       00733 -0 60000 1 02456        STQ REC-4,1                                                      F6A04610    
       00734  1 00004 1 00735        TXI D22,1,4                                                      F6A04620    
       00735  3 00143 1 00755  D22   TXH D23,1,99      TEST TAPE 4 BLOCK FULL.                        F6A04630    
       00736  0 02000 0 00635  D24   TRA D12           NO.                                            F6A04640    
       00737 -0 63400 2 01352  D20   SXD IRIST,2                                                      F6A04650    
       00740  0 07400 2 01254        TSX SUB1,2        GO WRITE A CIT RECORD ON TAPE 4.               F6A04660    
       00741 -0 53400 2 01352        LXD IRIST,2                                                      F6A04670    
       00742  0 02000 0 00722        TRA D25                                                          F6A04680    
       00743  0 50000 0 00667  EX1   CLA D17           ADDEND ALREADY IN TABLE                        F6A04690    
       00744  0 40200 0 01330        SUB C17                                                          F6A04700    
       00745  0 76700 0 00022        ALS 18                                                           F6A04710    
       00746  0 60100 1 02456        STO REC-4,1                                                      F6A04720    
       00747  0 60000 1 02461        STZ REC-1,1                                                      F6A04730    
       00750 -0 50000 0 01331        CAL ADD                                                          F6A04740    
       00751  0 60200 1 02460        SLW REC-2,1                                                      F6A04750    
       00752 -0 50000 0 01335        CAL TABCT                                                        F6A04760    
       00753  0 60200 1 02457        SLW REC-3,1                                                      F6A04770    
       00754  1 00004 1 00721        TXI D16,1,4                                                      F6A04780    
       00755 -0 63400 2 01352  D23   SXD IRIST,2                                                      F6A04790    
       00756  0 07400 2 01254        TSX SUB1,2                                                       F6A04800    
       00757 -0 53400 2 01352        LXD IRIST,2                                                      F6A04810    
       00760  0 02000 0 00635        TRA D12                                                          F6A04820    
       00761  0 53400 2 00766  E1    LXA E3,2              READ TAPE 3                                F6A04830    
       00762  0 02000 0 00767        TRA E4                                                           F6A04840    
       00763  0 76400 0 00203  E2    BST 3                                                            F6A04850    
       00764  2 00001 2 00767        TIX E4,2,1        SET READ ERROR COUNTER.                        F6A04860    
       00765  0 07400 4 00004        TSX 4,4                                                          F6A04870    
       00766  0 42000 0 00005  E3    HPR 5                                                            F6A04880    
       00767  0 76200 0 00223  E4    RTB 3             READ A RECORD FROM TAPE 3.                     F6A04890    
       00770  0 53400 4 01310        LXA C2,4          SET COUNTER TO -1, TO READ INTO                F6A04900    
       00771  0 70000 4 02624  E5    CPY CIT-2,4       CIT-1,-2,---                                   F6A04910    
       00772  1 00001 4 00771        TXI E5,4,1                                                       F6A04920    
       00773  0 02000 0 01061        TRA E14           EOF.                                           F6A04930    
       00774  0 77100 0 00377        ARS 255                                                          F6A04940    
       00775  0 77100 0 00377        ARS 255                                                          F6A04950    
       00776 -0 76000 0 00012        RTT                                                              F6A04960    
       00777  0 02000 0 00763        TRA E2                                                           F6A04970    
       01000 -0 63400 4 01041        SXD E8,4                                                         F6A04980    
       01001 -0 53400 4 01307        LXD C1,4                                                         F6A04990    
       01002  0 50000 0 01360        CLA ARGCT         TEST ARGUMENT COUNT FOR ZERO.                  F6A05000    
       01003  0 10000 0 01012        TZE E6            YES, TRANSFER.                                 F6A05010    
       01004  0 50000 0 01356        CLA RCT           NO, TEST RCT FOR ZERO.                         F6A05020    
       01005 -0 10000 0 01012        TNZ E6            RCT NOT ZERO.                                  F6A05030    
       01006 -0 50000 0 01353        CAL SLINT         TEST FIRST SUMBOLIC LOC.                       F6A05040    
       01007 -0 10000 0 01012        TNZ E6            TRANSFER IF NOT ZERO.                          F6A05050    
       01010 -0 50000 0 01313        CAL C4            $$                                             F6A05060    
       01011  0 60200 0 02625        SLW CIT-1                                                        F6A05070    
       01012 -0 50000 4 02624  E6    CAL CIT-2,4                                                      F6A05080    
       01013  0 77100 0 00022        ARS 18            IS OP QPR.                                     F6A05090    
       01014  0 40200 0 01332        SUB QPR                                                          F6A05100    
       01015  0 10000 0 01043        TZE E9            YES, TRANSFER.                                 F6A05110    
       01016  0 40000 0 01332        ADD QPR                                                          F6A05120    
       01017  0 40200 0 01053        SUB QXD           IS OP QXD.                                     F6A05130    
       01020  0 10000 0 01050        TZE EX3           YES, TRANSFER.                                 F6A05140    
       01021  0 50000 0 01357        CLA DELIN         IS DELETE IND                                  F6A05150    
       01022  0 10000 0 01054        TZE E11           ZERO. TRANSFER IF YES.                         F6A05160    
       01023 -0 50000 4 02624        CAL CIT-2,4       COPY CIT FROM TAPE 3 INTO                      F6A05170    
       01024  0 60200 1 02460 E10    SLW REC-2,1       TAPE 4 BUFFER.                                 F6A05180    
       01025 -0 50000 4 02625        CAL CIT-1,4           BLOCK                                      F6A05190    
       01026  0 60200 1 02461        SLW REC-1,1                                                      F6A05200    
       01027 -0 50000 4 02623        CAL CIT-3,4                                                      F6A05210    
       01030  0 60200 1 02457        SLW REC-3,1                                                      F6A05220    
       01031 -0 50000 4 02622        CAL CIT-4,4                                                      F6A05230    
       01032  0 60200 1 02456        SLW REC-4,1                                                      F6A05240    
       01033  0 50000 0 01356        CLA RCT               ADD TO RCT                                 F6A05250    
       01034  0 40000 0 01317        ADD C8            UPDATE RELATIVE COUNT BY ONE.                  F6A05260    
       01035  0 60100 0 01356        STO RCT                                                          F6A05270    
       01036  1 00004 1 01037        TXI E7,1,4        MODIFY TAPE 4 BUFFER COUNTER.                  F6A05280    
       01037  3 00143 1 01057  E7    TXH E13,1,99      TEST END OF TAPE 4 BLOCK.                      F6A05290    
       01040  1 00004 4 01041  E12   TXI E8,4,4        NO, MODIFY TAPE 3 BLOCK COUNTER.               F6A05300    
       01041  3 01041 4 00761  E8    TXH E1,4,*        TEST ENO OF TAPE 3 BLOCK.                      F6A05310    
       01042  0 02000 0 01012        TRA E6            NO.                                            F6A05320    
       01043  0 60100 0 01357  E9    STO DELIN         QPR. SET DELIN=0.                              F6A05330    
       01044 -0 50000 0 01340        CAL TRA           SELECT OP=TRA,                                 F6A05340    
       01045  0 60200 1 02460  EX2   SLW REC-2,1       AND RETURN TO GET REST                         F6A05350    
       01046  0 60000 1 02461        STZ REC-1,1       OF CIT.                                        F6A05360    
       01047  0 02000 0 01027        TRA E10+3                                                        F6A05370    
       01050 -0 50000 0 01052  EX3   CAL LXD           OP IS QXD.                                     F6A05380    
       01051  0 02000 0 01024        TRA E10                                                          F6A05390    
       01052  436724000000     LXD   BCD 1LXD000                                                      F6A05400    
       01053  000000506724     QXD   BCD 1000QXD                                                      F6A05410    
       01054  0 50000 0 01317  E11   CLA C8            DELETE INSTRUCTION. SET DELETE INDICATOR       F6A05420    
       01055  0 60100 0 01357        STO DELIN         TO NOT ZERO, AND TRANSFER                      F6A05430    
       01056  0 02000 0 01040        TRA E12           TO TEST TAPE 4 BLOCK FULL.                     F6A05440    
       01057  0 07400 2 01254  E13   TSX SUB1,2        WRITE OFF ON                                   F6A05450    
       01060  0 02000 0 01040        TRA E12           TAPE 4.                                        F6A05460    
       01061  0 50000 0 01363  E14   CLA CONCT         ENO OF TAPE 3.                                 F6A05470    
       01062  0 10000 0 01113        TZE E20           TRANSFER SINCE 9) TABLE NOT NEC.               F6A05480    
       01063  0 50000 0 01330        CLA C17               IF NECESSARY                               F6A05490    
       01064  0 62100 0 01072        STA E17           COMPILE 9) TABLE.                              F6A05500    
       01065  0 60000 0 01350        STZ EA1           SET EA1=0.                                     F6A05510    
       01066 -0 50000 0 01335        CAL TABCT                                                        F6A05520    
       01067  0 60200 1 02461        SLW REC-1,1       SL=9)                                          F6A05530    
       01070 -0 50000 0 01346  E18   CAL OCT           OP=OCT.                                        F6A05540    
       01071  0 60200 1 02460        SLW REC-2,1                                                      F6A05550    
       01072 -0 50000 0 01072  E17   CAL *             SA=THE NECESSARY CONSTANT.                     F6A05560    
       01073  0 60200 1 02457        SLW REC-3,1                                                      F6A05570    
       01074  0 60000 1 02456        STZ REC-4,1       RA=0                                           F6A05580    
       01075  1 00004 1 01076        TXI E15,1,4       MODIFY TAPE 4 BLOCK COUNT.                     F6A05590    
       01076  3 00143 1 01111  E15   TXH E16,1,99      TEST END OF TAPE 4 BLOCK.                      F6A05600    
       01077  0 50000 0 01072  E19   CLA E17           TO GET NEXT CONSTANT IN 9) TABLE.              F6A05610    
       01100  0 40200 0 01317        SUB C8                                                           F6A05620    
       01101  0 62100 0 01072        STA E17                                                          F6A05630    
       01102  0 50000 0 01350        CLA EA1           INCREASE EA1 BY ONE.                           F6A05640    
       01103  0 40000 0 01317        ADD C8                                                           F6A05650    
       01104  0 60100 0 01350        STO EA1                                                          F6A05660    
       01105  0 40200 0 01363        SUB CONCT                                                        F6A05670    
       01106  0 10000 0 01113        TZE E20           TRANSFER IF ALL NEC 9) TABLE CITS COMPILED.    F6A05680    
       01107  0 60000 1 02461        STZ REC-1,1       SET SL=0                                       F6A05690    
       01110  0 02000 0 01070        TRA E18           AND GO COMPILE REST OF CIT.                    F6A05700    
       01111  0 07400 2 01254  E16   TSX SUB1,2                                                       F6A05710    
       01112  0 02000 0 01077        TRA E19                                                          F6A05720    
       01113  0 07400 4 01406  E20   TSX APCH2,4       TO SKIP BCD FILE.                              F6A05730    
       01114  0 76200 0 00222  E21   RTB 2             SKIPPING TO FILE 5.                            F6A05740    
       01115  0 70000 0 01355  CH3   CPY ERAS1                                                        F6A05750    
       01116  0 02000 0 01115        TRA CH3                                                          F6A05760    
       01117  0 02000 0 01121        TRA E22           END OF FILE.                                   F6A05770    
       01120  0 02000 0 01114        TRA E21           END OF RECORD.                                 F6A05780    
       01121  2 00001 2 01114  E22   TIX E21,2,1                                                      F6A05790    
       01122  0 76200 0 00222        RTB 2             SKIP F1RST 3 RECORDS IN FILE FIVE.             F6A05800    
       01123  0 76200 0 00222        RTB 2                                                            F6A05810    
       01124  0 76200 0 00222        RTB 2                                                            F6A05820    
       01125  0 77100 0 00377        ARS 255                                                          F6A05830    
       01126  0 77100 0 00377        ARS 255                                                          F6A05840    
       01127 -0 76000 0 00012        RTT                                                              F6A05850    
       01130  0 76100 0 00000        NOP                                                              F6A05860    
       01131  0 53400 2 01136        LXA E24,2         SET READ ERROR COUNTER.                        F6A05870    
       01132  0 02000 0 01137        TRA E25                                                          F6A05880    
       01133  0 76400 0 00202  E23   BST 2                                                            F6A05890    
       01134  2 00001 2 01137        TIX E25,2,1                                                      F6A05900    
       01135  0 07400 4 00004        TSX 4,4                                                          F6A05910    
       01136  0 42000 0 00005  E24   HPR 5                                                            F6A05920    
       01137  0 76200 0 00222  E25   RTB 2             READ HOLARG TABLE                              F6A05930    
       01140  0 53400 4 01310        LXA C2,4          INTO SUB-1,-2,---                              F6A05940    
       01141  0 70000 4 04574 E26    CPY SUB-2,4                                                      F6A05950    
       01142  1 00001 4 01141        TXI E26,4,1                                                      F6A05960    
       01143  0 02000 0 01347        TRA EOF3                                                         F6A05970    
       01144  0 77100 0 00377        ARS 255                                                          F6A05980    
       01145  0 77100 0 00377        ARS 255                                                          F6A05990    
       01146 -0 76000 0 00012        RTT                                                              F6A06000    
       01147  0 02000 0 01133        TRA E23                                                          F6A06010    
       01150  0 50000 0 04574  E27   CLA SUB-2         TEST WORD COUNT OF HOLARG TABLE.               F6A06020    
       01151  0 10000 0 01214        TZE E33           EXIT, NO HOLARG.                               F6A06030    
       01152  0 40200 0 01342        SUB C18                                                          F6A06040    
       01153  0 60100 0 01350        STO EA1           STORE WD. COUNT-1 IN EA1                       F6A06050    
       01154  0 50000 0 01150        CLA E27           INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE. F6A06060    
       01155  0 40200 0 01317        SUB C8                                                           F6A06070    
       01156  0 62100 0 01164        STA E29                                                          F6A06080    
       01157  0 60000 0 01351        STZ EA2           SET EA2=0.                                     F6A06090    
       01160 -0 50000 0 01343        CAL C19           SET SL OF FIRST CIT FOR EACH HOLLERITH         F6A06100    
       01161  0 60200 1 02461        SLW REC-1,1       ARGUMENT=11.                                   F6A06110    
       01162 -0 50000 0 01311  E28   CAL BCD                                                          F6A06120    
       01163  0 60200 1 02460        SLW REC-2,1       SET OP=BCD.                                    F6A06130    
       01164  0 50000 0 01164  E29   CLA *             (SUB-3 TO START)                               F6A06140    
       01165  0 34000 0 01344        CAS C20           TEST FOR END OF ARGUMENT.                      F6A06150    
       01166  0 02000 0 01170        TRA LIB10         NO.                                            F6A06160    
       01167  0 02000 0 01206        TRA LIB12         TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE.  F6A06170    
       01170  0 60100 1 02457  LIB10 STO REC-3,1       SA=6 CHARACTERS OF THE ARGUMENT.               F6A06180    
       01171  0 60000 1 02456  LIB11 STZ REC-4,1       RA=0.                                          F6A06190    
       01172  1 00004 1 01173        TXI E30,1,4       MODIFY TAPE 4 BLOCK COUNT.                     F6A06200    
       01173  3 00143 1 01212  E30   TXH E31,1,99      TEST TAPE 4 BLOCK FULL.                        F6A06210    
       01174  0 50000 0 01164  E32   CLA E29           MODIFY ADDRESS IN HOLARG TABLE.                F6A06220    
       01175  0 40200 0 01317        SUB C8                                                           F6A06230    
       01176  0 62100 0 01164        STA E29                                                          F6A06240    
       01177  0 50000 0 01351        CLA EA2           INCREMENT COUNT OF WORDS FROM TABLE            F6A06250    
       01200  0 40000 0 01342        ADD C18           TREATED BY ONE.                                F6A06260    
       01201  0 60100 0 01351        STO EA2                                                          F6A06270    
       01202  0 40200 0 01350        SUB EA1           TEST FOR END OF HOLARG TABLE.                  F6A06280    
       01203  0 10000 0 01244        TZE E40           END.                                           F6A06290    
       01204  0 60000 1 02461        STZ REC-1,1       NO.                                            F6A06300    
       01205  0 02000 0 01162        TRA E28                                                          F6A06310    
       01206  0 60100 1 02457  LIB12 STO REC-3,1       END OF ARGUMENT, COMPILE ENDING CIT            F6A06320    
       01207  0 50000 0 01346        CLA OCT           (SA=STRING OF 1S)                              F6A06330    
       01210  0 60100 1 02460        STO REC-2,1                                                      F6A06340    
       01211  0 02000 0 01171        TRA LIB11                                                        F6A06350    
       01212  0 07400 2 01254  E31   TSX SUB1,2        WRITE OFF ON TAPE 4.                           F6A06360    
       01213  0 02000 0 01174        TRA E32                                                          F6A06370    
       01214 -3 00001 1 01225  E33   TXL E35,1,1       MAY NEED TO WRITE OFF 4.                       F6A06380    
       01215  2 00001 1 01216        TIX CH7,1,1                                                      F6A06390    
       01216 -0 63400 1 01223  CH7   SXD E34,1         WRITE OFF ON                                   F6A06400    
       01217  0 76600 0 00224        WTB 4             TAPE 4.                                        F6A06410    
       01220 -0 53400 1 01307        LXD C1,1                                                         F6A06420    
       01221  0 70000 1 02461  E36   CPY REC-1,1                                                      F6A06430    
       01222  1 00001 1 01223        TXI E34,1,1                                                      F6A06440    
       01223  3 01223 1 01225  E34   TXH E35,1,*                                                      F6A06450    
       01224  0 02000 0 01221        TRA E36                                                          F6A06460    
       01225  0 77000 0 00204  E35   WEF 4             WRITE END OF FILE ON TAPE 4.                   F6A06470    
       01226  0 77200 0 00204        REW 4             REWIND TAPES 2,3,4                             F6A06480    
       01227  0 77200 0 00203        REW 3             AND GO TO LOADER,                              F6A06490    
       01230  0 77200 0 00202        REW 2                                                            F6A06500    
       01231  0 76200 0 00221        RTB 1                                                            F6A06510    
       01232  0 02000 0 00004        TRA 4                 RETURN TO LOADER                           F6A06520    
       01233  0 60000 0 00034  NOSUB STZ PC5           NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD.  F6A06530    
       01234  0 60000 0 01356        STZ RCT           SET RELATIVE COUNT=0.                          F6A06540    
       01235  0 50000 0 01317        CLA C8                                                           F6A06550    
       01236  0 60100 0 01357        STO DELIN         SET DELIN TO NOT ZERO.                         F6A06560    
       01237  0 60000 0 01363        STZ CONCT         SET CONSTANT COUNT=ZERO.                       F6A06570    
       01240  0 77200 0 00202        REW 2             REWIND TAPE TWO.                               F6A06580    
       01241  0 60000 0 01360        STZ ARGCT         SET ARGUMENT COUNT=ZERO.                       F6A06590    
       01242  0 02000 0 00761        TRA E1            GO DEAL WITH TAPE 3 CITS.                      F6A06600    
       01243  0 02000 0 01234  F1    TRA NOSUB+1                                                      F6A06610    
       01244  0 60000 1 02461  E40   STZ REC-1,1       COMPILE FINAL HOLARG CIT.                      F6A06620    
       01245 -0 50000 0 01346        CAL OCT                                                          F6A06630    
       01246  0 60200 1 02460        SLW REC-2,1                                                      F6A06640    
       01247 -0 50000 0 01344        CAL C20                                                          F6A06650    
       01250  0 60200 1 02457        SLW REC-3,1                                                      F6A06660    
       01251  0 60000 1 02456        STZ REC-4,1                                                      F6A06670    
       01252  1 00004 1 01253        TXI CH10,1,4      UPOATE T-4 BLOCK C0UNTER.                      F6A06680    
       01253  0 02000 0 01214  CH10  TRA E33           GO TEST BLOCK FULL.                            F6A06690    
       01254  0 76600 0 00224  SUB1  WTB 4             WRITE TAPE 4,                                  F6A06700    
       01255 -0 53400 1 01307        LXD C1,1                                                         F6A06710    
       01256  0 70000 1 02461  SUBA  CPY REC-1,1                                                      F6A06720    
       01257  1 00001 1 01260        TXI SUBB,1,1                                                     F6A06730    
       01260  3 00143 1 01262  SUBB  TXH SUBC,1,99                                                    F6A06740    
       01261  0 02000 0 01256        TRA SUBA                                                         F6A06750    
       01262  0 76600 0 00333  SUBC  IOD                                                              F6A06760    
       01263 -0 53400 1 01307        LXD C1,1                                                         F6A06770    
       01264  0 02000 2 00001        TRA 1,2                                                          F6A06780    
       01265 -0 50000 0 01315  SUB2  CAL C6            COMPILE CITS                                   F6A06790    
       01266  0 60200 1 02460        SLW REC-2,1       OP=HTR                                         F6A06800    
       01267  0 60000 1 02457        STZ REC-3,1       SA=0                                           F6A06810    
       01270  0 60000 1 02456        STZ REC-4,1       RA=0                                           F6A06820    
       01271  1 00004 1 01272        TXI SUB2A,1,4                                                    F6A06830    
       01272  3 00143 1 01274  SUB2A TXH SUB2B,1,99    TLST TAPE 4 BLOCK FULL.                        F6A06840    
       01273  0 02000 2 00001        TRA 1,2           NO.                                            F6A06850    
       01274  0 02000 2 00002  SUB2B TRA 2,2           YES.                                           F6A06860    
       01275  0 60200 1 02456  SUB3  SLW REC-4,1       STORE CIT 4 5 6                                F6A06870    
       01276 -0 50000 0 01316        CAL C7                                                           F6A06880    
       01277  0 60200 1 02460        SLW REC-2,1       OP=SXD                                         F6A06890    
       01300 -0 50000 0 01314        CAL C5                                                           F6A06900    
       01301  0 60200 1 02457        SLW REC-3,1       SA=$0000                                       F6A06910    
       01302  0 60000 1 02461        STZ REC-1,1       SL=0                                           F6A06920    
       01303  1 00004 1 01304        TXI SUB3A,1,4                                                    F6A06930    
       01304  3 00143 1 01306  SUB3A TXH SUB3B,1,99    TEST TAPE 4 BLOCK FULL.                        F6A06940    
       01305  0 02000 2 00001        TRA 1,2           NO.                                            F6A06950    
       01306  0 02000 2 00002  SUB3B TRA 2,2           YES.                                           F6A06960    
       01307  0 00000 0 00004  C1    HTR 4                                                            F6A06970    
       01310  0 00000 0 77777  C2    HTR -1                                                           F6A06980    
       01311  222324000000     BCD   BCD 1BCD000                                                      F6A06990    
       01312  0 00000 0 00003  C3    HTR 3                                                            F6A07000    
       01313  535360000000     C4    BCD 1$$ 000                                                      F6A07010    
       01314  536000000000     C5    BCD 1$ 0000                                                      F6A07020    
       01315  306351000000     C6    BCD 1HTR000                                                      F6A07030    
       01316  626724000000     C7    BCD 1SXD000                                                      F6A07040    
       01317  0 00000 0 00001  C8    HTR 1                                                            F6A07050    
       01320 +000001000002     C9    OCT 000001000002                                                 F6A07060    
       01321 +000002000004     C10   OCT 000002000004                                                 F6A07070    
       01322 -0 50000 0 04572  C11   CAL SUB-4                                                        F6A07080    
       01323  0 00000 0 05310  C12   HTR ARIND                                                        F6A07090    
       01324  0 00000 0 00043  C13   HTR 35                                                           F6A07100    
       01325  2 00000 0 00000  C14   TIX 0,0,0                                                        F6A07110    
       01326  0 00000 0 00005  C15   HTR 5                                                            F6A07120    
       01327  234321000000     C16   BCD 1CLA000                                                      F6A07130    
       01330  0 50000 0 06546  C17   CLA HTAB                                                         F6A07140    
       01331  212424000000     ADD   BCD 1ADD000           INITARG                                    F6A07150    
       01332  000000504751     QPR   BCD 1000QPR                                                      F6A07160    
       01333  0 50000 0 00000  AGTST CLA **                                                           F6A07170    
       01334  0 00000 0 00000  ZERO  HTR 0                                                            F6A07180    
       01335  110000000000     TABCT BCD 1900000                                                      F6A07190    
       01336  0 07400 4 00004  EOF1  TSX 4,4                                                          F6A07200    
       01337  626321000000     STA   BCD 1STA000                                                      F6A07210    
       01340  635121000000     TRA   BCD 1TRA000                                                      F6A07220    
       01341  0 07400 4 00004  EOF2  TSX 4,4                                                          F6A07230    
       01342 +000001000000     C18   OCT 000001000000                                                 F6A07240    
       01343 +130000000000     C19   OCT 130000000000                                                 F6A07250    
       01344 -377777777777     C20   OCT 777777777777                                                 F6A07260    
       01345 +003720000000     C21   OCT 003720000000      (2000 IN DICREMENT)                        F6A07270    
       01346  462363000000     OCT   BCD 1OCT000                                                      F6A07280    
       01347  0 07400 4 00004  EOF3  TSX 4,4                                                          F6A07290    
       01350  0 00000 0 00000  EA1   HTR 0                                                            F6A07300    
       01351  0 00000 0 00000  EA2   HTR 0                                                            F6A07310    
       01352  0 00000 0 00000  IRIST HTR 0                                                            F6A07320    
       01353  0 00000 0 00000  SLINT HTR 0                                                            F6A07330    
       01354  0 00000 0 00000  ARGNO HTR 0                                                            F6A07340    
       01355  0 00000 0 00000  ERAS1 HTR 0                                                            F6A07350    
       01356  0 00000 0 00000  RCT   HTR 0                                                            F6A07360    
       01357  0 00000 0 00000  DELIN HTR 0                                                            F6A07370    
       01360  0 00000 0 00000  ARGCT HTR 0                                                            F6A07380    
       01361  0 00000 0 00000  TP2CT HTR 0                                                            F6A07390    
       01362  0 00000 0 00000  DELTA HTR 0                                                            F6A07400    
       01363  0 00000 0 00000  CONCT HTR 0                                                            F6A07410    
       01364  0 00000 0 00000  DELDD HTR 0                                                            F6A07420    
       01365  0 00000 0 00000  GAMMA HTR 0                                                            F6A07430    
       01366  0 00000 0 00000  SUM   HTR 0                                                            F6A07440    
                        01367        BSS 1                                                            F6A07441    
       01370  0 34000 0 01403  APCH1 CAS SYNOP                                                        F6A07442    
       01371  0 02000 0 01401        TRA GOON                                                         F6A07443    
       01372  0 02000 0 00514        TRA B26           OP IS SYN.                                     F6A07444    
       01373  0 34000 0 01404        CAS OCTOP                                                        F6A07445    
       01374  0 02000 0 01401        TRA GOON                                                         F6A07446    
       01375  0 02000 0 00410        TRA B16           OP IS OCT.                                     F6A07447    
       01376  0 34000 0 01405        CAS BCDOP                                                        F6A07448    
       01377  0 02000 0 01401        TRA GOON                                                         F6A07449    
       01400  0 02000 0 00410        TRA B16           OP IS BCD.                                     F6A07450    
       01401 -0 50000 0 01322  GOON  CAL C11                                                          F6A07451    
       01402  0 02000 0 00431        TRA EXT20+1                                                      F6A07452    
       01403 +000000627045     SYNOP OCT 000000627045                                                 F6A07453    
       01404 +000000462363     OCTOP OCT 000000462363                                                 F6A07454    
       01405 +000000222324     BCDOP OCT 000000222324                                                 F6A07455    
       01406  0 76200 0 00202  APCH2 RTD 2             SKIP A BCD F1LE.                               F6A07456    
       01407  0 70000 0 01355        CPY ERAS1                                                        F6A07457    
       01410  0 02000 0 01407        TRA *-1                                                          F6A07458    
       01411  0 02000 0 01413        TRA *+2           END OF FILE                                    F6A07459    
       01412  0 02000 0 01406        TRA APCH2         END OF RECORD                                  F6A07460    
       01413  0 53400 2 01312        LXA C3,2                                                         F6A07461    
       01414  0 02000 4 00001        TRA 1,4           RETURN TO PROGRAM.                             F6A07462    
       01415 -0 50000 0 01311  NAME  CAL BCD           INSERT CIT 3 PRIME.                            F6A07463    
       01416  0 60200 1 02460        SLW REC-2,1                                                      F6A07464    
       01417 -0 50000 0 00034        CAL PC5           OP=BCD                                         F6A07465    
       01420  0 60200 1 02457        SLW REC-3,1       SA=NAME OF ROUTINE.                            F6A07466    
       01421  0 60000 1 02461        STZ REC-1,1                                                      F6A07467    
       01422  0 60000 1 02456        STZ REC-4,1                                                      F6A07468    
       01423  1 00004 1 01424        TXI *+1,1,4                                                      F6A07469    
       01424  3 00143 1 01426        TXH *+2,1,99                                                     F6A07470    
       01425  0 02000 0 01427        TRA P24                                                          F6A07471    
       01426  0 07400 2 01254        TSX SUB1,2                                                       F6A07472    
       01427 -0 50000 0 01317  P24   CAL C8                                                           F6A07473    
       01430  0 02000 0 00206        TRA COMPX+1                                                      F6A07474    
       01431  2 00000 0 00000  APCH3 TIX 0,0,0          REINITIALIZE C14                              F6A07475    
       01432  0 50000 0 01431        CLA APCH3                                                        F6A07476    
       01433  0 60100 0 01325        STO C14                                                          F6A07477    
       01434  0 02000 0 00326        TRA A16                                                          F6A07478    
                        02316        ORG 1230                                                         F6A07480    
                        02462  REC   BES 100                                                          F6A07481    
                        02626  CIT   BES 100                                                          F6A07482    
                        06546  OP    BES 2000                                                         F6A07483    
                        02626        ORG 1430                                                         F6A07490    
                        04576  TV    BES 1000                                                         F6A07500    
                        04576  SUB   SYN TV                                                           F6A07510    
                        06546        ORG 3430                                                         F6A07520    
                        06546  HTAB  BSS 300                                                          F6A07530    
                        06546  DIM   SYN OP                                                           F6A07540    
                        05252        ORG 2730                                                         F6A07550    
                        05310  ARIND BES 30                                                           F6A07560    
 A                      00000        END                                                              F6A07570    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     801           0           0           0           0
 LIB       0           0           0           0           0
 COL     801           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      810                  
0NUMBER OF SYMBOLS,  DEF   250,DEFOP     0,UNDEF     0      
9            REM PST                                                                      
1                                        PST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6B00010    
                                         FORTRAN 2   RECORD 94  -  BINARY SEARCH.                     F6B00011    
                                                                                                      F6B00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL)           F6B00013    
                                                                                                      F6B00014    
                        00037        ORG 31                                                           F6B00020    
       00037  1 00037 2 00037  SRCH  TXI *,2,*         OR TXL TDEV,2,0 OR TXH TTIV,2,-2               F6B00030    
       00040  0 16200 0 00042        TQP IFTXH         OR TXL TTEV DEPENDING ON TABLE AND             F6B00040    
       00041  1 77776 1 00102        TXI LOWER,1,-2    ON DIRECTION OF TABLE.                         F6B00050    
       00042  1 77776 1 00101  IFTXH TXI RAISE,1,-2                                                   F6B00060    
       00043  1 20000 2 00037        TXI SRCH,2,+8192  FOR A TABLE WITH N                             F6B00070    
       00044  1 60000 2 00037        TXI SRCH,2,-8192  ENTRIES, THE SEARCH IS                         F6B00080    
       00045  1 10000 2 00037        TXI SRCH,2,+4096  COMMENCED AT THE 2**XTH                        F6B00090    
       00046  1 70000 2 00037        TXI SRCH,2,-4096  ENTRY, THE LATTER BEING THE                    F6B00100    
       00047  1 04000 2 00037        TXI SRCH,2,+2048  LARGEST POWER OF 2                             F6B00110    
       00050  1 74000 2 00037        TXI SRCH,2,-2048  LESS THAN N.                                   F6B00120    
       00051  1 02000 2 00037        TXI SRCH,2,+1024  THEN. DEPENDING ON THE RESULTS                 F6800130    
       00052  1 76000 2 00037        TXI SRCH,2,-1024  OF THE COMPARISON, THE SEARCH                  F6B00140    
       00053  1 01000 2 00037        TXI SRCH,2,+512   STEPS UP, OR DOWN, BY                          F6B00150    
       00054  1 77000 2 00037        TXI SRCH,2,-512   2**(X-1), AND MAKES                            F6B00160    
       00055  1 00400 2 00037        TXI SRCH,2,+256   A NEW COMPARISON WITH THAT                     F6B00170    
       00056  1 77400 2 00037        TXI SRCH,2,-256   ENTRY                                          F6B00180    
       00057  1 00200 2 00037        TXI SRCH,2,+128   IF THIS STEP OVERREACHES THE                   F6B00190    
       00060  1 77600 2 00037        TXI SRCH,2,-128   END OF THE TABLE, IT IS TRAPPED                F6B00200    
       00061  1 00100 2 00037        TXI SRCH,2,+64    BY THE TXL OR TXH INSTRUCTIONS                 F6B00210    
       00062  1 77700 2 00037        TXI SRCH,2,-64    IN SRCH                                        F6B00220    
       00063  1 00040 2 00037        TXI SRCH,2,+32                                                   F6B00230    
       00064  1 77740 2 00037        TXI SRCH,2,-32                                                   F6B00240    
       00065  1 00020 2 00037        TXI SRCH,2,+16                                                   F6B00250    
       00066  1 77760 2 00037        TXI SRCH,2,-16    INDEX REGISTER 1, WHICH                        F6B00260    
       00067  1 00010 2 00037        TXI SRCH,2,+8     CONTAINS 2(X+3) SELECTS THE                    F6B00270    
       00070  1 77770 2 00037        TXI SRCH,2,-8     APPROPRIATE TXI IN THIS LIST,                  F6B00280    
       00071  1 00004 2 00037        TXI SRCH,2,+4     TO MAKE THE NEXT LEAP                          F6B00290    
       00072  1 77774 2 00037        TXI SRCH,2,-4     FORWARDS OR BACKWARDS IN                       F6B00300    
       00073  1 00002 2 00037        TXI SRCH,2,+2     THE TABLE.                                     F6B00310    
       00074  1 77776 2 00037        TXI SRCH,2,-2                                                    F6B00320    
       00075  1 00001 2 00037        TXI SRCH,2,+1     INDEX REGISTER 2 SELECTS THE                   F6B00330    
       00076  1 77777 2 00037        TXI SRCH,2,-1     TABLE ENTRY FOR COMPARISON.                    F6B00340    
       00077  0 02000 4 00001  NOTIN TRA 1,4           END OF SEARCH.                                 F6B00350    
       00100  1 77777 2 00077        TXI NOTIN,2,-1                                                   F6B00360    
       00101  0 02000 1 00101  RAISE TRA RAISE,1                                                      F6B00370    
       00102  0 02000 1 00102  LOWER TRA LOWER,1                                                      F6B00380    
       00103  0 56000 0 00120  STEV  LDQ TEVL          ENTER HERE TO SEARCH TEV.                      F6B00390    
       00104 -0 60000 0 00037        STQ SRCH                   TABLE                                 F6B00400    
       00105  0 53400 1 00117        LXA TEVS,1        CONTROLS HOPP1NG WITHIN TEV.                   F6B00410    
       00106 -0 53400 2 00117        LXD TEVS,2        SELECTS ITEM FOR COMPARISON.                   F6B00420    
 U     00107  0 34000 2        TTEV  CAS TEV,2                                                        F6B00430    
       00110  1 77776 1 00101        TXI RAISE,1,-2    NOT FOUND. CONTINUE SEARCH                     F6B00440    
       00111  0 02000 0 00113        TRA ATEV          FOUND.                                         F6B00450    
       00112  1 77776 1 00102        TXI LOWER,1,-2    NOT FOUND. CONTINUE SEARCH                     F6B00460    
       00113 -0 75400 2 00000  ATEV  PXD 0,2           CONTROLS ENTRY POINT OF SEARCH                 F6B00470    
       00114  0 77100 0 00022        ARS 18            DEC. CONTAINS TABLE LENGTH.                    F6B00480    
       00115  0 40000 0 00172        ADD LTEV                                                         F6B00490    
       00116  0 02000 4 00002        TRA 2,4                                                          F6B00500    
       00117  0 00000 0 00004  TEVS      4,0,**+0                                                     F6B00510    
       00120 -3 00000 2 00107  TEVL  TXL TTEV,2,**+0                                                  F6B00520    
       00121  0 76700 0 00017  STIV  ALS 15            ENTER HERE TO SEARCH TIV.                      F6B00530    
       00122  0 60200 0 00160        SLW ENTRY                                                        F6B00540    
       00123  0 60200 0 00157        SLW ARG                                                          F6B00550    
       00124  0 56000 0 00141        LDQ TIVL                                                         F6B00560    
       00125 -0 60000 0 00037        STQ SRCH                                                         F6B00570    
       00126  0 53400 1 00140        LXA TIVS,1                                                       F6B00580    
       00127 -0 53400 2 00140        LXD TIVS,2                                                       F6B00590    
       00130  0 50000 2 02114  TTIV  CLA TIV,2                                                        F6B00600    
       00131  0 62100 0 00157        STA ARG                                                          F6B00610    
       00132  0 34000 0 00157        CAS ARG                                                          F6B00620    
       00133  1 77776 1 00102        TXI LOWER,1,-2                                                   F6B00630    
       00134  0 02000 0 00136        TRA ATIV                                                         F6B00640    
       00135  1 77776 1 00101        TXI RAISE,1,-2                                                   F6B00650    
       00136  0 50000 2 02114  ATIV  CLA TIV,2         RETURN WITH COMPLETE OLD TIV ENTRY             F6B00660    
       00137  0 02000 4 00002        TRA 2,4                                                          F6B00670    
       00140  0 77777 0 00004  TIVS      4,0,**-1                                                     F6B00680    
       00141  3 77776 2 00130  TIVL  TXH TTIV,2,**-2                                                  F6B00690    
       00142  0 56000 0 00155  SDEV  LDQ DEVL          ENTER HERE TO SEARCH DEV                       F6B00700    
       00143 -0 60000 0 00037        STQ SRCH                   TABLE                                 F6B00710    
       00144  0 53400 1 00154        LXA DEVS,1        CONTROLS HOPPING WITHIN DEV                    F6B00720    
       00145 -0 53400 2 00154        LXD DEVS,2        SELECTS THE ITEM FOR COMPARISON.               F6B00730    
       00146  0 34000 2 77777  TDEV  CAS DEV,2                                                        F6B00740    
       00147  1 77776 1 00101        TXI RAISE,1,-2    NOT FOUND CONTINUE SEARCH                      F6B00750    
       00150  0 02000 0 00152        TRA ADEV          ENTRY FOUND                                    F6B00760    
       00151  1 77776 1 00102        TXI LOWER,1,-2    NOT FOUND. CONTINUE SEARCH.                    F6B00770    
       00152  0 50000 2 74413  ADEV  CLA DEA,2                                                        F6B00780    
       00153  0 02000 4 00003        TRA 3,4                                                          F6B00790    
       00154  0 00000 0 00004  DEVS      4,0,**+0      CONTROLS ENTRY POINT OF SEARCH.                F6B00800    
       00155 -3 00000 2 00146  DEVL  TXL TDEV,2,**+0   CONTAINS TABLE LENGTH                          F6B00810    
       00156  0 00001 0 00002  DEVA      2,0,**+1      USED BY EDEV FOR MODIFYING DEVS.               F6B00820    
       00157  0 00000 0 00000  ARG   HTR 0                                                            F6B00830    
       00160  0 00000 0 00000  ENTRY HTR 0                                                            F6B00840    
       00161 +000000000000     ZERO  DEC 0000000000                                                   F6B00850    
       00162 +000000000001     ONE   DEC 0000000001                                                   F6B00860    
       00163 +000000000002     TWO   DEC 0000000002                                                   F6B00870    
       00164  0 00000 0 77777  ADDR  HTR -1                                                           F6B00880    
       00165  0 00000 0 00000  EIFN  HTR 0                                                            F6B00890    
       00166  0 00000 0 00000  L1    HTR 0                                                            F6B00900    
       00167  0 00000 0 00000  L2    HTR 0                                                            F6B00910    
       00170  0 00000 0 00000  LIFN  HTR 0                                                            F6B00920    
       00171  0 00000 0 77462  LCTR  HTR -206                                                         F6B00930    
       00172  0 00000 0 00000  LTEV  HTR 0                                                            F6B00940    
       00173  0 00000 0 00000  D     HTR 0                                                            F6B00950    
       00174  0 00000 0 00000  EA    HTR 0                                                            F6B00960    
       00175  0 00000 0 00000  L3    HTR 0                                                            F6B00970    
       00176  0 00000 0 00000  PGBK  HTR 0                                                            F6B00980    
       00177  0 00000 0 00000  SW1   HTR 0                                                            F6B00990    
       00200  0 00000 0 00000  SW2   HTR 0                                                            F6B01000    
       00201  0 00000 0 00000  SW3   HTR 0                                                            F6B01010    
       00202  0 00000 0 00000  SW4   HTR 0                                                            F6B01020    
       00203  0 00000 0 00000  SW5   HTR 0                                                            F6B01030    
       00204 +077777077777     DOLSI OCT 077777077777                                                 F6B01040    
       00205  0 00001 0 00001  ME2       1,0,1         ADDRESS CAN BE CHANGED TO ZERO BY ME1 IN REC.96F6B01050    
                        00210        ORG 136                                                          F6B01060    
       00210  0 53400 2 00255  START LXA ADD5,2        SET DRUM ERROR COUNTER TO 15                   F6B01070    
       00211  0 76200 0 00304  ADD6  RDR 4             SELECT DRUM 4.                                 F6B01080    
 T     00212 -0 75400 0 00000  ADD1  PXD               NUMBER OF                                      F6B01090    
       00213  0 46000 0 00212        LDA ADD1          ENTRIES IN                                     F6B01100    
       00214  0 70000 0 00165        CPY EIFN          EXTERNAL INTERNAL                              F6B01110    
       00215  0 76000 0 00006        COM               FORMULA NOS TABLE.                             F6B01120    
       00216  0 70000 0 00223        CPY ADD2                                                         F6B01130    
       00217  0 76000 0 00006        COM                                                              F6B01140    
       00220  0 10000 0 00224        TZE ADD3                                                         F6B01150    
       00221  2 00001 2 00211        TIX ADD6,2,1                                                     F6B01160    
       00222  0 07400 4 00004        TSX 4,4                                                          F6B01170    
       00223  0 00000 0 00000  ADD2  HTR 0                                                            F6B01180    
       00224 -0 53400 1 00165  ADD3  LXD EIFN,1                                                       F6B01190    
       00225  1 00001 1 00226        TXI ADD4,1,1                                                     F6B01200    
       00226 -0 63400 1 00165  ADD4  SXD EIFN,1                                                       F6B01210    
       00227  0 77200 0 00202        REW 2             TO                                             F6B01220    
       00230  0 02000 0 00260  B1    TRA BPCH1         GO SKIP BCD FILE                               F6B01230    
       00231  0 76200 0 00222  B2    RTB 2             POSITION TAPE TWO                              F6B01240    
       00232  0 70000 0 00253  CH1   CPY ERAS                                                         F6B01250    
       00233  0 02000 0 00232        TRA CH1           AT THE BEGINNING OF FILE FIVE.                 F6B01260    
       00234  0 02000 0 00236        TRA B3                                                           F6B01270    
       00235  0 02000 0 00231        TRA B2                                                           F6B01280    
       00236  2 00001 1 00231  B3    TIX B2,1,1                                                       F6B01290    
       00237  0 76200 0 00222        RTB 2             SELECT TAPE TWO                                F6B01300    
       00240  0 70000 0 00177        CPY SW1           COPY SENSE SWITCH SETTINGS                     F6B01310    
       00241  0 70000 0 00200        CPY SW2           I.E. FIRST RECORD OF FILE 5.                   F6B01320    
       00242  0 70000 0 00201        CPY SW3                                                          F6B01330    
       00243  0 70000 0 00202        CPY SW4                                                          F6B01340    
       00244  0 70000 0 00203        CPY SW5                                                          F6B01350    
       00245  0 77200 0 00203        REW 3                                                            F6B01360    
       00246  0 77200 0 00204        REW 4                                                            F6B01370    
       00247 -0 76000 0 00012        RTT                                                              F6B01380    
       00250  0 76100 0 00000        NOP                                                              F6B01390    
       00251  0 76200 0 00221        RTB 1                                                            F6B01400    
       00252  0 02000 0 00004        TRA 4             TO RETURN CONTROL TO LOADER.                   F6B01410    
       00253  0 00000 0 00000  ERAS  HTR 0                                                            F6B01420    
       00254  0 00000 0 00004  FOUR  HTR 4                                                            F6B01430    
       00255  0 00000 0 00017  ADD5  HTR 15                                                           F6B01440    
                        00256        BSS 2                                                            F6B01441    
       00260  0 76200 0 00202  BPCH1 RTD 2             SKIP A BCD FILE.                               F6B01442    
       00261  0 70000 0 00253        CPY ERAS                                                         F6B01443    
       00262  0 02000 0 00261        TRA *-1                                                          F6B01444    
       00263  0 02000 0 00265        TRA PREPR         END OF FILE                                    F6B01445    
       00264  0 02000 0 00260        TRA BPCH1         END OF RECORD                                  F6B01445    
       00265  0 53400 1 00267  PREPR LXA LOCV3,1                                                      F6B01447    
       00266  0 02000 0 00231        TRA B2                                                           F6B01448    
       00267 +000000000003     LOCV3 DEC 3                                                            F6B01449    
                        01400        ORG 768                                                          F6B01450    
                        01400  SOPR  BSS 12                                                           F6B01460    
                        01654  SYMOP BES 160                                                          F6B01470    
                        02114  ABSOP BES 160                                                          F6B01480    
 A                      02114  TIV   BSS                                                              F6B01490    
                        71003        ORG -3581                                                        F6B01500    
                        71457  ECS   BES 300                                                          F6B01501    
                        72607  UPPER BES 600                                                          F6B01510    
                        74413  DEA   BES 900                                                          F6B01520    
                        74413        ORG -1781                                                        F6B01530    
                        75055  STS   BES 290                                                          F6B01540    
                        75531  I     BES 300                                                          F6B01550    
                        76173  L     BES 290                                                          F6B01560    
                        77777  DEV   BES 900                                                          F6B01570    
 A                      00000        END                                                              F6B01580    
                        00001 0  TEV
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     174           0           0           0           0
 LIB       0           0           0           0           0
 COL     174           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      183                  
0NUMBER OF SYMBOLS,  DEF    71,DEFOP     0,UNDEF     1      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6C00010    
                                         FORTRAN 2   RECORD 96  -  ASSIGN COMMON                      F6C00011    
                                                                                                      F6C00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)           F6C00013    
                                                                                                      F6C00014    
 M                      00205  ME2   SYN 133                                                          F6C00020    
                        00210        ORG 136                                                          F6C00030    
                                         THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH  F6C00031    
                                         OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITI0N IN   F6C00032    
                                         DEV THAT THE NEW, ENTRY SHOULD HAVE.                         F6C00033    
       00210  1 00001 2 00211  EDEV  TXI EDEV0,2,1     SAVE POSITION FOR TEST.                        F6C00040    
       00211 -0 63400 2 00225  EDEV0 SXD EDEV1,2                                                      F6C00050    
       00212  0 60100 0 00160        STO ENTRY         SAVE ITEM TO BE ENTERED                        F6C00060    
       00213 -0 53400 2 00155        LXD DEVL,2                                                       F6C00070    
       00214  1 00001 2 00215        TXI EDEV2,2,1     UPDATE LENGTH OF DEV TABLE.                    F6C00080    
       00215 -0 63400 2 00155  EDEV2 SXD DEVL,2        MUST STARTING PT OF NEXT SEARCH BE             F6C00090    
       00216 -3 00000 2 00225  EDEV3 TXL EDEV1,2,**+0  UPDATED TO NEXT P0WER OF 2.                    F6C00100    
       00217 -0 50000 0 00154        CAL DEVS          YES.                                           F6C00110    
       00220  0 40000 0 00156        ADD DEVA          UPDATE DEVS                                    F6C00120    
       00221  0 60200 0 00154        SLW DEVS                                                         F6C00130    
       00222  0 62200 0 00156        STD DEVA                                                         F6C00140    
       00223  0 40000 0 00156        ADD DEVA          UPDATE THE EDEV3 TEST TO NEXT                  F6C00150    
       00224  0 62200 0 00216        STD EDEV3         HIGHER POWER OF 2.                             F6C00160    
       00225  3 00225 2 00233  EDEV1 TXH EDEV4,2,*     DECREMENT CONTAINS NEW POSITION                F6C00170    
       00226 -0 50000 0 00160        CAL ENTRY         OF ENTRY. IF TEST SHOWS THAT ENTRY             F6C00180    
       00227  0 60200 2 77777        SLW DEV,2         TO BE MADE ON END OF TABLE,                    F6C00190    
       00230  0 50000 0 00174        CLA EA            DO SO.                                         F6C00200    
       00231  0 60100 2 74413        STO DEA,2         ENTRY IS MADE INTO MIDDLE OF DEV.              F6C00210    
       00232  0 02000 4 00001        TRA 1,4           MOVE SUCCEDING ENTRIES DOWN                    F6C00220    
       00233 -0 50000 2 00000  EDEV4 CAL DEV+1,2       UNTIL SPACE IS MADE FOR NEW ENTRY.             F6C00230    
       00234  0 60200 2 77777        SLW DEV,2                                                        F6C00240    
       00235 -0 50000 2 74414        CAL DEA+1,2                                                      F6C00250    
       00236  0 60200 2 74413        SLW DEA,2                                                        F6C00260    
       00237  1 77777 2 00225        TXI EDEV1,2,-1                                                   F6C00270    
                                         READ EQUIV SENTENCE FROM DRUM 1                              F6C00280    
       00240 -0 63400 2 00264  NXT   SXD LIB20,2       SAVE XR2                                       F6C00290    
       00241  0 53400 2 00265        LXA LOC15,2       SET DRUM READ ERROR COUNTER                    F6C00300    
       00242  0 76200 0 00301  LIB21 RDR 1                                                            F6C00310    
       00243  0 53400 1 00161        LXA ZERO,1        SET XR1=0                                      F6C00320    
       00244  0 46000 0 00361        LDA ETL           TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT.  F6C00330    
 T     00245 -0 75400 0 00000        PXD                                                              F6C00340    
       00246 -0 70000 1 71456  ECC   CAD ECS-1,1       COPY VARIABLE NAME INTO ECS-1 ETC              F6C00350    
       00247  1 00001 1 00250        TXI ECI,1,1                                                      F6C00360    
       00250 -0 70000 1 75531  ECI   CAD I,1           COPY ELEMENT NUMBER INTO I-1 ETC               F6C00370    
       00251  0 16200 0 00246        TQP ECC           TRANS. TO ECC IF STILL MORE WORDS IN SENT.     F6C00380    
                                                       READ IN.                                       F6C00381    
       00252  0 70000 0 00362        CPY CS            CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN     F6C00390    
       00253  0 76000 0 00006        COM               LOGICAL CHECK SUM.                             F6C00400    
       00254  0 36100 0 00362        ACL CS                                                           F6C00410    
       00255  0 76000 0 00006        COM                                                              F6C00420    
       00256  0 10000 0 00261        TZE GFI           IF CHECK SUM OK, PROCEED TO GFI                F6C00430    
       00257  2 00001 2 00242        TIX LIB21,2,1     IF INCORRECT CHECK SUM, TRY AGAIN UNLESS       F6C00440    
       00260  0 07400 4 00004        TSX 4,4           ERROR COUNTER EQUALS ONE.                      F6C00450    
       00261 -0 63400 1 00363  GFI   SXD N,1           SAVE NO. OF VARIABLE NAMES READ IN SENT.       F6C00460    
       00262 -0 53400 2 00264        LXD LIB20,2       RESTORE XR2                                    F6C00470    
       00263  0 02000 4 00001        TRA 1,4           RETURN                                         F6C00480    
       00264  0 00000 0 00000  LIB20 HTR 0                                                            F6C00490    
       00265  0 00000 0 00017  LOC15 HTR 15                                                           F6C00500    
                                         EQUIV SENTENCE ASSIGNMENT                                    F6C00510    
       00266 -0 53400 1 00363  UP02  LXD N,1           N=NO. OF WORDS IN SENTENCE INTO XR1            F6C00520    
       00267 -0 63400 4 00372        SXD IR4,4         SAVE XR4                                       F6C00530    
       00270  0 50200 1 75531        CLS I,1           SELECT MAX1MUM I+/LAST I/INTO AC               F6C00540    
       00271 -2 00001 1 00276        TNX MAX,1,1       WHERE I IS NUMERIC PART OF EQUIV. COMPARE WITH F6C00550    
       00272  0 56000 1 75531  MIT   LDQ I,1           NEXT I                                         F6C00560    
       00273  0 04000 0 00275        TLQ TIN           GREATER OF THE TWO IS INTO AC.                 F6C00570    
       00274  0 50000 1 75531        CLA I,1                                                          F6C00580    
       00275  2 00001 1 00272  TIN   TIX MIT,1,1       IF MORE IS TO BE COMPARED, DECREMENT XR1       F6C00590    
                                                       AND REPEAT WITH NEXT I.                        F6C00591    
       00276  0 60200 0 00364  MAX   SLW MAXI          STORE MAXIMUM I OF SENTENCE.                   F6C00600    
 T     00277 -0 75400 0 00000        PXD               LET D=L-I, WHERE L IS LENGTH OF ARRAY          F6C00610    
       00300  0 60100 0 00365        STO MAXD          SET MAXD=0 WHICH CORRESPONDS TO ONE            F6C00620    
       00301 -0 53400 1 00363        LXD N,1           WD CT. OF SENT. 1NTO XR1. OF THE WORDS IN THE  F6C00630    
                                                       SENTENCE.                                      F6C00631    
       00302  0 50000 1 71457  LID   CLA ECS,1         BRING A WORD OF SENTENCE INTO AC.              F6C00640    
       00303  0 53400 2 00366        LXA VSZ,2         NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE  F6C00650    
                                                       TABLE).                                        F6C00651    
 D     00304 -3 00000 2 00311        TXL NSZ,2         IF NO ENTRIES IN SIZE TABLE, GO TO NSZ         F6C00660    
       00305  0 34000 2 75055  SSZ   CAS STS,2         OTHERWISE, COMPARE A WORD OF EQUIV SENT WITH   F6C00670    
                                                       AN ARRAY NAME.                                 F6C00671    
       00306  0 02000 0 00310        TRA TDV                                                          F6C00680    
       00307  0 02000 0 00313        TRA SSF           IF EQUAL, GO TO SSF TO COMPUTE D.              F6C00690    
       00310  2 00001 2 00305  TDV   TIX SSZ,2,1       IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700    
                                                       AGAIN TO COMPARE.                              F6C00701    
       00311  0 50000 0 00162  NSZ   CLA ONE           IF NO WORD IN SENTENCE IS AN ARRAY,            F6C00710    
       00312  0 02000 0 00314        TRA LIT           SET L=1 AND GO TO LIT TO COMPUTE D.            F6C00720    
       00313  0 50000 2 76173  SSF   CLA L,2           IF WORD IN SENT.=ARRAY NAME IN SIZE TABLE, CLA F6C00730    
                                                       LENGTH OF THAT ARRAY.                          F6C00731    
       00314 -0 40000 1 75531  LIT   SBM I,1           COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO F6C00740    
                                                       WORD                                           F6C00741    
       00315  0 60100 0 00173        STO D             IN EQUIVALENCE SENTENCE.                       F6C00750    
       00316  0 56000 0 00173        LDQ D             COMPARE WITH MAXD AND STORE LARGER IN MAXD.    F6C00760    
       00317  0 50000 0 00365        CLA MAXD                                                         F6C00770    
       00320  0 04000 0 00322        TLQ DEN                                                          F6C00780    
       00321 -0 60000 0 00365        STQ MAXD          GO BACK AND COMPUTE D US1NG NEW I UNTIL ALL    F6C00790    
       00322  2 00001 1 00302  DEN   TIX LID,1,1       IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE    F6C00800    
       00323  0 50000 0 00171        CLA LCTR          EXHAUSTED.                                     F6C00810    
       00324  0 40200 0 00364        SUB MAXI          REDUCE LOCATION COUNTER BY MAX1                F6C00820    
       00325  0 60100 0 00171        STO LCTR                                                         F6C00830    
       00326 -0 53400 1 00363        LXD N,1           RESET COUNTER FOR WORDS IN EQUIV. SENTENCE.    F6C00840    
       00327 -0 63400 1 00367  STJ   SXD J,1           SAVE CURRENT STATUS OF COUNTER IN DECR. OF J.  F6C00850    
       00330  0 50000 0 00171        CLA LCTR          COMPUTE ABSOLUTE LOCATION OF WORD IN SENT.,    F6C00860    
       00331  0 40100 1 75531        ADM I,1           AND SAVE IT IN EA                              F6C00870    
       00332  0 60100 0 00174        STO EA                                                           F6C00880    
       00333  0 50000 1 71457  DES   CLA ECS,1         CURRENT WORD OF EQUIV SENTENCE.                F6C00890    
       00334  0 07400 4 00142        TSX SDEV,4        SEARCH DEV TABLE                               F6C00900    
       00335  0 07400 4 00210        TSX EDEV,4        STORE IN DEV TABLE                             F6C00910    
       00336  0 02000 0 00342        TRA MJC           RETURN FROM EDEV.                              F6C00920    
       00337  0 40200 0 00174        SUB EA            RETURN FROM SDEV IF FOUND IN DEV TABLE. DEA    F6C00930    
       00340  0 10000 0 00342        TZE MJC           CORRESP. TO DEV ENTRY SHOULD EQUAL EA OR ERROR F6C00940    
       00341  0 07400 4 00004        TSX 4,4                                                          F6C00950    
       00342 -0 53400 1 00367  MJC   LXD J,1           CURRENT STATUS OF EQUIV. WORD COUNTER          F6C00960    
       00343  2 00001 1 00327        TIX STJ,1,1       IF MORE WDS IN SENTENCE, REPEAT WITH NEXT WORD F6C00970    
       00344  0 50000 0 00171        CLA LCTR          AT END OF SENTENCE, REDUCE LCTR BY MAXD.       F6C00980    
       00345  0 40200 0 00365        SUB MAXD                                                         F6C00990    
       00346  0 60100 0 00171        STO LCTR                                                         F6C01000    
       00347 -0 53400 4 00372        LXD IR4,4                                                        F6C01010    
       00350  0 50000 0 00363  UP03  CLA N             TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ   F6C01020    
                                                       EQUIVALENCE TABLE.                             F6C01021    
       00351  0 77100 0 00021        ARS 17            PLUS ONE TO ALLOW FOR CHECK SUM                F6C01030    
       00352  0 40000 0 00162        ADD ONE           PLUS                                           F6C01040    
       00353  0 40000 0 00361        ADD ETL           LAST STARTING DRUM ADDRESS.                    F6C01050    
       00354  0 60100 0 00361        STO ETL           STORE NEW STARTING DRUM ADDRESS IN ETL.        F6C01060    
       00355  0 53400 1 00361        LXA ETL,1         TEST FOR END OF EQUIVALENCE TABLE.             F6C01070    
       00356 -3 00000 1 00360  ECN   TXL UP31,1,**     WD COUNT OF EQUIV. TABLE IN DECR.              F6C01080    
       00357  0 02000 4 00002        TRA 2,4           IS END OF TABLE, GO TO 2,4                     F6C01090    
       00360  0 02000 4 00001  UP31  TRA 1,4           IF NOT END OF EQUIV TABLE, GO TO EXIT+1        F6C01100    
       00361  0 00000 0 00000  ETL   HTR 0                                                            F6C01110    
       00362  0 00000 0 00000  CS    HTR 0                                                            F6C01120    
       00363  0 00000 0 00000  N     HTR 0                                                            F6C01130    
       00364  0 00000 0 00000  MAXI  HTR 0                                                            F6C01140    
       00365  0 00000 0 00000  MAXD  HTR 0                                                            F6C01150    
       00366  0 00000 0 00000  VSZ   HTR 0             CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE.   F6C01160    
       00367  0 00000 0 00000  J     HTR 0                                                            F6C01170    
       00370  0 00000 0 00000  ETN   HTR 0                                                            F6C01180    
       00371 +000001000000     C1    OCT 000001000000                                                 F6C01190    
       00372  0 00000 0 00000  IR4   HTR 0                                                            F6C01200    
                                         BUILD SYMBOL TABLE FROM COMMON                               F6C01210    
                        00400        ORG 256                                                          F6C01220    
 T     00400 -0 75400 0 00004  UP12  PXD 4                                                            F6C01230    
       00401  0 76000 0 00006        COM                                                              F6C01240    
       00402  0 60200 0 77777        SLW DEV           WORD OF 1S INTO DEV.                           F6C01250    
       00403  0 76200 0 00222        RTB 2             TO SKIP SUBDEF RECORD ON TAPE 2.               F6C01260    
       00404  0 53400 1 00411        LXA STP,1         SET TAPE ERROR COUNTER                         F6C01270    
       00405  0 02000 0 00412        TRA UP15          AND GO TO READ IN COMMON.                      F6C01280    
       00406  0 76400 0 00202  ERRUP BST 2             TRY TO READ RECORD AGAIN                       F6C01290    
       00407  2 00001 1 00412        TIX UP15,1,1      UNLESS C0UNTER REDUCED TO 1.                   F6C01300    
       00410  0 07400 4 00004        TSX 4,4                                                          F6C01310    
       00411  0 42000 0 00005  STP   HPR 5                                                            F6C01320    
       00412  0 76200 0 00222  UP15  RTB 2             SELECT TAPE TWO                                F6C01330    
       00413 -0 53400 4 00164        LXD ADDR,4                                                       F6C01340    
       00414  0 70000 4 72606  UP16  CPY UPPER-1,4     READ IN COMMON TABLE.                          F6C01350    
       00415  1 00001 4 00414        TXI UP16,4,1                                                     F6C01360    
       00416  0 02000 0 00427        TRA EOF           END OF FILE IS ERROR HERE                      F6C01370    
       00417  0 77100 0 00377        ARS 255                                                          F6C01380    
       00420  0 77100 0 00377        ARS 255                                                          F6C01390    
       00421 -0 76000 0 00012        RTT                                                              F6C01400    
       00422  0 02000 0 00406        TRA ERRUP                                                        F6C01410    
       00423  0 50000 0 72605        CLA UPPER-2       STORE WORD COUNT OF COMMON                     F6C01420    
       00424  0 40200 0 00371        SUB C1            TABLE -1 IN DECR OF UP 18                      F6C01430    
       00425  0 62200 0 00522        STD UP18                                                         F6C01440    
       00426  0 02000 0 00430        TRA DSR                    ERROR                                 F6C01450    
       00427  0 07400 4 00004  EOF   TSX 4,4           END OF FILE ERROR                              F6C01460    
       00430  0 53400 2 00265  DSR   LXA LOC15,2       SET DRUM ERROR COUNTER                         F6C01470    
       00431  0 76200 0 00302  LIB22 RDR 2                                                            F6C01480    
       00432  0 46000 0 00433        LDA DSA                    SIZE TABLE TEST                       F6C01490    
 T     00433 -0 75400 0 00000  DSA   PXD 0                                                            F6C01500    
       00434 -0 70000 0 00366        CAD VSZ           READ SIZE TABLE WORD COUNT                     F6C01510    
       00435  0 76000 0 00006        COM                                                              F6C01520    
       00436 -0 70000 0 00362        CAD CS                                                           F6C01530    
       00437  0 76000 0 00006        COM                                                              F6C01540    
       00440  0 10000 0 00443        TZE DTR                                                          F6C01550    
       00441  2 00001 2 00431        TIX LIB22,2,1     IF DRUM READ ERROR                             F6C01560    
       00442  0 07400 4 00004        TSX 4,4                                                          F6C01570    
       00443  0 50000 0 00366  DTR   CLA VSZ                                                          F6C01580    
       00444  0 77100 0 00001        ARS 1             STORE NO. OF ARRAY NAMES IN SIZE               F6C01590    
       00445  0 60100 0 00366        STO VSZ           TABLE INTO VSZ                                 F6C01600    
       00446  0 53400 1 00366  DTE   LXA VSZ,1         SIZE TABLE TEST                                F6C01610    
 D     00447 -3 00000 1 00466        TXL ETR,1         IF NO SIZE TABLE, GO ETR                       F6C01620    
       00450  0 53400 2 00265        LXA LOC15,2       IF SIZE TABLE ENTRIES, SET                     F6C01630    
       00451  0 76200 0 00302  LIB23 RDR 2             DRUM READ ERROR COUNT AND READ IN SIZE         F6C01640    
       00452  0 46000 0 00453        LDA DTA           TABLE.                                         F6C01650    
 T     00453 -0 75400 0 00002  DTA   PXD 2                                                            F6C01660    
       00454 -0 70000 1 75055  DTC   CAD STS,1         COPY ARRAY NAME INTO STS,1                     F6C01670    
       00455 -0 70000 1 76173        CAD L,1           COPY ARRAY LENGTH INTO L,1                     F6C01680    
       00456  2 00001 1 00454        TIX DTC,1,1                                                      F6C01690    
       00457  0 70000 0 00362        CPY CS                                                           F6C01700    
       00460  0 76000 0 00006        COM                                                              F6C01710    
       00461 -0 70000 0 00362        CAD CS                                                           F6C01720    
       00462  0 76000 0 00006        COM                                                              F6C01730    
       00463  0 10000 0 00466        TZE ETR           TEST CHECK SUM IF OK, GO TO ETR.               F6C01740    
       00464  2 00001 2 00451        TIX LIB23,2,1     CHECK SUM ERROR.                               F6C01750    
       00465  0 07400 4 00004        TSX 4,4                                                          F6C01760    
       00466  0 53400 2 00265  ETR   LXA LOC15,2                                                      F6C01770    
       00467  0 76200 0 00301  LIB24 RDR 1             SELECT DRUM 1. TO SEE IF ANY EQUIV. TABLE.     F6C01780    
       00470  0 46000 0 00471        LDA ETA           EQUIV TABLE TEST                               F6C01790    
 T     00471 -0 75400 0 00000  ETA   PXD 0                                                            F6C01800    
       00472 -0 70000 0 00370        CAD ETN           READ WORD COUNT OF EQUIV TABLE INTO ETN        F6C01810    
       00473  0 76000 0 00006        COM                                                              F6C01820    
       00474 -0 70000 0 00362        CAD CS                                                           F6C01830    
       00475  0 76000 0 00006        COM                                                              F6C01840    
       00476  0 10000 0 00501        TZE ETT           IF NO ERROR, GO TO ETT.                        F6C01850    
       00477  2 00001 2 00467        TIX LIB24,2,1                                                    F6C01860    
       00500  0 07400 4 00004        TSX 4,4                                                          F6C01870    
       00501 -0 53400 1 00370  ETT   LXD ETN,1         SET XR1 EQUAL WD. CT. OF EQUIV TABLE           F6C01880    
 D     00502 -3 00000 1 00535        TXL UP01,1        IF WORD C0UNTER ZERO, TRANSFER                 F6C01890    
       00503 -0 63400 1 00356        SXD ECN,1         IF THERE ARE ENTRIES IN EQUIV, SAVE WD. CT. IN F6C01900    
                                                       ECN.                                           F6C01901    
       00504  0 50000 0 00163        CLA TWO                                                          F6C01910    
       00505  0 60100 0 00361        STO ETL           SET ETL=2                                      F6C01920    
       00506  0 50000 0 72605        CLA UPPER-2,      IF WORD COUNT OF COMMON TABLE                  F6C01930    
       00507  0 10000 0 00574        TZE UP25          EQUALS ZERO, GO TO UP 25. IF NOT 0,            F6C01940    
       00510  0 07400 4 00240  UP32  TSX NXT,4         READ EQUIV. SENTENCE.                          F6C01950    
       00511  2 00001 1 00512        TIX CH2,1,1       XR1 CONTAINS NO. OF WOROS READ BY NXT          F6C01960    
       00512 -0 63400 1 00525  CH2   SXD UP21,1        NO. OF WORDS IN SENTENCE INTO DECR. UP 21      F6C01970    
       00513 -0 53400 1 00164        LXD ADDR,1        SET XR1,2=0                                    F6C01980    
       00514 -0 53400 2 00164  UP22  LXD ADDR,2                                                       F6C01990    
       00515  0 50000 1 71456  UP20  CLA ECS-1,1       COMPARE VARIABLE NAME FROM EQUIV SENTENCE      F6C02000    
       00516  0 34000 2 72604        CAS UPPER-3,2     WITH WORD IN COMMON                            F6C02010    
       00517  0 02000 0 00521        TRA UP17          NOT EQUAL                                      F6C02020    
       00520  0 02000 0 00532        TRA UP30          EQUAL. I.E, VARIABLE NAME IS IN COMMON.        F6C02030    
       00521  1 00001 2 00522  UP17  TXI UP18,2,1      NOT EQUAL. INCREMENT INDEX REG 2.              F6C02040    
       00522  3 00522 2 00524  UP18  TXH UP19,2,*      PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPAREF6C02050    
       00523  0 02000 0 00515        TRA UP20          OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD  F6C02060    
       00524  1 00001 1 00525  UP19  TXI UP21,1,1      END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070    
       00525  3 00525 1 00527  UP21  TXH UP33,1,*      IF ALL VARIABLE NAMES IN SENTENCE COMPARED     F6C02080    
       00526  0 02000 0 00514        TRA UP22          IF MORE NAMES IN SENTENCE, COMPARE NEXT WORD   F6C02090    
       00527  0 07400 4 00350  UP33  TSX UP03,4        MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100    
                                                       TAB.                                           F6C02101    
       00530  0 02000 0 00510        TRA UP32          RETURN HERE IF NOT END OF EQUIV TABLE TO READ  F6C02110    
                                                       NEXT SENTENCE                                  F6C02111    
       00531  0 02000 0 00535        TRA UP01          IF END OF EQUIV TABLE, RETURN HERE             F6C02120    
       00532  0 07400 4 00266  UP30  TSX UP02,4        TO ASSIGN EQUIV. SENT, WORD OF WHICH           F6C02130    
                                                        APPEARS IN COMMON, TO UPPER MEMORY            F6C02131    
       00533  0 02000 0 00510        TRA UP32          RETURN IF NOT END OF EQUIV. TABLE              F6C02140    
       00534  0 02000 0 00535        TRA UP01          IF END OF EQUIV TABLE, RETURN HERE             F6C02150    
                                         ASSIGN UPPER MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV.    F6C02151    
       00535 -0 53400 1 00164  UP01  LXD ADDR,1                 ASSIGN UPPER                          F6C02160    
       00536  0 50000 0 72605        CLA UPPER-2       XR1 WILL CONATIN COUNT OF COMMON WDS PROCESSED.F6C02170    
       00537  0 10000 0 00576        TZE ME1           TRANSFER OUT TO ME1 IF N0 COMM0N TABLE.        F6C02180    
       00540  0 40200 0 00371        SUB C1            IF THERE IS A COMMON TABLE, DECREASE WORD CT.  F6C02190    
       00541  0 62200 0 00572        STD UP23          BY 1 AND STORE IN DECR. OF UP 23               F6C02200    
       00542  0 50000 0 00171        CLA LCTR                                                         F6C02210    
       00543  0 60100 0 00174        STO EA            STORE LOCATION COUNTER IN EA.                  F6C02220    
       00544  0 50000 1 72604  UP24  CLA UPPER-3,1     A COMMON ENTRY INTO AC.                        F6C02230    
       00545 -0 63400 1 00601        SXD LIB1,1        SAVE COUNT.                                    F6C02240    
       00546  0 07400 4 00142        TSX SDEV,4        SEE IF IN DEV TABLE                            F6C02250    
       00547  0 07400 4 00210        TSX EDEV,4        TO ENTER COMMON SYMBOL IN DEV TABLE.           F6C02260    
       00550  0 02000 0 00553        TRA UP05          RETURN FROM EDEV. GO TO UP05 TO RESET LCTR     F6C02270    
       00551 -0 53400 1 00601        LXD LIB1,1        RETURN HERE IF LOCATED COMMON WORD IN DEV TABL,F6C02280    
       00552  0 02000 0 00571        TRA UP06          RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNTF6C02290    
                                         TO DETERMINE WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY. F6C02291    
       00553  0 53400 2 00366  UP05  LXA VSZ,2                  IS UPPER SYM                          F6C02300    
       00554 -0 53400 1 00601        LXD LIB1,1                                                       F6C02310    
 D     00555 -3 00000 2 00563        TXL UP07,2        TRANSFER IF NO SIZE TABLE.                     F6C02320    
       00556  0 50000 1 72604        CLA UPPER-3,1     COMPARE COMMON SYMBOL JUST ENTERED IN DEV TABLEF6C02330    
       00557  0 34000 2 75055  UP08  CAS STS,2         WITH ARRAY NAME FROM SIZE TABLE                F6C02340    
       00560  0 02000 0 00562        TRA UP09                                                         F6C02350    
       00561  0 02000 0 00565        TRA UP10          COMMON SYMBOL LOCATED FN SIZE TABLE            F6C02360    
       00562  2 00001 2 00557  UP09  TIX UP08,2,1      NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL    F6C02370    
                                                       ARRAY NAMES                                    F6C02371    
       00563  0 50200 0 00162  UP07  CLS ONE           IF NOT IN SIZE TABLE, REDUCE LCTR BY ONE. I.E. F6C02380    
                                                       NOT AN ARRAY.                                  F6C02381    
       00564  0 02000 0 00566        TRA UP11                                                         F6C02390    
       00565  0 50200 2 76173  UP10  CLS L,2           REDUCE LCTR BY LENGTH OF ARRAY                 F6C02400    
       00566  0 40000 0 00171  UP11  ADD LCTR                   REDUCE LCTR                           F6C02410    
       00567  0 60100 0 00171        STO LCTR                                                         F6C02420    
       00570  0 60100 0 00174        STO EA            STORE CURRENT LCTR IN EA.                      F6C02430    
       00571  1 00001 1 00572  UP06  TXI UP23,1,1      REPEAT FOR EACH COMMON ENTRY UNTIL             F6C02440    
       00572  3 00572 1 00574  UP23  TXH UP25,1,*      ALL ENTRIES IN COMMON TABLE ARE IN DEV         F6C02450    
       00573  0 02000 0 00544        TRA UP24          TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABLF6C02460    
       00574  0 76200 0 00221  UP25  RTB 1             GO TO LOADER                                   F6C02470    
       00575  0 02000 0 00004        TRA 4                                                            F6C02480    
 M     00576  0 62100 0 00205  ME1   STA ME2           STORE ZERO IN ADDRESS OF ME2 AND GO TO         F6C02490    
       00577  0 02000 0 00574        TRA UP25          LOADER.                                        F6C02500    
       00600  0 00000 0 00000  IDENT HTR 0                                                            F6C02510    
       00601  0 00000 0 00000  LIB1  HTR 0                                                            F6C02520    
 A                      00000        END                                                              F6C02530    
                              0  ME2 00205,00205
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     279           0           0           0           0
 LIB       0           0           0           0           0
 COL     279           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      288                  
0NUMBER OF SYMBOLS,  DEF   154,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6D00010    
                                         FORTRAN 2   RECORD 98  -  EOUIV-DIMENSION.                   F6D00011    
                                                                                                      F6D00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 40O (OCTAL).          F6D00013    
                                                                                                      F6D00014    
                                         ENTER TRANSFER VECTOR INTO DEV TABLE                         F6D00020    
                        00210  EDEV  SYN 136                                                          F6D00030    
                        00240  NXT   SYN 160                                                          F6000040    
                        00265  LOC15 SYN 181                                                          F6000050    
                        00266  UP02  SYN 182                                                          F6D00060    
                        00350  UP03  SYN 232                                                          F6D00070    
                        00361  ETL   SYN 241                                                          F6D00000    
                        00363  N     SYN 243                                                          F6D00090    
                        00366  VSZ   SYN 246                                                          F6D00100    
                        00367  J     SYN 247                                                          F6D00110    
                        00370  ETN   SYN 248                                                          F6D00120    
                        00400        ORG 256                                                          F6D00130    
       00400  0 50000 0 00171        CLA LCTR          SAVE UPPER BREAK                               F6D00140    
       00401  0 60100 0 00175        STO L3            IN L3                                          F6D00150    
       00402  0 76200 0 00303        RDR 3             SELECT DRUM 3                                  F6D00160    
 T     00403 -0 75400 0 00000  A27   PXD 0                                                            F6D00170    
       00404  0 46000 0 00403        LDA A27           LOCATE TRANSFER VECTOR TABLE (CLOSUB)          F6D00180    
       00405  0 70000 0 72605        CPY UPPER-2                                                      F6D00190    
       00406  0 70000 0 72605        CPY UPPER-2       LOAD INDEX REG 1 WITH WORD COUNT OF            F6D00200    
       00407 -0 53400 1 72605  A23   LXD UPPER-2,1     TRANSFER VECTOR TABLE.                         F6D00210    
 D     00410 -3 00000 1 00452        TXL A28,1         IF NO TRANS VECTOR, GO TO ASSIGN EQUIV AND     F6D00220    
       00411  0 53400 2 00265        LXA LOC15,2       DIMENSION STORAGE.                             F6D00230    
       00412  0 76200 0 00303  X1    RDR 3             IF THERE IS A TRANSFER VECTOR,                 F6D00240    
 T     00413 -0 75400 0 00002  A29   PXD 2             READ IT INTO UPPER -3 ETC.                     F6D00250    
       00414  0 46000 0 00413        LDA A29                                                          F6D00260    
       00415 -0 70000 1 72605  A30   CAD UPPER-2,1                                                    F6D00270    
       00416  2 00001 1 00415        TIX A30,1,1                                                      F6D00280    
       00417  0 70000 0 00625        CPY SUM                                                          F6D00290    
       00420  0 76000 0 00006        COM                                                              F6D00300    
       00421 -0 70000 0 00625        CAD SUM           TO TEST CHECK SUM                              F6D00310    
       00422  0 76000 0 00006        COM                                                              F6D00320    
       00423  0 10000 0 00426        TZE A25           CHECK SUM OKAY. GO TO ENTER TRANS. VECTOR INTO F6D00330    
                                                       DEV TABLE,                                     F6D00331    
       00424  2 00001 2 00412        TIX X1,2,1        IF CHECK SUM ERROR, TRY AGAIN                  F6D00340    
       00425  0 07400 4 00004        TSX 4,4                                                          F6D00350    
       00426  0 50000 0 72605  A25   CLA UPPER-2       REDUCE WD COUNT OF TRANSFER VECTOR BY ONE      F6D00360    
       00427  0 40200 0 00626        SUB C2            AND STORE RESULT IN DECR OF A24.               F6D00370    
       00430  0 62200 0 00450        STD A24                                                          F6D00380    
       00431 -0 53400 1 00164        LXD ADDR,1        SET COUNTER FOR WORDS PROCESSED TO ZERO.       F6D00390    
       00432  0 50000 0 00166        CLA L1                                                           F6D00400    
       00433  0 60100 0 00174  A42   STO EA            STORE PROGRAM COUNTER IN EA.                   F6D00410    
       00434  0 50000 1 72604        CLA UPPER-3,1     SELECT A TRANSFER VECTOR NAME.                 F6D00420    
       00435 -0 63400 1 00627        SXD LIB1,1                                                       F6D00430    
       00436  0 07400 4 00142        TSX SDEV,4        TO SEE IF NAME SELECTED IS IN DEV TABLE. YES,  F6D00440    
                                                       ERROR.                                         F6D00441    
       00437  0 07400 4 00210        TSX EDEV,4        ENTER NAME IN DEV TABLE.                       F6D00450    
       00440  0 02000 0 00442        TRA A40           EXIT FROM EDEV.                                F6D00460    
       00441  0 07400 4 00004  A41   TSX 4,4           IF NAME LOCATED IN DEV TABLE, ERROR            F6D00470    
       00442  0 50000 0 00166  A40   CLA L1            STORE PROGRAM COUNTER IN PROG BREAK.           F6D00480    
       00443  0 60100 0 00167        STO L2                                                           F6D00490    
       00444  0 40000 0 00162        ADD ONE           INCREASE PROGRAM COUNTER BY 1.                 F6D00500    
       00445  0 60100 0 00166        STO L1                                                           F6D00510    
       00446 -0 53400 1 00627        LXD LIB1,1                                                       F6D00520    
       00447  1 00001 1 00450        TXI A24,1,1                                                      F6D00530    
       00450  3 00450 1 00452  A24   TXH A28,1,*       TRANSFER TO ASSIGN EQUIV. IF ALL TRANS VECTOR  F6D00540    
                                                       NAMES ENTERED                                  F6D00541    
       00451  0 02000 0 00433        TRA A42                                                          F6D00550    
                                         ASSIGN EQUIV AOTHERW1SE, SELECT NEST TRANS. VEC. NAME AND    F6D00560    
                                                       ENTER IN DEV                                   F6D00561    
       00452  0 76400 0 00202  A28   BST 2             TO POSITION TAPE 2 AT BEGINNING OF SUBDEF TABL F6D00570    
       00453  0 76400 0 00202        BST 2                                                            F6D00580    
       00454  0 53400 1 00461        LXA A1,1          SET READ ERROR COUNTER                         F6D00590    
       00455  0 02000 0 00462        TRA A2                                                           F6000600    
       00456  0 76400 0 00202  A3    BST 2             READ ERROR PROCE0URE                           F6D00610    
       00457  2 00001 1 00462        TIX A2,1,1                                                       F6D00620    
       00460  0 07400 4 00004        TSX 4,4                                                          F6D00630    
       00461  0 42000 0 00005  A1    HPR 5             SELECT TAPE TWO                                F6D00640    
       00462  0 76200 0 00222  A2    RTB 2             TO READ SUB DEF, TABLE.                        F6D00650    
       00463 -0 53400 4 00164        LXD ADDR,4        SET COUNTER=0,                                 F6D00660    
       00464  0 70000 4 72606  A4    CPY UPPER-1,4     ANO READ SUBDEF TABLE.                         F6D00670    
       00465  1 00001 4 00464        TXI A4,4,1        INTO UPPER-1, ETC,                             F6D00680    
       00466  0 02000 0 00624        TRA EOF1          END-OF-FILE IS ERROR HERE,                     F6D00690    
       00467  0 77100 0 00377        ARS 255                                                          F6D00700    
       00470  0 77100 0 00377        ARS 255                                                          F6D00710    
       00471 -0 76000 0 00012        RTT                                                              F6D00720    
       00472  0 02000 0 00456        TRA A3            IF RTT ERROR.                                  F6D00730    
       00473  0 77200 0 00202        REW 2             WHEN RECORD HAS BEEN READ, REWIND TABLE-TAPE.  F6000740    
       00474  0 50000 0 00370        CLA ETN           ETN HAS WORD COUNT OF EQUIV. TABLE             F6D00750    
       00475  0 10000 0 00556        TZE DIM           IF NO EQUIV. ENTRIES, GO TO ASSIGN DIMENSION   F6D00760    
       00476  0 50000 0 00163        CLA TWO                                                          F6D00770    
       00477  0 60100 0 00361        STO ETL           STORE WD CT OF EQUIV TABLE+2 IN ETL            F6000780    
       00500  0 07400 4 00240  A5    TSX NXT,4         TO READ AN EQU1V SENTENCE INTO ECS-1,--, I-1,--F6000790    
       00501  0 50000 0 72605  A6    CLA UPPER-2       LEAVES WD CT. OF SENT. IN XR1.                 F6D00800    
       00502  0 40200 0 00626        SUB C2            TEST WORD COUNT OF SUBDEF TABLE.               F6D00810    
       00503  0 10000 0 00530        TZE ME30          IF NO ARGUMENTS, GO TO SEARCH DEV TABLE        F6000820    
       00504 -0 12000 0 00530        TMI ME30                                                         F6D00830    
       00505  2 00001 1 00506        TIX CH4,1,1                                                      F6D00840    
       00506 -0 63400 1 00535  CH4   SXD A14,1         SAVE XR1 IN DECR. OF A14                       F6D00850    
       00507  0 40200 0 00626        SUB C2                                                           F6000860    
       00510  0 62200 0 00520        STD A12                                                          F6D00870    
       00511 -0 53400 1 00164        LXD ADDR,1                                                       F6D00880    
       00512 -0 53400 2 00164  A8    LXD ADDR,2        SET XRS 1+2=0                                  F6D00890    
       00513  0 50000 1 71456  A9    CLA ECS-1,1       COMPARE A WORD OF EQUIV SENTENCE               F6D00900    
       00514  0 34000 2 72603        CAS UPPER-4,2     WITH LIST OF ARGUMENTS IN SUBDEF TABLE.        F6D00910    
       00515  0 02000 0 00517        TRA A10                                                          F6D00920    
       00516  0 02000 0 00542        TRA A11           IN SUB DEF TABLE, I.E. EQUIV. VARIABLE IS A SUBF6D00930    
                                                       ROUTINE ARGUMENT                               F6D00931    
       00517  1 00001 2 00520  A10   TXI A12,2,1       INCREASE ARGUMENT COUNTER AND REPEAT COMPARISONF6000940    
       00520  3 00000 2 00644  A12   TXH DPCH3,2,**                                                   F6D00950    
       00521  0 02000 0 00513        TRA A9                                                           F6D00960    
       00522  0 07400 4 00142  A13   TSX SDEV,4                                                       F6D00970    
       00523 -0 53400 1 00646        LXD SVIT,1                                                       F6D00980    
       00524  1 00001 1 00535        TXI A14,1,1                                                      F6D00990    
       00525  0 07400 4 00350        TSX UP03,4        IF WORD FOUND IN DEV SEARCH, GO TO MODIFY DRUM F6D01000    
                                                       ADDRESS                                        F6D01001    
       00526  0 02000 0 00500        TRA A5            OF EQUIV TABLE. READ IN NEXT EQUIV. SENTENCE   F6D01010    
       00527  0 02000 0 00556        TRA DIM           EXIT HERE FROM UP03 IF END OF EQUIV TABLE REACHF6D01020    
       00530  0 50000 0 71456  ME30  CLA ECS-1         SEARCH DEV TABLE FOR AN EQUIV. NAME.           F6D01030    
       00531  0 07400 4 00142        TSX SDEV,4                                                       F6D01040    
       00532  0 02000 0 00537        TRA A7            NOT IN DEV TABLE. GO TO ASSIGN EQUIV STORAGE   F6D01050    
       00533  0 76100 0 00000        NOP                                                              F6D01060    
       00534  0 02000 0 00525        TRA A13+3         RETURNS HERE IF SEARCH SUCCESSFUL              F6D01070    
       00535  3 00535 1 00537  A14   TXH A7,1,*        (WD COUNT OF SENT. IN DECREMENT). TRANSF. TO A7F6D01080    
       00536  0 02000 0 00512        TRA A8            IF END OF EQUIV SENTENCE.                      F6D01090    
       00537  0 07400 4 00266  A7    TSX UP02,4        NOT SUB DEF SO NORMAL EQUIV ASSIGNMENT.        F6D01100    
       00540  0 02000 0 00500        TRA A5            IF NOT END OF EQUIV TABLE, GO TO READ IN NEXT  F6D01110    
                                                       SENTENCE                                       F6D01111    
       00541  0 02000 0 00556        TRA DIM           END OF EQUIV. GO TO ASSIGN DIMENSION STORAGE   F6D01120    
       00542  0 60000 0 00174  A11   STZ EA            EQUIV. VARIABLE IS A SUBROUTINE ARGUMENT       F6D01130    
       00543 -0 53400 1 00363        LXD N,1           SET COUNTER FOR NO. OF WORDS IN SENT.          F6D01140    
       00544 -0 63400 1 00367  A21   SXD J,1           SAVE NO. OF WORDS IN EQUIV SENT.               F6D01150    
       00545  0 50000 1 71457        CLA ECS,1         STORE EQUIV VARIABLE IN DEV AND                F6D01160    
       00546  0 07400 4 00142        TSX SDEV,4        STORE LOCATION AS ZERO.                        F6D01170    
       00547  0 07400 4 00210        TSX EDEV,4                 EQUIV ENTRIES                         F6D01180    
       00550  0 02000 0 00551        TRA A22                                                          F6D01190    
       00551 -0 53400 1 00367  A22   LXD J,1           RESTORE COUNTER FOR NO. OF WDS LEFT IN EQUIV   F6D01200    
                                                       SENTENCE.                                      F6D01201    
       00552  2 00001 1 00544        TIX A21,1,1       IF MORE WORDS IN SENT, GO TO STORE LOCATION AS F6D01210    
                                                       ZERO,                                          F6D01211    
       00553  0 07400 4 00350        TSX UP03,4        SENTENCE FINISHED. GO COMPUTE NEW DRUM ADD. +  F6D01220    
                                                       TEST FOR END.                                  F6D01221    
       00554  0 02000 0 00500        TRA A5            IF NOT END OF EQUIV TABLE, REPEAT WITH NEXT    F6D01230    
                                                       SENTENCE.                                      F6D01231    
       00555  0 02000 0 00556        TRA DIM           END OF EQUIV TABLE.                            F6D01240    
                                         ADD SYMBOLS FROM DIMENSION SENTENCES                         F6D01250    
       00556  0 53400 1 00366  DIM   LXA VSZ,1         SET COUNTER WITH WD CT OF ARRAY NAME TABLE     F6D01260    
 D     00557 -3 00000 1 00622        TXL ENDA,1        IF NO SIZE TABLE, GO TO READ LOADER            F6D01270    
       00560  0 02000 0 00631  SZYES TRA DPCH1                                                        F6D01280    
       00561  0 62200 0 00604        STD A18                                                          F6D01290    
       00562  0 50000 0 00171        CLA LCTR          STORE LCTR IN EA.                              F6D01300    
       00563  0 60100 0 00174  SEA   STO EA                                                           F6D01310    
       00564  0 50000 1 75055  DDS   CLA STS,1                                                        F6D01320    
       00565 -0 63400 1 00363        SXD N,1           SAVE COUNTER FOR ARRAY NAME TABLE              F6D01330    
       00566  0 07400 4 00142        TSX SDEV,4        GO TO SEARCH DEV TABLE FOR ARRAY NAME          F6D01340    
       00567  0 02000 0 00574        TRA A15           IF NOT IN TABLE, GO SEE IF THAT ARRAY NAME IS AF6001350    
                                                       SUBROUTINE ARGUMENT                            F6D01351    
       00570  0 76100 0 00000        NOP 0                                                            F6D01360    
       00571 -0 53400 1 00363        LXD N,1           IF IN TABLE, GO TO NEXT ARRAY NAME SEARCH.     F6D01370    
       00572  2 00001 1 00564        TIX DDS,1,1                                                      F6D01380    
       00573  0 02000 0 00622        TRA ENDA                                                         F6D01390    
       00574 -0 63400 2 00630  A15   SXD IR2,2         SAVE XR2                                       F6D01400    
       00575 -0 53400 2 00164        LXD ADDR,2        SET COUNTER=0                                  F6D01410    
       00576  0 02000 0 00637        TRA DPCH2                                                        F6D01420    
       00577  0 50000 1 75055  A20   CLA STS,1         TO SEE IF ARRAY NAME IS A SUBROUTINE ARG.      F6D01430    
       00600  0 34000 2 72603        CAS UPPER-4,2                                                    F6D01440    
       00601  0 02000 0 00603        TRA A16           NOT A SUBROUTINE ARGUMENT                      F6D01450    
       00602  0 02000 0 00616        TRA A17           IF IT IS A SUB ARG, GO T0 A17                  F6D01460    
       00603  1 00001 2 00604  A16   TXI A18,2,1                                                      F6D01470    
       00604  3 00604 2 00606  A18   TXH A19,2,*       IF NO MORE ARGU1ENT NAMES TO COMPARE GO T0 A19.F6D01480    
       00605  0 02000 0 00577        TRA A20                                                          F6D01490    
       00606 -0 53400 2 00630  A19   LXD IR2,2         ARRAY NAME NOT A SUBROUTINE ARGUMENT           F6D01500    
       00607  0 07400 4 00210        TSX EDEV,4        ENTER ARRAY NAME IN DEV TABLE. STORE LOCATION  F6D01510    
                                                       IN DEA                                         F6D01511    
       00610 -0 53400 1 00363  SLC   LXD N,1           RESTORE ARRAY NAME COUNTER.                    F6D01520    
       00611  0 50000 0 00171        CLA LCTR          SUBTRACT LENGTH OF ARRAY FROM LCTR AND STORE INF6D01530    
                                                       LCTR.                                          F6D01531    
       00612  0 40200 1 76173        SUB L,1                                                          F6D01540    
       00613  0 60100 0 00171        STO LCTR                                                         F6D01550    
       00614  2 00001 1 00563        TIX SEA,1,1       UPDATE ARRAY NAME TABLE COUNTER AND G0 SEE IF  F6D01560    
                                                       IN DEV.                                        F6D01561    
       00615  0 02000 0 00622        TRA ENDA                                                         F6D01570    
       00616 -0 53400 1 00363  A17   LXD N,1           RESTORE ARRAY NAME COUNTER                     F6D01580    
       00617  0 50000 0 00171        CLA LCTR                                                         F6D01590    
       00620  2 00001 1 00563        TIX SEA,1,1       DECREMENT ARRAY NAME COUNTER                   F6D01600    
       00621  0 02000 0 00622        TRA ENDA          WHEN ALL ARRAY NAMES TREATED, GO TO LOADER.    F6D01610    
 A                      00622  ENDA  BSS                                                              F6D01620    
       00622  0 76200 0 00221        RTB 1                                                            F6D01630    
       00623  0 02000 0 00004        TRA 4                                                            F6D01640    
       00624  0 07400 4 00004  EOF1  TSX 4,4                                                          F6D01650    
       00625  0 00000 0 00000  SUM   HTR 0                                                            F6D01660    
       00626 +000001000000     C2    OCT 000001000000                                                 F6D01670    
       00627  0 00000 0 00000  LIB1  HTR 0                                                            F6D01680    
       00630  0 00000 0 00000  IR2   HTR 0                                                            F6D01690    
       00631  0 50000 0 72605  DPCH1 CLA UPPER-2                                                      F6D01691    
       00632  0 40200 0 00626        SUB C2                                                           F6D01692    
       00633  0 60100 0 00636        STO HERE                                                         F6D01693    
       00634  0 40200 0 00626        SUB C2                                                           F6D01694    
       00635  0 02000 0 00561        TRA SZYES+1                                                      F6D01695    
       00636  0 00000 0 00000  HERE  HTR 0                                                            F6D01696    
       00637 -0 53400 1 00363  DPCH2 LXD N,1                                                          F6D01700    
       00640  0 50000 0 00636        CLA HERE                                                         F6D01701    
       00641  0 12000 0 00577        TPL A20                                                          F6D01702    
       00642  0 50000 1 75055        CLA STS,1                                                        F6D01703    
       00643  0 02000 0 00606        TRA A19                                                          F6D01704    
       00644 -0 63400 1 00646  DPCH3 SXD SVIT,1                                                       F6D01705    
       00645  0 02000 0 00522        TRA A13                                                          F6D01706    
       00646  0 00000 0 00000  SVIT  HTR 0                                                            F6D01707    
 A                      00000        END                                                              F6D01708    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     205           0           0           0           0
 LIB       0           0           0           0           0
 COL     205           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      213                  
0NUMBER OF SYMBOLS,  DEF   132,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION SIX ************************F6E00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6E00010    
                                         FORTRAN 2   RECORD 100  -  COMMON MAPPING.                   F6E00011    
                                                                                                      F6E00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL).          F6E00013    
                                                                                                      F6E00014    
                                         LIST STORAGE FOR VARIABLES                                   F6E00020    
                                         APPEARING IN COMMON SENTENCES,                               F6E00030    
                                         LOCATIONS IN BOTH DECIMAL ANO OCTAL                          F6E00040    
 M                      00205  ME2   SYN 133                                                          F6E00050    
                        00210        ORG 136                                                          F6E00060    
       00210  0 77200 0 00202        REW 2             REWIND TAPE 2                                  F6E00070    
       00211  0 76200 0 00202  FIL   RTD 2             SPACE OVER SOURCE PROGRAM.                     F6E00080    
       00212  0 70000 0 00504        CPY LIN                                                          F6E00090    
       00213  0 02000 0 00211        TRA FIL                                                          F6E00100    
 M     00214  0 53400 1 00205        LXA ME2,1         =1 IF COMMON TABLE, =0 IF NO COMMON TABLE.     F6E00110    
 D     00215 -3 00000 1 00331        TXL ENDS,1        IF NO COMMON TABLE, GO TO ENDS.                F6E00120    
       00216 -0 53400 1 00155        LXD DEVL,1        TABLE LENGTH OF DEV.                           F6E00130    
 D     00217 -3 00000 1 00331        TXL ENDS,1        IF NO DEV TABLE, GO TO ENDS                    F6E00140    
       00220  0 07400 4 00305        TSX SPACE,4       GO TO WRITE TITLE AND HEADINGS.                F6E00150    
       00221  0 00024 0 00435            TITLE,,20                                                    F6E00160    
       00222  0 07400 4 00305        TSX SPACE,4                                                      F6E00170    
       00223  0 00024 0 00461            CHEAD,,20                                                    F6E00180    
       00224 -0 53400 2 00301  CNL   LXD LNC,2         SET TAPE 2 BLOCK LENGTH TO 20                  F6E00190    
       00225  0 50000 1 74413  CNW   CLA DEA,1         TEST FOR COMMON,                               F6E00200    
       00226  0 40200 0 00175        SUB L3            I.E. SEE IF LOCATION OF SYMBOL IS IN RANGE OF  F6E00210    
                                                       COMMON                                         F6E00211    
       00227  0 10000 0 00303        TZE B4            NOT IN C0MMON.                                 F6E00220    
       00230 -0 12000 0 00303        TMI B4            NOT IN COMMON.                                 F6E00230    
       00231 -0 50000 0 00404        CAL BLANKS        YES, IN COMMON.                                F6E00240    
       00232  0 60200 2 00505        SLW LIN+1,2       STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY.     F6E00250    
       00233  0 60200 2 00506        SLW LIN+2,2                                                      F6E00260    
       00234  0 56000 1 77777        LDQ DEV,1         SELECT SYMBOL AND                              F6E00270    
       00235  0 53400 4 00236        LXA SIX,4         CONVERT.                                       F6E00280    
       00236 -0 76300 0 00006  SIX   LGL 6             BRING ONE CHARACTER OF SYMBOL INTO AC.         F6E00290    
       00237  0 60200 0 00513        SLW SYM                                                          F6E00300    
       00240 -0 32000 0 00406        ANA 6BITS         TEST IF CHARACTER IN AC IS A BLANK.            F6E00310    
       00241  0 40200 0 00405        SUB BLANK                                                        F6E00320    
       00242  0 10000 0 00246        TZE CNA           YES, THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND  F6E00330    
                                                       WORD OF ENTRY.                                 F6E00331    
       00243 -0 50000 0 00513        CAL SYM                                                          F6E00340    
       00244  0 60200 2 00506        SLW LIN+2,2                                                      F6E00350    
       00245  2 00001 4 00236        TIX SIX,4,1                                                      F6E00360    
       00246  0 50000 1 74413  CNA   CLA DEA,1         T0 GET BCD IMAGE OF DECIMAL LOCATION.          F6E00370    
       00247  0 62100 0 00410        STA LOC                                                          F6E00380    
       00250  0 53400 4 00162        LXA ONE,4                                                        F6E00390    
       00251  0 56000 0 00410        LDQ LOC                                                          F6E00400    
       00252  0 50000 0 00407  CNV   CLA TEN                                                          F6E00410    
       00253  0 04000 0 00260        TLQ FIN                                                          F6E00420    
 T     00254 -0 75400 0 00000        PXD               REMAINDERS STORED IN DIG-1,... THAT IS, IF 205 F6E00430    
                                                       (OCTAL)                                        F6E00431    
       00255  0 22100 0 00407        DVP TEN           WERE THE NUMBER IN LOC, WE GET A BINARY 3 IN   F6E00440    
                                                        DIG-1, ...                                    F6E00441    
       00256  0 60200 4 00513        SLW DIG,4         3 IN DIG-2, IN DIG-3                           F6E00450    
       00257  1 00001 4 00252        TXI CNV,4,1                                                      F6E00460    
       00260 -0 60000 4 00513  FIN   STQ DIG,4                                                        F6E00470    
       00261 -0 50000 0 00404        CAL BLANKS                                                       F6E00480    
       00262  0 76700 0 00006  DEC   ALS 6                                                            F6E00490    
       00263 -0 50100 4 00513        ORA DIG,4         SET UP BCD IMAGE OF DEC. NO. AS 3 BLANKS,1,3,3.F6E00500    
       00264  2 00001 4 00262        TIX DEC,4,1                                                      F6E00510    
       00265  0 60200 2 00507        SLW LIN+3,2       STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY.   F6E00520    
       00266  0 50000 0 00410        CLA LOC                                                          F6E00530    
       00267  0 76500 0 00017        LRS 15                                                           F6E00540    
       00270 -0 50000 0 00405        CAL BLANK                                                        F6E00550    
       00271 -0 14000 0 00272        TNO OCT                                                          F6E00560    
       00272  0 76700 0 00003  OCT   ALS 3             TO SET UP BCD IMAGE OF OCTAL LOCATION          F6E00570    
       00273  0 76300 0 00003        LLS 3             THE TRANSFER IS ON NO OVERFLOW SINCE WHEN ALL  F6E00580    
       00274 -0 14000 0 00272        TNO OCT           15 BITS OF LOC HAVE BEEN CONVERTED, A BIT FROM F6E00590    
                                                       REMAINING BLANK WILL ENTER P POSITION OF ACC.  F6E00591    
       00275  0 60200 2 00510        SLW LIN+4,2       STORE OCTAL LOCATION IN 4TH WORD OF ENTRY      F6E00600    
       00276 -2 00001 1 00320        TNX NT2,1,1       GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE      F6E00610    
       00277  2 00004 2 00225        TIX CNW,2,4       IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORDF6E00620    
                                                       REPEAT                                         F6E00621    
       00300  0 07400 4 00307        TSX WRITE,4                                                      F6E00630    
       00301  0 00024 0 00505  LNC       LIN+1,,20                                                    F6E00640    
       00302  0 02000 0 00224        TRA CNL                                                          F6E00650    
       00303 -2 00001 1 00317  B4    TNX WLL,1,1       IF NO MORE WORDS IN DEV TABLE, GO TO WLL.      F6E00660    
       00304  0 02000 0 00225        TRA CNW                                                          F6E00670    
       00305  0 76600 0 00202  SPACE WTD 2                                                            F6E00680    
       00306  0 70000 0 00404        CPY BLANKS        WRITE A BLANK RECORD TO PROVIDE A SPACE.       F6E00690    
       00307  0 76600 0 00202  WRITE WTD 2                                                            F6E00700    
       00310  0 50000 4 00001        CLA 1,4           TO SET INITIAL LOCATION AND NO. OF WORDS TO BE F6E00710    
                                                       WRITTEN.                                       F6E00711    
       00311  0 62100 0 00313        STA POOP                                                         F6E00720    
       00312 -0 73400 2 00000        PDX 0,2                                                          F6E00730    
       00313  0 70000 2 00313  POOP  CPY *,2                                                          F6E00740    
       00314  2 00001 2 00313        TIX POOP,2,1                                                     F6E00750    
       00315  0 76600 0 00333        IOD                                                              F6E00760    
       00316  0 02000 4 00002        TRA 2,4           ALL WORDS IN RECORD WRITTEN. RETURN T0 PROGRAM F6E00770    
       00317  1 00004 2 00320  WLL   TXI NT2,2,4                                                      F6E00780    
       00320 -0 75400 2 00000  NT2   PXD 0,2           STORE IN LND ADDRESS                           F6E00790    
       00321  0 60100 0 00330        STO LND           AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD  F6E00800    
                                                       OF TTAPE,2.                                    F6E00801    
       00322  0 77100 0 00022        ARS 18            SUBTRACT THIS FROM LNE                         F6E00810    
       00323  0 62100 0 00330        STA LND           TO GET ADDRESS AND                             F6E00820    
       00324  0 50000 0 00333        CLA LNE           DECREMENT FOR WRITING                          F6E00830    
       00325  0 40200 0 00330        SUB LND           FINAL RECORD                                   F6E00840    
       00326  0 60100 0 00330        STO LND                                                          F6E00850    
       00327  0 07400 4 00307        TSX WRITE,4                                                      F6E00860    
       00330  0 00000 0 00000  LND                                                                    F6E00870    
 A                      00331  ENDS  BSS                                                              F6E00880    
       00331  0 60000 0 00174        STZ EA            SET EA=0                                       F6E00890    
       00332  0 02000 0 00004        TRA 4             AND GO TO LOADER                               F6E00900    
       00333  0 00030 0 00511  LNE       LIN+5,,24                                                    F6E00910    
                        00334        BSS 40                                                           F6E00920    
       00404  606060606060    BLANKS BCD 1                                                            F6E00930    
       00405  000000000060     BLANK BCD 100000                                                       F6E00940    
       00406 +000000000077     6BITS OCT 77                                                           F6E00950    
       00407 +000000000012     TEN   DEC 10                                                           F6E00960    
       00410 +000000000000     LOC   DEC 0                                                            F6E00970    
       00411  606060606060           BCD 4                                                            F6E00980    
       00412  606060606060    
       00413  606060606060    
       00414  606060606060    
       00415  606263465121           BCD 6 STORAGE FOR VARIABLES APPEARING IN                         F6E00990    
       00416  272560264651    
       00417  606521513121    
       00420  224325626021    
       00421  474725215131    
       00422  452760314560    
       00423  234644444645           BCD  COMMON SENTENCES                                            F6E01000    
       00424  606225456325    
       00425  452325626060    
       00426  606060606060    
       00427  606060606060    
       00430  606060606060    
       00431  606060606060    
       00432  606060606060    
       00433  606060606060    
       00434  606060606060    
 A                      00435  TITLE BSS                                                              F6E01010    
       00435  606060606060           BCD                DEC   OCT               DEC   OCT             F6E01020    
       00436  606060606060    
       00437  606024252360    
       00440  606046236360    
       00441  606060606060    
       00442  606060606060    
       00443  606024252360    
       00444  606046236360    
       00445  606060606060    
       00446  606060606060    
       00447  606024252360           BCD    DEC   OCT               DEC   OCT               DEC   OCT F6E01030    
       00450  606046236360    
       00451  606060606060    
       00452  606060606060    
       00453  606024252360    
       00454  606046236360    
       00455  606060606060    
       00456  606060606060    
       00457  606024252360    
       00460  606046236360    
 A                      00461  CHEAD BSS                                                              F6E01040    
                        00461        BSS 19                                                           F6E01050    
                        00504  LIN   BSS 1                                                            F6E01060    
                        00513  DIG   BES 6                                                            F6E01070    
                        00513  SYM   BSS 1                                                            F6E01080    
                        00210        END START                                                        F6E01090    
                              0  ME2 00205,00205
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     122           0           0           0           0
 LIB       0           0           0           0           0
 COL     122           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      166                  
0NUMBER OF SYMBOLS,  DEF   101,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6F00010    
                                         FORTRAN 2   RECORD 101  -  FORTRAN FUNCTION ASSN             F6F00011    
                                                                                                      F6F00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 210.                  F6F00013    
                                                                                                      F6F00014    
                                         ENTER FORTRAN FUNCTION NAMES IN TDEV                         F6F00020    
                        00210        ORG 136                                                          F6F00030    
       00210 -0 53400 1 00154        LXD DEVS,1                                                       F6F00040    
 D     00211 -3 00000 1 00215  GO    TXL IFMT,1                                                       F6F00050    
       00212  0 50000 0 00156        CLA DEVA          IF PREVIOUS ENTRIES, UPDATE DECREMENT OF EDEV3 F6F00060    
       00213  0 40000 0 00156        ADD DEVA          WHICH WILL CONTAIN THE MAX. POWER OF 2 EX-     F6F00070    
       00214  0 62200 0 00277        STD EDEV3         PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES      F6F00080    
 A                      00215  IFMT  BSS                                                              F6F00090    
       00215  0 02000 0 00325        TRA FPCH1                                                        F6F00100    
       00216  0 76200 0 00303  LIB24 RDR 3             SELECT DRUM 3.                                 F6F00110    
 T     00217 -0 75400 0 02000  NFA   PXD 1024                   TABLE FROM                            F6F00120    
       00220  0 60100 0 00373        STO LIBD          SET LIBD EQUAL TO ZERO.                        F6F00130    
       00221  0 46000 0 00217        LDA NFA           LOCATE FORSUB (FORTRAN FUNCTION) TABLE.        F6F00140    
       00222 -0 70000 0 00704        CAD FORT          TO READ WORD COUNT OF FORSUB TABLE, SAVE IT IN F6F00150    
       00223  0 76000 0 00006        COM               FORT AND                                       F6F00160    
       00224 -0 70000 0 00372        CAD SUM           CHECK.                                         F6F00170    
       00225  0 76000 0 00006        COM                                                              F6F00180    
       00226  0 10000 0 00231        TZE RFS                                                          F6F00190    
       00227  2 00001 4 00216        TIX LIB24,4,1     IF DRUM READ ERROR,                            F6F00200    
       00230  0 07400 4 00004        TSX 4,4                                                          F6F00210    
       00231 -0 53400 3 00704  RFS   LXD FORT,3        TEST IF ANY FORTRAN FUNCTIONS.                 F6F00220    
 D     00232 -3 00000 2 00267        TXL RDRM,2        IF NOT, GO TO RETURN TO LOADER.                F6F00230    
       00233  0 53400 4 00321        LXA LOC15,4       IF YES, SET DRUM READ ERROR COUNTER            F6F00240    
       00234  0 76200 0 00303  LIB25 RDR 3             AND READ FORSUB TABLE                          F6F00250    
 T     00235 -0 75400 0 02002  TFA   PXD 1026          INTO FORT-WDCT THRU FORT-1.                    F6F00260    
       00236  0 46000 0 00235        LDA TFA                                                          F6F00270    
       00237 -0 70000 2 00704  CFS   CAD FORT,2                                                       F6F00280    
       00240  2 00001 2 00237        TIX CFS,2,1                                                      F6F00290    
       00241  0 70000 0 00372        CPY SUM                                                          F6F00300    
       00242  0 76000 0 00006        COM                                                              F6F00310    
       00243 -0 70000 0 00372        CAD SUM                                                          F6F00320    
       00244  0 76000 0 00006        COM                                                              F6F00330    
       00245  0 10000 0 00250        TZE FORS          CHECK SUM OKAY.                                F6F00340    
       00246  2 00001 4 00234        TIX LIB25,4,1     IF CHECK SUM ERROR, REPEAT                     F6F00350    
       00247  0 07400 4 00004        TSX 4,4                                                          F6F00360    
       00250 -0 63400 1 00264  FORS  SXD FORM,1        SAVE WD COUNTER IN DECREMENT OF FORM.          F6F00370    
       00251  0 50000 1 00704        CLA FORT,1        SELECT FUNCTION SYMBOL, ANO GO TO              F6F00380    
       00252  0 07400 4 00142        TSX SDEV,4                 DEV TABLE                             F6F00390    
       00253  0 07400 4 00271        TSX EDEV,4        IF NOT IN TABLE, GO TO ENTER IT WITH LOCATION  F6F00400    
 TD    00254  1 00000 0 00265        TXI FORE          ZERO, AND TRANSFER TO FORE.                    F6F00410    
       00255 -0 53400 1 00264        LXD FORM,1        RETURN HERE IF SYMBOL WAS FOUND IN DEV.        F6F00420    
       00256  0 50000 1 00704        CLA FORT,1        ENTER SYMBOL                                   F6F00430    
       00257 -0 53400 2 00373        LXD LIBD,2        IN LIBP TABLE.                                 F6F00440    
       00260  1 00001 2 00261        TXI FORD,2,1                                                     F6F00450    
       00261  0 60100 2 00540  FORD  STO LIBP,2                                                       F6F00460    
       00262 -0 63400 2 00373        SXD LIBD,2                                                       F6F00470    
       00263  2 00002 1 00250        TIX FORS,1,2      END OF FORSUB TABLE. NO, GO TO SELECT NEXT     F6F00480    
                                                       FUNCTION SYMBOL                                F6F00481    
 TD    00264  1 00000 0 00267  FORM  TXI RDRM          YES, GO TO LOADER.                             F6F00490    
       00265 -0 53400 1 00264  FORE  LXD FORM,1        RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLEF6F00500    
       00266  2 00002 1 00250        TIX FORS,1,2      NO, DECREMENT COUNTER AND GO TO READ NEXT      F6F00510    
                                                       FUNCTION SYMBOL                                F6F00511    
       00267  0 76200 0 00221  RDRM  RTB 1             YES, GO TO LOADER                              F6F00520    
       00270  0 02000 0 00004        TRA 4                                                            F6F00530    
       00271  1 00001 2 00272  EDEV  TXI EDEV0,2,1     FOR COMMENTS, SEE RECORD 96.                   F6F00540    
       00272 -0 63400 2 00306  EDEV0 SXD EDEV1,2                                                      F6F00550    
       00273  0 60100 0 00160        STO ENTRY                                                        F6F00560    
       00274 -0 53400 2 00155        LXD DEVL,2                                                       F6F00570    
       00275  1 00001 2 00276        TXI EDEV2,2,1                                                    F6F00580    
       00276 -0 63400 2 00155  EDEV2 SXD DEVL,2                                                       F6F00590    
       00277 -3 00000 2 00306  EDEV3 TXL EDEV1,2,**+0                                                 F6F00600    
       00300 -0 50000 0 00154        CAL DEVS                                                         F6F00610    
       00301  0 40000 0 00156        ADD DEVA                                                         F6F00620    
       00302  0 60200 0 00154        SLW DEVS                                                         F6F00630    
       00303  0 62200 0 00156        STD DEVA                                                         F6F00640    
       00304  0 40000 0 00156        ADD DEVA                                                         F6F00650    
       00305  0 62200 0 00277        STD EDEV3                                                        F6F00660    
       00306  3 00000 2 00314  EDEV1 TXH EDEV4,2,**                                                   F6F00670    
       00307 -0 50000 0 00160        CAL ENTRY                                                        F6F00680    
       00310  0 60200 2 77777        SLW DEV,2                                                        F6F00690    
       00311  0 50000 0 00174        CLA EA                                                           F6F00700    
       00312  0 60200 2 74413        SLW DEA,2                                                        F6F00710    
       00313  0 02000 4 00001        TRA 1,4                                                          F6F00720    
       00314 -0 50000 2 00000  EDEV4 CAL DEV+1,2       M0VE TABLE                                     F6F00730    
       00315  0 60200 2 77777        SLW DEV,2         ENTRIES.                                       F6F00740    
       00316 -0 50000 2 74414        CAL DEA+1,2                                                      F6F00750    
       00317  0 60200 2 74413        SLW DEA,2                                                        F6F00760    
       00320  1 77777 2 00306        TXI EDEV1,2,-1                                                   F6F00770    
       00321  0 42000 0 00017  LOC15 HPR 15                                                           F6F00780    
       00322  0 00000 0 77777  MI1   PZE -1                                                           F6F00781    
       00323 +000001000000     DCR1  OCT 1000000                                                      F6F00782    
       00324  0 00000 0 00000  SAV   HTR 0                                                            F6F00783    
       00325  0 50000 0 72605  FPCH1 CLA UPPER-2       WORD COUNT OF SUBDEF TABLE.                    F6F00784    
       00326  0 40200 0 00323        SUB DCR1                                                         F6F00785    
       00327  0 10000 0 00351        TZE GOHD+1        NO ARGUMENTS.                                  F6F00786    
       00330 -0 12000 0 00351        TMI GOHD+1        NO ARGUMENTS.                                  F6F00787    
       00331  0 62200 0 00346        STD ETST          ARGUMENTS TO ENTER IN DEV.                     F6F00788    
       00332 -0 53400 1 00323        LXD DCR1,1                                                       F6F00789    
       00333  0 50000 0 00322        CLA MI1                                                          F6F00790    
       00334  0 60100 0 00174        STO EA            SET EA TO ALL 7 S.                             F6F00791    
       00335 -0 63400 1 00324  GOFIX SXD SAV,1                                                        F6F00792    
       00336  0 50000 1 72604        CLA UPPER-3,1     SELECT ARGUMENT.                               F6F00793    
       00337  0 07400 4 00142        TSX SDEV,4        GO SEARCH DEV FOR IT.                          F6F00794    
       00340  0 07400 4 00271        TSX EDEV,4        NOT IN SO ENTER IN DEV                         F6F00795    
       00341  0 02000 0 00344        TRA *+3           AND TRANSFER.                                  F6F00796    
       00342  0 50000 0 00174        CLA EA            ALREADY IN DEV. ENTER                          F6F00797    
       00343  0 60100 2 74413        STO DEA,2         LOCATION AS ALL 7S.                            F6F00798    
       00344 -0 53400 1 00324        LXD SAV,1                                                        F6F00799    
       00345  1 00001 1 00346        TXI *+1,1,1                                                      F6F00800    
       00346  3 00000 1 00350  ETST  TXH GOHD,1,**     TEST FOR ANY MORE ARGS.                        F6F00801    
       00347  0 02000 0 00335        TRA GOFIX                                                        F6F00802    
       00350  0 60000 0 00174  GOHD  STZ EA            RESET EA TO ZERO.                              F6F00803    
       00351  0 53400 4 00321  RNF   LXA LOC15,4       SET DRUM READ ERROR COUNTER                    F6F00804    
       00352  0 02000 0 00216        TRA LIB24                                                        F6F00805    
                        00353        BSS 15                                                           F6F00806    
       00372  0 00000 0 00000  SUM                                                                    F6F00807    
       00373  0 00000 0 00000  LIBD                                                                   F6F00810    
                        00540  LIBP  BES 100                                                          F6F00820    
                        00704  FORT  BES 100                                                          F6F00830    
                        00210        END START                                                        F6F00840    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     117           0           0           0           0
 LIB       0           0           0           0           0
 COL     117           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      125                  
0NUMBER OF SYMBOLS,  DEF   103,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6G00010    
                                         FORTRAN 2   RECORD 103  -  FIRST PASS OF CIT TAPE.           F6G00011    
                                                                                                      F6G00012    
                                         CONTROL ENTERS THIS RECORD AT LOCATION 210.                  F6G00013    
                                                                                                      F6G00014    
                                         INITIALIZE FIRST TAPE PASS                                   F6G00020    
                        00210        ORG 136                                                          F6G00030    
       00210 -0 53400 1 00155  MDEA  LXD DEVL,1        COMPUTE NUMBER OF                              F6G00040    
       00211 -0 75400 1 74413  LDEA  PXD DEA,1         ENTRIES IN DEV                                 F6G00050    
       00212  0 77100 0 00022        ARS 18            TABLE.                                         F6G00060    
       00213  0 60100 0 00173        STO D             COMPUTE ADDRESS OF                             F6G00070    
       00214 -0 40000 0 00146        SBM TDEV          DEA TABLE TO MOVE                              F6G00080    
       00215  0 62100 0 00152        STA ADEV          IT TO END OF                                   F6G00090    
       00216  0 62100 0 00170        STA LIFN          DEV TABLE.                                     F6G00100    
       00217  0 02000 0 00672        TRA GPCH1                                                        F6G00110    
 D     00220 -3 00000 1 00225  RETN  TXL PREP,1            TEST FOR NO ENTRIES IN DEV.                F6G00120    
       00221  0 62100 0 00223        STA MDAS          YES.                                           F6G00130    
       00222  0 50000 1 74413  MDAL  CLA DEA,1         MOVE LOCATIONS TO                              F6G00140    
       00223  0 60100 1 00223  MDAS  STO *,1           END OF DEV TABLE.                              F6G00150    
       00224  2 00001 1 00222        TIX MDAL,1,1                                                     F6G00160    
       00225  0 50000 0 00165  PREP  CLA EIFN          COMPUTE ADDRESS FOR                            F6G00170    
       00226  0 77100 0 00022        ARS 18            TEV TABLE                                      F6G00180    
       00227  0 56000 0 00173        LDQ D             WILL FOLLOW THE MOVED                          F6G00190    
       00230  0 04000 0 00233        TLQ MVIF          DEA TABLE                                      F6G00200    
       00231  0 50000 0 00173        CLA D             ALLOWS FOR IFN                                 F6G00210    
       00232  0 40000 0 00162        ADD ONE           TABLE TO BE STORED                             F6G00220    
       00233 -0 40000 0 00152  MVIF  SBM ADEV          IN DECREMENT OF DEA                            F6G00230    
       00234  0 62100 0 00624        STA ETEV5         TABLE HENCE IF IFN IS                          F6G00240    
       00235  0 62100 0 00627        STA ETEV6         LONGER THAN DEA IFN                            F6G00250    
       00236  0 62100 0 00246        STA ETEV7         LENGTH IS USED IN                              F6G00260    
       00237  0 62100 0 00107        STA TTEV          COMPUTING ADDRESS OF                           F6G00270    
       00240 -0 40000 0 00162        SBM ONE           TEV TABLE                                      F6G00280    
       00241  0 62100 0 00626        STA ETEV4                                                        F6G00290    
 T     00242 -0 75400 0 00000        PXD                        STORE ONES IN                         F6G00300    
       00243  0 60000 0 00166        STZ L1            SET PROGRAM BREAK=0                            F6G00310    
       00244  0 60000 0 00167        STZ L2            SET PROGRAM COUNTER=0                          F6G00320    
       00245  0 76000 0 00006        COM               SOTRE ONES IN TEV AND TIV                      F6G00330    
 U     00246  0 60200 0        ETEV7 SLW TEV           TABLES INITIAL                                 F6G00340    
       00247  0 60100 0 02114        STO TIV           ENTRIES.                                       F6G00350    
       00250  0 60200 0 02115        SLW TIV+1                                                        F6G00360    
       00251  0 53400 2 00256        LXA RDC,2         SET READ ERROR COUNTER AND                     F6G00370    
       00252  0 02000 0 00257        TRA RD            GO TO READ CITS FROM TAPE 4                    F6G00380    
       00253  0 76400 0 00204  ERR   BST 4                                                            F6G00390    
       00254  2 00001 2 00257        TIX RD,2,1                                                       F6G00400    
       00255  0 07400 4 00004        TSX 4,4                                                          F6G00410    
       00256  0 42000 0 00005  RDC   HPR 5                                                            F6G00420    
       00257  0 76200 0 00224  RD    RTB 4             READ CIT RECORD FROM TAPE 4.                   F6G00430    
       00260  0 53400 4 00164        LXA ADDR,4        COUNTER SET=-1                                 F6G00440    
       00261  0 70000 4 01104  RD1   CPY REC-2,4       COPY CIT RECORD INTO REC-1,-2,                 F6G00450    
       00262  1 00001 4 00261        TXI RD1,4,1                                                      F6G00460    
       00263  0 02000 0 00525        TRA EOF           IF END-OF-FILE REACHED ON TAPE 4.              F6G00470    
       00264  0 77100 0 00377        ARS 255                                                          F6G00480    
       00265  0 77100 0 00377        ARS 255                                                          F6G00490    
       00266 -0 76000 0 00012        RTT                                                              F6G00500    
       00267  0 02000 0 00253        TRA ERR                                                          F6G00510    
       00270 -0 63400 4 00522        SXD RD2,4         STORE COUNT OF CIT IN RD2 DECR.                F6G00520    
       00271 -0 53400 4 00164        LXD ADDR,4        SET WORD COUNTER=0                             F6G00530    
       00272 -0 63400 4 00524  RD4   SXD RD3,4         SAVE IT IN DECREMENT OF RD3                    F6G00540    
       00273  0 50000 4 01105        CLA REC-1,4       SELECT FROM REC                                F6G00550    
       00274  0 60100 0 00664        STO SL            SYMBOLIC LOCATION                              F6G00560    
       00275  0 50000 4 01104        CLA REC-2,4                                                      F6G00570    
       00276  0 60100 0 00665        STO OP            SYMBOLIC OP, BINARY DEC                        F6G00580    
       00277  0 50000 4 01103        CLA REC-3,4                                                      F6G00590    
       00300  0 60100 0 00666        STO SA            SYMBOLIC ADDRESS                               F6G00600    
       00301  0 50000 4 01102        CLA REC-4,4       RELATIVE ADDRESS, TAG                          F6G00610    
       00302  0 60100 0 00667        STO RA            SET EA TO ZERO.                                F6G00620    
 T     00303 -0 75400 0 00000        PXD                        SET EA TO ZERO                        F6G00630    
       00304  0 60100 0 00174        STO EA                                                           F6G00640    
       00305 -0 50000 0 00665        CAL OP            SELECT SYMBOLIC OP.                            F6G00650    
       00306  0 76500 0 00022        LRS 18            IS OP=OCT.                                     F6G00660    
       00307  0 34000 0 00660        CAS OCT                                                          F6G00670    
       00310  0 02000 0 00315        TRA SA1           GO TO SA1 SINCE OP IS NEITHER OCT NOR BCD.     F6G00680    
       00311  0 02000 0 00424        TRA ORDOP         YES, OP IS OCTAL. GO TO ORDOP                  F6G00690    
       00312  0 34000 0 00662        CAS BCD           IS OP BCD.                                     F6G00700    
       00313  0 02000 0 00315        TRA SA1           OP IS NEITHER OCT NOR BCD.                     F6G00710    
       00314  0 02000 0 00424        TRA ORDOP         YES, OP IS BCD. GO TO ORDOP                    F6G00720    
       00315 -0 50000 0 00666  SA1   CAL SA            IF OP NOT BCD OR OCT SELECT SYMBOLIC ADDRESS   F6G00730    
       00316  0 10000 0 00413        TZE SA2           SA EQUAL ZERO. GO TO SA2 TO SET EA=0           F6G00740    
       00317  0 76500 0 00036        LRS 30            TEST SA(1), I.E., FIRST 6-BIT CHARACTER OF SA  F6G00750    
       00320  0 73400 4 00000        PAX 0,4           TO DETERMINE THE TYPE OF SYMBOL IT IS.         F6G00760    
       00321  3 00017 4 00364        TXH SA4,4,15      TRANSFER IF FIRST CHAR. IS GREATER THAN 15.    F6G00770    
       00322  0 02000 4 00342        TRA SAT,4                                                        F6G00780    
       00323  0 02000 0 00412        TRA SA8           SA(1) EQUAL FIFTEEN                            F6G00790    
       00324  0 02000 0 00357        TRA SA6           SA(1) EQUAL FOURTEEN                           F6G00800    
       00325  0 02000 0 00357        TRA SA6           SA(1) EQUAL THIRTEEN                           F6G00810    
       00326  0 02000 0 00343        TRA SA9           SA(1) EQUAL TWELVE                             F6G00820    
       00327  0 02000 0 00414        TRA SA5           SA(1) EQUAL ELEVEN                             F6G00830    
       00330  0 02000 0 00357        TRA SA6           SA(1) EQUAL TEN                                F6G00840    
       00331  0 02000 0 00414        TRA SA5           SA(1) EQUAL NINE                               F6G00850    
       00332  0 02000 0 00357        TRA SA6           SA(1) EQUAL EIGHT                              F6G00860    
       00333  0 02000 0 00343        TRA SA9           SA(1) EQUAL SEVEN                              F6G00870    
       00334  0 02000 0 00414        TRA SA5           SA(1) EQUAL SIX                                F6G00880    
       00335  0 02000 0 00343        TRA SA9           SA(1) EQUAL FIVE                               F6G00890    
       00336  0 02000 0 00343        TRA SA9           SA(1) EQUAL FOUR                               F6G00900    
       00337  0 02000 0 00414        TRA SA5           SA(1) EQUAL THREE                              F6G00910    
       00340  0 02000 0 00414        TRA SA5           SA(1) EQUAL TWO                                F6G00920    
       00341  0 02000 0 00343        TRA SA9           SA(1) EQUAL ONE                                F6G00930    
       00342  0 02000 0 00404  SAT   TRA SA3           SAI1) EQUAL ZERO                               F6G00940    
       00343 -0 77300 0 00016  SA9   RQL 14            TAG CELL(12), ARITH ERASE(1),                  F6G00950    
       00344 -0 76300 0 00021        LGL 17            FUNCT ERASE(7), LIB(4),                        F6G00960    
       00345  0 07400 4 00121        TSX STIV,4        ASSIGN CONSTANTS(5). ASSEMBLE SYMBOL AND       F6G00970    
       00346  0 07400 4 00632        TSX ETIV,4        PUT IN TIV TABLE WHERE A TIV TABLE ENTRY       F6G00980    
       00347  0 62100 0 00663        STA TRV           HAS SYMBOL IN S-21 AND HAS LOCATION IN 22-35.  F6G00990    
       00350  0 56000 0 00663        LDQ TRV                                                          F6G01000    
       00351  0 50000 0 00667        CLA RA                                                           F6G01010    
       00352 -0 76000 0 00003        SSM               SELECT RA AS LENGTH                            F6G01020    
       00353  0 77100 0 00022        ARS 18            TO STORE AS ADDRESS                            F6G01030    
       00354  0 04000 0 00414        TLQ SA5           OF TIV ENTRY IF RA                             F6G01040    
       00355  0 62100 2 02114        STA TIV,2         IS LONGER                                      F6G01050    
       00356  0 02000 0 00414        TRA SA5                                                          F6G01060    
       00357 -0 77300 0 00016  SA6   RQL 14            FORMAT(8)                                      F6G01070    
       00360 -0 76300 0 00021        LGL 17                                                           F6G01080    
       00361  0 07400 4 00121  SA7   TSX STIV,4        PUT IN TIV TABLE                               F6G01090    
       00362  0 07400 4 00632        TSX ETIV,4        IF NOT IN ALREADY.                             F6G01100    
       00363  0 02000 0 00413        TRA SA2           TRANSFER WITH SA IN AC TO STORE ADDRESS OF SA  F6G01110    
                                                       IN EA.                                         F6G01111    
       00364  0 50000 0 00666  SA4   CLA SA            SA(1) GREATER THAN 15.                         F6G01120    
       00365  0 40200 0 00670        SUB DOL1          TRANSFER IF ONE DOLLAR SIGN                    F6G01130    
       00366  0 10000 0 00377        TZE LIB3                                                         F6G01140    
       00367  0 40000 0 00670        ADD DOL1                                                         F6G01150    
       00370  0 40200 0 00671        SUB DOL2          TRANSFER IF TWO DOLLAR SIGNS                   F6G01160    
       00371  0 10000 0 00401        TZE LIB4                                                         F6G01170    
       00372  0 50000 0 00666        CLA SA            ORDINARY SYMBOL.                               F6G01180    
       00373  0 07400 4 00142        TSX SDEV,4        SEARCH DEV TABLE.                              F6G01190    
       00374  0 07400 4 00103        TSX STEV,4        NOT IN. GO TO SEARCH TEV TABLE.                F6G01200    
       00375  0 07400 4 00605        TSX ETEV,4        NOT IN. ENTER IN TEV.                          F6G01210    
       00376  0 02000 0 00413        TRA SA2           IF FOUND IN DEV OR TEV, LOCATION LEFT IN AC +  F6G01220    
                                                       GO TO STA                                      F6G01221    
       00377  0 50000 0 00204  LIB3  CLA DOLSI         SET LOCATION EQUAL TO ADDR. PART OF DOLSI      F6G01230    
       00400  0 02000 0 00413        TRA SA2                                                          F6G01240    
       00401  0 50000 0 00204  LIB4  CLA DOLSI                                                        F6G01250    
       00402  0 77100 0 00022        ARS 18                                                           F6G01260    
       00403  0 02000 0 00413        TRA SA2                                                          F6G01270    
       00404  0 53400 4 00666  SA3   LXA SA,4          NORMAL INST(0)                                 F6G01280    
       00405 -3 00000 4 00414        TXL SA5,4,0       TRANSFER IF IFN TYPE.                          F6G01290    
       00406 -0 76300 0 00015        LGL 13            ADDRESS PART NOT EQUAL ZERO, PUT ADDRESS PART  F6G01300    
       00407 -0 77300 0 00012        RQL 10            OF SA IN SYMBOL AND STORE IN TIV.              F6G01310    
       00410 -0 76300 0 00006        LGL 6                                                            F6G01320    
       00411  0 02000 0 00361        TRA SA7                                                          F6G01330    
       00412  0 50000 0 00166  SA8   CLA L1            PROG COUNTE(I15)                               F6G01340    
       00413  0 62100 0 00174  SA2   STA EA            STORE IN EA ADDRESS LEFT IN AC FROM 1 OF ABOVE,F6G01350    
 A                      00414  SA5   BSS               CONSTANTS2,3,6,9,11                            F6G01360    
       00414 -0 50000 0 00665  OPCAS CAL OP                                                           F6G01370    
       00415  0 76500 0 00022        LRS 18            IS OP BSS OR SYN.                              F6G01380    
       00416  0 34000 0 00657        CAS SYN                    SYN OP                                F6G01390    
       00417  0 02000 0 00424        TRA ORDOP         NEITHER                                        F6G01400    
       00420  0 02000 0 00440        TRA SYNOP         OP IS SYN. GO TO SYNOP                         F6G01410    
       00421  0 34000 0 00661        CAS BSS                                                          F6G01420    
       00422  0 02000 0 00424        TRA ORDOP         OP IS NEITHER BSS OR SYN                       F6G01430    
       00423  0 02000 0 00431        TRA BSSOP         0P IS BSS. GO TO BSSOP.                        F6G01440    
       00424  0 50000 0 00166  ORDOP CLA L1            OP NOT SYN OR BSS.                             F6G01450    
       00425  0 60100 0 00167        STO L2                                                           F6G01460    
       00426  0 40000 0 00162        ADD ONE           UPDATE L1 BY 1.                                F6G01470    
       00427  0 60100 0 00166        STO L1                                                           F6G01480    
       00430  0 02000 0 00444        TRA SLS                                                          F6G01490    
       00431  0 50000 0 00166  BSSOP CLA L1            FOR BSS OP,                                    F6G01500    
       00432  0 60100 0 00167        STO L2                                                           F6G01510    
       00433  0 50000 0 00667        CLA RA            UPDATE L1 BY                                   F6G01520    
       00434  0 77100 0 00022        ARS 18            RELATIVE ADDRESS.                              F6G01530    
       00435  0 40000 0 00166        ADD L1                                                           F6G01540    
       00436  0 60100 0 00166        STO L1                                                           F6G01550    
       00437  0 02000 0 00444        TRA SLS                                                          F6G01560    
       00440  0 50000 0 00174  SYNOP CLA EA            FOR SYN OP,                                    F6G01570    
       00441  0 60100 0 00167        STO L2            SET L2 EQUAL                                   F6G01580    
       00442 -0 10000 0 00444        TNZ SLS           TO SYN ADDRESS.                                F6G01590    
       00443  0 07400 4 00004        TSX 4,4                                                          F6G01600    
       00444 -0 50000 0 00664  SLS   CAL SL            FOR ALL OPS TEST SYMBOLIC LOCATION.            F6G01610    
       00445  0 10000 0 00520        TZE SL6           SL ZERO.                                       F6G01620    
       00446  0 76500 0 00036        LRS 30                                                           F6G01630    
       00447  0 10000 0 00466        TZE SL1           SL(1) ZERO. TRANFER.                           F6G01640    
       00450  0 73400 4 00000        PAX 0,4                                                          F6G01650    
       00451  3 00017 4 00476        TXH SL2,4,15      SL(1) OVER 15                                  F6G01660    
       00452  3 00016 4 00520        TXH SL3,4,14      SL(1) EQUAL 15                                 F6G01670    
       00453 -0 77300 0 00016        RQL 14            SL(1) LESS 15                                  F6G01680    
       00454 -0 76300 0 00021        LGL 17                                                           F6G01690    
       00455  0 07400 4 00121        TSX STIV,4        IS SYMBOL IN TIV.                              F6G01700    
       00456  0 02000 0 00462        TRA SL5           NO.                                            F6G01710    
       00457  0 50000 0 00167  SL8   CLA L2            YES, PUT L2 AS LOCATION                        F6G01720    
       00460  0 62100 2 02114        STA TIV,2         IN TIV TABLE.                                  F6G01730    
       00461  0 02000 0 00520        TRA SL6                                                          F6G01740    
       00462  0 50000 0 00167  SL5   CLA L2            PUT L2 IN AS                                   F6G01750    
       00463  0 62100 0 00160        STA ENTRY         LOCATION AND STORE                             F6G01760    
       00464  0 07400 4 00632        TSX ETIV,4        SYMBOL AND LOCATION                            F6G01770    
       00465  0 02000 0 00520        TRA SL6           IN TIV TABLE.                                  F6G01780    
       00466  0 53400 4 00664  SL1   LXA SL,4          SL(1) EQUAL ZERO.                              F6G01790    
 D     00467 -3 00000 4 00514        TXL SL7,4         TRANSFER IF IFN TYPE.                          F6G01800    
       00470 -0 76300 0 00015        LGL 13            OTHERWISE, ASSEMBLE SYMBOL.                    F6G01810    
       00471 -0 77300 0 00012        RQL 10                                                           F6G01820    
       00472 -0 76300 0 00006        LGL 6             IS SYM IN TIV TABLE.                           F6G01830    
       00473  0 07400 4 00121        TSX STIV,4        NO                                             F6G01840    
       00474  0 02000 0 00520        TRA SL6                    YES                                   F6G01850    
       00475  0 02000 0 00457        TRA SL8           YES. GO TO STORE L2 AS LOCATION IN TIV TABLE   F6G01860    
       00476  0 50000 0 00664  SL2   CLA SL                                                           F6G01870    
       00477  0 40200 0 00670        SUB DOL1                                                         F6G01880    
       00500  0 10000 0 00505        TZE LIB1          EXIT TO LIB1 IF SL EQUAL DOL1 ($ 0000)         F6G01890    
       00501  0 40000 0 00670        ADD DOL1                                                         F6G01900    
       00502  0 40200 0 00671        SUB DOL2                                                         F6G01910    
       00503  0 10000 0 00510        TZE LIB2          EXIT TO LIB2 IF SL EQUAL DOL2 ($$ 000)         F6G01920    
       00504  0 02000 0 00520        TRA SL6                                                          F6G01930    
       00505  0 50000 0 00167  LIB1  CLA L2            STORE L2 IN ADDRESS OF DOLSI.                  F6G01940    
       00506  0 62100 0 00204        STA DOLSI                                                        F6G01950    
       00507  0 02000 0 00520        TRA SL6                                                          F6G01960    
       00510  0 50000 0 00167  LIB2  CLA L2            STORE L2 IN DECREMENT OF DOLSI                 F6G01970    
       00511  0 76700 0 00022        ALS 18                                                           F6G01980    
       00512  0 62200 0 00204        STD DOLSI                                                        F6G01990    
       00513  0 02000 0 00520        TRA SL6                                                          F6G02000    
       00514 -0 53400 4 00664  SL7   LXD SL,4          STORE LOCATION                                 F6G02010    
       00515  0 50000 0 00167        CLA L2            OF INTERNAL FORMULA                            F6G02020    
       00516  0 76700 0 00022        ALS 18            NUMBER AS L2,                                  F6G02030    
 U     00517  0 62200 4        SL9   STD IFN,4                                                        F6G02040    
 A                      00520  SL3   BSS               SL(1) EQUAL 15                                 F6G02050    
 A                      00520  SL6   BSS                                                              F6G02060    
       00520 -0 53400 4 00524        LXD RD3,4                                                        F6G02070    
       00521  1 00004 4 00522        TXI RD2,4,4                                                      F6G02080    
       00522 -3 00000 4 00272  RD2   TXL RD4,4,**                                                     F6G02090    
       00523  0 53400 2 00256        LXA RDC,2                                                        F6G02100    
       00524  1 00000 0 00257  RD3   TXI RD,0,**                                                      F6G02110    
       00525 -0 53400 1 00120  EOF   LXD TEVL,1        AT END OF CIT TAPE.                            F6G02120    
 D     00526 -3 00000 1 00534        TXL DIVL,1        ANY ENTRIES IN TEV TABLE. IF NOT GO TO DIVL.   F6G02130    
       00527 -0 75400 1 00000        PXD 0,1           YES.                                           F6G02140    
       00530  0 77100 0 00022        ARS 18            REDUCE LCTR BY NUMBER                          F6G02150    
       00531  0 40200 0 00171        SUB LCTR          OF ENTRIES IN TEV AND                          F6G02160    
       00532  0 60200 0 00171        SLW LCTR          STORE IN LTEV.                                 F6G02170    
       00533  0 60200 0 00172        SLW LTEV                                                         F6G02180    
       00534 -0 53400 2 00141  DIVL  LXD TIVL,2        ANY ENTRIES IN TIV TABLE.                      F6G02190    
       00535  1 00001 2 00536        TXI SIVL,2,1                                                     F6G02200    
 D     00536 -3 00000 2 00577  SIVL  TXL DONE,2        NO ENTRIES IN TIV, GO TO DONE.                 F6G02210    
       00537 -0 50000 2 02114        CAL TIV,2         YES, OBTAIN LENGTH                             F6G02220    
       00540  0 62100 0 00173        STA D             FROM TIV TABLE.                                F6G02230    
       00541  0 77100 0 00016        ARS 14                                                           F6G02240    
       00542 -0 73400 1 00000        PDX 0,1                                                          F6G02250    
       00543  0 02000 1 00563        TRA TYPE,1                                                       F6G02260    
       00544  0 02000 0 00574        TRA SIVT          15                                             F6G02270    
       00545  0 02000 0 00574        TRA SIVT          14                                             F6G02280    
       00546  0 02000 0 00574        TRA SIVT          13                                             F6G02290    
       00547  0 02000 0 00567        TRA CIVL          12                                             F6G02300    
       00550  0 02000 0 00574        TRA SIVT          11                                             F6G02310    
       00551  0 02000 0 00574        TRA SIVT          10                                             F6G02320    
       00552  0 02000 0 00574        TRA SIVT          9                                              F6G02330    
       00553  0 02000 0 00574        TRA SIVT          8                                              F6G02340    
       00554  0 02000 0 00567        TRA CIVL          7                                              F6G02350    
       00555  0 02000 0 00574        TRA SIVT          6                                              F6G02360    
       00556  0 02000 0 00574        TRA SIVT          5                                              F6G02370    
 TD    00557  1 00000 0 00564  GIVL  TXI EIVL          4                                              F6G02380    
       00560  0 02000 0 00574        TRA SIVT          3                                              F6G02390    
       00561  0 02000 0 00574        TRA SIVT          2                                              F6G02400    
       00562  0 02000 0 00567        TRA CIVL          1                                              F6G02410    
       00563  0 02000 0 00574  TYPE  TRA SIVT          0                                              F6G02420    
       00564  0 77100 0 00001  EIVL  ARS 1                      TYPE4                                 F6G02430    
       00565  0 76700 0 00025        ALS 21            IF DECR. EQUAL ZERO, GO TO SAVE INDEX.         F6G02440    
       00566  0 10000 0 00575        TZE FIVL          TYPE1,7,12                                     F6G02450    
       00567  0 50000 0 00171  CIVL  CLA LCTR                   TYPE1,7,12                            F6G02460    
       00570  0 40200 0 00173        SUB D             REDUCE LCTR BY LENGTH                          F6G02470    
       00571  0 62100 2 02114        STA TIV,2         STORE AS LOCATION IN TIV.                      F6G02480    
       00572  0 40200 0 00162        SUB ONE           MODIFY LOCATION COUNTER.                       F6G02490    
       00573  0 60100 0 00171        STO LCTR                                                         F6G02500    
       00574  1 00001 2 00536  SIVT  TXI SIVL,2,1      MODIFY TO SELECT NEXT SYMBOL                   F6G02510    
       00575 -0 63400 2 00557  FIVL  SXD GIVL,2                                                       F6G02520    
       00576  1 00001 2 00536        TXI SIVL,2,1                                                     F6G02530    
       00577 -0 53400 2 00557  DONE  LXD GIVL,2        LOCATION OF 4)0                                F6G02540    
       00600  0 76000 0 00000        CLM               STORE ALL 7 S IN ADDRESS PART                  F6G02550    
       00601  0 76000 0 00006        COM               OF 4) TIV ENTRY AND                            F6G02560    
       00602  0 62100 2 02114        STA TIV,2         RETURN                                         F6G02570    
       00603  0 76200 0 00221        RTB 1             TO                                             F6G02580    
       00604  0 02000 0 00004        TRA 4             LOADER.                                        F6G02590    
       00605  1 00001 2 00606  ETEV  TXI ETEV0,2,1                                                    F6G02600    
       00606 -0 63400 2 00622  ETEV0 SXD ETEV1,2                                                      F6G02610    
       00607  0 60100 0 00160        STO ENTRY                                                        F6G02620    
       00610 -0 53400 2 00120        LXD TEVL,2                                                       F6G02630    
       00611  1 00001 2 00612        TXI ETEV2,2,1                                                    F6G02640    
       00612 -0 63400 2 00120  ETEV2 SXD TEVL,2                                                       F6G02650    
       00613 -3 00000 2 00622  ETEV3 TXL ETEV1,2,**+0                                                 F6G02660    
       00614 -0 50000 0 00117        CAL TEVS                                                         F6G02670    
       00615  0 40000 0 00631        ADD TEVA                                                         F6G02680    
       00616  0 60200 0 00117        SLW TEVS                                                         F6G02690    
       00617  0 62200 0 00631        STD TEVA                                                         F6G02700    
       00620  0 40000 0 00631        ADD TEVA                                                         F6G02710    
       00621  0 62200 0 00613        STD ETEV3                                                        F6G02720    
       00622  3 00622 2 00626  ETEV1 TXH ETEV4,2,*                                                    F6G02730    
       00623 -0 50000 0 00160        CAL ENTRY                                                        F6G02740    
 U     00624  0 60200 2        ETEV5 SLW TEV,2                                                        F6G02750    
       00625  0 02000 4 00001        TRA 1,4                                                          F6G02760    
 U     00626 -0 50000 2        ETEV4 CAL TEV+1,2                                                      F6G02770    
 U     00627  0 60200 2        ETEV6 SLW TEV,2                                                        F6G02780    
       00630  1 77777 2 00622        TXI ETEV1,2,-1                                                   F6G02790    
       00631  0 00001 0 00002  TEVA      2,0,**+1                                                     F6G02800    
       00632  1 77777 2 00633  ETIV  TXI ETIV5,2,-1                                                   F6G02810    
       00633 -0 63400 2 00647  ETIV5 SXD ETIV1,2                                                      F6G02820    
       00634 -0 53400 2 00141        LXD TIVL,2                                                       F6G02830    
       00635  1 77777 2 00636        TXI ETIV2,2,-1                                                   F6G02840    
       00636 -0 63400 2 00141  ETIV2 SXD TIVL,2                                                       F6G02850    
       00637  1 00001 2 00640        TXI ETIV3,2,1                                                    F6G02860    
       00640  3 77776 2 00647  ETIV3 TXH ETIV1,2,**-2                                                 F6G02870    
       00641 -0 50000 0 00140        CAL TIVS                                                         F6G02880    
       00642  0 40000 0 00656        ADD TIVA                                                         F6G02890    
       00643  0 60200 0 00140        SLW TIVS                                                         F6G02900    
       00644  0 62200 0 00656        STD TIVA                                                         F6G02910    
       00645  0 40000 0 00656        ADD TIVA                                                         F6G02920    
       00646  0 62200 0 00640        STD ETIV3                                                        F6G02930    
       00647 -3 00647 2 00653  ETIV1 TXL ETIV4,2,*                                                    F6G02940    
       00650 -0 50000 0 00160        CAL ENTRY                                                        F6G02950    
       00651  0 60200 2 02114        SLW TIV,2                                                        F6G02960    
       00652  0 02000 4 00001        TRA 1,4                                                          F6G02970    
       00653 -0 50000 2 02113  ETIV4 CAL TIV-1,2                                                      F6G02980    
       00654  0 60200 2 02114        SLW TIV,2                                                        F6G02990    
       00655  1 00001 2 00647        TXI ETIV1,2,1                                                    F6G03000    
       00656  0 77777 0 00002  TIVA      2,0,**-1                                                     F6G03010    
       00657  000000627045     SYN   BCD 1000SYN                                                      F6G03020    
       00660  000000462363     OCT   BCD 1000OCT                                                      F6G03030    
       00661  000000226262     BSS   BCD 1000BSS                                                      F6G03040    
       00662  000000222324     BCD   BCD 1000BCD                                                      F6G03050    
       00663 -0 00000 0 00000  TRV   MZE                                                              F6G03060    
       00664  0 00000 0 00000  SL    HTR 0                                                            F6G03070    
       00665  0 00000 0 00000  OP    HTR 0                                                            F6G03080    
       00666  0 00000 0 00000  SA    HTR 0                                                            F6G03090    
       00667  0 00000 0 00000  RA    HTR 0                                                            F6G03100    
       00670  536000000000     DOL1  BCD 1$ 0000                                                      F6G03110    
       00671  535360000000     DOL2  BCD 1$$ 000                                                      F6G03120    
       00672  0 62100 0 00517  GPCH1 STA SL9                                                          F6G03121    
       00673  0 62100 0 00675        STA *+2                                                          F6G03122    
       00674 -0 53400 2 00165        LXD EIFN,2                                                       F6G03123    
 U     00675  0 60000 2              STZ IFN,2                                                        F6G03124    
       00676  2 00001 2 00675        TIX *-1,2,1                                                      F6G03125    
       00677  0 02000 0 00220        TRA RETN                                                         F6G03126    
                        00700        BSS 34                                                           F6G03130    
                        01106  REC   BES 100                                                          F6G03140    
                        00210        END START                                                        F6G03150    
                        00001 0  TEV
                        00002 0  IFN
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     329           0           0           0           0
 LIB       0           0           0           0           0
 COL     329           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      339                  
0NUMBER OF SYMBOLS,  DEF   152,DEFOP     0,UNDEF     2      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6H00010    
                                         FORTRAN 2   RECORD 105  -  MAP FORTRAN FUNCTIONS.            F6H00011    
                                                                                                      F6H00012    
                                         IN TDEV                                                      F6H00020    
                        00206  ME8   SYN 134                                                          F6H00030    
                        00210        ORG 136                                                          F6H00040    
       00210  0 53400 4 00402  RNF   LXA LOC15,4       SET DRUM READ ERROR COUNTER.                   F6H00050    
       00211  0 76200 0 00303  LIB27 RDR 3             SELECT DRUM 3 AND                              F6H00060    
 T     00212 -0 75400 0 02000  NFA   PXD 1024          LOCATE FORSUB (FORTRAN FUNCTION) TABLE         F6H00070    
       00213  0 46000 0 00212        LDA NFA                                                          F6H00080    
       00214 -0 70000 0 00730        CAD FORT          READ WORD COUNT OF TABLE.                      F6H00090    
       00215  0 76000 0 00006        COM                                                              F6H00100    
       00216 -0 70000 0 00563        CAD SUM                                                          F6H00110    
       00217  0 76000 0 00006        COM                                                              F6H00120    
       00220  0 10000 0 00223        TZE RFS           TRANSFER IF NO READ ERROR.                     F6H00130    
       00221  2 00001 4 00211        TIX LIB27,4,1     READ-ERROR PROCEOURE                           F6H00140    
       00222  0 07400 4 00004        TSX 4,4                                                          F6H00150    
       00223 -0 53400 3 00730  RFS   LXD FORT,3        SET INDEX REGISTERS 1 AND 2 EQUAL              F6H00160    
                                                       FORSUB WORD COUNT                              F6H00161    
 D     00224 -3 00000 1 00375        TXL LIB36,1       TRANSFER IF NO FORTRAN FUNCTIONS.              F6H00170    
       00225  0 50000 0 00152        CLA ADEV          INITIALIZE ADDRESSES WITH INITIAL              F6H00180    
       00226  0 62100 0 00260        STA AFOR          LOCATION OF DEA TABLE (ALSO IFN TABLE)         F6H00190    
       00227  0 50000 0 00170        CLA LIFN                                                         F6H00200    
       00230  0 62100 0 00256        STA GIFN                                                         F6H00210    
       00231  0 53400 4 00402        LXA LOC15,4       DRUM READ ERROR COUNTER.                       F6H00220    
       00232  0 76200 0 00303  LIB28 RDR 3                                                            F6H00230    
 T     00233 -0 75400 0 02002  TFA   PXD 1026          READ FORTRAN FUNCTION (FORSUB)                 F6H00240    
       00234  0 46000 0 00233        LDA TFA           TABLE FROM DRUM (2-WORD ENTRIES) INTO          F6H00250    
       00235 -0 70000 2 00730  CFS   CAD FORT,2        FORT-WD. CT,..., FORT-1.                       F6H00260    
       00236  2 00001 2 00235        TIX CFS,2,1                                                      F6H00270    
       00237  0 70000 0 00563        CPY SUM                                                          F6H00280    
       00240  0 76000 0 00006        COM                                                              F6H00290    
       00241 -0 70000 0 00563        CAD SUM                                                          F6H00300    
       00242  0 76000 0 00006        COM                                                              F6H00310    
       00243  0 10000 0 00246        TZE FORS          TRANSFER IF CHECK SUM OKAY.                    F6H00320    
       00244  2 00001 4 00232        TIX LIB28,4,1                                                    F6H00330    
       00245  0 07400 4 00004        TSX 4,4                                                          F6H00340    
       00246 -0 63400 1 00400  FORS  SXD FORM,1        SAVE COUNT OF FUNCT.                           F6H00350    
       00247  0 50000 1 00730        CLA FORT,1        IS FUNCTION IN                                 F6H00360    
       00250  0 07400 4 00142        TSX SDEV,4        DEV TABLE.                                     F6H00370    
       00251 -0 53400 1 00400        LXD FORM,1        NO, ERROR.                                     F6H00380    
       00252  0 07400 4 00004        TSX 4,4                                                          F6H00390    
       00253 -0 53400 1 00400        LXD FORM,1        YES. EXIT HERE FROM SDEV WITH APPROPRIATE      F6H00400    
                                                       COUNTER IN XR2.                                F6H00401    
       00254  0 50000 1 00731        CLA FORT+1,1      OBTAIN FORMULA                                 F6H00410    
       00255 -0 73400 4 00000        PDX 0,4           NUMBER.                                        F6H00420    
 U     00256  0 50000 4        GIFN  CLA IFN,4         GET LOCATION FROM                              F6H00430    
       00257  0 77100 0 00022        ARS 18            IFN TABLE.                                     F6H00440    
 U     00260  0 62100 2        AFOR  STA FORF,2        STORE LOCATION IN DEA TABLE.                   F6H00450    
       00261  0 62100 1 00731        STA FORT+1,1      STORE LOCATION IN FORT (INTERNAL TABLE).       F6H00460    
       00262  2 00002 1 00246        TIX FORS,1,2                                                     F6H00470    
                                         LIST NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING           F6H00480    
                                         INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS                 F6H00490    
       00263 -0 53400 1 00730        LXD FORT,1                                                       F6H00500    
       00264  0 07400 4 00345        TSX SPACE,4                                                      F6H00510    
       00265  0 00024 0 00434            TITLE,,20                                                    F6H00520    
       00266  0 07400 4 00345        TSX SPACE,4                                                      F6H00530    
       00267  0 00024 0 00460            CHEAD,,20                                                    F6H00540    
       00270 -0 53400 2 00343  CNL   LXD LNC,2         SET TAPE TWO BLOCK LENGTH TO 20.               F6H00550    
       00271 -0 50000 0 00403  CNW   CAL BLANKS                                                       F6H00560    
       00272  0 60200 2 00554        SLW LIN+1,2       STORE BLANKS IN FIRST WORD OF ENTRY.           F6H00570    
       00273  0 56000 1 00730        LDQ FORT,1        SELECT SYMBOL                                  F6H00580    
       00274  0 53400 4 00275        LXA SIX,4         AND CONVERT.                                   F6H00590    
       00275 -0 76300 0 00006  SIX   LGL 6             BRING ONE CHARACTER OF SYMBOL INTO ACC.        F6H00600    
       00276  0 60200 0 00562        SLW SYM                                                          F6H00610    
       00277 -0 32000 0 00405        ANA 6BITS         TEST IF CHARACTER IN ACC. IS A BLANK.          F6H00620    
       00300  0 40200 0 00404        SUB BLANK                                                        F6H00630    
       00301  0 10000 0 00305        TZE CNA           BLANK, THEN FINISHED. SECOND WORD OF ENTRY HAS F6H00640    
                                                       COMPLETE SYMBOL.                               F6H00641    
       00302 -0 50000 0 00562        CAL SYM           NOT BLANK, STORE IN SECOND WORD AND            F6H00650    
       00303  0 60200 2 00555        SLW LIN+2,2       GO TO TEST NEXT CHARACTER                      F6H00660    
       00304  2 00001 4 00275        TIX SIX,4,1       UNLESS SIX HAVE BEEN TREATED.                  F6H00670    
       00305  0 50000 1 00731  CNA   CLA FORT+1,1      TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NOF6H00680    
       00306  0 77100 0 00022        ARS 18            (DECREMENT OF SECOND WORD OF TWO WORD ENTRIES  F6H00690    
       00307  0 62100 0 00407        STA LOC           FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.)  F6H00700    
       00310  0 53400 4 00162        LXA ONE,4                                                        F6H00710    
       00311  0 56000 0 00407        LDQ LOC                                                          F6H00720    
       00312  0 50000 0 00406  CNV   CLA TEN                                                          F6H00730    
       00313  0 04000 0 00320        TLQ FIN                                                          F6H00740    
 T     00314 -0 75400 0 00000        PXD                                                              F6H00750    
       00315  0 22100 0 00406        DVP TEN                                                          F6H00760    
       00316  0 60200 4 00562        SLW DIG,4         (SAVING REMAINDERS).                           F6H00770    
       00317  1 00001 4 00312        TXI CNV,4,1                                                      F6H00780    
       00320 -0 60000 4 00562  FIN   STQ DIG,4                                                        F6H00790    
       00321 -0 50000 0 00403        CAL BLANKS                                                       F6H00800    
       00322  0 76700 0 00006  DEC   ALS 6                                                            F6H00810    
       00323 -0 50100 4 00562        ORA DIG,4                                                        F6H00820    
       00324  2 00001 4 00322        TIX DEC,4,1                                                      F6H00830    
       00325  0 60200 2 00556        SLW LIN+3,2       STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.F6H00840    
                                               4       IN THIRD WORD OF ENTRY.                        F6H00841    
       00326  0 50000 1 00731        CLA FORT+1,1      TO GET BCD IMAGE OF OCTAL LOCATION.            F6H00850    
       00327  0 62100 0 00407        STA LOC                                                          F6H00860    
       00330  0 50000 0 00407        CLA LOC                                                          F6H00870    
       00331  0 76500 0 00017        LRS 15                                                           F6H00880    
       00332 -0 50000 0 00404        CAL BLANK                                                        F6H00890    
       00333 -0 14000 0 00334        TNO OCT                                                          F6H00900    
       00334  0 76700 0 00003  OCT   ALS 3                                                            F6H00910    
       00335  0 76300 0 00003        LLS 3                                                            F6H00920    
       00336 -0 14000 0 00334        TNO OCT           OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION   F6H00930    
       00337  0 60200 2 00557        SLW LIN+4,2       HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL    F6H00940    
                                                       LOCATION IN 4TH WORD OF ENTRY.                 F6H00941    
       00340 -2 00002 1 00357        TNX WLL,1,2       TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED.   F6H00950    
       00341  2 00004 2 00271        TIX CNW,2,4       TRANSFER IF TARE BLOCK NOT FULL.               F6H00960    
       00342  0 07400 4 00347        TSX WRITE,4       WRITE A RECORD ON TARE TWO                     F6H00970    
       00343  0 00024 0 00554  LNC       LIN+1,,20     ANO GO TO CNL TO CORTINUE.                     F6H00980    
       00344  0 02000 0 00270        TRA CNL                                                          F6H00990    
       00345  0 76600 0 00202  SPACE WTD 2                                                            F6H01000    
       00346  0 70000 0 00403        CPY BLANKS                                                       F6H01010    
       00347  0 76600 0 00202  WRITE WTD 2                                                            F6H01020    
       00350  0 50000 4 00001        CLA 1,4                                                          F6H01030    
       00351  0 62100 0 00353        STA POOP                                                         F6H01040    
       00352 -0 73400 2 00000        PDX 0,2                                                          F6H01050    
       00353  0 70000 2 00000  POOP  CPY **,2                                                         F6H01060    
       00354  2 00001 2 00353        TIX POOP,2,1                                                     F6H01070    
       00355  0 76600 0 00333        IOD                                                              F6H01080    
       00356  0 02000 4 00002        TRA 2,4                                                          F6H01090    
       00357 -0 75400 2 00000  WLL   PXD 0,2           GET ADDRESS AND DECREMENT TO STORE IN LND      F6H01100    
       00360  0 60100 0 00367        STO LND           FOR WRITING FINAL RECORD.                      F6H01110    
       00361  0 77100 0 00022        ARS 18                                                           F6H01120    
       00362  0 62100 0 00367        STA LND                                                          F6H01130    
       00363  0 50000 0 00401        CLA LNE                                                          F6H01140    
       00364  0 40200 0 00367        SUB LND                                                          F6H01150    
       00365  0 60100 0 00367        STO LND                                                          F6H01160    
       00366  0 07400 4 00347        TSX WRITE,4       WRITE IT.                                      F6H01170    
       00367  0 00000 0 00000  LND                                                                    F6H01180    
       00370  0 50000 0 00407        CLA LOC           SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY F6H01190    
       00371  0 40000 0 00162        ADD ONE           LISTED PLUS ONE.(TO BE USED BY RECORD 110).    F6H01200    
       00372  0 60100 0 00206        STO ME8                                                          F6H01210    
       00373  0 76200 0 00221  LIB26 RTB 1                                                            F6H01220    
       00374  0 02000 0 00004        TRA 4                                                            F6H01230    
       00375  0 60000 0 00206  LIB36 STZ ME8           NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND   F6H01240    
       00376  0 02000 0 00373        TRA LIB26         GO TO RETURN TO LOADER.                        F6H01250    
 T     00377 -0 75400 0 00000  CFOR  PXD                                                              F6H01260    
 TD    00400  1 00000 0 00261  FORM  TXI AFOR+1                                                       F6H01270    
       00401  0 00030 0 00560  LNE       LIN+5,,24                                                    F6H01280    
       00402  0 00000 0 00017  LOC15 HTR 15                                                           F6H01290    
       00403  606060606060    BLANKS BCD 1                                                            F6H01300    
       00404  000000000060     BLANK BCD 100000                                                       F6H01310    
       00405 +000000000077     6BITS OCT 77                                                           F6H01320    
       00406 +000000000012     TEN   DEC 10                                                           F6H01330    
       00407 +000000000000     LOC   DEC 0                                                            F6H01340    
       00410  606060606060           BCD                NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING F6H01350    
       00411  606060606060    
       00412  606045214425    
       00413  626046266026    
       00414  465163512145    
       00415  602664452363    
       00416  314645626066    
       00417  316330602346    
       00420  515125624746    
       00421  452431452760    
       00422  314563255145           BCD  INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS                F6H01360    
       00423  214360264651    
       00424  446443216045    
       00425  644422255162    
       00426  602145246046    
       00427  236321436043    
       00430  462321633146    
       00431  456260606060    
       00432  606060606060    
       00433  606060606060    
 A                      00434  TITLE BSS                                                              F6H01370    
       00434  606060606060           BCD                IFN   LOC               IFN   LOC             F6H01380    
       00435  606060606060    
       00436  606031264560    
       00437  606043462360    
       00440  606060606060    
       00441  606060606060    
       00442  606031264560    
       00443  606043462360    
       00444  606060606060    
       00445  606060606060    
       00446  606031264560           BCD    IFN   LOC               IFN   LOC               IFN   LOC F6H01390    
       00447  606043462360    
       00450  606060606060    
       00451  606060606060    
       00452  606031264560    
       00453  606043462360    
       00454  606060606060    
       00455  606060606060    
       00456  606031264560    
       00457  606043462360    
 A                      00460  CHEAD BSS                                                              F6H01400    
                        00460        BSS 40                                                           F6H01410    
                        00530        BSS 19                                                           F6H01420    
                        00553  LIN   BSS 1                                                            F6H01430    
                        00562  DIG   BES 6                                                            F6H01440    
                        00562  SYM   BSS 1                                                            F6H01450    
                        00563  SUM   BSS 1                                                            F6H01460    
                        00730  FORT  BES 100                                                          F6H01470    
                        00210        END START                                                        F6H01480    
                        00001 0  IFN
                        00002 0 FORF
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     157           0           0           0           0
 LIB       0           0           0           0           0
 COL     157           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      203                  
0NUMBER OF SYMBOLS,  DEF   114,DEFOP     0,UNDEF     2      
9            REM ************* FORTRAN II SECTION SIX ************************F6I00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6I00010    
                                         FORTRAN 2   RECORD 107  -  MAP EXT. AND INT. FORMULA NOS.    F6I00011    
                                                                                                      F6I00012    
                                                                                                      F6I00013    
                                         LIST EXTERNAL FORMULA NUMBERS WITH CORRESPONDING             F6I00020    
                                         INTERNAL FORMULA NUMBERS AND RELATIVE LOCATIONS              F6I00030    
                        00210        ORG 136                                                          F6I00040    
       00210  0 53400 4 00427        LXA LOC15,4       SET DRUM READ ERROR COUNTER.                   F6I00050    
       00211  0 76200 0 00304  REIFN RDR 4             SELECT DRUM 4 TO READ EIFN TABLE.              F6I00060    
 T     00212 -0 75400 0 00002  EIFNA PXD 2                                                            F6I00070    
       00213  0 46000 0 00212        LDA EIFNA                                                        F6I00080    
       00214 -0 70000 0 02112        CAD TEIFN                                                        F6I00090    
       00215  0 76000 0 00006        COM                                                              F6I00100    
       00216 -0 70000 0 00533        CAD SUM                                                          F6I00110    
       00217  0 76000 0 00006        COM                                                              F6I00120    
       00220  0 10000 0 00223        TZE LEIFN         WORD COUNT OKAY.                               F6I00130    
       00221  2 00001 4 00211        TIX REIFN,4,1                                                    F6I00140    
       00222  0 07400 4 00004        TSX 4,4                                                          F6I00150    
       00223 -0 53400 3 02112  LEIFN LXD TEIFN,3       SET XR1+XR2=WD CT OF EIFN TABLE.               F6I00160    
 D     00224 -3 00000 1 00347        TXL ENDS,1        ANY FORMULA NOS. NO, GO TO ENDS.               F6I00170    
       00225  0 53400 4 00427        LXA LOC15,4       YES, SET READ ERROR COUNTER                    F6I00180    
       00226  0 76200 0 00304  LIB30 RDR 4                                                            F6I00190    
 T     00227 -0 75400 0 00004  EIFTA PXD 4             READ INTERNAL-                                 F6I00200    
       00230  0 46000 0 00227        LDA EIFTA         EXTERNAL FORMULA                               F6I00210    
       00231 -0 70000 2 02112  CEIFN CAD TEIFN,2       NUMBERS INTO TEIFN-WD CT,..., TEIFN-1          F6I00220    
       00232  2 00001 2 00231        TIX CEIFN,2,1                                                    F6I00230    
       00233  0 70000 0 00533        CPY SUM                                                          F6I00240    
       00234  0 76000 0 00006        COM                                                              F6I00250    
       00235 -0 70000 0 00533        CAD SUM                                                          F6I00260    
       00236  0 76000 0 00006        COM                                                              F6I00270    
       00237  0 10000 0 00242        TZE PEIFN         TRANSFER IF OKAY.                              F6I00280    
       00240  2 00001 4 00226        TIX LIB30,4,1                                                    F6I00290    
       00241  0 07400 4 00004        TSX 4,4                                                          F6I00300    
       00242  0 07400 4 00324  PEIFN TSX SPACE,4       COPY TITLE AND HEADING ON TAPE 2,              F6I00310    
       00243  0 00024 0 00454            TITLE,,20                                                    F6I00320    
       00244  0 07400 4 00324        TSX SPACE,4                                                      F6I00330    
       00245  0 00024 0 00500            CHEAD,,20                                                    F6I00340    
       00246  0 50000 0 00170        CLA LIFN          SET AT INITIALIZATION OF FIRST PASS. EQUALS    F6I00350    
       00247  0 62100 0 00263        STA FIFL          LOCATION OF DEA TABLE WHICH HAS IFN TABLE IN   F6I00360    
                                                       DECREMENT.                                     F6I00361    
       00250 -0 53400 2 00301  CNL   LXD LNC,2         SET COUNTER FOR 20-WORD RECORD                 F6I00370    
       00251 -0 50000 0 00422  CNW   CAL BLANKS        STORE BLANKS IN FIRST WORD OF 4-WORD ENTRY     F6I00380    
       00252  0 60200 2 00524        SLW LIN+1,2                                                      F6I00390    
       00253 -0 50000 1 02112        CAL TEIFN,1       SELECT EIFN TABLE ENTRY.                       F6I00400    
       00254  0 07400 4 00303        TSX DCR,4         GO TO CONVERT EXTERNAL FORMULA NO. TO BCD IMAGEF6I00410    
       00255  0 60200 2 00525        SLW LIN+2,2       OF ITS DECIMAL REPRESENTATION AND STORE IT IN  F6I00420    
                                                       IN 2ND WORD OF ITS ENTRY.                      F6I00421    
       00256 -0 50000 1 02112        CAL TEIFN,1                                                      F6I00430    
       00257  0 77100 0 00022        ARS 18            GO TO CONVERT INTERNAL FORMULA NO. TO THE BCD  F6I00440    
       00260  0 07400 4 00303        TSX DCR,4         IMAGE OF ITS DEC. REPRESENTATION AND STORE IT  F6I00450    
       00261  0 60200 2 00526        SLW LIN+3,2       IN 3RD WORD OF ENTRY.                          F6I00460    
       00262  0 53400 4 00426        LXA LOC,4         SET XR4 TO CURRENT INTERNAL FORMULA NUMBER.    F6I00470    
 U     00263  0 50000 4        FIFL  CLA IFN,4                                                        F6I00480    
       00264  0 77100 0 00022        ARS 18                                                           F6I00490    
       00265  0 62100 0 00426        STA LOC           LOC NOW CONTAINS LOCATION OF CURRENT INTERNAL  F6I00500    
       00266  0 50000 0 00426        CLA LOC           FORMULA NUMBER.                                F6I00510    
       00267  0 76500 0 00017        LRS 15            TO CONVERT THE LOCATION                        F6I00520    
       00270 -0 50000 0 00423        CAL BLANK         TO THE BCD IMAGE OF ITS OCTAL                  F6I00530    
       00271 -0 14000 0 00272        TNO OCT           REPRESENTATION, AND                            F6I00540    
       00272  0 76700 0 00003  OCT   ALS 3             STORE IT IN THE                                F6I00550    
       00273  0 76300 0 00003        LLS 3             FOURTH WORD OF THE 4-WORD ENTRY.               F6I00560    
       00274 -0 14000 0 00272        TNO OCT                                                          F6I00570    
       00275  0 60200 2 00527        SLW LIN+4,2                                                      F6I00580    
       00276 -2 00001 1 00336        TNX WLL,1,1       TRANSFER WHEN ALL EIFN ENTRIES HAVE BEEN       F6I00590    
                                                       TREATED.                                       F6I00591    
       00277  2 00004 2 00251        TIX CNW,2,4       MORE ENTRIES + STILL ROOM IN 20-WORD BLOCK, GO F6I00600    
                                                       TO CNW.                                        F6I00601    
       00300  0 07400 4 00326        TSX WRITE,4       WRITE TAPE 2 BLOCK.                            F6I00610    
       00301  0 00024 0 00524  LNC       LIN+1,,20                                                    F6I00620    
 TD    00302  1 00000 0 00250  DCX   TXI CNL                                                          F6I00630    
       00303 -0 63400 4 00302  DCR   SXD DCX,4                                                        F6I00640    
       00304  0 62100 0 00426        STA LOC           TO CONVERT ADDRESS                             F6I00650    
       00305  0 53400 4 00162        LXA ONE,4         IN LOC TO BCD                                  F6I00660    
       00306  0 56000 0 00426        LDQ LOC           IMAGE OF DECIMAL                               F6I00670    
       00307  0 50000 0 00425  CNV   CLA TEN           LOCATION.                                      F6I00680    
       00310  0 04000 0 00315        TLQ FIN                                                          F6I00690    
 T     00311 -0 75400 0 00000        PXD                                                              F6I00700    
       00312  0 22100 0 00425        DVP TEN           DIVIDE BY TEN AND                              F6I00710    
       00313  0 60200 4 00532        SLW DIG,4         STORE REMAINDERS.                              F6I00720    
       00314  1 00001 4 00307        TXI CNV,4,1                                                      F6I00730    
       00315 -0 60000 4 00532  FIN   STQ DIG,4                                                        F6I00740    
       00316 -0 50000 0 00422        CAL BLANKS                                                       F6I00750    
       00317  0 76700 0 00006  DEC   ALS 6                                                            F6I00760    
       00320 -0 50100 4 00532        ORA DIG,4                                                        F6I00770    
       00321  2 00001 4 00317        TIX DEC,4,1                                                      F6I00780    
       00322 -0 53400 4 00302        LXD DCX,4                                                        F6I00790    
       00323  0 02000 4 00001        TRA 1,4           RETURN TO PROGRAM.                             F6I00800    
       00324  0 76600 0 00202  SPACE WTD 2                                                            F6I00810    
       00325  0 70000 0 00422        CPY BLANKS                                                       F6I00820    
       00326  0 76600 0 00202  WRITE WTD 2                                                            F6I00830    
       00327  0 50000 4 00001        CLA 1,4                                                          F6I00840    
       00330  0 62100 0 00332        STA POOP                                                         F6I00850    
       00331 -0 73400 2 00000        PDX 0,2                                                          F6I00860    
       00332  0 70000 2 00332  POOP  CPY *,2                                                          F6I00870    
       00333  2 00001 2 00332        TIX POOP,2,1                                                     F6I00880    
       00334  0 76600 0 00333        IOD                                                              F6I00890    
       00335  0 02000 4 00002        TRA 2,4                                                          F6I00900    
       00336 -0 75400 2 00000  WLL   PXD 0,2           TO GET WORD COUNTERS FOR WRITING               F6I00910    
       00337  0 60100 0 00346        STO LND           FINAL RECORD.                                  F6I00920    
       00340  0 77100 0 00022        ARS 18                                                           F6I00930    
       00341  0 62100 0 00346        STA LND                                                          F6I00940    
       00342  0 50000 0 00351        CLA LNE                                                          F6I00950    
       00343  0 40200 0 00346        SUB LND                                                          F6I00960    
       00344  0 60100 0 00346        STO LND                                                          F6I00970    
       00345  0 07400 4 00326        TSX WRITE,4       WRITE FINAL RECORD                             F6I00980    
       00346  0 00000 0 00000  LND                     AND                                            F6I00990    
       00347  0 76200 0 00221  ENDS  RTB 1             GO TO LOADER.                                  F6I01000    
       00350  0 02000 0 00004        TRA 4                                                            F6I01010    
       00351  0 00030 0 00530  LNE       LIN+5,,24                                                    F6I01020    
                        00352        BSS 40                                                           F6I01030    
       00422  606060606060    BLANKS BCD 1                                                            F6I01040    
       00423  000000000060     BLANK BCD 100000                                                       F6I01050    
       00424 +000000000077     6BITS OCT 77                                                           F6I01060    
       00425 +000000000012     TEN   DEC 10                                                           F6I01070    
       00426 +000000000000     LOC   DEC 0                                                            F6I01080    
       00427  0 00000 0 00017  LOC15 HTR 15                                                           F6I01090    
       00430  606060606060           BCD                   EXTERNAL FORMULA NUMBERS WITH CORRESPONDINGF6I01100    
       00431  606060606060    
       00432  606060606025    
       00433  676325514521    
       00434  436026465144    
       00435  644321604564    
       00436  442225516260    
       00437  663163306023    
       00440  465151256247    
       00441  464524314527    
       00442  603145632551           BCD   INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS               F6I01110    
       00443  452143602646    
       00444  514464432160    
       00445  456444222551    
       00446  626021452460    
       00447  462363214360    
       00450  434623216331    
       00451  464562606060    
       00452  606060606060    
       00453  606060606060    
 A                      00454  TITLE BSS                                                              F6I01120    
       00454  606060606060           BCD          EFN   IFN   LOC         EFN   IFN   LOC         EFN F6I01130    
       00455  606025264560    
       00456  606031264560    
       00457  606043462360    
       00460  606060606060    
       00461  606025264560    
       00462  606031264560    
       00463  606043462360    
       00464  606060606060    
       00465  606025264560    
       00466  606031264560           BCD    IFN   LOC         EFN   IFN   LOC         EFN   IFN   LOC F6I01140    
       00467  606043462360    
       00470  606060606060    
       00471  606025264560    
       00472  606031264560    
       00473  606043462360    
       00474  606060606060    
       00475  606025264560    
       00476  606031264560    
       00477  606043462360    
 A                      00500  CHEAD BSS                                                              F6I01150    
                        00500        BSS 19                                                           F6I01160    
                        00523  LIN   BSS 1                                                            F6I01170    
                        00532  DIG   BES 6                                                            F6I01180    
                        00532  SYM   BSS 1                                                            F6I01190    
                        00533  SUM   BSS 1                                                            F6I01200    
                        02112  TEIFN BES 750                                                          F6I01210    
                        00210        END START                                                        F6I01220    
                        00001 0  IFN
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     130           0           0           0           0
 LIB       0           0           0           0           0
 COL     130           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      175                  
0NUMBER OF SYMBOLS,  DEF   108,DEFOP     0,UNDEF     1      
9            REM ************* FORTRAN II SECTION SIX ************************F6J00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6J00010    
                                         FORTRAN 2   RECORD 109  -  MAP PROGRAM.                      F6J00011    
                                                                                                      F6J00012    
                                         RELOCATE DATA DOWN TO LOWER STORAGE                          F6J00020    
                                         COMPUTE DELTA EQUAL LCTR MINUS L1 PLUS 1                     F6J00030    
                                         SUBTRACT DELTA FROM ALL LOCATIONS BETWEEN L3                 F6J00040    
                                         AND L1 IN DEV, TEV, AND TIV TABLES                           F6J00050    
                                         L1 IS PROGRAM BREAK, L3 IS COMMON BREAK                      F6J00060    
                        00210        ORG 136                                                          F6J00070    
       00210  0 50000 0 00171        CLA LCTR                                                         F6J00080    
       00211  0 40200 0 00166        SUB L1                                                           F6J00090    
       00212  0 40000 0 00162        ADD ONE                                                          F6J00100    
       00213  0 60100 0 00546        STO DELTA                                                        F6J00110    
       00214  0 50000 0 00166        CLA L1            COMPUTE NEW PROGRAM                            F6J00120    
       00215  0 40000 0 00175        ADD L3            BREAK AND STORE.                               F6J00130    
       00216  0 40200 0 00171        SUB LCTR                                                         F6J00140    
       00217  0 60100 0 00176        STO PGBK                                                         F6J00150    
       00220 -0 53400 1 00155        LXD DEVL,1        ANY SYMBOLS IN DEV.                            F6J00160    
 D     00221 -3 00000 1 00243        TXL A5,1          NO, GO TO AS.                                  F6J00170    
       00222  0 50000 0 00152        CLA ADEV          YES. COMPUTE ADORESS OF                        F6J00180    
       00223  0 62100 0 00225        STA A1            DEA TABLE.                                     F6J00190    
       00224  0 62100 0 00241        STA A4                                                           F6J00200    
       00225  0 50000 1 00225  A1    CLA *,1           SELECT LOCATION                                F6J00210    
       00226  0 62100 0 00301        STA ERAS1         FROM ADDRESS BITS.                             F6J00220    
       00227  0 50000 0 00301        CLA ERAS1                                                        F6J00230    
       00230  0 34000 0 00175        CAS L3                                                           F6J00240    
       00231  0 02000 0 00236        TRA A3            LOC GREATER THAN L3, DO NOT RELOCATE.          F6J00250    
       00232  0 02000 0 00240        TRA A2            LOC EQUAL L3. GO TO RELOCATE (HAS TO BE GREATERF6J00260    
                                                       THAN L1)                                       F6J00261    
       00233  0 34000 0 00166        CAS L1            LOC LESS THAN L3. IS IT GREATER THAN L1.       F6J00270    
       00234  0 02000 0 00240        TRA A2            LOC GREATER THAN L1. GO TO RELOCATE            F6J00280    
       00235  0 02000 0 00240        TRA A2            LOC EQUAL L1. GO TO RELOCATE                   F6J00290    
       00236  2 00001 1 00225  A3    TIX A1,1,1        LOC LESS THAN L1. DO NOT RELOCATE.             F6J00300    
       00237  0 02000 0 00243        TRA A5            WHEN ALL DATA EXAMINED AND TREATED.            F6J00310    
       00240  0 40200 0 00546  A2    SUB DELTA         RELOCATE LOCATION.                             F6J00320    
       00241  0 62100 1 00241  A4    STA *,1                                                          F6J00330    
       00242  0 02000 0 00236        TRA A3                                                           F6J00340    
       00243  0 50000 0 00172  A5    CLA LTEV          TEST LTEV ( LOCATION OF FIRST SYMBOL IN TEV)   F6J00350    
       00244 -0 53400 1 00120        LXD TEVL,1        SET XR1 WITH WD. COUNT OF TEV ENTRIES.         F6J00360    
 D     00245 -3 00000 1 00257        TXL A6,1          IF NO TEV ENTRIES, GO TO EXAMINE TIV.          F6J00370    
       00246  0 34000 0 00175        CAS L3            YES, TEV ENTRIES. IS LOCATION BETWEEN L3 ANO L1F6J00380    
       00247  0 02000 0 00257        TRA A6            LOCATION GREATER THAN L3. OONT RELOCATE        F6J00390    
       00250  0 02000 0 00255        TRA A7            LOC EQUAL L3. RELOCATE                         F6J00400    
       00251  0 34000 0 00166        CAS L1            LOC LESS THAN L3. IS IT GREATER THAN OR EQUAL  F6J00410    
                                                       L1.                                            F6J00411    
       00252  0 02000 0 00255        TRA A7            YES, RELOCATE                                  F6J00420    
       00253  0 02000 0 00255        TRA A7            YES, RELOCATE                                  F6J00430    
       00254  0 02000 0 00257        TRA A6            LOC LESS THAN L3. DONT RELOCATE.               F6J00440    
       00255  0 40200 0 00546  A7    SUB DELTA         RELOCATE LOCATION,                             F6J00450    
       00256  0 60100 0 00172        STO LTEV          AND STORE NEW LOCATION IN LTEV.                F6J00460    
       00257 -0 53400 1 00141  A6    LXD TIVL,1        ANY SYMBOLS IN TIV.                            F6J00470    
       00260  1 00001 1 00261        TXI NT1,1,1                                                      F6J00480    
 D     00261 -3 00000 1 00302  NT1   TXL B4,1          NO, GO TO WRITE OFF STORAGE NOT USED           F6J00490    
       00262  0 50000 1 02114  A10   CLA TIV,1         YES. TEST TIV.                                 F6J00500    
       00263  0 62100 0 00301        STA ERAS1         SELECT LOCATION FROM ADDRESS BITS.             F6J00510    
       00264  0 50000 0 00301        CLA ERAS1                                                        F6J00520    
       00265  0 34000 0 00175        CAS L3                                                           F6J00530    
       00266  0 02000 0 00273        TRA A8            NO RELOCATION.                                 F6J00540    
       00267  0 02000 0 00276        TRA A9            RELOCATE.                                      F6J00550    
       00270  0 34000 0 00166        CAS L1                                                           F6J00560    
       00271  0 02000 0 00276        TRA A9            RELOCATE.                                      F6J00570    
       00272  0 02000 0 00276        TRA A9            RELOCATE.                                      F6J00580    
       00273  1 00001 1 00274  A8    TXI NT2,1,1       IF MORE ENTRIES IN TIV TO BE TESTED FOR RELOC- F6J00590    
 D     00274 -3 00000 1 00302  NT2   TXL B4,1          ATION, GO TO TEST TIV. IF DONE, GO WRITE       F6J00600    
                                                       STORAGE NOT USED.                              F6J00601    
       00275  0 02000 0 00262        TRA A10           RELOCATE BY SUBTRACTING DELTA                  F6J00610    
       00276  0 40200 0 00546  A9    SUB DELTA                                                        F6J00620    
       00277  0 62100 1 02114        STA TIV,1                                                        F6J00630    
       00300  0 02000 0 00273        TRA A8                                                           F6J00640    
 A     00301  0 00000 0 00000  ERAS1 HTR                                                              F6J00650    
       00302  0 07400 4 00352  B4    TSX SPACE,4       TO WRITE STORAGE NOT USED BY PROGRAM           F6J00660    
       00303  0 00024 0 00470            TITLE,,20     RECORD ON TAPE TWO.                            F6J00670    
       00304  0 07400 4 00352        TSX SPACE,4       GO TO WRITE TITLE AND HEADINGS.                F6J00680    
       00305  0 00024 0 00514            CHEAD,,20                                                    F6J00690    
       00306  0 50000 0 00176        CLA PGBK                                                         F6J00700    
       00307  0 60100 0 00443        STO LOC           TO LIST PROGRAM BREAK.                         F6J00710    
       00310  0 07400 4 00364        TSX SUB,4         GO TO CONVERT PROGRAM BREAK TO BCD IMAGES      F6J00720    
       00311 -0 50000 0 00437        CAL BLANKS        OF ITS DECIMAL AND ITS OCTAL                   F6J00730    
       00312  0 60200 0 00514        SLW LIN-19        REPRESENTATIONS.                               F6J00740    
       00313  0 60200 0 00515        SLW LIN-18        SET FIRST 2 WORDS OF RECORD TO BLANK.          F6J00750    
       00314  0 50000 0 00547        CLA DECWD                                                        F6J00760    
       00315  0 60100 0 00516        STO LIN-17        SET 3RD WORD TO IMAGE OF DECIMAL REPR.         F6J00770    
       00316  0 50000 0 00550        CLA OCTWD         SET 4TH WORD TO IMAGE OF OCTAL REPRESENTATION  F6J00780    
       00317  0 60100 0 00517        STO LIN-16        OF PROGRAM BREAK.                              F6J00790    
       00320  0 50000 0 00175        CLA L3                                                           F6J00800    
       00321  0 60100 0 00443        STO LOC           TO LIST COMMON BREAK.                          F6J00810    
       00322  0 07400 4 00364        TSX SUB,4         GO TO CONVERT IT.                              F6J00820    
       00323 -0 50000 0 00437        CAL BLANKS                                                       F6J00830    
       00324  0 60200 0 00520        SLW LIN-15                                                       F6J00840    
       00325  0 60200 0 00521        SLW LIN-14        SET WORDS FIVE AND SIX TO BLANK.               F6J00850    
       00326  0 50000 0 00547        CLA DECWD         SET WORD SEVEN TO BCD IMAGE OF DECIMAL         F6J00860    
       00327  0 60100 0 00522        STO LIN-13        REPRESENTATION OF COMMON BREAK.                F6J00870    
       00330  0 50000 0 00550        CLA OCTWD                                                        F6J00880    
       00331  0 60100 0 00523        STO LIN-12        SET WORD EIGHT TO IMAGE OF OCTAL REPR.         F6J00890    
       00332 -0 50000 0 00437        CAL BLANKS                                                       F6J00900    
       00333  0 60200 0 00524        SLW LIN-11        SET REMAINDER OF RECORD TO BLANK.              F6J00910    
       00334  0 60200 0 00525        SLW LIN-10                                                       F6J00920    
       00335  0 60200 0 00526        SLW LIN-9                                                        F6J00930    
       00336  0 60200 0 00527        SLW LIN-8                                                        F6J00940    
       00337  0 60200 0 00530        SLW LIN-7                                                        F6J00950    
       00340  0 60200 0 00531        SLW LIN-6                                                        F6J00960    
       00341  0 60200 0 00532        SLW LIN-5                                                        F6J00970    
       00342  0 60200 0 00533        SLW LIN-4                                                        F6J00980    
       00343  0 60200 0 00534        SLW LIN-3                                                        F6J00990    
       00344  0 60200 0 00535        SLW LIN-2                                                        F6J01000    
       00345  0 60200 0 00536        SLW LIN-1                                                        F6J01010    
       00346  0 60200 0 00537        SLW LIN                                                          F6J01020    
       00347  0 07400 4 00354        TSX WRITE,4       GO TO WRITE RECORD ON TAPE TWO.                F6J01030    
       00350  0 00024 0 00540  LNC       LIN+1,,20                                                    F6J01040    
       00351  0 02000 0 00004        TRA 4             GO TO LOADER.                                  F6J01050    
       00352  0 76600 0 00202  SPACE WTD 2                                                            F6J01060    
       00353  0 70000 0 00437        CPY BLANKS                                                       F6J01070    
       00354  0 76600 0 00202  WRITE WTD 2                                                            F6J01080    
       00355  0 50000 4 00001        CLA 1,4                                                          F6J01090    
       00356  0 62100 0 00360        STA POOP                                                         F6J01100    
       00357 -0 73400 2 00000        PDX 0,2                                                          F6J01110    
       00360  0 70000 2 00360  POOP  CPY *,2                                                          F6J01120    
       00361  2 00001 2 00360        TIX POOP,2,1                                                     F6J01130    
       00362  0 76600 0 00333        IOD                                                              F6J01140    
       00363  0 02000 4 00002        TRA 2,4                                                          F6J01150    
       00364  0 53400 1 00162  SUB   LXA ONE,1                                                        F6J01160    
       00365  0 56000 0 00443        LDQ LOC                                                          F6J01170    
       00366  0 50000 0 00442  CNV   CLA TEN           CONVERTING TO DECIMAL.                         F6J01180    
       00367  0 04000 0 00374        TLQ FIN                                                          F6J01190    
 T     00370 -0 75400 0 00000        PXD                                                              F6J01200    
       00371  0 22100 0 00442        DVP TEN                                                          F6J01210    
       00372  0 60200 1 00546        SLW DIG,1                                                        F6J01220    
       00373  1 00001 1 00366        TXI CNV,1,1                                                      F6J01230    
       00374 -0 60000 1 00546  FIN   STQ DIG,1                                                        F6J01240    
       00375 -0 50000 0 00437        CAL BLANKS                                                       F6J01250    
       00376  0 76700 0 00006  DEC   ALS 6             DECIMAL TO BCD IMAGE.                          F6J01260    
       00377 -0 50100 1 00546        ORA DIG,1                                                        F6J01270    
       00400  2 00001 1 00376        TIX DEC,1,1                                                      F6J01280    
       00401  0 60200 0 00547        SLW DECWD                                                        F6J01290    
       00402  0 50000 0 00443        CLA LOC                                                          F6J01300    
       00403  0 76500 0 00017        LRS 15                                                           F6J01310    
       00404 -0 50000 0 00440        CAL BLANK                                                        F6J01320    
       00405 -0 14000 0 00406        TNO OCT                                                          F6J01330    
       00406  0 76700 0 00003  OCT   ALS 3             OCTAL TO BCD IMAGE.                            F6J01340    
       00407  0 76300 0 00003        LLS 3                                                            F6J01350    
       00410 -0 14000 0 00406        TNO OCT                                                          F6J01360    
       00411  0 60200 0 00550        SLW OCTWD                                                        F6J01370    
       00412  0 02000 4 00001        TRA 1,4                                                          F6J01380    
                        00413        BSS 20                                                           F6J01390    
       00437  606060606060    BLANKS BCD 1                                                            F6J01400    
       00440  000000000060     BLANK BCD 100000                                                       F6J01410    
       00441 +000000000077     6BITS OCT 77                                                           F6J01420    
       00442 +000000000012     TEN   DEC 10                                                           F6J01430    
       00443 +000000000000     LOC   DEC 0                                                            F6J01440    
       00444  606060606060           BCD 7                                                            F6J01450    
       00445  606060606060    
       00446  606060606060    
       00447  606060606060    
       00450  606060606060    
       00451  606060606060    
       00452  606060606060    
       00453  626346512127           BCD 5STORAGE NOT USED BY PROGRAM                                 F6J01460    
       00454  256045466360    
       00455  646225246022    
       00456  706047514627    
       00457  512144606060    
       00460  606060606060           BCD 8                                                            F6J01470    
       00461  606060606060    
       00462  606060606060    
       00463  606060606060    
       00464  606060606060    
       00465  606060606060    
       00466  606060606060    
       00467  606060606060    
 A                      00470  TITLE BSS                                                              F6J01480    
       00470  606060606060           BCD 2                                                            F6J01490    
       00471  606060606060    
       00472  606024252360           BCD 4  DEC   OCT                                                 F6J01500    
       00473  606046236360    
       00474  606060606060    
       00475  606060606060    
       00476  606024252360           BCD 4  DEC   OCT                                                 F6J01510    
       00477  606046236360    
       00500  606060606060    
       00501  606060606060    
       00502  606060606060           BCD                                                              F6J01520    
       00503  606060606060    
       00504  606060606060    
       00505  606060606060    
       00506  606060606060    
       00507  606060606060    
       00510  606060606060    
       00511  606060606060    
       00512  606060606060    
       00513  606060606060    
 A                      00514  CHEAD BSS                                                              F6J01530    
                        00514        BSS 19                                                           F6J01540    
                        00537  LIN   BSS 1                                                            F6J01550    
                        00546  DIG   BES 6                                                            F6J01560    
       00546  0 00000 0 00000  DELTA HTR 0                                                            F6J01570    
       00547  0 00000 0 00000  DECWD HTR 0                                                            F6J01580    
       00550  0 00000 0 00000  OCTWD HTR 0                                                            F6J01590    
 A                      00000        END                                                              F6J01600    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     166           0           0           0           0
 LIB       0           0           0           0           0
 COL     166           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      207                  
0NUMBER OF SYMBOLS,  DEF   106,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION SIX ************************F6K00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6K00010    
                                         FORTRAN 2   RECORD 110  -  MAP OTHER VARIABLES.              F6K00011    
                                                                                                      F6K00012    
                                         LIST DATA LOCATI0NS NOT APPEARING IN COMMON                  F6K00020    
                        00206  ME8   SYN 134                                                          F6K00030    
                        00032  PC3   SYN 26                                                           F6K00040    
                        00210        ORG 136                                                          F6K00050    
       00210 -0 53400 1 00032        LXD PC3,1         ANY TRANSFER VECTOR.                           F6K00060    
 D     00211 -3 00000 1 00247        TXL J4,1          NO, TRANSFER.                                  F6K00070    
       00212  0 07400 4 00436        TSX SPACE,4       YES, G0 T0 WRITE COLUMN HEADINGS AND           F6K00080    
       00213  0 00024 0 00503            TRAN,,20      LOCATIONS OF NAMES IN TRANSFER VECTOR.         F6K00690    
       00214  0 07400 4 00436        TSX SPACE,4                                                      F6K00100    
       00215  0 00024 0 00527            TRHAD,,20                                                    F6K00110    
       00216  0 50000 0 00152        CLA ADEV              PRINT TRANSFER VECTOR                      F6K00120    
       00217  0 62100 0 00225        STA TV1           INITIAL DEA LOCATION.                          F6K00130    
       00220 -0 75400 1 00000        PXD 0,1                                                          F6K00140    
       00221  0 77100 0 00022        ARS 18                                                           F6K00150    
       00222  0 60100 0 00456        STO LENG          NO. OF WORDS IN TRANSFER VECTOR.               F6K00160    
       00223 -0 53400 1 00155        LXD DEVL,1        SET DEA TABLE COUNTER.                         F6K00170    
       00224 -0 53400 2 00241  TV2   LXD LNC,2         SET TAPE TWO RECORD LENGTH EQUAL TO TWENTY.    F6K00180    
       00225  0 50000 1 00000  TV1   CLA **,1          LOCATION FROM DEA TABLE.                       F6K00190    
       00226  0 62100 0 00455        STA LOC                                                          F6K00200    
       00227  0 50000 0 00455        CLA LOC           IF DEV ENTRY IS IN TRANS. VECTOR, ITS CORRES-  F6K00210    
       00230  0 34000 0 00456        CAS LENG          PONDING DEA ENTRY(ADDR. PART)WILL BE LESS      F6K00220    
                                                       THAN TRANS. VECTOR WORD COUNT.                 F6K00221    
       00231  0 02000 0 00243        TRA TV3           DEV ENTRY NOT IN TRANSFER VECTOR.              F6K00230    
       00232  0 02000 0 00243        TRA TV3                                                          F6K00240    
       00233  0 56000 1 77777  TV4   LDQ DEV,1         DEV ENTRY IS IN TRANSFER VECTOR SO LIST IT.    F6K00250    
       00234  0 07400 4 00366        TSX D3,4          TO PREPARE FIRST TWO WORDS OF TAPE TWO ENTRY.  F6K00260    
       00235  0 07400 4 00405        TSX D4,4          TO PREPARE 3RD AND 4TH WORDS OF ENTRY.         F6K00270    
       00236 -2 00001 1 00246        TNX TV5,1,1       IF NO MORE WOROS IN DEV TABLE, GO TO WRITE LASTF6K00280    
                                                       RECORD.                                        F6K00281    
       00237  2 00004 2 00225        TIX TV1,2,4       IF TAPE TWO RECORD FULL, GO TO WRITE RECORD    F6K00290    
       00240  0 07400 4 00440        TSX WRITE,4       AND THEN TO TV2 TO SET UP FOR NEXT RECORD.     F6K00300    
       00241  0 00024 0 00634  LNC       LIN+1,,20                                                    F6K00310    
       00242  0 02000 0 00224        TRA TV2                                                          F6K00320    
       00243 -2 00001 1 00245  TV3   TNX TV6,1,1       DO NOT LIST (NOT IN TRANSFER VECTOR). UPDATE   F6K00330    
                                                       INDEX.                                         F6K00331    
       00244  0 02000 0 00225        TRA TV1           AND GO TO SELECT NEXT DEA. IF END OF DEV,      F6K00340    
       00245  1 00004 2 00246  TV6   TXI TV5,2,4       ADJUST WRITE-COPY INDEX AND GO                 F6K00350    
       00246  0 07400 1 00353  TV5   TSX WLL,1         WRITE LAST RECORD.                             F6K00360    
       00247 -0 53400 1 00155  J4    LXD DEVL,1        ANY DEV ENTRIES.                               F6K00370    
 D     00250 -3 00000 1 00324        TXL J1,1          NO, TRANSFER                                   F6K00380    
       00251  0 50000 0 00456        CLA LENG          YES, COMPARE WD. CT. OF TRANSFER VECTOR WITH   F6K00390    
       00252  0 34000 0 00206        CAS ME8           LAST LOCATION OF FORTRAN FUNCTIONS+1 (ME8 SET  F6K00400    
                                                       BY RECORD 105.                                 F6K00401    
       00253  0 02000 0 00257        TRA LIB38         LESS THAN TRANSFER VECTOR LENGTH.              F6K00410    
       00254  0 02000 0 00255        TRA LIB37         EQUAL OR GREATER THAN TR. VECTOR LENGTH. SET   F6K00420    
       00255  0 50000 0 00206  LIB37 CLA ME8           LENG EQUAL TO ME8 TO AVOID DUPLICATE LISTING   F6K00430    
       00256  0 60100 0 00456        STO LENG          OF FORTRAN FUNCTIONS (LISTED BY RECOR0 105).   F6K00440    
       00257  0 50000 0 00152  LIB38 CLA ADEV          STORE INITIAL LOCATION OF DEA TABLE IN AOORESS F6K00450    
       00260  0 62100 0 00262        STA BDV           OF BDV.                                        F6K00460    
       00261 -0 53400 2 00241  CNL   LXD LNC,2         SET TAPE TWO RECORD LENGTH TO 20.              F6K00470    
       00262  0 50000 1 00000  BDV   CLA **,1          SELECT LOCATION FROM ADDRESS PART OF DEA       F6K00480    
       00263  0 62100 0 00455        STA LOC           ENTRY. COMPARE IT WITH MAX (TRANSFER VECTOR    F6K00490    
       00264  0 50000 0 00455        CLA LOC           WORD C0UNT, LAST LOCATION OF FORTRAN FUNCTIONS F6K00500    
       00265  0 34000 0 00456        CAS LENG          PLUS 1).                                       F6K00510    
       00266  0 02000 0 00271        TRA J6            NOT PREVI0USLY LISTED AS FORTRAN FUNCTION      F6K00520    
       00267  0 02000 0 00271        TRA J6            OR IN TRANSFER VECTOR. GO SEE IF COMMON.       F6K00530    
       00270  0 02000 0 00306        TRA B11           PREVIOUSLY LISTED. GO SEE IF ANY MORE DEV      F6K00540    
                                                       ENTRIES.                                       F6K00541    
       00271  0 34000 0 00175  J6    CAS L3            IS DEV ENTRY IN COMMON.                        F6K00550    
       00272  0 02000 0 00306        TRA B11           YES, GO SEE IF ANY MORE DEV ENTRIES.           F6K00560    
       00273  0 02000 0 00274        TRA B10           DEV ENTRY NOT A FORTRAN FUNCTION, NOT IN       F6K00570    
       00274  0 50000 0 00310  B10   CLA ME5           TRANSFER VECTOR OR COMMON. ME5 IS TAPE TWO     F6K00580    
       00275  0 10000 0 00311        TZE ME6           BUFFER C0UNTER (0 TO START). GO WRITE HEADING, F6K00590    
       00276  0 56000 1 77777  ME7   LDQ DEV,1         TAPE 2 BUFFER INDEX NOT 0. LOAD APPROPRIATE    F6K00600    
       00277  0 07400 4 00366        TSX D3,4          DEV ENTRY AND GO TO PREPARE THE 4-WORD ENTRY.  F6K00610    
       00300  0 07400 4 00405        TSX D4,4                                                         F6K00620    
       00301 -2 00001 1 00323        TNX B25,1,1       GO WRITE FINAL RECORD IF DEV TABLE FINISHED.   F6K00630    
       00302  2 00004 2 00262        TIX BDV,2,4       TRANSFER IF STILL ROOM IN TAPE TWO BUFFER.     F6K00640    
       00303  0 07400 4 00440        TSX WRITE,4       BUFFER FULL. GO WRITE RECORD.                  F6K00650    
       00304  0 00024 0 00634            LIN+1,,20                                                    F6K00660    
       00305  0 02000 0 00261        TRA CNL           GO SET BUFFER LENGTH AND CONTINUE.             F6K00670    
       00306 -2 00001 1 00320  B11   TNX D7,1,1        TRANSFER IF NO MORE ENTRIES IN DEV.            F6K00680    
       00307  0 02000 0 00262        TRA BDV           GO SELECT NEXT DEV ENTRY.                      F6K00690    
       00310  0 00000 0 00000  ME5   HTR 0                                                            F6K00700    
       00311  0 07400 4 00436  ME6   TSX SPACE,4       TO WRITE STORAGE LOCATIONS FOR VARIABLES       F6K00710    
       00312  0 00024 0 00553            TITLE,,20     APPEARING IN DIMENSION AND EQUIVALENCE         F6K00720    
       00313  0 07400 4 00436        TSX SPACE,4       STATEMENTS AND HEADINGS                        F6K00730    
       00314  0 00024 0 00527            TRHAD,,20                                                    F6K00740    
       00315 -0 53400 2 00241        LXD LNC,2         RESET COUNTER FOR TAPE TWO BUFFER AND STORE    F6K00750    
       00316 -0 63400 2 00310        SXD ME5,2         IT IN ME5                                      F6K00760    
       00317  0 02000 0 00276        TRA ME7                                                          F6K00770    
       00320  0 50000 0 00310  D7    CLA ME5           IS ANYTHING IN TAPE TWO BUFFER                 F6K00780    
       00321  0 10000 0 00324        TZE J1            TRANSFER IF NOT.                               F6K00790    
       00322  1 00004 2 00323        TXI B25,2,4       ADJUST BUFFER INDEX                            F6K00800    
       00323  0 07400 1 00353  B25   TSX WLL,1         AND GO WRITE LAST RECORD.                      F6K00810    
       00324 -0 53400 1 00120  J1    LXD TEVL,1        ANY TEV ENTRIES.                               F6K00820    
 D     00325 -3 00000 1 00450        TXL J3,1          NO, GO TO LOADER                               F6K00830    
       00326  0 07400 4 00436        TSX SPACE,4       YES, WRITE LOCATIONS FOR VARIABLES NOT APPEAR- F6K00840    
       00327  0 00024 0 00577            OTHER,,20     ING IN DIMENSION, EQUIVALENCE, OR COMMON,      F6K00850    
       00330  0 07400 4 00436        TSX SPACE,4       AND WRITE HEADINGS.                            F6K00860    
       00331  0 00024 0 00527            TRHAD,,20                                                    F6K00870    
       00332  0 50000 0 00107  D1    CLA TTEV          SET ADDRESS OF D5 EQUAL TO LOCATION OF         F6K00880    
       00333  0 62100 0 00335        STA D5            BEGINNING OF TEV TABLE.                        F6K00890    
       00334 -0 53400 2 00241        LXD LNC,2         SET TAPE TWO RECORD LENGTH TO 20.              F6K00900    
 U     00335  0 56000 1        D5    LDQ TEV,1         SELECT TEV ENTRY, AND GO SET WORD 1 TO BLANK,  F6K00910    
       00336  0 07400 4 00366        TSX D3,4          WORD2 TO VARIABLE NAME.                        F6K00920    
       00337 -0 75400 1 00000        PXD 0,1           COMPUTE LOCATION OF TEV ENTRY.                 F6K00930    
       00340  0 77100 0 00022        ARS 18                                                           F6K00940    
       00341  0 40000 0 00172        ADD LTEV                                                         F6K00950    
       00342  0 62100 0 00455        STA LOC           AND GO COMPUTE AND STORE BCD IMAGES OF DECIMAL F6K00960    
       00343  0 07400 4 00405        TSX D4,4          AND OCTAL REPRESENTAT1ONS IN WORDS 3 AND 4.    F6K00970    
       00344 -2 00001 1 00351        TNX D6,1,1        IF END OF TEV ENTRIES, GO WRITE LAST RECORD.   F6K00980    
       00345  2 00004 2 00335        TIX D5,2,4        TRANSFER IF STILL ROOM IN BUFFER.              F6K00990    
       00346  0 07400 4 00440        TSX WRITE,4       BUFFER FULL. WRITE BUFFER CONTENTS AND GO SET  F6K01000    
       00347  0 00024 0 00634            LIN+1,,20     BUFFER COUNTER.                                F6K01010    
       00350  0 02000 0 00334        TRA D5-1                                                         F6K01020    
       00351  0 07400 1 00353  D6    TSX WLL,1         WRITE FINAL RECORD AND GO TO LOADER.           F6K01030    
       00352  0 02000 0 00004        TRA 4                                                            F6K01040    
       00353 -0 75400 2 00000  WLL   PXD 0,2           C0MPUTE COUNT TO WRITE FINAL RECORD.           F6K01050    
       00354  0 60100 0 00363        STO LND                                                          F6K01060    
       00355  0 77100 0 00022        ARS 18                                                           F6K01070    
       00356  0 62100 0 00363        STA LND                                                          F6K01080    
       00357  0 50000 0 00365        CLA LNE                                                          F6K01090    
       00360  0 40200 0 00363        SUB LND                                                          F6K01100    
       00361  0 60100 0 00363        STO LND                                                          F6K01110    
       00362  0 07400 4 00440        TSX WRITE,4       WRITE FINAL RECORD.                            F6K01120    
       00363  0 00000 0 00000  LND                                                                    F6K01130    
       00364  0 02000 1 00001        TRA 1,1                                                          F6K01140    
       00365  0 00030 0 00640  LNE       LIN+5,,24                                                    F6K01150    
       00366 -0 63400 4 00601  D3    SXD IR4,4                                                        F6K01160    
       00367 -0 50000 0 00451  CNW   CAL BLANKS                                                       F6K01170    
       00370  0 60200 2 00634        SLW LIN+1,2       STORE BLANKS IN WORDS 1 AND 2 OF ENTRY.        F6K01180    
       00371  0 60200 2 00635        SLW LIN+2,2                                                      F6K01190    
       00372  0 53400 4 00373        LXA SIX,4                                                        F6K01200    
       00373 -0 76300 0 00006  SIX   LGL 6                                                            F6K01210    
       00374  0 60200 0 00634        SLW SYM                                                          F6K01220    
       00375 -0 32000 0 00453        ANA 6BITS                                                        F6K01230    
       00376  0 40200 0 00452        SUB BLANK         STORE VARIABLE NAME FILLED WITH BLANKS AT      F6K01240    
       00377  0 10000 0 00403        TZE CNA           LEFT IN WORD 2 OF ENTRY.                       F6K01250    
       00400 -0 50000 0 00634        CAL SYM                                                          F6K01260    
       00401  0 60200 2 00635        SLW LIN+2,2                                                      F6K01270    
       00402  2 00001 4 00373        TIX SIX,4,1                                                      F6K01280    
       00403 -0 53400 4 00601  CNA   LXD IR4,4                                                        F6K01290    
       00404  0 02000 4 00001        TRA 1,4           RETURN TO PROGRAM.                             F6K01300    
       00405 -0 63400 4 00601  D4    SXD IR4,4                                                        F6K01310    
       00406  0 53400 4 00162        LXA ONE,4         CONVERT LOCATION TO BCD IMAGE OF ITS           F6K01320    
       00407  0 56000 0 00455        LDQ LOC           DECIMAL REPRESENTATION, AND                    F6K01330    
       00410  0 50000 0 00454  CNV   CLA TEN           STORE IT IN WORD 3 0F ENTRY.                   F6K01340    
       00411  0 04000 0 00416        TLQ FIN                                                          F6K01350    
 T     00412 -0 75400 0 00000        PXD                                                              F6K01360    
       00413  0 22100 0 00454        DVP TEN                                                          F6K01370    
       00414  0 60200 4 00610        SLW DIG,4                                                        F6K01380    
       00415  1 00001 4 00410        TXI CNV,4,1                                                      F6K01390    
       00416 -0 60000 4 00610  FIN   STQ DIG,4                                                        F6K01400    
       00417 -0 50000 0 00451        CAL BLANKS                                                       F6K01410    
       00420  0 76700 0 00006  DEC   ALS 6                                                            F6K01420    
       00421 -0 50100 4 00610        ORA DIG,4                                                        F6K01430    
       00422  2 00001 4 00420        TIX DEC,4,1                                                      F6K01440    
       00423  0 60200 2 00636        SLW LIN+3,2                                                      F6K01450    
       00424  0 50000 0 00455        CLA LOC                                                          F6K01460    
       00425  0 76500 0 00017        LRS 15                                                           F6K01470    
       00426  0 50000 0 00452        CLA BLANK         CONVERT LOCATION TO BCD IMAGE 0F ITS OCTAL     F6K01480    
       00427 -0 14000 0 00430        TNO OCT           REPRESENTATION, AND STORE IT IN WORD 4 OF ENTRYF6K01490    
       00430  0 76700 0 00003  OCT   ALS 3                                                            F6K01500    
       00431  0 76300 0 00003        LLS 3                                                            F6K01510    
       00432 -0 14000 0 00430        TNO OCT                                                          F6K01520    
       00433  0 60200 2 00637        SLW LIN+4,2                                                      F6K01530    
       00434 -0 53400 4 00601        LXD IR4,4                                                        F6K01540    
       00435  0 02000 4 00001        TRA 1,4                                                          F6K01550    
       00436  0 76600 0 00202  SPACE WTD 2                                                            F6K01560    
       00437  0 70000 0 00451        CPY BLANKS                                                       F6K01570    
       00440  0 76600 0 00202  WRITE WTD 2              TO WRITE TAPE-TWO BUFFER (20 WORDS) ONTO TAP, F6K01580    
       00441  0 50000 4 00001        CLA 1,4                                                          F6K01590    
       00442  0 62100 0 00444        STA POOP                                                         F6K01600    
       00443 -0 73400 2 00000        PDX 0,2                                                          F6K01610    
       00444  0 70000 2 00000  POOP  CPY **,2                                                         F6K01620    
       00445  2 00001 2 00444        TIX POOP,2,1                                                     F6K01630    
       00446  0 76600 0 00333        IOD                                                              F6K01640    
       00447  0 02000 4 00002        TRA 2,4                                                          F6K01650    
       00450  0 02000 0 00004  J3    TRA 4                                                            F6K01660    
       00451  606060606060    BLANKS BCD 1                                                            F6K01670    
       00452  000000000060     BLANK BCD 100000                                                       F6K01680    
       00453 +000000000077     6BITS OCT 77                                                           F6K01690    
       00454 +000000000012     TEN   DEC 10                                                           F6K01700    
       00455 +000000000000     LOC   DEC 0                                                            F6K01710    
       00456  0 00000 0 00000  LENG  HTR 0                                                            F6K01720    
       00457  606060606060           BCD 6                                                            F6K01730    
       00460  606060606060    
       00461  606060606060    
       00462  606060606060    
       00463  606060606060    
       00464  606060606060    
       00465  434623216331           BCD 6LOCATIONS OF NAMES IN TRANSFER VECTO                        F6K01740    
       00466  464562604626    
       00467  604521442562    
       00470  603145606351    
       00471  214562262551    
       00472  606525236346    
       00473  516060606060           BCD 8R                                                           F6K01750    
       00474  606060606060    
       00475  606060606060    
       00476  606060606060    
       00477  606060606060    
       00500  606060606060    
       00501  606060606060    
       00502  606060606060    
 A                      00503  TRAN  BSS                                                              F6K01760    
       00503  606060606060           BCD 2                                                            F6K01770    
       00504  606060606060    
       00505  606024252360           BCD 4  DEC   OCT                                                 F6K01780    
       00506  606046236360    
       00507  606060606060    
       00510  606060606060    
       00511  606024252360           BCD 4  DEC   OCT                                                 F6K01790    
       00512  606046236360    
       00513  606060606060    
       00514  606060606060    
       00515  606024252360           BCD 4  DEC   OCT                                                 F6K01800    
       00516  606046236360    
       00517  606060606060    
       00520  606060606060    
       00521  606024252360           BCD 4  DEC   OCT                                                 F6K01810    
       00522  606046236360    
       00523  606060606060    
       00524  606060606060    
       00525  606024252360           BCD 2  DEC   OCT                                                 F6K01820    
       00526  606046236360    
 A                      00527  TRHAD BSS                                                              F6K01830    
       00527  606060606060           BCD 3                                                            F6K01840    
       00530  606060606060    
       00531  606060606060    
       00532  626346512127           BCD 7STORAGE LOCATIONS FOR VARIABLES APPEARING                   F6K01850    
       00533  256043462321    
       00534  633146456260    
       00535  264651606521    
       00536  513121224325    
       00537  626021474725    
       00540  215131452760    
       00541  314560243144           BCD 7IN DIMENSION AND EQUIVALENCE SENTENCES                      F6K01860    
       00542  254562314645    
       00543  602145246025    
       00544  506431652143    
       00545  254523256062    
       00546  254563254523    
       00547  256260606060    
       00550  606060606060           BCD 3                                                            F6K01870    
       00551  606060606060    
       00552  606060606060    
 A                      00553  TITLE BSS                                                              F6K01880    
       00553  606060606060           BCD 2                                                            F6K01890    
       00554  606060606060    
       00555  606060626346           BCD 7   STORAGE LOCATIONS FOR VARIABLES NOT APP                  F6K01900    
       00556  512127256043    
       00557  462321633146    
       00560  456260264651    
       00561  606521513121    
       00562  224325626045    
       00563  466360214747    
       00564  252151314527           BCD 6EARING IN DIMENSION,EQUIVALENCE OR C                        F6K01910    
       00565  603145602431    
       00566  442545623146    
       00567  457325506431    
       00570  652143254523    
       00571  256046516023    
       00572  464444464560           BCD 5OMMON SENTENCES                                             F6K01920    
       00573  622545632545    
       00574  232562606060    
       00575  606060606060    
       00576  606060606060    
 A                      00577  OTHER BSS                                                              F6K01930    
       00577  0 00000 0 00000  ERAS2                                                                  F6K01940    
       00600  0 00000 0 00000  ERAS1                                                                  F6K01950    
       00601  0 00000 0 00000  IR4                                                                    F6K01960    
                        00610  DIG   BES 6                                                            F6K01970    
                        00610        BSS 19                                                           F6K01980    
                        00633  LIN   BSS 1                                                            F6K01990    
                        00634  SYM   BSS 1                                                            F6K02000    
 A                      00000        END                                                              F6K02010    
                        00001 0  TEV
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     209           0           0           0           0
 LIB       0           0           0           0           0
 COL     209           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      281                  
0NUMBER OF SYMBOLS,  DEF   129,DEFOP     0,UNDEF     1      
9            REM ************* FORTRAN II SECTION SIX ************************F6L00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6L00010    
                                         FORTRAN 2   RECORD 111  -  WRITE PROGRAM CARD.               F6L00011    
                                                                                                      F6L00012    
                                         WRITE PROGRAM CARD ON TAPE 3                                 F6L00020    
                        00030  PC1   SYN 24                                                           F6L00030    
                        00031  PC2   SYN 25                                                           F6L00040    
                        00032  PC3   SYN 26                                                           F6L00050    
                        00033  PC4   SYN 27                                                           F6L00060    
                        00034  PC5   SYN 28                                                           F6L00070    
                        00035  PC6   SYN 29                                                           F6L00080    
                        00210        ORG 136                                                          F6L00090    
       00210  0 77200 0 00203        REW 3             REWIND TAPE 3                                  F6L00100    
       00211  0 50200 0 00244        CLS FR4                                                          F6L00110    
       00212  0 60100 0 00030        STO PC1           STORE PUNCH IN COL 1,4 IN DECREMENT OF PC1     F6L00120    
       00213  0 50000 0 00032        CLA PC3           DECREMENT CONTAINS LENGTH OF TRANSFER VECTOR.  F6L00130    
       00214  0 40000 0 00176        ADD PGBK          ADD LENGTH OF LOWER STORAGE IN ADDRESS.        F6L00140    
       00215  0 60100 0 00032        STO PC3                                                          F6L00150    
       00216  0 50000 0 00175        CLA L3            TWOS COMPLEMENT OF LENGTH OF UPPER             F6L00160    
       00217  0 60100 0 00033        STO PC4           STORAGE IN ADDRESS.                            F6L00170    
 T     00220 -0 75400 0 00000        PXD                                                              F6L00180    
       00221  0 36100 0 00030        ACL PC1           C0MPUTE CHECK SUM,                             F6L00190    
       00222  0 36100 0 00032        ACL PC3                                                          F6L00200    
       00223  0 36100 0 00033        ACL PC4                                                          F6L00210    
       00224  0 36100 0 00034        ACL PC5                                                          F6L00220    
       00225  0 36100 0 00035        ACL PC6                                                          F6L00230    
       00226  0 60200 0 00031        SLW PC2           AND STORE IT IN PC 2.                          F6L00240    
       00227  0 76600 0 00223        WTB 3             WRITE PROGRAM CARD ONTO TAPE 3.                F6L00250    
       00230  0 70000 0 00030        CPY PC1           PUNCH IN COL. ONE, WD. COUNT IN DECR. 9L.      F6L00260    
       00231  0 70000 0 00031        CPY PC2           CHECK SUM. 9R.                                 F6L00270    
       00232  0 70000 0 00032        CPY PC3           LENGTH OF TRANS. VECS LENGTH. OF LOWER STORAGE,F6L00280    
       00233  0 70000 0 00033        CPY PC4           2S COMP. OF UPPER STORAGE. 8R.                 F6L00290    
       00234  0 70000 0 00034        CPY PC5           NAME OF SUBROUTINE (ZEROS IF MAIN PR0GRAM). 7L.F6L00300    
       00235  0 70000 0 00035        CPY PC6           ENTRY POINT. 7R                                F6L00310    
       00236  0 53400 1 00243        LXA L18,1         FILL REST OF CARD WITH ZEROS.                  F6L00320    
       00237  0 70000 0 00161  B4    CPY ZERO                                                         F6L00330    
       00240  2 00001 1 00237        TIX B4,1,1                                                       F6L00340    
       00241  0 76600 0 00333        IOD                                                              F6L00350    
       00242  0 02000 0 00004        TRA 4             GO TO L0ADER,                                  F6L00360    
       00243  0 00000 0 00022  L18   HTR 18                                                           F6L00370    
       00244 +000004000000     FR4   OCT 000004000000                                                 F6L00380    
 A                      00000        END                                                              F6L00390    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      42           0           0           0           0
 LIB       0           0           0           0           0
 COL      42           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       50                  
0NUMBER OF SYMBOLS,  DEF    80,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6M00010    
                                         FORTRAN 2   RECORD 112  -  OP TABLES.                        F6M00011    
                                                                                                      F6M00012    
                                         CONTROL ENTERS THIS RECORD DURING SECOND PASS OF CIT TAPE.   F6M00013    
                                                                                                      F6M00014    
                                         TABLE OF SHARE OPERATI0N CODES                               F6M00020    
                        00174  N     EQU 124                                                          F6M00030    
                        01400        ORG SOPR                                                         F6M00040    
       01400  0 56000 0 01412        LDQ OPRL          STORE NEW INSTRUCTION IN SRCH.                 F6M00050    
       01401 -0 60000 0 00037        STQ SRCH                                                         F6M00060    
       01402  0 53400 1 01413        LXA OPRS,1        SET XR1 EQUAL 16.                              F6M00070    
       01403 -0 53400 2 01413        LXD OPRS,2        SET XR2 EQUAL 64.                              F6M00080    
                                                       DOES OP COMPARE.                               F6M00081    
       01404  0 34000 2 01654  OPRT  CAS SYMOP,2                                                      F6M00090    
       01405  1 77776 1 00102        TXI LOWER,1,-2    NO, SELECT NEW OP FROM 0P TABLE.               F6M00100    
       01406  0 02000 0 01410        TRA OPRF          YES, GO TO OPRF T0 SELECT ABSOLUTE OP.         F6M00110    
       01407  1 77776 1 00101        TXI RAISE,1,-2                                                   F6M00120    
       01410 -0 50000 2 02114  OPRF  CAL ABSOP,2       SELECT ABS0LUTE OP AND RETURN                  F6M00130    
       01411  0 02000 4 00002        TRA 2,4                                                          F6M00140    
       01412 -3 00174 2 01404  OPRL  TXL OPRT,2,N      TO PROGRAM.                                    F6M00150    
       01413  0 00100 0 00020  OPRS      16,0,64                                                      F6M00160    
                        01460        ORG SYMOP-N                                                      F6M00170    
       01460  000000212343     OPTBL BCD 1000ACL                                                      F6M00180    
       01461  000000212424           BCD 1000ADD                                                      F6M00190    
       01462  000000212444           BCD 1000ADM                                                      F6M00200    
       01463  000000214362           BCD 1000ALS                                                      F6M00210    
       01464  000000214521           BCD 1000ANA                                                      F6M00220    
       01465  000000214562           BCD 1000ANS                                                      F6M00230    
       01466  000000215162           BCD 1000ARS                                                      F6M00240    
       01467  000000226263           BCD 1000BST                                                      F6M00250    
       01470  000000232124           BCD 1000CAD                                                      F6M00260    
       01471  000000232143           BCD 1000CAL                                                      F6M00270    
       01472  000000232162           BCD 1000CAS                                                      F6M00280    
       01473  000000232626           BCD 1000CFF                                                      F6M00290    
       01474  000000233062           BCD 1000CHS                                                      F6M00300    
       01475  000000234321           BCD 1000CLA                                                      F6M00310    
       01476  000000234344           BCD 1000CLM                                                      F6M00320    
       01477  000000234362           BCD 1000CLS                                                      F6M00330    
       01500  000000234644           BCD 1000COM                                                      F6M00340    
       01501  000000234770           BCD 1000CPY                                                      F6M00350    
       01502  000000242363           BCD 1000DCT                                                      F6M00360    
       01503  000000246530           BCD 1000DVH                                                      F6M00370    
       01504  000000246547           BCD 1000DVP                                                      F6M00380    
       01505  000000256344           BCD 1000ETM                                                      F6M00390    
       01506  000000262124           BCD 1000FAD                                                      F6M00400    
       01507  000000262430           BCD 1000FDH                                                      F6M00410    
       01510  000000262447           BCD 1000FDP                                                      F6M00420    
       01511  000000264447           BCD 1000FMP                                                      F6M00430    
       01512  000000264651           BCD 1000FOR                                                      F6M00440    
       01513  000000266222           BCD 1000FSB                                                      F6M00450    
       01514  000000266525           BCD 1000FVE                                                      F6M00460    
       01515  000000304751           BCD 1000HPR                                                      F6M00470    
       01516  000000306351           BCD 1000HTR                                                      F6M00480    
       01517  000000314624           BCD 1000IOD                                                      F6M00490    
       01520  000000432263           BCD 1000LBT                                                      F6M00500    
       01521  000000432421           BCD 1000LDA                                                      F6M00510    
       01522  000000432450           BCD 1000LDQ                                                      F6M00520    
       01523  000000432743           BCD 1000LGL                                                      F6M00530    
       01524  000000434362           BCD 1000LLS                                                      F6M00540    
       01525  000000435162           BCD 1000LRS                                                      F6M00550    
       01526  000000436344           BCD 1000LTM                                                      F6M00560    
       01527  000000436721           BCD 1000LXA                                                      F6M00570    
       01530  000000436724           BCD 1000LXD                                                      F6M00580    
       01531  000000444645           BCD 1000MON                                                      F6M00590    
       01532  000000444751           BCD 1000MPR                                                      F6M00600    
       01533  000000444770           BCD 1000MPY                                                      F6M00610    
       01534  000000446225           BCD 1000MSE                                                      F6M00620    
       01535  000000446330           BCD 1000MTH                                                      F6M00630    
       01536  000000446366           BCD 1000MTW                                                      F6M00640    
       01537  000000447125           BCD 1000MZE                                                      F6M00650    
       01540  000000454647           BCD 1000NOP                                                      F6M00660    
       01541  000000456351           BCD 1000NTR                                                      F6M00670    
       01542  000000465121           BCD 1000ORA                                                      F6M00680    
       01543  000000465162           BCD 1000ORS                                                      F6M00690    
       01544  000000472167           BCD 1000PAX                                                      F6M00700    
       01545  000000472263           BCD 1000PBT                                                      F6M00710    
       01546  000000472467           BCD 1000PDX                                                      F6M00720    
       01547  000000474645           BCD 1000PON                                                      F6M00730    
       01550  000000476225           BCD 1000PSE                                                      F6M00740    
       01551  000000476330           BCD 1000PTH                                                      F6M00750    
       01552  000000476366           BCD 1000PTW                                                      F6M00760    
       01553  000000476724           BCD 1000PXD                                                      F6M00770    
       01554  000000477125           BCD 1000PZE                                                      F6M00780    
       01555  000000512324           BCD 1000RCD                                                      F6M00790    
       01556  000000512451           BCD 1000RDR                                                      F6M00800    
       01557  000000512462           BCD 1000RDS                                                      F6M00810    
       01560  000000512566           BCD 1000REW                                                      F6M00820    
       01561  000000514524           BCD 1000RND                                                      F6M00830    
       01562  000000514751           BCD 1000RPR                                                      F6M00840    
       01563  000000515043           BCD 1000RQL                                                      F6M00850    
       01564  000000516322           BCD 1000RTB                                                      F6M00860    
       01565  000000516324           BCD 1000RTD                                                      F6M00870    
       01566  000000516363           BCD 1000RTT                                                      F6M00880    
       01567  000000606060           BCD 1000                                                         F6M00890    
       01570  000000622244           BCD 1000SBM                                                      F6M00900    
       01571  000000623167           BCD 1000SIX                                                      F6M00910    
       01572  000000624326           BCD 1000SLF                                                      F6M00920    
       01573  000000624345           BCD 1000SLN                                                      F6M00930    
       01574  000000624350           BCD 1000SLQ                                                      F6M00940    
       01575  000000624363           BCD 1000SLT                                                      F6M00950    
       01576  000000624366           BCD 1000SLW                                                      F6M00960    
       01577  000000624751           BCD 1000SPR                                                      F6M00970    
       01600  000000624763           BCD 1000SPT                                                      F6M00980    
       01601  000000624764           BCD 1000SPU                                                      F6M00990    
       01602  000000626244           BCD 1000SSM                                                      F6M01000    
       01603  000000626247           BCD 1000SSP                                                      F6M01010    
       01604  000000626321           BCD 1000STA                                                      F6M01020    
       01605  000000626324           BCD 1000STD                                                      F6M01030    
       01606  000000626346           BCD 1000STO                                                      F6M01040    
       01607  000000626347           BCD 1000STP                                                      F6M01050    
       01610  000000626350           BCD 1000STQ                                                      F6M01060    
       01611  000000626371           BCD 1000STZ                                                      F6M01070    
       01612  000000626422           BCD 1000SUB                                                      F6M01080    
       01613  000000626545           BCD 1000SVN                                                      F6M01090    
       01614  000000626663           BCD 1000SWT                                                      F6M01100    
       01615  000000626724           BCD 1000SXD                                                      F6M01110    
       01616  000000633167           BCD 1000TIX                                                      F6M01120    
       01617  000000634350           BCD 1000TLQ                                                      F6M01130    
       01620  000000634431           BCD 1000TMI                                                      F6M01140    
       01621  000000634546           BCD 1000TNO                                                      F6M01150    
       01622  000000634567           BCD 1000TNX                                                      F6M01160    
       01623  000000634571           BCD 1000TNZ                                                      F6M01170    
       01624  000000634665           BCD 1000TOV                                                      F6M01180    
       01625  000000634743           BCD 1000TPL                                                      F6M01190    
       01626  000000635046           BCD 1000TQO                                                      F6M01200    
       01627  000000635047           BCD 1000TQP                                                      F6M01210    
       01630  000000635121           BCD 1000TRA                                                      F6M01220    
       01631  000000636267           BCD 1000TSX                                                      F6M01230    
       01632  000000636351           BCD 1000TTR                                                      F6M01240    
       01633  000000636730           BCD 1000TXH                                                      F6M01250    
       01634  000000636731           BCD 1000TXI                                                      F6M01260    
       01635  000000636743           BCD 1000TXL                                                      F6M01270    
       01636  000000637125           BCD 1000TZE                                                      F6M01280    
       01637  000000642621           BCD 1000UFA                                                      F6M01290    
       01640  000000642644           BCD 1000UFM                                                      F6M01300    
       01641  000000642662           BCD 1000UFS                                                      F6M01310    
       01642  000000662451           BCD 1000WDR                                                      F6M01320    
       01643  000000662526           BCD 1000WEF                                                      F6M01330    
       01644  000000664751           BCD 1000WPR                                                      F6M01340    
       01645  000000664764           BCD 1000WPU                                                      F6M01350    
       01646  000000665162           BCD 1000WRS                                                      F6M01360    
       01647  000000666322           BCD 1000WTB                                                      F6M01370    
       01650  000000666324           BCD 1000WTD                                                      F6M01380    
       01651  000000666362           BCD 1000WTS                                                      F6M01390    
       01652  000000666365           BCD 1000WTV                                                      F6M01400    
       01653  000000673163           BCD 1000XIT                                                      F6M01410    
                        01720        ORG ABSOP-N                                                      F6M01420    
       01720 +036100000000           OCT +036100000000          ACL                                   F6M01430    
       01721 +040000000000           OCT +040000000000          ADD                                   F6M01440    
       01722 +040100000000           OCT +040100000000          ADM                                   F6M01450    
       01723 +076700000000           OCT +076700000000          ALS                                   F6M01460    
       01724 -032000000000           OCT -032000000000          ANA                                   F6M01470    
       01725 +032000000000           OCT +032000000000          ANS                                   F6M01480    
       01726 +077100000000           OCT +077100000000          ARS                                   F6M01490    
       01727 +076400000200           OCT +076400000200          BST                                   F6M01500    
       01730 -070000000000           OCT -070000000000          CAD                                   F6M01510    
       01731 -050000000000           OCT -050000000000          CAL                                   F6M01520    
       01732 +034000000000           OCT +034000000000          CAS                                   F6M01530    
       01733 +076000000030           OCT +076000000030          CFF                                   F6M01540    
       01734 +076000000002           OCT +076000000002          CAS                                   F6M01550    
       01735 +050000000000           OCT +050000000000          CLA                                   F6M01560    
       01736 +076000000000           OCT +076000000000          CLM                                   F6M01570    
       01737 +050200000000           OCT +050200000000          CLS                                   F6M01580    
       01740 +076000000006           OCT +076000000006          COM                                   F6M01590    
       01741 +070000000000           OCT +070000000000          CPY                                   F6M01600    
       01742 +076000000012           OCT +076000000012          DCT                                   F6M01610    
       01743 +022000000000           OCT +022000000000          DVH                                   F6M01620    
       01744 +022100000000           OCT +022100000000          DVP                                   F6M01630    
       01745 +076000000007           OCT +076000000007          ETM                                   F6M01640    
       01746 +030000000000           OCT +030000000000          FAD                                   F6M01650    
       01747 +024000000000           OCT +024000000000          FDH                                   F6M01660    
       01750 +024100000000           OCT +024100000000          FDP                                   F6M01670    
       01751 +026000000000           OCT +026000000000          FMP                                   F6M01680    
       01752 -000000000000           OCT -000000000000          FOR                                   F6M01690    
       01753 +030200000000           OCT +030200000000          FSB                                   F6M01700    
       01754 -100000000000           OCT -100000000000          FVE                                   F6M01710    
       01755 +042000000000           OCT +042000000000          HPR                                   F6M01720    
       01756 +000000000000           OCT +000000000000          HTR                                   F6M01730    
       01757 +076600000333           OCT +076600000333          IOD                                   F6M01740    
       01760 +076000000001           OCT +076000000001          LBT                                   F6M01750    
       01761 +046000000000           OCT +046000000000          LDA                                   F6M01760    
       01762 +056000000000           OCT +056000000000          LDQ                                   F6M01770    
       01763 -076300000000           OCT -076300000000          LGL                                   F6M01780    
       01764 +076300000000           OCT +076300000000          LLS                                   F6M01790    
       01765 +076500000000           OCT +076500000000          LRS                                   F6M01800    
       01766 -076000000007           OCT -076000000007          LTM                                   F6M01810    
       01767 +053400000000           OCT +053400000000          LXA                                   F6M01820    
       01770 -053400000000           OCT -053400000000          LXD                                   FSM01830    
       01771 -100000000000           OCT -100000000000          MON                                   F6M01840    
       01772 -020000000000           OCT -020000000000          MPR                                   F6M01850    
       01773 +020000000000           OCT +020000000000          MPY                                   F6M01860    
       01774 -076000000000           OCT -076000000000          MSE                                   F6M01870    
       01775 -300000000000           OCT -300000000000          MTH                                   F6M01880    
       01776 -200000000000           OCT -200000000000          MTW                                   F6M01890    
       01777 -000000000000           OCT -000000000000          MZE                                   F6M01900    
       02000 +076100000000           OCT +076100000000          NOP                                   F6M01910    
       02001 +100000000000           OCT +100000000000          NTR                                   F6M01920    
       02002 -050100000000           OCT -050100000000          ORA                                   F6M01930    
       02003 -060200000000           OCT -060200000000          ORS                                   F6M01940    
       02004 +073400000000           OCT +073400000000          PAX                                   F6M01950    
       02005 -076000000001           OCT -076000000001          PBT                                   F6M01960    
       02006 -073400000000           OCT -073400000000          PDX                                   F6M01970    
       02007 +100000000000           OCT +100000000000          PON                                   F6M01980    
       02010 +076000000000           OCT +076000000000          PSE                                   F6M01990    
       02011 +300000000000           OCT +300000000000          PTH                                   F6M02000    
       02012 +200000000000           OCT +200000000000          PTW                                   F6M02010    
       02013 -075400000000           OCT -075400000000          PXD                                   F6M02020    
       02014 +000000000000           OCT +000000000000          PZE                                   F6M02030    
       02015 +076200000321           OCT +076200000321          RCD                                   F6M02040    
       02016 +076200000300           OCT +076200000300          RDR                                   F6M02050    
       02017 +076200000000           OCT +076200000000          RDS                                   F6M02060    
       02020 +077200000200           OCT +077200000200          REW                                   F6M02070    
       02021 +076000000010           OCT +076000000010          RND                                   F6M02080    
       02022 +076200000361           OCT +076200000361          RPR                                   F6M02090    
       02023 -077300000000           OCT -077300000000          RQL                                   F6M02100    
       02024 +076200000220           OCT +076200000220          RTB                                   F6M02110    
       02025 +076200000200           OCT +076200000200          RTD                                   F6M02120    
       02026 -076000000012           OCT -076000000012          RTT                                   F6M02130    
       02027 +000000000000           OCT +000000000000                                                F6M02140    
       02030 -040000000000           OCT -040000000000          SBM                                   F6M02150    
       02031 -200000000000           OCT -200000000000          SIX                                   F6M02160    
       02032 +076000000140           OCT +076000000140          SLF                                   F6M02170    
       02033 +076000000140           OCT +076000000140          SLN                                   F6M02180    
       02034 -062000000000           OCT -062000000000          SLQ                                   F6M02190    
       02035 -076000000140           OCT -076000000140          SLT                                   F6M02200    
       02036 +060200000000           OCT +060200000000          SLW                                   F6M02210    
       02037 +076000000360           OCT +076000000360          SPR                                   F6M02220    
       02040 +076000000360           OCT +076000000360          SPT                                   F6M02230    
       02041 +076000000340           OCT +076000000340          SPU                                   F6M02240    
       02042 -076000000003           OCT -076000000003          SSM                                   F6M02250    
       02043 +076000000003           OCT +076000000003          SSP                                   F6M02260    
       02044 +062100000000           OCT +062100000000          STA                                   F6M02270    
       02045 +062200000000           OCT +062200000000          STD                                   F6M02280    
       02046 +060100000000           OCT +060100000000          STO                                   F6M02290    
       02047 +063000000000           OCT +063000000000          STP                                   F6M02300    
       02050 -060000000000           OCT -060000000000          STQ                                   F6M02310    
       02051 +060000000000           OCT +060000000000          STZ                                   F6M02320    
       02052 +040200000000           OCT +040200000000          SUB                                   F6M02330    
       02053 -300000000000           OCT -300000000000          SVN                                   F6M02340    
       02054 +076000000160           OCT +076000000160          SWT                                   F6M02350    
       02055 -063400000000           OCT -063400000000          SXD                                   F6M02360    
       02056 +200000000000           OCT +200000000000          TIX                                   F6M02370    
       02057 +004000000000           OCT +004000000000          TLQ                                   F6M02380    
       02060 -012000000000           OCT -012000000000          TMI                                   F6M02390    
       02061 -014000000000           OCT -014000000000          TNO                                   F6M02400    
       02062 -200000000000           OCT -200000000000          TNX                                   F6M02410    
       02063 -010000000000           OCT -010000000000          TNZ                                   F6M02420    
       02064 +014000000000           OCT +014000000000          TOV                                   F6M02430    
       02065 +012000000000           OCT +012000000000          TPL                                   F6M02440    
       02066 +016100000000           OCT +016100000000          TQO                                   F6M02450    
       02067 +016200000000           OCT +016200000000          TQP                                   F6M02460    
       02070 +002000000000           OCT +002000000000          TRA                                   F6M02470    
       02071 +007400000000           OCT +007400000000          TSX                                   F6M02480    
       02072 +002100000000           OCT +002100000000          TTR                                   F6M02490    
       02073 +300000000000           OCT +300000000000          TXH                                   F6M02500    
       02074 +100000000000           OCT +100000000000          TXI                                   F6M02510    
       02075 -300000000000           OCT -300000000000          TXL                                   F6M02520    
       02076 +010000000000           OCT +010000000000          TZE                                   F6M02530    
       02077 -030000000000           OCT -030000000000          UFA                                   F6M02540    
       02100 -026000000000           OCT -026000000000          UFM                                   F6M02550    
       02101 -030200000000           OCT -030200000000          UFS                                   F6M02560    
       02102 +076600000300           OCT +076600000300          WDR                                   F6M02570    
       02103 +077000000200           OCT +077000000200          WEF                                   F6M02580    
       02104 +076600000361           OCT +076600000361          WPR                                   F6M02590    
       02105 +076600000341           OCT +076600000341          WPU                                   F6M02600    
       02106 +076600000000           OCT +076600000000          WRS                                   F6M02610    
       02107 +076600000220           OCT +076600000220          WTB                                   F6M02620    
       02110 +076600000200           OCT +076600000200          WTD                                   F6M02630    
       02111 +076600000320           OCT +076600000320          WTS                                   F6M02640    
       02112 +076600000030           OCT +076600000030          WTV                                   F6M02650    
       02113 +002100000000           OCT +002100000000          XIT                                   F6M02660    
                        01400        END SOPR                                                         F6M02670    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     274           0           0           0           0
 LIB       0           0           0           0           0
 COL     274           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      282                  
0NUMBER OF SYMBOLS,  DEF    77,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ************* FORTRAN II SECTION SIX ************************F6N00010    
                                         FORTRAN 2   RECORD 113  -  SECOND PASS OF CIT TAPE.          F6N00011    
                                                                                                      F6N00012    
                                         SECOND PASS OVER CIT TAPE                                    F6N00020    
                        00210        ORG 136                                                          F6N00030    
       00210  0 77200 0 00204        REW 4             REWIND TAPE 4,                                 F6N00040    
       00211  0 50000 0 00170        CLA LIFN          STORE IFN TABLE ADDRESS.                       F6N00050    
       00212  0 62100 0 00332        STA SA9                                                          F6N00060    
       00213  0 62100 0 00554        STA SL9                                                          F6N00070    
 T     00214 -0 75400 0 00000        PXD                                                              F6N00080    
       00215  0 60100 0 00166        STO L1            CLEAR L1 AND L2.                               F6N00090    
       00216  0 60100 0 00167        STO L2                                                           F6N00100    
       00217  0 53400 2 00224        LXA RDC,2         SET READ ERROR COUNTER.                        F6N00110    
       00220  0 02000 0 00225        TRA RD                                                           F6N00120    
       00221  0 76400 0 00204  ERR   BST 4             READ-ERROR PROCEDURE                           F6N00130    
       00222  2 00001 2 00225        TIX RD,2,1                                                       F6N00140    
       00223  0 07400 4 00004        TSX 4,4                                                          F6N00150    
       00224  0 42000 0 00005  RDC   HPR 5                                                            F6N00160    
       00225  0 76200 0 00224  RD    RTB 4             READ RECORD OF                                 F6N00170    
       00226  0 53400 4 00164        LXA ADDR,4        CIT TAPE 4.                                    F6N00180    
       00227  0 70000 4 01256  RD1   CPY REC-2,4                                                      F6N00190    
       00230  1 00001 4 00227        TXI RD1,4,1                                                      F6N00200    
       00231  0 02000 0 00571        TRA EOF                                                          F6N00210    
       00232  0 77100 0 00377        ARS 255                                                          F6N00220    
       00233  0 77100 0 00377        ARS 255                                                          F6N00230    
       00234 -0 76000 0 00012        RTT                                                              F6N00240    
       00235  0 02000 0 00221        TRA ERR                                                          F6N00250    
       00236 -0 63400 4 00565        SXD RD2,4                                                        F6N00260    
       00237 -0 53400 4 00164        LXD ADDR,4                                                       F6N00270    
       00240 -0 63400 4 00567  RD4   SXD RD3,4                                                        F6N00280    
       00241  0 50000 4 01257        CLA REC-1,4       SELECT                                         F6N00290    
       00242  0 60100 0 00727        STO SL            SYMBOLIC LOCATION,                             F6N00300    
       00243  0 50000 4 01256        CLA REC-2,4                                                      F6N00310    
       00244  0 60100 0 00726        STO OP            SYMBOLIC OP,                                   F6N00320    
       00245  0 50000 4 01255        CLA REC-3,4                                                      F6N00330    
       00246  0 60100 0 00730        STO SA            SYMBOLIC ADDRESS,                              F6N00340    
       00247  0 50000 4 01254        CLA REC-4,4                                                      F6N00350    
       00250  0 60100 0 00731        STO RA            RELATIVE ADDRESS.                              F6N00360    
 T     00251 -0 75400 0 00000        PXD                                                              F6N00370    
       00252  0 60100 0 00174        STO EA            CLEAR EA,                                      F6N00380    
       00253  0 60100 0 00732        STO RBIT          RBIT,                                          F6N00390    
       00254  0 60100 0 00733        STO CBIT          CBIT.                                          F6N00400    
       00255 -0 50000 0 00726        CAL OP                                                           F6N00410    
       00256  0 76500 0 00022        LRS 18                                                           F6N00420    
       00257  0 34000 0 00721        CAS OCT           OP EQUAL OCT TEST.                             F6N00430    
       00260  0 02000 0 00265        TRA SA1                                                          F6N00440    
       00261  0 02000 0 00513        TRA DATOP         YES OP EQUAL OCT. TRANSFER TO DATOP.           F6N00450    
       00262  0 34000 0 00723        CAS BCD           OP EQUAL BCD TEST.                             F6N00460    
       00263  0 02000 0 00265        TRA SA1                                                          F6N00470    
       00264  0 02000 0 00513        TRA DATOP         YES OP EQUAL BCD. TRANSFER TO DATOP.           F6N00480    
       00265 -0 50000 0 00730  SA1   CAL SA            OP NOT BCD OR OCT.                             F6N00490    
       00266  0 10000 0 00341        TZE OPCAS         TRANSFER T0 OPCAS IF SA EQUAL 0.               F6N00500    
       00267  0 76500 0 00036        LRS 30                                                           F6N00510    
       00270  0 10000 0 00323        TZE SA3           TRANSFER IF SA(1) EQUAL ZERO.                  F6N00520    
       00271  0 73400 4 00000        PAX 0,4                                                          F6N00530    
       00272  3 00017 4 00301        TXH SA4,4,15      TRANSFER IF SA(1) GREATER THAN 15.             F6N00540    
       00273  3 00016 4 00335        TXH SAB,4,14      TRANSFER IF SA(1) EQUAL 15.                    F6N00550    
       00274 -0 77300 0 00016  SA6   RQL 14            SA(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO     F6N00560    
       00275 -0 76300 0 00021        LGL 17            OBTAIN LOC FROM                                F6N00570    
       00276  0 07400 4 00121  SA7   TSX STIV,4        TIV.                                           F6N00580    
       00277  0 07400 4 00004        TSX 4,4           ERROR,IF NOT IN TIV.                           F6N00590    
       00300  0 02000 0 00336        TRA SA2           SA(1) GREATER THAN 15.                         F6N00600    
       00301  0 50000 0 00730  SA4   CLA SA                     SA(1) GREATER THAN 15                 F6N00610    
       00302  0 40200 0 00321        SUB DOL1                                                         F6N00620    
       00303  0 10000 0 00314        TZE LIB10         TRANSFER IF SA EQUAL DOL1 OR DOL2.             F6N00630    
       00304  0 40000 0 00321        ADD DOL1                                                         F6N00640    
       00305  0 40200 0 00322        SUB DOL2                                                         F6N00650    
       00306  0 10000 0 00316        TZE LIB11                                                        F6N00660    
       00307  0 50000 0 00730        CLA SA                                                           F6N00670    
       00310  0 07400 4 00142        TSX SDEV,4        OBTAIN LOC FROM                                F6N00680    
       00311  0 07400 4 00103        TSX STEV,4        TEV OR DEV.                                    F6N00690    
       00312  0 07400 4 00004        TSX 4,4           ERROR IF NOT IN DEV OR TEV.                    F6N00700    
       00313  0 02000 0 00336        TRA SA2                                                          F6N00710    
       00314  0 50000 0 00204  LIB10 CLA DOLSI         LOCATION FROM ADDRESS OF DOLSI.                F6N00720    
       00315  0 02000 0 00336        TRA SA2                                                          F6N00730    
       00316  0 50000 0 00204  LIB11 CLA DOLSI                                                        F6N00740    
       00317  0 77100 0 00022        ARS 18            LOCATION FROM DECREMENT OF DOLSI.              F6N00750    
       00320  0 02000 0 00336        TRA SA2                                                          F6N00760    
       00321  536000000000     DOL1  BCD 1$ 0000                                                      F6N00770    
       00322  535360000000     DOL2  BCD 1$$ 000                                                      F6N00780    
       00323  0 53400 4 00730  SA3   LXA SA,4          SA(1) EQUAL ZERO.                              F6N00790    
       00324 -3 00000 4 00331        TXL SA5,4,0       IFN TEST. TRANSFER TO OBTAIN RELOCAT. LOC. FROMF6N00800    
                                                       IFN.                                           F6N00801    
       00325 -0 76300 0 00015        LGL 13            IFN WITH RELATIVE LOCATION. ASSEMBLE SYMBOLIC  F6N00810    
       00326 -0 77300 0 00012        RQL 10            ADDRESS AND GO                                 F6N00820    
       00327 -0 76300 0 00006        LGL 6             OBTAIN LOC FROM TIV.                           F6N00830    
       00330  0 02000 0 00276        TRA SA7                                                          F6N00840    
       00331 -0 53400 4 00730  SA5   LXD SA,4          OCTAIN LOC FROM                                F6N00850    
 U     00332  0 50000 4        SA9   CLA IFN,4         IFN TABLE.                                     F6N00860    
       00333  0 77100 0 00022        ARS 18                                                           F6N00870    
       00334  0 02000 0 00336        TRA SA2                                                          F6N00880    
       00335  0 50000 0 00166  SAB   CLA L1            SA(1) EQUAL 15, SET LOCATION EQUAL L1.         F6N00890    
       00336  0 62100 0 00174  SA2   STA EA            STORE LOCATION IN ADORESS OF EA.               F6N00900    
       00337  0 50000 0 00163        CLA TWO           SET RBIT AS RELOCATABLE.                       F6N00910    
       00340  0 60100 0 00732        STO RBIT                                                         F6N00920    
       00341 -0 50000 0 00726  OPCAS CAL OP            ALL OPS NOT OCT OR BCD.                        F6N00930    
       00342  0 76500 0 00022        LRS 18                                                           F6N00940    
       00343  0 34000 0 00720        CAS SYN           TEST FOR OP EQUAL SYN OR BSS.                  F6N00950    
       00344  0 02000 0 00351        TRA ORDOP                                                        F6N00960    
       00345  0 02000 0 00515        TRA SYNOP         TRANSFER TO SYNOP IF OP EQUAL SYN.             F6N00970    
       00346  0 34000 0 00722        CAS BSS                                                          F6N00980    
       00347  0 02000 0 00351        TRA ORDOP                                                        F6N00990    
       00350  0 02000 0 00503        TRA BSSOP         TRANSFER T0 BSSOP IF OP EQUAL BSS.             F6N01000    
       00351  0 07400 4 01400  ORDOP TSX SOPR,4        SEARCH FOR OP.                                 F6N01010    
       00352  0 07400 4 00004        TSX 4,4           ERROR IF NOT FOUND.                            F6N01020    
       00353  0 60200 0 00734        SLW WORD          STORE OCT OP.                                  F6N01030    
       00354  0 50000 0 00731        CLA RA            COMPUTE ADDRESS EQUAL                          F6N01040    
       00355  0 77100 0 00022        ARS 18            TO LOC. PLUS RELATIVE ADDRESS.                 F6N01050    
       00356  0 40000 0 00174        ADD EA                                                           F6N01060    
       00357  0 60100 0 00735        STO TEST1         SAVE ADDRESS IN TEST 1                         F6N01070    
       00360  0 50000 0 00174        CLA EA            LOCATION GREATER THAN PGBK                     F6N01080    
       00361  0 40200 0 00176        SUB PGBK                                                         F6N01090    
       00362  0 12000 0 00375        TPL COMM          YES, TRANSFER                                  F6N01100    
       00363  0 50000 0 00735        CLA TEST1         NO, SEE IF                                     F6N01110    
       00364  0 40200 0 00176        SUB PGBK          ADDRESS GREATER THAN PGBK.                     F6N01120    
       00365  0 12000 0 00372        TPL LIB40         YES, G0 TO STORE ONE IN CBIT                   F6N01130    
       00366  0 02000 0 00367        TRA LIB50         NO, CBIT=0                                     F6N01140    
       00367  0 50000 0 00735  LIB50 CLA TEST1                                                        F6N01150    
       00370  0 76500 0 00017        LRS 15                                                           F6N01160    
       00371  0 02000 0 00404        TRA TG                                                           F6N01170    
       00372  0 50000 0 00162  LIB40 CLA ONE                                                          F6N01180    
       00373  0 60100 0 00733        STO CBIT          STORE 1 IN CBIT                                F6N01190    
       00374  0 02000 0 00367        TRA LIB50                                                        F6N01200    
       00375  0 50000 0 00735  COMM  CLA TEST1                                                        F6N01210    
       00376  0 12000 0 00400        TPL TA                                                           F6N01220    
       00377  0 40000 0 00724        ADD TAG           IF NEG MAKE C0MP                               F6N01230    
       00400  0 76500 0 00017  TA    LRS 15            TEST FOR COMP                                  F6N01240    
       00401  0 10000 0 00404        TZE TG            ADDRESS.                                       F6N01250    
       00402  0 50000 0 00162        CLA ONE                                                          F6N01260    
       00403  0 60100 0 00733        STO CBIT          INDICATE COMP DATA.                            F6N01270    
       00404 -0 50000 0 00731  TG    CAL RA            COMBINE TAG, BINARY                            F6N01280    
       00405  0 76500 0 00003        LRS 3             DECREMENT, ADDRESS, AND                        F6N01290    
       00406 -0 50000 0 00726        CAL OP            OP.                                            F6N01300    
       00407  0 76300 0 00022        LLS 18                                                           F6N01310    
       00410 -0 50100 0 00734        ORA WORD                                                         F6N01320    
       00411  0 60200 0 00734  STORE SLW WORD          STORE INSTRUCTION.                             F6N01330    
       00412  0 50000 0 00166        CLA L1                     UPDATE PROG CTR                       F6N01340    
       00413  0 60100 0 00167        STO L2            AND PROGRAM BREAK                              F6N01350    
       00414  0 40000 0 00162        ADD ONE           FOR ALL OPS.                                   F6N01360    
       00415  0 60100 0 00166        STO L1                                                           F6N01370    
       00416 -0 53400 4 00512  RLCPU LXD RLC1,4        MODIFY RLC4.                                   F6N01380    
       00417  2 00001 4 00431        TIX RLC2,4,1      TRANSFER IF RLC1 NOT ZERO.                     F6N01390    
       00420  0 50000 0 00461        CLA RLC3          RLC1 IS ZERO SO                                F6N01400    
       00421  0 62200 0 00512        STD RLC1          INITIALIZE IT TO 20.                           F6N01410    
       00422 -0 53400 4 00502        LXD WCT,4         SET INDEX REGISTER 4, DECREMENT OF             F6N01420    
 T     00423 -0 75400 0 00000        PXD               RLCB AND RLC6 EQUAL ZERO.                      F6N01430    
       00424 -0 63400 4 00501        SXD RLC8,4                                                       F6N01440    
       00425  0 62200 0 00514        STD RLC6          SET ABL AND ABR EQUAL ZERO.                    F6N01450    
       00426  0 60200 4 00736        SLW ABL,4                                                        F6N01460    
       00427  0 60200 4 00737        SLW ABR,4                                                        F6N01470    
       00430  1 77776 4 00433        TXI RLC4,4,-2     MODIFY WORD COUNT.                             F6N01480    
       00431 -0 63400 4 00512  RLC2  SXD RLC1,4        SAVE LENGTH OF CARD COUNT.                     F6N01490    
       00432 -0 53400 4 00502        LXD WCT,4                                                        F6N01500    
       00433  0 50000 0 00734  RLC4  CLA WORD          STORE INSTRUCTION IN ABL BLOCK                 F6N01510    
       00434  0 60100 4 00736        STO ABL,4                                                        F6N01520    
       00435  1 77777 4 00436        TXI RLC5,4,-1     MODIFY WORD COUNT                              F6N01530    
       00436 -0 63400 4 00502  RLC5  SXD WCT,4         SAVE NEW WORD COUNT.                           F6N01540    
       00437 -0 53400 4 00514        LXD RLC6,4        MODIFY RELOCATION BITS                         F6N01550    
       00440  1 00002 4 00441        TXI RLC7,4,2      COUNT.                                         F6N01560    
       00441 -0 63400 4 00514  RLC7  SXD RLC6,4        SAVE RELO. BITS COUNT.                         F6N01570    
       00442  0 50000 0 00732        CLA RBIT          TEST RELOCATION BIT.                           F6N01580    
       00443  0 10000 0 00455        TZE RLCC          TRANSFER IF ZERO.                              F6N01590    
       00444 -0 50100 0 00733        ORA CBIT                                                         F6N01600    
       00445  1 00001 4 00446        TXI RLCB,4,1      MODIFY RELOC. BITS COUNT                       F6N01610    
       00446 -0 63400 4 00514  RLCB  SXD RLC6,4                                                       F6N01620    
       00447  0 76500 0 00043        LRS 35                                                           F6N01630    
       00450 -0 76300 4 00110        LGL 72,4          MAKE ABR AND ABL RELATIVE BY                   F6N01640    
       00451 -0 53400 4 00501        LXD RLC8,4        STORING RELOCATION BITS.                       F6N01650    
       00452 -0 60200 4 00736        ORS ABL,4                  STORE RELO BITS                       F6N01660    
       00453 -0 76300 0 00044        LGL 36                                                           F6N01670    
       00454 -0 60200 4 00737        ORS ABR,4                                                        F6N01680    
       00455 -0 53400 4 00514  RLCC  LXD RLC6,4        TEST IF TOO MANY RELOCATABLE                   F6N01690    
       00456  3 00104 4 00462        TXH ST8,4,68      BITS TO PUNCH COMPLETE CARD. YES, TRANSFER.    F6N01700    
       00457 -0 53400 4 00502        LXD WCT,4         NO, TEST END OF PUNCH BLOCK.                   F6N01710    
       00460 -3 77622 4 00464  ST2   TXL ST3,4,-110    IF BLOCK FULL, TRANSFER TO ST 3.               F6N01720    
       00461  1 00024 0 00521  RLC3  TXI SLS,0,20      RETURN TO GET SL                               F6N01730    
       00462 -0 53400 4 00502  ST8   LXD WCT,4         TEST WCT FOR ZERO.                             F6N01740    
 D     00463 -3 00000 4 00475        TXL ST4,4                                                        F6N01750    
       00464 -0 75400 4 00000  ST3   PXD 0,4           COMPUTE LAST ADDRESS                           F6N01760    
       00465  0 76000 0 00006        COM               IN BLOCK (UNCOMPLEMENT WORD COUNT),            F6N01770    
       00466 -0 73400 4 00000        PDX 0,4                                                          F6N01780    
       00467  1 00736 4 00470        TXI STD,4,ABL                                                    F6N01790    
       00470 -0 63400 4 00473  STD   SXD ST5,4         SAVE IT.                                       F6N01800    
       00471 -0 63400 4 00473        SXD ST5,4                                                        F6N01810    
       00472  0 07400 4 00600        TSX ABPCH,4       EXIT TO PUNCH CARD                             F6N01820    
       00473  0 00000 0 00736  ST5       ABL                                                          F6N01830    
       00474  0 42000 0 00000  ST6   HPR                                                              F6N01840    
       00475  0 50000 0 00166  ST4   CLA L1            SET ADDRESS PART OF                            F6N01850    
       00476  0 62100 0 00474        STA ST6           ST6 TO PROGRAM BREAK.                          F6N01860    
 T     00477 -0 63400 0 00502        SXD WCT           SET WCT, RLC1 TO                               F6N01870    
 T     00500 -0 63400 0 00512        SXD RLC1          ZERO.                                          F6N01880    
 TD    00501  1 00000 0 00521  RLC8  TXI SLS           RETURN TO GET SL.                              F6N01890    
       00502  0 00000 0 00000  WCT   HTR 0                                                            F6N01900    
       00503  0 50000 0 00166  BSSOP CLA L1            OP IS BSS.                                     F6N01910    
       00504  0 60100 0 00167        STO L2            STORE PROGRAM COUNTER,                         F6N01920    
       00505  0 50000 0 00731        CLA RA            UP0ATE PROG BREAK,                             F6N01930    
       00506  0 10000 0 00521        TZE SLS           AND GO TO PUNCH                                F6N01940    
       00507  0 77100 0 00022        ARS 18            ACARD IF NECESSARY,                            F6N01950    
       00510  0 40000 0 00166        ADD L1            STORE NEW ADDRESS                              F6N01960    
       00511  0 60100 0 00166        STO L1            FOR LOADING.                                   F6N01970    
 TD    00512  1 00000 0 00462  RLC1  TXI ST8                                                          F6N01980    
       00513 -0 50000 0 00730  DATOP CAL SA            OCT OR BCD OP.                                 F6N01990    
 TD    00514  1 00000 0 00411  RLC6  TXI STORE                                                        F6N02000    
       00515  0 50000 0 00174  SYNOP CLA EA            OP IS SYN.                                     F6N02010    
       00516  0 60100 0 00167        STO L2            SET PROG CTR EQUAL ADDRESS                     F6N02020    
       00517 -0 10000 0 00521        TNZ SLS                                                          F6N02030    
       00520  0 07400 4 00004        TSX 4,4                                                          F6N02040    
       00521 -0 50000 0 00727  SLS   CAL SL            ALL OPS. TEST SL                               F6N02050    
       00522  0 10000 0 00563        TZE SL6           TRANSFER IF SL IS ZERO.                        F6N02060    
       00523  0 76500 0 00036        LRS 30                                                           F6N02070    
       00524  0 10000 0 00535        TZE SL1           TRANSFER IF SL(1) EQUAL ZERO.                  F6N02080    
       00525  0 73400 4 00000        PAX 0,4                                                          F6N02090    
       00526  3 00017 4 00552        TXH SL2,4,15      SL(1) GREATER THAN 15.                         F6N02100    
       00527  3 00016 4 00563        TXH SL3,4,14      SL(1) EQUAL 15.                                F6N02110    
       00530 -0 77300 0 00016        RQL 14            SL(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO     F6N02120    
       00531 -0 76300 0 00021        LGL 17            SEE IF ITS IN TIV.                             F6N02130    
       00532  0 07400 4 00121        TSX STIV,4                                                       F6N02140    
       00533  0 02000 0 00563        TRA SL6           NOT IN TABLE.                                  F6N02150    
       00534  0 02000 0 00556        TRA SL4           IN TABLE. GO STORE LOCATION IN EA.             F6N02160    
       00535  0 53400 4 00727  SL1   LXA SL,4          SL(1) EQUAL ZERO. TEST ADORESS PART OF SL.     F6N02170    
 D     00536 -3 00000 4 00553        TXL SL7,4         ZERO. EXIT TO GET IFN LOCATION.                F6N02180    
       00537 -0 76300 0 00015        LGL 13            NOT ZERO. ASSEMBLE SYMBOL                      F6N02190    
       00540 -0 77300 0 00012        RQL 10            AND GO SEARCH TIV TABLE.                       F6N02200    
       00541 -0 76300 0 00006        LGL 6                                                            F6N02210    
       00542  0 07400 4 00121        TSX STIV,4                                                       F6N02220    
       00543  0 02000 0 00563        TRA SL6           NOT IN TIV TABLE, SO TRANSFER.                 F6N02230    
       00544  0 62100 0 00174        STA EA            IN TIV TABLE. RETURN WITH LOCATION             F6N02240    
       00545  0 50000 0 00174        CLA EA            IN ADDRESS. TEST ADDRESS.                      F6N02250    
       00546 -0 10000 0 00560        TNZ SL5           TRANSFER IF NOT ZERO.                          F6N02260    
       00547  0 50000 0 00167  SL8   CLA L2            ZERO. PUT L2 IN TIV TABLE AS LOCATION.         F6N02270    
       00550  0 62100 2 02114        STA TIV,2                                                        F6N02280    
       00551  0 02000 0 00563        TRA SL6                                                          F6N02290    
       00552  0 02000 0 00563  SL2   TRA SL6                                                          F6N02300    
       00553 -0 53400 4 00727  SL7   LXD SL,4          IFN LOCATION.                                  F6N02310    
 U     00554  0 50000 4        SL9   CLA IFN,4                                                        F6N02320    
       00555  0 77100 0 00022        ARS 18                                                           F6N02330    
       00556  0 62100 0 00174  SL4   STA EA            CHECK STORED LOCATION (FROM TIV).              F6N02340    
       00557  0 50000 0 00174        CLA EA                     EQUAL PROG CTR                        F6N02350    
       00560  0 40200 0 00167  SL5   SUB L2            IF NOT EQUAL TO L2, GO TO ERROR HALT.          F6N02360    
       00561  0 10000 0 00563        TZE SL6                                                          F6N02370    
       00562  0 07400 4 00004        TSX 4,4                                                          F6N02380    
 A                      00563  SL3   BSS                                                              F6N02390    
 A                      00563  SL6   BSS                                                              F6N02400    
       00563 -0 53400 4 00567        LXD RD3,4         MODIFY TO GET NEW CIT.                         F6N02410    
       00564  1 00004 4 00565        TXI RD2,4,4                                                      F6N02420    
       00565 -3 00000 4 00240  RD2   TXL RD4,4,**                                                     F6N02430    
       00566  0 53400 2 00224        LXA RDC,2                                                        F6N02440    
       00567  1 00000 0 00225  RD3   TXI RD,0,**                                                      F6N02450    
       00570  0 00000 0 00000  TEST6 HTR 0                                                            F6N02460    
       00571  0 50000 0 00574  EOF   CLA LBT           SET RETURN OF ST4 TO EOT.                      F6N02470    
       00572  0 60100 0 00475        STO ST4                    IF NECESSARY ON END OF                F6N02480    
       00573  0 02000 0 00462        TRA ST8                    FILE                                  F6N02490    
 TD    00574  1 00000 0 00575  LBT   TXI EOT                                                          F6N02500    
       00575  0 77200 0 00204  EOT   REW 4             REWIND TAPE 4 AND RETURN TO LOADER.            F6N02510    
       00576  0 76200 0 00221        RTB 1                                                            F6N02520    
       00577  0 02000 0 00004        TRA 4                                                            F6N02530    
       00600 -0 50000 4 00001  ABPCH CAL 1,4           TO PUNCH CARD.                                 F6N02540    
       00601  0 62200 0 00645        STD PCH1          COMPUTE LAST ADDRESS PLUS ONE, AND             F6N02550    
       00602  0 77100 0 00022        ARS 18            TOTAL WORD COUNT.                              F6N02560    
       00603  0 40000 0 00645        ADD PCH1                                                         F6N02570    
       00604  0 62100 0 00617        STA PCH2                                                         F6N02580    
       00605  0 62100 0 00635        STA PCH3                                                         F6N02590    
       00606 -0 40000 4 00001        SBM 1,4                                                          F6N02600    
       00607  0 10000 4 00002        TZE 2,4           G0 TO HALT IF WORD COUNT LESS                  F6N02610    
       00610 -0 12000 4 00002        TMI 2,4           THAN ONE.                                      F6N02620    
       00611  0 73400 1 00000        PAX 0,1                                                          F6N02630    
       00612  0 50000 4 00002        CLA 2,4           OBTAIN FIRST ADDRESS.                          F6N02640    
       00613  0 76600 0 00223  PCH8  WTB 3             SELECT TAPE THREE.                             F6N02650    
       00614  0 62100 0 00646        STA VR            SET LOADING ADDRESS.                           F6N02660    
       00615  0 76000 0 00000        CLM                                                              F6N02670    
       00616  0 53400 2 00645        LXA PCH1,2                                                       F6N02680    
       00617  0 36100 1 00000  PCH2  ACL 0,1           FORM CHECK SUM.                                F6N02690    
       00620  3 00025 2 00623        TXH PCH5,2,21                                                    F6N02700    
       00621 -2 00001 1 00623        TNX PCH5,1,1                                                     F6N02710    
       00622  1 00001 2 00617        TXI PCH2,2,1                                                     F6N02720    
       00623 -0 63400 2 00633  PCH5  SXD PCH6,2        STORE WORD COUNT.                              F6N02730    
       00624  1 77776 2 00625        TXI PCHR,2,-2                                                    F6N02740    
       00625 -0 63400 2 00646  PCHR  SXD VR,2                                                         F6N02750    
       00626  0 36100 0 00646        ACL VR                                                           F6N02760    
       00627  0 60200 0 00647        SLW SUM           STORE CHECK SUM.                               F6N02770    
       00630  0 70000 0 00646        CPY VR                                                           F6N02780    
       00631  0 70000 0 00647        CPY SUM                                                          F6N02790    
       00632  1 00002 2 00633        TXI PCH6,2,2                                                     F6N02800    
 D     00633  1 00000 1 00634  PCH6  TXI PCH9,1                                                       F6N02810    
       00634  1 77777 1 00635  PCH9  TXI PCH3,1,-1                                                    F6N02820    
       00635  0 70000 1 00000  PCH3  CPY 0,1           COPY RECORD ONTO TAPE THREE.                   F6N02830    
       00636  2 00001 2 00634        TIX PCH9,2,1                                                     F6N02840    
       00637  0 50000 0 00646  PCH7  CLA VR            COMPUTE LOADING ADDRESS FOR NEXT CARD.         F6N02850    
       00640  0 77100 0 00022        ARS 18                                                           F6N02860    
       00641  0 40000 0 00646        ADD VR                                                           F6N02870    
       00642  2 00001 1 00613        TIX PCH8,1,1                                                     F6N02880    
       00643  0 76600 0 00333        IOD                                                              F6N02890    
       00644  0 02000 4 00003        TRA 3,4           RETURN TO PROGRAM.                             F6N02900    
       00645  0 00000 0 00001  PCH1  HTR 1                                                            F6N02910    
 ATD   00646  2 00000 0 00000  VR    TIX                                                              F6N02920    
       00647  0 00000 0 00000  SUM   HTR 0                                                            F6N02930    
                        00613  WRS1  SYN PCH8                                                         F6N02940    
                        00650        BSS 40                                                           F6N02950    
       00720  000000627045     SYN   BCD 1000SYN                                                      F6N02960    
       00721  000000462363     OCT   BCD 1000OCT                                                      F6N02970    
       00722  000000226262     BSS   BCD 1000BSS                                                      F6N02980    
       00723  000000222324     BCD   BCD 1000BCD                                                      F6N02990    
       00724  0 00000 4 00000  TAG   HTR 0,4                                                          F6N03000    
 TD    00725  2 00000 0 00000  TCD   TIX 0                                                            F6N03010    
       00726  0 00000 0 00000  OP    HTR 0                                                            F6N03020    
       00727  0 00000 0 00000  SL    HTR 0                                                            F6N03030    
       00730  0 00000 0 00000  SA    HTR 0                                                            F6N03040    
       00731  0 00000 0 00000  RA    HTR 0                                                            F6N03050    
       00732  0 00000 0 00000  RBIT  HTR 0                                                            F6N03060    
       00733  0 00000 0 00000  CBIT  HTR 0                                                            F6N03070    
       00734  0 00000 0 00000  WORD  HTR 0                                                            F6N03080    
       00735  0 00000 0 00000  TEST1 HTR 0                                                            F6N03090    
                        00736  ABL   BSS 1                                                            F6N03100    
                        00737  ABR   BSS 109                                                          F6N03110    
                        01260  REC   BES 100                                                          F6N03120    
                        01260  RLP   SYN REC                                                          F6N03130    
 A                      00000        END                                                              F6N03140    
                        00001 0  IFN
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     319           0           0           0           0
 LIB       0           0           0           0           0
 COL     319           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      328                  
0NUMBER OF SYMBOLS,  DEF   166,DEFOP     0,UNDEF     1      
9            REM AST                                                                      
1                                        AST                                                                      
                                         FORTRAN 2   RECORD 115  -  LIBRARY SEARCH.                   F6P00010    
                                                                                                      F6P00020    
                                         LIBRARY SEARCH                                               F6P00030    
                        00030  PC1   SYN 24                                                           F6P00040    
                        00036  SUBIN SYN 30                                                           F6P00050    
 M                      02114  ABSOP SYN 1100                                                         F6P00060    
 M                      00162  ONE   SYN 114                                                          F6P00070    
 M                      00177  SW1   SYN 127                                                          F6P00080    
 M                      02114  TRB   SYN ABSOP                                                        F6P00090    
 M                      00203  SW5   SYN 131                                                          F6P00100    
 M                      00163  TWO   SYN 115                                                          F6P00110    
 M                      00161  ZERO  SYN 113                                                          F6P00120    
                        00210        ORG 136                                                          F6P00130    
       00210  0 53400 1 00544        LXA RDC,1         SET DRUM READ ERROR COUNTER.                   F6P00140    
       00211  0 76200 0 00303  D5    RDR 3             SELECT DRUM 3 (TRANSFER VECTOR TABLE).         F6P00150    
 T     00212 -0 75400 0 00000  A4    PXD 0                      TRANSFER VECTOR                       F6P00160    
       00213  0 46000 0 00212        LDA A4                                                           F6P00170    
       00214 -0 70000 0 03133        CAD TVR-1         READ WORD COUNT OF TABLE INT0 TVR-1.           F6P00180    
       00215  0 76000 0 00006        COM                                                              F6P00190    
       00216 -0 70000 0 01001        CAD SUM                                                          F6P00200    
       00217  0 76000 0 00006        COM                                                              F6P00210    
       00220  0 10000 0 00223        TZE D4            NO READ ERROR.                                 F6P00220    
       00221  2 00001 1 00211        TIX D5,1,1                                                       F6P00230    
       00222  0 07400 4 00774        TSX OUTER,4                                                      F6P00240    
       00223 -0 53400 1 03133  D4    LXD TVR-1,1       SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250    
 D     00224 -3 00000 1 00475        TXL WEF,1         IFNO TRANSFER VECTOR, GO TO W.E.F.             F6P00260    
       00225  0 53400 2 00544        LXA RDC,2                                                        F6P00270    
       00226  0 76200 0 00303  A5    RDR 3                                                            F6P00280    
 T     00227 -0 75400 0 00002  A6    PXD 2             READ TRANSFER                                  F6P00290    
       00230  0 46000 0 00227        LDA A6            VECTOR INTO STORAGE, FIRST SUBROUTINE NAME INTOF6P00300    
       00231 -0 70000 1 03133  A7    CAD TVR-1,1       TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2,    F6P00310    
       00232  2 00001 1 00231        TIX A7,1,1                                                       F6P00320    
       00233  0 70000 0 01001        CPY SUM                                                          F6P00330    
       00234  0 76000 0 00006        COM                                                              F6P00340    
       00235 -0 70000 0 01001        CAD SUM                                                          F6P00350    
       00236  0 76000 0 00006        COM                                                              F6P00360    
       00237  0 10000 0 00242        TZE A8            TEST CHECK SUM.                                F6P00370    
       00240  2 00001 2 00226        TIX A5,2,1                                                       F6P00380    
       00241  0 07400 4 00774        TSX OUTER,4                                                      F6P00390    
 M     00242  0 50000 0 00203  A8    CLA SW5           CHECK SUM OKAY.                                F6P00400    
 M     00243  0 34000 0 00162        CAS ONE                                                          F6P00410    
       00244  0 02000 0 00247        TRA A1            GO TO TEST SENSE SWITCH FIVE.                  F6P00420    
       00245  0 02000 0 00252        TRA A3            1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN      F6P00430    
       00246  0 02000 0 00463        TRA FINI          0 IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP.    F6P00440    
       00247  0 76000 0 00165  A1    SWT 5             SENSE SWITCH 5 TEST.                           F6P00450    
       00250  0 02000 0 00463        TRA FINI          UP.                                            F6P00460    
       00251  0 02000 0 00252        TRA A3            DOWN.                                          F6P00470    
       00252  0 76200 0 00221  A3    RTB 1             SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM).   F6P00480    
       00253  0 60000 0 01002  A10   STZ RCT                                                          F6P00490    
       00254  0 60000 0 01003        STZ LIBCT                                                        F6P00500    
 M     00255  0 50000 0 00162        CLA ONE                                                          F6P00510    
       00256  0 60100 0 01004        STO PASCT                                                        F6P00520    
       00257  0 60000 0 01005  LOOP1 STZ CTF                                                          F6P00530    
       00260  0 07400 4 00537  A11   TSX SUB1,4        READ TAPE1 RECORD.                             F6P00540    
       00261  0 02000 0 00433        TRA EOF           RETURN HERE IF END OF FILE                     F6P00550    
       00262  0 50000 0 01327        CLA BUFF-1        RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560    
       00263 -0 12000 0 00265        TMI A12           PROG. CARD TEST. FIRST WORD IS MINUS ON PROG.  F6P00570    
                                                       CARD.                                          F6P00580    
       00264  0 02000 0 00260        TRA A11           NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD. F6P00590    
       00265  0 62200 0 00335  A12   STD A18           PROGRAM CARD.                                  F6P00600    
       00266  0 62200 0 00303        STD A15           SAVE LENGTH OF RECORD (BITS 4-1B HAVE NO. OF   F6P00610    
       00267 -0 53400 1 01007        LXD FR4,1         WORDS IN RECORD EXCLUDING 9-ROW.               F6P00620    
       00270  0 50000 0 01325        CLA BUFF-3        SAVE LENGTH OF                                 F6P00630    
       00271  0 62200 0 01006        STD VLENG         TRANSFER VECTOR (ROW 8 DECREMENT).             F6P00640    
       00272 -0 53400 2 03133  A16   LXD TVR-1,2                                                      F6P00650    
       00273  0 50000 1 01326        CLA BUFF-2,1      TEST FOR PRIMARY NAME ON PROG CARD.            F6P00660    
       00274 -0 12000 0 00302        TMI SEC           NOT PRIMARY NAME.                              F6P00670    
       00275  0 50000 1 01327        CLA BUFF-1,1      YES, PRIMARY NAME. SELECT NAME AND             F6P00680    
       00276  0 34000 2 03133  A14   CAS TVR-1,2       COMPARE IT TO NAME IN TRANSFER VECTOR.         F6P00690    
       00277  0 02000 0 00301        TRA A13                                                          F6P00700    
       00300  0 02000 0 00305        TRA EQ            FOUND ROUTINE, GO T0 EQ.                       F6P00710    
       00301  2 00001 2 00276  A13   TIX A14,2,1       NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME.    F6P00720    
       00302  1 00002 1 00303  SEC   TXI A15,1,2       NOT FOUND. GO TO TEST NEXT WORD ON CARD.       F6P00730    
       00303 -3 00303 1 00272  A15   TXL A16,1,*       ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740    
       00304  0 02000 0 00260        TRA A11           NO MORE PRI. NAMES ON CARD. GO READ NEXT REC.  F6P00750    
                                                       OF LIBRARY TAPE.                               F6P00760    
       00305  0 07400 4 00760  EQ    TSX ERASE,4       WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE  F6P00770    
       00306 -0 63400 1 00322        SXD EQ2,1         NAME IN TRANS. VEC., GO ERASE NAME FROMTVR.    F6P00780    
       00307  0 53400 4 01003  EQ4   LXA LIBCT,4       SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND.      F6P00790    
       00310  0 50000 1 01327        CLA BUFF-1,1      ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE.  F6P00800    
       00311  0 60100 4 03607        STO LIBF-1,4               AND ERASE NAME FROM                   F6P00810    
       00312  0 50000 0 01003        CLA LIBCT                  TVR TABLE                             F6P00820    
 M     00313  0 40000 0 00162        ADD ONE           UPDATE LIBCT                                   F6P00830    
       00314  0 60100 0 01003        STO LIBCT                                                        F6P00840    
       00315  0 50000 0 01005        CLA CTF           UPDATE CTP.                                    F6P00850    
 M     00316  0 40000 0 00162        ADD ONE                                                          F6P00860    
       00317  0 60100 0 01005        STO CTF           OTHER NAMES ON CARD. NO, TRANSFER.             F6P00870    
       00320 -3 00004 1 00323        TXL EQ3,1,4                                                      F6P00880    
       00321  1 77776 1 00307        TXI EQ4,1,-2      YES, GO ENTER IN LIBF.                         F6P00890    
       00322  0 00000 0 00000  EQ2   HTR 0                                                            F6P00900    
       00323 -0 53400 1 00322  EQ3   LXD EQ2,1                                                        F6P00910    
       00324  0 02000 0 00334        TRA A18-1                                                        F6P00920    
       00325 -0 53400 2 03133  A19   LXD TVR-1,2                OF THIS ROUTINE                       F6P00930    
       00326  0 50000 1 01327        CLA BUFF-1,1      SELECT NAME ON PROGRAM CARD                    F6P00940    
       00327  0 34000 2 03133  A17   CAS TVR-1,2       IS IT CALLED FOR BY TRANSFER VECTOR.           F6P00950    
       00330  0 02000 0 00332        TRA NO                                                           F6P00960    
       00331  0 02000 0 00337        TRA YES           YES, TRANSFER.                                 F6P00970    
       00332  2 00001 2 00327  NO    TIX A17,2,1       NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980    
                                                       TRANSFER.                                      F6P00990    
       00333  0 07400 4 00506  A20   TSX LIBEN,4       NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000    
       00334  1 00002 1 00335        TXI A18,1,2       INCREMENT PROG CARD COUNTER BY 2,              F6P01010    
       00335 -3 00335 1 00325  A18   TXL A19,1,*       THIS IS SET BY A12, CONTAINS NO. OF WORDS ON   F6P01020    
                                                       PROGRAM CARD.                                  F6P01030    
       00336  0 02000 0 00342        TRA A21           TRANS. WHEN ALL NAMES ON CARD HAVE BEEN CHECKEDF6P01040    
       00337  0 07400 4 00760  YES   TSX ERASE,4       ERASE NAME FROM TRANSFER VECTOR TABLE.         F6P01050    
       00340  0 50000 1 01327        CLA BUFF-1,1      SELECT SUBROUTINE NAME AND GO                  F6P01060    
       00341  0 02000 0 00333        TRA A20           ENTER IT IN LIBF.                              F6P01070    
       00342 -0 53400 2 00303  A21   LXD A15,2                                                        F6P01080    
       00343  3 00026 2 00400        TXH EXCAD,2,22    TRANSFER IF PROG. CARD HAS MORE THAN 22 WORDS. F6P01090    
       00344  0 07400 4 00523        TSX WRITE,4       WRITE PROG CARD ON TAPE 3                      F6P01100    
       00345  0 00002 0 00000        HTR 0,0,2                                                        F6P01110    
       00346  0 07400 4 00537  B13   TSX SUB1,4        READ RECORD FROM LIB. TAPE                     F6P01120    
       00347  0 02000 0 00433        TRA EOF           EOF.                                           F6P01130    
       00350  0 50000 0 01006  X3    CLA VLENG         WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE.  F6P01140    
       00351  0 10000 0 00356        TZE A22           IF NO TRANSFER VECTOR, GO TO WRITE.            F6P01150    
       00352  0 34000 0 01012        CAS L20D                                                         F6P01160    
       00353  0 02000 0 00365        TRA X2            GO TO X2 IF TRANS VEC. OF LIB. SUBR. GREATER   F6P01170    
                                                       THAN 20.                                       F6P01180    
       00354  0 02000 0 00355        TRA X1            GO T0 X1 IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190    
                                                       EQUAL 20.                                      F6P01200    
       00355  0 07400 4 00613  X1    TSX LOOP3,4       GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC.   F6P01210    
       00356  0 07400 4 00523  A22   TSX WRITE,4       GO WRITE TRANS. VECT. RECORD ON TAPE 3.        F6P01220    
       00357  0 00004 0 00000        HTR 0,0,4                                                        F6P01230    
       00360  0 07400 4 00537  LOOP2 TSX SUB1,4        GO READ NEW RECORD FROM LIBRARY TAPE.          F6P01240    
       00361  0 02000 0 00433        TRA EOF           EOF ON LIBRARY TAPE.                           F6P01250    
       00362  0 50000 0 01327        CLA BUFF-1        TEST FOR PROGRAM CARD.                         F6P01260    
       00363 -0 12000 0 00265        TMI A12           YES, PROG CARD. TRANSFER.                      F6P01270    
       00364  0 02000 0 00356        TRA A22           NO, GO TO WRITE CARD ON TAPE THREE.            F6P01280    
       00365  0 40200 0 01012  X2    SUB L20D          TO TREAT 20 AT A TIME.                         F6P01290    
       00366  0 60100 0 01006        STO VLENG                                                        F6P01300    
       00367  0 50000 0 01012        CLA L20D                                                         F6P01310    
       00370  0 07400 4 00613        TSX LOOP3,4       SEARCH FOR SUB+SUBROUT IN LIBF. IF NOT THERE,  F6P01320    
                                                       ENTER IN TVR TABLE.                            F6P01330    
       00371  0 07400 4 00523        TSX WRITE,4       WRITE RECORD ON TAPE 3.                        F6P01340    
       00372  0 00004 0 00000        HTR 0,0,4                                                        F6P01350    
       00373  0 07400 4 00537        TSX SUB1,4        READ NEXT RECORD FROM LIB TAPE                 F6P01360    
       00374  0 02000 0 00433        TRA EOF           EOF                                            F6P01370    
       00375  0 50000 0 01327        CLA BUFF-1        IS IT A PROG. CARD.                            F6P01380    
       00376  0 12000 0 00350        TPL X3            NO, GO PROCESS TRANS. VEC.                     F6P01390    
       00377  0 07400 4 00774  ERROR TSX OUTER,4       YES. ERROR.                                    F6P01400    
       00400  0 50200 0 01013  EXCAD CLS L22D          TO WRITE FIRST CARD OG PROG. CARD.             F6P01410    
       00401  0 60100 0 01327  B9    STO BUFF-1                                                       F6P01420    
       00402  0 07400 4 00647        TSX CHSUM,4       COMPUTE CHECK SUM.                             F6P01430    
       00403  0 07400 4 00523        TSX WRITE,4       WRITE IT ON TAPE 3.                            F6P01440    
                                                       BLANKS                                         F6P01450    
       00404  0 00002 0 00000        HTR 0,0,2                                                        F6P01460    
       00405 -0 75400 2 00000        PXD 0,2                                                          F6P01470    
       00406  0 40200 0 01013        SUB L22D          MORE THAN 22 WORDS.                            F6P01480    
       00407 -0 12000 0 00346        TMI B13           NO, GO T0 B13.                                 F6P01490    
       00410 -0 73400 2 00000        PDX 0,2           YES, DECREMENT WD. CT. BY 22 AND STORE IT IN   F6P01500    
                                                       INDEX REGISTER 2.                              F6P01510    
       00411  0 40200 0 01000        SUB ONEDE                                                        F6P01520    
       00412  0 62200 0 00417        STD BOO1                                                         F6P01530    
 M     00413 -0 53400 1 00162        LXD ONE,1                                                        F6P01540    
       00414  0 50000 1 01277  BOO   CLA BUFF-25,1     MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER,   F6P01550    
       00415  0 60100 1 01325        STO BUFF-3,1                                                     F6P01560    
       00416  1 00001 1 00417        TXI BOO1,1,1                                                     F6P01570    
       00417 -3 00417 1 00414  BOO1  TXL BOO,1,*                                                      F6P01580    
       00420 -3 00025 2 00423        TXL B8,2,21                                                      F6P01590    
       00421  0 50200 0 01013        CLS L22D                                                         F6P01600    
       00422  0 02000 0 00401        TRA B9                                                           F6P01610    
       00423 -0 75400 2 00000  B8    PXD 0,2                                                          F6P01620    
       00424 -0 73400 1 00000        PDX 0,1           IF NECESSARY                                   F6P01630    
       00425  0 60000 1 01325  B12   STZ BUFF-3,1      AND FILL IN ZEROES IF NECESSARY.               F6P01640    
       00426  1 00001 1 00427        TXI B11,1,1                                                      F6P01650    
       00427 -3 00026 1 00425  B11   TXL B12,1,22                                                     F6P01660    
       00430 -0 75400 2 00000        PXD 0,2                                                          F6P01670    
       00431 -0 76000 0 00003        SSM                                                              F6P01680    
       00432  0 02000 0 00401        TRA B9                                                           F6P01690    
       00433  0 50000 0 01004  EOF   CLA PASCT                                                        F6P01700    
 M     00434  0 40200 0 00162        SUB ONE                                                          F6P01710    
       00435  0 10000 0 00440        TZE D1            TRANSFER IF ONLY ONE SEARCH                    F6P01720    
       00436  0 50000 0 01005        CLA CTF           END OF SEARCH TEST                             F6P01730    
       00437  0 10000 0 00451        TZE D3            CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH.  F6P01740    
       00440  0 50000 0 01004  D1    CLA PASCT         PREPARE FOR ANOTHER                            F6P01750    
 M     00441  0 40000 0 00162        ADD ONE           SEARCH.                                        F6P01760    
       00442  0 60100 0 01004        STO PASCT                                                        F6P01770    
                                                       CHARACTER.                                     F6P01780    
       00443  0 53400 1 01002        LXA RCT,1         SET XR1 EQUAL NO. OF RECORDS READ FROM LIB.    F6P01790    
       00444  1 00001 1 00445        TXI D2,1,1        TAPE.                                          F6P01800    
       00445  0 76400 0 00201  D2    BST 1             BACK SPACE TAPE THAT MANY RECORDS.             F6P01810    
       00446  2 00001 1 00445        TIX D2,1,1                                                       F6P01820    
       00447  0 60000 0 01002        STZ RCT           SET RCT EQUAL ZERO AND GO START SEARCH         F6P01830    
       00450  0 02000 0 00257        TRA LOOP1                                                        F6P01840    
       00451  0 53400 1 01003  D3    LXA LIBCT,1       ANY SUBROUTINES FOUND                          F6P01850    
 D     00452 -3 00000 1 00463        TXL FINI,1        NO, GO TO FINI.                                F6P01860    
       00453  0 07400 4 00573        TSX SPACE,4       YES. 0O WRITE, SUBROUTINES PUNCHED             F6P01870    
       00454  0 00024 0 00734            FOUND,,20     FROM LIBRARY ON TAPE TWO.                      F6P01880    
       00455 -0 53400 2 00676        LXD LNC,2         SET RECORD LENGTH TAPE TWO EQUAL 20.           F6P01890    
       00456  0 50000 1 03610  D9    CLA LIBF,1        SELECT SUBROUTINE NAME.                        F6P01900    
       00457  0 60100 0 01015        STO NAME                                                         F6P01910    
       00460  0 07400 4 00656        TSX SUB2,4        GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING F6P01920    
                                                       OFF WHEN NECESSARY)                            F6P01930    
       00461  2 00001 1 00456        TIX D9,1,1        TRANSFER IF MORE SUBR. NAMES,                  F6P01940    
       00462  0 07400 4 00576        TSX WLL,4         GO WRITE FINAL RECORD ON TAPE TWO.             F6P01950    
       00463 -0 53400 1 03133  FINI  LXD TVR-1,1       ANY TRANSFER VECTOR.                           F6P01960    
 D     00464 -3 00000 1 00475        TXL WEF,1         NO, GO TO WEF.                                 F6P01970    
       00465  0 07400 4 00573        TSX SPACE,4       YES, GO WRITE SUBROUTINES NOT PUNCHED FROM     F6P01980    
       00466  0 00024 0 00760            LOST,,20      LIBRARY.                                       F6P01990    
       00467 -0 53400 2 00676        LXD LNC,2         RESET TAPE TWO RECORD LENGTH TO 20.            F6P02000    
       00470  0 50000 1 03133  D10   CLA TVR-1,1       SELECT NAME IN TVR TABLE.                      F6P02010    
       00471  0 60100 0 01015        STO NAME          GO WRITE IT IN TAPE TWO BUFFER.                F6P02020    
       00472  0 07400 4 00656        TSX SUB2,4                                                       F6P02030    
       00473  2 00001 1 00470        TIX D10,1,1       TRANSFER IF ANY MORE NAMES IN TVR TABLE.       F6P02040    
       00474  0 07400 4 00576        TSX WLL,4         GO WRITE FINAL RECORD.                         F6P02050    
       00475  0 77200 0 00201  WEF   REW 1                                                            F6P02060    
       00476  0 50000 0 00036        CLA SUBIN         TO SEE IF MAIN PROGRAM                         F6P02070    
       00477 -0 10000 0 00502        TNZ Y1            NO, GO TO WRITE END OF FILE                    F6P02080    
       00500  0 76600 0 00223        WTB 3             YES, SO                                        F6P02090    
       00501  0 70000 0 00505        CPY TCD           WRITE TRANSFER CARD ON TAPE 3                  F6P02100    
       00502  0 77000 0 00203  Y1    WEF 3             WRITE END OF FILE MARK ON TAPE 3.              F6P02110    
       00503  0 77200 0 00203        REW 3                                                            F6P02120    
       00504  0 02000 0 03634        TRA RECQ                                                         F6P02130    
       00505 -0 00000 0 00000  TCD   MZE                                                              F6P02140    
       00506  0 53400 2 01003  LIBEN LXA LIBCT,2       ENTER WITH SUBR. NAME IN ACC.                  F6P02150    
       00507 -0 63400 2 00515        SXD LIBA,2                                                       F6P02160    
       00510 -0 53400 2 01000        LXD ONEDE,2                                                      F6P02170    
       00511  0 34000 2 03610  LIBC  CAS LIBF,2        SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE   F6P02180    
                                                       NAME.                                          F6P02190    
       00512  0 02000 0 00514        TRA LIBB                                                         F6P02200    
       00513  0 02000 4 00001        TRA 1,4           YES, RETURN TO PROGRAM.                        F6P02210    
       00514  1 00001 2 00515  LIBB  TXI LIBA,2,1      NO. TEST IF ANY MORE NAMES IN LIBF TABLE.      F6P02220    
       00515 -3 00515 2 00511  LIBA  TXL LIBC,2,*      MORE, GO SELECT NEXT ONE.                      F6P02230    
       00516  0 60100 2 03610        STO LIBF,2        NO MORE. ENTER SUBR. NAME IN LIBF.             F6P02240    
       00517  0 50000 0 01003        CLA LIBCT                                                        F6P02250    
 M     00520  0 40000 0 00162        ADD ONE           UPDATE NO. OF SUBRS. IN LIBF.,                 F6P02260    
       00521  0 60100 0 01003        STO LIBCT                                                        F6P02270    
       00522  0 02000 4 00001        TRA 1,4           AND RETURN TO PROGRAM.                         F6P02280    
       00523  0 76600 0 00223  WRITE WTB 3             SELECT TAPE THREE.                             F6P02290    
       00524  0 50000 4 00001        CLA 1,4                                                          F6P02300    
       00525  0 62200 0 00527        STD WR4                                                          F6P02310    
       00526 -0 53400 1 01327        LXD BUFF-1,1                                                     F6P02320    
       00527  1 00000 1 00530  WR4   TXI WR3,1,**                                                     F6P02330    
       00530 -0 63400 1 00534  WR3   SXD WR1,1         SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE  F6P02340    
                                                       PLUS DECREMENT OF 1,4                          F6P02350    
 M     00531  0 53400 1 00162        LXA ONE,1                                                        F6P02360    
       00532  0 70000 1 01330  WR2   CPY BUFF,1        WRITE WORD FROM BUFFER ONTO TAPE THREE         F6P02370    
       00533  1 00001 1 00534        TXI WR1,1,1                                                      F6P02380    
       00534 -3 00030 1 00532  WR1   TXL WR2,1,24      TEST END OF CARD.                              F6P02390    
       00535  0 76600 0 00333        IOD                                                              F6P02400    
       00536  0 02000 4 00002        TRA 2,4           RETURN TO PROG. EXIT POINT PLUS 2.             F6P02410    
       00537  0 53400 2 00544  SUB1  LXA RDC,2         READ LIBRARY TAPE RECORD.                      F6P02420    
       00540  0 02000 0 00545        TRA RD                     ROUTINE                               F6P02430    
       00541  0 76400 0 00201  ERR   BST 1             READ-ERROR PROCEDURE.                          F6P02440    
       00542  2 00001 2 00545        TIX RD,2,1                                                       F6P02450    
       00543  0 07400 4 00774        TSX OUTER,4                                                      F6P02460    
       00544  0 42000 0 00005  RDC   HPR 5                                                            F6P02470    
       00545  0 76200 0 00221  RD    RTB 1             SELECT TAPE 1,                                 F6P02480    
 M     00546 -0 53400 1 00162        LXD ONE,1         SET XR1=0.                                     F6P02490    
       00547  0 70000 1 01327  SUBA  CPY BUFF-1,1      COPY RECORD INTO BUFF-1,-2,...                 F6P02500    
       00550  1 00001 1 00547        TXI SUBA,1,1                                                     F6P02510    
       00551  0 02000 4 00001        TRA 1,4           EOF                                            F6P02520    
       00552  0 77100 0 00377        ARS 255                                                          F6P02530    
       00553  0 77100 0 00377        ARS 255           EOR                                            F6P02540    
       00554 -0 76000 0 00012        RTT                                                              F6P02550    
       00555  0 02000 0 00541        TRA ERR                                                          F6P02560    
       00556  0 50000 0 01002        CLA RCT           INCREASE RECORD COUNT BY ONE                   F6P02570    
 M     00557  0 40000 0 00162        ADD ONE                                                          F6P02580    
       00560  0 60100 0 01002        STO RCT                                                          F6P02590    
       00561  0 02000 4 00002        TRA 2,4           AND RETURN TO PROGRAM EXIT PLUS 2.             F6P02600    
       00562  0 50000 4 00001  PRINT CLA 1,4           TO WRITE A BCD RECORD ON TAPE TWO.             F6P02610    
       00563 -0 73400 2 00000        PDX 0,2                                                          F6P02620    
 D     00564 -3 00000 2 00572        TXL NONE,2                                                       F6P02630    
       00565  0 76600 0 00202  D7    WTD 2                                                            F6P02640    
       00566  0 62100 0 00567        STA POOP                                                         F6P02650    
       00567  0 70000 2 00567  POOP  CPY *,2                                                          F6P02660    
       00570  2 00001 2 00567        TIX POOP,2,1                                                     F6P02670    
       00571  0 76600 0 00333        IOD                                                              F6P02680    
       00572  0 02000 4 00002  NONE  TRA 2,4                                                          F6P02690    
       00573  0 76600 0 00202  SPACE WTD 2             WRITE A WORD OF BLANKS ON TAPE TWO.            F6P02700    
       00574  0 70000 0 00703        CPY BLANKS                                                       F6P02710    
       00575  0 02000 0 00562        TRA PRINT                                                        F6P02720    
       00576 -0 63400 4 00702  WLL   SXD IR4,4         PREPARE TO WRITE FINAL RECORD ON TAPE TWO,     F6P02730    
       00577  1 00002 2 00600        TXI ME20,2,2                                                     F6P02740    
       00600 -0 75400 2 00000  ME20  PXD 0,2                                                          F6P02750    
       00601  0 60100 0 00610        STO LND                                                          F6P02760    
       00602  0 77100 0 00022        ARS 18                                                           F6P02770    
       00603  0 62100 0 00610        STA LND                                                          F6P02780    
       00604  0 50000 0 01017        CLA LNE                                                          F6P02790    
       00605  0 40200 0 00610        SUB LND                                                          F6P02800    
       00606  0 60100 0 00610        STO LND                                                          F6P02810    
       00607  0 07400 4 00562        TSX PRINT,4       AND GO WRITE IT.                               F6P02820    
       00610  0 00000 0 00000  LND                                                                    F6P02830    
       00611 -0 53400 4 00702        LXD IR4,4                                                        F6P02840    
       00612  0 02000 4 00001        TRA 1,4                                                          F6P02850    
       00613  0 40000 0 01014  LOOP3 ADD THRDE                                                        F6P02860    
       00614  0 62200 0 00626        STD A27                                                          F6P02870    
       00615 -0 53400 1 01007        LXD FR4,1                                                        F6P02880    
       00616  0 53400 2 01003  A28   LXA LIBCT,2                SUBROUTINE IN TVR                     F6P02890    
       00617  0 50000 1 01327        CLA BUFF-1,1      SELECT NAME FROM SUBROUTINE TRANS. VEC.        F6P02900    
       00620  0 34000 2 03610  A24   CAS LIBF,2        SELECT NAME FROM LIBF TABLE.                   F6P02910    
       00621  0 02000 0 00623        TRA A23           NOT EQUAL                                      F6P02920    
       00622  0 02000 0 00625        TRA A26           SUBROUTINE IS IN LIBF.                         F6P02930    
       00623  2 00001 2 00620  A23   TIX A24,2,1       NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS.  F6P02940    
       00624  0 02000 0 00630        TRA A25           NO. NOT IN LIBF.                               F6P02950    
       00625  1 00001 1 00626  A26   TXI A27,1,1       ANY MORE NAMES IN SUBROUT. TRANS. VECTOR.      F6P02960    
       00626 -3 00626 1 00616  A27   TXL A28,1,*       YES.                                           F6P02970    
       00627  0 02000 4 00001        TRA 1,4           NO, RETURN TO PROGRAM                          F6P02980    
       00630  0 50000 0 03133  A25   CLA TVR-1         SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE.    F6P02990    
       00631  0 62200 0 00641        STD A31                    IF NOT ALREADY IN                     F6P03000    
       00632 -0 53400 2 01000        LXD ONEDE,2                                                      F6P03010    
       00633  0 10000 0 00645        TZE EXT2          TRANSFER IF NO ENTRIES IN TVR TABLE            F6P03020    
       00634  0 50000 1 01327        CLA BUFF-1,1      SELECT THE NAME FROM SUBROUT. TR. VECTOR.      F6P03030    
       00635  0 34000 2 03133  A32   CAS TVR-1,2       IS IT IN THE TVR TABLE.                        F6P03040    
       00636  0 02000 0 00640        TRA A30                                                          F6P03050    
       00637  0 02000 0 00625        TRA A26           YES, TRANSFER.                                 F6P03060    
       00640  1 00001 2 00641  A30   TXI A31,2,1                                                      F6P03070    
       00641 -3 00641 2 00635  A31   TXL A32,2,*                                                      F6P03080    
       00642  0 60100 2 03133        STO TVR-1,2       NO. PUT IT THERE, UP0ATE COUNT OF TVR TABLE.   F6P03090    
       00643 -0 63400 2 03133        SXD TVR-1,2                                                    + F6P03100    
       00644  0 02000 0 00625        TRA A26                                                          F6P03110    
       00645  0 50000 1 01327  EXT2  CLA BUFF-1,1      SELECT NAME FROM SUBR. TRANS. VEC. AND         F6P03120    
       00646  0 02000 0 00642        TRA A31+1         GO STORE IT.                                   F6P03130    
 M     00647  0 53400 1 00163  CHSUM LXA TWO,1         COMPUTE CHECK SUM AND STORE IT IN BUFF-2.      F6P03140    
       00650 -0 50000 0 01327        CAL BUFF-1                                                       F6P03150    
       00651  0 36100 1 01327  B6    ACL BUFF-1,1                                                     F6P03160    
       00652  1 00001 1 00653        TXI B5,1,1                                                       F6P03170    
       00653 -3 00027 1 00651  B5    TXL B6,1,23                                                      F6P03180    
       00654  0 60200 0 01326        SLW BUFF-2                                                       F6P03190    
       00655  0 02000 4 00001        TRA 1,4                                                          F6P03200    
       00656 -0 63400 4 00702  SUB2  SXD IR4,4                                                        F6P03210    
       00657 -0 50000 0 00703        CAL BLANKS                                                       F6P03220    
       00660  0 60200 2 03634        SLW LIN+1,2       STORE BLANKS IN BOTH WORDS OF ENTRY.           F6P03230    
       00661  0 60200 2 03635        SLW LIN+2,2                                                      F6P03240    
       00662  0 56000 0 01015  CNS   LDQ NAME          ASSENBLE BCD REPRESENTATION OF                 F6P03250    
       00663  0 53400 4 00664        LXA SIX,4         SUBROUTINE NAME.                               F6P03260    
       00664 -0 76300 0 00006  SIX   LGL 6                                                            F6P03270    
       00665  0 60200 0 01016        SLW SYM                                                          F6P03280    
       00666 -0 32000 0 00705        ANA 6BITS                                                        F6P03290    
       00667  0 40200 0 00704        SUB BLANK                                                        F6P03300    
       00670  0 10000 0 00674        TZE CNA                                                          F6P03310    
       00671 -0 50000 0 01016        CAL SYM                                                          F6P03320    
       00672  0 60200 2 03635        SLW LIN+2,2       STORE IT IN WORD TWO OF ENTRY.                 F6P03330    
       00673  2 00001 4 00664        TIX SIX,4,1                                                      F6P03340    
       00674  2 00002 2 00700  CNA   TIX EXIT,2,2      RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350    
       00675  0 07400 4 00562        TSX PRINT,4       RECORD FULL. GO WRITE IT.                      F6P03360    
       00676  0 00024 0 03634  LNC       LIN+1,,20                                                    F6P03370    
       00677 -0 53400 2 00676        LXD LNC,2         RESET RECORD LENGTH COUNTER                    F6P03380    
       00700 -0 53400 4 00702  EXIT  LXD IR4,4         AND RETURN TO PROGRAM                          F6P03390    
       00701  0 02000 4 00001        TRA 1,4                                                          F6P03400    
       00702  0 00000 0 00000  IR4       0,0,0                                                        F6P03410    
       00703  606060606060    BLANKS BCD 1                                                            F6P03420    
       00704  000000000060     BLANK BCD 100000                                                       F6P03430    
       00705 +000000000077     6BITS OCT 77                                                           F6P03440    
       00706 +000000000012     TEN   DEC 10                                                           F6P03450    
       00707 +000000000000     LOC   DEC 0                                                            F6P03460    
       00710  606060606060           BCD 7                                                            F6P03470    
       00711  606060606060    
       00712  606060606060    
       00713  606060606060    
       00714  606060606060    
       00715  606060606060    
       00716  606060606060    
       00717  606062642251           BCD 6  SUBROUTINES PUNCHED FROM LIBRARY                          F6P03480    
       00720  466463314525    
       00721  626047644523    
       00722  302524602651    
       00723  464460433122    
       00724  512151706060    
       00725  606060606060           BCD 7                                                            F6P03490    
       00726  606060606060    
       00727  606060606060    
       00730  606060606060    
       00731  606060606060    
       00732  606060606060    
       00733  606060606060    
 A                      00734  FOUND BSS                                                              F6P03500    
       00734  606060606060           BCD 7                                                            F6P03510    
       00735  606060606060    
       00736  606060606060    
       00737  606060606060    
       00740  606060606060    
       00741  606060606060    
       00742  606060606060    
       00743  626422514664           BCD 6SUBROUTINES NOT PUNCHED FROM LIBRARY                        F6P03520    
       00744  633145256260    
       00745  454663604764    
       00746  452330252460    
       00747  265146446043    
       00750  312251215170    
       00751  606060606060           BCD 7                                                            F6P03530    
       00752  606060606060    
       00753  606060606060    
       00754  606060606060    
       00755  606060606060    
       00756  606060606060    
       00757  606060606060    
 A                      00760  LOST  BSS                                                              F6P03540    
       00760  0 50000 0 03133  ERASE CLA TVR-1         DECREASE WD CT OF TVR BY ONE.                  F6P03550    
       00761  0 40200 0 01000        SUB ONEDE                                                        F6P03560    
       00762  0 62200 0 03133        STD TVR-1                                                        F6P03570    
       00763  0 62200 0 00770        STD NEXT                                                         F6P03580    
       00764  0 10000 0 00772        TZE EXT1          TEST FOR ANY WORDS LEFT IN TVR TABLE.          F6P03590    
       00765  0 50000 2 03132  SKIP  CLA TVR-2,2                                                      F6P03600    
       00766  0 60100 2 03133        STO TVR-1,2       MOVE UP ENTRIES IN TVR TABLE                   F6P03610    
       00767  1 00001 2 00770        TXI NEXT,2,1                                                     F6P03620    
       00770 -3 00770 2 00765  NEXT  TXL SKIP,2,*                                                     F6P03630    
       00771  0 02000 4 00001        TRA 1,4           EXIT TO PROGRAM                                F6P03640    
       00772  0 60000 0 03132  EXT1  STZ TVR-2         WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650    
       00773  0 02000 4 00001        TRA 1,4           TVR-2 AND RETURN TO PROGRAM.                   F6P03660    
       00774  0 77200 0 00201  OUTER REW 1                                                            F6P03670    
       00775  0 76200 0 00221        RTB 1                                                            F6P03680    
       00776  0 76200 0 00221        RTB 1                                                            F6P03690    
       00777  0 02000 0 00004        TRA 4                                                            F6P03700    
       01000  0 00001 0 00000  ONEDE     0,0,1                                                        F6P03710    
       01001  0 00000 0 00000  SUM                                                                    F6P03720    
 U     01002  0 00000 0        RCT       IN ADDRESS                                                   F6P03730    
       01003  0 00000 0 00000  LIBCT        (ADDRESS)                                                 F6P03740    
       01004  0 00000 0 00000  PASCT        (ADDRESS)                                                 F6P03750    
       01005  0 00000 0 00000  CTF          (ADDRESS)                                                 F6P03760    
       01006  0 00000 0 00000  VLENG     0,0,                                                         F6P03770    
       01007  0 00004 0 00000  FR4       0,0,4                                                        F6P03780    
       01010  0 00000 0 00024  L20       20,0,0                                                       F6P03790    
       01011  0 00002 0 00000  TWODE     0,0,2                                                        F6P03800    
       01012  0 00024 0 00000  L20D      0,0,20                                                       F6P03810    
       01013  0 00026 0 00000  L22D      0,0,22                                                       F6P03820    
       01014  0 00003 0 00000  THRDE     0,0,3                                                        F6P03830    
       01015  0 00000 0 00000  NAME  HTR 0                                                            F6P03840    
       01016  0 00000 0 00000  SYM   HTR 0                                                            F6P03850    
       01017  0 00026 0 03636  LNE       LIN+3,,22                                                    F6P03860    
                        01330  BUFF  BES 200                                                          F6P03870    
                        03134  TVR   BES 900                                                          F6P03880    
                        03610  LIBF  BES 300                                                          F6P03890    
                        03610        BSS 19                                                           F6P03900    
                        03633  LIN   BSS 1                                                            F6P03910    
                                                                                                      F6P03920    
                                         PUNCH BINARY LOADER IF CARDS ARE OUTPUT                      F6P03930    
                                         AND IF MAIN ROUTINE, PUNCH PROGRAM                           F6P03940    
 M     03634  0 50000 0 00162  RECQ  CLA ONE           ARE CARDS OUTPUT                               F6P03950    
 M     03635  0 34000 0 00177        CAS SW1                                                          F6P03960    
       03636  0 02000 0 03643        TRA WLP1          EQUALS ZERO. ASSUME SWITCH UP, GO PUNCH CARDS. F6P03970    
       03637  0 02000 0 03716        TRA OUT           EQUALS ONE, ASSUME SWITCH DOWN. NO CARD OUPUT. F6P03980    
       03640  0 76000 0 00161        SWT 1             TEST SWITCH ONE.                               F6P03990    
       03641  0 02000 0 03643        TRA WLP1          UP SO GO TO PUNCH ON LINE.                     F6P04000    
       03642  0 02000 0 03716        TRA OUT           DOWN SO GO TO RETURN TO LOADER.                F6P04010    
       03643  0 50000 0 00036  WLP1  CLA SUBIN         TEST FOR SUB DEF.                              F6P04020    
       03644 -0 10000 0 03653        TNZ RTF           IF SOURCE PROG IS A SUBROUTINE, GO READ TAPE 3 F6P04030    
       03645  0 53400 1 03736        LXA WPLV,1        MAIN ROUTINE. PUNCH LOADER.                    F6P04040    
       03646 -0 53400 2 03736  WPL2  LXD WPLV,2        SET CARD LENGTH.                               F6P04050    
       03647  0 76600 0 00341        WPU               SELECT PUNCH.                                  F6P04060    
       03650 -2 00001 2 03646  WPL3  TNX WPL2,2,1      TRANSFER IF CARD FULL.                         F6P04070    
       03651  0 70000 1 04340        CPY ZER+216,1     COPY LOADER WORD.                              F6P04080    
       03652  2 00001 1 03650        TIX WPL3,1,1      TRANSFER IF NOT FINISHED PUNCHING LOADER.      F6P04090    
 M     03653  0 53400 1 00162  RTF   LXA ONE,1         SET IR1 EQUAL ONE.                             F6P04100    
       03654 -0 63400 1 03712  RT9   SXD RT1,1         SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110    
       03655 -0 53400 2 03662        LXD RT2,2         SET IR2 EOUAL FIVE FOR READ-ERROR COUNTER.     F6P04120    
       03656  0 76200 0 00223  RTR   RTB 3             READ TAPE THREE.                               F6P04130    
       03657 -0 53400 4 03701        LXD RT3,4         SET IR4 EQUAL 24.                              F6P04140    
 M     03660  0 70000 1 02114  RT7   CPY TRB,1         COPY BINARY INST. INTO STORAGE.                F6P04150    
       03661  1 00001 1 03667        TXI RT4,1,1       INCREASE WORD COUNT ONE.                       F6P04160    
       03662  1 00005 0 03723  RT2   TXI TEF,,5        END OF FILE ON TAPE 3.                         F6P04170    
 M     03663  0 60000 1 02114  RTZ   STZ TRB,1,6*4096  EOR STORE ZERO.                                F6P04180    
       03664  1 00001 1 03665        TXI RT6,1,1       INCREASE WORD COUNT BY ONE                     F6P04190    
       03665  2 00001 4 03663  RT6   TIX RTZ,4,1       FILL OUT CARD (IN STORAGE) WITH ZEROS.         F6P04200    
 TD    03666  1 00000 0 03673        TXI RT5                                                          F6P04210    
       03667  2 00001 4 03660  RT4   TIX RT7,4,1       MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220    
                                                       FILLED.                                        F6P04230    
       03670  0 70000 0 03735        CPY DUMP          NO INDEX IN XR4 IS AN ERROR HERE,              F6P04240    
       03671  0 02000 0 03727        TRA RTE           SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTH,  F6P04250    
       03672  0 07400 4 00774        TSX OUTER,4                                                      F6P04260    
       03673  0 76600 0 00333  RT5   IOD                                                              F6P04270    
       03674  0 77100 0 00377        ARS 255           CHECK FOR TAPE CHECK.                          F6P04280    
       03675  0 77100 0 00377        ARS 255                                                          F6P04290    
       03676 -0 76000 0 00012        RTT                                                              F6P04300    
       03677  0 02000 0 03727        TRA RTE           GO TO READ ERROR PROCEDURE.                    F6P04310    
       03700 -0 53400 1 03712  RTA   LXD RT1,1         TAPE READ OKAY. ADD 24 (FOR CARD JUST READ)    F6P04320    
       03701  1 00030 1 03702  RT3   TXI RT8,1,24      TO WORD COUNT.                                 F6P04330    
       03702 -3 01130 1 03654  RT8   TXL RT9,1,24*25   TEST END OF PUNCH BLOCK.                       F6P04340    
 M     03703  0 53400 4 00161        LXA ZERO,4        BLOCK FULL. SET XR4 EQUAL ZERO,                F6P04350    
 M     03704  0 53400 1 00162  PIC   LXA ONE,1         AND PUNCH OUT PUNCH BLOCK.                     F6P04360    
       03705  0 76600 0 00341  PC3   WPU               PUNCH CARD.                                    F6P04370    
       03706 -0 53400 2 03701        LXD RT3,2         SET XR2 EQUAL 24                               F6P04380    
 M     03707  0 70000 1 02114  PC2   CPY TRB,1                                                        F6P04390    
       03710  1 00001 1 03711        TXI *+1,1,1                                                      F6P04400    
       03711  2 00001 2 03707        TIX PC2,2,1       TRANSFER IF NOT END OF CARD.                   F6P04410    
       03712 -3 00000 1 03705  RT1   TXL PC3,1,**      END OF PUNCH BLOCK TEST. TRANS. IF NOT END.    F6P04420    
 D     03713 -3 00000 4 03653        TXL RTF,4         GO READ MORE FROM TAPE THREE.                  F6P04430    
       03714  0 76600 0 00341  PTC   WPU               PUNCH TW0 BLANK CARDS.                         F6P04440    
       03715  0 76600 0 00341        WPU                                                              F6P04450    
       03716  0 76200 0 00221  OUT   RTB 1             RETURN TO LOADER.                              F6P04460    
       03717  0 76200 0 00221        RTB 1                                                            F6P04470    
       03720  0 76200 0 00221        RTB 1                                                            F6P04480    
       03721  0 02000 0 00004        TRA 4                                                            F6P04490    
 ATD   03722  2 00000 0 00000        TIX                                                              F6P04500    
       03723 -2 00030 1 03714  TEF   TNX PTC,1,24      HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO       F6P04510    
                                                       PUNCH ENDING BLANKS IF YES.                    F6P04520    
       03724 -0 63400 1 03712        SXD RT1,1         SAVE WORD COUNT OF PUNCH BLOCK,                F6P04530    
 M     03725  0 53400 4 00162        LXA ONE,4         AND GO PUNCH                                   F6P04540    
       03726  0 02000 0 03704        TRA PIC           FINAL BLOCK.                                   F6P04550    
       03727  2 00001 2 03732  RTE   TIX BST,2,1       READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560    
       03730  0 07400 4 00774        TSX OUTER,4       YES.                                           F6P04570    
       03731  0 00000 0 03700        HTR RTA                                                          F6P04580    
       03732  0 76400 0 00203  BST   BST 3             BACK SPACE TAPE 3                              F6P04590    
       03733 -0 53400 1 03712        LXD RT1,1         AND RESET WORD COUNT TO ONE.                   F6P04600    
       03734  0 02000 0 03656        TRA RTR           GO READ TAPE 3.                                F6P04610    
                        03735  DUMP  BSS 1                                                            F6P04620    
 M                      02114  TRB   SYN ABSOP                                                        F6P04630    
       03736  0 00031 0 00330  WPLV      216,0,25                                                     F6P04640    
       03737  0 00040 0 00000  WRCC      0,0,32                                                       F6P04650    
                        03740        BSS 40                                                           F6P04660    
                        04010  ZER   BSS 216                                                          F6P04670    
                        04010  ZRO   SYN ZER                                                          F6P04680    
                        04010        ORG ZRO                                                          F6P04690    
                                         BINARY LOADER AS OCTAL DATA                                  F6P04700    
       04010 +053400100000           OCT 053400100000                                                 F6P04710    
       04011 +070000100002           OCT 070000100002                                                 F6P04720    
       04012 +177777100001           OCT 177777100001                                                 F6P04730    
       04013 +000000100000           OCT 000000100000                                                 F6P04740    
       04014 -076000000007           OCT 476000000007                                                 F6P04750    
       04015 +076200000321           OCT 076200000321                                                 F6P04760    
       04016 +070000177452           OCT 070000177452                                                 F6P04770    
       04017 +177777100006           OCT 177777100006                                                 F6P04780    
       04020 +000000000000           OCT 000000000000                                                 F6P04790    
       04021 +377470100005           OCT 377470100005                                                 F6P04800    
       04022 -053400177715           OCT 453400177715                                                 F6P04810    
       04023 -063400177715           OCT 463400177715                                                 F6P04820    
       04024 +060000077453           OCT 060000077453                                                 F6P04830    
       04025 +076200000321           OCT 076200000321                                                 F6P04840    
       04026 +070000000000           OCT 070000000000                                                 F6P04850    
       04027 +002000077500           OCT 002000077500                                                 F6P04860    
       04030 +000000000015           OCT 000000000015                                                 F6P04870    
       04031 +060000200000           OCT 060000200000                                                 F6P04080    
       04032 +200001200021           OCT 200001200021                                                 F6P04890    
       04033 +014000000024           OCT 014000000024                                                 F6P04900    
       04034 +002000000000           OCT 002000000000                                                 F6P04910    
       04035 +000000000000           OCT 000000000000                                                 F6P04920    
       04036 +000000000030           OCT 000000000030                                                 F6P04930    
       04037 +000000077777           OCT 000000077777                                                 F6P04940    
       04040 +050000000000           OCT 050000000000                                                 F6P04950    
       04041 +070000000001           OCT 070000000001                                                 F6P04960    
       04042 -012000077626           OCT 412000077626                                                 F6P04970    
       04043 +010000000015           OCT 010000000015                                                 F6P04980    
       04044 +060000077777           OCT 060000077777                                                 F6P04990    
       04045 -053400100000           OCT 453400100000                                                 F6P05000    
       04046 -300037177516           OCT 700037177516                                                 F6P05010    
       04047 +300040100000           OCT 300040100000                                                 F6P05020    
       04050 +062100000025           OCT 062100000025                                                 F6P05030    
       04051 +040000000026           OCT 040000000026                                                 F6P05040    
       04052 +062100000026           OCT 062100000026                                                 F6P05050    
       04053 +050000000001           OCT 050000000001                                                 F6P05060    
       04054 +062100077520           OCT 062100077520                                                 F6P05070    
       04055 +002000000015           OCT 002000000015                                                 F6P05080    
       04056 +062100000010           OCT 062100000010                                                 F6P05090    
       04057 +077100000017           OCT 077100000017                                                 F6P05100    
       04060 -073400400000           OCT 473400400000                                                 F6P05110    
       04061 -300001477524           OCT 700001477524                                                 F6P05120    
       04062 +007400277611           OCT 007400277611                                                 F6P05130    
       04063 +062100000010           OCT 062100000010                                                 F6P05140    
       04064 -050000000000           OCT -50000000000                                                 F6P05150    
       04065 +077100000022           OCT 077100000022                                                 F6P05160    
       04066 +040000000010           OCT 040000000010                                                 F6P05170    
       04067 +062100077531           OCT 062100077531                                                 F6P05180    
       04070 -053400200000           OCT 453400200000                                                 F6P05190    
       04071 -300000200000           OCT 700000200000                                                 F6P05200    
       04072 +062100077577           OCT 062100077577                                                 F6P05210    
       04073 +062100077601           OCT 062100077601                                                 F6P05220    
       04074 +062100077572           OCT 062100077572                                                 F6P05230    
       04075 +062100077566           OCT 062100077566                                                 F6P05240    
       04076 +062100077543           OCT 062100077543                                                 F6P05250    
       04077 -050000000000           OCT 450000000000                                                 F6P05260    
       04100 -300001477543           OCT 700001477543                                                 F6P05270    
       04101 -070000000007           OCT 470000000007                                                 F6P05280    
       04102 -070000000006           OCT 470000000006                                                 F6P05290    
       04103 -070000200000           OCT 470000200000                                                 F6P05300    
       04104 +200001277543           OCT 200001277543                                                 F6P05310    
       04105 -300000477551           OCT 700000477551                                                 F6P05320    
       04106 -300001400015           OCT 700001400015                                                 F6P05330    
       04107 -300002477551           OCT 700002477551                                                 F6P05340    
       04110 -300003477561           OCT 700003477561                                                 F6P05350    
       04111 +060200000000           OCT 060200000000                                                 F6P05360    
       04112 +050000000001           OCT 050000000001                                                 F6P05370    
       04113 +010000077557           OCT 010000077557                                                 F6P05380    
       04114 +040200000000           OCT 040200000000                                                 F6P05390    
       04115 +010000077557           OCT 010000077557                                                 F6P05400    
       04116 +042000000000           OCT 042000000000                                                 F6P05410    
       04117 -300001400015           OCT 700001400015                                                 F6P05420    
       04120 +300003477642           OCT 300003477642                                                 F6P05430    
       04121 +056000000006           OCT 056000000006                                                 F6P05440    
       04122 +050000000007           OCT 050000000007                                                 F6P05450    
       04123 -076300000001           OCT 476300000001                                                 F6P05460    
       04124 +060200000007           OCT 060200000007                                                 F6P05470    
       04125 +012000077573           OCT 012000077573                                                 F6P05480    
       04126 +050000100000           OCT 050000100000                                                 F6P05490    
       04127 +077100000022           OCT 077100000022                                                 F6P05500    
       04130 +007400277604           OCT 007400277604                                                 F6P05510    
       04131 +076700000022           OCT 076700000022                                                 F6P05520    
       04132 +062200100000           OCT 062200100000                                                 F6P05530    
       04133 +050000000007           OCT 050000000007                                                 F6P05540    
       04134 -076300000001           OCT 476300000001                                                 F6P05550    
       04135 +060200000007           OCT 060200000007                                                 F6P05560    
       04136 +012000077602           OCT 012000077602                                                 F6P05570    
       04137 +050000100000           OCT 050000100000                                                 F6P05580    
       04140 +007400277604           OCT 007400277604                                                 F6P05590    
       04141 +062100100000           OCT 062100100000                                                 F6P05600    
       04142 +200001177562           OCT 200001177562                                                 F6P05610    
       04143 +002000000015           OCT 002000000015                                                 F6P05620    
       04144 +062100000010           OCT 062100000010                                                 F6P05630    
       04145 +050000000007           OCT 050000000007                                                 F6P05640    
       04146 -076300000001           OCT 476300000001                                                 F6P05650    
       04147 +060200000007           OCT 060200000007                                                 F6P05660    
       04150 -012000077612           OCT 412000077612                                                 F6P05670    
       04151 +076000000141           OCT 076000000141                                                 F6P05680    
       04152 +050200000010           OCT 050200000010                                                 F6P05690    
       04153 +040000000025           OCT 040000000025                                                 F6P05700    
       04154 +012000077622           OCT 012000077622                                                 F6P05710    
       04155 -076000000141           OCT 476000000141                                                 F6P05720    
       04156 +002000077624           OCT 002000077624                                                 F6P05730    
       04157 +050000000010           OCT 050000000010                                                 F6P05740    
       04160 +040100077520           OCT 040100077520                                                 F6P05750    
       04161 +002000200001           OCT 002000200001                                                 F6P05760    
       04162 -076000000141           OCT 476000000141                                                 F6P05770    
       04163 +002000077617           OCT 002000077617                                                 F6P05780    
       04164 +040200000026           OCT 040200000026                                                 F6P05790    
       04165 +002000200001           OCT 002000200001                                                 F6P05800    
       04166 -073400200000           OCT 473400200000                                                 F6P05810    
       04167 -300000277770           OCT 700000277770                                                 F6P05820    
       04170 +040000077771           OCT 040000077771                                                 F6P05830    
       04171 +040000077640           OCT 040000077640                                                 F6P05840    
       04172 +062200077713           OCT 062200077713                                                 F6P05850    
       04173 +040200077715           OCT 040200077715                                                 F6P05860    
       04174 +062200077667           OCT 062200077667                                                 F6P05870    
       04175 +036100000000           OCT 036100000000                                                 F6P05880    
       04176 +040200077640           OCT 040200077640                                                 F6P05890    
       04177 +077100000022           OCT 077100000022                                                 F6P05900    
       04200 +200002277641           OCT 200002277641                                                 F6P05910    
       04201 +007400477536           OCT 007400477536                                                 F6P05920    
       04202 -053400177771           OCT 453400177771                                                 F6P05930    
       04203 +050000077777           OCT 050000077777                                                 F6P05940    
       04204 +010000077652           OCT 010000077652                                                 F6P05950    
       04205 +050000000007           OCT 050000000007                                                 F6P05960    
       04206 +060100177451           OCT 060100177451                                                 F6P05970    
       04207 +050000000006           OCT 050000000006                                                 F6P05980    
       04210 +060100177452           OCT 060100177452                                                 F6P05990    
       04211 +200002177704           OCT 200002177704                                                 F6P06000    
       04212 +050000000026           OCT 050000000026                                                 F6P06010    
       04213 +060000177451           OCT 060000177451                                                 F6P06020    
       04214 +060100177452           OCT 060100177452                                                 F6P06030    
       04215 -053400400007           OCT 453400400007                                                 F6P06040    
       04216 +300000477661           OCT 300000477661                                                 F6P06050    
       04217 +050000077776           OCT 050000077776                                                 F6P06060    
       04220 +060100177451           OCT 060100177451                                                 F6P06070    
       04221 +050000000007           OCT 050000000007                                                 F6P06080    
       04222 +062200177451           OCT 062200177451                                                 F6P06090    
       04223 +062100000025           OCT 062100000025                                                 F6P06100    
       04224 +040000000026           OCT 040000000026                                                 F6P06110    
       04225 +062100000026           OCT 062100000026                                                 F6P06120    
       04226 +073400200000           OCT 073400200000                                                 F6P06130    
       04227 +300000200003           OCT 300000200003                                                 F6P06140    
       04230 +050000077520           OCT 050000077520                                                 F6P06150    
       04231 +040200000006           OCT 040200000006                                                 F6P06160    
       04232 +073400400000           OCT 073400400000                                                 F6P06170    
       04233 -075400400000           OCT 475400400000                                                 F6P06180    
       04234 +077100000022           OCT 077100000022                                                 F6P06190    
       04235 +010000077677           OCT 010000077677                                                 F6P06200    
       04236 +034000000027           OCT 034000000027                                                 F6P06210    
       04237 +050000000027           OCT 050000000027                                                 F6P06220    
       04240 +076100000000           OCT 076100000000                                                 F6P06230    
       04241 +060100000027           OCT 060100000027                                                 F6P06240    
       04242 +040200000026           OCT 040200000026                                                 F6P06250    
       04243 -012000077453           OCT 412000077453                                                 F6P06260    
       04244 -063400277777           OCT 463400277777                                                 F6P06270    
       04245 +060000000007           OCT 060000000007                                                 F6P06280    
       04246 +100002177707           OCT 100002177707                                                 F6P06290    
       04247 +050000177452           OCT 050000177452                                                 F6P06300    
       04250 +007400277604           OCT 007400277604                                                 F6P06310    
       04251 +062100177452           OCT 062100177452                                                 F6P06320    
       04252 +100002177713           OCT 100002177713                                                 F6P06330    
       04253 -300000177707           OCT 700000177707                                                 F6P06340    
       04254 -063400177771           OCT 463400177771                                                 F6P06350    
       04255 -277452000015           OCT 677452000015                                                 F6P06360    
       04256 -050000277453           OCT 450000277453                                                 F6P06370    
       04257 -010000077723           OCT 410000077723                                                 F6P06380    
       04260 +050000277454           OCT 050000277454                                                 F6P06390    
       04261 +062100000024           OCT 062100000024                                                 F6P06400    
       04262 +002000077770           OCT 002000077770                                                 F6P06410    
       04263 -032000077776           OCT 432000077776                                                 F6P06420    
       04264 -010000077770           OCT 410000077770                                                 F6P06430    
       04265 +050000277453           OCT 050000277453                                                 F6P06440    
       04266 -073400400000           OCT 473400400000                                                 F6P06450    
       04267 +077100000022           OCT 077100000022                                                 F6P06460    
       04270 +040000277454           OCT 040000277454                                                 F6P06470    
       04271 +062100077736           OCT 062100077736                                                 F6P06480    
       04272 +062100077764           OCT 062100077764                                                 F6P06490    
       04273 +062100077766           OCT 062100077766                                                 F6P06500    
       04274 +062100077741           OCT 062100077741                                                 F6P06510    
       04275 -053400177771           OCT 453400177771                                                 F6P06520    
       04276 -050000400000           OCT 450000400000                                                 F6P06530    
       04277 -032000077776           OCT 432000077776                                                 F6P06540    
       04300 +010000077767           OCT 010000077767                                                 F6P06550    
       04301 +050000400000           OCT 050000400000                                                 F6P06560    
       04302 +034000177453           OCT 034000177453                                                 F6P06570    
       04303 +002100077745           OCT 002100077745                                                 F6P06580    
       04304 +002000077763           OCT 002000077763                                                 F6P06590    
       04305 +200002177742           OCT 200002177742                                                 F6P06600    
       04306 +060100000006           OCT 060100000006                                                 F6P06610    
       04307 -053400177753           OCT 453400177753                                                 F6P06620    
       04310 +050000177477           OCT 050000177477                                                 F6P06630    
       04311 +010000077757           OCT 010000077757                                                 F6P06640    
       04312 +034000000006           OCT 034000000006                                                 F6P06650    
       04313 -200024077755           OCT 600024077755                                                 F6P06660    
       04314 +002000077767           OCT 002000077767                                                 F6P06670    
       04315 +200001177750           OCT 200001177750                                                 F6P06680    
       04316 +000000077770           OCT 000000077770                                                 F6P06690    
       04317 +050000000006           OCT 050000000006                                                 F6P06700    
       04320 +060100177477           OCT 060100177477                                                 F6P06710    
       04321 +060000177500           OCT 060000177500                                                 F6P06720    
       04322 +002000077767           OCT 002000077767                                                 F6P06730    
       04323 +050000077743           OCT 050000077743                                                 F6P06740    
       04324 +060100400000           OCT 060100400000                                                 F6P06750    
       04325 +050000177454           OCT 050000177454                                                 F6P06760    
       04326 +062100400000           OCT 062100400000                                                 F6P06770    
       04327 +200001477735           OCT 200001477735                                                 F6P06780    
       04330 +100002277771           OCT 100002277771                                                 F6P06790    
       04331 -300000277716           OCT 700000277716                                                 F6P06800    
       04332 +050000077453           OCT 050000077453                                                 F6P06810    
       04333 -010000077775           OCT 410000077775                                                 F6P06620    
       04334 +100324200021           OCT 100324200021                                                 F6P06830    
       04335 +000000000014           OCT 000000000014                                                 F6P06840    
       04336 -300000000000           OCT 700000000000                                                 F6P06850    
       04337 +000000000000           OCT 000000000000                                                 F6P06860    
 A                      00000        END                                                              F6P06870    
                        00001 0   IN
                              0  ONE 00162,00162
                              0  SW1 00177,00177
                              0  SW5 00203,00203
                              0  TRB 02114,02114
                              0  TWO 00163,00163
                              0 ZERO 00161,00161
                              0ABSOP 02114,02114
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     689           0           0           0           0
 LIB       0           0           0           0           0
 COL     689           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      739                  
0NUMBER OF SYMBOLS,  DEF   239,DEFOP     0,UNDEF     1      
9            REM PST                                                                      
1                                        PST                                                                      
                                         APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.                    
                                         T04 FORTRAN II / SECTI0N ONE.                   29 OCT 58                
                                         8K VERSION WITHOUT CODING ON DRUMS.                                      
                                                                                                                  
                                         SECTI0N 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIE4F10000     
                                         FORMULAS, COMPILES THE OBJECT (OUTPUTI INSTRUCTIONS. FOR     4F10001     
                                         N0NARITHMETIC 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     
                                         TNROUGHOUT 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 06322        PZE STATEB-1                                                     4F100123    
                                                                                                      4F10013     
                                         PART I / 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     
                                         C0I50,2                   SCAN, AND CONVERT NUMERICS.        4F10025     
                                         C0160,2                   SCAN CHARACTERS.                   4F10026     
                                         C0180,Z                   CONVERT NUMERICS.                  4F10027     
                                         C0I90X,4                  INITIALIZE C0190 TO 1ST WORD OF F. 4F10028     
                                         C0390,4                   INSERT CHARACTER.                  4F10029     
                                         C0190,4                   OBTAIN NEXT NON-BLANK CHAR IN AC.  4F10030     
                                         CIT00,4                   COMPILED INSTRUCTION TABLE ENTRIES.4F10031     
                                         DIM.SR,4                  DIMENSION TABLE SEARCH.            4F10032     
                                         DRTABS(,4)                DRUM TABLE ENTRIES.                4F10033     
                                         0ETIFN,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                   COMPUTE RELATIVE ADDRESS.          4F10037     
                                         RDRX,4                    READ DRUM INTO BUFR.               4F10038     
                                         SR6DCI,1                  CONVERT 6 BCD DIGITS TO 1 BINARY.  4F10039     
                                         SS000,4                   SOAN AND PR0CESS SUBSCRIPTS.       4F10040     
                                         SUBX00,4                  ADD BLANKS TO SUBROUTINE NAMES.    4F10041     
                                         TESTFX,1                  TEST FOR FIXED OR FLOATING POINT.  4F10042     
                                         TEST..,4                  TEST CHARACTER IN THE AC.          4F10043     
                                         TET00,1                   TAPE TABLE ENTRIES.                4F10044     
                                                                                                      4F10045     
                                         DIAG                      DIAGNOSTIC OALLERS.                4F10046     
                                                                                                      4F10047     
                                         TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING=          4F10048     
                                                                                                      4F10049     
                                         ** IN THE ADDRESS, 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 0F   4F10052     
                                         TNIS 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,,INTERNAL 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 NOLARG 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     
                                          FND 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     
                                                                                                      4F10101     
       00322  0 00012 0 00036 INTET  PZE TEIFNO,,10                00) O,,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) O,,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) O,,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) O,,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) O,,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) O,,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) O,,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                 06) O,,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) O,,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) O,.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) O,,0.                          4F10146     
       00364  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10147     
       00365  0 00000 0 00000 SBDFCN PZE **,,**                        O,,P.                          4F10148     
                                                                                                      4F10149     
       00366  0 00012 0 00226        PZE COMMON,,10                12I O,,B.                          4F10150     
       00367  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10151     
       00370  0 00000 0 00000        PZE **,,**                        O,,P.                          4F10152     
                                                                                                      4F10153     
       00371  0 00012 0 00240        PZE NOLARG,,10                I3) 0,,0.                          4F10154     
       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) O,,0.                          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) O,,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) O,,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 FOR 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 0F 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  = N*(L+I) FOR ENTRY SUM TABLE,4F10187     
                                                                   DBL  = K*L+I   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 ALT,,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  TXH 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 ALT,,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                      TAI ALT,,I                     4F10208     
                                                                                                      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 ALT,,I                     4F10214     
                                                                                                      4F10215     
       00437  0 00006 0 01137        PZE E+3+6,,6                  TAU3  ) ARG1+L,,L                  4F10216     
       00440  0 00000 0 01356        PZE TAU3,,**                          TDA,,N                     4F10217     
       00441 -3 00060 0 01356        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 ALT,,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*1                  *** 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 ALT,,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 ALT,,I                     4F10232     
                                                                                                      4F10233     
       00456  0 00002 0 01107        PZE 1C+2,,2                   DIM2  ) ARG1+L,,L                  4F10234     
       00457  0 00000 0 00764        PZE DIM2,,**                          T0A,,N 4                   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 ALT,,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 00132 0 00000        PZE 0,,90                             DBL,,J                     4F10243     
       00467  1 00002 0 02071 DIM3IX TXI DIMALT,,5-3                   TXI ALT,,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 0F THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262     
                        01100        ORG 576                                                          4F102625    
                        01100 ERASE  BSS 5                         C0MMON WORKING STORAGE.            4F10263     
                        01105 1C     BSS 5                         C0MMON NORKING STORAGE.            4F10264     
                        01112 1G     BSS 1                         COMMON NORKING 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                         ERASABLE 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     
                                         C0MMON/2-CONSTANTS USED BY SECTION ONE=                      4F10306     
                                                                                                      4F10307     
       01373 +000000000012    TEN    OCT 12                        (1010) - CTEST-1I                  4F10308     
       01374 +000000000077    ENDMK  OCT 77                        111111 - CTEST-I0                  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     
       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                        000000000060                       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                      A0DRESS=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 FXD-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-I            -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                       CONSTANT 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     
       01467 +000032000000    PZ     OCT 32000000                  PLUS ZERO -ED000.                  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 I0T.              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.    4F10365     
       01507 +077777000000    1BAR   OCT 77777000000               (2**15-1)*2**18DECREMENT MASK.     4F10386     
       01510 +170000000000     15P   DEC 15B5                      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. VARIABLE. 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             MULTIPLICATION SIGN -ARITHMETIC.   4F10399     
       01525 -145400000000    STRSTR OCT -145400000000             EXPONENTIATION SIGN -ARITHMETIC.   4F10400     
       01526  606060606060    BLANKS BCD 1                         606O60606060                       4F10401     
       01527 -377777700000    MASK1  OCT -377777700000             -(2**20-U.*2**15   -ARITHMETIC.    4F10402     
       01530 -377777777737    MASK4  OCT -377777777737                                -ARITHMETIC.    4F10403     
       01531 -377777777777    ALL1   OCT -377777777777             END OF STATEMENT 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 OPERATI0N 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 OPERATI0N CODE.           4F10420     
       01551  262447000000    LIFDP) BCD 1FDP000                   SYMBOLIC OPERATION CODE.           4F10421     
       01552  264447000000    L(FMP) BCD 1FMP000                   SYMBOLIC OPERATION CODE.           4F10422     
       01553  266222000000    L(FSB) BCD 1FSB000                   SYMBOLIC OPERATION C0DE.           4F10423     
       01554  304751000000    L(HPR) BCD 1HPR000                   SYMBOLIC OPERATION CODE.           4F10424     
       01555  432421000000    L(LDA) BCD 1LDA000                                                      4F10425     
       01556  432450000000    L(LDQ) BCD 1LDQ000                   SYMBOLIO 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                   IDMBOLIC 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  504751000000    L(QPR) BCD 1QPR000                   CONSTANT USED BY C3200.            4F10435     
       01570  506724000000    L(QXD) BCD 1QXD000                   CONSTANT USED BY C3200.            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 C0DE.           4F10441     
       01576  633167000001    L(TIX) BCD 1TIX001                                                      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 C0DE.           4F10445     
       01602  636267000000    L(TSX) BCD 1TSX000                   SYMBOLIC OPERATION CODE.           4F10446     
       01603  642621000000    L(UFA) BCD 1UFA000                   IYMBOLIC OPERATION CODE.           4F10447     
                                          END 0F 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 = -0, 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-NUMERIC CHARACTER.   4F10466     
       01613  0 50000 0 01406        CLA L(0)                      PREPARE TO SET I T0 +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 01113        STO 2G                        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     
                                                                                                      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     
                                         SUOCESS.VE 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 THAN 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 PUNCTUATION.                   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  4                     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                        THAN 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 T0     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 PR0CESS FOR NEXT CHARACTER. 4F10528     
                                          END OF PR0GRAM C01080                                       4F10529     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530     
                                                                                                      4F10531     
                                         C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.             4F10532     
                                         C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA 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 C0UNT = 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 INT0 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,C0200,C0300,C0400,  4F10556     
                                         C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557     
                                         C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR.          4F10558     
                                         C0190 OBTAINS IN AC TH  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(LTMSWI,LIB,VRA(VRD).                                   4F10583     
                                         CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN  4F10584     
                                         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 2 00640        STO CIB,2                     INTO CIB BUFFER,                   4F10605     
       01755  1 77777 2 01756        TXI CIT07,2,-1                AND C0UNT -1 FOR EACH WORD ENTERED.4F10606     
       01756  2 00001 1 01750 CIT07  TIX CIT05,1,1                 WHEN DONE,                         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(XR2I, 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 0F 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(XR4) FOR 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                    DMSRO5+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 FOR 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) FOR RETURN,        4F10639     
       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 0F 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   4                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 NAME OF V.4F10661     
       02034  0 07400 4 03400        TSX DIAG,4                  * GO TO DIAGNOSTIC - 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 ROUTINE.   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     
                                                                                                      4F10604     
                                         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 INFORMATION.   4F10699     
                                         DIMALT= ENTRY POINT FOR DIMENSION TABLES.                    4F10700     
       02071 -0 50000 0 00415 DIMALT CAL TXLOP                     PICK UP SNITCH CONTROL,            4F10701     
 D     02072  1 00000 0 02074        TXI DRTABS,0                  AND GO SET SNITCH FOR DIM TABLES.  4F10702     
                                         ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.                  4F10703     
       02073  0 50000 0 00422 ALT    CLA TXHOP                     PICK UP SWITCH CONTROL,            4F10704     
       02074  0 63000 0 02135 DRTABS STP DIMSW                     SET SNITCH.                        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 PARAMETERS         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     
 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                    ENTRY 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 ADDR +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 ADDED 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     
       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 TNAN 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 FXCNIX-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                  * GO TO DIAGNOSTIC.                  4F10827     
       02267 -0 75400 4 00000 WHICHX PXD ,4                        OTHERWISE,                         4F10826     
       02270  0 76000 0 00006        COM                           CONVERT 2S COMPLEMENT              4F10829     
       02271  0 40000 0 01454        ADD 2E18                      OF NUMBER,                         4F10630     
       02272 -0 73400 4 00000        PDX ,4                        PLACE IN XR4, AND                  4F10831     
 D     02273  1 00000 0 03400        TXI DIAG,0                  * GO TO DIAGNOSTIC.                  4F11832     
                                                                                                      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                         NORKING 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 ADDRESS FOR ABOVE -DRTABS.4F10842     
                        02365 DUMP   BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10643     
                                          END OF PROGRAM DRTABS.                                      4F10844     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845     
                                                                                                      4F10646     
                                         GETIFN,4/ OALLERS=COI00,CO200,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 XRI, IN THE DECREMENT    4F10850     
       02370  0 60100 0 01105        STO 1C                        OF THE AC, AND IN IC. THEN         4F10851     
       02371  0 02000 4 00001        TRA 1,4                       RETURN TO CALLER.                  4F10852     
                                          END OF PROGRAM GETIFN.                                      4F10853     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854     
                                                                                                      4F10855     
                                         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     
       02402  0 02000 0 03440        TRA STATEA            RETURN FROM DIAGNOSTIC                     4F10873     
                        02403        BSS 28                NOT USED.                                  4F10874     
                                                                                                      4F10901     
                                                                                                      4F10908     
                                         RA000,4/ CALLERS=LPR,ARITH.                                  4F10909     
                                         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 DECREMENT 1,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 DIMENSIONS 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 TQ 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                      4F10045     
       02502  0 56000 0 01136        LDQ E+8                       TO THE PRODUCT, AND                4F10946     
       02503  0 40200 0 01361 2D1    SUB N2                        SUBTRACT ADDEND 2.                 4F10047     
       02504  0 60100 0 01351        STO GTAG                      MULTIPLY                           4F10040     
       02505  0 20000 0 01351        MPY GTAG                      THE RESULT                         4F10049     
       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 1 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 TNE DECREMENT OF GTAG,          4F10955     
       02514  0 77100 0 00030        ARS 24                        WITH I-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 RA000.                                       4F10960     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961     
                                                                                                      4F10962     
                                         RDRX*4/ CALLS=DIAG. CALLER=DRTABS.                           4F10963     
                                         RDRX READS A BLOCK OF 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 XRZ = (5-DRUM NUMBER).         4F10966     
       02522  3 00000 2 02524        TXH BIAS-2,2,0                IF NOT GREATER THAN 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                    TABLES                             4F10901     
       02541 -2 00001 2 02564        TNX ERR,2,1                   EXCEPT                             4F10902     
       02542  0 70000 2 02357        CPY BUFR,2                    FLOCON=                            4F10903     
       02543 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10904     
       02544  0 70000 2 02357        CPY BUFR,2                    X                                  4F10905     
       02545 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10906     
       02546  0 70000 2 02357        CPY BUFR,2                    X                                  4F10907     
       02547 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10906     
       02550  0 70000 2 02357        CPY BUFR,2                    X                                  4F10909     
       02551 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10990     
       02552  0 70000 2 02357        CPY BUFR,2                    X                                  4F10901     
       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  1 77777 0 02610 ENDWRD TXI 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     
       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 C0UNT, 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 COMB1NATIONS 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 01414 SS001  LXA L(6),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 PON BLANK CHAR IN THE AC.4F11049     
       02632  0 34000 0 01417        CAS L(9)                      COMPARE IT UITH 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                  SST XR4 = NO. OF PUNCTUATION MARKS.4F11059     
       02644  0 34000 4 01406 SS0015 CAS CTEST,4                   TEST THIS CHARACTER AGAINST        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 4 02644 SS0016 TIX SS0015,4,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.    4F11066     
       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     
       02660  0 60200 0 01365        SLW RESIDU                    TO RESIDU, 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-MULTIPLIER NOT A CONSTANT.    4F11083     
       02674 -0 50000 0 01370 SBX2   CAL 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 TESTS.      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                UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103     
       02720  0 07400 4 03400 STOP49 TSX DIAG,4                  * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104     
                                         SUBTR/ CONTR0L TRANSFERS FOR SUBSCRIPT SCAN=                 4F11105     
 D     02721  1 00000 0 02722        TXI ISC,0                     EMK (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     
       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     
       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 DIMENSION 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 ADDENDS (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 0F 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 INT0 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 TO SUBSCRIPT 2 IN E+6.        4F11218     
       03100  0 50000 0 01101        CLA D12                       MOVE DIMENSIONS 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     
       03117  0 10000 0 03216 3D0350 TZE NOTAG                     --DON,T ENTER FORTAG.              4F11234     
       03120 -0 50000 0 00030 FTG000 CAL 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.                    4P11237     
       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       4F11240     
       03126  0 07400 1 03321        TSX TET00,1                 * ENTER INTO FORTAG TABLE            4F11241     
       03127  0 00000 0 00004        PZE 4                         (TET TABLE 4).                     4F11242     
 D     03130  1 00000 0 03220        TXI SAEXIT,0                  GO TO EXIT.                        4F11243     
       03131  0 53400 4 01412 2D0000 LXA L(4),4                    THEN PICKUP AND                    4F11244     
       03132  0 56000 4 01135 2D0001 LDQ E+7,4                     CONVERT COEFFICIENTS               4F11245     
       03133  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY),                   4F11246     
       03134  0 60100 4 01135        STO E+7,4                     AND STORE BACK IN E+3 AND E+5.     4F11247     
       03135  2 00002 4 03132        TIX 2D0001,4,2                WHEN DONE,                         4F11248     
       03136  0 53400 4 01410        LXA L(2),4                    PREPARE TO                         4F11249     
       03137  0 50000 4 01143 2D0002 CLA E+13,4                    PICKUP THE TWO ADDENDS.            4F11250     
       03140  0 60200 0 01347        SLW G                         STRIP OFF                          4F11251     
       03141  0 56000 0 01347        LDQ G                         THEIR SIGNS,                       4F11252     
       03142  0 07400 1 02566        TSX SR6DC1,1                * CONVERT THEM FROM BCD TO BINARY,   4F11253     
       03143  0 56000 4 01143        LDQ E+13,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11254     
       03144  0 16200 0 03146        TQP 2D0040                    IF PLUS--SKIP NEXT,                4F11255     
       03145 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11256     
       03146  0 60100 4 01143 2D0040 STO E+13,4                    AND STORE BACK IN E+11 AND E+12.   4F11257     
       03147  2 00001 4 03137        TIX 2D0002,4,1                WHEN DONE,                         4F11258     
       03150  0 07400 4 01775        TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F11259     
       03151  0 07400 4 03400        TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11260     
       03152  0 50000 0 01131 2D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11261     
       03153  0 76700 0 00022        ALS 18                        PACK TOGETHER                      4F11262     
       03154  0 40000 0 01133        ADD E+5                       COEFFICIENTS 1 AND 2,              4F11263     
       03155  0 60100 0 01131        STO E+3                       AND STORE THEM IN E+3.             4F11264     
       03156  0 50000 0 01134        CLA E+6                       MOVE SUBSCRIPT 2 INTO E+5          4F11265     
       03157  0 60100 0 01133        STO E+5                       (NEXT TO SUBSCRIPT 1 IN E+4).      4F11266     
       03160  0 50000 0 01101        CLA D12                       OBTAIN                             4F11267     
       03161 -0 32000 0 01527        ANA MASK1                     DIMENSION 1, AND MOVE IT           4F11268     
       03162  0 60100 0 01134        STO E+6                       INTO E+6.                          4F11269     
       03163 -0 50000 0 01141        CAL E+11                      PACK TOGETHER                      4F11270     
       03164  0 76700 0 00022        ALS 18                        ADDENDS 1 AND 2,                   4F11271     
       03165 -0 50100 0 01142        ORA E+12                      AND STORE THEM                     4F11272     
       03166  0 60200 0 01141        SLW E+11                      IN E+11.                           4F11273     
       03167  0 07400 4 00436        TSX TAU2IX,4                * GO SEARCH TAU2 TABLE.              4F11274     
       03170  0 76700 0 00030        ALS 24                        POSITION TAU2 TAG, AND             4F11275     
       03171 -0 60200 0 01126        ORS E                         PLACE TAU2 TAG IN TAG WORD.        4F11276     
       03172 -0 50000 0 01132        CAL E+4                       COMBINE SUBSCRIPTS 1 AND 2, AND    4F11277     
 D     03173  1 00000 0 03116        TXI 3D0340,0                  GO TO FORTAG SECTION.              4F11278     
       03174  0 56000 0 01131 1D0000 LDQ E+3                       PICKUP AND CONVERT COEFFICIENTS    4F11279     
       03175  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND               4F11280     
       03176  0 76700 0 00022        ALS 18                        THEN ADJUST THEM,                  4F11281     
       03177  0 60100 0 01131        STO E+3                       AND STORE THEM BACK IN E+3.        4F11282     
       03200  0 50000 0 01141        CLA E+11                      PICKUP ADDEND,                     4F11283     
       03201  0 60200 0 01347        SLW G                         STRIP OFF SIGN,                    4F11284     
       03202  0 56000 0 01347        LDQ G                         CONVERT ADDEND                     4F11285     
       03203  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND THEN          4F11286     
       03204  0 56000 0 01141        LDQ E+11                      PUT SIGN IN S-BIT OF MQ, AND       4F11287     
       03205  0 16200 0 03207        TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11288     
       03206 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11289     
       03207  0 76700 0 00022 1D0001 ALS 18                        THEN ADJUST AND STORE              4F11290     
       03210  0 60200 0 01141        SLW E+11                      BACK INTO E+11.                    4F11291     
       03211  0 07400 4 00431        TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11292     
       03212  0 76700 0 00030        ALS 24                        POSITION TAU1 TAG, AND             4F11293     
       03213 -0 60200 0 01126        ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11294     
       03214 -0 50000 0 01132        CAL E+4                       TAKE SUBSCRIPT, AND                4F11295     
 D     03215  1 00000 0 03117        TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11296     
       03216 -0 50000 0 01471 NOTAG  CAL FNIND                     POSITI0N SIGMA1 TAG, AND           4F11297     
       03217 -0 60200 0 01126        ORS E                         PLACE SIGMA1 TAG IN TAG WORD.      4F11298     
       03220 -0 53400 1 02730 SAEXIT LXD SXR1,1                    RESTORE THE C(XR1),                4F11299     
       03221 -0 53400 2 02731        LXD SXR2,2                    RESTORE THE C(XR2),                4F11300     
       03222 -0 53400 4 02732        LXD SXR4,4                    RESTORE THE C(XR4), AND            4F11301     
       03223  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11302     
                                          END OF PROGRAM SS000.                                       4F11303     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304     
                                                                                                      4F11305     
                                         SUBX00,4/ CALLERS=C3000,C3300.                               4F11306     
                                         SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES.              4F11307     
       03224  0 53400 3 01414 SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11308     
       03225  0 56000 0 01112        LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11309     
       03226 -0 75400 0 00000 SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11310     
       03227 -0 76300 0 00006        LGL 6                         SEARCH FOR A BLANK                 4F11311     
       03230  0 40200 0 01430        SUB BLANK                     CHARACTER IN THIS NAME.            4F11312     
       03231  0 10000 0 03235        TZE SUBX03                    IF NOT BLANK, THEN                 4F11313     
       03232  1 00006 1 03233        TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11314     
       03233  2 00001 2 03226 SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315     
       03234  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11316     
       03235  0 56000 0 01526 SUBX03 LDQ BLANKS                    IF LESS THAN 6 CHARACTERS IN NAME, 4F11317     
       03236 -0 76300 1 00044        LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11318     
       03237 -0 60200 0 01112        ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11319     
       03240  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11320     
                                          END OF PROGRAM SUBX00.                                      4F11321     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322     
                                                                                                      4F11323     
                                         TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11324     
                                         TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES.          4F11325     
       03241 -0 50000 0 01331 TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11326     
       03242  0 34000 0 01423        CAS L(H)                      WITH H.                            4F11327     
       03243  0 34000 0 01425        CAS L(O)                      IF GREATER THAN H, COMPARE WITH O. 4F11328     
       03244  0 02000 1 00001        TRA 1,1                     * IF NOT GREATER THAN H, LESS THAN O,4F11329     
       03245  0 02000 1 00001        TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11330     
       03246  0 02000 1 00002        TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11331     
                                          END OF PROGRAM TESTFX.                                      4F11332     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333     
                                                                                                      4F11334     
                                         TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335     
                                         C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11336     
                                         TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11337     
                                         TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11338     
       03247  0 34000 0 01376 TESTA0 CAS COMMA                                                        4F11339     
       03250  0 02000 0 03252        TRA TESTA1                                                       4F11340     
       03251  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11341     
       03252  0 40200 0 01374 TESTA1 SUB ENDMK                                                        4F11342     
       03253  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11343     
       03254  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11344     
                                         TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11345     
       03255  0 34000 0 01376 TESTB0 CAS COMMA                                                        4F11346     
       03256  0 02000 0 03260        TRA TESTB1                                                       4F11347     
       03257  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11348     
       03260  0 40200 0 01377 TESTB1 SUB CLOS                                                         4F11349     
       03261  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11350     
       03262  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO T0 DIAGNOSTIC.         4F11351     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11352     
       03263  0 34000 0 01375 TESTC0 CAS OPEN                                                         4F11353     
       03264  0 02000 0 03266        TRA TESTC1                                                       4F11354     
       03265  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11355     
       03266  0 40200 0 01374 TESTC1 SUB ENDMK                                                        4F11356     
       03267  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11357     
       03270  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11358     
                                         TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11359     
       03271  0 34000 0 01374 TESTD0 CAS ENDMK                                                        4F11360     
       03272  0 07400 4 03400 ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11361     
       03273  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11362     
       03274  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11363     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11364     
       03275  0 34000 0 01375 TESTE0 CAS OPEN                                                         4F11365     
       03276  0 02000 0 03300        TRA TESTE1                                                       4F11366     
       03277  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11367     
       03300  0 07400 4 03400 TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11368     
                                         TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11369     
       03301  0 34000 0 01377 TESTF0 CAS CLOS                                                         4F11370     
       03302  0 02000 0 03304        TRA TESTF1                                                       4F11371     
       03303  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11372     
       03304  0 07400 4 03400 TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11373     
                                         TEST CHARACTER IN THE AC FOR COMMA.                          4F11374     
       03305  0 34000 0 01376 TESTG0 CAS COMMA                                                        4F11375     
       03306  0 02000 0 03310        TRA TESTG1                                                       4F11376     
       03307  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11377     
       03310  0 07400 4 03400 TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11378     
                                         TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11379     
       03311  0 34000 0 01417 TESTH0 CAS L(9)                                                         4F11380     
       03312  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11381     
       03313  0 76100 0 00000        NOP                                                              4F11382     
       03314  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11383     
                                         TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11384     
       03315  0 34000 0 01417 TESTI0 CAS L(9)                                                         4F11385     
       03316  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11386     
       03317  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11387     
       03320  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11388     
                                          END OF PROGRAM TEST...                                      4F11389     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390     
                                                                                                      4F11391     
                                         TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11392     
                                         C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11393     
                                         TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11394     
                                         FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11395     
       03321 -0 63400 2 01100 TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11396     
       03322 -0 63400 4 01101        SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11397     
       03323 -0 60000 0 01103        STQ TETMQR                    SAVE THE C(MQR).                   4F11398     
       03324  0 50000 1 00001        CLA 1,1                       COMPUTE TABLE NUMBER               4F11399     
       03325  0 76700 0 00001        ALS 1                         TIMES 3                            4F11400     
       03326  0 40000 1 00001        ADD 1,1                       AND                                4F11401     
       03327  0 76000 0 00006        COM                           PLACE THE 2S COMPLEMENT            4F11402     
       03330  0 40000 0 01407        ADD L(1)                      OF THIS                            4F11403     
       03331  0 73400 2 00000        PAX ,2                        IN XR2.                            4F11404     
       03332  0 50000 2 00322        CLA INTET,2                   OBTAIN THE CURRENT                 4F11405     
       03333  0 77100 0 00022        ARS 18                        B (BUFFER CAPACITY),               4F11406     
       03334  0 60100 0 01102        STO TETWRK                    AND SAVE IT. THEN                  4F11407     
       03335  0 50000 2 00324        CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11408     
       03336  0 77100 0 00022        ARS 18                        AND                                4F11409     
       03337  0 40200 0 01102        SUB TETWRK                    COMPARE TO B.                      4F11410     
       03340 -0 10000 0 03356        TNZ TET03                     IF BUFFER IS FULL,                 4F11411     
       03341  0 62200 2 00324        STD INTET+2,2                 SET P = O, AND                     4F11412     
       03342  0 76600 0 00224 TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11413     
       03343  0 53400 4 01102        LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11414     
       03344  0 50000 0 01102        CLA TETWRK                    ADD BLOCK SIZE TO                  4F11415     
       03345  0 40000 2 00322        ADD INTET,2                   ORIGIN OF CURRENT BLOCK (O),       4F11416     
       03346  0 62100 0 03350        STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11417     
       03347  0 70000 1 00001        CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11418     
       03350  0 70000 4 00000 TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11419     
       03351  2 00001 4 03350        TIX TET02,4,1                 TABLE TAPE, AND                    4F11420     
       03352  0 76600 0 00333        IOD                           WHEN DONE,                         4F11421     
       03353  0 50000 2 00324        CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11422     
       03354  0 40000 0 01407        ADD L(1)                      BY 1 FOR                           4F11423     
       03355  0 62100 2 00324        STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11424     
       03356  0 50000 2 00324 TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11425     
       03357  0 77100 0 00022        ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11426     
       03360  0 40000 2 00322        ADD INTET,2                   BUFFER) TO SET                     4F11427     
       03361  0 62100 0 03371        STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11428     
       03362  0 50000 2 00323        CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11429     
       03363  0 62100 0 03370        STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11430     
       03364 -0 73400 4 00000        PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431     
       03365  0 40000 2 00324        ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11432     
       03366  0 62200 2 00324        STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11433     
       03367 -0 53400 2 01406        LXD L(0),2                    SET XR2 = 0. THEN                  4F11434     
       03370  0 50000 2 00000 TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11435     
       03371  0 60100 2 00000 TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11436     
       03372  1 77777 2 03373        TXI TET06,2,-1                WHEN                               4F11437     
       03373  2 00001 4 03370 TET06  TIX TET04,4,1                 DONE,                              4F11438     
       03374  0 56000 0 01103        LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11439     
       03375 -0 53400 2 01100        LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11440     
       03376 -0 53400 4 01101        LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11441     
       03377  0 02000 1 00002        TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11442     
                                          END OF PROGRAM TET00.                                       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     
                                         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     
                        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     
                                         PROGRAM.                                                     4F11468     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469     
                                                                                                      4F11470     
                                         PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =       4F11471     
       00471  0 53400 1 00504 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 00504        LXD CLDR07,2                  X                                  4F11474     
       00474  0 70000 0 00505 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     
       00502  0 07400 4 05702 DMWR99 TSX CA100,4                 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540     
       00503  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     
       00504  0 04000 0 00004 CLDR07 PZE 4,,2048                   CONSTANT FOR CLEARING DRUMS.       4F11548     
       00505  0 00000 0 00000 CLDR08 PZE 0                         CONSTANT FOR CLEARING DRUMS.       4F11549     
                                          END OF INITIALIZATION / PART 3.                             4F11552     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553     
                                                                                                      4F11554     
                                                                                                      4F11555     
                                         SECTION 1 / STATEA =                                         4F11556     
                                                                                                      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     
                                         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     
                                                                                                      4F11627     
                                         ** IN THE 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     
                        03440 STATEA BSS 0                                                            4F11640     
                                         CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.                        4F11641     
                                         CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO 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, THEN GO CALL DIAGNOSTIC.4F11644     
       03442 -0 53400 1 00030        LXD EIFNO,1                   KEEP INTERNAL 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 REG1ON 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                      T0 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 SCAM.           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     
                                         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     
       03526  0 07400 4 01707 CD700  TSX C0190,4                 * G0 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 CLASSIFICATI0N.  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 S IS LEGAL IN FORMAT TEXT.    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                    CMECK FOR S                        4F11712     
 D     03541  1 00000 0 03546        TXI CD601,0                   WHICH, UNLESS HOLLERITH, IS AN     4F11713     
       03542  0 07400 4 03400        TSX DIAG,4                  * ERROR -- G0 T0 DIAGNOSTIC.         4F11714     
       03543  0 34000 0 01435 CD600  CAS PM                        CMECK 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     
       03562  0 53400 1 01407 CB000  LXA L(1),1                    SET XR1 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 PAR6NTHESIS,               4F11752     
 D     03604  1 00000 0 03606        TXI CB205,0                   THEN                               4F11753     
 D     03605  1 00000 0 06323        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 NO,-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 06323        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 0F PROGRAM CB000.                                       4F11763     
                                         * * * * * * * * * * * * * * * . * * * * * * * * * * * * * * *4F11764     
                                                                                                      4F11765     
                                         CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.                  4F11766     
                                         CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC.       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 DICTI0NARY 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 0 03632        TXI CC004,0                   GO BEGIN COMPARISON.               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 T0 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 DICTIONARY 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 CHARACTERS ARE EQUAL,           4F11784     
       03637  0 10000 0 03626        TZE CC002                     THEN GO COMPARE NEXT CHARACTERS.   4F11785     
       03640  0 07400 4 05743 CC005  TSX CC500,4                 * OTHERWISE, EXAMINE NEXT DIC CHAR.  4F11786     
       03641  0 40200 0 01374        SUB ENDMK                     CONTINUE JNTIL AN ENDMARK IS       4F11787     
       03642 -0 10000 0 03640        TNZ CC005                     FOUND, THEN                        4F11788     
       03643  1 77777 1 03620        TXI CC001,1,-1                COUNT ENTRY, AND BEGIN AGAIN.      4=11789     
       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-EXECUTABLE 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 0F 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 COMPLETE 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                 * OBTAIN 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.                           4F1.819     
       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 NO,-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                           4F11820     
       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 CONTAIN 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                        O 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                 * EXIT TO PROCESS NEXT STATEMENT.    4F11842     
                                          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 LPAREN.          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 L0W 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                 * G0 MAKE THE FOLLOWING CIT ENTRY=   4F11895     
       03777  0 00000 0 01107        PZE 1C+2                      WORD 1--DECR= INTFORMNO (LOCATION) 4F11896     
       04000  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA000 (OP AND DECR)       4F11897     
       04001  0 00000 0 01110        PZE 1C+3                      WORD 3--VARIABLE N IADDRESS)       4F11898     
       04002  0 00000 0 01406        PZE L(0)                      WORD 4--000000 IREL 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, ANO    4F11903     
       04007  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE FXD-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 T0 SUBSCRIPT ANALYSIS=       4F11908     
       04014  0 50000 0 01112        CLA 1G                        E+3 = 1ST COEFFICIENT,             4F11909     
       04015  0 60100 0 01132        STO E+4                       E+6 = 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. 1NSTR.   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(LOCAT1ON)   4F11917     
       04025  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA000(OP ANO 0ECR)        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= ENTPY 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 ITABLE 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     
                                         C030O/ 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)                      REPLACE 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)                     REPLACE 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 LPAREN       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     
 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                     THEN TEST PAREN COUNT, AND IF IT   4F11954     
       04063  2 00001 2 04052        TIX C0302,2,1                 CAN NO, 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 FOLLOWED 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 ENOMARK.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 06323        TXI ARITH,0                 * EXIT T0 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 0F 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     
       04136  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF BETA 2,              4F12005     
       04137  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE FOLL0WED 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 (ADDRESSI            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 STATEMENTS.                  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     
                                         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 0CTAL 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,C0160,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                        ADDRE=S 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 01425        SUB L(O)                      AND IF IT IS NOT O, 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 AN0 TAG).   4F12108     
       04243  0 07400 4 01731        TSX CIT00,4                 * STORE SECOND COMPILED INSTRUCTION= 4F12109     
       04244  0 00000 0 01406        PZE L(0)                      WORD1--0OOOO0  (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 IADDRESS)          4F12112     
       04247  0 00000 0 01406        PZE L(0)                      WORD4--000000 (REL ADDR AND TAG).  4F12113     
       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 STATEMENTS.                      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                 * G0 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 PR0CESSES 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 SH0ULD 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                       ALS0 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 SEAROH 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 CONTINUE 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,                4F12156     
       04307  0 10000 0 04330        TZE C1210                     THEN                               4F12157     
       04310  0 50000 0 01112        CLA 1G                        PUT D1                             4F12158     
       04311  0 76700 0 00022        ALS 18                        IN DECR                            4F12159     
       04312  0 60100 0 01106        STO 1C+1                      OF 1C+1.                           4F12160     
       04313  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF D2.        4F12161     
       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 0F D3.        4F12168     
       04321  0 40200 0 01377        SUB CLOS                      IF MORE THAN 3 DIMENSION,          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     
       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 0F STATEMENT.   4F12179     
       04334  0 50000 0 01112 C1220  CLA 1G                        IF 2 DIMENSION, 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 ENDMARK, THEN      4F12185     
 D     04342  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    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 PROCESSES FREQUENCY STATEMENTS.                        4F12205     
       04354  0 07400 2 01654 C1400  TSX C0180X,2                * GO FORM BINARY EQUIV OF EFN.       4F122006    
       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                         SYMBOL INTO FRET (TABLE 7), AND    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 ENDMARK, 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     
                                         C1500/ CALLS=C0190,TEST..,C0160,C01B0,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 LPAREN.      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  1 00000 0 04416        TXI 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                      TNIS 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 C1600.                                       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 THE 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     
       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 04506        TXI C3002,0                   GO TEST FOR END OF STATEMENT.      4F12297     
       04466  0 40000 0 01374 C3001  ADD ENDMK                     IF NOT ENDMARK, RESTORE 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 RPAREN.  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 ANY4                         4F123298    
       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--O(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--O(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--O(IFN+1)000                 4F12368     
       04576  0 00000 0 01567        PZE L(QPR)                    WORD2--OPR000                      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--O(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     
                                                                                                      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 THF 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 CALL IN CALLNM 4F12398     
       04627  0 77100 0 00022        ARS 18                        FOR LATER TABLE ENTRY OF           4F12399     
       04630  0 62100 0 01123        STA CALLNM                    FIRST / LAST NUMBERS OF CALLS.     4F12400     
 D     04631  1 00000 0 06323        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 W1TH 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                         IN 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 S1MULATORS.    4F12429     
       04661  0 07400 4 01707 C3405  TSX C0190,4                 * PICKUP CONSTANT,                   4F12430     
       04662  0 34000 0 01410        CAS L(2)                      WHICH SH0ULD 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     
       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 FORMAT 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 01366        STA SET                       MOVE BINARY FORMAT NUMBER INTO SET.4F12464     
       04711 -0 50000 0 06114        CAL NTR                       MOVE NTR000                        4F12465     
       04712  0 60200 0 17401        SLW OP                        INTO OP.                           4F12466     
       04713  0 50000 0 00415        CLA 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                 * O0 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 FOLIOWING 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 CL0SUB 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)              4F12404     
       04735  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12405     
       04736  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12486     
       04737  0 00000 0 01371        PZE TL                        NORD1--0(IFN)0(248)                4F12487     
       04740  0 00000 0 02067        PZE ENT                       WORD2--NTR0(81, OR UNIT, OR 00)    4F12486     
       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= NTR0(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     
                                         WOT 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= NTR0(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     
                                         PDC 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 0F PROGRAM PDC.                                         4F12541     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542     
                                                                                                      4F12543     
                                         WBT/ CALLS=OUTPUT,BRW,CIT.                                   4F12544     
                                         WBT PROCESSES WRITE TAPE STATEMENTS.                         4F12545     
       04777 -0 50000 0 06124 WBT    CAL WTB                       MOVE WTB0004                       4F12546     
       05000  0 60200 0 17401        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 01504        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 17401        SLW OP                        INTO 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                      4F12560     
       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 THEPE IS ONE.4F12587     
                                          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     
       05046  0 60200 0 17401  XDR   SLW OP                        SET OP.                            4F12596     
       05047 -0 50000 0 01476        CAL BDA                       PICKUP 0INARY 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 17401        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 17401 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 TP0A 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 17402        STO RA                        PLACE IN THE DECREMENT OF RA.      4F)2633     
       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)O0O OR 0(IFN)0(248)   4F12635     
       05103  0 00000 0 17401        PZE OP                        NORD2--(WEF,REW,OR BSP)000         4F12636     
       05104  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F12637     
       05105  0 00000 0 17402        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     
                                         BSP/ USES=EFT.                                               4F12650     
                                         BSP PR0CESSES 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     
                                                                                                      4F12656     
                                         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 MQ, 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 THR0UGH 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 C0UNTER.                4F12691     
       05143  0 60000 0 17400        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 EQS, 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 17404        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     
       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 17316        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 17404        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 C0UNT, 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 LISTI. 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 1N 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     
                                         EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.     4F12738     
       05205 -0 50000 0 17404 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 17404        CAL SYM                       MOVE SYMBOL                        4F12744     
       05213  0 60200 0 01130        SLW E+2                       INTO E+2, AND                      4F12745     
       05214  0 60200 0 17403        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 =OMPUTE 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 17400        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 17400 LPRD   CAL DOLEV                     IF THE BEGINNING OF A DO NEST,     4F12758     
       05231  0 10000 0 05242        TZE LPR3                      AND DOLEV IS NOT ZERO, THEN        4F12759     
       05232  0 53400 4 17400        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) 0O 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 17400 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 17400        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 17400        STO DOLEV,4                   THE LOCATI0N 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 17400        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 17400 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 17400 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 17404        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 17404        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.                                         5F12808     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809     
                                                                                                      4F12810     
                                         SPCTR/ CONTR0L TRANSFERS FOR SPECIFICATION SCAN=             4F12811     
       05305  0 07400 4 03400        TSX DIAG,4                  * E (ILLEGAL IN CONTROL FOR LIST DO).4F12812     
       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 CONTR0L 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 CONTR0L FOR LIST DO).4F12820     
 D     05316  1 00000 0 05306        TXI ICC,0                     * (ILLEGAL IN CONTR0L 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=RSC.                    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 SPECIFICATI0N SCAN.   4F12829     
       05322  0 07400 4 05624  SPC   TSX TYP,4                   * G0 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           4F12836     
       05331 -0 60200 0 00000  SPC2  ORS **                        OF TABLE ENTRY.                    4F12837     
       05332 -0 50000 0 17404        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                     ALS0 RESTORE INTERNAL FORMULA N0.  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 17400        LXA DOLEV,4                   EXAMINE DOLEV ADDRESS FOR ZERO TO  4F12851     
       05347 -3 00000 4 05352        TXL SPCR,4,0                  TEST NEED FOR LTM, JIF AFTER ).    4F12852     
       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.    4F12854     
       05352 -0 53400 4 17400 SPCR   LXD DOLEV,4                   DECREASE DOLEV D                   4F12855     
       05353  1 77777 4 05354        TXI SPC6,4,-1                 BY 1, AND INDICATE A TREATED LEVEL.4F12856     
       05354 -0 75400 4 00000  SPC6  PXD ,4                        IF NOT ZERO,                       4F12857     
       05355  0 60200 0 17400        SLW DOLEV                     THEN ALL LEVELS ARE NOT TREATED.   4F12858     
       05356  3 00000 4 05145        TXH LSC,4,0                 * RETURN T0 SCAN NEXT LEVEL.         4F12859     
       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 17405 FLINE  PAX TLDOS,2                   DO FORMULAS IN TDO BY              4F12862     
       05362  1 60373 2 05363        TXI *+1,2,-TLDOS              SUBROUTINE TET.                    4F12863     
       05363  0 53400 4 01413 SPC9   LXA L(5),4                    (MOVE EACH                         4F12864     
       05364  0 50000 2 00000 SPC7   CLA **,2                      TEMPD0 TABLE ENTRY                 4F12865     
       05365  0 60100 4 01112        STO 1C+5,4                    INTO 1C...1C+4,                    4F12866     
       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 WH0LE   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 AN0 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 1N LIST SCAN.           4F12880     
       05377 -0 53400 4 17400 RPR    LXD DOLEV,4                   TEST LEGALITY OF 1.                4F12881     
       05400  3 00000 4 05402        TXH RPS,4,0                   IF THERE ARE TOO MANY ) IN LIST,   4F12882     
       05401  0 07400 4 03400        TSX DIAG,4                  * GO TO THE DIAGNOST1C.              4F12883     
       05402 -0 50000 4 17400 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 = REENTRY 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,D1AG,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 17404        CAL SYM                       INVE VARIABLE SYMBOL               4F12905     
       05420  0 60200 0 17403 CMA4   SLW SA                        INTO SA. AND                       4F12906     
                                         CMA7 = ENTRY POINT USED BY LPR.                              4F12907     
       05421  0 53400 4 17400 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 17400 CMA6   CAL DOLEV                     IN ANY CASE,                       4F12911     
       05425  0 40000 0 01407        ADD L(1)                      UPDATE DOLEV ADDRESS               4F12912     
       05426  0 60100 0 17400        STO DOLEV                     BY 1, AND THEN                     4F12913     
       05427  0 50000 0 01351        CLA GTAG                      SET GENERALIZED TAG.               4F12914     
       05430  0 60100 0 17402        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 17402        STA RA                        TMEN CLEAR THE ADDRESS OF RA.      4F12919     
 D     05435  1 00000 0 05537        TXI CMA5,0                    THEN GO MAKE CIT ENTRY.            4F12920     
       05436 -0 50000 0 17403 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                       IMCREMENT 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 01501        PZE 2P                        WORO3--200000                      4F12957     
       05503  0 00000 0 01364        PZE RAT                       WORD4--0(FIXCON TAG)008            4F12958     
       05504  0 07400 4 02372        TSX JIF,4                   * GO JONP IFN, AND SET SL AND TL.    4F12959     
       05505  0 07400 4 05754        TSX ETMSW,4                 * IF ETMSW = NOP, COMPILE ETM, 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 17401        PZE OP                        WORD2--(OPERATION CODE)            4F12963     
       05511  0 00000 0 17403        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)0004                  4F12972     
       05522  0 00000 0 01416        PZE ST                        WORD4--000008                      4F12973     
       05523  0 60000 0 01367        STZ SL                        CLEAR SL, AND                      4F12974     
       05524  0 07400 4 05754        TSX ETMSW,4                 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975     
       05525  0 07400 4 01731        TSX CIT,4                   * G0 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 17401        PZE OP                        WORD2--NTR000 OR CPY000            4F12988     
       05542  0 00000 0 17403        PZE SA                        WORD3--(SYMBOL)                    4F12989     
       05543  0 00000 0 17402        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 17400        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--XITO00                      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     
                                          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/ CONTR0L 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 SETUPI.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 17310 TYP    CLA CHR-6                     TEST FIRST CHARACTER               4F13061     
       05625  0 40200 0 01404        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 17404        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 17315        CLA CHR-1,2                   TNEN                               4F13070     
       05636  0 60100 0 17307        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 17307        ADD BIN                       TO THEIR                           4F13074     
       05642  0 76700 0 00001        ALS 1                         BINARY                             4F13075     
       05643  0 40000 2 17316        ADD CHR,2                     EOUIVALENT,                        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 0F PROGRAM BEG(TYP).                                    4F13079     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080     
                                                                                                      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 17402        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 17401        PZE OP                        WORD2--(WTB,RBT,WRD,RDD)000        4F13092     
       05660  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13093     
       05661  0 00000 0 17402        PZE RA                        WORD4--000000 OR 0(UNIT)000        4F13094     
       05662 -0 50000 0 01544        CAL CPY                       MOVE CPY000                        4F13095     
       05663  0 60200 0 17401        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)                      NORD4--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 S0URCE PROGRAM CARD (1 TAPE RECORD).        4F13120     
       05702  0 53400 2 01413 CA100  LXA TERC,2                    PREPARE TO C0UNT                   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 0F4F13126     
                                                                   C0PY LOOP.                         4F13127     
       05710  0 70000 2 01347 CA102  CPY FT+12,2                   C0PY 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     
       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 C0UNT.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.                                       4F13158     
                                         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                         SMIFT 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=NOPI.         4F13174     
       05755 -0 50000 0 06112        CAL ETM                       PICKUP ETM000, 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.                           4F13180     
       05762 -0 63400 4 05756        SXD XR4X,4                    SAVE THE C(XR4), AND               4F13181     
       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                      4F13185     
       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     
       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 17404        CAL SYM                       MOVE SYMBOL                        4F13197     
       05777  0 60200 0 01350        SLW G+1                       INTO G+1.                          4F13198     
       06000 -0 50000 0 17310        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. CA=LERS=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 LIB.                                         4F13236     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237     
                                                                                                      4F13236     
                                         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     
       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 17404        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 (TXL=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 17402        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 01501        PZE 2P                        WORD3--200000                      4F13271     
       06067  0 00000 0 17402        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--ARS000                      4F13275     
       06073  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13276     
       06074  0 00000 0 01466        PZE D18                       NORD4--0(18)000                    4F13277     
       06075 -0 50000 0 01571        CAL STA                       PICKUP STA000, 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--000000                      4F13282     
       06102  0 00000 0 06142        PZE TOP                       WORD2--STA000 OR STD000            4F13283     
       06103  0 00000 0 01371        PZE TL                        WORD3--0(IFN)000                   4F13284     
       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     
       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     
       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                             4F13380     
       06233 -057777777777           OCT -057777777777             N-----.                            4F13381     
                        06234        BSS 10                                                           4F133815    
                                          END OF DICTIONARY.                                          4F13382     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383     
                                                                                                      4F13384     
                                         T/ TRANSFER TABLE (USED BY CC000).                           4F13385     
 D     06246  1 00000 0 03653 T      TXI C0100,0                   DO.                                4F13386     
 D     06247  1 00000 0 03720        TXI C0200,0                   G0 TO.                             4F13387     
 D     06250  1 00000 0 04106        TXI C0400,0                   IF (SENSE 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 MQ OVERFLOW.                    4F13392     
 D     06255  1 00000 0 04033        TXI C0300,0                   IF.                                4F13393     
 D     06256  1 00000 0 04216        TXI C1000,0                   ASSIGN.                            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                   EQUIVALENCE.                       4F13399     
 D     06264 -3 00000 0 04354        TXL C1400,0                   FREQUENCY.                         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     
 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 STATEB BSS 0                                                            4F134215    
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422     
                                                                                                      4F13423     
                        17307        ORG 3783+4096                                                    4F13424     
                        17307  BIN   BSS 1                         VARIABLE USED BY IOT.              4F13425     
                        17316  CHR   BES 6                         VARIABLE USED BY IOT.       4      4F13426     
                        17316        BSS 50                        PARAMETERS FOR TLDOS TABLE -IOT.   4F13427     
                        17400  DOLEV BSS 1                         PARAMETERS FOR TLDOS TABLE -IOT.   4F13428     
                        17401  OP    BSS 1                         VARIABLE USED BY IOT.              4F13429     
                        17402  RA    BSS 1                         VARIABLE USED BY IOT.              4F13430     
                        17403  SA    BSS 1                         VARIABLE USED BY IOT.              4F13431     
                        17404  SYM   BSS 1                         VARIABLE USED BY IOT.              4F13432     
                        17405 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     
                        00000        ORG 0                                                            4F13442     
       00000  0 00471 0 06323        PZE STATEB,,FORSUB                                               4F13443     
       00001  0 00000 0 12764        PZE ENDD                                                         4F13444     
                        06323        ORG STATEB                                                       4F134441    
                                                                                                      4F13445     
                                         THIS IS A RECODED VERSI0N 0F STATE B OF SECTION ONE, 704     4F13446     
                                         FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL   4F13447     
                                         ANALYSIS HAS BEEN FOLDED OVER.                               4F13448     
                                                                                                      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     
                                         ( 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     
       06323  0 76000 0 00140        SLF                                                              4F13459     
       06324  0 50000 0 07624        CLA SIG1ST                                                       4F13460     
       06325  0 60100 0 00445        STO SIG1IX-3                                                     4F13461     
       06326  0 60000 0 01122        STZ ARGCTR            CLEAR                                      4F13462     
       06327  0 60000 0 01124        STZ CHSAVE            X                                          4F13463     
       06330  0 60000 0 01117        STZ 3LBAR             X                                          4F13464     
       06331  0 60000 0 01360        STZ NBAR              X                                          4F13465     
       06332  0 60000 0 15277        STZ CBAR              X                                          4F13466     
       06333  0 60000 0 15300        STZ ABAR              X                                          4F13467     
       06334  0 60000 0 15301        STZ FSTYPE            X                                          4F13468     
       06335 -0 53400 4 01507        LXD 1BAR,4            SET NBAR=-1                                4F13469     
       06336 -0 63400 4 01360        SXD NBAR,4            X                                          4F13470     
       06337 -0 50000 0 01500        CAL E(                SET ARERAS - E(                            4F13471     
       06340  0 60200 0 01120        SLW ARERAS            X                                          4F13472     
       06341  0 07400 4 01671        TSX C0190X,4          SET FWA - -F AND CHCTR - 0                 4F13473     
       06342 -0 50000 0 00422        CAL TXHOP             SET SWITCHES FOR LEFT SCAN.                4F13474     
       06343  0 63000 0 06446        STP MS093             X                                          4F13475     
       06344  0 63000 0 06652        STP MS310             X                                          4F13476     
       06345  0 63000 0 06633        STP MS321             X                                          4F13477     
       06346 -0 50000 0 01512 MS010  CAL ADPLUS            SET OP TO ADDITION                         4F13478     
       06347  0 60200 0 01127 MS030  SLW E+1               X                                          4F13479     
       06350  0 60000 0 15303        STZ FNBITS            CLEAR FUNCTION NAME INDICATOR              4F13480     
       06351  0 60000 0 15304        STZ FNCTR             CLEAR FUNCTION ARG COUNTER.                4F13481     
       06352  0 60000 0 01347        STZ G                 CLEAR RECEIVING CELL.                      4F13482     
       06353  0 50200 0 01406        CLS L(0)              SET E = -0                                 4F13483     
       06354  0 60100 0 01126        STO E                 X                                          4F13484     
       06355  0 53400 2 01414        LXA L(6),2            SET IR2 FOR SIX CHARS.                     4F13485     
       06356 -0 50000 0 01124 MS040  CAL CHSAVE            CHAR IN CHSAVE, IF ANY, TO AC.             4F13486     
       06357 -0 10000 0 06361        TNZ MS041             X                                          4F13487     
       06360  0 07400 4 01707        TSX C0190,4           CHSAVE EMPTY, GET NEXT CHAR.               4F13488     
       06361  0 34000 0 01417 MS041  CAS L(9)              IS CHAR. NUMERIC.                          4F13489     
       06362  0 02000 0 06367        TRA MS050             N/, TAKE TRA                               4F13490     
 D     06363  3 00000 0 07302 MS4007 TXH CM4100,0                                                     4F13491     
       06364  0 07400 4 07346        TSX ROYCNV,4          X                                          4F13492     
       06365  0 02000 0 06713        TRA HOLL              RETURN 1, THIS WAS HOLLERITH.              4F13493     
       06366  0 02000 0 06761        TRA LATXH             THIS WAS FIXED OR FLOATING CONSTANT.       4F13494     
       06367  0 53400 4 01373 MS050  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13495     
       06370  0 34000 4 01406 MS051  CAS CTEST,4                                                      4F13496     
       06371  0 02000 0 06373        TRA MS052             X                                          4F13497     
       06372  0 02000 0 06426        TRA MS090             CHAR IS SOME PUNCTUATION.                  4F13498     
       06373  2 00001 4 06370 MS052  TIX MS051,4,1         X                                          4F13499     
       06374  0 76700 2 00044 MS060  ALS 36,2              POSITI0N CHAR FOR BUILDING SYMBOL.         4F13500     
       06375 -0 60200 0 01347        ORS G                 ADD CHAR TO THOSE IN G.                    4F13501     
       06376  1 00006 2 06377        TXI MS061,2,6         UPDATE POSITIONING TAG.                    4F13502     
       06377  0 07400 4 01707 MS061  TSX C0190,4           GET NEXT CHAR.                             4F13503     
       06400  0 53400 4 01373 MS070  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13504     
       06401  0 34000 4 01406 MS071  CAS CTEST,4           X                                          4F13505     
       06402  0 02000 0 06404        TRA MS072             X                                          4F13506     
       06403  0 02000 0 06430        TRA MS091             CHAR IS SOME PUNCTUATION.                  4F13507     
       06404  2 00001 4 06401 MS072  TIX MS071,4,1         X                                          4F13508     
       06405 -3 00022 2 06374        TXL MS060,2,18        IF THIS IS CHAR 1, 2 /R 3 GO BUILD G.      4F13509     
       06406  0 34000 0 01422        CAS L(F)              IS THIS AN F ENDING FUNCTION NAME.         4F13510     
       06407  0 02000 0 06411        TRA MS073             X                                          4F13511     
       06410  0 02000 0 06413        TRA MS080             MAYBE, GO LOOK AT NEXT CHAR.               4F13512     
       06411 -3 00044 2 06374 MS073  TXL MS060,2,36        TEST FOR UNDER 7 CHARS.                    4F13513     
       06412  0 07400 4 03400 MS074  TSX DIAG,4            BUILD G, 7TH CHAR IS ERROR.                4F13514     
       06413  0 07400 4 01707 MS080  TSX C0190,4           GET NEXT CHAR.                             4F13515     
       06414  0 34000 0 01375        CAS OPEN              TEST FOR (.                                4F13516     
       06415  0 02000 0 06417        TRA MS081             X                                          4F13517     
       06416  0 02000 0 06440        TRA MS092             YES, THIS IS A FUNCTION NAME.              4F13518     
       06417  0 60100 0 01331 MS081  STO FIRSTC            NO, SAVE CURRENT CHAR.                     4F13519     
       06420 -0 50000 0 01422        CAL L(F)              ADD F TO CONTENTS OF G.                    4F13520     
       06421  0 76700 2 00044        ALS 36,2              X                                          4F13521     
       06422 -0 60200 0 01347        ORS G                 X                                          4F13522     
       06423  3 00044 2 06412        TXH MS074,2,36        TEST FOR 7TH CHAR, YES IS ERROR.           4F13523     
       06424  0 50000 0 01331        CLA FIRSTC            RESTORE CURRENT CHAR.                      4F13524     
       06425  1 00006 2 06400        TXI MS070,2,6         UPDATE POSITIONING TAG.                    4F13525     
       06426  0 60000 0 01124 MS090  STZ CHSAVE            CLEAR                                      4F13526     
       06427  0 02000 4 06562        TRA TRBLKA,4                                                     4F13527     
       06430  0 60200 0 01124 MS091  SLW CHSAVE            OP IS IN NEXT ELEMENT, SAVE.               4F13528     
       06431 -0 50000 0 01430        CAL BLANK             ADD,BLANK TO CHARS IN G.                   4F13529     
       06432  0 76700 2 00044        ALS 36,2              X                                          4F13530     
       06433 -0 60200 0 01347        ORS G                 X                                          4F13531     
       06434  0 56000 0 01347        LDQ G                 MOVE G TO E+2 AND TO G+1.                  4F13532     
       06435 -0 60000 0 01130        STQ E+2               X                                          4F13533     
       06436 -0 60000 0 01350        STQ G+1               X                                          4F13534     
       06437  0 02000 4 06612        TRA TRBLKB,4          NOW BRANCH TO INDIVIDUAL ROUTINE           4F13535     
       06440 -0 75400 0 00000 MS092  PXD ,0                CLEAR                                      4F13536     
       06441  0 56000 0 01526        LDQ BLANKS            ADD BLANKS TO SUBROUTINE NAME IN G.        4F13537     
       06442 -0 76300 2 00052        LGL 42,2              X                                          4F13538     
       06443 -0 50100 0 01347        ORA G                 X                                          4F13539     
       06444  0 60200 0 01347        SLW G                 X                                          4F13540     
       06445  0 60200 0 01130        SLW E+2               MOVE FUNCTION NAME TO E+2.                 4F13541     
 U     06446    00000 0 06711 MS093  *** MS335,0           TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.     4F13542     
       06447 -0 53400 4 00470        LXD BK,4              THIS IS ARITH FUNCTION STATEMENT.          4F13543     
       06450  0 60200 4 00471        SLW FORSUB,4          ENTER FUNCTION NAME IN FORSUB TABLE.       4F13544     
       06451 -0 50000 0 00030        CAL EIFNO             ENTER INTERNAL FORMULA NO IN FORSUB.       4F13545     
       06452 -0 32000 0 01527        ANA MASK1             X                                          4F13546     
       06453  0 60100 4 00472        STO FORSUB+1,4        X                                          4F13547     
       06454  1 77776 4 06455        TXI FS010,4,-2        UPDATE COUNT OF ENTRIES IN FORSUB.         4F13548     
       06455 -0 63400 4 00470 FS010  SXD BK,4              X                                          4F13549     
       06456  0 07400 4 01707 FS020  TSX C0190,4           GET FIRST CHAR OF ARGUMENT.                4F13550     
       06457  0 34000 0 01400        CAS EQUAL             TEST FOR EQUAL.                            4F13551     
       06460  0 02000 0 06462        TRA FS030             X                                          4F13552     
       06461  0 02000 0 06640        TRA MS322             GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553     
       06462  0 34000 0 01417 FS030  CAS L(9)              TEST FOR ILLEGAL ARGUMENT.                 4F13554     
       06463  0 02000 0 06466        TRA FS040             LEGAL, CONTINUE                            4F13555     
 D     06464  3 00000 0 07312 MS9002 TXH CM4200,0                                                     4F13556     
       06465  0 07400 4 03400        TSX DIAG,4            BEGINS NUMERIC, ERROR.                     4F13557     
       06466  0 07400 2 01624 FS040  TSX C0160,2           COLLECT ARGUMENT NAME IN 1G.               4F13558     
       06467  0 07400 4 03255        TSX TESTB0,4          TEST CHAR FOLLOWING ARG FOR , OR)          4F13559     
       06470 -0 53400 2 01122        LXD ARGCTR,2          GET COUNT OF ARGUMENTS                     4F13560     
       06471  0 56000 0 01112        LDQ 1G                ENTER ARGUMENT NAME IN ARGREG TABLE.       4F13561     
       06472 -0 60000 2 15215        STQ ARGREG,2          X                                          4F13562     
       06473  1 77777 2 06474        TXI FS050,2,-1        UPDATE COUNT OF ARGUMENTS.                 4F13563     
       06474 -0 63400 2 01122 FS050  SXD ARGCTR,2                                                     4F13564     
       06475  3 77716 2 06456        TXH FS020,2,-50       TEST FOR ARGREG TABLE OVERFLOW.            4F13565     
       06476  0 07400 4 03400        TSX DIAG,4            YES, ERROR.                                4F13566     
       06477  0 07400 4 07353 MS200  TSX DECPNT,4          CONVERT BCD NUMBER T0 BINARY               4F13567     
       06500  0 07400 4 03400        TSX DIAG,4            HOLLERITH RETURN, ERROR.                   4F13568     
       06501  0 02000 0 06761        TRA LATXH             FLOATING POINT CONSTANT RETURN.            4F13569     
       06502  0 76000 0 00141 MS210  SLN 1                 TURN , LITE ON.                            4F13570     
       06503 -0 53400 1 01117        LXD 3LBAR,1           PERFORM LEVEL ANALYSIS FOR ,               4F13571     
       06504 -0 53400 4 15300        LXD ABAR,4                                                       4F13572     
       06505  0 50200 4 15301        CLS ALPHA-4,4                                                    4F13573     
       06506  0 60100 1 15520        STO LAMBDA,1                                                     4F13574     
       06507 -0 50000 0 01522        CAL ADSPOP                                                       4F13575     
       06510  0 60200 1 15521        SLW LAMBDA+1,1                                                   4F13576     
       06511  0 50000 0 01360        CLA NBAR                                                         4F13577     
       06512  0 77100 0 00022        ARS 18                                                           4F13578     
       06513  0 60100 1 15522        STO LAMBDA+2,1                                                   4F13579     
       06514  1 77775 1 06515        TXI MS211,1,-3                                                   4F13580     
       06515 -0 63400 1 01117 MS211  SXD 3LBAR,1                                                      4F13581     
       06516 -0 53400 1 01360        LXD NBAR,1                                                       4F13582     
       06517 -0 63400 1 15277        SXD CBAR,1                                                       4F13583     
       06520  1 77777 1 06521        TXI MS212,1,-1                                                   4F13584     
       06521 -0 63400 1 01360 MS212  SXD NBAR,1                                                       4F13585     
       06522  1 00003 4 06523        TXI MS213,4,3                                                    4F13586     
       06523 -0 63400 4 15300 MS213  SXD ABAR,4                                                       4F13587     
       06524  0 02000 0 06346        TRA MS010                                                        4F13588     
       06525 -0 53400 4 15300 MS220  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOR )               4F13589     
       06526  0 50000 4 15301        CLA ALPHA-4,4                                                    4F13590     
       06527  0 73400 1 00000        PAX ,1                                                           4F13591     
       06530 -0 63400 1 15277        SXD CBAR,1                                                       4F13592     
       06531  1 00004 4 06532        TXI MS221,4,4                                                    4F13593     
       06532 -0 63400 4 15300 MS221  SXD ABAR,4                                                       4F13594     
       06533  0 02000 0 07310        TRA MS020                                                        4F13595     
       06534 -0 53400 4 15300 MS230  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOE ENDMK.          4F13596     
       06535  1 00003 4 06536        TXI MS231,4,3                                                    4F13597     
       06536 -3 00000 4 06540 MS231  TXL MS232,4,0         FINISHED, HAS LEVEL BEEN REDUCED TO ZERO,  4F13598     
       06537  0 07400 4 03400        TSX DIAG,4            NO, ERROR.                                 4F13599     
       06540 -0 53400 4 01122 MS232  LXD ARGCTR,4          WAS THIS AN ARITH FUNCTION STATEMENT       4F13600     
       06541 -3 00000 4 07625        TXL STATEC,4,0                                                   4F13601     
       06542 -0 50000 0 15301        CAL FSTYPE            YES, UPDATE FUNCTION TYPE AND              4F13602     
       06543  0 40000 0 01407        ADD L(1)              COMPLETE FORSUB ENTRY BY ASSIGNING         4F13603     
       06544 -0 53400 1 00470        LXD BK,1              TYPE NUMBER.                               4F13604     
       06545  0 62100 1 00470        STA FORSUB-1,1        X                                          4F13605     
       06546 -0 60200 0 01120        ORS ARERAS            ALSO SAVE FOR LATER REFERENCF.             4F13606     
       06547  0 02000 0 07625        TRA STATEC                                                       4F13607     
       06550  0 02000 0 06534        TRA MS230             ENDMK                                      4F13608     
       06551  0 02000 0 06575        TRA MS260             (                                          4F13609     
       06552  0 02000 0 06502        TRA MS210             ,                                          4F13610     
       06553  0 02000 0 06525        TRA MS220             )                                          4F13611     
       06554  0 07400 4 03400 MSERR= TSX DIAG,4            =                                          4F13612     
       06555  0 02000 0 06572        TRA MS250             -                                          4F13613     
       06556  0 02000 0 06572        TRA MS250             /                                          4F13614     
       06557  0 02000 0 06477        TRA MS200             .                                          4F13615     
       06560  0 02000 0 06572        TRA MS250             +                                          4F13616     
       06561  0 76700 0 00036 MS240  ALS 30                *   SAVE *                                 4F13617     
                        06562 TRBLKA BSS 0                                                            4F13618     
       06562  0 60200 0 01127        SLW E+1               X                                          4F13619     
       06563  0 07400 4 01707        TSX C0190,4           GET NEXT CHAR.                             4F13620     
       06564  0 34000 0 01405        CAS STAR              IS IT *                                    4F13621     
       06565  0 02000 0 06361        TRA MS041             X                                          4F13622     
       06566  0 02000 0 06570        TRA MS241             YES, THIS WAS **                           4F13623     
       06567  0 02000 0 06361        TRA MS041             NO, GO COMPARE TO OTHER PUNCTUATION.       4F13624     
       06570 -0 50000 0 01525 MS241  CAL STRSTR            REPLACE * WITH **                          4F13625     
       06571  0 02000 0 06573        TRA MS251             X                                          4F13626     
       06572  0 76700 0 00036 MS250  ALS 30                POSITI0N CHAR WHICH IS + OR - OR /         4F13627     
       06573  0 60200 0 01127 MS251  SLW E+1               PUT CURRENT OP IN E+1.                     4F13628     
       06574  0 02000 0 06356        TRA MS040             NOW GO COLLECT SYMBOL.                     4F13629     
       06575  0 76700 0 00036 MS260  ALS 30                ( TO SYMBOL WORD                           4F13630     
       06576  0 60200 0 01130        SLW E+2               X                                          4F13631     
       06577  0 02000 0 06757        TRA LATXL             GO PERFORM LEVEL ANALYSIS FOR (            4F13632     
       06600  0 02000 0 06611        TRA MS300             ENDMK                                      4F13633     
       06601  0 02000 0 06632        TRA MS320             (                                          4F13634     
       06602  0 02000 0 06611        TRA MS300             ,                                          4F13635     
       06603  0 02000 0 06611        TRA MS300             )                                          4F13636     
       06604  0 02000 0 06652        TRA MS310             =                                          4F13637     
       06605  0 02000 0 06611        TRA MS300             -                                          4F13638     
       06606  0 02000 0 06611        TRA MS300             /                                          4F13639     
       06607  0 07400 4 03400        TSX DIAG,4            .                                          4F13640     
       06610  0 02000 0 06611        TRA MS300             +                                          4F13641     
       06611 -0 75400 0 00000 MS300  PXD ,0                *   CLEAR                                  4F13642     
                        06612 TRBLKB BSS 0                 BASE ADDRESS FOR TAGGED TRANSFER.          4F13643     
       06612 -0 76300 0 00006        LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13644     
       06613  0 07400 1 03242        TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT.          4F13645     
       06614  0 02000 0 06757        TRA LATXL             FLOATING, GO PERFORM LEVEL ANALYSIS.       4F13646     
       06615 -0 50000 0 00030        CAL EIFNO             FIXED, PREPARE FORVAR ENTRY.               4F13647     
       06616 -0 32000 0 01527        ANA MASK1             X                                          4F13648     
       06617  0 60200 0 01347        SLW G                 X                                          4F13649     
       06620  0 07400 1 03321        TSX TET00,1           MAKE FORVAR ENTRY.                         4F13650     
       06621  0 00000 0 00005            5                 X                                          4F13651     
       06622 -0 75400 0 00000        PXD ,0                                                           4F13652     
       06623  0 56000 0 01356        LDQ LEFT+2                                                       4F13653     
       06624 -0 76300 0 00014        LGL 12                                                           4F13654     
       06625  0 40200 0 01451        SUB CALLER                                                       4F13655     
       06626 -0 10000 0 06757        TNZ LATXL                                                        4F13656     
       06627  0 07400 1 03321        TSX TET00,1                                                      4F13657     
       06630  0 00000 0 00006            6                                                            4F13658     
       06631  0 02000 0 06757        TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13659     
       06632  0 60000 0 01124 MS320  STZ CHSAVE            CLEAR CELL FOR OP.                         4F13660     
 U     06633    00000 0 06666 MS321  *** MS330,0           TXH ON LEFT, TXL ON RIGHT OF = SIGN.       4F13661     
       06634  0 07400 4 07333        TSX SS000X,4          G0 PROCESS SUBSCRIPT COMBINATION.          4F13662     
       06635  0 07400 4 01707        TSX C0190,4           GET NEXT CHAR.                             4F13663     
       06636  0 40200 0 01400        SUB EQUAL             TEST FOR EQUAL SIGN.                       4F13664     
       06637 -0 10000 0 06554        TNZ MSERR=            NO, ERROR.                                 4F13665     
       06640  0 53400 4 01411 MS322  LXA L(3),4            MOVE CONTENT4 OF E WORDS TO LEFT WORDS.    4F13666     
       06641  0 56000 4 01131 MS323  LDQ E+3,4             X                                          4F13667     
       06642 -0 60000 4 01357        STQ LEFT+3,4          X                                          4F13668     
       06643  2 00001 4 06641        TIX MS323,4,1         X                                          4F13669     
       06644 -0 50000 0 00415 MS311  CAL TXLOP             SET SWITCHES FOR RIGHT SIDE SCAN.          4F13670     
       06645  0 63000 0 06446        STP MS093             X                                          4F13671     
       06646  0 63000 0 06652        STP MS310             X                                          4F13672     
       06647  0 63000 0 06633        STP MS321             X                                          4F13673     
       06650  0 76000 0 00141        SLN 1                 TURN = OR ) LITE ON.                       4F13674     
       06651  0 02000 0 06346        TRA MS010             GO SCAN NEXT ELEMENT.                      4F13675     
 U     06652    00000 0 06554 MS310  *** MSERR=,0          TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676     
       06653  0 60000 0 01124        STZ CHSAVE            CLEAR                                      4F13677     
       06654 -0 75400 0 00000        PXD ,0                CLEAR AC.                                  4F136775    
       06655 -0 76300 0 00006        LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13678     
       06656  0 07400 1 03242        TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT           4F13679     
       06657  0 02000 0 06640        TRA MS322             FLOATING,                                  4F13680     
       06660 -0 50000 0 00030        CAL EIFNO             FIXED, PREPARE FORVAL ENTRY.               4F13681     
       06661 -0 32000 0 01527        ANA MASK1             X                                          4F13682     
       06662  0 60200 0 01347        SLW G                 X                                          4F13683     
       06663  0 07400 1 03321        TSX TET00,1           MAKE FORVAL ENTRY.                         4F13684     
       06664  0 00000 0 00006            6                 X                                          4F13685     
       06665  0 02000 0 06640        TRA MS322                                                        4F13686     
       06666  0 07400 4 01771 MS330  TSX DIM1SR,4          SEARCH FOR THIS NAME IN THE DIM1, DIM2,    4F13687     
       06667  0 02000 0 06671        TRA MS331             AND DIM3 TABLES. IF IT IS FOUND IN ONE OF  4F13688     
       06670  0 02000 0 06676        TRA MS333             THESE TABLES IT IS A SUBSCRIPTED VARIABLE  4F13689     
       06671  0 07400 4 01775 MS331  TSX DIM2SR,4          OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 4F13690     
       06672  0 02000 0 06674        TRA MS332             FOUND IN ANY DIMENSION TABLE THEN IT IS    4F13691     
       06673  0 02000 0 06676        TRA MS333             ASSUMED TO BE THE NAME OF A FORTRAN II     4F13692     
       06674  0 07400 4 02005 MS332  TSX DIM3SR,4          SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693     
       06675  0 02000 0 06700        TRA MS334             X                                          4F13694     
       06676  0 07400 4 07333 MS333  TSX SS000X,4 .        GO PROCESS SUBSCRIPT COMBINATION.          4F13695     
       06677  0 02000 0 06761        TRA LATXH             GO PERFORM LEVEL ANALYSIS.                 4F13696     
       06700 -0 50000 0 01471 MS334  CAL FNIND             NOT FOUND, TREAT AS FUNCTION NAME.         4F13697     
       06701  0 60200 0 15303        SLW FNBITS            X                                          4F13698     
       06702 -0 75400 0 00000        PXD ,0                X                                          4F13699     
       06703  0 56000 0 01526        LDQ BLANKS            COMPLETE NAME WITH BLANKS.                 4F13700     
       06704 -0 76300 2 00052        LGL 42,2              X                                          4F13701     
       06705 -0 60200 0 01347        ORS G                 X                                          4F13702     
       06706 -0 60200 0 01130        ORS E+2               X                                          4F13703     
       06707  0 07400 1 03321        TSX TET00,1           ENTER NAME IN CLOSUB TABLE.                4F13704     
       06710  0 00000 0 00011            9                 X                                          4F13705     
       06711  0 76000 0 00142 MS335  SLN 2                 TURN FUNCTION LITE ON.                     4F13706     
       06712  0 02000 0 06757        TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13707     
       06713  0 60000 0 01124 HOLL   STZ CHSAVE                    CLEAR CHSAVE                       4F13708     
       06714 -0 50000 0 01352        CAL HOLCNT                    GET CURRENT H(+I WORD              4F13709     
       06715  0 60200 0 01130        SLW E+2                                                          4F13710     
       06716  0 53400 2 01103        LXA N,2                    GET NUMBER OF CHARACTERS IN THIS ARG  4F13711     
       06717 -0 53400 4 01724        LXD CHCTR,4                GET CURRENT RESIDUE CHAR COUNT        4F13712     
       06720  0 56000 0 01365        LDQ RESIDU                 GET CURRENT RESIDU WORD               4F13713     
       06721  0 53400 1 01414 C3351  LXA L(6),1                 SET TO COLLECT SIX CHARS              4F13714     
       06722 -0 75400 0 00000        PXD 0,0                    CLEAR AC                              4F13715     
       06723 -2 00001 4 06736 C3352  TNX C3354,4,1              TEST FOR NO MORE CHARS IN RESIDU      4F13716     
       06724 -0 76300 0 00006 C33525 LGL 6                      GET NEXT CHAR                         4F13717     
       06725  0 60200 0 01112        SLW 1G                     STORE WORD                            4F13718     
       06726 -0 32000 0 01374        ANA ENDMK                  BLANK ALL EXCEPT CURRENT CHAR         4F13719     
       06727  0 40200 0 01374        SUB ENDMK                  TEST FOR INTERNAL ENDMK               4F13720     
       06730 -0 10000 0 06732        TNZ C3353                                                        4F13721     
       06731  0 07400 4 03400        TSX DIAG,4                    YES, ERROR, GO TO DIAGNOSTIC.      4F13722     
       06732 -0 50000 0 01112 C3353  CAL 1G                     RETREIVE WORD                         4F13723     
       06733 -2 00001 2 06746        TNX C3358,2,1              TEST FOR ALL CHARS COLLECTED          4F13724     
       06734 -2 00001 1 06744        TNX C3356,1,1              TEST FOR SIX CHARS COLLECTED          4F13725     
       06735  0 02000 0 06723        TRA C3352                  NOT SIX CHARS YET, CONTINUE COLLECTING4F13726     
       06736 -0 53400 4 01614 C3354  LXD FWA,4                  L0AD MQ WITH NEXT F REGION WORD       4F13727     
       06737  0 56000 4 00000        LDQ 0,4                                                          4F13728     
       06740  1 77777 4 06741        TXI C3355,4,-1             UPDATE FWA                            4F13729     
       06741 -0 63400 4 01614 C3355  SXD FWA,4                                                        4F13730     
       06742  0 53400 4 01414        LXA L(6),4                 RESET MQ CHAR CQUNT T0 SIX            4F13731     
       06743  0 02000 0 06724        TRA C33525                 CONTINUE COLLECTING                   4F13732     
       06744  0 07400 1 07322 C3356  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13733     
       06745  1 00000 0 06721 C3357  TXI C3351,0,**             RETURN TO CONTINUE COLLECTING         4F13734     
       06746 -0 60000 0 01365 C3358  STQ RESIDU                 UPDATE RESIDU                         4F13735     
       06747 -0 63400 4 01724        SXD CHCTR,4                UPDATE CHCTR                          4F13736     
       06750 -2 00001 1 06754        TNX C3360,1,1              TEST FOR SIX CHARS IN AC, DEC IR1     4F13737     
       06751  0 56000 0 01526        LDQ BLANKS                 NOT SIX CHARS, PREPARE TO ADD BLANKS  4F13738     
       06752 -0 76300 0 00006 C3359  LGL 6                      ADD BLANKS                            4F13739     
       06753  2 00001 1 06752        TIX C3359,1,1                                                    4F13740     
       06754  0 07400 1 07322 C3360  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13741     
       06755 -0 50000 0 01531        CAL ALL1                   GET WORD OF ONES                      4F13742     
       06756  0 07400 1 07322        TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13743     
                                             LEVEL ANALYSIS                                           4F13744     
       06757 -0 50000 0 00415 LATXL  CAL TXLOP                                                        4F13745     
       06760  0 02000 0 06762        TRA LATXL+3                                                      4F13746     
       06761 -0 50000 0 00422 LATXH  CAL TXHOP                                                        4F13747     
       06762  0 63000 0 07307        STP CM4105                                                       4F13748     
       06763  0 53400 1 01406 LA0000 LXA L(0),A                                                       4F13749     
       06764  0 50000 0 01130        CLA E+2                                                          4F13750     
       06765 -0 76000 0 00142        SLT 2                 IS THIS A FUNCTION NAME                    4F13751     
       06766  0 02000 0 07027        TRA LA0000+36         NO                                         4F13752     
       06767  0 76000 0 00142        SLN 2                 YES - TURN F LITE BACK ON                  4F13753     
       06770 -0 53400 4 00470        LXD BK,C              IS FORSUB EMPTY                            4F13754     
       06771 -3 00000 4 07000        TXL LA0000+13,C,0     YES. GO SET FS BITS TO 0                   4F13755     
       06772 -0 63400 4 06777        SXD LA0000+12,C                                                  4F13756     
       06773  0 34000 1 00471        CAS FORSUB,A          SEARCH FN NAME IN FORSUB                   4F13757     
       06774  1 77776 1 06777        TXI LA0000+12,A,-2                                               4F13758     
       06775  0 02000 0 07002        TRA LA0000+15                                                    4F13759     
       06776  1 77776 1 06777        TXI LA0000+12,A,-2                                               4F13760     
       06777  3 00000 1 06773        TXH LA0000+8,A,0                                                 4F13761     
       07000  0 60000 0 15302        STZ FSBITS            SET FSBITS TO 0                            4F13762     
       07001  0 02000 0 07014        TRA LA0000+25                                                    4F13763     
       07002 -0 50000 1 00472        CAL FORSUB+1,A        FN NAME IN FORSUB                          4F13764     
       07003 -0 32000 0 01452        ANA MASK2             EXTRACT TYPE NUMBER                        4F14765     
       07004 -0 53400 4 01122        LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F13766     
       07005 -3 00000 4 07011        TXL LA0000+22,C,0     NO                                         4F13767     
       07006  0 34000 0 15301        CAS FSTYPE            YES - UPDATE FS TYPE                       4F13768     
       07007  0 62100 0 15301        STA FSTYPE                                                       4F13769     
 D     07010  3 00000 0 00000        TXH 0,0                                                          4F13770     
       07011  0 76700 0 00007        ALS 7                                                            4F13771     
       07012 -0 50100 0 01464        ORA FSIND                                                        4F13772     
       07013  0 60200 0 15302        SLW FSBITS                                                       4F137)3     
       07014 -0 53400 1 01117        LXD 3LBAR,A           LOAD LA COUNTERS                           4F13774     
       07015 -0 53400 2 01360        LXD NBAR,B                                                       4F13775     
       07016 -0 53400 4 15300        LXD ABAR,C                                                       4F13776     
       07017 -3 00000 1 07043        TXL LA0003,A,0                                                   4F13777     
       07020  3 75520 1 07022        TXH LA0001,A,-1200                                               4F13778     
       07021  0 07400 4 03400        TSX DIAG,4                    ERROR..LAMBDA TABLE EXCEEDED.      4F13779     
       07022  3 77323 2 07024 LA0001 TXH LA0002,B,-301                                                4F13780     
       07023  0 07400 4 03400        TSX DIAG,4                    ERROR..BETA TABLE EXCEEDED         4F13781     
       07024 -3 00000 4 07043 LA0002 TXL LA0003,C,0                                                   4F13782     
       07025  3 77565 4 07043        TXH LA0003,C,-139                                                4F13783     
       07026  0 07400 4 03400        TSX DIAG,4                    ERROR..ALPHA TABLE EXCEEDED        4F13784     
       07027 -0 53400 4 01122        LXD ARGCTR,C          VARIABLE OR (                              4F13785     
       07030 -3 00000 4 07000        TXL LA0000+13,C,0     NOT AN FS - GO SET FS BITS TO 0            4F13786     
       07031 -0 63400 4 07036        SXD LA0000+43,C       FUNCTION STATEMENT                         4F13787     
       07032  0 34000 1 15215        CAS ARGREG,A          SEARCH FREE VARIABLE TABLE                 4F13788     
       07033  1 77777 1 07036        TXI LA0000+43,A,-1                                               4F13789     
       07034  0 02000 0 07040        TRA MS1018                                                       4F13790     
       07035  1 77777 1 07036        TXI LA0000+43,A,-1                                               4F13791     
       07036  3 00000 1 07032        TXH LA0000+39,A,0                                                4F13792     
       07037  0 02000 0 07000        TRA LA0000+13         NOT PRESENT - GO SET FSBITS TO 0           4F13793     
       07040 -0 75400 1 00000 MS1018 PXD 0,A               PRESENT - STORE TYPE IN FSBITS             4F13794     
       07041  0 77100 0 00013        ARS 11                                                           4F13795     
       07042  0 02000 0 07012        TRA LA0000+23                                                    4F13796     
       07043  0 50000 0 06464 LA0003 CLA MS9002                                                       4F13797     
       07044  0 62100 0 07251        STA LA4320                                                       4F13798     
       07045 -0 75400 0 00000        PXD 0,0                                                          4F13799     
       07046  0 56000 0 01130        LDQ E+2                                                          4F13800     
       07047 -0 60000 1 15533        STQ LAMBDA+11,A                                                  4F13801     
       07050 -0 60000 1 15530        STQ LAMBDA+8,A                                                   4F13802     
       07051 -0 60000 1 15525        STQ LAMBDA+5,A                                                   4F13803     
       07052 -0 76300 0 00006        LGL 6                                                            4F13804     
       07053  0 60100 0 01331        STO FIRSTC                                                       4F13805     
       07054  0 40200 0 01375        SUB OPEN                                                         4F13806     
       07055  0 10000 0 07064        TZE LA003                                                        4F13807     
       07056  0 50000 0 06363        CLA MS4007                                                       4F13808     
       07057 -0 76000 0 00142        SLT 2                                                            4F13809     
       07060  0 02000 0 07063        TRA LA002                                                        4F13810     
       07061  0 76000 0 00142        SLN 2                                                            4F13811     
       07062  0 50000 0 07112        CLA FINI03                                                       4F13812     
       07063  0 62100 0 07251 LA002  STA LA4320                                                       4F13813     
       07064  0 50000 0 01126 LA003  CLA E                                                            4F13814     
       07065  0 60100 1 15531        STO LAMBDA+9,A                                                   4F13815     
       07066  0 60100 1 15526        STO LAMBDA+6,A                                                   4F13816     
       07067  0 60100 1 15523        STO LAMBDA+3,A                                                   4F13817     
       07070 -0 50000 0 01522        CAL ADSPOP                                                       4F13818     
       07071  0 60200 1 15535        SLW LAMBDA+13,A                                                  4F13819     
       07072  0 60200 1 15532        SLW LAMBDA+10,A                                                  4F13820     
       07073  0 60200 1 15527        SLW LAMBDA+7,A                                                   4F13821     
       07074 -0 75400 0 00000        PXD ,0                                                           4F13822     
       07075  0 56000 0 01127        LDQ E+1                                                          4F13823     
       07076 -0 60000 1 15521        STQ LAMBDA+1,A                                                   4F13824     
       07077 -0 76300 0 00006        LGL 6                                                            4F13825     
       07100  0 34000 0 01405        CAS STAR                                                         4F13826     
       07101  0 02000 0 07145        TRA LA0015            / SIGN                                     4F13827     
       07102  0 02000 0 07135        TRA LA0010            * OR ** SIGN                               4F13828     
       07103 -0 76000 0 00142        SLT 2                 + OR - SIGN                                4F13829     
       07104  0 02000 0 07121        TRA LA0044                                                       4F13830     
       07105  1 77775 2 07106        TXI MS1033,B,-3       -N TO -(N+3)                               4F13831     
       07106 -0 75400 2 00000 MS1033 PXD ,B                                                           4F13832     
       07107  0 77100 0 00022        ARS 18                                                           4F13833     
       07110  0 60100 1 15536        STO LAMBDA+14,A       STO  (N+3) IN LAMBDA+3 (L+4)+2             4F13834     
       07111  1 00001 2 07112        TXI FINI03,B,1        -(N+3) TO - (N+2)                          4F13835     
       07112 -0 75400 2 07315 FINI03 PXD CM4300,B                                                     4F13836     
       07113  0 77100 0 00022        ARS 18                                                           4F13837     
       07114 -0 76000 0 00003        SSM                                                              4F13838     
       07115  0 60100 1 15534        STO LAMBDA+12,A       STO -(N+2) IN LAMBDA+3 (L+4)               4F13839     
       07116 -0 76000 0 00141 LA0041 SLT 1                                                            4F13840     
       07117  1 00001 2 07213        TXI L43130,B,1        UNARY... -(N+2) TO -(N+1)                  4F13841     
       07120  1 00001 2 07155        TXI L13130,B,1        BINARY... -(N+2) TO - (N+1)                4F13842     
       07121  0 50000 0 01331 LA0044 CLA FIRSTC                                                       4F13843     
       07122  0 34000 0 01375        CAS OPEN              EXAMINE SYMBOL                             4F13844     
       07123  0 02000 0 07125        TRA LA0050                                                       4F13845     
       07124  1 77775 2 07130        TXI LA0058,B,-3       -N TO -(N+3)                               4F13846     
       07125 -0 76000 0 00141 LA0050 SLT 1                                                            4F13847     
       07126  1 77777 2 07217        TXI LA4000,B,-1       UNARY... -NTO -(N+1)                       4F13848     
       07127  1 77777 2 07161        TXI LA1000,B,-1       BINARY... -N TO -(N+I)                     4F13849     
       07130 -0 75400 2 00000 LA0058 PXD ,B                                                           4F13850     
       07131  0 77100 0 00022        ARS 18                                                           4F13851     
       07132  0 60100 1 15533        STO LAMBDA+11,A       STO S(N+3) IN LAMBDA +3(L+3)+2             4F13852     
       07133  0 40000 0 01407        ADD L(1)              FORM -(N+2) IN ADD (ACC)                   4F13853     
       07134  1 00001 2 07116        TXI LA0041,2,1                                                   4F13854     
       07135  0 16200 0 07145 LA0010 TQP LA0015            G0 TO * ROUTINE                            4F13855     
       07136 -0 76000 0 00142        SLT 2                 **                                         4F13856     
       07137  0 02000 0 07141        TRA LA0072                                                       4F13857     
       07140  1 77777 2 07174        TXI L23000,B,-1       -N TO -(N+1)                               4F13858     
       07141  0 50000 0 01331 LA0072 CLA FIRSTC                                                       4F13859     
       07142  0 40200 0 01375        SUB OPEN                                                         4F13860     
       07143 -0 10000 0 07207        TNZ LA2000                                                       4F13861     
       07144  1 77777 2 07167        TXI L22000,B,-1       -N TO -(N+1)                               4F13862     
       07145 -0 76000 0 00142 LA0015 SLT 2                 * OR /                                     4F13863     
       07146  0 02000 0 07150        TRA LA0021                                                       4F13864     
       07147  1 77776 2 07257        TXI L33000,B,-2       -N TO -(N+2)                               4F13865     
       07150  0 50000 0 01331 LA0021 CLA FIRSTC                                                       4F13066     
       07151  0 34000 0 01375        CAS OPEN                                                         4F13867     
       07152  1 77777 2 07272        TXI LA3000,B,-1                                                  4F13868     
       07153  1 77776 2 07252        TXI L32000,B,-2       -N TO -N(+2)                               4F13869     
       07154  1 77777 2 07272        TXI LA3000,B,-1                                                  4F13870     
       07155  0 60200 4 15310 L13130 SLW ALPHA+3,C         STO -(N+2) IN ALPHA+A+3                    4F13871     
       07156  0 50200 0 01406        CLS L(0)                                                         4F13872     
       07157  0 60100 1 15531        STO LAMBDA+9,A        STO -0 IN LAMBDA +3(L+3)                   4F13873     
       07160  0 76000 0 00141        SLN 1                                                            4F13074     
       07161  0 50200 0 15277 LA1000 CLS CBAR                                                         4F13875     
       07162  0 77100 0 00022        ARS 18                                                           4F13876     
       07163  0 60200 4 15305        SLW ALPHA,C           STO -C IN ALPHA+A                          4F13877     
       07164  1 77775 4 07165        TXI LA1040,C,-3       -A TO - (A+3)                              4F13878     
       07165 -0 63400 4 15300 LA1040 SXD ABAR,C                                                       4F13879     
       07166  0 02000 0 07220        TRA LA4010                                                       4F13880     
       07167 -0 75400 2 00000 L22000 PXD ,B                                                           4F13881     
       07170  0 77100 0 00022        ARS 18                                                           4F13882     
       07171  0 60100 1 15525        STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13883     
       07172  0 40000 0 01407        ADD L(1)                                                         4F13884     
       07173  1 00001 2 07203        TXI L23130,B,1        -(N+1) TO -N                               4F13885     
       07174 -0 75400 2 00000 L23000 PXD ,B                                                           4F13886     
       07175  0 77100 0 00022        ARS 18                                                           4F13887     
       07176  0 60100 1 15530        STO LAMBDA+8,A        STO S(N+1) IN LAMBDA+3(L+2)+2              4F13888     
       07177  0 40000 0 01407        ADD L(1)                                                         4F13889     
       07200 -0 76000 0 00003        SSM                                                              4F13890     
       07201  1 00001 2 07202        TXI L23090,B,1        -(N+1) TO -N                               4F13891     
       07202  0 60100 1 15526 L23090 STO LAMBDA+6,A        STO -N IN LAMBDA+3(L+2)                    4F13892     
       07203  0 60200 4 15305 L23130 SLW ALPHA,C           STO -N IN ALPHA +A                         4F13893     
       07204  0 50200 0 01406        CLS L(0)                                                         4F13894     
       07205  0 60100 1 15523        STO LAMBDA+3,A        STO -0 IN LAMBDA+3(L+1)                    4F13895     
       07206  0 76000 0 00141        SLN 1                                                            4F13896     
       07207  0 50200 4 15304 LA2000 CLS ALPHA-1,C                                                    4F13897     
       07210  0 60100 1 15520        STO LAMBDA,A          STO C(ALPHA+A-1) IN LAMBDA+3L              4F13898     
       07211  0 50000 0 01360        CLA NBAR                                                         4F13899     
       07212  1 00006 1 07240        TXI LA4180,A,6                                                   4F13900     
       07213  0 60200 4 15305 L43130 SLW ALPHA,C           STO -(N+2) IN ALPHA+A                      4F13901     
       07214  0 50200 0 01406        CLS L(0)                                                         4F13902     
       07215  0 60100 1 15531        STO LAMBDA+9,A        STO -0 IN LAMBDA+3(L+3)                    4F13903     
       07216  0 76000 0 00141        SLN 1                                                            4F13904     
       07217  0 50200 4 15302 LA4000 CLS ALPHA-3,C                                                    4F13905     
       07220  0 60100 1 15520 LA4010 STO LAMBDA,A          STO C(ALPHA+A-3) IN LAMBDA+3L              4F13906     
       07221  0 50200 0 01360        CLS NBAR                                                         4F13907     
       07222  0 77100 0 00022        ARS 18                                                           4F13908     
       07223  0 60200 4 15303        SLW ALPHA-2,C         STO-N IN ALPHA+A-2                         4F13909     
       07224  0 60200 1 15522        SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13910     
       07225  0 60100 1 15523        STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13911     
       07226 -0 75400 2 00000        PXD ,B                                                           4F13912     
       07227  0 77100 0 00022        ARS 18                                                           4F13913     
       07230  0 60100 1 15525        STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13914     
       07231  0 60100 4 15304        STO ALPHA-1,C         STO-(N,1) IN ALPHA+A-1                     4F13915     
       07232 -0 76000 0 00003        SSM                                                              4F13916     
       07233  0 60100 1 15526        STO LAMBDA+6,A        STO -(N+1) IN LAMBDA+3IL+2)                4F13917     
       07234  1 77777 2 07235        TXI LA4150,B,-1       -(N+1) TO -(N+2)                           4F13916     
       07235 -0 50000 0 01524 LA4150 CAL ADSTAR                                                       4F13919     
       07236  0 60200 1 15524        SLW LAMBDA+4,A        STO * IN LAMBDA+3(L+1)+1                   4F13920     
       07237 -0 75400 2 00000 LA4170 PXD ,B                                                           4F13921     
       07240  0 77100 0 00022 LA4180 ARS 18                                                           4F13922     
       07241  0 60100 1 15530        STO LAMBDA+8,A        STOS(N+2) IN LAMBDA+3(L+2)+2               4F13923     
       07242 -0 60200 1 15531        ORS LAMBDA+9,A        STO -(N+2) IN LAMBDA+3(L+3)                4F13924     
       07243 -0 50000 0 01525        CAL STRSTR                                                       4F13925     
       07244  0 60200 1 15527        SLW LAMBDA+7,A        STO SPOP IN LAMBDA+3(L+2)+1                4F13926     
       07245 -0 50000 0 01522        CAL ADSPOP                                                       4F13927     
       07246 -0 50100 0 15302        ORA FSBITS                                                       4F13928     
       07247 -0 50100 0 15303        ORA FNBITS                                                       4F13929     
       07250  0 60200 1 15532        SLW LAMBDA+10,A       STO SPOP IN LAMBDA+3(L+3)+1                4F13930     
       07251  1 77767 1 00000 LA4320 TXI **,A,-9                                                      4F13931     
       07252 -0 75400 2 00000 L32000 PXD ,B                                                           4F13932     
       07253  0 77100 0 00022        ARS 18                                                           4F13933     
       07254  0 60100 1 15530        STO LAMBDA+8,A        STO 5(N+2) IN LAMBDA+3(L+2)+2              4F13934     
       07255  0 40000 0 01407        ADD L(1)                                                         4F13935     
       07256  1 00001 2 07266        TXI L33130,B,1        -(N+2) TO -(N+1)                           4F13936     
       07257 -0 75400 2 00000 L33000 PXD ,B                                                           4F13937     
       07260  0 77100 0 00022        ARS 18                                                           4F13938     
       07261  0 60100 1 15533        STO LAMBDA+11,A       STO S(N+2) IN LAMBDA+3(L+3)+2              4F13939     
       07262  0 40000 0 01407        ADD L(1)                                                         4F13940     
       07263 -0 76000 0 00003        SSM                                                              4F13941     
       07264  1 00001 2 07265        TXI L33090,B,1        -(N+2) TO -(N+1)                           4F13942     
       07265  0 60100 1 15531 L33090 STO LAMBDA+9,A        STO -(N+1) IN LAMBDA+3(L+3)                4F13943     
       07266  0 60200 4 15305 L33130 SLW ALPHA,C           STO -(N+1) IN ALPHA+A                      4F13944     
       07267  0 50200 0 01406        CLS L(0)                                                         4F13945     
       07270  0 60100 1 15526        STO LAMBDA+6,A                                                   4F13946     
       07271  0 76000 0 00141        SLN 1                                                            4F13947     
       07272  0 50200 4 15303 LA3000 CLS ALPHA-2,C                                                    4F13948     
       07273  0 60100 1 15520        STO LAMBDA,A          STO C(ALPHA+A-2) IN LAMBDA+3L              4F13949     
       07274  0 50200 0 01360        CLS NBAR                                                         4F13950     
       07275  0 77100 0 00022        ARS 18                                                           4F13951     
       07276  0 60200 4 15304        SLW ALPHA-1,C         STO -N IN ALPHA+A-1                        4F13952     
       07277  0 60200 1 15522        SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13953     
       07300  0 60100 1 15523        STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13954     
       07301  1 00003 1 07237        TXI LA4170,A,3                                                   4F13955     
       07302  1 77775 1 07303 CM4100 TXI CM4101,A,-3       LA COUNTER MODIFICATION ROUTINES           4F13956     
       07303 -0 63400 1 01117 CM4101 SXD 3LBAR,A                                                      4F13957     
       07304 -0 63400 2 15277 CM4102 SXD CBAR,B                                                       4F13958     
       07305  1 77777 2 07306        TXI CM4104,B,-1                                                  4F13959     
       07306 -0 63400 2 01360 CM4104 SXD NBAR,B                                                       4F13960     
 U     07307    00000 0 06346 CM4105 *** MS010,0                                                      4F13961     
       07310 -0 50000 0 01524 MS020  CAL ADSTAR                                                       4F13962     
       07311  0 02000 0 06347        TRA MS030                                                        4F13963     
       07312  1 77775 1 07313 CM4200 TXI CM4201,A,-3                                                  4F13964     
       07313 -0 63400 1 01117 CM4201 SXD 3LBAR,A                                                      4F13965     
       07314  1 77777 4 07320        TXI CM4303,C,-1                                                  4F13966     
       07315  1 77772 1 07316 CM4300 TXI CM4301,A,-6                                                  4F13967     
       07316 -0 63400 1 01117 CM4301 SXD 3LBAR,A                                                      4F13968     
       07317  1 77777 4 07320        TXI CM4303,C,-1                                                  4F13969     
       07320 -0 63400 4 15300 CM4303 SXD ABAR,C                                                       4F13970     
       07321  1 77777 2 07304        TXI CM4102,B,-1                                                  4F13971     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972     
                                                                                                      4F13973     
                                         CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE            4F13974     
       07322 -0 63400 1 06745 C3390  SXD C3357,1                SAVE CALLING IR                       4F13975     
       07323  0 60200 0 01112        SLW 1G                     MOVE WORD TO BE ENTERED TO 1G         4F13976     
       07324  0 07400 1 03321        TSX TET00,1                GO TO ENTER WORD IN HOLARG TABLE      4F13977     
       07325  0 00000 0 00015            13                                                           4F13978     
       07326  0 50000 0 01352        CLA HOLCNT                                                       4F13979     
       07327  0 40000 0 01407        ADD L(1)                   UPDATE HOLCNT                         4F13980     
       07330  0 60100 0 01352        STO HOLCNT                                                       4F13981     
       07331 -0 53400 1 06745        LXD C3357,1                RELOAD CALLING IR                     4F13982     
       07332  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     
       07333 -0 63400 4 07366 SS000X SXD SSIR4,4           SAVE CALLING TAG.                          4F13988     
       07334  0 07400 4 02614        TSX SS000,4           GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989     
       07335  0 07400 4 02437        TSX RA000,4           GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990     
       07336 -0 50000 0 01351        CAL GTAG                                                         4F13991     
       07337 -0 32000 0 01527        ANA MASK1                                                        4F13992     
       07340  0 60200 0 01141        SLW E+11                                                         4F13993     
       07341  0 07400 4 00450        TSX SIG1IX,4          GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.  4F13994     
       07342  0 76700 0 00017        ALS 15                POSITION SIGMA TAG.                        4F13995     
       07343 -0 60200 0 01126        ORS E                 ADD SIGMA TAG TO I-TAU TAGS IN E.          4F13996     
       07344 -0 53400 4 07366        LXD SSIR4,4           RELOAD CALLING TAG.                        4F13997     
       07345  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 FLQATING POINT INTEGERS.    4F14005     
       07346  0 60100 0 01103 ROYCNV STO N                         SAVE DECIMAL DIGIT IN N.           4F14006     
       07347 -0 63400 4 07352        SXD EXIT,4                    SAVE C(XR4) FOR RETURN.            4F14007     
       07350  0 60000 0 01100        STZ DOE                       CLEAR DOE (IMPLICIT EXPONENT).     4F14008     
       07351  0 50000 0 07370        CLA CM1                       PICK UP SWITCH CONTROL,            4F14009     
       07352  1 00000 0 07357 EXIT   TXI IN2,0,**                  AND G0 SET SWITCH.                 4F14010     
                                         DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS.            4F14011     
       07353  0 60000 0 01103 DECPNT STZ N                         CLEAR N (NO INTEGER).              4F14012     
       07354 -0 63400 4 07352        SXD EXIT,4                    SAVE C(XR4) FOR RETURN.            4F14013     
       07355  0 60000 0 01100        STZ DOE                       CLEAR DOE (IMPLICIT EXPONENT).     4F14014     
       07356 -0 50000 0 07370 NC7    CAL CM1                       PICK UP SWITCH CONTROL.            4F14015     
       07357  0 63000 0 07400 IN2    STP CM2                       SET SWITCHES CM2, AND              4F14016     
       07360  0 63000 0 07412        STP CM3                       CM3.                               4F14017     
       07361  0 14000 0 07362        TOV NC5                       TURN OFF OV TRIGGER.               4F14018     
       07362  0 07400 4 01707 NC5    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14019     
       07363  0 60200 0 01124        SLW CHSAVE                    SAVE IT FOR STATE B, AND THEN      4F14020     
       07364  0 34000 0 01423        CAS L(H)                      COMPARE IT WITH H.                 4F14021     
 D     07365  1 00000 0 07367        TXI NC1,0                     IF H, GO TO HEXIT.                 4F14022     
 D     07366  1 00000 0 07533 SSIR4  TXI HEXIT,0                   IF NOT H, CONTINUE                 4F14023     
       07367  0 34000 0 01373 NC1    CAS TEN                       AND COMPARE WITH TEN.              4F14024     
 D     07370 -3 00000 0 07404 CM1    TXL NC2,0                     CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14025     
       07371 -0 75400 0 00000        PXD ,0                        CLEAR THE AC (MACHINE ERROR).      4F14026     
       07372  0 60100 0 01102        STO H                         CHARACTER IS NUMERIC, SO HOLD IT.  4F14027     
       07373  0 50000 0 01103        CLA N                         MULTIPLY THE PREVIOUS              4F14028     
       07374  0 76700 0 00002        ALS 2                         PARTIAL RESULT (OR ZERO)           4F14029     
       07375  0 40000 0 01103        ADD N                         BY 10,                             4F14030     
       07376  0 76700 0 00001        ALS 1                         AND ADD IN                         4F14031     
       07377  0 40000 0 01102        ADD H                         THE CURRENT DIGIT.                 4F14032     
 D     07400  3 00000 0 07421 CM2    TXH NC3,0                     SWITCH (NO TRANSFER IF INTEGER).   4F14033     
       07401  0 14000 0 07427        TOV NC4                       TEST OVERFLOW, AND                 4F14034     
       07402  0 60100 0 01103        STO N                         IF NONE, SAVE NEW PARTIAL RESULT.  4F14035     
 D     07403  1 00000 0 07362        TXI NC5,0                     THEN GO PICK UP NEXT CHARACTER.    4F14036     
       07404  0 34000 0 01403 NC2    CAS POINT                     COMPARE NON-NUMERIC WITH A POINT.  4F14037     
 D     07405  1 00000 0 07412        TXI CM3,0                     IF GREATER THAN 27, GO OUT.        4F14038     
 D     07406  1 00000 0 07356        TXI NC7,0                     IF POINT, GO BACK AND SET SWITCH.  4F14039     
       07407  0 34000 0 07542        CAS L(E)                      IF LESS THAN 27, COMPARE WITH E.   4F14040     
 D     07410  1 00000 0 07412        TXI CM3,0                     IF GREATER THAN 21, GO OUT.        4F14041     
 D     07411  1 00000 0 07431        TXI EC1,0                     IF E, GO TO EXPONENT ROUTINE.      4F14042     
 D     07412  3 00000 0 07470 CM3    TXH FN4,0                     SWITCH (NO TRANSFER IF INTEGER).   4F14043     
       07413  0 50000 0 01103        CLA N                         PICK UP CONVERTED CONSTANT, AND    4F14044     
       07414  0 76700 0 00022 MS9506 ALS 18                        STORE IN THE                       4F14045     
       07415  0 60100 0 01347        STO G                         DECREMENT OF G, AND                4F14046     
       07416  0 07400 4 00417        TSX FXCNIX,4                * GO MAKE FIXCON ENTRY.              4F14047     
       07417 -0 50100 0 01517        ORA FIXVAR                    CREATE INTERNAL FXD-P, VARIABLE,AND4F14048     
 D     07420  1 00000 0 07521        TXI EXITR,0                   GO TAKE EXITR.                     4F14049     
       07421  0 14000 0 07426 NC3    TOV NC8                       IF THERE WAS NO OVERFLOW,          4F14050     
       07422  0 60100 0 01103        STO N                         SAVE PARTIAL RESULT, AND           4F14051     
       07423  0 50200 0 01407        CLS L(1)                      SUBTRACT 1 FROM DOE                4F14052     
       07424  0 40000 0 01100 NC9    ADD DOE                       TO ADJUST EXPONENT                 4F14053     
       07425  0 60100 0 01100        STO DOE                       IN FINAL RESULT.                   4F14054     
 D     07426  1 00000 0 07362 NC8    TXI NC5,0                     THEN GO PICK UP NEXT CHARACTER.    4F14055     
       07427  0 50000 0 01407 NC4    CLA L(1)                      ADD 1 TO DOE ,                     4F14056     
 D     07430  1 00000 0 07424        TXI NC9,0                     IF THERE WAS INTEGER OVERFLOW.     4F14057     
       07431  0 07400 4 01707 EC1    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14058     
       07432  0 60200 0 01124        SLW CHSAVE                    SAVE IT FOR STATE B, AND           4F14059     
       07433  0 60000 0 01101        STZ EKE                       CLEAR EKE (EXPLICIT EXPONENT).     4F14060     
       07434  0 34000 0 01401        CAS 11Z                       COMPARE CHARACTER WITH A DASH.     4F14061     
 D     07435  1 00000 0 07465        TXI FN5,0                     IF GREATER THAN 32, GO OUT.        4F14062     
 D     07436  1 00000 0 07444        TXI EC3,0                     IF A DASH, SET EKE MINUS.          4F14063     
       07437  0 34000 0 01404        CAS 12Z                       IF LESS THAN 32, COMPARE WITH PLUS.4F14064     
 D     07440  1 00000 0 07465        TXI FN5,0                     IF GREATER THAN 16, GO OUT.        4F14065     
 D     07441  1 00000 0 07451        TXI EC6,0                     IF PLUS, GO EXAMINE NEXT CHAR.     4F14066     
       07442  0 34000 0 01420        CAS MINUS                     IF LESS THAN 16,COMPARE WITH MINUS.4F14067     
 D     07443  1 00000 0 07465        TXI FN5,0                     IF GREATER THAN 12, GO OUT.        4F14068     
       07444  0 50200 0 01101 EC3    CLS EKE                       IF MINUS, SET EKE TO -0.           4F14069     
       07445  0 34000 0 01373        CAS TEN                       COMPARE WITH TEN.                  4F14070     
 D     07446  1 00000 0 07465        TXI FN5,0                     IF NON-NUMERIC, GO EXAMINE NEXT CH.4F14071     
       07447 -0 75400 0 00000 EC4    PXD ,0                        CLEAR ACC,                         4F14072     
       07450  0 60100 0 01101 EC5    STO EKE                       SAVE PARTIAL RESULT(OR 0) IN EKE.  4F14073     
       07451  0 07400 4 01707 EC6    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14074     
       07452  0 60200 0 01124        SLW CHSAVE                    SAVE IT FOR STATE B,               4F14075     
       07453  0 34000 0 01373        CAS TEN                       AND COMPARE WITH TEN.              4F14076     
 D     07454  1 00000 0 07465        TXI FN5,0                     CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14077     
       07455 -0 75400 0 00000        PXD ,0                        CLEAR THE AC (MACHINE ERROR).      4F14078     
       07456  0 60100 0 01102        STO H                         CHARACTER IS NUMERIC, SO HOLD IT.  4F14079     
       07457  0 50000 0 01101        CLA EKE                       MULTIPLY THE PREVIOUS              4F14080     
       07460  0 76700 0 00002        ALS 2                         PARTIAL RESULT (OR ZERO)           4F14081     
       07461  0 40000 0 01101        ADD EKE                       BY 10,                             4F14082     
       07462  0 76700 0 00001        ALS 1                         AND ADD IN                         4F14083     
       07463  0 36100 0 01102        ACL H                         THE CURRENT DIGIT.                 4F14084     
 D     07464  1 00000 0 07450        TXI EC5,0                     CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085     
       07465  0 50000 0 01101 FN5    CLA EKE                       COMBINE EXPLICIT EXPONENT          4F14086     
       07466  0 40000 0 01100        ADD DOE                       WITH IMPLICIT EXPONENT,            4F14087     
       07467  0 60100 0 01100        STO DOE                       AND SAVE IN DOE.                   4F14088     
       07470  0 50000 0 01103 FN4    CLA N                         IF N CONTAINS ZERO, TAKE           4F14089     
       07471  0 10000 0 07516        TZE MS9500                    FLO PT CONSTANT RETURN.            4F14090     
       07472  0 62100 0 07535        STA K1                        PUT INTEGER INTO FLO PT WORD,      4F14091     
       07473  0 77100 0 00017        ARS 15                        ADJUST, AND                        4F14092     
       07474  0 10000 0 07476        TZE FN1                       IF MORE THAN 15 BITS IN LENGTH     4F14093     
       07475 -0 50100 0 07536        ORA K2                        AFFIX CORRECT EXPONENT.            4F14094     
       07476  0 30000 0 07535 FN1    FAD K1                        THEN FLOATING ADD THE RESULT       4F14095     
       07477 -0 77300 0 00010        RQL 8                         OF INTEGER CONVERSION, AND         4F14096     
       07500  0 76000 0 00010        RND                           ROUND --TO OBTAIN                  4F14097     
       07501 -0 50100 0 07537        ORA K3                        NORMALIZED RESULT.                 4F14098     
       07502  0 53400 1 01100        LXA DOE,1                     EXAMINE THE C(DOE), AN0            4F14099     
       07503 -3 00000 1 07516        TXL MS9500,1,0                IF ZERO, TAKE FLO PT RETURN.       4F14100     
       07504 -3 00062 1 07506        TXL FN2,1,50                  IF GREATER THAN 50, THEN           4F14101     
 D     07505  1 00000 0 07532        TXI CER,0                     ERROR. --GO TO DIAGNOSTIC.         4F14102     
       07506  0 56000 0 01100 FN2    LDQ DOE                       DETERMINE WHETHER INTEGER WAS      4F14103     
       07507  0 16200 0 07524        TQP FN3                       TO THE RIGHT OR TO THE LEFT OF DP. 4F14104     
       07510  0 24100 1 07623        FDP TAB,1                     IF TO THE RIGHT, DIVIDE BY A       4F14105     
       07511 -0 60000 0 01103        STQ N                         SUITABLE CONSTANT                  4F14106     
       07512  0 50000 0 01103        CLA N                         TO ADJUST RESULT                   4F14107     
       07513  0 36100 0 07540        ACL K4                        AND TEST FOR OUT OF RANGE.         4F14108     
       07514 -0 76000 0 00001        PBT                           IF P=1, SKIP TO ARITH RETURN.      4F14109     
 D     07515  1 00000 0 07532        TXI CER,0                     ERROR. --GO TO DIAGNOSTIC.         4F14110     
       07516  0 60100 0 01347 MS9500 STO G                         STORE IN G, AND                    4F14111     
       07517  0 07400 4 00424        TSX FLCNIX,4                * GO MAKE FLOCON ENTRY.              4F14112     
       07520 -0 50100 0 01513        ORA FLOVAR                    CREATE INTERNAL FLO-PT VARIABLE,   4F14113     
       07521  0 60200 0 01130 EXITR  SLW E+2                       SAVE VARIABLE IN E+2,              4F14114     
       07522 -0 53400 4 07352        LXD EXIT,4                    RESTORE THE C(XR4), AND            4F14115     
       07523  0 02000 4 00002        TRA 2,4                     * RETURN TO MAIN ROUTINE.            4F14116     
       07524  0 60100 0 01103 FN3    STO N                         IF INTEGER WAS SITUATED            4F14117     
       07525  0 56000 0 01103        LDQ N                         TO THE LEFT OF THE DECIMAL POINT,  4F14118     
       07526  0 26000 1 07623        FMP TAB,1                     MULTIPLY BY A SUITABLE             4F14119     
       07527  0 36100 0 07541        ACL K5                        CONSTANT TO ADJUST AND TEST RANGE. 4F14120     
       07530 -0 76000 0 00001        PBT                           IF P=1, SKIP TO ERROR.             4F14121     
 D     07531  1 00000 0 07516        TXI MS9500,0                  RETURN TO ARITHMETIC ROUTINE.      4F14122     
       07532  0 07400 4 03400  CER   TSX DIAG,4                  * CONVERSION ERROR, GO TO DIAGNOSTIC.4F14123     
       07533 -0 53400 4 07352 HEXIT  LXD EXIT,4                    RESTORE THE C(XR4), AND            4F14124     
       07534  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F14125     
                                                                                                      4F14126     
       07535 +233000000000    K1     OCT 233000000000              CONSTANT USED BY ROYCNV.           4F14127     
       07536 +252000000000    K2     OCT 252000000000              CONSTANT USED BY ROYCNV.           4F14128     
       07537 +000400000000    K3     OCT 400000000                 CONSTANT USED BY ROYCNV.           4F14129     
       07540 +335000000000    K4     OCT 335000000000              CONSTANT USED BY ROYCNV.           4F14130     
       07541 +043000000000    K5     OCT 43000000000               CONSTANT USED BY ROYCNV.           4F14131     
       07542  000000000025    L(E)   BCD 100000E                   CONSTANT USED BY ROYCNV.           4F14132     
                                                                                                      4F14133     
       07543 +375536246150           OCT 375536246150              48-TABLE USED BY ROYCNV.           4F14134     
       07544 +372430204754           OCT 372430204754              47-TABLE USED BY ROYCNV.           4F14135     
       07545 +366700324573           OCT 366700324573              46-TABLE USED BY ROYCNV.           4F14136     
       07546 +363546566774           OCT 363546566774              45-TABLE USED BY ROYCNV.           4F14137     
       07547 +360436770626           OCT 360436770626              44-TABLE USED BY ROYCNV.           4F14138     
       07550 +354713132675           OCT 354713132675              43-TABLE USED BY ROYCNV.           4F14139     
       07551 +351557257061           OCT 351557257061              42-TABLE USED BY ROYCNV.           4F14140     
       07552 +346445677215           OCT 346445677215              41-TABLE USED BY ROYCNV.           4F14141     
       07553 +342726145174           OCT 342726145174              40-TABLE USED BY ROYCNV.           4F14142     
       07554 +337570120775           OCT 337570120775              39-TABLE USED BY ROYCNV.           4F14143     
       07555 +334454732312           OCT 334454732312              38-TABLE USED BY ROYCNV.           4F14144     
       07556 +330741367020           OCT 330741367020              37-TABLE USED BY ROYCNV.           4F14145     
       07557 +325601137163           OCT 325601137163              36-TABLE USED BY ROYCNV.           4F14146     
       07560 +322464114134           OCT 322464114134              35-TABLE USED BY ROYCNV.           4F14147     
       07561 +316755023372           OCT 316755023372              34-TABLE USED BY ROYCNV.           4F14148     
       07562 +313612334310           OCT 313612334310              33-TABLE USED BY ROYCNV.           4F14149     
       07563 +310473426555           OCT 310473426555              32-TABLE USED BY ROYCNV.           4F14150     
       07564 +304770675742           OCT 304770675742              31-TABLE USED BY ROYCNV.           4F14151     
       07565 +301623713116           OCT 301623713116              30-TABLE USED BY ROYCNV.           4F14152     
       07566 +276503074076           OCT 276503074076              29-TABLE USED BY ROYCNV.           4F14153     
       07567 +273402374713           OCT 273402374713              28-TABLE USED BY R0YCNV.           4F14154     
       07570 +267635456171           OCT 267635456171              27-TABLE USED BY ROYCNV.           4F14155     
       07571 +264512676456           OCT 264512676456              26-TABLE USED BY ROYCNV.           4F14156     
       07572 +261410545213           OCT 261410545213              25-TABLE USED BY ROYCNV.           4F14157     
       07573 +255647410337           OCT 255647410337              24-TABLE USED BY ROYCNV.           4F14158     
       07574 +252522640262           OCT 252522640262              23-TABLE USED BY ROYCNV.           4F14159     
       07575 +247417031702           OCT 247417031702              22-TABLE USED BY ROYCNV.           4F14160     
       07576 +243661534466           OCT 243661534466              21-TABLE USED BY ROYCNV.           4F14161     
       07577 +240532743536           OCT 240532743536              20-TABLE USED BY ROYCNV.           4F14162     
       07600 +235425434430           OCT 235425434430              19-TABLE USED BY ROYCNV.           4F14163     
       07601 +231674055530           OCT 231674055530              18-TABLE USED BY ROYCNV.           4F14164     
       07602 +226543212741           OCT 226543212741              17-TABLE USED BY ROYCNV.           4F14165     
       07603 +223434157116           OCT 223434157116              16-TABLE USED BY ROYCNV.           4F14166     
       07604 +217706576512           OCT 217706576512              15-TABLE USED BY ROYCNV.           4F14167     
       07605 +214553630410           OCT 214553630410              14-TABLE USED BY ROYCNV.           4F14168     
       07606 +211443023471           OCT 211443023471              13-TABLE USED BY ROYCNV.           4F14169     
       07607 +205721522451           OCT 205721522451              12-TABLE USED BY ROYCNV.           4F14170     
       07610 +202564416672           OCT 202564416672              11-TABLE USED BY ROYCNV.           4F14171     
       07611 +177452013710           OCT 177452013710              10-TABLE USED BY ROYCNV.           4F14172     
       07612 +173734654500           OCT 173734654500              09-TABLE USED BY ROYCNV.           4F14173     
       07613 +170575360400           OCT 170575360400              08-TABLE USED BY ROYCNV.           4F14174     
       07614 +165461132000           OCT 165461132000              07-TABLE USED BY ROYCNV.           4F14175     
       07615 +161750220000           OCT 161750220000              06-TABLE USED BY ROYCNV.           4F14176     
       07616 +156606500000           OCT 156606500000              05-TABLE USED BY ROYCNV.           4F14177     
       07617 +153470400000           OCT 153470400000              04-TABLE USED BY ROYCNV.           4F14178     
       07620 +147764000000           OCT 147764000000              03-TABLE USED BY ROYCNV.           4F14179     
       07621 +144620000000           OCT 144620000000              02-TABLE USED BY ROYCNV.           4F14180     
       07622 +141500000000           OCT 141500000000              01-TABLE USED BY ROYCNV.           4F14181     
       07623 +136400000000    TAB    OCT 136400000000              00-TABLE USED BY ROYCNV.           4F14182     
                                          END OF PROGRAM ROYCNV.                                      4F14183     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14184     
                                                                                                      4F14185     
       07624  0 00001 0 01230 SIG1ST PZE SIGMA1+2,,1                                                  4F14186     
                        07625 STATEC BSS 0                                                            4F141865    
                                                                                                      4F14187     
                        15215        ORG 2701+4096                                                    4F14188     
                        15215 ARGREG BSS 50                                                           4F14189     
                        15277 CBAR   BSS 1                                                            4F14190     
                        15300 ABAR   BSS 1                                                            4F14191     
                        15301 FSTYPE BSS 1                                                            4F14192     
                        15302 FSBITS BSS 1                                                            4F14193     
                        15303 FNBITS BSS 1                                                            4F14194     
                        15304 FNCTR  BSS 1                                                            4F14195     
                        15305 ALPHA  BSS 139                                                          4F14196     
                        15520 LAMBDA BSS 1200                                                         4F14197     
                                          END OF ARITHMETIC / STATE B.                                4F14198     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14199     
                                                                                                      4F14200     
                                         ARITHMETIC / STATE C=                                        4F14201     
                                         STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE.              4F14204     
                                                                                                      4F14205     
                        07625        ORG STATEC                                                       4F14206     
       07625  0 56000 0 01406 R00000 LDQ L(0)              CLEAR MQ                                   4F14207     
       07626 -0 53400 1 01360        LXD NBAR,A            LDXA WITH -N                               4F14208     
       07627 -0 63400 1 07636        SXD R00700,A                                                     4F14209     
       07630 -0 63400 1 07714        SXD R05200,A                                                     4F14210     
       07631 -0 63400 1 10266        SXD AS0800,A                                                     4F14211     
       07632 -0 63400 1 10313        SXD AS2900,A                                                     4F14212     
       07633  0 53400 7 01406        LXA L(0),7            CLEAR XA,XB,XC,                            4F14213     
       07634 -0 60000 2 15044 R00500 STQ BETA,B                                                       4F14214     
       07635  1 77777 2 07636        TXI R00700,B,-1                                                  4F14215     
       07636  3 00000 2 07634 R00700 TXH R00500,B,0                                                   4F14216     
       07637  0 50000 0 01117        CLA 3LBAR                                                        4F14217     
       07640  0 62200 0 07651        STD R01700                                                       4F14218     
       07641  0 62200 0 07726        STD R06200                                                       4F14219     
       07642  0 50000 1 15520 R01000 CLA LAMBDA,A          ADD INTO GAMMA COUNTERS                    4F14220     
       07643  0 73400 2 00000        PAX 0,B                                                          4F14221     
       07644  0 50000 2 15044        CLA BETA,B                                                       4F14222     
       07645  0 40000 0 01506        ADD BETAD1            (-3)*2**18+(-3)                            4F14223     
       07646  0 62200 2 15044        STD BETA,B                                                       4F14224     
       07647  0 62100 2 15044        STA BETA,B                                                       4F14225     
       07650  1 77775 1 07651        TXI R01700,A,-3                                                  4F14226     
       07651  3 00000 1 07642 R01700 TXH R01000,A,0        -3L IN XA AT END                           4F14227     
       07652  3 77772 1 07703 R01800 TXH R04200,A,-6       EXIT FROM SINGLE ELEMENT REDUCTION         4F14228     
       07653  0 50000 1 15515        CLA LAMBDA-3,A                                                   4F14229     
       07654  0 73400 2 00000        PAX 0,B                                                          4F14230     
       07655  0 50000 2 15044        CLA BETA,B                                                       4F14231     
       07656  0 40200 0 01506        SUB BETAD1                                                       4F14232     
       07657  0 10000 0 07661        TZE R02600                                                       4F14233     
       07660  1 00003 1 07652        TXI R01800,A,3                                                   4F14234     
       07661  0 56000 1 15516 R02600 LDQ LAMBDA-2,A        SINGLE ELEMENT                             4F14235     
       07662 -0 76300 0 00006        LGL 6                 EXAMINE OPERATION                          4F14236     
       07663  0 40200 0 01401        SUB 11Z                                                          4F14237     
       07664 -0 10000 0 07666        TNZ R03200                                                       4F14238     
       07665  1 00003 1 07652        TXI R01800,A,3                                                   4F14239     
       07666 -0 50000 0 01527 R03200 CAL MASK1             SINGLE ELEMENT, NON-UNARY OP               4F14240     
       07667  0 32000 1 15515        ANS LAMBDA-3,A        EXTRACT TAGS AND STORE BACK                4F14241     
       07670  0 50000 1 15512        CLA LAMBDA-6,A                                                   4F14242     
       07671 -0 50100 1 15515        ORA LAMBDA-3,A                                                   4F14243     
       07672  0 60200 1 15512        SLW LAMBDA-6,A                                                   4F14244     
       07673 -0 50000 1 15516        CAL LAMBDA-2,A        EXTRACT FS BITS AND STORE BACK             4F14245     
       07674 -0 32000 0 01470        ANA MASK5                                                        4F14246     
       07675 -0 60200 1 15513        ORS LAMBDA-5,A                                                   4F14247     
       07676 -0 50000 1 15517        CAL LAMBDA-1,A        STORE BACK SYMBOL                          4F14248     
       07677  0 60200 1 15514        SLW LAMBDA-4,A                                                   4F14249     
       07700  0 60000 2 15044        STZ BETA,B            REDUCE GAMMA COUNT TO 0                    4F14250     
       07701  0 60000 1 15515        STZ LAMBDA-3,A        CLEAR TAG WORD                             4F14251     
       07702  1 00003 1 07652        TXI R01800,A,3        RESUME SCAN-BACK                           4F14252     
       07703  0 60000 0 01347 R04200 STZ G                                                            4F14253     
       07704  0 53400 7 01406        LXA L(0),7            CLEAR XA,XB,XC                             4F14254     
       07705  0 50000 2 15044 R04500 CLA BETA,B            SET ORIGINS OF SCRIPL TABLE                4F14255     
       07706  0 10000 0 07713        TZE R05100                                                       4F14256     
       07707  0 56000 0 01347        LDQ G                                                            4F14257     
       07710 -0 62000 2 15044        SLQ BETA,B                                                       4F14258     
       07711  0 40000 0 01347        ADD G                                                            4F14259     
       07712  0 62200 0 01347        STD G                                                            4F14260     
       07713  1 77777 2 07714 R05100 TXI R05200,B,-1                                                  4F14261     
       07714  3 00000 2 07705 R05200 TXH R04500,B,0        DEC(K)=DEC(ACC)=-3P AT END                 4F14262     
       07715 -0 50000 1 15520 R05300 CAL LAMBDA,A          STRING BEADS... COMPRESS LAMBDA TABLE      4F14263     
       07716  0 10000 0 07725        TZE R06100                                                       4F14264     
       07717  0 60200 4 15520        SLW LAMBDA,C                                                     4F14265     
       07720  0 50000 1 15521        CLA LAMBDA+1,A                                                   4F14266     
       07721  0 60100 4 15521        STO LAMBDA+1,C                                                   4F14267     
       07722  0 50000 1 15522        CLA LAMBDA+2,A                                                   4F14268     
       07723  0 60100 4 15522        STO LAMBDA+2,C                                                   4F14269     
       07724  1 77775 4 07725        TXI R06100,C,-3                                                  4F14270     
       07725  1 77775 1 07726 R06100 TXI R06200,A,-3                                                  4F14271     
       07726  3 00000 1 07715 R06200 TXH R05300,A,0                                                   4F14272     
       07727 -0 63400 4 07750        SXD R07800,C          -3P IN XC AT END                           4F14273     
       07730 -0 63400 4 10074        SXD CS0760,C                                                     4F14274     
       07731  0 53400 1 01406        LXA L(0),A                                                       4F14275     
       07732  0 50000 1 15520 R06400 CLA LAMBDA,A          STORE ORDERED, REDUCED LAMBDA TABLE        4F14276     
       07733  0 73400 2 00000        PAX 0,B               IN SCRIPL TABLE                            4F14277     
       07734  0 50000 2 15044        CLA BETA,B                                                       4F14278     
       07735 -0 73400 4 00000        PDX 0,C                                                          4F14279     
       07736  0 50000 1 15520        CLA LAMBDA,A                                                     4F14280     
       07737  0 60100 4 16650        STO SCRIPL,C                                                     4F14281     
       07740  0 50000 1 15521        CLA LAMBDA+1,A                                                   4F14282     
       07741  0 60100 4 16651        STO SCRIPL+1,C                                                   4F14283     
       07742  0 50000 1 15522        CLA LAMBDA+2,A                                                   4F14284     
       07743  0 60100 4 16652        STO SCRIPL+2,C                                                   4F14285     
       07744  1 77775 4 07745        TXI R07500,C,-3                                                  4F14286     
       07745 -0 75400 4 00000 R07500 PXD 0,C                                                          4F14287     
       07746  0 62200 2 15044        STD BETA,B                                                       4F14288     
       07747  1 77775 1 07750        TXI R07800,A,-3                                                  4F14289     
       07750  3 00000 1 07732 R07800 TXH R06400,A,0        -3P IN XA AT END                           4F14290     
       07751  0 56000 0 01406 CS0000 LDQ L(0)              ELIMINATE COMMON,SEGMENTS                  4F14291     
       07752 -0 50000 1 16645 CS0010 CAL SCRIPL-3,A                                                   4F14292     
       07753  0 10000 0 07762        TZE CS0080            ERASED SEGMENT - CONTINUE BACK-SCAN        4F14293     
       07754  0 73400 2 00000 CS0030 PAX 0,B                                                          4F14294     
       07755 -3 00000 2 10062        TXL CS0660,B,0        EXIT FROM CS ROUTINE                       4F14295     
       07756  0 62100 0 07754        STA CS0030                                                       4F14296     
       07757  0 50000 2 15044        CLA BETA,B                                                       4F14297     
       07760  0 73400 4 00000 CS0060 PAX 0,C                                                          4F14298     
       07761 -3 77772 4 07763        TXL CS0090,C,-6       AT LEAST TWO ELEMENTS                      4F14299     
       07762  1 00003 1 07752 CS0080 TXI CS0010,A,3        ONE ELEMENT OR ERASED SEGMENT              4F14300     
       07763 -0 63400 1 10036 CS0090 SXD CS0470,A          SAVE XA                                    4F14301     
       07764 -0 63400 4 01357        SXD LENGTH,C          SAVE XC, CONTAINING LENGTH OF SEGMENT      4F14302     
       07765 -3 00000 4 07770 CS0100 TXL CS0130,C,0        SEARCH UP FOR MATCHING SEGMENT             4F14303     
       07766  1 00003 1 07767        TXI CS0120,A,3                                                   4F14304     
       07767  1 00003 4 07765 CS0120 TXI CS0100,C,3                                                   4F14305     
       07770 -0 50000 1 16645 CS0130 CAL SCRIPL-3,A                                                   4F14306     
       07771 -0 10000 0 07773        TNZ CS0151                                                       4F14307     
       07772  1 00003 1 07770        TXI CS0130,A,3        ERASED SEGMENT                             4F14308     
       07773  0 73400 2 00000 CS0151 PAX 0,B                                                          4F14309     
       07774 -3 00000 2 10055        TXL CS0610,B,0        G0 ON TO NEXT SEGMENT                      4F14310     
       07775  0 62100 0 07760        STA CS0060                                                       4F14311     
       07776  0 50000 2 15044        CLA BETA,B                                                       4F14312     
       07777  0 73400 4 00000        PAX 0,C                                                          4F14313     
       10000 -0 75400 4 00000        PXD 0,C                                                          4F14314     
       10001  0 40200 0 01357        SUB LENGTH                                                       4F14315     
       10002 -0 10000 0 07765        TNZ CS0100            NOT SAME LENGTH SEGMENT-CONTINUE SEARCH    4F14316     
       10003 -0 53400 2 10036        LXD CS0470,B          SAME LENGTH SEGMENT                        4F14317     
       10004 -0 63400 1 10054        SXD CS0600,A                                                     4F14318     
       10005 -3 00000 4 10032 CS0250 TXL CS0430,C,0        MATCHING SEGMENTS                          4F14319     
       10006  0 50000 2 16647        CLA SCRIPL-1,B                                                   4F14320     
       10007  0 40200 1 16647        SUB SCRIPL-1,A                                                   4F14321     
       10010 -0 10000 0 07765        TNZ CS0100                                                       4F14322     
       10011 -0 50000 2 16645        CAL SCRIPL-3,B        SYMBOLS MATCH                              4F14323     
       10012 -0 32000 0 01527        ANA MASK1                                                        4F14324     
       10013  0 60200 0 01347        SLW G                                                            4F14325     
       10014 -0 50000 1 16645        CAL SCRIPL-3,A                                                   4F14326     
       10015 -0 32000 0 01527        ANA MASK1                                                        4F14327     
       10016  0 76000 0 00006        COM                                                              4F14328     
       10017  0 36100 0 01347        ACL G                                                            4F14329     
       10020  0 76000 0 00006        COM                                                              4F14330     
       10021 -0 10000 0 07765        TNZ CS0100                                                       4F14331     
       10022  0 50000 2 16646        CLA SCRIPL-2,B        TAGS MATCH                                 4F14332     
       10023  0 77100 0 00006        ARS 6                                                            4F14333     
       10024  0 76700 0 00006        ALS 6                                                            4F14334     
       10025  0 40200 1 16646        SUB SCRIPL-2,A                                                   4F14335     
       10026 -0 10000 0 07765        TNZ CS0100                                                       4F14336     
       10027  1 00003 1 10030        TXI CS0360,A,3        OPS MATCH                                  4F14337     
       10030  1 00003 2 10031 CS0360 TXI CS0370,B,3                                                   4F14338     
       10031  1 00003 4 10005 CS0370 TXI CS0250,C,3                                                   4F14339     
       10032 -0 50000 1 16650 CS0430 CAL SCRIPL,A          MATCHING SEGMENTS                          4F14340     
       10033 -0 32000 0 01452        ANA MASK2             SEARCH FOR REFERENCES                      4F14341     
       10034  0 34000 1 16647 CS0450 CAS SCRIPL-1,A                                                   4F14342     
       10035  1 00003 1 10034        TXI CS0450,A,3                                                   4F14343     
       10036  1 00000 0 10040 CS0470 TXI CS0490,0,0                                                   4F14344     
       10037  1 00003 1 10034        TXI CS0450,A,3                                                   4F14345     
       10040  0 50000 0 07754 CS0490 CLA CS0030            CHANGE REFERENCE                           4F14346     
       10041  0 62100 1 16647        STA SCRIPL-1,A                                                   4F14347     
       10042 -0 53400 4 01357        LXD LENGTH,C                                                     4F14348     
       10043 -0 53400 1 10054        LXD CS0600,A                                                     4F14349     
       10044 -3 00000 4 10050 CS0530 TXL CS0570,C,0        ERASE DUPLICATE SEGMENT                    4F14350     
       10045 -0 60000 1 16645        STQ SCRIPL-3,A                                                   4F14351     
       10046  1 00003 1 10047        TXI CS0560,A,3                                                   4F14352     
       10047  1 00003 4 10044 CS0560 TXI CS0530,C,3                                                   4F14353     
       10050  0 53400 4 07760 CS0570 LXA CS0060,C                                                     4F14354     
       10051 -0 60000 4 15044        STQ BETA,C                                                       4F14355     
       10052 -0 50000 0 01401        CAL 11Z               STORE CS BIT                               4F14356     
       10053 -0 60200 2 16651        ORS SCRIPL+1,B                                                   4F14357     
       10054  1 00000 0 07770 CS0600 TXI CS0130,0,0                                                   4F14358     
       10055 -0 53400 1 10036 CS0610 LXD CS0470,A                                                     4F14359     
       10056 -0 53400 4 01357        LXD LENGTH,C                                                     4F14360     
       10057 -3 00000 4 07752 CS0630 TXL CS0010,C,0                                                   4F14361     
       10060  1 00003 1 10061        TXI CS0650,A,3                                                   4F14362     
       10061  1 00003 4 10057 CS0650 TXI CS0630,C,3                                                   4F14363     
       10062  0 53400 5 01406 CS0660 LXA L(0),5            STRING BEADS... COMPRESS SCRIPL TABLE      4F14364     
       10063 -0 50000 1 16650 CS0670 CAL SCRIPL,A                                                     4F14365     
       10064  0 10000 0 10073        TZE CS0750                                                       4F14366     
       10065  0 60200 4 16650        SLW SCRIPL,C                                                     4F14367     
       10066  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F14368     
       10067  0 60100 4 16651        STO SCRIPL+1,C                                                   4F14369     
       10070  0 50000 1 16652        CLA SCRIPL+2,A                                                   4F14370     
       10071  0 60100 4 16652        STO SCRIPL+2,C                                                   4F14371     
       10072  1 77775 4 10073        TXI CS0750,C,-3                                                  4F14372     
       10073  1 77775 1 10074 CS0750 TXI CS0760,A,-3                                                  4F14373     
       10074  3 00000 1 10063 CS0760 TXH CS0670,A,0                                                   4F14374     
       10075 -0 63400 4 10111        SXD PM0080,C          -3Q IN XC AT END                           4F14375     
       10076 -0 63400 4 10300        SXD AS1800,C                                                     4F14376     
       10077 -0 63400 4 10323        SXD AS3600,C                                                     4F14377     
       10100  0 76000 0 00140 PM0000 SLF                   TURN OFF ALL SENSE LITES                   4F14378     
       10101  0 53400 1 01406        LXA L(0),A            PERMUTE * AND /                            4F14379     
       10102  0 50000 1 16650 PM0010 CLA SCRIPL,A                                                     4F14380     
       10103  0 73400 2 00000        PAX 0,B                                                          4F14381     
       10104  0 50000 2 15044        CLA BETA,B                                                       4F14382     
       10105  0 73400 4 00000        PAX 0,C               LDXC WITH SEGMENT LENGTH                   4F14383     
       10106 -0 63400 4 10110        SXD PM0070,C                                                     4F14384     
       10107 -3 77767 4 10113        TXL PM0100,C,-9                                                  4F14385     
       10110  1 00000 1 10111 PM0070 TXI PM0080,A,0        LENGTH LESS THAN 3 OR OD NOT = TO *        4F14386     
       10111 -3 00000 1 10256 PM0080 TXL AS0000,A,0        EXIT FROM PERMUTATION ROUTINE              4F14387     
       10112  0 02000 0 10102        TRA PM0010                                                       4F14388     
       10113  0 56000 1 16651 PM0100 LDQ SCRIPL+1,A        SEGMENT LENGTH AT LEAST = TO 3             4F14389     
       10114 -0 75400 0 00000        PXD 0,0                                                          4F14390     
       10115 -0 76300 0 00006        LGL 6                                                            4F14391     
       10116  0 40200 0 01405        SUB STAR                                                         4F14392     
       10117 -0 10000 0 10110        TNZ PM0070                                                       4F14393     
       10120  0 16200 0 10122        TQP PM0170                                                       4F14394     
       10121  0 02000 0 10110        TRA PM0070                                                       4F14395     
       10122 -0 63400 4 10131 PM0170 SXD PM0260,C                                                     4F14396     
       10123 -0 63400 4 10147        SXD PM0400,C                                                     4F14397     
       10124 -0 63400 4 10200        SXD PM0680,C                                                     4F14398     
       10125  0 53400 4 01406        LXA L(0),C            LDXC WITH 0                                4F14399     
       10126  1 77775 1 10127        TXI PM0240,A,-3                                                  4F14400     
       10127  0 76000 0 00143 PM0240 SLN 3                 TURN * LITE ON                             4F14401     
       10130  1 77775 4 10131 PM0250 TXI PM0260,C,-3                                                  4F14402     
       10131 -3 00000 4 10212 PM0260 TXL PM0790,C,0        EXIT                                       4F14403     
       10132 -0 63400 4 10142        SXD PM0340,C                                                     4F14404     
       10133 -0 53400 2 10134        LXD PM0290,B                                                     4F14405     
       10134  1 00000 3 10135 PM0290 TXI PM0300,3,0        XA TO XA AND XB                            4F14406     
       10135 -0 75400 0 00000 PM0300 PXD 0,0                                                          4F14407     
       10136  0 56000 1 16651        LDQ SCRIPL+1,A                                                   4F14408     
       10137 -0 76300 0 00006        LGL 6                                                            4F14409     
       10140  0 34000 0 01402        CAS SLASH                                                        4F14410     
       10141  0 00007 0 00000 FEXUB  HTR 0,0,7                                                        4F14411     
       10142 -3 00000 0 10174 PM0340 TXL PM0640,0,0        / SIGN                                     4F14412     
       10143 -0 76000 0 00143        SLT 3                 * SIGN... IS * LITE ON                     4F14413     
       10144  1 77775 1 10127        TXI PM0240,A,-3       NO                                         4F14414     
       10145  1 77775 2 10146        TXI PM0390,B,-3       YES - SEARCH FOR / SIGN                    4F14415     
       10146  1 77775 4 10147 PM0390 TXI PM0400,C,-3                                                  4F14416     
       10147 -3 00000 4 10210 PM0400 TXL PM0770,C,0        EXIT                                       4F14417     
       10150 -0 75400 0 00000        PXD 0,0                                                          4F14418     
       10151  0 56000 2 16651        LDQ SCRIPL+1,B                                                   4F14419     
       10152 -0 76300 0 00006        LGL 6                                                            4F14420     
       10153  0 40200 0 01402        SUB SLASH                                                        4F14421     
       10154  0 10000 0 10156        TZE PM0480                                                       4F14422     
       10155  1 77775 2 10146        TXI PM0390,B,-3                                                  4F14423     
       10156  0 50000 1 16650 PM0480 CLA SCRIPL,A          PERMUTE TAG WORDS                          4F14424     
       10157  0 56000 2 16650        LDQ SCRIPL,B                                                     4F14425     
       10160 -0 60000 1 16650        STQ SCRIPL,A                                                     4F14426     
       10161  0 60100 2 16650        STO SCRIPL,B                                                     4F14427     
       10162  0 50000 1 16651        CLA SCRIPL+1,A        PERMUTE OP WORDS                           4F14428     
       10163  0 56000 2 16651        LDQ SCRIPL+1,B                                                   4F14429     
       10164 -0 60000 1 16651        STQ SCRIPL+1,A                                                   4F14430     
       10165  0 60100 2 16651        STO SCRIPL+1,B                                                   4F14431     
       10166  0 50000 1 16652        CLA SCRIPL+2,A        PERMUTE SYMBOL WORDS                       4F14432     
       10167  0 56000 2 16652        LDQ SCRIPL+2,B                                                   4F14433     
       10170 -0 60000 1 16652        STQ SCRIPL+2,A                                                   4F14434     
       10171  0 60100 2 16652        STO SCRIPL+2,B                                                   4F14435     
       10172 -0 53400 4 10142        LXD PM0340,C                                                     4F14436     
       10173  1 77775 1 10130        TXI PM0250,A,-3       RESUME SEGMENT SCAN                        4F14437     
       10174 -0 76000 0 00143 PM0640 SLT 3                 / SIGN... IS * LITE ON                     4F14438     
       10175  1 77775 2 10177 PM0650 TXI PM0670,B,-3       NO                                         4F14439     
       10176  1 77775 1 10130        TXI PM0250,A,-3                                                  4F14440     
       10177  1 77775 4 10200 PM0670 TXI PM0680,C,-3                                                  4F14441     
       10200 -3 00000 4 10210 PM0680 TXL PM0770,C,0                                                   4F14442     
       10201 -0 75400 0 00000        PXD 0,0                                                          4F14443     
       10202  0 56000 2 16651        LDQ SCRIPL+1,B                                                   4F14444     
       10203 -0 76300 0 00006        LGL 6                                                            4F14445     
       10204  0 40200 0 01402        SUB SLASH                                                        4F14446     
       10205  0 10000 0 10175        TZE PM0650                                                       4F14447     
       10206  0 76000 0 00143        SLN 3                 TORN * LITE ON                             4F14448     
       10207  0 02000 0 10156        TRA PM0480                                                       4F14449     
       10210 -0 53400 1 10211 PM0770 LXD PM0780,A                                                     4F14450     
       10211  1 00000 3 10212 PM0780 TXI PM0790,3,0        XB TO XA,XB                                4F14451     
       10212 -0 75400 0 00000 PM0790 PXD 0,0                                                          4F14452     
       10213  0 56000 1 16646        LDQ SCRIPL-2,A                                                   4F14453     
       10214 -0 76300 0 00006        LGL 6                                                            4F14454     
       10215  0 40200 0 01402        SUB SLASH                                                        4F14455     
       10216  0 10000 0 10111        TZE PM0080            ... / - EXIT FROM SEGMENT SCAN             4F14456     
       10217 -0 75400 0 00000        PXD 0,0                                                          4F14457     
       10220  0 56000 1 16643        LDQ SCRIPL-5,A                                                   4F14458     
       10221 -0 76300 0 00006        LGL 6                                                            4F14459     
       10222  0 40200 0 01402        SUB SLASH                                                        4F14460     
       10223  0 10000 0 10111        TZE PM0080            ... / * - EXIT FROM SEGMENT SCAN           4F14461     
       10224  0 50000 1 16645        CLA SCRIPL-3,A        ... **                                     4F14462     
       10225  0 60100 0 01126        STO E                                                            4F14463     
       10226  0 50000 1 16646        CLA SCRIPL-2,A                                                   4F14464     
       10227  0 60100 0 01127        STO E+1                                                          4F14465     
       10230  0 50000 1 16647        CLA SCRIPL-1,A                                                   4F14466     
       10231  0 60100 0 01130        STO E+2                                                          4F14467     
       10232  1 00003 1 10233        TXI PM0980,A,3                                                   4F14468     
       10233  1 00003 4 10234 PM0980 TXI PM0990,C,3                                                   4F14469     
       10234 -3 00000 4 10244 PM0990 TXL PM1070,C,0        FINIS                                      4F14470     
       10235  0 50000 1 16645        CLA SCRIPL-3,A                                                   4F14471     
       10236  0 60100 1 16650        STO SCRIPL,A                                                     4F14472     
       10237  0 50000 1 16646        CLA SCRIPL-2,A                                                   4F14473     
       10240  0 60100 1 16651        STO SCRIPL+1,A                                                   4F14474     
       10241  0 50000 1 16647        CLA SCRIPL-1,A                                                   4F14475     
       10242  0 60100 1 16652        STO SCRIPL+2,A                                                   4F14476     
       10243  1 00003 1 10233        TXI PM0980,A,3                                                   4F14477     
       10244  0 50000 0 01126 PM1070 CLA E                                                            4F14478     
       10245  0 60100 1 16650        STO SCRIPL,A                                                     4F14479     
       10246  0 50000 0 01127        CLA E+1                                                          4F14480     
       10247  0 60100 1 16651        STO SCRIPL+1,A                                                   4F14481     
       10250  0 50000 0 01130        CLA E+2                                                          4F14482     
       10251  0 60100 1 16652        STO SCRIPL+2,A                                                   4F14483     
       10252 -0 50000 1 16654        CAL SCRIPL+4,A        PRESERVE CS BIT                            4F14464     
       10253 -0 32000 0 01401        ANA 11Z                                                          4F14485     
       10254 -0 60200 1 16651        ORS SCRIPL+1,A                                                   4F14486     
       10255  0 02000 0 10110        TRA PM0070                                                       4F14487     
       10256  0 53400 7 01406 AS0000 LXA L(0),7            RENUMBER SEGMENT OF SCRIPL                 4F14488     
       10257  0 50000 2 15044 AS0100 CLA BETA,B                                                       4F14489     
       10260  0 10000 0 10265        TZE AS0700                                                       4F14490     
       10261 -0 75400 4 00000        PXD 0,C                                                          4F14491     
       10262  0 77100 0 00022        ARS 18                                                           4F14492     
       10263  0 62100 2 15044        STA BETA,B                                                       4F14493     
       10264  1 77777 4 10265        TXI AS0700,C,-1                                                  4F14494     
       10265  1 77777 2 10266 AS0700 TXI AS0800,B,-1                                                  4F14495     
       10266  3 00000 2 10257 AS0800 TXH AS0100,B,0                                                   4F14496     
       10267  0 50000 1 16650 AS0900 CLA SCRIPL,A                                                     4F14497     
       10270  0 73400 2 00000        PAX 0,B                                                          4F14498     
       10271  0 50000 2 15044        CLA BETA,B                                                       4F14499     
       10272  0 62100 1 16650        STA SCRIPL,A                                                     4F14500     
       10273  0 56000 1 16652        LDQ SCRIPL+2,A                                                   4F14501     
       10274 -0 76300 0 00001        LGL 1                                                            4F14502     
       10275  0 76000 0 00001        LBT                                                              4F14503     
       10276  0 16200 0 10302        TQP AS2000                                                       4F14504     
       10277  1 77775 1 10300        TXI AS1800,A,-3                                                  4F14505     
       10300  3 00000 1 10267 AS1800 TXH AS0900,A,0                                                   4F14506     
       10301  0 02000 0 10307        TRA AS2500                                                       4F14507     
       10302 -0 76300 0 00043 AS2000 LGL 35                                                           4F14508     
       10303  0 73400 2 00000        PAX 0,B                                                          4F14509     
       10304  0 50000 2 15044        CLA BETA,B                                                       4F14510     
       10305  0 62100 1 16652        STA SCRIPL+2,A                                                   4F14511     
       10306  1 77775 1 10300        TXI AS1800,A,-3                                                  4F14512     
       10307  0 53400 3 01406 AS2500 LXA L(0),3            LDXA,XB WITH 0                             4F14513     
       10310  0 56000 0 01406        LDQ L(0)              CLEAR MQ                                   4F14514     
       10311 -0 60000 2 15044 AS2700 STQ BETA,B            RECLEAR BETA TABLE                         4F14515     
       10312  1 77777 2 10313        TXI AS2900,B,-1                                                  4F14516     
       10313  3 00000 2 10311 AS2900 TXH AS2700,B,0                                                   4F14517     
       10314  0 50000 1 16650 AS3000 CLA SCRIPL,A          ADD INTO GAMMA COUNTERS                    4F14518     
       10315  0 73400 2 00000        PAX 0,B                                                          4F14519     
       10316  0 50000 2 15044        CLA BETA,B                                                       4F14520     
       10317  0 40000 0 01462        ADD BETAD2            3*2**18+(-3)                               4F14521     
       10320  0 62200 2 15044        STD BETA,B                                                       4F14522     
       10321  0 62100 2 15044        STA BETA,B                                                       4F14523     
       10322  1 77775 1 10323        TXI AS3600,A,-3                                                  4F14524     
       10323  3 00000 1 10314 AS3600 TXH AS3000,A,0        -3Q IN XA AT END                           4F14525     
       10324 -0 63400 1 01117        SXD 3QBAR,A           -3Q TO 3QBAR = 3LBAR                       4F14526     
       10325 -0 50000 1 16645 CCS000 CAL SCRIPL-3,A        ELIMINATE COMMON SUBEXPRESSIONS            4F14527     
       10326  0 73400 2 00000        PAX 0,B               LOAD XB WITH S(I)                          4F14528     
       10327 -3 00000 2 10354        TXL CCS240,B,0        EXIT AT S(0)                               4F14529     
       10330 -0 50000 2 15044        CAL BETA,B            OBTAIN LENGTH OF S(I)                      4F14530     
       10331  0 62200 0 10332        STD CCS060            AND BACK UP TO                             4F14531     
       10332  1 00000 1 10333 CCS060 TXI CCS070,A,0        BEGINNING OF CURRENT SEGMENT               4F14532     
       10333 -0 50000 1 16651 CCS070 CAL SCRIPL+1,A        OBTAIN OP1 (S(I))                          4F14533     
       10334 -0 32000 0 01401        ANA 11Z               EXTRACT CS-BIT                             4F14534     
       10335  0 10000 0 10325        TZE CCS000            CONTINUE TO S(I-1)                         4F14535     
       10336 -0 75400 2 00000        PXD 0,B                                                          4F14536     
       10337  0 77100 0 00022        ARS 18                                                           4F14537     
       10340  0 53400 4 01406        LXA L(0),C            TO S(I)                                    4F14538     
       10341 -0 53400 2 10342        LXD CCS140,B          AND KEEP COUNT OF SAME                     4F14539     
       10342  1 00000 3 10343 CCS140 TXI CCS150,3,0        XA TO XA,XB                                4F14540     
       10343 -3 00000 2 10350 CCS150 TXL CCS200,B,0        SEARCH-UP FINISHED. EXAMINE COUNT          4F14541     
       10344  0 34000 2 16647        CAS SCRIPL-1,B                                                   4F14542     
       10345  1 00003 2 10343        TXI CCS150,B,3        CONTINUE SEARCH                            4F14543     
       10346  1 00001 4 10347        TXI CCS190,C,1        RAISE REF COUNTER AND                      4F14544     
       10347  1 00003 2 10343 CCS190 TXI CCS150,B,3        CONTINUE SEARCH                            4F14545     
       10350  3 00001 4 10325 CCS200 TXH CCS000,C,1        MULTIPLE REFERENCE                         4F14546     
       10351 -0 50000 0 01530        CAL MASK4             SINGLE REFERENCE - SO SET                  4F14547     
       10352  0 32000 1 16651        ANS SCRIPL+1,A        OP1(S(I))30 TO 0, AND                      4F14548     
       10353  0 02000 0 10325        TRA CCS000            CONTINUE FOR S(I-1)                        4F14549     
       10354 -0 53400 1 10323 CCS240 LXD AS3600,A          -3Q TO XA                                  4F14550     
       10355 -3 00000 1 10610 PL0000 TXL LK0000,A,0        GO TO LINKAGE                              4F14551     
       10356  0 50000 1 16645        CLA SCRIPL-3,A                                                   4F14552     
       10357  0 73400 2 00000        PAX 0,B                                                          4F14553     
       10360 -0 50000 2 15044        CAL BETA,B                                                       4F14554     
       10361  0 73400 4 00000        PAX 0,C                                                          4F14555     
       10362  0 62200 0 10363        STD PL0060                                                       4F14556     
       10363  1 00000 1 10364 PL0060 TXI PL0070,A,0        SET XA TO BEGINNING OF S(I)                4F14557     
       10364 -0 75400 0 00000 PL0070 PXD 0,0                                                          4F14558     
       10365  0 56000 1 16651        LDQ SCRIPL+1,A        OBTAIN                                     4F14559     
       10366 -0 76300 0 00006        LGL 6                 AND                                        4F14560     
       10367  0 34000 0 01427        CAS SPECOP            EXAMINE OP1 (S(I))                         4F14561     
       10370  0 02000 0 10465        TRA PL0680                                                       4F14562     
       10371  0 02000 0 10427        TRA PL0460                                                       4F14563     
       10372 -0 75400 0 00000 PL0130 PXD 0,0               OP1 (S(I)) IS +, - OR *                    4F14564     
       10373  0 56000 1 16652        LDQ SCRIPL+2,A        OBTAIN                                     4F14565     
       10374 -0 76300 0 00001        LGL 1                 AND                                        4F14566     
       10375  0 76000 0 00001        LBT                   EXAMINE SYM1 (S(I))                        4F14567     
       10376  0 16200 0 10410        TQP PL0300                                                       4F14568     
       10377 -0 76300 0 00005        LGL 5                 EX (IN)TERNAL VARIAVLE                     4F14569     
       10400  0 34000 0 01423 PL0135 CAS L(H)              IS SYM1 (S(I)) FIX OR FLO PT               4F14570     
       10401  0 34000 0 01425        CAS L(O)                                                         4F14571     
       10402  0 02000 0 10405        TRA PL0240            FLO PT... SET OP1 (S(I)) 32 = 1            4F14572     
       10403  0 02000 0 10405        TRA PL0240            FLO PT... DITTO                            4F14573     
       10404  0 02000 0 10355        TRA PL0000            FIX PT... OP1 (S(I)) 32 = 0                4F14574     
       10405 -0 50000 0 01416 PL0240 CAL L(8)              SET OP1 (S(I)) 32 = 1                      4F14575     
       10406 -0 60200 1 16651 PL0250 ORS SCRIPL+1,A                                                   4F14576     
       10407  1 00000 0 10355 PL0260 TXI PL0000,0,0        CONTINUE SCAN                              4F14577     
       10410 -0 53400 2 10411 PL0300 LXD PL0310,B          SYM1 (S(I)) = SOME S(J)                    4F14578     
       10411  1 00000 3 10412 PL0310 TXI PL0320,3,0        XA TO XA,XB                                4F14579     
       10412 -0 63400 4 10413 PL0320 SXD PL0330,C                                                     4F14580     
       10413  1 00000 2 10414 PL0330 TXI PL0340,B,0                                                   4F14581     
       10414 -0 50000 2 16650 PL0340 CAL SCRIPL,B                                                     4F14582     
       10415  0 73400 4 00000        PAX 0,C                                                          4F14583     
       10416 -0 32000 0 01452        ANA MASK2                                                        4F14584     
       10417  0 40200 1 16652        SUB SCRIPL+2,A                                                   4F14585     
       10420  0 10000 0 10424        TZE PL0420                                                       4F14586     
       10421  0 50000 4 15044        CLA BETA,C                                                       4F14587     
       10422  0 73400 4 00000        PAX 0,C                                                          4F14588     
       10423  0 02000 0 10412        TRA PL0320                                                       4F14589     
       10424 -0 50000 2 16651 PL0420 CAL SCRIPL+1,B        SYM1(S(I)) = S(J)                          4F14590     
       10425 -0 32000 0 01416        ANA L(8)              EXTRACT OP1 (S(J)) 32 AND GO               4F14591     
       10426  0 02000 0 10406        TRA PL0250            SET OP1 (S(I)) 32 = OP1 (S(J)) 32          4F14592     
       10427 -0 76300 0 00007 PL0460 LGL 7                 OP1 (S(I)) IS SPOP                         4F14593     
       10430  0 16200 0 10437        TQP PL0465                                                       4F14594     
       10431  0 56000 1 16652 PL0461 LDQ SCRIPL+2,A        FS NAME -                                  4F14595     
       10432 -0 75400 0 00000        PXD 0,0               EXAMINE SUM1 (S(I)) S,1-5                  4F14596     
       10433 -0 76300 0 00006        LGL 6                                                            4F14597     
       10434  0 40200 0 01433        SUB L(X)                                                         4F14598     
       10435 -0 10000 0 10405        TNZ PL0240            FLO PT... GO SET OP1 (S(I)) 32 = 1         4F14599     
       10436  0 02000 0 10355        TRA PL0000            FIX PT ... OP1 (S(I)) 32 = 0               4F14600     
       10437  0 76000 0 00001 PL0465 LBT                                                              4F14601     
       10440  0 02000 0 10445        TRA PL0470                                                       4F14602     
       10441  0 56000 1 16652        LDQ SCRIPL+2,A                                                   4F14603     
       10442 -0 75400 0 00000        PXD ,0                                                           4F14604     
       10443 -0 76300 0 00006        LGL 6                                                            4F14605     
       10444  0 02000 0 10400        TRA PL0135                                                       4F14606     
       10445  0 50000 1 16652 PL0470 CLA SCRIPL+2,A        NOT AN FS NAME                             4F14607     
       10446  0 53400 2 01406        LXA L(0),B                                                       4F14608     
       10447  0 34000 2 11117 PL0480 CAS OPSUB,B                                                      4F14609     
       10450  1 77777 2 10453        TXI PL0520,B,-1                                                  4F14610     
       10451  0 02000 0 10462        TRA PL0650                                                       4F14611     
       10452  1 77777 2 10453        TXI PL0520,B,-1                                                  4F14612     
       10453  3 77754 2 10447 PL0520 TXH PL0480,B,-20                                                 4F14613     
       10454  0 60100 0 01347        STO G                                                            4F14614     
       10455 -0 63400 1 10407        SXD PL0260,A                                                     4F14615     
       10456  0 07400 1 03321        TSX TET00,A                                                      4F14616     
       10457  0 00000 0 00011        HTR 9                                                            4F14617     
       10460 -0 53400 1 10407        LXD PL0260,A                                                     4F14618     
       10461  0 02000 0 10431        TRA PL0461                                                       4F14619     
       10462 -0 50000 0 01412 PL0650 CAL L(4)              SET OP1 (S(I)) 33 =1                       4F14620     
       10463 -0 60200 1 16651        ORS SCRIPL+1,A                                                   4F14621     
       10464  0 02000 0 10431        TRA PL0461                                                       4F14622     
       10465  0 16200 0 10372 PL0680 TQP PL0130                                                       4F14623     
       10466 -0 75400 0 00000        PXD 0,0               OP1 (S(I) IS **                            4F14624     
       10467  0 56000 1 16652        LDQ SCRIPL+2,A        OBTAIN AND                                 4F14625     
       10470 -0 76300 0 00001        LGL 1                 EXAMINE                                    4F14626     
       10471  0 76000 0 00001        LBT                   SYM1 (S(I))                                4F14627     
       10472  0 16200 0 10550        TQP PL1000                                                       4F14628     
       10473 -0 76300 0 00005        LGL 5                 EX (IN)TERNAL VARIABLE                     4F14629     
       10474  0 34000 0 01423        CAS L(H)              IS OT FIX OR FLO PT                        4F14630     
       10475  0 34000 0 01425        CAS L(O)                                                         4F14631     
       10476  0 02000 0 10501        TRA PL0800                                                       4F14632     
       10477  0 02000 0 10501        TRA PL0800                                                       4F14633     
       10500  0 02000 0 10503        TRA PL0830            FIX PT                                     4F14634     
       10501 -0 50000 0 01416 PL0800 CAL L(8)              FLO PT... SET OP1 (S(I)) 32 = 1            4F14635     
       10502 -0 60200 1 16651 PL0820 ORS SCRIPL+1,A                                                   4F14636     
       10503 -0 75400 0 00000 PL0830 PXD 0,0                                                          4F14637     
       10504  0 56000 1 16655        LDQ SCRIPL+5,A        OBTAIN                                     4F14638     
       10505 -0 76300 0 00001        LGL 1                 AND                                        4F14639     
       10506  0 76000 0 00001        LBT                   EXAMINE                                    4F14640     
       10507  0 16200 0 10567        TQP PL1200            SYM2 (S(I))                                4F14641     
       10510 -0 76300 0 00005        LGL 5                                                            4F14642     
       10511  0 34000 0 01423        CAS L(H)                                                         4F14643     
       10512  0 34000 0 01425        CAS L(O)                                                         4F14644     
       10513  0 02000 0 10545        TRA PL0940            SYM2 (S(I)) IS FLO PT, SO GO               4F14645     
       10514  0 02000 0 10545        TRA PL0940            SET OP2 (S(I)) 32 = 1                      4F14646     
       10515 -0 75400 0 00000 PL0850 PXD 0,0               SYM2(S(I)) IS FIX PT                       4F14647     
       10516 -0 76300 0 00006        LGL 6                                                            4F14648     
       10517  0 40200 0 01375        SUB OPEN                                                         4F14649     
       10520 -0 10000 0 10355        TNZ PL0000            SYM2 (S(I)) IS EXTERNAL                    4F14650     
       10521 -0 76300 0 00031        LGL 25                SYM2 (S(I)) IS INTERNAL (AND FIX PT)       4F14651     
       10522  0 40000 0 10537        ADD PL0880                                                       4F14652     
       10523  0 62100 0 10515        STA PL0850                                                       4F14653     
       10524  0 76200 0 00302        RDR FXCODR                                                       4F14654     
       10525  0 46000 0 10515        LDA PL0850                                                       4F14655     
       10526  0 70000 0 01347        CPY G                                                            4F14656     
       10527  0 70000 0 01350        CPY G+1                                                          4F14657     
       10530  0 50000 0 01347        CLA G                                                            4F14658     
       10531  0 34000 0 01350        CAS G+1                                                          4F14659     
       10532  0 02000 0 10534        TRA *+2                       GO TO THE DIAGNOSTIC.              4F14660     
       10533  0 02000 0 10535        TRA PL1570                                                       4F14661     
       10534  0 07400 4 03400        TSX DIAG,4                  * GO TO THE DIAGNOSTIC.              4F14662     
       10535  0 10000 0 10355 PL1570 TZE PL0000            EXP IS 0, SO OP1 (S(I)) 33 = 0             4F14663     
       10536  0 34000 0 10141        CAS FEXUB                                                        4F14664     
       10537  3 00000 0 00002 PL0880 TXH FIXCON,0,0        EXP NOT LESS THAN 7, SO                    4F14665     
       10540  0 02000 0 10355        TRA PL0000            OP1 (S(I)) 33 = 0                          4F14666     
       10541  0 60100 1 16655        STO SCRIPL+5,A        EXP LESS THAN 7, SO STORE EXP              4F14667     
       10542 -0 50000 0 01412        CAL L(4)              AS SYM2 (S(I)) AND SET                     4F14668     
       10543 -0 60200 1 16651        ORS SCRIPL+1,A        OP1 (S(I)) 33 = 1                          4F14669     
       10544  0 02000 0 10355        TRA PL0000                                                       4F14670     
       10545 -0 50000 0 01416 PL0940 CAL L(8)              SYM2 (S(I)) IS FLO PT                      4F14671     
       10546 -0 60200 1 16654        ORS SCRIPL+4,A        SET OP2 (S(I)) 32 = 1                      4F14672     
       10547  0 02000 0 10355        TRA PL0000                                                       4F14673     
       10550 -0 53400 2 10551 PL1000 LXD PL1010,B          SYM1 (S(I)) IS SOME S(J)                   4F14674     
       10551  1 00000 3 10552 PL1010 TXI PL1020,3,0        XA TO XA,XB                                4F14675     
       10552 -0 63400 4 10553 PL1020 SXD PL1030,C                                                     4F14676     
       10553  1 00000 2 10554 PL1030 TXI PL1040,B,0                                                   4F14677     
       10554 -0 50000 2 16650 PL1040 CAL SCRIPL,B                                                     4F14678     
       10555  0 73400 4 00000        PAX 0,C                                                          4F14679     
       10556 -0 32000 0 01452        ANA MASK2                                                        4F14680     
       10557  0 40200 1 16652        SUB SCRIPL+2,A                                                   4F14681     
       10560  0 10000 0 10564        TZE PL1130                                                       4F14682     
       10561  0 50000 4 15044        CLA BETA,C                                                       4F14683     
       10562  0 73400 4 00000        PAX 0,C                                                          4F14684     
       10563  0 02000 0 10552        TRA PL1020                                                       4F14685     
       10564 -0 50000 2 16651 PL1130 CAL SCRIPL+1,B                                                   4F14686     
       10565 -0 32000 0 01416        ANA L(8)                                                         4F14687     
       10566  0 02000 0 10502        TRA PL0820                                                       4F14688     
       10567 -0 53400 2 10570 PL1200 LXD PL1210,B          SYM2 (S(I)) = SOME S(K)                    4F14689     
       10570  1 00000 3 10571 PL1210 TXI PL1220,3,0        XA TO XA,XB                                4F14690     
       10571 -0 53400 4 10603 PL1220 LXD PL1330,C          LKXC WITH -6                               4F14691     
       10572 -0 63400 4 10573 PL1230 SXD PL1240,C                                                     4F14692     
       10573  1 00000 2 10574 PL1240 TXI PL1250,B,0                                                   4F14693     
       10574 -0 50000 2 16650 PL1250 CAL SCRIPL,B                                                     4F14694     
       10575  0 73400 4 00000        PAX 0,C                                                          4F14695     
       10576 -0 32000 0 01452        ANA MASK2                                                        4F14696     
       10577  0 40200 1 16655        SUB SCRIPL+5,A                                                   4F14697     
       10600  0 10000 0 10604        TZE PL1340            SYM2(S(I)) = S(K)                          4F14698     
       10601  0 50000 4 15044        CLA BETA,C                                                       4F14699     
       10602  0 73400 4 00000        PAX 0,C                                                          4F14700     
       10603  1 77772 0 10572 PL1330 TXI PL1230,0,-6                                                  4F14701     
       10604 -0 50000 2 16651 PL1340 CAL SCRIPL+1,B        SET OP2(S(I)) 32 = OP1 (S(K)) 32           4F14702     
       10605 -0 32000 0 01416        ANA L(8)                                                         4F14703     
       10606 -0 60200 1 16654        ORS SCRIPL+4,A                                                   4F14704     
       10607  0 02000 0 10355        TRA PL0000            RESUME SCAN                                4F14705     
       10610 -0 53400 1 10323 LK0000 LXD AS3600,A          -3Q TO XA                                  4F14706     
       10611 -0 50000 1 16645 LK0030 CAL SCRIPL-3,A                                                   4F14707     
       10612  0 73400 2 00000        PAX 0,B               S(I) TO XB                                 4F14708     
       10613 -3 00000 2 11020        TXL LK1610,B,0        EXIT UPON ENCOUNTERING S(0)                4F14709     
       10614  0 56000 1 16646        LDQ SCRIPL-2,A        PLACE LAST OP OP S(I) IN MQ                4F14710     
       10615  0 50000 2 15044        CLA BETA,B                                                       4F14711     
       10616  0 62200 0 10617        STD LK0110                                                       4F14712     
       10617  1 00000 1 10620 LK0110 TXI LK0120,A,0        MOVE XA TO BEGINNING OF S(I)               4F14713     
       10620 -0 53400 4 10621 LK0120 LXD LK0130,C                                                     4F14714     
       10621  1 00000 5 10622 LK0130 TXI LK0140,5,0        XA TO XA,XC                                4F14715     
       10622 -0 63400 1 10323 LK0140 SXD AS3600,A                                                     4F14716     
       10623  0 50000 2 15043        CLA BETA-1,B                                                     4F14717     
       10624 -0 73400 2 00000        PDX 0,B               LENGTH OF S(I-1) TO XB                     4F14718     
       10625 -0 63400 2 10626        SXD LK0180,B                                                     4F14719     
       10626  1 00000 4 10627 LK0180 TXI LK0190,C,0        MOVE XC TO BEGINNING OF S(I-1)             4F14720     
       10627  0 16200 0 10753 LK0190 TQP LK1200            S(I) TYPE AC                               4F14721     
       10630 -0 77300 0 00001        RQL 1                                                            4F14722     
       10631  0 16200 0 10753        TQP LK1200            S(I) TYPE AC                               4F14723     
       10632 -0 50000 0 01404        CAL 12Z               S(I) RESULTS IN MQ (TYPE MQ)               4F14724     
       10633 -0 60200 1 16651        ORS SCRIPL+1,A        SET OP1 (S(I)) 31 = 1                      4F14725     
       10634 -0 75400 0 00000        PXD 0,0                                                          4F14726     
       10635  0 56000 4 16651        LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MQ                   4F14727     
       10636 -0 76300 0 00006        LGL 6                                                            4F14728     
       10637  0 34000 0 01427        CAS SPECOP                                                       4F14729     
       10640  0 02000 0 10643        TRA LK0320                                                       4F14730     
       10641  0 02000 0 10730        TRA LK0950                                                       4F14731     
       10642  0 02000 0 10611        TRA LK0030            S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0   4F14732     
       10643  0 16200 0 10664 LK0320 TQP LK0570                                                       4F14733     
       10644 -0 76300 0 00033        LGL 27                S(I)TYPE MQ, OP1(S(I-1) = **               4F14734     
       10645 -0 50000 1 16650        CAL SCRIPL,A                                                     4F14735     
       10646 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14736     
       10647  0 16200 0 10657        TQP LK0480            OP1 (S(I-1)) 33 = 0                        4F14737     
       10650  0 40200 4 16652        SUB SCRIPL+2,C        OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE.   4F14738     
       10651 -0 10000 0 10611        TNZ LK0030            SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0    4F14739     
       10652 -0 50000 0 01411        CAL L(3)              S(I) = SYM1 (S(I-1)), SO                   4F14740     
       10653 -0 60200 4 16651 LK0430 ORS SCRIPL+1,C                                                   4F14741     
       10654 -0 50000 0 01436 LK0440 CAL BIT29                                                        4F14742     
       10655 -0 60200 1 16651        ORS SCRIPL+1,A                                                   4F14743     
       10656  0 02000 0 10611        TRA LK0030            OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE.    4F14744     
       10657  0 40200 4 16655 LK0480 SUB SCRIPL+5,C                                                   4F14745     
       10660 -0 10000 0 10611        TNZ LK0030            SET OP1,S(I))29=OP1(S(I-1))35=0            4F14746     
       10661 -0 50000 0 01407        CAL L(1)              S(I) = SYM2 (S(I-1)), S0                   4F14747     
       10662 -0 60200 4 16654        ORS SCRIPL+4,C        SET OP2 (S(I-1)) 35 = 1                    4F14748     
       10663  0 02000 0 10654        TRA LK0440                                                       4F14749     
       10664 -0 75400 0 00000 LK0570 PXD 0,0               S(I) TYPE MQ, OP1 (S(I-1)) = *             4F14750     
       10665  0 56000 4 16654        LDQ SCRIPL+4,C        F1ACE PO2 (S(I-1)) IN MQ                   4F14751     
       10666 -0 76300 0 00006        LGL 6                 IS OP2 (S(I-1)) = *                        4F14752     
       10667  0 40200 0 01405        SUB STAR                                                         4F14753     
       10670 -0 10000 0 10611        TNZ LK0030            NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754     
       10671 -0 50000 0 01410        CAL L(2)              YES                                        4F14755     
       10672 -0 60200 4 16651        ORS SCRIPL+1,C        SET OP1(S(I-1))34=1                        4F14756     
       10673 -0 50000 1 16650 LK0630 CAL SCRIPL,A                                                     4F14757     
       10674 -0 32000 0 01452        ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14758     
       10675 -3 00000 2 10610 LK0650 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14759     
       10676  0 34000 1 16647        CAS SCRIPL-1,A                                                   4F14760     
       10677  1 00003 1 10702        TXI LK0700,A,3                                                   4F14761     
       10700  0 02000 0 10703        TRA LK0710                                                       4F14762     
       10701  1 00003 1 10702        TXI LK0700,A,3        NOT FOUND - CONTINUE SEARCH                4F14763     
       10702  1 77775 2 10675 LK0700 TXI LK0650,B,-3                                                  4F14764     
       10703  0 56000 1 16646 LK0710 LDQ SCRIPL-2,A        S(I) IS SYMJ (S(I-1))                      4F14765     
       10704 -0 77300 0 00001        RQL 1                 IS OPJ (S(I-1)) = *                        4F14766     
       10705  0 16200 0 10707        TQP LK0750                                                       4F14767     
       10706  1 00003 1 10702        TXI LK0700,A,3        NO... CONTINUE SEARCH                      4F14768     
       10707  0 50000 4 16650 LK0750 CLA SCRIPL,C          YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1)) 4F14769     
       10710  0 56000 1 16645        LDQ SCRIPL-3,A        EXCHANGE                                   4F14770     
       10711  0 60100 1 16645        STO SCRIPL-3,A        TAG                                        4F14771     
       10712 -0 60000 4 16650        STQ SCRIPL,C          WORDS                                      4F14772     
       10713 -0 50000 4 16651        CAL SCRIPL+1,C        PLACE OP1 (S(I-1)) IN ACC                  4F14773     
       10714  0 56000 1 16646        LDQ SCRIPL-2,A        PLACE OPJ (S(I-1)) IN MQ                   4F14774     
       10715  0 60200 1 16646        SLW SCRIPL-2,A        EXCHANGE                                   4F14775     
       10716 -0 60000 4 16651        STQ SCRIPL+1,C        OP                                         4F14776     
       10717 -0 32000 0 01452        ANA MASK2             WORDS AND                                  4F14777     
       10720 -0 60200 4 16651        ORS SCRIPL+1,C        SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33     4F14778     
       10721  0 50000 4 16652        CLA SCRIPL+2,C        THEN                                       4F14779     
       10722  0 56000 1 16647        LDQ SCRIPL-1,A        EXCHANGE                                   4F14780     
       10723  0 60100 1 16647        STO SCRIPL-1,A        SYMBOL                                     4F14781     
       10724 -0 60000 4 16652        STQ SCRIPL+2,C        WORDS                                      4F14782     
       10725 -0 53400 1 10323        LXD AS3600,A          RESTORE XA                                 4F14783     
       10726 -0 50000 0 01407 LK0900 CAL L(1)              AND                                        4F14784     
       10727  0 02000 0 10653        TRA LK0430                                                       4F14785     
       10730 -0 77300 0 00033 LK0950 RQL 27                S(I) TYPE MQ, OP1 (S(I-1)) = SPOP          4F14786     
       10731 -0 50000 1 16650        CAL SCRIPL,A                                                     4F14787     
       10732 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14788     
       10733  0 16200 0 10742        TQP LK1050            0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE)    4F14789     
       10734  3 00006 2 10611        TXH LK0030,B,6        OPEN MULTIV... SET OP1 (S(I)) 29 = 0       4F14790     
       10735  0 40200 4 16655        SUB SCRIPL+5,C        OPEN UNIV... IS S(I) = SUM2 (S(I-1))       4F14791     
       10736 -0 10000 0 10611        TNZ LK0030            NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 04F14792     
       10737 -0 50000 0 01411        CAL L(3)              AND                                        4F14793     
       10740 -0 60200 4 16654        ORS SCRIPL+4,C        SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1    4F14794     
       10741  0 02000 0 10654        TRA LK0440                                                       4F14795     
       10742 -0 77300 0 00017 LK1050 RQL 15                                                           4F14796     
       10743  0 16200 0 10745        TQP LK1100            TEST OP1(S(I-1))12                         4F14797     
       10744  0 02000 0 10611        TRA LK0030            FN-NAME                                    4F14798     
       10745 -3 00006 2 10611 LK1100 TXL LK0030,B,6        CLOSED UNIV. SBRTN                         4F14799     
       10746  0 40200 4 16660        SUB SCRIPL+8,C        CLOSED MULTIV. SBRTN                       4F14800     
       10747 -0 10000 0 10611        TNZ LK0030            S(I) NOT = SYM3 (S (I-1))                  4F14801     
       10750 -0 50000 0 01407        CAL L(1)              S(I) = SYM3 (S(I-1)), S0                   4F14802     
       10751 -0 60200 4 16657        ORS SCRIPL+7,C        SET OP3 (S(I-1))35 = 1                     4F14803     
       10752  0 02000 0 10654        TRA LK0440                                                       4F14804     
       10753 -0 75400 0 00000 LK1200 PXD 0,0               S(I) TYPE AC                               4F14805     
       10754  0 56000 4 16651        LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MQ                   4F14806     
       10755 -0 76300 0 00006        LGL 6                                                            4F14807     
       10756  0 34000 0 01427        CAS SPECOP                                                       4F14808     
       10757  0 02000 0 10771        TRA LK1340                                                       4F14809     
       10760  0 02000 0 11007        TRA LK1470                                                       4F14810     
       10761 -0 50000 1 16650        CAL SCRIPL,A          S(I) TYPE AC, OP1 (S(I-1)) = + OR -        4F14811     
       10762 -0 32000 0 01452        ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14812     
       10763 -3 00000 2 10610 LK1280 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14813     
       10764  0 34000 1 16647        CAS SCRIPL-1,A                                                   4F14814     
       10765  1 00003 1 10770        TXI LK1330,A,3                                                   4F14815     
       10766  0 02000 0 10707        TRA LK0750            S(I) = SOME SYMJ (S(I-1))... GO PERMUTE    4F14816     
       10767  1 00003 1 10770        TXI LK1330,A,3        NOT FOUND... CONTINUE SEARCH               4F14817     
       10770  1 77775 2 10763 LK1330 TXI LK1280,B,-3                                                  4F14818     
       10771  0 16200 0 10777 LK1340 TQP LK1410                                                       4F14819     
       10772 -0 50000 1 16650        CAL SCRIPL,A          S(I) TYPE AC, OP1 (S(I-1)) = **            4F14820     
       10773 -0 32000 0 01452        ANA MASK2                                                        4F14821     
       10774  0 40200 4 16652        SUB SCRIPL+2,C        IS S(I) = SYM1 (S(I-1))                    4F14822     
       10775 -0 10000 0 10611        TNZ LK0030            NO                                         4F14823     
       10776  0 02000 0 10726        TRA LK0900            YES                                        4F14824     
       10777 -0 75400 0 00000 LK1410 PXD 0,0               S(I) TYPE AC, OP1 (S(I-1)) = *             4F14825     
       11000  0 56000 4 16654        LDQ SCRIPL+4,C                                                   4F14826     
       11001 -0 76300 0 00006        LGL 6                 IS OP2 (S(I-1)) = 1                        4F14827     
       11002  0 40200 0 01402        SUB SLASH                                                        4F14828     
       11003  0 10000 0 10673        TZE LK0630            YES                                        4F14829     
       11004 -0 50000 0 01410        CAL L(2)              NO                                         4F14830     
       11005 -0 60200 4 16651        ORS SCRIPL+1,C        SET OP1 (S(I-1)) 34 = 1                    4F14831     
       11006  0 02000 0 10610        TRA LK0000                                                       4F14832     
       11007 -0 77300 0 00033 LK1470 RQL 27                S(I) TYPE AC, OP1 (S(I-1)) = SPOP          4F14833     
       11010 -0 50000 1 16650        CAL SCRIPL,A                                                     4F14834     
       11011 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14835     
       11012  0 16200 0 11015        TQP LK1530                                                       4F14836     
       11013  3 00006 2 10611        TXH LK0030,B,6        OPEN MULTIV.                               4F14837     
       11014  0 02000 0 10657 LK1520 TRA LK0480                                                       4F14838     
       11015 -0 77300 0 00017 LK1530 RQL 15                                                           4F14839     
       11016  0 16200 0 10657        TQP LK0480                                                       4F14840     
       11017  0 02000 0 10611        TRA LK0030            FN-NAME                                    4F14841     
       11020 -0 53400 2 15044 LK1610 LXD BETA,B            IS S(0) A SINGLE ELEMENT                   4F14842     
       11021 -0 75400 0 00000        PXD 0,0                                                          4F14843     
       11022  0 56000 1 16646        LDQ SCRIPL-2,A                                                   4F14844     
       11023  3 00003 2 11042        TXH LK1780,B,3        NO                                         4F14845     
       11024 -0 76300 0 00006        LGL 6                 YES                                        4F14846     
       11025  0 40200 0 01401        SUB 11Z               IS OP (S(0)) = + OR -                      4F14847     
       11026  0 10000 0 11047        TZE LKK000            OP (S(0)) = -                              4F14848     
       11027 -0 50000 0 16652        CAL SCRIPL+2          OP (S(0)) = +                              4F14849     
       11030 -0 32000 0 01527        ANA MASK1             DOES SYM (S(0)) = S(1)                     4F14850     
       11031 -0 10000 0 11047        TNZ LKK000            NO                                         4F14851     
       11032 -0 50000 0 16654        CAL SCRIPL+4          YES - PLACE OP1 (S(1)) IN ACC              4F14852     
       11033 -0 32000 0 01404        ANA 12Z                                                          4F14853     
       11034  0 10000 0 11047        TZE LKK000            OP1 (S(1)) 31 = 0                          4F14854     
       11035 -0 60200 0 16651        ORS SCRIPL+1          SET OP (S(0)) 31 = 1                       4F14855     
       11036  0 76700 0 00002        ALS 2                                                            4F14856     
       11037 -0 60200 0 16654        ORS SCRIPL+4          SET OP1 (S(1)) 29 = 1                      4F14857     
       11040  0 77100 0 00006        ARS 6                                                            4F14858     
       11041  0 02000 0 11046        TRA LK1820                                                       4F14859     
       11042  0 16200 0 11047 LK1780 TQP LKK000            S(0) TYPT AC                               4F14860     
       11043 -0 77300 0 00001        RQL 1                                                            4F14861     
       11044  0 16200 0 11047        TQP LKK000            S(0) TYPE AC                               4F14862     
       11045 -0 50000 0 01404        CAL 12Z               S(0) TYPE MQ, SO                           4F14863     
       11046 -0 60200 0 16651 LK1820 ORS SCRIPL+1                                                     4F14864     
       11047 -0 53400 5 01117 LKK000 LXD 3QBAR,5           -3Q TO XA,XC                               4F14865     
       11050 -0 50000 4 16645        CAL SCRIPL-3,C                                                   4F14866     
       11051  0 73400 2 00000        PAX 0,B                                                          4F14867     
       11052  0 50000 2 15044        CLA BETA,B                                                       4F14868     
       11053  0 62200 0 11054        STD LKK050                                                       4F14869     
       11054  1 00000 4 11055 LKK050 TXI LKK060,C,0        BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT  4F14870     
       11055 -0 75400 0 00000 LKK060 PXD 0,0                                                          4F14871     
       11056  0 56000 4 16651        LDQ SCRIPL+1,C        PLACE OP1 OF LAST SEGMENT 1N MQ            4F14872     
       11057 -0 76300 0 00006        LGL 6                                                            4F14873     
       11060  0 40200 0 01405        SUB STAR                                                         4F14874     
       11061 -0 10000 0 11070        TNZ PC0000                                                       4F14875     
       11062  0 16200 0 11064        TQP LKK130                                                       4F14876     
       11063  0 02000 0 11070        TRA PC0000                                                       4F14877     
       11064  0 56000 4 16654 LKK130 LDQ SCRIPL+4,C        OP1 OF LAST SEGMENT IS *                   4F14878     
       11065 -0 76300 0 00002        LGL 2                                                            4F14879     
       11066  0 76000 0 00001        LBT                                                              4F14880     
       11067 -0 60200 4 16651        ORS SCRIPL+1,C        OP2 IS *, SO SET OP1 (S(L)) 34 = 1         4F14881     
       11070 -0 53400 4 01122 PC0000 LXD ARGCTR,C          IS THIS AN FS                              4F14882     
       11071  3 00000 4 11073        TXH PC0030,C,0                                                   4F14883     
       11072  1 00001 4 11074        TXI PC0040,C,1        NO                                         4F14884     
       11073  0 53400 4 01406 PC0030 LXA L(0),C            YES                                        4F14885     
       11074 -0 50000 1 16645 PC0040 CAL SCRIPL-3,A                                                   4F14886     
       11075  0 73400 2 00000        PAX 0,B                                                          4F14887     
       11076 -3 00000 2 11112        TXL PC0190,B,0        EXIT AT S(0)                               4F14888     
       11077  0 50000 2 15044        CLA BETA,B                                                       4F14889     
       11100  0 62200 0 11101        STD PC0100                                                       4F14890     
       11101  1 00000 1 11102 PC0100 TXI PC0110,A,0                                                   4F14891     
       11102  0 56000 1 16651 PC0110 LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14892     
       11103 -0 76300 0 00036        LGL 30                                                           4F14893     
       11104  0 76000 0 00001        LBT                                                              4F14894     
       11105  1 00454 0 11107 PC0140 TXI PC0160,0,300                                                 4F14895     
       11106  0 16200 0 11074        TQP PC0040            OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0     4F14896     
       11107 -0 75400 4 00000 PC0160 PXD 0,C               OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1     4F14897     
       11110  0 62200 2 15044        STD BETA,B            STORE ERAS. REL. ADD. COUNT IN BETA,       4F14898     
       11111  1 00001 4 11074        TXI PC0040,C,1        AND UPDATE FOR NEXT SEGMENT                4F14899     
       11112 -0 53400 2 11105 PC0190 LXD PC0140,B                                                     4F14900     
       11113  0 50000 2 15520 PC0200 CLA BETA+300,B                                                   4F14901     
       11114  0 60100 2 16650        STO CPBETA+300,B                                                 4F14902     
       11115  2 00001 2 11113        TIX PC0200,B,1                                                   4F14903     
       11116  0 02000 0 11155        TRA STATED            GO FETCH STATE D                           4F14904     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14905     
                                                                                                      4F14906     
                                         DICTIONARY OF OPEN SUBROUTINES FOLLOWS                       4F14907     
       11117 -272122626060    OPSUB  OCT 672122626060      XABS                                       4F14908     
       11120 +212262606060           OCT 212262606060      ABS                                        4F14909     
       11121 -273145636060           OCT 673145636060      XINT                                       4F14910     
       11122 +314563606060           OCT 314563606060      INT                                        4F14911     
       11123 -274446246060           OCT 674446246060      XMOD                                       4F14912     
       11124 -044624606060           OCT 444624606060      MOD                                        4F14913     
       11125 -274421670060           OCT 674421670060      XMAX0                                      4F14914     
       11126 -042167016060           OCT 442167016060      MAX1                                       4F14915     
       11127 -274421670160           OCT 674421670160      XMAX1                                      4F14916     
       11130 -042167006060           OCT 442167006060      MAX0                                       4F14917     
       11131 -274431450060           OCT 674431450060      XMIN0                                      4F14918     
       11132 -043145016060           OCT 443145016060      MIN1                                       4F14919     
       11133 -274431450160           OCT 674431450160      XMIN1                                      4F14920     
       11134 -043145006060           OCT 443145006060      MIN0                                       4F14921     
       11135 +264346216360           OCT 264346216360      FLOAT                                      4F14922     
       11136 -272631676060           OCT 672631676060      XFIX                                       4F14923     
       11137 -223127456060           OCT 623127456060      SIGN                                       4F14924     
       11140 -276231274560           OCT 676231274560      XSIGN                                      4F14925     
       11141 -272431446060           OCT 672431446060      XDIM                                       4F14926     
       11142 +243144606060           OCT 243144606060      DIM                                        4F14927     
                        11143        BSS 10                                                           4F14928     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929     
                        11155 STATED BSS 0                                                            4F149295    
                                                                                                      4F14930     
                        15044        ORG 2596+4096                                                    4F14931     
                        15044 BETA   BSS 300                                                          4F14932     
                                          END OF ARITHMETIC / STATE C.                                4F14933     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934     
                                                                                                      4F14935     
                                         ARITHMETIC / STATE D=                                        4F14936     
                        11155        ORG STATED                                                       4F14939     
       11155 -0 53400 1 01117 MC00OO LXD 3QBAR,A           MODE CHECKING ROUTINE                      4F14940     
       11156 -0 63400 1 11227        SXD MC0420,A                                                     4F14941     
       11157  0 53400 1 01406        LXA L(0),A                                                       4F14942     
       11160 -0 63400 1 11176 MC0030 SXD XASAVE,A                                                     4F14943     
       11161 -0 50000 1 16650        CAL SCRIPL,A                                                     4F14944     
       11162  0 73400 2 00000 MC0050 PAX ,2                S(I) TO XB                                 4F14945     
       11163  0 50000 2 16174        CLA CPBETA,B                                                     4F14946     
       11164  0 73400 2 00454 MC0070 PAX TAU2,B                                                       4F14947     
       11165 -0 63400 2 11226        SXD MC0410,B                                                     4F14946     
       11166 -0 63400 2 11233        SXD MC0460,B                                                     4F14949     
       11167  3 77772 2 11226        TXH MC0410,B,-6       SINGLE ELEMENT - GO ONTO S(I+1)            4F14950     
       11170  0 76000 0 00140        SLF                   TURN OFF ALL SENSE LITES                   4F14951     
       11171 -0 75400 0 00000        PXD 0,0               CLEAR ACC                                  4F14952     
       11172  0 56000 1 16651        LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14953     
       11173 -0 76300 0 00006        LGL 6                                                            4F14954     
       11174  0 34000 0 01427        CAS SPECOP                                                       4F14955     
       11175  0 16200 0 11177        TQP MC0180                                                       4F14956     
       11176  1 00000 0 11226 XASAVE TXI MC0410,0,0                                                   4F14957     
       11177 -0 76300 0 00032 MC0180 LGL 26                OP1 (S(I)) = +, - OR *                     4F14958     
       11200  0 16200 0 11202        TQP MC0210            FIX PT                                     4F14959     
       11201  0 76000 0 00141        SLN 1                 FLO PT                                     4F14960     
       11202 -0 75400 0 00000 MC0210 PXD 0,0                                                          4F14961     
       11203  0 56000 1 16652        LDQ SCRIPL+2,A        PLACE SYMJ (S(I)) IN MQ - J = 1....        4F14962     
       11204 -0 76300 0 00001        LGL 1                                                            4F14963     
       11205  0 76000 0 00001        LBT                                                              4F14964     
       11206  0 16200 0 11231        TQP MC0440                                                       4F14965     
       11207 -0 76300 0 00005        LGL 5                 SYMJ (S(I)) IS A VARIABLE                  4F14966     
       11210  0 34000 0 01423        CAS L(H)                                                         4F14967     
       11211  0 34000 0 01425        CAS L(O)                                                         4F14968     
       11212  1 00000 0 11217 XBSAVE TXI MC0340,0,0        FLO PT                                     4F14969     
       11213  0 02000 0 11217        TRA MC0340            FLO PT                                     4F14970     
       11214 -0 76000 0 00141 MC0310 SLT 1                 SYMJ (S(I)) IS A FIX PT VARIABLE           4F14971     
       11215  1 00003 2 11223        TXI MC0380,B,3        OK                                         4F14972     
       11216  0 07400 4 03400        TSX DIAG,4            ERROR.. FLO PT LITE ON                     4F14973     
       11217 -0 76000 0 00141 MC0340 SLT 1                 SYMJ(S(I)) IS A FLO PT VARIABLE            4F14974     
       11220  0 07400 4 03400        TSX DIAG,4            ERROR.. FLO PT LITE OFF                    4F14975     
       11221  0 76000 0 00141        SLN 1                 RESTORE FLO PT LITE                        4F14976     
       11222  1 00003 2 11223        TXI MC0380,B,3                                                   4F14977     
       11223 -3 00000 2 11225 MC0380 TXL MC0400,B,0        FINISHED WITH S(I)                         4F14978     
       11224  1 77775 1 11202        TXI MC0210,A,-3       CONTINUE SCANNING S(I). J TO J+1           4F14979     
       11225 -0 53400 1 11176 MC0400 LXD XASAVE,A          GO T0 S(I+1)                               4F14980     
       11226  1 00000 1 11227 MC0410 TXI MC0420,A,0                                                   4F14981     
       11227  3 00000 1 11160 MC0420 TXH MC0030,A,0                                                   4F14982     
       11230  0 02000 0 11254        TRA CP0000            EXIT TO COMPILER                           4F14983     
       11231 -0 63400 2 11212 MC0440 SXD XBSAVE,B          SYMJ (S(ITT = SAME S(K)                    4F14984     
       11232 -0 53400 4 11176        LXD XASAVE,C                                                     4F14985     
       11233  1 00000 4 11234 MC0460 TXI MC0470,C,0        MOVE XC TO 1ST ELEMENT OF S(I+1)           4F14986     
       11234 -0 50000 4 16650 MC0470 CAL SCRIPL,C                                                     4F14987     
       11235 -0 32000 0 01452        ANA MASK2             EXTRACT S(K) IN ACC                        4F14988     
       11236  0 34000 1 16652        CAS SCRIPL+2,A        AND COMPARE WITH SYMJ (S(I))               4F14989     
       11237  0 02000 0 11241        TRA MC0520                                                       4F14990     
       11240  0 02000 0 11246        TRA MC0570                                                       4F14991     
       11241  0 73400 2 01226 MC0520 PAX SIGMA1,B          S(K) TO XB                                 4F14992     
       11242  0 50000 2 16174        CLA CPBETA,B                                                     4F14993     
       11243  0 73400 2 00000 MC0540 PAX TAU1,B                                                       4F14994     
       11244 -0 63400 2 11245        SXD MC0560,B                                                     4F14995     
       11245  1 00000 4 11234 MC0560 TXI MC0470,C,0                                                   4F14996     
       11246 -0 53400 2 11212 MC0570 LXD XBSAVE,B          SYMJ (S(I)) = S(K) FOR SOME K              4F14997     
       11247 -0 50000 4 16651        CAL SCRIPL+1,C        PLACE OP1 (S(K)) IN ACC                    4F14998     
       11250  0 77100 0 00003        ARS 3                                                            4F14999     
       11251  0 76000 0 00001        LBT                                                              4F15000     
       11252  0 02000 0 11214        TRA MC0310            S(K) IS FIX PT                             4F15001     
       11253  0 02000 0 11217        TRA MC0340            S(K) IS FL0 PT                             4F15002     
                                                                                                      4F15003     
       11254  0 76000 0 00140 CP0000 SLF                   TURN OFF ALL SENSE LITES                   4F15004     
       11255  0 60000 0 16160        STZ FNSW                                                         4F15005     
       11256 -0 53400 4 01122        LXD ARGCTR,C          IS THIS AN FS STATEMENT                    4F15006     
       11257 -3 00000 4 11265        TXL CP0090,C,0        NO                                         4F15007     
       11260  0 07400 4 01731        TSX CIT00,C           YES - COMPILE FOUR 36 - BIT                4F15008     
       11261  0 00000 0 01531        HTR ALL1              STRINGS IN 1 AS A PRELUDE TO               4F15009     
       11262  0 00000 0 01531        HTR ALL1              FS STATEMENT COMPILATION                   4F15010     
       11263  0 00000 0 01531        HTR ALL1                                                         4F15011     
       11264  0 00000 0 01531        HTR ALL1                                                         4F15012     
       11265 -0 50000 0 00030 CP0090 CAL EIFNO                                                        4F15013     
       11266 -0 32000 0 01527        ANA MASK1                                                        4F15014     
       11267  0 60200 0 16164        SLW CW                STO INT. FORM. NO. IN DEC. FIELD 0F CW.    4F15015     
       11270 -0 53400 1 01117        LXD 3QBAR,A           -3Q TO XA                                  4F15016     
       11271  0 50000 1 16645 CP0130 CLA SCRIPL-3,A        EXTRACT CURRENT S(II                       4F15017     
       11272  0 73400 2 00000 CP0140 PAX ,2                                                           4F15018     
       11273  0 50000 2 16174        CLA CPBETA,B                                                     4F15019     
       11274  0 62200 0 01363        STD PHI(I)            STO ERAS. REL. ADD. IN PHI (I)             4F15020     
       11275 -0 32000 0 01452        ANA MASK2                                                        4F15021     
       11276  0 73400 2 01356 CP0180 PAX TAU3,B                                                       4F15022     
       11277 -0 63400 2 11324        SXD CP0400,B                                                     4F15023     
       11300  0 76000 0 00006        COM                                                              4F15024     
       11301  0 40000 0 01407        ADD L(1)                                                         4F15025     
       11302  0 76700 0 00022        ALS 18                                                           4F15026     
       11303  0 62200 0 11304        STD CP0240                                                       4F15027     
       11304  1 00000 1 11305 CP0240 TXI CP0250,A,0        MOVE XA TO 1ST ELEMENT OF CURRENT S(I)     4F15028     
       11305 -0 63400 1 01117 CP0250 SXD 3QBAR,A                                                      4F15029     
       11306  0 56000 1 16651        LDQ SCRIPL+1,A        EXAMINE OP1 (S(I)I 29,30,31,32             4F15030     
       11307 -0 76300 0 00036        LGL 30                                                           4F15031     
       11310  0 76000 0 00001        LBT                                                              4F15032     
       11311  0 02000 0 11313        TRA CP0310            OP1 (S(I)) 29 = 0                          4F15033     
       11312  0 16200 0 11321        TQP CP0370            OP1 (S(I)) 30 = 0                          4F15034     
       11313  0 76000 0 00141 CP0310 SLN 1                 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035     
       11314 -0 77300 0 00001        RQL 1                 SET STORE LITE                             4F15036     
       11315  0 16200 0 11317        TQP CP0350            OP1 (S(I)) 31 = 0, SO SET STO LITE         4F15037     
       11316  0 76000 0 00142        SLN 2                 OP1 (S(I)) 31 = 1, SO SET STQ LITE         4F15038     
       11317 -0 77300 0 00001 CP0350 RQL 1                                                            4F15039     
       11320  0 02000 0 11322        TRA CP0380                                                       4F15040     
       11321 -0 77300 0 00002 CP0370 RQL 2                                                            4F15041     
       11322  0 16200 0 11326 CP0380 TQP CP0420            TEST OP1 (S(I)) 32                         4F15042     
       11323 -0 76000 0 00144        SLT 4                 OP1 (S(I)) 32 = 1, SO SET FLPTSW           4F15043     
       11324  3 00000 0 00000 CP0400 TXH 0,0,0                                                        4F15044     
       11325  0 02000 0 11327        TRA CP0430                                                       4F15045     
       11326  0 76000 0 00144 CP0420 SLN 4                 OP1 (S(II) 32 = 0, SO SET FXPTSW           4F15046     
       11327 -0 75400 0 00000 CP0430 PXD 0,0                                                          4F15047     
       11330  0 56000 1 16651        LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F15048     
       11331 -0 76300 0 00006        LGL 6                                                            4F15049     
       11332  0 34000 0 01427        CAS SPECOP                                                       4F15050     
       11333  1 00000 0 11407        TXI CP0960,0,0                                                   4F15051     
       11334  1 77775 1 11543        TXI CP2040,A,-3                                                  4F15052     
       11335  0 40200 0 01401        SUB 11Z                                                          4F15053     
       11336  0 10000 0 11365        TZE CP0760                                                       4F15054     
       11337 -0 76300 0 00035        LGL 29                OP1 (S(I)) = +                             4F15055     
       11340  0 16200 0 11425        TQP CP1130            OP1 (S(I)) 35 = 0                          4F15056     
       11341 -0 53400 2 11324 CP0540 LXD CP0400,B          OP1 (S(I)) 35 = 1                          4F15057     
       11342  1 00003 2 11343        TXI CP0560,B,3                                                   4F15058     
       11343 -3 00000 2 12337 CP0560 TXL ES0000,B,0        GO TO END-OF-SEGMENT SBRTN                 4F15059     
       11344 -0 63400 2 11324        SXD CP0400,B                                                     4F15060     
       11345  1 77775 1 11346        TXI CP0590,A,-3                                                  4F15061     
       11346 -0 75400 0 00000 CP0590 PXD 0,0                                                          4F15062     
       11347  0 56000 1 16651        LDQ SCRIPL+1,A        PLACE OPJ (S(I)) IN MQ                     4F15063     
       11350 -0 76300 0 00006        LGL 6                                                            4F15064     
       11351  0 34000 0 01405        CAS STAR                                                         4F15065     
       11352  0 02000 0 11433        TRA CP1200            OPJ (S(I)) = /                             4F15066     
       11353  0 02000 0 11506        TRA CP1720            OPJ (S(I)) = *                             4F15067     
       11354  0 40200 0 01401        SUB 11Z                                                          4F15068     
       11355  0 10000 0 11400        TZE CP0880            OPJ (S(I)) = -                             4F15069     
       11356 -0 50000 0 01550        CAL L(FAD)            OPJ (S(I)) = +                             4F15070     
       11357 -0 76000 0 00144        SLT 4                                                            4F15071     
       11360  0 02000 0 11363        TRA CP0740                                                       4F15072     
       11361  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15073     
       11362 -0 50000 0 01532        CAL L(ADD)                                                       4F15074     
       11363  0 60200 0 16165 CP0740 SLW CW+1                                                         4F15075     
       11364  0 02000 0 11503        TRA CP1690                                                       4F15076     
       11365 -0 76300 0 00035 CP0760 LGL 29                OP1 (S(I)) = -                             4F15077     
       11366  0 16200 0 11375        TQP CP0850                                                       4F15078     
       11367 -0 50000 0 01540        CAL L(CHS)            C81 (SI))) 35 = 1, SO                      4F15079     
       11370  0 60200 0 16165        SLW CW+1              COMPILE CHS FOR 1ST ELEMENT                4F15080     
       11371  0 60000 0 16166        STZ CW+2                                                         4F15081     
       11372  0 60000 0 16167        STZ CW+3                                                         4F15082     
       11373  0 07400 2 12621        TSX COMP,B                                                       4F15083     
       11374  0 02000 0 11341        TRA CP0540                                                       4F15084     
       11375 -0 50000 0 01543 CP0850 CAL L(CLS)            OP1 (S(I)) 35 = 0, S0                      4F15085     
       11376  0 60200 0 16165        SLW CW+1              COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT    4F15086     
       11377  0 02000 0 11427        TRA CP1150                                                       4F15087     
       11400 -0 50000 0 01553 CP0880 CAL L(FSB)            OPJ (SII)I = -                             4F15088     
       11401 -0 76000 0 00144        SLT 4                                                            4F15089     
       11402  0 02000 0 11405        TRA CP0940                                                       4F15090     
       11403  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15091     
       11404 -0 50000 0 01574        CAL L(SUB)                                                       4F15092     
       11405  0 60200 0 16165 CP0940 SLW CW+1                                                         4F15093     
       11406  0 02000 0 11503        TRA CP1690                                                       4F15094     
       11407  0 16200 0 11411 CP0960 TQP CP0980                                                       4F15095     
       11410  0 02000 0 12100        TRA CP4140                                                       4F15096     
       11411 -0 76300 0 00035 CP0980 LGL 29                OP1 (S(I)) = *                             4F15097     
       11412  0 76000 0 00143        SLN 3                 TURN LITE 3 ON                             4F15098     
       11413  0 76000 0 00001        LBT                   TEST OP1 (S(I)) 34                         4F15099     
       11414  0 02000 0 11417        TRA CP1050            OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON      4F15100     
       11415 -0 76000 0 00143        SLT 3                 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF      4F15101     
       11416  3 00000 0 00000        TXH 0,0,0                                                        4F15102     
       11417  0 16200 0 11421 CP1050 TQP CP1070                                                       4F15103     
       11420  0 02000 0 11341        TRA CP0540            OP1 (S(I)) 35 = 1, SO GO MODIFY J          4F15104     
       11421 -0 50000 0 01556 CP1070 CAL L(LDQ)            OP1 (S(I)) 35 = 0                          4F15105     
       11422 -0 76000 0 00143        SLT 3                                                            4F15106     
       11423  0 02000 0 11426        TRA CP1140            EL1 (S(I)) TO MQ                           4F15107     
       11424  0 76000 0 00143        SLN 3                 EL1 (S(I)) TO ACC                          4F15108     
       11425 -0 50000 0 01541 CP1130 CAL L(CLA)                                                       4F15109     
       11426  0 60200 0 16165 CP1140 SLW CW+1                                                         4F15110     
       11427  0 07400 4 12627 CP1150 TSX AC0000,C          ADDRESS COMPILE SYM1 (S(I))                4F15111     
       11430  0 07400 2 12621        TSX COMP,B                                                       4F15112     
       11431  0 60000 0 16164        STZ CW                RESET CW                                   4F15113     
       11432  0 02000 0 11341        TRA CP0540            GO MODIFY J                                4F15114     
       11433 -0 76000 0 00143 CP1200 SLT 3                 OPJ (S(I)) = /                             4F15115     
       11434  0 02000 0 11446        TRA CP1330                                                       4F15116     
       11435 -0 76000 0 00144        SLT 4                 PREDECESSOR IN ACC                         4F15117     
       11436  0 02000 0 11501        TRA CP1670            FLO PT.                                    4F15118     
       11437  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15119     
       11440  0 07400 4 01731        TSX CIT00,C           COMPILE LRS 35                             4F15120     
       11441  0 00000 0 01406        HTR L(0)                                                         4F15121     
       11442  0 00000 0 01560        HTR L(LRS)                                                       4F15122     
       11443  0 00000 0 01406        HTR L(0)                                                         4F15123     
       11444  0 00000 0 01472        HTR DEC35                                                        4F15124     
       11445  0 02000 0 11451        TRA CP1450                                                       4F15125     
       11446 -0 76000 0 00144 CP1330 SLT 4                 PREDECESSOR IN MQ                          4F15126     
       11447  0 02000 0 11470        TRA CP1570            AND SEGMENT IS                             4F15127     
       11450  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15128     
       11451  0 50000 0 01547 CP1450 CLA L(DVP)                                                       4F15129     
       11452  0 60100 0 16165        STO CW+1                                                         4F15130     
       11453  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15131     
       11454  0 07400 2 12621        TSX COMP,B            COMPILE DVP SYMJ (S(I))                    4F15132     
       11455  0 07400 4 01731        TSX CIT00,C           COMPILE CLM                                4F15133     
       11456  0 00000 0 01406        HTR L(0)                                                         4F15134     
       11457  0 00000 0 01542        HTR L(CLM)                                                       4F15135     
       11460  0 00000 0 01406        HTR L(0)                                                         4F15136     
       11461  0 00000 0 01406        HTR L(0)                                                         4F15137     
       11462  0 07400 4 01731        TSX CIT00,C           COMPILE LLS 18                             4F15138     
       11463  0 00000 0 01406        HTR L(0)                                                         4F15139     
       11464  0 00000 0 01557        HTR L(LLS)                                                       4F15140     
       11465  0 00000 0 01406        HTR L(0)                                                         4F15141     
       11466  0 00000 0 01466        HTR DEC18                                                        4F15142     
       11467  0 02000 0 11341        TRA CP0540            GO MODIFY J                                4F15143     
       11470  0 50000 0 01573 CP1570 CLA L(STQ)            PREDECESSOR IN MQ                          4F15144     
       11471  0 60100 0 16165        STO CW+1              AND SEGMENT IS FLO PT                      4F15145     
       11472  0 50000 0 01505        CLA X(                                                           4F15146     
       11473  0 60100 0 16166        STO CW+2                                                         4F15147     
       11474  0 60000 0 16167        STZ CW+3                                                         4F15148     
       11475  0 07400 2 12621        TSX COMP,B            COMPILE STQ 700000                         4F15149     
       11476  0 50000 0 01541        CLA L(CLA)                                                       4F15150     
       11477  0 60100 0 16165        STO CW+1                                                         4F15151     
       11500  0 07400 2 12621        TSX COMP,B            COMPILE CLA 700000                         4F15152     
       11501  0 50000 0 01551 CP1670 CLA LIFDP)                                                       4F15153     
       11502  0 60100 0 16165        STO CW+1              COMPILE FDP SYMJ (S(I))                    4F15154     
       11503  0 07400 4 12627 CP1690 TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15155     
       11504  0 07400 2 12621        TSX COMP,B                                                       4F15156     
       11505  0 02000 0 11341        TRA CP0540            GO MODIFY J                                4F15157     
       11506 -0 76000 0 00143 CP1720 SLT 3                 OPJ(S(I))=*                                4F15158     
       11507  0 02000 0 11521        TRA CP1840                                                       4F15159     
       11510  0 50000 0 01572        CLA L(STO)            PREDECESSOR IN ACC                         4F15160     
       11511  0 60100 0 16165        STO CW+1                                                         4F15161     
       11512  0 50000 0 01505        CLA X(                                                           4F15162     
       11513  0 60100 0 16166        STO CW+2                                                         4F15163     
       11514  0 60000 0 16167        STZ CW+3                                                         4F15164     
       11515  0 07400 2 12621        TSX COMP,B            COMPILE STO 700000                         4F15165     
       11516  0 50000 0 01556        CLA L(LDQ)                                                       4F15166     
       11517  0 60100 0 16165        STO CW+1                                                         4F15167     
       11520  0 07400 2 12621        TSX COMP,B            COMPILE LDQ 700000                         4F15168     
       11521  0 76000 0 00143 CP1840 SLN 3                 TURN LATE 3 ON                             4F15169     
       11522  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I))                 4F15170     
       11523 -0 76000 0 00144        SLT 4                                                            4F15171     
       11524  0 02000 0 11537        TRA CP2000                                                       4F15172     
       11525  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15173     
       11526  0 50000 0 01562        CLA L(MPY)                                                       4F15174     
       11527  0 60100 0 16165        STO CW+1                                                         4F15175     
       11530  0 07400 2 12621        TSX COMP,B            COMPILE MPY SYMJ(S(I))                     4F15176     
       11531  0 07400 4 01731        TSX CIT00,C           COMPILE ALS 17                             4F15177     
       11532  0 00000 0 01406        HTR L(0)                                                         4F15178     
       11533  0 00000 0 01533        HTR L(ALS)                                                       4F15179     
       11534  0 00000 0 01406        HTR L(0)                                                         4F15180     
       11535  0 00000 0 01465        HTR DEC17                                                        4F15181     
       11536  0 02000 0 11341        TRA CP0540            GO MODIFY J                                4F15182     
       11537  0 50000 0 01552 CP2000 CLA L(FMP)            FLO PT.                                    4F15183     
       11540  0 60100 0 16165        STO CW+1                                                         4F15184     
       11541  0 07400 2 12621        TSX COMP,B            COMPILE FMP SYMJ(S(I))                     4F15185     
       11542  0 02000 0 11341        TRA CP0540            GO MODIFY J.                               4F15186     
       11543 -0 76300 0 00007 CP2040 LGL 7                 OP1(S(I))=SPOP                             4F15187     
       11544  0 76000 0 00001        LBT                   TEST OP1(S(I))12                           4F15188     
       11545  0 16200 0 11665        TQP CP2650            LIB OR OPEN FUNCTION                       4F15189     
       11546  0 16200 0 12210        TQP CP5000            FN-FUNCTION                                4F15190     
       11547 -0 75400 0 00000        PXD 0,0               FS-FUNCTION                                4F15191     
       11550  0 76300 0 00017        LLS 15                PUT TYPE NO IN ADD(ACC)                    4F15192     
       11551 -0 50100 0 01503        ORA P(                FORM 4...TYPE NO.                          4F15193     
       11552  0 60200 0 16162        SLW ARGORG            AND STO IN ARGORG                          4F15194     
       11553 -0 32000 0 01452        ANA MASK2                                                        4F15195     
       11554 -0 50100 0 01505        ORA X(                FORM 7...TYPE NO.                          4F15196     
       11555  0 60200 0 16163        SLW XRSAVE            AND STO IN XRSAVE                          4F15197     
       11556  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F15198     
       11557  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15199     
       11560  0 02000 0 11567        TRA CP2150            1ST ARG STORED                             4F15200     
       11561  0 07400 4 01731 CP2100 TSX CIT00,C           1ST ARG IN ACC                             4F15201     
       11562  0 00000 0 01406        HTR L(0)              COMPILE STO 4...TYPE NO. + 0               4F15202     
       11563  0 00000 0 01572        HTR L(STO)                                                       4F15203     
       11564  0 00000 0 16162        HTR ARGORG                                                       4F15204     
       11565  0 00000 0 01406        HTR L(0)                                                         4F15205     
       11566  1 77775 1 11574        TXI CP2200,A,-3       GO ON TO OP3(S(I))                         4F15206     
       11567 -0 50000 0 01541 CP2150 CAL L(CLA)                                                       4F15207     
       11570  0 60200 0 16165        SLW CW+1                                                         4F15208     
       11571  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15209     
       11572  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15210     
       11573  0 02000 0 11561        TRA CP2100                                                       4F15211     
       11574  0 60000 0 16164 CP2200 STZ CW                RESET CW                                   4F15212     
       11575 -0 53400 2 11324        LXD CP0400,B                                                     4F15213     
       11576  1 00003 2 11577        TXI CP2230,B,3                                                   4F15214     
       11577  3 77772 2 11642 CP2230 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15215     
       11600 -0 63400 2 11324        SXD CP0400,B                                                     4F15216     
       11601  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F15217     
       11602  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15218     
       11603  0 02000 0 11612        TRA CP2300            2ND ARG STORED                             4F15219     
       11604  0 07400 4 01731 CP2250 TSX CIT00,C           2ND ARG IN MQ                              4F15220     
       11605  0 00000 0 01406        HTR L(0)              COMPILE STQ 4...TYPE NO. + 1               4F15221     
       11606  0 00000 0 01573        HTR L(STQ)                                                       4F15222     
       11607  0 00000 0 16162        HTR ARGORG                                                       4F15223     
       11610  0 00000 0 01454        HTR 2E18                                                         4F15224     
       11611  1 77775 1 11617        TXI CP2350,A,-3       GO ON TO SYM4(S(I))                        4F15225     
       11612 -0 50000 0 01556 CP2300 CAL L(LDQ)                                                       4F15226     
       11613  0 60200 0 16165        SLW CW+1                                                         4F15227     
       11614  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15228     
       11615  0 07400 2 12621        TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15229     
       11616  0 02000 0 11604        TRA CP2250                                                       4F15230     
       11617  0 50000 0 01521 CP2350 CLA DECMI2            INITIALIZE DEC(P(CNTR) TO 2                4F15231     
       11620  0 60200 0 16161        SLW P(CNTR                                                       4F15232     
       11621 -0 53400 2 11324 CP2370 LXD CP0400,B                                                     4F15233     
       11622  1 00003 2 11623        TXI CP2390,B,3                                                   4F15234     
       11623  3 77772 2 11642 CP2390 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15235     
       11624 -0 63400 2 11324        SXD CP0400,B                                                     4F15236     
       11625 -0 50000 0 01541        CAL L(CLA)                                                       4F15237     
       11626  0 60200 0 16165        SLW CW+1                                                         4F15238     
       11627  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)), J=4,...        4F15239     
       11630  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYMJ(S(I)), J=4,...            4F15240     
       11631  0 07400 4 01731        TSX CIT00,C           COMPILE STO 4...TYPE NO. + J-2, J=4,...    4F15241     
       11632  0 00000 0 01406        HTR L(0)                                                         4F15242     
       11633  0 00000 0 01572        HTR L(STO)                                                       4F15243     
       11634  0 00000 0 16162        HTR ARGORG                                                       4F15244     
       11635  0 00000 0 16161        HTR P(CNTR                                                       4F15245     
       11636  0 50000 0 16161        CLA P(CNTR            UPDATE P(CNTR                              4F15246     
       11637  0 40000 0 01454        ADD 2E18                                                         4F15247     
       11640  0 60100 0 16161        STO P(CNTR                                                       4F15248     
       11641  1 77775 1 11621        TXI CP2370,A,-3                                                  4F15249     
       11642 -0 53400 1 01117 CP2500 LXD 3QBAR,A           FINISHED WITH S(I)                         4F15250     
       11643 -0 50000 0 01575        CAL L(SXD)                                                       4F15251     
       11644  0 60200 0 16165        SLW CW+1                                                         4F15252     
       11645 -0 50000 0 16163        CAL XRSAVE                                                       4F15253     
       11646  0 60200 0 16166        SLW CW+2                                                         4F15254     
       11647 -0 50000 0 01412        CAL L(4)                                                         4F15255     
       11650  0 60200 0 16167        SLW CW+3                                                         4F15256     
       11651  0 07400 2 12621        TSX COMP,B            COMPILE SXD 7...TYPE NO. , 4               4F15257     
       11652 -0 50000 0 01602        CAL L(TSX)                                                       4F15258     
       11653  0 60200 0 16165        SLW CW+1                                                         4F15259     
       11654 -0 50000 1 16652        CAL SCRIPL+2,A                                                   4F15260     
       11655  0 60200 0 16166        SLW CW+2                                                         4F15261     
       11656  0 07400 2 12621        TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15262     
       11657 -0 50000 0 01561        CAL L(LXD) ,                                                     4F15263     
       11660  0 60200 0 16165        SLW CW+1                                                         4F15264     
       11661 -0 50000 0 16163        CAL XRSAVE                                                       4F15265     
       11662  0 60200 0 16166        SLW CW+2                                                         4F15266     
       11663  0 02000 0 12756        TRA CP6000                                                       4F15267     
       11664  1 00000 0 12337 CP5830 TXI ES0000,0,0                                                   4F15268     
                                                                                                      4F15269     
       11665 -0 76300 0 00024 CP2650 LGL 20                TEST OPI(S(I))33                           4F15270     
       11666  0 16200 0 11734        TQP CP3060            0... LIB. SBRTN                            4F15271     
       11667  0 50200 0 16164        CLS CW                1... OPEN SBRTN                            4F15272     
       11670  0 60100 0 16164        STO CW                CW TO -CW                                  4F15273     
       11671  0 50000 1 16647        CLA SCRIPL-1,A                                                   4F15274     
       11672  0 60100 0 16166        STO CW+2                                                         4F15275     
       11673  0 07400 2 12621        TSX COMP,B            COMPILE FUNCTION NAME                      4F15276     
       11674  0 60000 0 16164        STZ CW                RESET CW                                   4F15277     
       11675 -0 53400 2 11324        LXD CP0400,B                                                     4F15278     
       11676 -3 77767 2 11720        TXL CP2930,B,-9                                                  4F15279     
       11677 -0 50000 0 01531        CAL ALL1              OPEN UNIVARIATE FUNCTION                   4F15280     
       11700  0 60200 0 16164        SLW CW                                                           4F15281     
       11701  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F15282     
       11702  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15283     
       11703  0 02000 0 11716        TRA CP2900            0... ARG STORED                            4F15284     
       11704  0 77100 0 00001        ARS 1                 1... ARG NOT STORED                        4F15285     
       11705  0 56000 0 01512        LDQ ADPLUS                                                       4F15286     
       11706  0 76000 0 00001        LBT                                                              4F15287     
       11707  0 02000 0 11711        TRA CP2860                                                       4F15288     
       11710  0 56000 0 01524        LDQ ADSTAR                                                       4F15289     
       11711 -0 60000 0 16166 CP2860 STQ CW+2                                                         4F15290     
       11712  0 60000 0 16167        STZ CW+3                                                         4F15291     
       11713  0 07400 2 12621 CP2880 TSX COMP,B            COMPILE ACC OR MQ INDICATOR                4F15292     
       11714  0 60000 0 16164        STZ CW                RESET CW                                   4F15293     
       11715  0 02000 0 12337        TRA ES0000                                                       4F15294     
       11716  0 07400 4 12627 CP2900 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15295     
       11717  0 02000 0 11713        TRA CP2880            GO COMPILE SYM2(S(I))                      4F15296     
       11720  0 07400 4 12627 CP2930 TSX AC0000,C          OPEN MULTIVARIATE FUNCTION                 4F15297     
       11721 -0 53400 2 11324        LXD CP0400,B                                                     4F15298     
       11722  1 00003 2 11723        TXI CP2960,B,3                                                   4F15299     
       11723  3 77772 2 11727 CP2960 TXH CP3000,B,-6                                                  4F15300     
       11724 -0 63400 2 11324        SXD CP0400,B                                                     4F15301     
       11725  0 07400 2 12621        TSX COMP,B            COMPILE SYMJ(S(I))                         4F15302     
       11726  1 77775 1 11720        TXI CP2930,A,-3                                                  4F15303     
       11727 -0 50000 0 01531 CP3000 CAL ALL1                                                         4F15304     
       11730  0 60200 0 16164        SLW CW                                                           4F15305     
       11731  0 07400 2 12621        TSX COMP,B            COMPILE LAST ARGUMENT NAME                 4F15306     
       11732  0 60000 0 16164        STZ CW                RESET CW                                   4F15307     
       11733  0 02000 0 12337        TRA ES0000            GO TO END-OF-SEGMENT SBRTN                 4F15308     
       11734 -3 77767 2 11763 CP3060 TXL CP3350,B,-9                                                  4F15309     
       11735  0 50000 1 16651        CLA SCRIPL+1,A        CLOSED UNIVARIATE FUNCTION                 4F15310     
       11736  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15311     
       11737  0 02000 0 11755        TRA CP3280            0... ARG STORED                            4F15312     
       11740  0 50000 0 01575 CP3100 CLA L(SXD)            1... ARG IN ACC                            4F15313     
       11741  0 60100 0 16165        STO CW+1                                                         4F15314     
       11742  0 50000 0 01505        CLA X(                                                           4F15315     
       11743  0 60100 0 16166        STO CW+2                                                         4F15316     
       11744  0 50000 0 01412        CLA L(4)                                                         4F15317     
       11745  0 60100 0 16167        STO CW+3                                                         4F15318     
       11746  0 07400 2 12621        TSX COMP,B            COMPILE SXD7...0,4                         4F15319     
       11747  0 50000 0 01602        CLA L(TSX)                                                       4F15320     
       11750  0 60100 0 16165        STO CW+1                                                         4F15321     
       11751  0 50000 1 16647        CLA SCRIPL-1,A                                                   4F15322     
       11752  0 60100 0 16166        STO CW+2                                                         4F15323     
       11753  0 07400 2 12621        TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15324     
       11754  0 02000 0 12332        TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15325     
       11755  0 50000 0 01541 CP3280 CLA L(CLA)                                                       4F15331     
       11756  0 60100 0 16165        STO CW+1                                                         4F15332     
       11757  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15333     
       11760  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15334     
       11761  0 60000 0 16164        STZ CW                RESET CW                                   4F15335     
       11762  0 02000 0 11740        TRA CP3100            GO COMPILE SXD,TSX,LXD SEQUENCE            4F15336     
       11763 -3 77764 2 12007 CP3350 TXL CP3560,B,-12                                                 4F15337     
       11764  0 50000 1 16651        CLA SCRIPL+1,A        CLOSED BIVARIATE FUNCTION                  4F15338     
       11765  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15339     
       11766  0 02000 0 11775        TRA CP3450            0... ARG1 STORED                           4F15340     
       11767  0 50000 0 01556 CP3390 CLA L(LDQ)            1... ARG1 IN ACC                           4F15341     
       11770  0 60100 0 16165        STO CW+1                                                         4F15342     
       11771  1 77775 1 11772        TXI CP3420,A,-3                                                  4F15343     
       11772  0 07400 4 12627 CP3420 TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15344     
       11773  0 07400 2 12621        TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15345     
       11774  1 00003 1 11740        TXI CP3100,A,3        GO COMPILE SXD,TSX,LXD SEQUENCE            4F15346     
       11775  0 50000 1 16654 CP3450 CLA SCRIPL+4,A                                                   4F15347     
       11776  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15348     
       11777  0 02000 0 12001        TRA CP3490            0... ARG2 STORED                           4F15349     
       12000  0 02000 0 11755        TRA CP3280            1... ARG2 IN MQ                            4F15350     
       12001  0 50000 0 01541 CP3490 CLA L(CLA)                                                       4F15351     
       12002  0 60100 0 16165        STO CW+1                                                         4F15352     
       12003  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYM2(SI)))                 4F15353     
       12004  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15354     
       12005  0 60000 0 16164        STZ CW                REST CW                                    4F15355     
       12006  0 02000 0 11767        TRA CP3390            GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE        4F15356     
       12007  0 50000 1 16651 CP3560 CLA SCRIPL+1,A        CLOSED MULTIVARIATE FUNCTION               4F15357     
       12010  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15358     
       12011  1 77772 1 12041        TXI CP3820,A,-6       0... ARG1 STORED                           4F15359     
       12012  1 77772 1 12013        TXI CP3600,A,-6       1... ARG1 IN ACC                           4F15360     
       12013  0 50000 0 01521 CP3600 CLA DECMI2                                                       4F15361     
       12014  0 60100 0 16161        STO P(CNTR            INITIALIZE P(CNTR TO -2                    4F15362     
       12015  0 50000 0 01556 CP3620 CLA L(LDQ)                                                       4F15363     
       12016  0 60100 0 16165        STO CW+1                                                         4F15364     
       12017  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15365     
       12020  0 07400 2 12621        TSX COMP,B            COMPILE LDQ SYMJ(S(I))                     4F15366     
       12021  0 50000 0 01573        CLA L(STQ)                                                       4F15367     
       12022  0 60100 0 16165        STO CW+1                                                         4F15368     
       12023  0 50000 0 01503        CLA P(                                                           4F15369     
       12024  0 60100 0 16166        STO CW+2                                                         4F15370     
       12025  0 50000 0 16161        CLA P(CNTR                                                       4F15371     
       12026  0 60100 0 16167        STO CW+3                                                         4F15372     
       12027  0 40200 0 01454        SUB 2E18                                                         4F15373     
       12030  0 60100 0 16161        STO P(CNTR                                                       4F15374     
       12031  0 07400 2 12621        TSX COMP,B            COMPILE STQ 4...0-(J-2)                    4F15375     
       12032 -0 53400 2 11324        LXD CP0400,B                                                     4F15376     
       12033  1 00003 2 12034        TXI CP3770,B,3                                                   4F15377     
       12034 -3 77764 2 12037 CP3770 TXL CP3800,B,-12                                                 4F15378     
       12035 -0 53400 1 01117        LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15379     
       12036  1 77775 1 11767        TXI CP3390,A,-3                                                  4F15380     
       12037 -0 63400 2 11324 CP3800 SXD CP0400,B                                                     4F15381     
       12040  1 77775 1 12015        TXI CP3620,A,-3       GO PICK UP NEXT ARG.                       4F15382     
       12041  0 50000 1 16646 CP3820 CLA SCRIPL-2,A                                                   4F15383     
       12042  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15384     
       12043  1 00006 1 12072        TXI CP4070,A,6        0... ARG2 STORED                           4F15385     
       12044  0 50000 0 01521        CLA DECMI2            1... ARG2 IN MQ                            4F15386     
       12045  0 60100 0 16161        STO P(CNTR                                                       4F15387     
       12046  0 50000 0 01541 CP3870 CLA L(CLA)                                                       4F15388     
       12047  0 60100 0 16165        STO CW+1                                                         4F15389     
       12050  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15390     
       12051  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYMJ(S(I))                     4F15391     
       12052  0 50000 0 01572        CLA L(STO)                                                       4F15392     
       12053  0 60100 0 16165        STO CW+1                                                         4F15393     
       12054  0 50000 0 01503        CLA P(                                                           4F15394     
       12055  0 60100 0 16166        STO CW+2                                                         4F15395     
       12056  0 50000 0 16161        CLA P(CNTR                                                       4F15396     
       12057  0 60100 0 16167        STO CW+3                                                         4F15397     
       12060  0 40200 0 01454        SUB 2E18                                                         4F15398     
       12061  0 60100 0 16161        STO P(CNTR                                                       4F15399     
       12062  0 07400 2 12621        TSX COMP,B            COMPILE STO 4...0-(J-2)                    4F15400     
       12063 -0 53400 2 11324        LXD CP0400,B                                                     4F15401     
       12064  1 00003 2 12065        TXI CP4020,B,3                                                   4F15402     
       12065 -3 77764 2 12070 CP4020 TXL CP4050,B,-12                                                 4F15403     
       12066 -0 53400 1 01117        LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15404     
       12067  1 77775 1 11755        TXI CP3280,A,-3                                                  4F15405     
       12070 -0 63400 2 11324 CP4050 SXD CP0400,B                                                     4F15406     
       12071  1 77775 1 12046        TXI CP3870,A,-3       GO PICK UP NEXT ARG                        4F15407     
       12072  0 50000 0 01541 CP4070 CLA L(CLA)                                                       4F15408     
       12073  0 60100 0 16165        STO CW+1                                                         4F15409     
       12074  0 07400 4 12627        TSX AC0000,C          ASDRESS COMPILE SYM2(S(I))                 4F15410     
       12075  0 07400 2 12621        TSX COMP,B            COMPILE CLASYM2(S(I))                      4F15411     
       12076  0 60000 0 16164        STZ CW                RESET CW                                   4F15412     
       12077  1 77772 1 12013        TXI CP3600,A,-6                                                  4F15413     
       12100 -0 76300 0 00033 CP4140 LGL 27                OP1(S(I))=**                               4F15414     
       12101  0 16200 0 12132        TQP CP4410            CLOSED SBRTN SINCE OP1(S(I))33=0           4F15415     
       12102  0 76000 0 00001        LBT                   OPEN SBRTN SINCE OP1(S(I))33=1             4F15416     
       12103  0 02000 0 12106        TRA CP4200            BASE FIX PT SINCE OP1(S(I))32=0            4F15417     
       12104  0 50000 0 01525        CLA STRSTR            BASE FLO PT SINCE OP1(S(II)I32=1           4F15418     
       12105  0 02000 0 12107        TRA CP4210                                                       4F15419     
       12106  0 50000 0 01524 CP4200 CLA ADSTAR                                                       4F15420     
       12107  0 60100 0 16165 CP4210 STO CW+1                                                         4F15421     
       12110 -0 76300 0 00002        LGL 2                 EXAMINE OP1(S(I))35                        4F15422     
       12111  0 16200 0 12120        TQP CP4310            0... BASE STORED                           4F15423     
       12112  0 56000 0 01524        LDQ ADSTAR            1... BASE NOT STORED                       4F15424     
       12113  0 76000 0 00001        LBT                   EXAMINE OP1(S(I))34                        4F15425     
       12114  0 56000 0 01512        LDQ ADPLUS            0... BASE IN ACC                           4F15426     
       12115 -0 60000 0 16166        STQ CW+2              1...BASE IN MQ                             4F15427     
       12116  0 60000 0 16167        STZ CW+3                                                         4F15428     
       12117  0 02000 0 12121        TRA CP4320                                                       4F15429     
       12120  0 07400 4 12627 CP4310 TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15430     
       12121  0 50200 0 16164 CP4320 CLS CW                                                           4F15431     
       12122  0 60100 0 16164        STO CW                CW TO -CW                                  4F15432     
       12123  0 07400 2 12621        TSX COMP,B            COMPILE BASE                               4F15433     
       12124  0 60000 0 16164        STZ CW                RESET CW                                   4F15434     
       12125  0 50000 1 16655        CLA SCRIPL+5,A                                                   4F15435     
       12126  0 60100 0 16166        STO CW+2                                                         4F15436     
       12127  0 07400 2 12621        TSX COMP,B            COMPILE FIX PT CONSTANT EXPONENT           4F15437     
       12130  0 60000 0 16165        STZ CW+1              RESET CW+1                                 4F15438     
       12131  0 02000 0 12337        TRA ES0000                                                       4F15439     
       12132 -0 76300 0 00003 CP4410 LGL 3                 CLOSED EXP. SBRTN                          4F15440     
       12133  0 76000 0 00001        LBT                   EXAMINE OP1(S(I))35                        4F15441     
       12134  0 02000 0 12177        TRA CP4860            0... BASE STORED                           4F15442     
       12135  0 50000 0 01556 CP4440 CLA L(LDQ)            1... BASE IN ACC.                          4F15443     
       12136  0 60100 0 16165        STO CW+1                                                         4F15444     
       12137  1 77775 1 12140        TXI CP4470,A,-3                                                  4F15445     
       12140  0 07400 4 12627 CP4470 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15446     
       12141  0 07400 2 12621        TSX COMP,B            COMPILE LDQ SYM2 (S(I))                    4F15447     
       12142  0 50000 0 01575 CP4490 CLA L(SXD)                                                       4F15448     
       12143  0 60100 0 16165        STO CW+1                                                         4F15449     
       12144  0 50000 0 01505        CLA X(                                                           4F15450     
       12145  0 60100 0 16166        STO CW+2                                                         4F15451     
       12146  0 50000 0 01412        CLA L(4)                                                         4F15452     
       12147  0 60100 0 16167        STO CW+3                                                         4F15453     
       12150  0 07400 2 12621        TSX COMP,B            COMPILE SXD 7...0,4                        4F15454     
       12151  0 50000 0 01602        CLA L(TSX)                                                       4F15455     
       12152  0 60100 0 16165        STO CW+1                                                         4F15456     
       12153  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F15457     
       12154  0 77100 0 00003        ARS 3                                                            4F15458     
       12155  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))32                        4F15459     
       12156  1 00003 1 12164        TXI CP4660,A,3        0...                                       4F15460     
       12157  0 50000 0 01516        CLA FLFL              1... FLO**FLO                              4F15461     
       12160  0 56000 1 16646        LDQ SCRIPL-2,A        EXAMINE OP1(S(I))32 TO CHECK               4F15462     
       12161 -0 77300 0 00040        RQL 32                FOR MIXED EXPONENTIAL EXPRESSION           4F15463     
       12162  0 16200 0 11216        TQP MC0310+2          ERROR FIX PT BASE, FLOAT EXP.              4F15464     
       12163  0 02000 0 12171        TRA CP4730                                                       4F15465     
       12164  0 56000 1 16651 CP4660 LDQ SCRIPL+1,A                                                   4F15466     
       12165 -0 77300 0 00040        RQL 32                EXAMINE OP1(SI)))32                        4F15467     
       12166  0 50000 0 01514        CLA FXFX                                                         4F15468     
       12167  0 16200 0 12171        TQP CP4730            0...FX**FX                                 4F15469     
       12170  0 50000 0 01515        CLA FLFX              1... FL**FX                                4F15470     
       12171  0 60100 0 16166 CP4730 STO CW+2                                                         4F15471     
       12172  0 60100 0 01347        STO G                                                            4F15472     
       12173  0 07400 2 12621        TSX COMP,B            COMPILE TSX FXFX/FLEX/FLFL,4               4F15473     
       12174  0 07400 1 03321        TSX TET00,A                                                      4F15474     
       12175  0 00000 0 00011        HTR 9                                                            4F15475     
       12176  0 02000 0 12332        TRA CP5780            COMPILE FL0W TRACE INFO AND LXD 7(,4       4F15476     
       12177  0 50000 0 01541 CP4860 CLA L(CLA)                                                       4F15482     
       12200  0 60100 0 16165        STO CW+1                                                         4F15483     
       12201  0 07400 4 12627        TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15484     
       12202  0 07400 2 12621        TSX COMP,B            COMPILE CLA SYM1(S(I))                     4F15485     
       12203  0 60000 0 16164        STZ CW                                                           4F15486     
       12204  0 50000 1 16654        CLA SCRIPL+4,A                                                   4F15487     
       12205  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15488     
       12206  1 00000 0 12135        TXI CP4440,0,0        0...EXP STORED                             4F15489     
       12207  1 77775 1 12142        TXI CP4490,A,-3       1... EXP IN MQ                             4F15490     
                                                                                                      4F15491     
       12210  0 50000 0 00030 CP5000 CLA EIFNO             FN FUNCTI0N                                4F15492     
       12211  0 40000 0 01454        ADD 2E18              UPDATE EIFNO                               4F15493     
       12212  0 60100 0 00030        STO EIFNO             AND                                        4F15494     
       12213  0 60100 0 16160        STO FNSW              SET FN SWITCH                              4F15495     
       12214  0 62200 0 01105        STD 1C                KEEP 1C UPDATED FOR PENDING TIFGO ENTRY.   4F15496     
       12215  0 53400 4 01407        LXA L(1),C            INITIALIZE STAIX T0 1                      4F15497     
       12216  0 50000 1 16650 CP5050 CLA SCRIPL,A          EXAMINE TAGJ(S(I)), J=2,...                4F15498     
       12217 -0 12000 0 12233        TMI CP5180            NONSUBSCRIPTED                             4F15499     
       12220 -0 63400 2 11664        SXD CP5830,B          SOBSCRIPTED-IS THERE A GENERAL TAG         4F15500     
       12221 -0 63400 4 12314        SXD STACTR,C                                                     4F15501     
       12222  0 07400 4 12627        TSX AC0000,C                                                     4F15502     
       12223 -0 50000 0 16173        CAL TAGPRT                                                       4F15503     
       12224 -0 10000 0 12237        TNZ CP5220            GENERAL TAG PRESENT                        4F15504     
       12225 -0 50000 0 16167        CAL CW+3              NO GENERAL TAG PRESENT,SO PLACE            4F15505     
       12226  0 77100 0 00013        ARS 11                RELATIVE ADDRESS IN OPJ(S(II)14-28 AND     4F15506     
       12227 -0 50100 0 01474        ORA NGTBIT            SET OPJ(S(I))10=1 FROM NGTBIT              4F15507     
       12230 -0 60200 1 16651        ORS SCRIPL+1,A                                                   4F15508     
       12231 -0 53400 4 12314 CP5160 LXD STACTR,C                                                     4F15509     
       12232 -0 53400 2 11664        LXD CP5830,B                                                     4F15510     
       12233  1 00003 2 12234 CP5180 TXI CP5190,B,3                                                   4F15511     
       12234  3 77772 2 12267 CP5190 TXH CP5460,B,-6       FINISHED WITH PRELUDE,IF ANY               4F15512     
       12235  1 00001 4 12236        TXI CP5210,C,1        NOT FINISHED-STAIX=STAIX+1                 4F15513     
       12236  1 77775 1 12216 CP5210 TXI CP5050,A,-3       GO ON TO NEXT ARGUMENT                     4F15513     
       12237 -0 50000 0 01566 CP5220 CAL L(PXD)                                                       4F15515     
       12240  0 60200 0 16165        SLW CW+1                                                         4F15516     
       12241  0 07400 2 12621        TSX COMP,B            COMPILE PXD SYMJ(S(I)), TAGJ(S(I))         4F15517     
       12242  0 60000 0 16164        STZ CW                RESET CW                                   4F15518     
       12243  0 07400 4 01731        TSX CIT00,C           COMPILE ARS 18                             4F15519     
       12244  0 00000 0 01406        HTR L(0)                                                         4F15520     
       12245  0 00000 0 01535        HTR L(ARS)                                                       4F15521     
       12246  0 00000 0 01406        HTR L(0)                                                         4F15522     
       12247  0 00000 0 01466        HTR DEC18                                                        4F15523     
       12250  0 07400 4 01731        TSX CIT00,C           COMPILE ADD *-2                            4F15524     
       12251  0 00000 0 01406        HTR L(0)                                                         4F15525     
       12252  0 00000 0 01532        HTR L(ADD)                                                       4F15526     
       12253  0 00000 0 01511        HTR PROCTR                                                       4F15527     
       12254  0 00000 0 01521        HTR DECMI2                                                       4F15528     
       12255 -0 50000 0 01571        CAL L(STA)                                                       4F15529     
       12256  0 60200 0 16165        SLW CW+1                                                         4F15530     
       12257 -0 50000 0 00030        CAL EIFNO                                                        4F15531     
       12260 -0 32000 0 01527        ANA MASK1                                                        4F15532     
       12261  0 60200 0 16166        SLW CW+2                                                         4F15533     
       12262 -0 53400 4 12314        LXD STACTR,C                                                     4F15534     
       12263 -0 75400 4 00000        PXD 0,C                                                          4F15535     
       12264  0 60200 0 16167        SLW CW+3                                                         4F15536     
       12265  0 07400 2 12621        TSX COMP,B            COMPILE STA IFN+STAIX                      4F15537     
       12266  1 00000 0 12231        TXI CP5160,0,0        GO ON TO NEXT ARGUMENT,IF ANY              4F15538     
       12267 -0 53400 1 01117 CP5460 LXD 3QBAR,A                                                      4F15539     
       12270 -0 50000 0 01575        CAL L(SXD)                                                       4F15540     
       12271  0 60200 0 16165        SLW CW+1                                                         4F15541     
       12272 -0 50000 0 01505        CAL X(                                                           4F15542     
       12273  0 60200 0 16166        SLW CW+2                                                         4F15543     
       12274 -0 50000 0 01412        CAL L(4)                                                         4F15544     
       12275  0 60200 0 16167        SLW CW+3                                                         4F15545     
       12276  0 07400 2 12621        TSX COMP,B            COMPILE SXD 7,4                            4F15546     
       12277 -0 50000 0 00030        CAL EIFNO                                                        4F15547     
       12300 -0 32000 0 01527        ANA MASK1                                                        4F15548     
       12301  0 60200 0 16164        SLW CW                                                           4F15549     
       12302 -0 50000 0 01602        CAL L(TSX)                                                       4F15550     
       12303  0 60200 0 16165        SLW CW+1                                                         4F15551     
       12304 -0 50000 1 16652        CAL SCRIPL+2,A                                                   4F15552     
       12305  0 60200 0 16166        SLW CW+2                                                         4F15553     
       12306  0 07400 2 12621        TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15554     
       12307  0 60000 0 16164        STZ CW                RESET CW                                   4F15555     
       12310  1 77775 1 12311        TXI CP5680,A,-3       POSITION XA TO SYM2(S(I))                  4F15556     
       12311  0 50000 1 16650 CP5680 CLA SCRIPL,A                                                     4F15557     
       12312  0 12000 0 12315        TPL CP5700                                                       4F15558     
       12313  0 07400 4 12627        TSX AC0000,C          NONSUBSCRIPTED                             4F15559     
       12314  1 00000 0 12324 STACTR TXI CP5720,0,0                                                   4F15560     
       12315  0 56000 1 16651 CP5700 LDQ SCRIPL+1,A        SUBSCRIPTED                                4F15561     
       12316 -0 76300 0 00013        LGL 11                                                           4F15562     
       12317  0 76000 0 00001        LBT                                                              4F15563     
       12320  0 56000 0 01406        LDQ L(0)              GENERAL TAG PRESENT                        4F15564     
       12321 -0 60000 0 16167        STQ CW+3              NO GENERAL TAG PRESENT                     4F15565     
       12322 -0 50000 1 16652        CAL SCRIPL+2,A                                                   4F15566     
       12323  0 60200 0 16166        SLW CW+2                                                         4F15567     
       12324  0 07400 2 12621 CP5720 TSX COMP,B            COMPILE TSX SYMJ(S(I)) , J=2,...           4F15568     
       12325 -0 53400 2 11324        LXD CP0400,B                                                     4F15569     
       12326  1 00003 2 12327        TXI CP5750,B,3                                                   4F15570     
       12327  3 77772 2 12332 CP5750 TXH CP5780,B,-6       FINISHED SCANNING                          4F15571     
       12330 -0 63400 2 11324        SXD CP0400,B                                                     4F15572     
       12331  1 77775 1 12311        TXI CP5680,A,-3                                                  4F15573     
       12332  0 07400 4 03401 CP5780 TSX FLTR00,4          COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15574     
       12333  0 00000 0 01406        HTR L(0)                                                         4F15575     
       12334  0 00000 0 01561        HTR L(LXD)                                                       4F15576     
       12335  0 00000 0 01505        HTR X(                                                           4F15577     
       12336  0 00000 0 01412        HTR L(4)                                                         4F15578     
       12337 -0 53400 1 01117 ES0000 LXD 3QBAR,A           -3Q TO XA                                  4F15579     
       12340 -0 76000 0 00141        SLT 1                                                            4F15580     
       12341  0 02000 0 11271        TRA CP0130            GO TO NEXT SEGMENT                         4F15581     
       12342 -0 50000 1 16650        CAL SCRIPL,A                                                     4F15582     
       12343 -0 32000 0 01452        ANA MASK2                                                        4F15583     
       12344  0 10000 0 12357        TZE ES0160                                                       4F15584     
       12345  0 50000 0 01120        CLA ARERAS            S(I) NOT = S(0)                            4F15585     
       12346  0 60100 0 16166        STO CW+2                                                         4F15586     
       12347  0 50000 0 01363        CLA PHI(I)                                                       4F15587     
       12350  0 60100 0 16167        STO CW+3                                                         4F15588     
       12351  0 50000 0 01573        CLA L(STQ)                                                       4F15589     
       12352 -0 76000 0 00142        SLT 2                                                            4F15590     
       12353  0 50000 0 01572        CLA L(STO)                                                       4F15591     
       12354  0 60100 0 16165        STO CW+1                                                         4F15592     
       12355  0 07400 2 12621        TSX COMP,B            COMPILE STO/STQ 1... TYPE NO + PHI(I)      4F15593     
       12356  0 02000 0 11271        TRA CP0130            GO TO NEXT SEGMENT                         4F15594     
       12357  0 56000 0 01356 ES0160 LDQ LEFT+2            S(I)=S(0)                                  4F15595     
       12360 -0 76300 0 00014        LGL 12                                                           4F15596     
       12361  0 34000 0 01450        CAS IFSYM             IS THIS AN IF STATEMENT                    4F15597     
       12362  0 02000 0 12364        TRA ES0200                                                       4F15598     
       12363  0 02000 0 12556        TRA ES1500                                                       4F15599     
       12364  0 34000 0 01451 ES0200 CAS CALLER            IS THIS A CALL STATEMENT                   4F15600     
       12365  0 02000 0 12367        TRA ES0210                                                       4F15601     
       12366  0 02000 0 12561        TRA ES1520                                                       4F15602     
       12367  0 34000 0 01447 ES0210 CAS SAPSYM                                                       4F15603     
       12370  0 02000 0 12372        TRA ES0220                                                       4F15604     
       12371  0 02000 0 12615        TRA ES1710                                                       4F15605     
       12372  0 77100 0 00006 ES0220 ARS 6                                                            4F15606     
       12373 -0 53400 4 01122        LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15607     
       12374  3 00000 4 12533        TXH ES1300,C,0        YES                                        4F15608     
       12375  0 34000 0 01423        CAS L(H)              NOT A FUNCTION STATEMENT                   4F15609     
       12376  0 34000 0 01425        CAS L(O)                                                         4F15610     
       12377  0 02000 0 12465        TRA ES0300                                                       4F15611     
       12400  0 02000 0 12465        TRA ES0300                                                       4F15612     
       12401 -0 76000 0 00144        SLT 4                                                            4F15613     
       12402  0 02000 0 12420        TRA ES0870                                                       4F15614     
       12403  0 50000 0 01573 ES0710 CLA L(STQ)            FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT    4F15615     
       12404 -0 76000 0 00142        SLT 2                                                            4F15616     
       12405  0 50000 0 01572 ES0730 CLA L(STO)                                                       4F15617     
       12406  0 60100 0 16165        STO CW+1                                                         4F15618     
       12407  0 50000 0 01354        CLA LEFT                                                         4F15619     
       12410  0 60100 0 16170        STO TAGWRD                                                       4F15620     
       12411  0 50000 0 01355        CLA LEFT+1                                                       4F15621     
       12412  0 60100 0 16171        STO OPWORD                                                       4F15622     
       12413  0 50000 0 01356        CLA LEFT+2                                                       4F15623     
       12414  0 60100 0 16172        STO SYMWRD                                                       4F15624     
       12415  0 07400 4 12635        TSX AC0060,C          ADDRESS COMPILE VAR1ABLE ON LEFT           4F15625     
       12416  0 07400 2 12621        TSX COMP,B            COMPILE STO/STQ LEFT+2                     4F15626     
       12417  0 02000 0 12601        TRA ES1590            EXIT TO FETCH STATE A                      4F15627     
       12420 -0 76000 0 00142 ES0870 SLT 2                 FX PT ON LEFT, FLO PT ON RIGHT             4F15628     
       12421  0 02000 0 12433        TRA ES0990                                                       4F15629     
       12422  0 50000 0 01573        CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15630     
       12423  0 60100 0 16165        STO CW+1                                                         4F15631     
       12424  0 50000 0 01505        CLA X(                                                           4F15632     
       12425  0 60100 0 16166        STO CW+2                                                         4F15633     
       12426  0 60000 0 16167        STZ CW+3                                                         4F15634     
       12427  0 07400 2 12621        TSX COMP,B            COMPILE STQ 700000                         4F15635     
       12430  0 50000 0 01541        CLA L(CLA)                                                       4F15636     
       12431  0 60100 0 16165        STO CW+1                                                         4F15637     
       12432  0 07400 2 12621        TSX COMP,B            COMPILE CLA 700000                         4F15638     
       12433  0 07400 4 01731 ES0990 TSX CIT00,C           COMPILE FIXING INSTRUCTIONS, WHEN          4F15639     
       12434  0 00000 0 01406        HTR L(0)              RESULT ON RIGHT IS IN ACC.                 4F15640     
       12435  0 00000 0 01603        HTR L(UFA)                                                       4F15641     
       12436  0 00000 0 01504        HTR O(                                                           4F15642     
       12437  0 00000 0 01406        HTR L(0)                                                         4F15643     
       12440  0 07400 4 01731        TSX CIT00,C                                                      4F15644     
       12441  0 00000 0 01406        HTR L(0)                                                         4F15645     
       12442  0 00000 0 01560        HTR L(LRS)                                                       4F15646     
       12443  0 00000 0 01406        HTR L(0)                                                         4F15647     
       12444  0 00000 0 01406        HTR L(0)                                                         4F15648     
       12445  0 07400 4 01731        TSX CIT00,C                                                      4F15649     
       12446  0 00000 0 01406        HTR L(0)                                                         4F15650     
       12447  0 00000 0 01534        HTR L(ANA)                                                       4F15651     
       12450  0 00000 0 01504        HTR O(                                                           4F15652     
       12451  0 00000 0 01454        HTR 2E18                                                         4F15653     
       12452  0 07400 4 01731        TSX CIT00,C                                                      4F15654     
       12453  0 00000 0 01406        HTR L(0)                                                         4F15655     
       12454  0 00000 0 01557        HTR L(LLS)                                                       4F15656     
       12455  0 00000 0 01406        HTR L(0)                                                         4F15657     
       12456  0 00000 0 01406        HTR L(0)                                                         4F15658     
       12457  0 07400 4 01731        TSX CIT00,C                                                      4F15659     
       12460  0 00000 0 01406        HTR L(0)                                                         4F15660     
       12461  0 00000 0 01533        HTR L(ALS)                                                       4F15661     
       12462  0 00000 0 01406        HTR L(0)                                                         4F15662     
       12463  0 00000 0 01466        HTR DEC18                                                        4F15663     
       12464  0 02000 0 12521        TRA ES0610                                                       4F15664     
       12465 -0 76000 0 00144 ES0300 SLT 4                                                            4F15665     
       12466  0 02000 0 12403        TRA ES0710                                                       4F15666     
       12467 -0 76000 0 00142 ES0320 SLT 2                 FLO PT ON LEFT, FX PT ON RIGHT             4F15667     
       12470  0 02000 0 12502        TRA ES0440                                                       4F15668     
       12471  0 50000 0 01573        CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15669     
       12472  0 60100 0 16165        STO CW+1                                                         4F15670     
       12473  0 50000 0 01505        CLA X(                                                           4F15671     
       12474  0 60100 0 16166        STO CW+2                                                         4F15672     
       12475  0 60000 0 16167        STZ CW+3                                                         4F15673     
       12476  0 07400 2 12621        TSX COMP,B            COMPILE STQ 700000                         4F15674     
       12477  0 50000 0 01541        CLA L(CLA)                                                       4F15675     
       12500  0 60100 0 16165        STO CW+1                                                         4F15676     
       12501  0 07400 2 12621        TSX COMP,B            COMPILE CLA 700000                         4F15677     
       12502  0 07400 4 01731 ES0440 TSX CIT00,C           COMPILE FLOATING INSTRUCTIONS, WHEN        4F15678     
       12503  0 00000 0 01406        HTR L(0)              RESULT ON RIGHT IS IN ACC                  4F15679     
       12504  0 00000 0 01560        HTR L(LRS)                                                       4F15680     
       12505  0 00000 0 01406        HTR L(0)                                                         4F15681     
       12506  0 00000 0 01466        HTR DEC18                                                        4F15682     
       12507  0 07400 4 01731        TSX CIT00,C                                                      4F15683     
       12510  0 00000 0 01406        HTR L(0)                                                         4F15684     
       12511  0 00000 0 01564        HTR L(ORA)                                                       4F15685     
       12512  0 00000 0 01504        HTR O(                                                           4F15686     
       12513  0 00000 0 01406        HTR L(0)                                                         4F15687     
       12514  0 07400 4 01731        TSX CIT00,C                                                      4F15688     
       12515  0 00000 0 01406        HTR L(0)                                                         4F15689     
       12516  0 00000 0 01550        HTR L(FAD)                                                       4F15690     
       12517  0 00000 0 01504        HTR O(                                                           4F15691     
       12520  0 00000 0 01406        HTR L(0)                                                         4F15692     
       12521 -0 53400 4 01122 ES0610 LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15693     
       12522 -3 00000 4 12405        TXL ES0730,C,0        NO                                         4F15694     
       12523  0 50000 0 01601 ES0630 CLA L(TRA)            YES                                        4F15695     
       12524  0 60100 0 16165        STO CW+1                                                         4F15696     
       12525  0 60000 0 16166        STZ CW+2                                                         4F15697     
       12526 -0 50000 0 01454        CAL 2E18                                                         4F15698     
       12527 -0 50100 0 01412        ORA L(4)                                                         4F15699     
       12530  0 60200 0 16167        SLW CW+3                                                         4F15700     
       12531  0 07400 2 12621        TSX COMP,B            COMPILE TRA 1,4                            4F15701     
       12532  0 02000 0 12601        TRA ES1590            EXIT TO FETCH STATE A                      4F15702     
       12533  0 40200 0 01433 ES1300 SUB L(X)                                                         4F15703     
       12534  0 10000 0 12540        TZE ES1360                                                       4F15704     
       12535 -0 76000 0 00144        SLT 4                                                            4F15705     
       12536  0 02000 0 12542        TRA ES1380                                                       4F15706     
       12537  0 02000 0 12467        TRA ES0320                                                       4F15707     
       12540 -0 76000 0 00144 ES1360 SLT 4                                                            4F15708     
       12541  0 02000 0 12420        TRA ES0870                                                       4F15709     
       12542 -0 76000 0 00142 ES1380 SLT 2                                                            4F15710     
       12543  0 02000 0 12523        TRA ES0630                                                       4F15711     
       12544  0 50000 0 01573        CLA L(STQ)                                                       4F15712     
       12545  0 60100 0 16165        STO CW+1                                                         4F15713     
       12546  0 50000 0 01505        CLA X(                                                           4F15714     
       12547  0 60100 0 16166        STO CW+2                                                         4F15715     
       12550  0 60000 0 16167        STZ CW+3                                                         4F15716     
       12551  0 07400 2 12621        TSX COMP,B            COMPILE STQ 700000                         4F15717     
       12552  0 50000 0 01541        CLA L(CLA)                                                       4F15718     
       12553  0 60100 0 16165        STO CW+1                                                         4F15719     
       12554  0 07400 2 12621        TSX COMP,B            COMPILE CLA 700000                         4F15720     
       12555  0 02000 0 12523        TRA ES0630                                                       4F15721     
       12556  0 07400 1 03321 ES1500 TSX TET00,1                 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722     
       12557  0 00000 0 00002        PZE 2                         INTO TIFGO TABLE (TABLE 2).        4F15723     
       12560  0 02000 0 12565        TRA ES1530                                                       4F15724     
       12561 -0 53400 4 00030 ES1520 LXD EIFNO,4                                                      4F15725     
       12562 -0 63400 4 01123        SXD CALLNM,4          PREPARE ENTRY FOR TABLE OF CALL FIRST AND  4F15726     
       12563  0 07400 1 03321        TSX TET00,1           LAST IFN NUMBERS.                          4F15727     
       12564  0 00000 0 00020            16                                                           4F15728     
       12565 -0 76000 0 00142 ES1530 SLT 2                                                            4F15729     
       12566  0 02000 0 12601        TRA ES1590            EXIT T0 FETCH STATE A                      4F15730     
       12567  0 07400 4 01731        TSX CIT00,C           COMPILE LLS 37                             4F15731     
       12570  0 00000 0 01406            L(0)                                                         4F15732     
       12571  0 00000 0 01573            L(STQ)                                                       4F15733     
       12572  0 00000 0 01505            X(                                                           4F15734     
       12573  0 00000 0 01406            L(0)                                                         4F15735     
       12574  0 07400 4 01731        TSX CIT00,4                                                      4F15736     
       12575  0 00000 0 01406            L(0)                                                         4F15737     
       12576  0 00000 0 01541            L(CLA)                                                       4F15738     
       12577  0 00000 0 01505            X(                                                           4F15739     
       12600  0 00000 0 01406            L(0)                                                         4F15740     
       12601  0 50000 0 16160 ES1590 CLA FNSW                                                         4F15741     
       12602  0 10000 0 03440        TZE MTR000                                                       4F15742     
       12603  0 50000 0 01151        CLA F-1                                                          4F15743     
       12604  0 40200 0 01477        SUB 5BLANS                                                       4F15744     
       12605  0 10000 0 03440        TZE MTR000                                                       4F15745     
       12606  0 50200 0 00030        CLS EIFNO                                                        4F15746     
       12607  0 60100 0 00030        STO EIFNO                                                        4F15747     
       12610  0 07400 1 03321        TSX TET00,A                                                      4F15748     
       12611  0 00000 0 00000        HTR 0                                                            4F15749     
       12612  0 50200 0 00030        CLS EIFNO                                                        4F15750     
       12613  0 60100 0 00030        STO EIFNO                                                        4F15751     
       12614  0 02000 0 03440        TRA MTR000                                                       4F15752     
       12615 -0 53400 2 00637 ES1710 LXD BBOX,B                                                       4F15753     
       12616  0 50000 0 01362        CLA OPNWRD                                                       4F15754     
       12617  0 60100 2 00635        STO CIB-3,B                                                      4F15755     
       12620  0 02000 0 03440        TRA MTR000                                                       4F15756     
                                                                                                      4F15757     
       12621  0 07400 4 01731 COMP   TSX CIT00,C                                                      4F15758     
       12622  0 00000 0 16164        HTR CW                                                           4F15759     
       12623  0 00000 0 16165        HTR CW+1                                                         4F15760     
       12624  0 00000 0 16166        HTR CW+2                                                         4F15761     
       12625  0 00000 0 16167        HTR CW+3                                                         4F15762     
       12626  0 02000 2 00001        TRA 1,B                                                          4F15763     
                                                                                                      4F15764     
       12627  0 50000 1 16650 AC0000 CLA SCRIPL,A                                                     4F15765     
       12630  0 60100 0 16170        STO TAGWRD                                                       4F15766     
       12631  0 50000 1 16651        CLA SCRIPL+1,A                                                   4F15767     
       12632  0 60100 0 16171        STO OPWORD                                                       4F15768     
       12633  0 50000 1 16652        CLA SCRIPL+2,A                                                   4F15769     
       12634  0 60100 0 16172        STO SYMWRD                                                       4F15770     
       12635 -0 50000 0 16170 AC0060 CAL TAGWRD                                                       4F15771     
       12636 -0 32000 0 01527        ANA MASK1             EXTRACT TAGS IN ACC.                       4F15772     
       12637 -0 76000 0 00001        PBT                                                              4F15773     
       12640  0 02000 0 12721        TRA AC0540                                                       4F15774     
       12641 -0 75400 0 00000        PXD 0,0               NON-SUBSCRIPTED SYMBOL                     4F15775     
       12642  0 56000 0 16172        LDQ SYMWRD                                                       4F15776     
       12643 -0 76300 0 00001        LGL 1                                                            4F15777     
       12644  0 76000 0 00001        LBT                                                              4F15778     
       12645  0 16200 0 12712        TQP AC0460            SYMBOL IS SOME S(K)                        4F15779     
       12646 -0 76300 0 00013        LGL 11                NON-SUBSCRIPTED EX/INTERNAL VARIABLE       4F15780     
       12647  0 40200 0 01444        SUB L(A()             IS THIS A FLO PT CONSTANT                  4F15781     
       12650  0 10000 0 12705        TZE AC0410            YES                                        4F15782     
       12651  0 40000 0 01444        ADD L(A()             NO                                         4F15783     
       12652  0 40200 0 01446        SUB L(I()             IS THIS A FIX PT CONSTANT                  4F15784     
       12653  0 10000 0 12703        TZE AC0390            YES                                        4F15785     
       12654  0 40000 0 01446        ADD L(I()             NO                                         4F15786     
       12655  0 40200 0 01445        SUB L(H()             IS THIS A HOLLERITH FIELD                  4F15787     
       12656  0 10000 0 12701        TZE AC0350            YES                                        4F15788     
       12657  0 56000 0 16171        LDQ OPWORD            NON-SUBSCRIPTD0 EXTERNAL VARIABLE          4F15789     
       12660 -0 76300 0 00015        LGL 13                IS THIS A FREE VARIABLE                    4F15790     
       12661  0 16200 0 12676        TQP AC0340            NO                                         4F15791     
       12662  0 76300 0 00017        LLS 15                YES                                        4F15792     
       12663  0 76000 0 00006        COM                                                              4F15793     
       12664  0 40200 0 01407        SUB L(1)                                                         4F15794     
       12665  0 73400 2 00000        PAX 0,B                                                          4F15795     
       12666 -0 75400 2 00000        PXD 0,B                                                          4F15796     
       12667  0 60200 0 16167        SLW CW+3              STORE ARGUMENT BUFFER RELATIVE ADDRESS     4F15797     
       12670 -0 53400 2 00470        LXD BK,B                                                         4F15798     
       12671 -0 50000 2 00470        CAL FORSUB-1,B                                                   4F15799     
       12672 -0 32000 0 01452        ANA MASK2             EXTRACT FUNCTION STATEMENT TYPE            4F15800     
       12673 -0 50100 0 01503        ORA P(                                                           4F15801     
       12674  0 60200 0 16166 AC0320 SLW CW+2                                                         4F15802     
       12675  0 02000 4 00001        TRA 1,C               RETURN                                     4F15803     
       12676  0 60000 0 16167 AC0340 STZ CW+3              NON-SUBSCRIPTED, REAL VARIABLE             4F15804     
       12677 -0 50000 0 16172        CAL SYMWRD                                                       4F15805     
       12700  0 02000 0 12674        TRA AC0320                                                       4F15806     
       12701 -0 50000 0 01522 AC0350 CAL H(                                                           4F15807     
       12702  0 02000 0 12706        TRA AC0420                                                       4F15808     
       12703  0 50000 0 01501 AC0390 CLA I(                FIX PT INTERNAL VARIABLE                   4F15809     
       12704  0 02000 0 12706        TRA AC0420                                                       4F15810     
       12705  0 50000 0 01502 AC0410 CLA A(                FLO PT INTERNAL VARIABLE                   4F15811     
       12706  0 60100 0 16166 AC0420 STO CW+2                                                         4F15812     
       12707 -0 77300 0 00006        RQL 6                                                            4F15813     
       12710 -0 60000 0 16167        STQ CW+3                                                         4F15814     
       12711  0 02000 4 00001        TRA 1,C               RETURN                                     4F15815     
       12712 -0 76300 0 00043 AC0460 LGL 35                SYMBOL IS SOME S(K).                       4F15816     
       12713  0 73400 2 00000 TDRADD PAX 0,B                                                          4F15817     
       12714 -0 50000 2 16174        CAL CPBETA,B                                                     4F15818     
       12715 -0 32000 0 01527        ANA MASK1             EXTRACT PHI(K)                             4F15819     
       12716  0 60200 0 16167        SLW CW+3                                                         4F15820     
       12717 -0 50000 0 01120        CAL ARERAS                                                       4F15821     
       12720  0 02000 0 12674        TRA AC0320                                                       4F15822     
       12721  0 60200 0 16170 AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823     
       12722  0 56000 0 16170        LDQ TAGWRD                                                       4F15824     
       12723 -0 75400 0 00000        PXD ,0                CLEAR AC.                                  4F15825     
       12724 -0 76300 0 00014        LGL 12                I-TAU TAGS TO AC.                          4F15826     
       12725  0 60200 0 16167        SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827     
       12726  0 16200 0 12731        TQP *+3                                                          4F15828     
       12727  0 60000 0 16167        STZ CW+3                                                         4F15829     
       12730 -0 50000 0 01454        CAL 2E18              REPLACE NULL TAG.                          4F15830     
       12731  0 60200 0 16173        SLW TAGPRT            SAVE FOR LATER USE.                        4F15831     
       12732 -0 76300 0 00001        LGL 1                                                            4F15832     
       12733 -0 75400 0 00000        PXD ,0                CLEAR AC.                                  4F15833     
       12734 -0 76300 0 00010        LGL 8                 FORM TWICE SIGMA TAG.                      4F15834     
       12735  0 76700 0 00001        ALS 1                                                            4F15835     
       12736  0 40100 0 00446        ADM SIG1IX-2          FORM BASE OF TABLE + SIGMA TAG.            4F15836     
       12737  0 62100 0 12740        STA SDRADD                                                       4F15837     
       12740 -0 75400 0 00000 SDRADD PXD **,0                                                         4F15838     
       12741  0 76200 0 00302        RDR 2                                                            4F15839     
       12742  0 46000 0 12740        LDA SDRADD                                                       4F15840     
       12743 -0 70000 0 02365        CAD DUMP                                                         4F15841     
       12744  0 76000 0 00006        COM                                                              4F15842     
       12745 -0 70000 0 02365        CAD DUMP                                                         4F15843     
       12746  0 76000 0 00006        COM                                                              4F15844     
       12747  0 10000 0 12751        TZE *+2               CHECK SUM TEST.                            4F15845     
       12750  0 07400 4 03400        TSX DIAG,4            ERROR SIGMA1 CKSUM FAILS                   4F15846     
       12751 -0 50000 0 02365        CAL DUMP                                                         4F15847     
       12752 -0 60200 0 16167        ORS CW+3              ADD RELATIVE ADDRESS TO I-TAU TAG.         4F15848     
       12753  0 50000 0 16172        CLA SYMWRD            MOVE VARIABLE NAME FOR NEXT CIT ENTRY.     4F15849     
       12754  0 60100 0 16166        STO CW+2                                                         4F15850     
       12755  0 02000 4 00001        TRA 1,4               RETURN TO CALLER                           4F15851     
                                                                                                      4F158511    
       12756  0 07400 4 03401 CP6000 TSX FLTR00,4          COMPILE FLOW TRACE INFORMATI0N AND THEN    4F158512    
       12757  0 00000 0 16164            CW                COMPILE LXD 7(TYPE =,4                     4F158513    
       12760  0 00000 0 16165            CW+1                                                         4F158514    
       12761  0 00000 0 16166            CW+2                                                         4F158515    
       12762  0 00000 0 16167            CW+3                                                         4F158516    
       12763  0 02000 0 12337        TRA ES0000                                                       4F158517    
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852     
                        12764 ENDD   BSS 0                                                            4F158525    
                                                                                                      4F15853     
                        16160        ORG 3184+4096                                                    4F15854     
                        16160 FNSW   BSS 1                                                            4F15855     
                        16161 P(CNTR BSS 1                                                            4F15856     
                        16162 ARGORG BSS 1                                                            4F15857     
                        16163 XRSAVE BSS 1                                                            4F15858     
                        16164 CW     BSS 4                                                            4F15859     
                        16170 TAGWRD BSS 1                                                            4F15860     
                        16171 OPWORD BSS 1                                                            4F15861     
                        16172 SYMWRD BSS 1                                                            4F15862     
                        16173 TAGPRT BSS 1                                                            4F15863     
                        16174 CPBETA BSS 300                                                          4F15864     
                        16650 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     
                        01501 2P     SYN I(                                                           4F15873     
                        01531 36ONES SYN ALL1                                                         4F15874     
                        01102 3E     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15875     
                        01117 3QBAR  SYN 3LBAR                                                        4F15876     
                        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     
                        06323 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     
                        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.9R.  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 ENONO  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     
                        01373 L(10)  SYN TEN                                                          4F15931     
                        01400 L(11)  SYN EQUAL                                                        4F15932     
                        01420 L(12)  SYN MINUS                                                        4F15933     
                        01454 L(1DI  SYN 2E18                                                         4F15934     
                        01374 L(63)  SYN ENDMK                                                        4F15935     
                        03440 MEMORG SYN 1824                      MEMORY ORIGIN FOR ALL STATES.      4F15936     
                        01452 MSK    SYN MASK2                                                        4F15937     
                        03440 MTR000 SYN STATEA                                                       4F15938     
                        01103 N      SYN ERASE+3                   COMMON WORKING STORAGE.            4F15943     
                        01404 PLUS   SYN 12Z                                                          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     
                        01356 TAU3   SYN 0750                      DRUM TABLE ORIGIN -DRTABS.         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     
                        01504 ZER    SYN O(                                                           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    5910           0           0           0           0
 LIB       0           0           0           0           0
 COL    5910           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     5918                  
0NUMBER OF SYMBOLS,  DEF  1354,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN II, SECTION V, TAG ANALYSIS, 8-1-6-2             F5G00010    
1                                        704 FORTRAN II, SECTION V, TAG ANALYSIS, 8-1-6-2             F5G00010    
                                         DAVID STERNLIGHT      I.B.M. WORLD HEADQUARTERS  5 N0V 58.   F5G00020    
                                                            INTRODUCTION                              F5G00030    
                                         TNE GENERAL PHILOSOPHY OF SECTI0N 5 IS TO REDUCE A PROGRAM   F5G00040    
                                         USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050    
                                         REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON    F5G00060    
                                         INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070    
                                         INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE   F5G00080    
                                         REPLACED.  THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090    
                                         REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTION5.F5G00100    
                                         THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING     F5G00110    
                                         INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120    
                                         3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL      F5G00130    
                                         TIMES FOR THE CORRECT EXECUTION 0F TAGGED INSTRUCTIONS.      F5G00140    
                                         GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL    F5G00150    
                                         MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND   F5G00160    
                                         NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT  F5G00170    
                                         CONCERN ABOUT WHAT IS WIPED OUT.   THE SKILLFUL PLACEMENT OF F5G00180    
                                         THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5.            F5G00190    
                                         THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS,   F5G00200    
                                         PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210    
                                         ED BY SECTION 4.  THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220    
                                         BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION.     F5G00230    
                                         SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE   F5G00240    
                                         HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD    F5G00250    
                                         ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS.  THE AREA FORM-F5G00260    
                                         ED IN THIS MANNER IS A PORT1ON OF THE OBJECT PROGRAM AND IS  F5G00270    
                                         CALLED A LOOPLIST.  THIS IS TREATED TO REDUCE THE NUMBER OF  F5G00280    
                                         INDEX REGISTERS TO 3, IS THEN CALLED A REGION, AND CAN ENTER F5G00290    
                                         FUTURE LOOPLISTS.  THE LOOPLIST PROCESS IS CONTINUED,        F5G00300    
                                         CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM  F5G00310    
                                         BY THE INCLUSION OF ALREADY TREATED REGIONS IN  THE CURRENT  F5G00320    
                                         LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM.  THESEF5G00330    
                                         REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340    
                                         END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350    
                                         FINALLY THE ENTIRE PR0GRAM HAS BEEN TREATED.  A FURTHER PRIN-F5G00360    
                                         CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX,S AS   F5G00370    
                                         LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,     F5G00380    
                                         SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUENCY  F5G00390    
                                         OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS  F5G00400    
                                         OF THE SX.                                                   F5G00410    
                                         LPLST IS FORMED IN CORES BY SECTION 5 PART 1.  IT SUMMARIZES F5G00420    
                                         EACH NEW REGION TO BE TREATED.  PREFIX CODES ARE 2=OPAQUE    F5G00430    
                                         REGION,  1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER   F5G00440    
                                         FREE) AND PREFIX CODE 0=BASIC BLOCKS.  THE BB NUMBER         F5G00450    
                                         IS CONTAINED IN THE DECREMENT OR ADDRESS.  77777 INDICATES   F5G00460    
                                         LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470    
                                         OF REGION, SPECIFIED BY BB NUMBER.  000000 INDICATES NOTHING F5G00480    
                                         INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR     F5G00490    
                                         ADDRESS.  A WORD OF FULL SEVENS, CALLED SENTINEL, TERMINATES F5G00500    
                                         EPLST.  THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST   F5G00510    
                                         BEFORE TREATMENT LIKE                                        F5G00520    
                                         277777 000014                                                F5G00530    
                                         000023 000000                                                F5G00540    
                                         100026 000033                                                F5G00550    
                                         200003 777777                                                F5G00560    
                                         777777 777777.                                               F5G00570    
                                         TNIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580    
                                         BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM     F5G00590    
                                         BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3,      F5G00600    
                                         TERMINATING THIS LPLST.  WHEN TREATED, THIS ENT1RE LPLST     F5G00610    
                                         BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS   F5G00620    
                                         AND BB,S IN IT, WHICH WILL DISAPPEAR.                        F5G00630    
                                         REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION.  PREFIX F5G00640    
                                         INDICATES EXISTENCE IN REGI0N OF LX,S TO THE IR,S ,          F5G00650    
                                         DECREMENT=FIRST BB NO. IN REGION,  TAG BITS=EMPTINESS        F5G00660    
                                         THROUGHOUT REGION OF IR,S.                                   F5G00670    
                                              INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM.      F5G00680    
                                         SUCC IS FIRST DRUM TABLE.  IT IS PREPARED BY SECTION 4,      F5G00690    
                                         ORDERED ON BB NUMBER.  IT IS PING PONGED BETWEEN DRUM AND    F5G00700    
                                         CORES BY THE SE6 ROUTINE.                                    F5G00710    
                                         THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720    
                                         IS TREATED.  BITS 1-14=FREQUENCY OF LINK,  ADDRESS=NO. OF    F5G00730    
                                         SUCCESSOR BASIC BLOCK.                                       F5G00740    
                                         PRED IS THE SECOND DRUM TABLE.  IT IS PREPARED BY SECTION 4. F5G00750    
                                         PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760    
                                         CORES BY THE SE5 ROUTINE.                                    F5G00770    
                                         WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED.          F5G00780    
                                         BITS 1-14=FREQUENCY OF LINK.  BITS 15-17 CALL FOR LX,S TO    F5G00790    
                                         THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800    
                                         PRIATE INDEX CELLS.  THESE SX,S WILL LATER BE COMPILED       F5G00810    
                                         BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5.  THE ADDRESS    F5G00820    
                                         CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK.          F5G00830    
                                         BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4.   F5G00840    
                                         THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850    
                                         THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860    
                                         WORD FORMAT FROM SECTION 4.  FIRST WORD DECR=STARTING POIN,  F5G00870    
                                         IN SUCC,  ADDRESS=STARTING POINT IN PRED OF ENTRIES          F5G00880    
                                         REFERRING TO THIS BASIC BLOCK.  FIRST WORD PREFIX CONTAINS   F5G00890    
                                         CODE DESCRIBING TYPE OF ENDING BB HAS.  CODING IS....        F5G00900    
                                         000=DO WITH AN IF,  001=MSE,  010=PROBABILITY BRANCH         F5G00910    
                                         011=CERTAINTY BRANCH,  100=DO WITHOUT AN IF,  101=GO TO N,   F5G00920    
                                         110=STOP.  SECOND WORD, BITS 12-17=PERMUTATION NUMBERS,      F5G00930    
                                         INITIALIZED TO 33 BY SECTION 4.  ADDRESS=ORDINAL NUMBER OF   F5G00940    
                                         FIRST TAGLIST ENTRY BELONGING TO THIS BB.  REMAINING WORDS   F5G00950    
                                         INITIALIZED TO ZEROES BY SECTION 4.                          F5G00960    
                                         IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE.  SECOND WORD  F5G00970    
                                         BITS S-2 INDICATE IR ACTIVITY IN THIS BB.  PERMUTATION NOS.  F5G00980    
                                         MAY UNDERGO CHANGE.  WORDS 3-5 RECORD ENTRY AND EXIT CONDS.  F5G00990    
                                         FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS.      F5G01000    
                                         WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO.           F5G01010    
                                         ADDRESS=NUMBER OF NEXT BB IN REGION.                         F5G01020    
                                         STAG IS THE FOURTH DRUM TABLE.  INITIALIZED TO ZEROES AT SEC.F5G01030    
                                         5 PART 1 START.  ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040    
                                         IS MADE IN SECTION 5 PART 1 AND READ IN PART 4.  BITS S-8    F5G01050    
                                         CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION,  BITS 9-17 F5G01060    
                                         FOR AN LX FOLLOWING.  BITS 18-35 IN PAIRS SPECIFY THE INDEX  F5G01070    
                                         REGISTER TAGLIST INSTRUCTION IS TO USE.  THUS PRED RECORDS   F5G01080    
                                         INTER BB LX,S AND SX,S AN0 STAG RECORDS INTRA-BB LX,S AND    F5G01090    
                                         SX,S.  STAG IS HANOLED BY THE SE4 ROUTINE.                   F5G01100    
                                         CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD        F5G01110    
                                         FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTI0N      F5G01120    
                                         CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE       F5G01130    
                                         SYMBOLIC ADDRESS, AS FOLLOWS,   BITS 24-26 CONTAIN TAU 1,2,  F5G01140    
                                         OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150    
                                         TAU TABLE.  NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160    
                                         INDEX CELLS IS, TAU 1=G,  TAU 2=10, TAU 3=1G, AND THIS       F5G01170    
                                         SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY.  THUS A       F5G01180    
                                         TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5, THAT IS, F5G01190    
                                         TAU 3, ENTRY 5.  THE INSTRUCTION CLASSES AS FOLLOWS,  IN DECRF5G01200    
                                         L=LXA,LXD,PAX,PDX.   2=LXP.  3=DED.  4 IS UNUSED BUT AVAIL.  F5G01210    
                                         FOR TNX.  5=ACTIVE INSTR LIKE TIX AND TXI.  6=PASSIVE INSTR. F5G01220    
                                         A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE   F5G01230    
                                         OONTENTS 0F THE INDEX REGISTER.  7=UNUSED BUT AVAIL. FOR TIX.F5G01240    
                                         WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A      F5G01250    
                                         TRANSFER, NOT AN ACTIVE TIX.  ACTIVE 1NSTRUCTIONS MAY        F5G01260    
                                         BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q  F5G01270    
                                         WHERE Q IS SOME CONSTANT.                                    F5G01280    
                                         CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290    
                                         IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS.                F5G01300    
                                         GIVING DRUM TABLE LENGTHS.  TAPE TABLES USED FOR INPUT       F5G01310    
                                         INCLUDE TAGLIST AND CIT.  INTERMEDIATE TABLES INCLUDE THE    F5G01320    
                                         ABOVE AND STAG, LPLST, CMTAG, AND REG.  CMTAG IS A CORE      F5G01330    
                                         BUFFER FOR TAGLIST.  THE DRUM TABLES ALSO APPEAR IN CORE     F5G01340    
                                         IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN    F5G01350    
                                         COMBINATION 0F THE FACTORS OF LENGTH AND COMPLEXITY OF       F5G01360    
                                         TRANSFER STRUCTURE.  OUTPUT TABLES INCLUDE CIT ON TAPE.      F5G01370    
                                         TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE.  IT IS AF5G01380    
                                         SEQUENTIAL LIST OF ALL TAGGED OBJECT PR0GRAM INSTRUCTIONS    F5G01390    
                                         RESULTING FROM SECTION 3.  EACH ENTRY IS ONE WORD.  THE      F5G01400    
                                         PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS     F5G01410    
                                         CONTAINS SYMBOLIC INDEX REGISTER,S NAME.                     F5G01420    
                                              BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM       F5G01430    
                                         TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER       F5G01440    
                                         COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING.      F5G01450    
                                         IN ADDITION, SENSE SWITCH 4, WHEN 0OWN, PROVIDES UP TO       F5G01460    
                                         20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT   F5G01470    
                                         A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PROGRAM          F5G01480    
                                         EFFICIENCY.  THIS SENSE SWITCH HAS NO EFFECT ON SHORTER      F5G01490    
                                         PROGRAMS.                                                    F5G01500    
                                              IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE,    F5G01510    
                                         SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST   F5G01520    
                                         BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED  F5G01530    
                                         ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END  F5G01540    
                                         OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED.         F5G01550    
                                         IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN      F5G01560    
                                         THE FOLLOWING PARAMETER LIST MUST BE CHANGED.                F5G01570    
                                                     8-1-6-2 PARAMETER LIST                           F5G01580    
                        20000  MSIZE EQU 8192              8-1-6-2 MEMORY SIZE                        F5G01590    
                        00226    FP1 EQU 150               8-1-6-2 REG TABLE SIZE                     F5G01600    
                        00074   S3P1 EQU 60                8-1-6-2 LPLST TABLE SIZE                   F5G01610    
                        00360    STL EQU 240               8-1-6-2 STAG LENGTH                        F5G01620    
                                                   FIXED PARAMETER LIST, INDEP. OF CORESIZE           F5G01670    
                        17774   KEYS SYN MSIZE-4           CONSTANTS TO RELATE PROGRAM TO TABLES      F5G01680    
                                         ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLLOWED BY   F5G01690    
                                         PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V.        F5G01700    
                                         THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS,  F5G01710    
                                         KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG.  F5G01720    
                        00004 INSTTP EQU 4                 COMPILED INST ON TAPE 4                    F5G01730    
                        00003   TAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01740    
                        00003  OTAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01750    
                        00003    BLT EQU 3                 BLOCK LIST ON TAPE 3                       F5G01760    
                        00002  ACTPE EQU 2                 ASSIGN CONSTANTS ON TAPE 2                 F5G01770    
                        00001  RECNO EQU 1                 NO OF CIT RECORDS IN AT ONE TIME           F5G01780    
                        00144  ZINST EQU RECNO*100         LENGTH OF INST TABLE                       F5G01790    
                        00144  LCLST EQU 100               LENGTH OF OUTPUT BLOCK, COMPILED INSTR     F5G01800    
                        00200   NSXD EQU 128               NO. OF SXD CASES IN SXD LIST               F5G01810    
                        00024   PTL1 EQU 20                SPACE FOR PATCHES, PART 1                  F5G01811    
                        00051   PTL2 EQU 41                SPACE FOR PATCHES, PART 2.                 F5G01812    
                        00052   PTL3 EQU 42                SPACE FOR PATCHES, PART 3                  F5G01813    
                        00042  PTL4  EQU 34                SPACE FOR PATCHES, PART 4.                 F5G01814    
                        00000    SET EQU 0                 INITIAL DRUM ADDRESS                       F5G01820    
                        00000      K EQU 0                 INITIAL DRUM ADDRESS                       F5G01830    
                                                 EDITOR RECORD NO. 75                                 F5G01840    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G01850    
                                               NO DIAGNOSTIC CALLER FOLLOWS                           F5G01870    
                                                           PART 1A                                    F5G01880    
                                         OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N,           F5G01890    
                                         INSTRUCTION COMPILATION.                                     F5G01900    
                        00030        ORG 24                                                           F5G01910    
                                             ROUTINE TO TRANSFER NEXT                                 F5G01920    
                                               PP0GRAM PART                                           F5G01930    
       00030  0 76200 0 00221 R      RTB 1  SKIP DIAGNOSTIC                                           F5G01940    
       00031  0 02000 0 00004        TRA 4   READ NEXT PROGRAM RECORD                                 F5G01950    
                                         THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES   F5G01960    
                                         AUCC, PRED, BBB, AND STAG.  THEY ARE ENTERED WITH THE WANTED F5G01970    
                                         ITEM IN THE AC.  THEY LOAD IX1 FOR IMMEDIATE REFERENCE T0 THEF5G01980    
                                         STATED ITEM.  AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990    
                                         THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES.  IF THE   F5G02000    
                                         ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM        F5G02010    
                                         MANIPULATION IS NECESSARY.                                   F5G02020    
       00032  0 76700 0 00022 SE4    ALS 18                                                           F5G02030    
       00033 -0 32000 0 00303        ANA SEK4                                                         F5G02040    
       00034  0 07400 2 00101        TSX SE21,2                                                       F5G02050    
                                          PARAMETERS FOR STAG TABLE                                   F5G02060    
       00035  0 00000 0 00000 STAGP  HTR 0 N(0)                                                       F5G02070    
       00036  0 00000 0 00000        HTR 0 N(1)                                                       F5G02080    
       00037  0 00360 0 00000        HTR 0,0,STAGL N(S)                                               F5G02090    
       00040  0 00000 0 00000        HTR 0,0,SET N(L)                                                 F5G02100    
       00041  0 00000 0 00001        HTR 1 S                                                          F5G02110    
       00042  0 00000 0 00000        HTR SET D(0)                                                     F5G02120    
       00043  0 00000 0 05263        HTR STAG A                                                       F5G02130    
                                          PARAMETERS FOR SUCC. TABLE                                  F5G02140    
       00044 -0 32000 0 00303 SE6    ANA SEK4                                                         F5G02150    
       00045  0 07400 2 00101        TSX SE21,2                                                       F5G02160    
       00046  0 00000 0 00000  SUCCP HTR 0              N(0)                                          F5G02170    
       00047 -000000000001           OCT -1 N(1)                                                      F5G02180    
       00050  0 01037 0 00000        HTR 0,0,SUCCL N(S)                                               F5G02190    
       00051  0 00000 0 00000        HTR SET N(L)                                                     F5G02200    
       00052  0 00000 0 00001        HTR 1 S                                                          F5G02210    
       00053  0 00000 0 00000        HTR 0 D(0)                                                       F5G02220    
       00054  0 00000 0 16734        HTR SUCC A                                                       F5G02230    
                                           PARAMETERS FOR PRED. TABLE                                 F5G02240    
       00055  0 76700 0 00022 SE5    ALS 18                                                           F5G02250    
       00056 -0 32000 0 00303        ANA SEK4                                                         F5G02260    
       00057  0 07400 2 00101        TSX SE21,2                                                       F5G02270    
       00060  0 00000 0 00000  PREDP HTR 0              N(0)                                          F5G02280    
       00061 -000000000001           OCT -1 N(1)                                                      F5G02290    
       00062  0 01037 0 00000        HTR 0,0,PREDL N(S)                                               F5G02300    
       00063  0 00000 0 00000        HTR SET N(L)                                                     F5G02310    
       00064  0 00000 0 00001        HTR 1 S                                                          F5G02320    
       00065  0 00000 0 00000        HTR SET D(0)                                                     F5G02330    
       00066  0 00000 0 15674        HTR PRED A                                                       F5G02340    
                                          PARAMETERS FOR BBB TABLE                                    F5G02350    
       00067  0 76700 0 00022 SE1    ALS 18 BB NO. IN ADDR.                                           F5G02360    
       00070 -0 32000 0 00303 SE     ANA SEK4 BB NO. IN DECR.                                         F5G02370    
       00071  0 07400 2 00101        TSX SE21,2                                                       F5G02380    
       00072  0 00000 0 00000  BBBP  HTR 0              N(0) IN DECR. 1ST BB IN CM                    F5G02390    
       00073 -000000000001           OCT -1 N(1) IN DECR,LAST BB IN CM +1                             F5G02400    
       00074  0 00420 0 00000        HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM                    F5G02410    
       00075  0 00000 0 00000        HTR SET N(L) IN DECR,NO. OF BBS                                  F5G02420    
       00076  0 00000 0 00006        HTR 6 S IN ADDR.,NO. OF WDS PER BB                               F5G02430    
       00077  0 00000 0 00000        HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR.                         F5G02440    
       00100  0 00000 0 12533        HTR BBB A IN ADDR.,INITIAL CM ADDR                               F5G02450    
                                          2 ED PARAMETER IS + OR - ACCORDING                          F5G02460    
                                          AS CM BLOCK IS FULL OR EMPTY                                F5G02470    
                                          SR FOR SHUFFLING TABLES TO AND FROM DRUM                    F5G02480    
       00101  0 60100 0 00306 SE21   STO SEV2 STORE ITEM NO.,N                                        F5G02490    
       00102  0 34000 2 00002        CAS 2,2 IS N IN CM                                               F5G02500    
       00103  3 00000 0 00000        TXH -,-,-                                                        F5G02510    
       00104 -3 00000 0 00106        TXL SE42,0,-                                                     F5G02520    
       00105  0 02000 0 00156        TRA SE41 POSSIBLY                                                F5G02530    
       00106 -0 63400 4 00311 SE42   SXD SEV5,4 NO,STORE RETURN INDEX                                 F5G02540    
       00107  0 50000 2 00002        CLA 2,2                                                          F5G02550    
       00110 -0 12000 0 00120        TMI SE35 IS CM BLOCK EMPTY                                       F5G02560    
       00111  0 07400 4 00262        TSX SE22,4 NO,FORM CHECK SUM                                     F5G02570    
       00112  0 50000 0 00273        CLA SE23                                                         F5G02580    
       00113  0 62100 0 00115        STA SE24 STORE                                                   F5G02590    
       00114  0 50000 0 00307        CLA SEV3 CHECK                                                   F5G02600    
       00115  0 60100 0 00000 SE24   STO SET SUM                                                      F5G02610    
       00116  0 50000 0 00277        CLA SEK                                                          F5G02620    
       00117  0 07400 4 00166        TSX SE26,4                                                       F5G02630    
       00120  0 50000 0 00314 SE35   CLA ZERO                                                         F5G02640    
       00121  0 56000 0 00306        LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S)                            F5G02650    
       00122  0 22100 2 00003        DVP 3,2                                                          F5G02660    
       00123  0 20000 2 00003        MPY 3,2                                                          F5G02670    
       00124 -0 60000 2 00001        STQ 1,2 N(1)=MIN (N (0)+N(S),N(L))                               F5G02680    
       00125  0 50000 2 00001        CLA 1,2                                                          F5G02690    
       00126  0 40000 2 00003        ADD 3,2                                                          F5G02700    
       00127  0 56000 2 00004        LDQ 4,2                                                          F5G02710    
       00130 -0 60000 2 00002        STQ 2,2                                                          F5G02720    
       00131  0 04000 0 00133        TLQ SE36                                                         F5G02730    
       00132  0 60100 2 00002        STO 2,2                                                          F5G02740    
       00133  0 50000 0 00300 SE36   CLA SEK1 TRANSFER IN A                                           F5G02750    
       00134  0 07400 4 00166        TSX SE26,4 BLOCK OF THE TABLE                                    F5G02760    
       00135  0 07400 4 00262        TSX SE22,4 CHECK SUM                                             F5G02770    
       00136  0 50000 0 00273        CLA SE23 COMPARE                                                 F5G02780    
       00137  0 62100 0 00140        STA SE37 CHECK                                                   F5G02790    
       00140  0 50000 0 00000 SE37   CLA SET SUMS                                                     F5G02800    
       00141  0 34000 0 00307        CAS SEV3                                                         F5G02810    
       00142  0 02000 0 00144 SE45   TRA SE43                                                         F5G02820    
       00143  0 02000 0 00152        TRA SE40 AGREE                                                   F5G02630    
       00144 -0 53400 4 00151 SE43   LXD TPCT,4     REPEAT 5 TIMES                                    F5G02840    
       00145  1 00001 4 00146        TXI SE44,4,1                                                     F5G02850    
       00146 -0 63400 4 00151 SE44   SXD TPCT,4                                                       F5G02860    
       00147 -3 00004 4 00133        TXL SE36,4,4           TRY AGAIN                                 F5G02870    
       00150  0 07400 4 00004        TSX 4,4      TRIED 5 TIMES GO TO DIAGNOSTIC                      F5G02880    
                                         NOTE ON THIS 150 STOP.  THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890    
                                         BY MACHINE ERROR.                                            F5G02900    
                                         IF IX 2 CONTAINS       TABLE IS  AND CHECK                   F5G02910    
                                         77744                  STAG      40                          F5G02920    
                                         77732                  SUCC      51         ALL              F5G02930    
                                         77721                  PRED      63        OCTAL             F5G02940    
                                         77707                  BBB       75                          F5G02950    
                                         TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS             F5G02960    
                                         THAN THE CONTENTS 0F 306 OCTAL.  IF SO, SOURCE PROGRAM, RATH-F5G02970    
                                         ER THAN MACHINE ERROR IS LIKELY.  THE ERROR C0ULD BE         F5G02980    
                                         A.  TRANSFER TO A NON-EXECUTABLE INSTRUCTION.                F5G02990    
                                         B.  UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM.           F5G03000    
                                         C.  LAST STATEMENT OF A DO IS A TRANSFER.                    F5G03010    
                                         D.  INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT.    F5G03020    
       00151  0 00000 0 00000  TPCT  HTR -                                                            F5G03030    
       00152 -0 63400 0 00151 SE40   SXD TPCT,0     RESET TAPECOUNT                                   F5G03040    
       00153 -0 53400 4 00311        LXD SEV5,4 RESTORE RETURN INDEX                                  F5G03050    
       00154  0 50000 0 00306        CLA SEV2 GET N AGANIN                                            F5G03060    
       00155  0 02000 0 00156        TRA SE41                                                         F5G03070    
                                          THE ITEM MIGHT BE IN STORAGE                                F5G03080    
       00156  0 40200 2 00001 SE41   SUB 1,2 N-N(01                                                   F5G03090    
       00157 -0 12000 0 00106        TMI SE42 DOES IT LIE IN STORAGE                                  F5G03100    
       00160  0 76500 0 00043        LRS 35 YES,INDEX=                                                F5G03110    
       00161  0 20000 2 00005        MPY 5,2 COM((N-N(0).S)                                           F5G03120    
       00162  0 76300 0 00021        LLS 17                                                           F5G03130    
       00163  0 40200 0 00304        SUB SEK5                                                         F5G03140    
       00164  0 73400 1 00000        PAX 0,1                                                          F5G03150    
       00165  0 02000 4 00001        TRA 1,4                                                          F5G03160    
                                          DRUM TRANSFER SUBROUTINE PROPER                             F5G03170    
       00166 -0 63400 4 00310 SE26   SXD SEV4,4 STORE RETURN INDEX AND ITEM NO. TO BE TRANSFERRED     F5G03180    
       00167  0 60100 0 00260        STO SE25 STORE READ-WRITE INDICATOR                              F5G03190    
       00170  0 56000 2 00003        LDQ 3,2 FORM                                                     F5G03200    
       00171  0 20000 2 00005        MPY 5,2 N(S)*S+1                                                 F5G03210    
       00172  0 76300 0 00021        LLS 17 AND                                                       F5G03220    
       00173  0 40000 0 00315        ADD ONEA STORE                                                   F5G03230    
       00174  0 60100 0 00305        STO SEV1 IT                                                                  
       00175  0 50000 0 00314        CLA ZERO FORM                                                    F5G03250    
       00176  0 56000 2 00001        LDQ 1,2 ((N(O)/N(S))                                             F5G03260    
       00177  0 22100 2 00003        DVP 3,2     (N(S)(S+1))                                          F5G03270    
       00200  0 20000 0 00305        MPY SEV1                                                         F5G03280    
       00201 -0 60000 0 00305        STQ SEV1 INITIAL DRUM ADDRESS                                    F5G03290    
       00202  0 50000 2 00006        CLA 6,2 =D(0)+(NON(S))$(N(S).S=1)                                F5G03300    
       00203  0 40000 0 00305        ADD SEV1                                                         F5G03310    
       00204  0 60100 0 00313        STO SEV7 SET LDA INSTRUCTIONS                                    F5G03320    
       00205  0 76700 0 00007        ALS 7 COMPUTE THE                                                F5G03330    
       00206  0 76000 0 00006        COM  DRUM SELECTION                                              F5G03340    
       00207 -0 73400 1 00000        PDX 0,1 INDEX                                                    F5G03350    
       00210  0 07400 4 00260        TSX SE25,4 SELECT DRUM                                           F5G03360    
       00211  0 50000 2 00002        CLA 2,2                                                          F5G03370    
       00212  0 40200 2 00001        SUB 1,2 (N(1)-N(0))S                                             F5G03380    
       00213  0 76500 0 00065        LRS 53 INTO MQ                                                   F5G03390    
       00214  0 20000 2 00005        MPY 5,2                                                          F5G03400    
       00215  0 50000 0 00313        CLA SEV7 FORM NO. OF                                             F5G03410    
       00216 -0 32000 0 00301        ANA SEK2 WORDS LEFT ON                                           F5G03420    
       00217  0 40200 0 00302        SUB SEK3 DRUM GROUP                                              F5G03430    
       00220  0 76000 0 00003        SSP                                                              F5G03440    
       00221  0 04000 0 00247        TLQ SE31 MUST BLOCK BE SPLIT                                     F5G03450    
       00222  0 73400 4 00000        PAX 0,4 YES                                                      F5G03460    
       00223  0 40000 2 00007        ADD 7,2 SET INDEX AND                                            F5G03470    
       00224  0 62100 0 00236        STA SE27 COMPUTE ADDRESS OF 1ST CPY                              F5G03480    
       00225  0 40200 2 00007        SUB 7,2 COMPUTE NO.                                              F5G03490    
       00226 -0 60000 0 00305        STQ SEV1 OF WORDS IN                                             F5G03500    
       00227  0 40200 0 00305        SUB SEV1 2 ED TRANSFER                                           F5G03510    
       00230  0 40200 0 00315        SUB ONEA                                                         F5G03520    
       00231  0 76000 0 00003        SSP                                                              F5G03530    
       00232  0 60100 0 00305        STO SEV1                                                         F5G03540    
       00233  0 40000 0 00236        ADD SE27                                                         F5G03550    
       00234  0 62100 0 00243        STA SE29 SET 2 ED CPY                                            F5G03560    
       00235  0 46000 0 00313 SE28   LDA SEV7                                                         F5G03570    
       00236  0 70000 4 00000 SE27   CPY SET,4 TRANSFER                                               F5G03580    
       00237  2 00001 4 00236        TIX SE27,4,1 1ST BLOCK OF WORDS                                  F5G03590    
       00240  2 00001 1 00241        TIX SE30,1,1 DECREASE C(1) BY 1                                  F5G03600    
       00241  0 07400 4 00260 SE30   TSX SE25,4 SELECT DRUM                                           F5G03610    
       00242  0 53400 4 00305        LXA SEV1,4                                                       F5G03620    
       00243  0 70000 4 00000 SE29   CPY SET,4 TRANSFER                                               F5G03630    
       00244  2 00001 4 00243        TIX SE29,4,1 2 EDBLOCK                                           F5G03640    
       00245 -0 53400 4 00310 SE34   LXD SEV4,4                                                       F5G03650    
       00246  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G03660    
       00247  0 76300 0 00043 SE31   LLS 35 (N(1)-N(0)).S+1                                           F5G03670    
       00250  0 40000 0 00315        ADD ONEA WORDS ARE TO                                            F5G03680    
       00251  0 73400 4 00000        PAX 0,4 BE TRANSFERED                                            F5G03690    
       00252  0 40000 2 00007        ADD 7,2                                                          F5G03700    
       00253  0 62100 0 00255        STA SE32                                                         F5G03710    
       00254  0 46000 0 00313 SE33   LDA SEV7                                                         F5G03720    
       00255  0 70000 4 00000 SE32   CPY SET,4                                                        F5G03730    
       00256  2 00001 4 00255        TIX SE32,4,1                                                     F5G03740    
       00257  0 02000 0 00245        TRA SE34                                                         F5G03750    
       00260  0 76200 1 00300 SE25   RDS 192,1 (OR WRS) DRUM                                          F5G03760    
       00261  0 02000 4 00001        TRA 1,4 SELECTION SUBROUTINE.                                    F5G03770    
                                          CHECK SUM SUBROUTINE                                        F5G03780    
       00262  0 50000 2 00002 SE22   CLA 2,2                                                          F5G03790    
       00263  0 40200 2 00001        SUB 1,2 COMPUTE                                                  F5G03800    
       00264  0 76500 0 00043        LRS 35 (N(1)-N(0)).S                                             F5G03610    
       00265  0 20000 2 00005        MPY 5,2 THE NUMBER OF WORDS                                      F5G03820    
       00266  0 76300 0 00021        LLS 17 TO BE SUM                                                 F5G03830    
       00267  0 73400 1 00000        PAX 0,1 CHECKED                                                  F5G03840    
       00270  0 40000 2 00007        ADD 7,2 COMPUTE AND STORE                                        F5G03850    
                                         ADDRESS OF WORD                                              F5G03860    
       00271  0 62100 0 00273        STA SE23 FOLLOWING LAST TABLE WORD.                              F5G03870    
       00272  0 50000 0 00314        CLA ZERO CLEAR SUM CHECK.                                        F5G03880    
       00273  0 36100 1 00000 SE23   ACL -,1     FORM THE                                             F5G03890    
       00274  2 00001 1 00273        TIX SE23,1,1 SUM CHECK.                                          F5G03900    
       00275  0 60200 0 00307        SLW SEV3                                                         F5G03910    
       00276  0 02000 4 00001        TRA 1,4                                                          F5G03920    
       00277  0 76600 1 00300 SEK    WRS 192,1 WRS,192,1                                              F5G03930    
       00300  0 76200 1 00300 SEK1   RDS 192,1 RDS,192,1                                              F5G03940    
       00301  0 00000 0 03777 SEK2   HTR 2047 MASK TO EXTRACT LAST 11 BIT                             F5G03950    
       00302  0 00000 0 04000 SEK3   HTR 2048 2048 IN ADDR.                                           F5G03960    
       00303  0 77777 0 00000 SEK4   HTR 0,0,-1         IN DECR. PART                                 F5G03970    
       00304  0 00000 1 00000 SEK5   HTR 0,1 2 15                                                     F5G03980    
       00305  0 00000 0 00000  SEV1       NS.S+1 TEMP STORAGE                                         F5G03990    
       00306  0 00000 0 00000  SEV2       STORAGE OF N (DECR.)                                        F5G04000    
       00307  0 00000 0 00000  SEV3       STORAGE OF CK SUM.                                          F5G04010    
       00310  0 00000 0 00000  SEV4       RETURN FROM SE 26                                           F5G04020    
       00311  0 00000 0 00000  SEV5       RETURN FROM SE                                              F5G04030    
       00312  0 00000 0 00000  SEV6       STORE N TO BE TRANSFERRED                                   F5G04040    
       00313  0 00000 0 00000  SEV7       INITIAL DRUM ADDR.                                          F5G04050    
       00314 +000000000000    ZERO   OCT 0                                                            F5G04060    
       00315  0 00000 0 00001 ONEA   HTR 1                                                            F5G04070    
       00316  0 00001 0 00000 ONED   HTR 0,0,1                                                        F5G04080    
                                          CONSTANTS USED IN S1                                        F5G04090    
       00317  0 00006 0 00000 S1K2   HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF.                   F5G04100    
       00320  0 00000 0 00010 S1K3   HTR 8 NO. OF S3 VARIABLES SAVED.                                 F5G04110    
                        00317 C      SYN S1K2                                                         F5G04120    
       00321  0 77777 0 00000 S2K1   HTR 0,0,-1 ONES IN DECR. PART.                                   F5G04130    
       00322  0 00001 0 00000 S2K2   HTR 0,0,1 CONST. USED TO TEST FOR LX.                            F5G04140    
       00323 -377777777777    S3K1   OCT -377777777777 END LOOP LIST SENTENIAL                        F5G04150    
       00324  0 77777 7 77777 S3K2   HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS     IS BB           F5G04160    
       00325  0 00074 0 00000 S3K3   HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST                   F5G04170    
       00326 +000000777777    S3K4   OCT 777777 MASK TO EXTRACT LAST 1/2 WORD.                        F5G04180    
       00327  0 77777 0 00000 S3K5   HTR 0,0,-1 MASK TO EXTRACT INST. TYPE                            F5G04190    
                                         CONSTANTS OF S4                                              F5G04200    
       00330  0 00000 0 04615 S4K1       CMTL SIZE OF STORAGE FOR TAG TABLE.                          F5G04210    
       00331  0 00000 0 00017 S4K2   HTR 15 NO OF TAGS PER RECORD.                                    F5G04220    
       00332  0 00000 0 05716 S4K3   HTR CMTAG                                                        F5G04230    
                                          THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5               F5G04240    
       00333 +000000777776    LK1    OCT 777776 E,HASH SYMBOL                                         F5G04250    
       00334 -200000000000    LK2    OCT -200000000000 CONSTANT= FOR EXTRACTING                       F5G04260    
       00335 -300000000000    LK3    OCT -300000000000 1ST 2,3 BITS OF WORD RESPT.                    F5G04270    
                                         CONSTANTS FOR MATCHING SUBR0UTINE                            F5G04280    
       00336 +000000777777    S5K1   OCT 777777 PHI,EMPTINESS  444                                    F5G04290    
       00337 +000000777775    S5K2   OCT 777775 CONSTANT USED TO TEST-FOR REAL TAGS                   F5G04300    
       00340 -000000000000    S5K3   OCT -0 -0                                                        F5G04310    
       00341  0 00000 0 00002 S5K4   HTR 2 +2                            .1                           F5G04320    
       00342  0 00000 0 00003 S5K5   HTR 3 +3                                                         F5G04330    
       00343  0 00000 0 00010 S5K6   HTR 8 +8                                                         F5G04340    
       00344  0 00000 0 00004 S9K1   HTR 4 +4                                                         F5G04350    
       00345  0 00000 1 00000 S9K2       0,1 MASK FOR PHI DIGIT NO. 1                                 F5G04360    
       00346  0 00000 2 00000            0,2 MASK FOR PHI DIGIT NO. 2                                 F5G04370    
       00347  0 00000 4 00000            0,4 MASK FOR PHI DIGIT NO. 3                                 F5G04380    
       00350  0 00003 0 00000 S9K3   HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR.                        F5G04390    
       00351  0 00000 0 07776 SAK1       4094            CONST  USED TO TEST NON EXISTENT BB          F5G04400    
                                         CONSTANTS 0F SB                                              F5G04410    
       00352 +001000000000    SBK1   OCT +001000000000 CONST. USED T0 GENERATE SX BIT. AD.            F5G04420    
       00353  0 00000 0 77777 SBK2   HTR -1 USED TO EXTRACT ADDR.                                     F5G04430    
       00354  0 00004 0 00000 SBK3   HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER                 F5G04440    
       00355  0 04741 0 00000 SCK1   HTR 0,0,LPLST                                                    F5G04450    
       00356 +177777077777    FK1    OCT 177777077777           TRANSPARANT REGION CONST              F5G04460    
       00357 +277777077777    FK2    OCT 277777077777       OPAQUE REGION CONST                       F5G04470    
       00360  0 00000 7 00000 FK3    HTR 0,7 MASK TO EXTRACT TAG.                                     F5G04480    
       00361 +177777777777    FK4    OCT 177777777777 CONST TO TEST FOR OPAQUE REG.                   F5G04490    
       00362  0 00000 0 00226 FK5    HTR FP1 LENGTH OF REGION LIST                                    F5G04500    
       00363 -000000000000    XK3    OCT -0 3 CONSTANTS USED TO                                       F5G04510    
       00364 +200000000000           OCT 200000000000 CHANGE REGION WDS.                              F5G04520    
       00365 +100000000000           OCT 100000000000 TO INDICATE IRS LX ED.                          F5G04530    
       00366 -377776000000    XK4    OCT -377776000000 E,HASH SYMBOL,IN LQT HALF                      F5G04540    
       00367 -300000000000    XK5    OCT -300000000000 MASK FOR PREFIX                                F5G04550    
       00370 +200000000000    XK6    OCT 200000000000                                                 F5G04560    
       00371  0 00000 0 00011 XK9    HTR 9                                                            F5G04570    
                        00363 XK10   SYN XK3 MASK TO EXTRACT 1ST IN BB FIT.                           F5G04580    
       00372 +000001000000    XK11   OCT 1000000 CONST. TO GENERAGE LX BIT.                           F5G04590    
       00373  0 00005 0 00000 XK12   HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE                      F5G04600    
       00374  0 00004 0 00000 XK13   HTR 0,0,4 TNX                                                    F5G04610    
       00375  0 00007 0 00000 XK14   HTR 0,0,7 TIX                                                    F5G04620    
       00376  0 00002 0 00000 XK15   HTR 0,0,2 LXP                                                    F5G04630    
       00377  0 00000 4 00000 XK16   HTR 0,4 CONST. TO GENERATE LX BIT.                               F5G04640    
       00400  1 00000 0 00000 XK17   PON              CONST. TO SEPARATE TYPES                        F5G04650    
                        00366 XK18   SYN XK4 E IN LEFT HALF WORD.                                     F5G04660    
       00401 -377777000000    XK19   OCT -377777000000 MASK LEFT HALF WORD.                           F5G04670    
       00402 -377700777777    XK20   OCT -377700777777 CONST. TO DELETE PERM. NOS.                    F5G04680    
       00403  0 00003 0 00000 XK21   HTR 0,0,3 CONST. TO TEST FOR DED INST.                           F5G04690    
       00404 -377777077777    XK22   OCT -377777077777 CONST. TO DELETE PHIS.                         F5G04700    
       00405  0 00000 1 00000 XK23   HTR 0,1                                                          F5G04710    
       00406  0 00000 2 00000        HTR 0,2                                                          F5G04720    
       00407  0 00000 4 00000        HTR 0,4                                                          F5G04730    
       00410  0 00000 0 00000  S1V1       TEMP. STORAGE FOR                                           F5G04740    
       00411  0 00000 0 00000        HTR -                                                            F5G04750    
       00412  0 00000 0 00000        HTR -              1ST 9 VARIABLES                               F5G04760    
       00413  0 00000 0 00000        HTR -              IN S3                                         F5G04770    
       00414  0 00000 0 00000        HTR -                                                            F5G04780    
       00415  0 00000 0 00000        HTR -                                                            F5G04790    
       00416  0 00000 0 00000        HTR -                                                            F5G04800    
       00417  0 00000 0 00000        HTR -                                                            F5G04810    
       00420  0 00000 0 00000  S1V3                     THE CLA IN S3                                 F5G04820    
       00421  0 00000 0 00000  S1V4                     RETURN INDEX                                  F5G04830    
       00422  0 00000 0 00000  S1V5                     (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R.       F5G04840    
       00423  0 00000 0 00000  S1V6                     TEMP                                          F5.04850    
       00424  0 00000 0 00000  S1V7                     STORAGE                                       F5G04860    
                                         THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS,   F5G04870    
                                         AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880    
                                         SYMBOL 777776. IHASH MEANS THE REGISTER IS NOT EMPTY BUT     F5G04890    
                                         ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900    
                                         DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910    
                                         IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920    
       00425  0 00000 0 00000  IR1                      THE 3 I.R.S IN                                F5G04930    
       00426  0 00000 0 00000  IR2                      THE LAST 1/2 OF REGISTER                      F5G04940    
       00427  0 00000 0 00000  IR3                                                                    F5G04950    
       00430  0 00000 0 00000  IRR                      HOLDS 3,2,1 IF IR1,2,3 SELECTED               F5G04960    
       00431  0 00000 0 00000 IND1        + OR - ACCORDING AS IR1 FOUND OR IR1 NOT FOUND              F5G04970    
       00432  0 00000 0 00000 IND2       + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND               F5G04980    
       00433  0 00000 0 00000 IND3       + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND               F5G04990    
       00434  0 00000 0 00000  IN4                  +F OR - IF IR HAS OR HASNT BEEN FOUND             F5G05000    
                                          VARIABLES OF S3 SUBROUTINE                                  F5G05010    
       00435  0 00000 0 00000  S3V1       LOCATION OF 1ST TAG IN BB                                   F5G05020    
       00436  0 00000 0 00000  S3V2       TAG COUNTER,IN DECR. PART.                                  F5G05030    
       00437  0 00000 0 00000  S3V3       + NO. OF TAGS LEFT IN BB AFTER TIX,OR-                      F5G05040    
       00440  0 00000 0 00000  S3V4       LOOP LIST INDEX.                                            F5G05050    
       00441  0 00000 0 00000  1TAG       THE TAN-TAG                                                 F5G05060    
       00442  0 00000 0 00000  TPE        THE TYPE OF INSTR.                                          F5G05070    
       00443  0 00000 0 00000  INTAG      TAG + INSTR. TYPE (ENTRY IN TAG LIST)                       F5G05080    
       00444  0 00000 0 00000  S3V5       LOOP LIST QUANTITY                                          F5G05090    
       00445  0 00000 0 00000  S3V8       RETURN INDEX                                                F5G05100    
       00446  0 00000 0 00000  S3V6       (1ST TAG IN BB-1ST TAG IN C.M.)                             F5G05110    
       00447  0 00000 0 00000  S3V7       NO. OF WORDS LEFT IN C.M.                                   F5G05120    
       00450  0 00000 0 00000  S3V9       (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB)                  F5G05130    
                                          VARIABLES OF S4                                             F5G05140    
       00451  0 00000 0 00000  S4V1       LOC OF 1ST TAG IN CMTAG                                     F5G05150    
       00452  0 00000 0 00000  S4V2       LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.)                   F5G05160    
       00453  0 00000 0 00000  S4V3       (LOC OF LAST TAG)+ 1                                        F5G05170    
                                          ABOVE MUST BE SET AT START.                                 F5G05180    
       00454  0 00000 0 00000  S4V4       (LOC. OF 1ST TAG IN BB-POS OF TAPE)                         F5G05190    
                                          VARIABLES FOR MATCHING SUBROUTINE S5                        F5G05200    
       00455  0 00000 0 00000 IR4         TEMP. STORAGE FOR C (IR1)                                   F5G05210    
       00456  0 00000 0 00000 IR5         TEMP. STORAGE FOR C (IR2)                                   F5G05220    
       00457  0 00000 0 00000 IR6         TEMP. STORAGE FOR C (IR3)                                   F5G05230    
       00460  0 00000 0 00000 ENC         COUNTER OF =                                                F5G05240    
       00461  0 00000 0 00000 IRC         COUNTER OF =                                                F5G05250    
                                         THE IN 1,2,3,  EN4,5,6 CELLS ARE LOADED BY THE S5 R0UTINE    F5G05260    
                                         FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN   F5G05270    
                                         ALREADY TREATED REGI0N UPON ENTRY TO THIS REGION IN LPLST.   F5G05280    
                                         OPTIMIZED MATCH T0 CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290    
                                         PERMUTING THE ENTIRE REGION AS NECESSARY.  THE IN1,2,3       F5G05300    
                                         AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3,  EX1,2,3 F5G05310    
                                         ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3,   F5G05320    
                                         AC1,2,3,  LX1,2,3.  FOR EXAMPLE EN4 IS 3,2,OR1 DEPENDING ON  F5G05330    
                                         WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3.  INVERSELY, F5G05340    
                                         IN1 IS 3,2,OR1 FOR THE CORRESPONDENT OF IR1 EQUAL TO EN1,2,3.F5G05350    
       00462  0 00000 0 00000 IN1         INDEX OF CORRES 0F IR1                                      F5G05360    
       00463  0 00000 0 00000 IN2         INDEX OF CORRES OF IR2                                      F5G05370    
       00464  0 00000 0 00000 IN3         INDEX OF CORRES OF IR3                                      F5G05380    
       00465  0 00000 0 00000 EN4         INDEX OF CORRES 0F EN1                                      F5G05390    
       00466  0 00000 0 00000 EN5         INDEX OF CORRES OF EN2                                      F5G05400    
       00467  0 00000 0 00000 EN6         INDEX OF CORRES OF EN3                                      F5G05410    
       00470  0 00000 0 00000 EN1         THE ENTRANCE REQUIREM                                       F5G05420    
       00471  0 00000 0 00000 EN2         ENTS EN1,ENZ,EN3.                                           F5G05430    
       00472  0 00000 0 00000 EN3                                                                     F5G05440    
       00473  0 00000 0 00000 S5V1        TEMP. STORE FOR RETURN INDEX.                               F5G05450    
       00474  0 00000 0 00000 S5V2        TEMP STORE FOR LOOP LIST QUANT.                             F5G05460    
       00475  0 00000 0 00000 S9V1        TEMP. STORE FOR BB NO.                                      F5G05470    
       00476  0 00000 0 00000 S9V2        TEMP. STORE FOR RETURN INDEX                                F5G05480    
       00477  0 00000 0 00000 S9V4        TEMP. STORE FOR REGION WORD.                                F5G05490    
                                          VARIABLES 0F SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS)    F5G05500    
       00500  0 00000 0 00000 SAV1        TEMP STORE FOR PERMUTATION NOS.                             F5G05510    
       00501  0 00000 0 00000 SAV2        RETURN INDEX.                                               F5G05520    
       00502  0 00000 0 00000 SAV3        TEMP. STORE FOR REGION WORD.                                F5G05530    
                                         THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540    
                                         HAS ALREADY BEEN TREATED.                                    F5G05550    
       00503  0 00000 0 00000 EX1         3 EXIT CONDITIONS                                           F5G05560    
       00504  0 00000 0 00000 EX2                                                                     F5G05570    
       00505  0 00000 0 00000 EX3                                                                     F5G05580    
                                         THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590    
       00506  0 00000 0 00000 ACT1        3 ACTIVE                                                    F5G05600    
       00507  0 00000 0 00000        HTR -              INDICATORS                                    F5G05610    
       00510  0 00000 0 00000        HTR -                                                            F5G05620    
                                          VARIABLES OF SB                                             F5G05630    
       00511  0 00000 0 00000 SBV1        RETURN INDEX                                                F5G05640    
       00512  0 00000 0 00000 SBV2        TEMP. STORAGE.                                              F5G05650    
       00513  0 00000 0 00000 SBV3        TEMP. STORAGE.                                              F5G05660    
       00514  0 00000 0 00000 SBV4        INDEX OF REGISTER WHICH IS ACTIVE.                          F5G05670    
       00515  0 00000 0 00000 SBV5        STORAGE FOR PERMUTATION NOS.                                F5G05680    
       00516  0 00000 0 00000 SCV1        RETURN INDEX                                                F5G05690    
       00517  0 00000 0 00000 SCV2        INDEX OF BB.                                                F5G05700    
       00520  0 00000 0 00000 SCV3        INDEX OF POSITION IN LOOP LIST                              F5G05710    
       00521  0 00000 0 00000 ACIND                 + OR - MEANS 2ED OR ACTIVE PASS                   F5G05720    
       00522  0 00000 0 00000 SDV1        STORE FOR RETURN INDEX.                                     F5G05730    
       00523  0 00000 0 00000 SDV2        INDEX OF ACTIVE I.R.                                        F5G05740    
       00524  0 00000 0 00000 SDV3        THE PERMUTATION NOS.                                        F5G05750    
       00525  0 00000 0 00000 SDV4        TEMP. STORE FOR INDEX OF BB                                 F5G05760    
       00526  0 00000 0 00000 SFV1        ACTIVE INDICATOR FORMED HERE.                               F5G05770    
       00527  0 00000 0 00000 SFV2        RETURN INDEX.                                               F5G05780    
       00530  0 00000 0 00000 SGV1                       RETURN INDEX                                 F5G05790    
       00531  0 00000 0 00000 SGV2                       PERMUTED REGION WORD                         F5G05800    
       00532  0 00000 0 00000 FV1         HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY)            F5G05810    
       00533  0 00000 0 00000 FV2         BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.)                   F5G05820    
       00534  0 00000 0 00000 FV3         PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.)                   F5G05830    
       00535  0 00000 0 00000 FV4         WORD HAVING REGION NO. (5TH BB WORD)                        F5G05840    
       00536  0 00000 0 00000 FV5         CURRENT BB NO. BEING CONSIDERED. (ADDR.)                    F5G05850    
       00537  0 00000 0 00000 FV6         RETURN INDEX OF F1,F80                                      F5G05860    
       00540  0 00000 0 00000 FV7         PRED. NO. BEING CONSIDERED IN B.B. (ADDR.)                  F5G05870    
       00541  0 00000 0 00000 FV8         FIRST PRED. FROM NEXT B.B. (ADDR.)                          F5G05880    
       00542  0 00000 0 00000 FV9        0,0,-    TEMP STORE FORCURRENT SUCC IN DECR ONLY             F5G05890    
       00543  0 00000 0 00000 FV10       0,0,-     TEMP STORE IN DECR ONLY, CURRENT SUCC              F5G05900    
       00544  0 00000 0 00000 FV101       HIGHEST FREQ. IN BB (PRED. TABLE ENTRY)                     F5G05910    
       00545  0 00000 0 00000 FV102       BB NO. BEING CONSIDERED. (ADDR.)                            F5G05920    
       00546  0 00000 0 00000 FV103       PRED. NO. (0TH WORD FROM BB) (ADDR.)                        F5G05930    
       00547  0 00000 0 00000 FV104       WORD HAVING REGION. NO.                                     F5G05940    
       00550  0 00000 0 00000 LPIND                   + OR - IF IT ISNT 0F IS A LOOP                  F5G05950    
       00551  0 00000 0 00000 LV1         THE CONDITIONS OF THE I.R.S                                 F5G05960    
       00552  0 00000 0 00000 LV2         AT END OF THE                                               F5G05970    
       00553  0 00000 0 00000 LV3         1ST LXING PASS.                                             F5G05980    
       00554  0 00000 0 00000 LV4         THE LOOP LIST QUANTITY                                      F5G05990    
       00555  0 00000 0 00000 LV5         WORD FROM BB WITH PRED. AND SUCC. LOCS                      F5G06000    
                                          VARIABLES OF 2ED LXING PASS.                                F5G06010    
                                         ACTIVITY.  WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS,   F5G06020    
                                         IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX  F5G06030    
                                         REGISTER BECOMES ACTIVE.  THIS IS PLUS ACTIVITY.  IF THE SAMEF5G06040    
                                         REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED  F5G06050    
                                         TO RECORD AN SX NECESSARY.  SINCE THE ACTIVITY IS PLUS, THE  F5G06060    
                                         SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE     F5G06070    
                                         INSTRUCTION.  THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING   F5G06080    
                                         CARE OF THE PROBLEM.  AT THE END OF LPLST, IF THE INDEX      F5G06090    
                                         REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE     F5G06100    
                                         REGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110    
                                         IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120    
                                         MINUS.  THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED.  THE F5G06130    
                                         APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE        F5G06140    
                                         APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150    
                                         THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB    F5G06160    
                                         ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM  F5G06170    
                                         THAT BB.  THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180    
                                         INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190    
                                         0F SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW      F5G06200    
                                         FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT     F5G06210    
                                         PROGRAM TIME.                                                F5G06220    
                                         THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3.   F5G06230    
                                         ZERO...NOT ACTIVE,  PLUS ACTIVITY...ACTIVE INSTRUCTION IN A  F5G06240    
                                         BB NOT TREATED UNTIL THIS LPLST.  AC1,2,3 CONTAINS INFO.     F5G06250    
                                         FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION.       F5G06260    
                                         MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION.    F5G06270    
                                         AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK   F5G06280    
                                         OUT OF THE REGION.                                           F5G06290    
       00556  0 00000 0 00000 AC1         3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE                     F5G06300    
       00557  0 00000 0 00000 AC2         IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS               F5G06310    
       00560  0 00000 0 00000 AC3         LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE,      F5G06320    
       00561  0 00000 0 00000        HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR.          F5G06330    
                                         THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340    
       00562  0 00000 0 00000 LX1         3 ENTRANCE REQUIREMENTS OF A BB                             F5G06350    
       00563  0 00000 0 00000 LX2         BUILT UP HERE. +0 MEANS                                     F5G06360    
       00564  0 00000 0 00000 LX3         NO ENTRANCE REQU. DETERMINED.                               F5G06370    
       00565  0 00000 0 00000 XV1         IN DECR., INDEX OF CURRENT REGION                           F5G06380    
       00566  0 00000 0 00000 XV2         THE NEW REGION WORD.                                        F5G06390    
       00567  0 00000 0 00000 XV3         THE WORD POSITION IN STAG                                   F5G06400    
       00570  0 00000 0 00000 XV4         THE DIGIT INDEX WITHIN THE WORD.                            F5G06410    
       00571  0 00000 0 00000 XV5         THE LOCATION OF CURRENT TAG (INSTR.)                        F5G06420    
       00572  0 00000 0 00000 XV6         NEAR XO7,C.F. OF TNX BRANCH,NEAR X85, TAG                   F5G06430    
       00573  0 00000 0 00000 XV7         X07 TO X09+,INDEX OF BB,NEAR X85,TAG                        F5G06440    
       00574  0 00000 0 00000 XV8         INDEX OF BB NE-R X33                                        F5G06450    
                                         PERMUTATION.  WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN  F5G06460    
                                         ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AND BBB MUST F5G06470    
                                         BE UPDATED.  INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION     F5G06480    
                                         NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING    F5G06490    
                                         REQUIRES ONLY THESE NUMBERS TO BE CHANGED.  IN SECTION 5 PARTF5G06500    
                                         2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES  F5G06510    
                                         THEMSELVES ARE ACTUALLY UPDATED.                             F5G06520    
       00575  0 00000 0 00000 XV9         THE PERMUTATION NOS.                                        F5G06530    
       00576  0 00000 0 00000 XV10        INDEX OF I.R. IN BB CONSIDERED.                             F5G06540    
       00577  0 00000 0 00000 XV11                                                                    F5G06550    
       00600  0 00000 0 00000 XV12                                                                    F5G06560    
       00601  0 00000 0 00000 XV13        INDEX OF PARTICULAR BB X40 ON                               F5G06570    
       00602  0 00000 0 00000 XV14        TEMP. STORE FOR 2 INDEXES                                   F5G06580    
       00603  0 00000 0 00000 XV15        WHILE USING SUBROUTINE.                                     F5G06590    
       00604  0 00000 0 00000 XV16        TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON                 F5G06600    
       00605  0 00000 0 00000 XV17        TEMP. STORE FOR OLD REGION WD.,X74                          F5G06610    
       00606  0 00000 0 00000 XV18        IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR.                   F5G06620    
       00607  0 00000 0 00000 XV19           TEMP STORE FOR PREVIOUS LPLST QUANTITY                   F5G06630    
       00610  0 00000 0 00000 XV20              TEMP STORE IN DECR. ONLY                              F5G06640    
       00611  0 00000 0 00000 XV21              TEMP STORE FOR TAG NEAR X43                           F5G06650    
       00612  0 00000 0 00000 XV22             NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED       F5G06660    
       00613  0 00000 0 00000 XV23            DECR ONLY , TEMP STORE FOR REGION INDEX                 F5G06670    
       00614  0 00000 0 00000 XV24                     0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION     F5G06680    
       00615  0 00000 0 00000 AV1         TEMP. STORE FOR PRED. TABLE ENTRY.                          F5G06690    
       00616  0 00000 0 00000 AV2         TEMP. STORE FOR INDEX OF I.R.                               F5G06700    
       00617  0 00000 0 00000 AV3         TEMP. STORE FOR PERM. NOS.                                  F5G06710    
                                         THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST   F5G06720    
                                         (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD         F5G06730    
                                         THROUGH LPLST.  THE IR WHOSE CONTENTS ARE REQUIRED AGAIN     F5G06740    
                                         SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE.  THESE       F5G06750    
                                         R0UTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO      F5G06760    
                                         SELECT AN IR.                                                F5G06770    
       00620 -0 76000 0 00003 S111   SSM  SET INDICATOR TO-MEANING                                    F5G06780    
       00621  0 02000 0 00623        TRA S109 SEARCH FOR LEAST REPLACEABLE I.R.                       F5G06790    
       00622  0 76000 0 00003 S1     SSP  SET INDICATOR TO + MEANING                                  F5G06800    
       00623  0 60100 0 00422 S109   STO S1V5 SEARCH FOR MOST REPLACEABLE I.R.                        F5G06810    
       00624 -0 63400 4 00421        SXD S1V4,4 STORE RETURN INDEX.                                   F5G06820    
       00625 -0 76000 0 00003        SSM  SET                                                         F5G06830    
       00626  0 60100 0 00431        STO IND1 INDICATORS                                              F5G06840    
       00627  0 60100 0 00432        STO IND2 TO                                                      F5G06850    
       00630  0 60100 0 00433        STO IND3 NOT                                                     F5G06860    
       00631  0 60100 0 00434        STO IN4 FOUND.                                                   F5G06870    
       00632 -0 53400 2 00641        LXD S123,2 SET TO LO0P FOR EMPTY I.R.                            F5G06880    
       00633  0 53400 1 00342 S119   LXA S5K5,1        SET COUNT TO 3, N TO 1                         F5G06890    
       00634  0 50000 1 00430 S120   CLA IR1+3,1 IS IRN EMPTY OR                                      F5G06900    
       00635  0 34000 2 00000        CAS 0,2 (FILLED WITH HASH)                                       F5G06910    
       00636 -3 77445 0 00640 S121   TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR.                   F5G06920    
       00637  0 02000 0 00644        TRA S124 YES,                                                    F5G06930    
       00640  2 00001 1 00634 S122   TIX S120,1,1 NO,C0UNT TO 3,N=N+1                                 F5G06940    
       00641  3 77442 2 00662 S123   TXH S127,2,-S5K1 HAVE WE LOOKED FOR HASH                         F5G06950    
       00642 -0 53400 2 00636        LXD S121,2 NO,SET TO LOOP FOR HASH.                              F5G06960    
       00643  0 02000 0 00633        TRA S119                                                         F5G06970    
       00644  0 50200 0 00422 S124   CLS S1V5 LOOKING FOR MOST REPLACEABLE                            F5G06980    
       00645 -0 12000 0 00656        TMI S129 I.R.                                                    F5G06990    
       00646  0 60100 1 00434        STO IND1+3,1 NO, RECORD IRN ELIMINATED                           F5G07000    
       00647  0 56000 0 00434        LDQ IN4                                                          F5G07010    
       00650  0 60100 0 00434        STO IN4 RECORD SOME IR ELIMINATED                                F5G07020    
       00651  0 16200 0 00653        TQP S128 HAS AN IR BEEN ELIMINATED BEFORE                        F5G07030    
       00652  0 02000 0 00640        TRA S122                                NO,                      F5G07040    
       00653  0 53400 1 00342 S128   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G07050    
       00654  0 50000 1 00434 S126   CLA IND1+3,1 HAS IRN                                             F5G07060    
       00655  0 12000 0 00660        TPL S125 BEEN ELIMINATED                                         F5G07070    
       00656 -0 63400 1 00430 S129   SXD IRR,1 NO,SELECT IRN                                          F5G07080    
       00657  0 02000 4 00001        TRA 1,4 AND RETURN.                                              F5G07090    
       00660  2 00001 1 00654 S125   TIX S126,1,1 COUNT TO 3,N=N+1                                    F5G07100    
       00661  0 07400 4 00004 S130   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR.                           F5G07110    
       00662  0 50000 0 01122 S127   CLA S39                                                          F5G07120    
       00663  0 60100 0 00420        STO S1V3 STORE ASIDE                                             F5G07130    
       00664  0 53400 4 00320        LXA S1K3,4 THE                                                   F5G07140    
       00665  0 50000 4 00445 S112   CLA S3V1+8,4 STATE                                               F5G07150    
       00666  0 60100 4 00420        STO S1V1+8,4 OF THE                                              F5G07160    
       00667  2 00001 4 00665        TIX S112,4,1 S3 ROUTINE.                                         F5G07170    
       00670  0 07400 4 01023 S11    TSX S3,4 GET NEXT TAG                                            F5G07180    
       00671  0 02000 0 00706        TRA S103 COME HERE IF TAG NOT GOT.                               F5G07190    
       00672  0 50000 0 00410        CLA S1V1                                                         F5G07200    
       00673  0 34000 0 00435        CAS S3V1 IS THE LOOP C0MPLETED                                   F5G07210    
       00674  0 02000 0 00676        TRA S104 NO                                                      F5G07220    
       00675  0 02000 0 00701        TRA S135 PERHAPS                                                 F5G07230    
       00676  0 07400 4 00766 S104   TSX S2,4 NO                                                      F5G07240    
       00677  0 02000 0 00745        TRA S16 COME HERE IF IR DECIDED ON                               F5G07250    
       00700  0 02000 0 00670        TRA S11 COME HERE IF NOT DECIDED ON                              F5G07260    
       00701  0 50000 0 00411 S135   CLA S1V1+1 IS THE LOOP COMPLETED                                 F5G07270    
       00702  0 34000 0 00436        CAS S3V2                                                         F5G07280    
       00703  0 02000 0 00676        TRA S104                                                         F5G07290    
       00704  0 02000 0 00741        TRA S102 YES                                                     F5G07300    
       00705  0 02000 0 00676        TRA S104                                                         F5G07310    
       00706  0 34000 0 00323 S103   CAS S3K1 IS THIS AN END LOOP LIST                                F5G07320    
       00707  0 02000 0 00711        TRA S105 NO                                                      F5G07330    
       00710  0 02000 0 00763        TRA S101 YES                                                     F5G07340    
       00711  0 50000 0 00444 S105   CLA S3V5 GET LOOP LIST QUANTITY AGAIN.                           F5G07350    
       00712  0 34000 0 00324        CAS S3K2 IS IT A BB                                              F5G07360    
       00713  0 76100 0 00000        NOP  NO,IT IS EITHER A TRANSPARENT                               F5G07370    
       00714  0 02000 0 00716        TRA P001              OR OPAQUE REGION                           F5G07380    
       00715  0 02000 0 00670        TRA S11 YES                                                      F5G07390    
       00716  0 34000 0 00417   P001 CAS S1V1+7                                                       F5G07400    
       00717  0 02000 0 00721        TRA S136                                                         F5G07410    
       00720  0 02000 0 00741        TRA S102                                                         F5G07420    
       00721  0 07400 4 00070 S136   TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU.                       F5G07430    
       00722  0 56000 0 00317        LDQ S1K2 MAKE THIS LOOK LIKE A                                   F5G07440    
       00723 -0 60000 0 00442        STQ TPE PASSIVE REFERENCE.                                       F5G07450    
       00724  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3.                                       F5G07460    
       00725 -0 50000 1 12535 S115   CAL BBB+2,1     PUT THIS TAU TAG                                 F5G07470    
       00726  0 77100 0 00022        ARS 18 IN LOCATION                                               F5G07480    
       00727  0 60200 0 00441        SLW 1TAG           TAG                                           F5G07490    
       00730 -0 63400 1 00423        SXD S1V6,1 STORE THE                                             F5G07500    
       00731 -0 63400 4 00424        SXD S1V7,4 INDEXES.                                              F5G07510    
       00732  0 07400 4 00766        TSX S2,4 TRY TO SELECT AN I.R.                                   F5G07520    
       00733  0 02000 0 00745        TRA S16 COME HERE IF I.R. SELECTED.                              F5G07530    
       00734 -0 53400 1 00423        LXD S1V6,1 AND HERE IF NOT. RESTORE                              F5G07540    
       00735 -0 53400 4 00424        LXD S1V7,4 THE INDEXES.                                          F5G07550    
       00736  1 77777 1 00737        TXI S114,1,-1     DECREASE ENTR. INDEX                           F5G07560    
       00737  2 00001 4 00725 S114   TIX S115,4,1 COUNT TO 3.                                         F5G07570    
       00740  0 02000 0 00670        TRA S11                                                          F5G07580    
       00741  0 50000 0 00431 S102   CLA IND1 HAS C(IR1) BEEN                                         F5G07590    
       00742  0 12000 0 00756        TPL S13 FOUND (ELIMINATED)                                       F5G07600    
       00743  0 53400 4 00342 S18    LXA S5K5,4 NO,SELECT                                             F5G07610    
       00744 -0 63400 4 00430 S15    SXD IRR,4 IR1.                                                   F5G07620    
       00745  0 53400 4 00320 S16    LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR)                          F5G07630    
       00746  0 50000 4 00420 S113   CLA S1V1+8,4 TO STATE                                            F5G07640    
       00747  0 60100 4 00445        STO S3V1+8,4 BEFORE                                              F5G07650    
       00750  2 00001 4 00746        TIX S113,4,1 S1 WAS USED.                                        F5G07660    
       00751  0 50000 0 00420        CLA S1V3                                                         F5G07670    
       00752  0 60100 0 01122        STO S39                                                          F5G07680    
       00753  0 07400 4 01133        TSX S4,4 MAKE SURE SAME TAGS ARE IN CM.                          F5G07690    
       00754 -0 53400 4 00421        LXD S1V4,4                                                       F5G07700    
       00755  0 02000 4 00001 S14    TRA 1,4 RETURN                                                   F5G07710    
       00756  0 50000 0 00432 S13    CLA IND2 HAS IR2 BEEN                                            F5G07720    
       00757  0 12000 0 00762        TPL S107 FOUND (ELIMINATED)                                      F5G07730    
       00760  0 53400 4 00341 S108   LXA S5K4,4 NO,SELECT                                             F5G07740    
       00761  0 02000 0 00744        TRA S15 IR2.                                                     F5G07750    
       00762  0 07400 4 00004 S107   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR                            F5G07760    
                                          OF SOME KIND.                                               F5G07770    
       00763  0 56000 0 00550 S101   LDQ LPIND IS THIS                                                F5G07780    
       00764  0 16200 0 00741        TQP S102 A LOOP                                                  F5G07790    
       00765  0 02000 0 00670        TRA S11 YES                                                      F5G07800    
       00766  0 50000 0 00441  S2    CLA 1TAG           PUT TAU-TAG IN AC.                            F5G07810    
       00767  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3.                                       F5G07820    
       00770  0 56000 1 00434 S22    LDQ IND1+3,1                                                     F5G07830    
       00771  0 16200 0 00775        TQP S21 BEEN FOUND                                               F5G07840    
       00772  0 34000 1 00430        CAS IR1+3,1     NO, IS TAU TAG EQUAL                             F5G07850    
       00773  0 02000 0 00775        TRA S21 NO,TO C(IRN)                                             F5G07860    
       00774  0 02000 0 00777        TRA S24 YES                                                      F5G07870    
       00775  2 00001 1 00770 S21    TIX S22,1,1 NO.                                                  F5G07880    
       00776  0 02000 4 00002        TRA 2,4 RETURN TO L(TSX)+2                                       F5G07890    
       00777  0 50000 0 00442    S24 CLA TPE               IS IT A DED, LXP, OR LX CLASS.             F5G07900    
       01000  0 34000 0 00403        CAS XK21              IF SO, MAKE P=1, MAKING TEST=TMI S25       F5G07910    
       01001 -0 50100 0 00340        ORA S5K3              WHILE IF SO MAKE TEST TPL S25.             F5G07920    
       01002  0 76100 0 00000        NOP                   THUS GO TO S23 AND USE IT IF LXP,DED,LX    F5G07930    
       01003  0 63000 0 01005        STP TEST              AND TAGS LEFT IN BB AFTER TIX, OR          F5G07940    
       01004  0 50200 0 00422        CLS S1V5              IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950    
       01005 -0 12000 0 01010   TEST TMI S25               THIS MIGHT BE A TPL S25.                   F5G07960    
       01006 -0 63400 1 00430 S23    SXD IRR,1 RECORD IRN INDEX.                                      F5G07970    
       01007  0 02000 4 00001        TRA 1,4                                                          F5G07980    
       01010  0 56000 0 00314 S25    LDQ ZERO      RECORD IRN FOUND OR ELIM                           F5G07990    
       01011 -0 60000 1 00434        STQ IND1+3,1                                                     F5G08000    
       01012  0 50200 0 00434        CLS IN4       HAS ONE OTHER I R BEEN                             F5G08010    
       01013 -0 12000 0 01016        TMI S26 (FOUND/ELIM)                                             F5G08020    
       01014  0 60100 0 00434        STO IN4                                                          F5G08030    
       01015  0 02000 4 00002        TRA 2,4                                                          F5G08040    
       01016  0 53400 1 00342 S26    LXA S5K5,1 SEARCH FOR THE                                        F5G08050    
       01017  0 50000 1 00434 S27    CLA IND1+3,1 I.R. WHICH HASNT                                    F5G08060    
       01020 -0 12000 0 01006        TMI S23 BEEN (FOUND/ELIM) YET.                                   F5G08070    
       01021  2 00001 1 01017        TIX S27,1,1                                                      F5G08080    
       01022  0 07400 4 00004        TSX 4,4   NOT FOUND, DIAGNOSTIC                                  F5G08090    
                                         THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES.   F5G08100    
                                         IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES  F5G08110    
                                         THE TAG FEED EXIT.  IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120    
                                         LPLST AND TAKES THE LPLST FEED EXIT.  WHEN IT COMES TO A     F5G08130    
                                         EPLST ITEM  WHICH IS A BB AND NOT IN A REGION, IT GOES TO    F5G08140    
                                         FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150    
                                         THAT BB HAS BEEN FED.  THEN IT RETURNS T0 LPLST FEED.  WHEN  F5G08160    
                                         SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE     F5G08170    
                                         BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE.  IT USES   F5G08180    
                                         THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190    
       01023 -0 53400 1 00436 S3     LXD S3V2,1 ARE THERE ANY                                         F5G08200    
       01024  2 00001 1 01122        TIX S39,1,1                                                      F5G08210    
       01025 -0 63400 4 00445        SXD S3V8,4 NO,STORE RETURN INDEX                                 F5G08220    
       01026  0 50000 0 00437        CLA S3V3                                                         F5G08230    
       01027  0 60100 0 00450        STO S3V9                                                         F5G08240    
       01030  0 12000 0 01114        TPL S300 ARE THERE ANY MORE TAGS IN BB                           F5G08250    
       01031 -0 53400 1 00440        LXD S3V4,1 NO                                                    F5G08260    
       01032  0 50000 0 00444        CLA S3V5       WAS THE LAST THING                                F5G08270    
       01033  0 12000 0 01035        TPL S306       AN END LPLST                                      F5G08280    
       01034 -0 53400 1 00325        LXD S3K3,1     YES, RESET LPLST IN0EX                            F5G08290    
       01035  0 50000 1 05035 S306   CLA LPLST+S3P1,1      GET LOOP LIST QUANTITY                     F5G08300    
       01036  0 60100 0 00444        STO S3V5 QUANT1TY.                                               F5G08310    
       01037  1 77777 1 01040        TXI S31,1,-1                                                     F5G08320    
       01040 -0 63400 1 00440 S31    SXD S3V4,1 THE INDEX.                                            F5G08330    
       01041  0 34000 0 00323        CAS S3K1 IS THIS END OF LOOP LIST                                F5G08340    
       01042  0 02000 0 01044        TRA S32 NO,                                                      F5G08350    
       01043  0 02000 0 01052        TRA S35 YES,                                                     F5G08360    
       01044  0 34000 0 00324 S32    CAS S3K2                                                         F5G08370    
       01045  0 76100 0 00000        NOP  NO                                                          F5G08380    
       01046  0 02000 0 01050        TRA S305                                                         F5G08390    
       01047  0 02000 0 01053        TRA S34 YES                                                      F5G08400    
       01050 -0 53400 4 00445 S305   LXD S3V8,4                                                       F5G08410    
       01051  0 50000 0 00444        CLA S3V5 RETURN WITH LOOP                                        F5G08420    
       01052  0 02000 4 00001 S35    TRA 1,4        LIST QUANTITY                                     F5G08430    
       01053  0 07400 4 00070 S34    TSX SE,4 GET INDEX OF BB                                         F5G08440    
       01054  0 50000 1 12534        CLA BBB+1,1                                                      F5G08450    
       01055 -0 32000 0 00326        ANA S3K4 GET AND STORE THE                                       F5G08460    
       01056  0 60100 0 00435 S303   STO S3V1 TAG LOCATION.                                           F5G08470    
       01057  0 07400 4 01133        TSX S4,4 GO TO PUT TAG IN CM.                                    F5G08480    
       01060  0 60100 0 00446        STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.)                      F5G08490    
       01061  0 40200 0 00330        SUB S4K1 FORM NO. OF                                             F5G08500    
       01062  0 76000 0 00003        SSP  WDS LEFT IN C.M.                                            F5G08510    
       01063  0 60100 0 00447        STO S3V7                                                         F5G08520    
       01064  0 50000 0 00444        CLA S3V5 GET THE                                                 F5G08530    
       01065  0 40000 0 00316        ADD ONED LOC. OF 1ST                                             F5G08540    
       01066  0 07400 4 00070        TSX SE,4 TAG IN                                                  F5G08550    
       01067  0 50000 1 12534        CLA BBB+1,1 NEXT BB.                                             F5G08560    
       01070 -0 32000 0 00326        ANA S3K4                                                         F5G08570    
       01071  0 40200 0 00435        SUB S3V1 IS NO. OF TAGS IN BB LESS                               F5G08580    
       01072  0 34000 0 00447        CAS S3V7 THAN OR EQUAL TO SPACE IN C.M.                          F5G08590    
       01073  0 02000 0 01076        TRA S304                                                         F5G08600    
       01074  0 02000 0 01117        TRA S36 YES,                                                     F5G08610    
       01075  0 02000 0 01117        TRA S36 YES,                                                     F5G08620    
       01076  0 40200 0 00447 S304   SUB S3V7      STORE S  EXCESS OF TAGS                            F5G08630    
       01077  0 60100 0 00437        STO S3V3                                                         F5G08640    
       01100  0 50000 0 00447        CLA S3V7                                                         F5G08650    
       01101  0 73400 1 00000 S302   PAX 0,1 SET COUNT OF NO. OF TAGS.                                F5G08660    
       01102  1 00001 1 01103 S37    TXI S38,1,1                                                      F5G08670    
       01103 -0 63400 1 00436 S38    SXD S3V2,1                                                       F5G08680    
       01104  0 40000 0 00332        ADD S4K3 SET ADDRESS OF                                          F5G08690    
       01105  0 40000 0 00446        ADD S3V6 CLA                                                     F5G08700    
       01106  0 62100 0 01122        STA S39 INSTRUCTION.                                             F5G08710    
       01107 -0 53400 4 00445        LXD S3V8,4                                                       F5G08720    
       01110  0 50000 0 00450        CLA S3V9 IS THIS A                                               F5G08730    
       01111  0 12000 0 01023        TPL S3 NEW BB                                                    F5G08740    
       01112  0 50000 0 00444        CLA S3V5 YES,RETURN WITH                                         F5G08750    
       01113  0 02000 4 00001        TRA 1,4 LOOP LIST QUANTITY.                                      F5G08760    
       01114  0 50000 0 00451 S300   CLA S4V1 NEXT TAG NEEDED HAS                                     F5G08770    
       01115  0 40000 0 00330        ADD S4K1 LOC. (S+1ST TAG IN C.M.)                                F5G08780    
       01116  0 02000 0 01056        TRA S303                                                         F5G08790    
       01117  0 56000 0 00323 S36    LDQ S3K1                                                         F5G08800    
       01120 -0 60000 0 00437        STQ S3V3                                                         F5G08810    
       01121  0 02000 0 01101        TRA S302                                                         F5G08820    
       01122  0 50000 1 00000 S39    CLA -,1 GET TAG WORD                                             F5G08830    
       01123 -0 63400 1 00436        SXD S3V2,1                                                       F5G08840    
       01124  0 60100 0 00443        STO INTAG AND                                                    F5G08850    
       01125 -0 32000 0 00326        ANA S3K4 SEPARATE TYPE                                           F5G08860    
       01126  0 60100 0 00441        STO 1TAG           FROM                                          F5G08870    
       01127 -0 50000 0 00327        CAL S3K5 TAU-TAG.                                                F5G08880    
       01130 -0 32000 0 00443        ANA INTAG                                                        F5G08890    
       01131  0 60100 0 00442        STO TPE                                                          F5G08900    
       01132  0 02000 4 00002        TRA 2,4                                                          F5G08910    
       01133  0 50000 0 00435 S4     CLA S3V1 FORM (LOC. OF 1ST TAG IN BB                             F5G08920    
       01134  0 40200 0 00451        SUB S4V1 -LOC. OF 1ST TAG IN CM)                                 F5G08930    
       01135 -0 12000 0 01142        TMI S41 IS TAG IN C.M.                                           F5G08940    
       01136  0 34000 0 00330        CAS S4K1 POSSIBLY,IS IT FOR SURE                                 F5G08950    
       01137  0 76100 0 00000        NOP  NO                                                          F5G08960    
       01140  0 02000 0 01142        TRA S41       NO                                                 F5G08970    
       01141  0 02000 4 00001        TRA 1,4 YES. RETURN.                                             F5G08980    
       01142  0 50000 0 00435 S41    CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB                          F5G08990    
       01143  0 40200 0 00452        SUB S4V2 -POSITION OF TAPE)                                      F5G09000    
       01144 -0 12000 0 01166        TMI S42 MUST WE RUN TAPE BACK WORDS                              F5G09010    
       01145  0 60100 0 00454        STO S4V4 NO,                                                     F5G09020    
       01146  0 50000 0 00453        CLA S4V3 CAN ALL THE FOLLOWING TAGS                              F5G09030    
       01147  0 40200 0 00452        SUB S4V2 BE PUT IN C.M.                                          F5G09040    
       01150  0 34000 0 00330        CAS S4K1                                                         F5G09050    
       01151  0 02000 0 01154        TRA S401    NO                                                   F5G09060    
       01152  0 02000 0 01173        TRA S45 YES,GO,TO SET COUNT                                      F5G09070    
       01153  0 02000 0 01173        TRA S45 YES,TO NO. OF TAGS IN BB.                                F5G09080    
       01154  0 50000 0 00454 S401   CLA S4V4                                                         F5G09090    
       01155  0 34000 0 00331        CAS S4K2 IS TAG IN NEXT RECORD                                   F5G09100    
       01156  0 76100 0 00000        NOP  NO                                                          F5G09110    
       01157  0 02000 0 01161        TRA S47                                                          F5G09120    
       01160  0 02000 0 01172        TRA S44 YES                                                      F5G09130    
       01161  0 76200 0 00223 S47    RTB TAPE       NO, SPACE FWD 1 REC.                              F5G09140    
       01162  0 50000 0 00452        CLA S4V2 ADJUST TAPE POSITION                                    F5G09150    
       01163  0 40000 0 00331        ADD S4K2                                                         F5G09160    
       01164  0 60100 0 00452 S43    STO S4V2                                                         F5G09170    
       01165  0 02000 0 01142        TRA S41                                                          F5G09180    
       01166  0 76400 0 00203 S42    BST TAPE ADJUST TAPE POSITION                                    F5G09190    
       01167  0 50000 0 00452        CLA S4V2 AFTER BACKSPACING                                       F5G09200    
       01170  0 40200 0 00331        SUB S4K2 ONE RECORD.                                             F5G09210    
       01171  0 02000 0 01164        TRA S43                                                          F5G09220    
       01172  0 50000 0 00330 S44    CLA S4K1 SET COUNT TO STORAGE SIZE.                              F5G09230    
       01173  0 73400 2 00000 S45    PAX 0,2                                                          F5G09240    
       01174  0 40000 0 00332        ADD S4K3 SET CPY                                                 F5G09250    
       01175  0 62100 0 01207        STA S46 ADDRESS.                                                 F5G09=60    
       01176  0 50000 0 00452        CLA S4V2                                                         F5G09270    
       01177  0 60100 0 00451        STO S4V1                                                         F5G09280    
       01200  0 76200 0 00223 S49    RTB TAPE                                                         F5G09290    
       01201 -0 63400 2 01210        SXD S407,2 STORE (2) IN CASE OF TAPE CHECK                       F5G09300    
       01202 -0 76000 0 00012        RTT  TURN OFF TAPE                                               F5G09310    
       01203  0 76100 0 00000        NOP  CHECK.                                                      F5G09320    
       01204  0 50000 0 00452        CLA S4V2 ADJUST                                                  F5G09330    
       01205  0 40000 0 00331        ADD S4K2 TAPE                                                    F5G09340    
       01206  0 60100 0 00452        STO S4V2 POSIT1ON                                                F5G09350    
       01207  0 70000 2 00000 S46    CPY -,2                                                          F5G09360    
       01210  1 00000 0 01216 S407   TXI S48,0,- VALUE OF (2) STORED HERE                             F5G09370    
       01211  0 07400 4 00004        TSX 4,4 END OF FILE OCCURRED,DIAGNOSTIC                          F5G09380    
       01212 -0 63400 4 01244        SXD S405,4                                                       F5G09390    
       01213  0 07400 4 01226        TSX S406,4 CHECK REDUNDANCY BITS                                 F5G09400    
       01214 -0 53400 4 01244        LXD S405,4                                                       F5G09410    
       01215  0 02000 0 01200        TRA S49                                                          F5G09420    
       01216  2 00001 2 01207 S48    TIX S46,2,1 COUNT NO. OF WORDS CPYED.                            F5G09430    
       01217  0 70000 0 00454 S409   CPY S4V4 COPY OUT TO                                             F5G09440    
       01220  0 02000 0 01217        TRA S409 END OF RECORD.                                          F5G09450    
       01221  0 07400 4 00004        TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC                         F5G09460    
       01222 -0 63400 4 01244        SXD S405,4 CHECK REDUNDANCY BITS                                 F5G09470    
       01223  0 07400 4 01226        TSX S406,4                                                       F5G09480    
       01224 -0 53400 4 01244        LXD S405,4                                                       F5G09490    
       01225  0 02000 0 01133        TRA S4                                                           F5G09500    
       01226  0 76600 0 00333 S406   IOD                                                              F5G09510    
       01227 -0 76000 0 00012        RTT                                                              F5G09520    
       01230  0 02000 0 01233        TRA S402  TRY AGAIN                                              F5G09530    
       01231 -0 63400 0 00151        SXD TPCT,0   RESETS REPEAT COUNT                                 F5G09540    
       01232  0 02000 4 00001 S404   TRA 1,4 RETURN                                                   F5G09550    
       01233  0 76400 0 00203 S402   BST TAPE PREPARE TO READ AGAIN                                   F5G09560    
       01234 -0 53400 2 00151        LXD TPCT,2 FIVE TIMES                                            F5G09570    
       01235  1 00001 2 01236        TXI S402A,2,1                                                    F5G09580    
       01236 -0 63400 2 00151 S402A  SXD TPCT,2                                                       F5G09590    
       01237 -3 00004 2 01241        TXL S402B,2,4 GO ON                                              F5G09600    
       01240  0 07400 4 00004        TSX 4,4  NO GOOD,DIAGNOSTIC                                      F5G09610    
       01241 -0 53400 2 01210 S402B  LXD S407,2 RESET INDEX                                           F5G09620    
       01242  0 76200 0 00223        RTB TAPE                                                         F5G09630    
       01243 -0 53400 4 01244        LXD S405,4                                                       F5G09640    
       01244  1 00000 0 01207 S405   TXI S46,0,- RETURN ADDR. STORED HERE                             F5G09650    
                                         TNE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660    
                                         OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED   F5G09670    
                                         IN LPLST.  IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680    
                                         THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND      F5G09690    
                                         EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5.  S5 USES F5G09700    
                                         S1,S111,S6,S7,S9, AS SUBROUTINES.                            F5G09710    
       01245 -0 63400 4 00473 S5     SXD S5V1,4     STORE RETURN INDEX                                F5G09720    
       01246  0 60100 0 00474        STO S5V2 STORE LOOP LIST QUANTITY                                F5G09730    
       01247  0 07400 4 01466        TSX S9,4 GET THE ENTRANCE                                        F5G09740    
                                          REQUIREMENTS                                                F5G09750    
       01250  0 50000 0 00340        CLA S5K3                                                         F5G09760    
       01251  0 53400 2 00343        LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL            F5G09770    
       01252  0 60100 2 00470 S51    STO ENC+8,2       STORE -0S IN THE                               F5G09780    
       01253  2 00001 2 01252        TIX S51,2,1 REGISTERS.                                           F5G09790    
       01254  0 53400 1 00342        LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09800    
       01255  0 53400 2 00342 S54    LXA S5K5,2      SET INDEX FOR IR1, M EQUALS 1                    F5G09810    
       01256  0 50000 1 00473        CLA EN1+3,1                                                      F5G09820    
       01257  0 34000 0 00336        CAS S5K1 IS ENN EMPTY                                            F5G09830    
       01260  0 02000 0 01262        TRA S55 NO                                                       F5G09840    
       01261  0 02000 0 01427        TRA S58 YES                                                      F5G09850    
       01262  0 56000 2 00465 S55    LDQ IN1+3,2 NO                                                   F5G09860    
       01263  0 16200 0 01267        TQP S56 IS IRM ASSIGNED                                          F5G09870    
       01264  0 34000 2 00430        CAS IR1+3,2 NO,IS C(ENM)=C(IRM)                                  F5G09880    
       01265  0 02000 0 01267        TRA S56 NO.                                                      F5G09890    
       01266  0 02000 0 01433        TRA S59 YES.                                                     F5G09900    
       01267  2 00001 2 01262 S56    TIX S55,2,1 NO. THRU WITH IRS                                    F5G09910    
       01270  2 00001 1 01255 S57    TIX S54,1,1 YES. THRU WITH ENS                                   F5G09920    
       01271  0 53400 2 00342        LXA S5K5,2 YES,SET INDEX FOR IR1,M=1                             F5G09930    
       01272  0 53400 1 00342 S510   LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09940    
       01273  0 50000 2 00430        CLA IR1+3,2                                                      F5G09950    
       01274  0 34000 0 00336        CAS S5K1 IS IRM EMPTY                                            F5G09960    
       01275  0 02000 0 01277        TRA S511 NO                                                      F5G09970    
       01276  0 02000 0 01310        TRA S513 YES                                                     F5G09980    
       01277  0 56000 2 00465 S511   LDQ IN1+3,2 NO                                                   F5G09990    
       01300  0 16200 0 01320        TQP S514 IS IRM ASSIGNED                                         F5G10000    
       01301  0 34000 0 00337        CAS S5K2 NO,IS C(IRM)REAL                                        F5G10010    
       01302  0 02000 0 01320        TRA S514 NO,                                                     F5G10020    
       01303  0 02000 0 01320        TRA S514 NO,                                                     F5G10030    
       01304  0 50000 0 00461 S512   CLA IRC INCREASE REAL                                            F5G10040    
       01305  0 40000 0 00315        ADD ONEA UNASSIGNED TAG                                          F5G10050    
       01306  0 60100 0 00461        STO IRC COUNTER.                                                 F5G10060    
       01307  0 02000 0 01320        TRA S514                                                         F5G10070    
       01310  0 50000 1 00470 S513   CLA EN4+3,1 HAS ENN                                              F5G10080    
       01311  0 12000 0 01317        TPL S537 BEEN ASSIGNED                                           F5G10090    
       01312  0 56000 0 00337        LDQ S5K2 NO,IS C(ENN)                                            F5G10100    
       01313  0 50000 1 00473        CLA EN1+3,1 REAL                                                 F5G10110    
       01314  0 04000 0 01317        TLQ S537                                                         F5G10120    
       01315  0 07400 4 01443        TSX S6,4 YES,MAKE IRM=ENN                                        F5G10130    
       01316  0 02000 0 01320        TRA S514                                                         F5G10140    
       01317  2 00001 1 01310 S537   TIX S513,1,1 ARE WE THRU WITH EN S                               F5G10150    
       01320  2 00001 2 01272 S514   TIX S510,2,1 YES, ARE WE THRU WITH IRS                           F5G10160    
       01321  0 50000 0 00460        CLA ENC YES.                                                     F5G10170    
       01322 -0 12000 0 01327        TMI S515 ARE THERE NO EMPTY ENS                                  F5G10180    
       01323  0 34000 0 00341        CAS S5K4 HOW MANY EMPTY ENS.                                     F5G10190    
       01324  0 02000 0 01327        TRA S515     3  OR 0                                             F5G10200    
       01325  0 02000 0 01343        TRA S520 2 EMPTY EN                                              F5G10210    
       01326  0 02000 0 01366        TRA S526 1 EMPTY EN                                              F5G10220    
       01327  0 53400 1 00342 S515   LXA S5K5,1 3 OR 0 EMPTY EN,N=1                                   F5G10230    
       01330  0 53400 2 00342 S519   LXA S5K5,2 M=1                                                   F5G10240    
       01331  0 50000 1 00470        CLA EN4+3,1                                                      F5G10250    
       01332  0 12000 0 01340        TPL S516 ENN ASSIGNED                                            F5G10260    
       01333  0 50000 2 00465 S518   CLA IN1+3,2 NO,IRM                                               F5G10270    
       01334  0 12000 0 01337        TPL S517 ASSIGNED                                                F5G10280    
       01335  0 07400 4 01443        TSX S6,4 NO,MAKE IRM=IRN                                         F5G10290    
       01336  0 02000 0 01340        TRA S516                                                         F5G10300    
       01337  2 00001 2 01333 S517   TIX S518,2,1                                                     F5G10310    
       01340  2 00001 1 01330 S516   TIX S519,1,1                                                     F5G10320    
       01341 -0 53400 4 00473        LXD S5V1,4                                                       F5G10330    
       01342  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G10340    
       01343  0 50000 0 00461 S520   CLA IRC                                                          F5G10350    
       01344  0 34000 0 00341        CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS               F5G10360    
       01345  0 02000 0 01350        TRA S536                                                         F5G10370    
       01346  0 02000 0 01405        TRA S531 1,NO,GO MATCH EMPTY ENS                                 F5G10380    
       01347  0 02000 0 01405        TRA S531 2,NO. WITH ANY REAL UNASS. IRS                          F5G10390    
       01350  0 07400 4 01450 S536   TSX S7,4    3, YES, TO COPY  IRS, ETC.                           F5G10400    
       01351  0 07400 4 00622        TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G10410    
       01352  0 53400 1 00342        LXA S5K5,1                                                       F5G10420    
       01353  0 07400 4 01435        TSX S595,4                                                       F5G10430    
       01354  0 50000 1 00473 S521   CLA EN1+3,1 IS EN                                                F5G10440    
       01355  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G10450    
       01356  0 02000 0 01360        TRA S522 NO                                                      F5G10460    
       01357  2 00001 1 01354        TIX S521,1,1 INDEX COUNTER OF IR S                               F5G10470    
       01360  0 07400 4 01443 S522   TSX S6,4 MADE ENN = IRM                                          F5G10480    
       01361  0 53400 1 00342 S529   LXA S5K5,1                                                       F5G10490    
       01362  0 50000 1 00460 S525   CLA IR4+3,1    REPLACE THE IRS                                   F5G10500    
       01363  0 60100 1 00430        STO IR1+3,1                                                      F5G10510    
       01364  2 00001 1 01362        TIX S525,1,1                                                     F5G10520    
       01365  0 02000 0 01327        TRA S515                                                         F5G10530    
       01366  0 56000 0 00461 S526   LDQ IRC                                                          F5G10540    
       01367  0 50000 0 00341        CLA S5K4 ARE THERE 2 OR 3 REAL                                   F5G10550    
       01370  0 04000 0 01403        TLQ S530 UNASSNED TAGS                                           F5G10560    
       01371  0 07400 4 01450        TSX S7,4 YES,COPY IRS                                            F5G10570    
       01372  0 07400 4 00620        TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R.                       F5G10580    
       01373  0 07400 4 01435        TSX S595,4                                                       F5G10590    
       01374  0 53400 1 00342        LXA S5K5,1 ASSIGN THE EMPTY                                      F5G10600    
       01375  0 50000 1 00473 S527   CLA EN1+3,1 EN TO THE IR                                         F5G10610    
       01376  0 34000 0 00336        CAS S5K1 SELECTED                                                F5G10620    
       01377  0 02000 0 01401        TRA S528                                                         F5G10630    
       01400  0 07400 4 01443        TSX S6,4 BY                                                      F5G10640    
       01401  2 00001 1 01375 S528   TIX S527,1,1 S111.                                               F5G10650    
       01402  0 02000 0 01361        TRA S529                                                         F5G10660    
       01403  0 16200 0 01405 S530   TQP S531 IS THERE ONE REAL TAG                                   F5G10670    
       01404  0 02000 0 01327        TRA S515 NO,GO MATCH ARBITRARILY.                                F5G10680    
       01405  0 53400 1 00342 S531   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G10690    
       01406  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,M=1                                    F5G10700    
       01407  0 50000 1 00473 S532   CLA EN1+3,1 IS ENN                                               F5G10710    
       01410  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G10720    
       01411  0 02000 0 01413        TRA S533 NO,                                                     F5G10730    
       01412  0 02000 0 01415        TRA S534 YES,                                                    F5G10740    
       01413  2 00001 1 01407 S533   TIX S532,1,1 NO,THRU WITH ENS                                    F5G10750    
       01414  0 02000 0 01327        TRA S515 YES.                                                    F5G10760    
       01415  0 50000 2 00465 S534   CLA IN1+3,2                                                      F5G10770    
       01416  0 12000 0 01425        TPL S535                                                         F5G10780    
       01417  0 50000 2 00430        CLA IR1+3,2 NO                                                   F5G10790    
       01420  0 34000 0 00337        CAS S5K2 IS C (IRM) REAL                                         F5G10800    
       01421  0 76100 0 00000        NOP  N0                                                          F5G10810    
       01422  0 02000 0 01425        TRA S535                                                         F5G10820    
       01423  0 07400 4 01443        TSX S6,4 YES                                                     F5G10830    
       01424  0 02000 0 01327        TRA S515                                                         F5G10840    
       01425  2 00001 2 01415 S535   TIX S534,2,1 NO                                                  F5G10850    
       01426  0 02000 0 01413        TRA S533                                                         F5G10860    
       01427  0 50000 0 00460 S58    CLA ENC YESENM EMPTY                                             F5G10870    
       01430  0 40000 0 00315        ADD ONEA INCREASE COUNTER                                        F5G10880    
       01431  0 60100 0 00460        STO ENC OF NO. OF EMPTY ENS.                                     F5G10890    
       01432  0 02000 0 01270        TRA S57                                                          F5G10900    
       01433  0 07400 4 01443 S59    TSX S6,4 MAKE IRM=ENN                                            F5G10910    
       01434  0 02000 0 01270        TRA S57                                                          F5G10920    
       01435 -0 53400 2 00430 S595   LXD IRR,2                                                        F5G10930    
       01436  0 50000 2 00430        CLA IR1+3,2                                                      F5G10940    
       01437  0 34000 0 01465        CAS S7K1                                                         F5G10950    
       01440  0 02000 4 00001        TRA 1,4                                                          F5G10960    
       01441  0 02000 0 01361        TRA S529                                                         F5G10970    
       01442  0 02000 4 00001        TRA 1,4                                                          F5G10980    
       01443 -0 75400 1 00000 S6     PXD 0,1                                                          F5G10990    
       01444  0 60100 2 00465        STO IN1+3,2                                                      F5G11000    
       01445 -0 75400 2 00000        PXD 0,2                                                          F5G11010    
       01446  0 60100 1 00470        STO EN4+3,1                                                      F5G11020    
       01447  0 02000 4 00001        TRA 1,4                                                          F5G11030    
       01450  0 53400 1 00342 S7     LXA S5K5,1 SET COUNT TO 3,M=1                                    F5G11040    
       01451  0 50000 1 00430 S71    CLA IR1+3,1 COPY ASIDE C(IRM)                                    F5G11050    
       01452  0 60100 1 00460        STO IR4+3,1                                                      F5G11060    
       01453  0 56000 1 00465        LDQ IN1+3,1 IRM ASSIGNED                                         F5G11070    
       01454  0 16200 0 01461        TQP S72                                                          F5G11080    
       01455  0 34000 0 00337        CAS S5K2 NO, IS C(IRM) REAL                                      F5G11090    
       01456  0 76100 0 00000        NOP                                                              F5G11100    
       01457  0 02000 0 01461        TRA S72 NO                                                       F5G11110    
       01460  0 02000 0 01463        TRA S73 YES.                                                     F5G11120    
       01461  0 50000 0 01465 S72    CLA S7K1 NO,REPLACE C(IRM)                                       F5G11130    
       01462  0 60100 1 00430        STO IR1+3,1 BY IMPOSSIBLE TAG.                                   F5G11140    
       01463  2 00001 1 01451 S73    TIX S71,1,1 COUNT TO 3,M=M+1                                     F5G11150    
       01464  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G11160    
       01465 +000000777760    S7K1   OCT 777760 IMPOSSIBLE TAG VALUE.                                 F5G11170    
                                         THE S9 SUBROUTINE LOADS EN1,2,3.                             F5G11180    
       01466 -0 63400 4 00476 S9     SXD S9V2,4 STORE RETURN INDEX.                                   F5G11190    
       01467  0 07400 4 00070        TSX SE,4 MAKE SURE BB IS IN C+M+                                 F5G11200    
       01470  0 50000 1 12540        CLA BBB+5,1 GET AND                                              F5G11210    
       01471 -0 73400 2 00000        PDX 0,2 STORE THE                                                F5G11220    
       01472  0 50000 2 05263        CLA REG,2 REGION                                                 F5G11230    
       01473  0 60100 0 00477        STO S9V4 WORD+                                                   F5G11240    
       01474  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G11250    
       01475  0 50000 1 12534        CLA BBB+1,1 STORE THE WORD                                       F5G11260    
       01476  0 60100 0 00475        STO S9V1 CONTAINING THE PERMATATION NOS.                         F5G11270    
       01477  0 50000 0 00475 S92    CLA S9V1 EXTRACT THE N TH                                        F5G11280    
       01500  0 77100 2 00003        ARS 3,2 PERMUTATION NO.                                          F5G11290    
       01501  0 77100 2 00003        ARS 3,2 AND PUT IT                                               F5G11300    
       01502 -0 32000 0 00350        ANA S9K3 IN                                                      F5G11310    
       01503 -0 73400 4 00000        PDX 0,4 INDEX 4.                                                 F5G11320    
       01504 -0 50000 0 00477        CAL S9V4 IS THIS                                                 F5G11330    
       01505 -0 32000 4 00350        ANA S9K2+3,4 AN EMPTY                                            F5G11340    
       01506  0 10000 0 01515        TZE S93 I.R.                                                     F5G11350    
       01507  0 50000 0 00336        CLA S5K1 YES,STORE EMPTINESS SYMBOL                              F5G11360    
       01510  0 60100 4 00473 S94    STO EN1+3,4                                                      F5G11370    
       01511  1 77777 1 01512        TXI S91,1,-1      DOWN THE ENTR. INDEX                           F5G11380    
       01512  2 00001 2 01477 S91    TIX S92,2,1 COUNT TO 3                                           F5G11390    
       01513 -0 53400 4 00476        LXD S9V2,4                                                       F5G11400    
       01514  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G11410    
       01515 -0 50000 1 12535 S93    CAL BBB+2,1 SET THE                                              F5G11420    
       01516  0 77100 0 00022        ARS 18 ENTRANCE REQUIREMENT.                                     F5G11430    
       01517  0 34000 0 00336        CAS S5K1 IS IT AN EMPTINESS SYMBOL                               F5G11440    
       01520  0 02000 0 01510        TRA S94 NO,                                                      F5G11450    
       01521  0 50000 0 00333        CLA LK1 YES,STORE E,(HASH SYMBOL).                               F5G11460    
       01522  0 02000 0 01510        TRA S94 NO,                                                      F5G11470    
                                         THE SA SUBROUTINE LOADS EX1,2,3 ANO ACT1,2,3 FROM EXIT       F5G11480    
                                         CONDITIONS AND ACTIVITY BITS (PREFIX, WORD 2, BBB) OF THE    F5G11490    
                                         EXIT BB IN A REGION.                                         F5G11500    
       01523 -0 63400 4 00501 SA     SXD SAV2,4 STORE RETURN INDEX.                                   F5G11510    
       01524 -0 32000 0 00353        ANA SBK2         IF THIS IS AN IMPOSSIBLE BB,                    F5G11520    
       01525  0 56000 0 00351        LDQ SAK1         RETURN AT ONCE, DOING NOTHING                   F5G11530    
       01526  0 04000 4 00001        TLQ 1,4                                                          F5G11540    
       01527  0 07400 4 00067        TSX SE1,4 MAKE SURE BB IS IN CM.                                 F5G11550    
       01530  0 50000 1 12540        CLA BBB+5,1 GET AND                                              F5G11560    
       01531 -0 73400 2 00000        PDX 0,2 STORE                                                    F5G11570    
       01532  0 50000 2 05263        CLA REG,2 REGION                                                 F5G11580    
       01533  0 60100 0 00502        STO SAV3 WORD.                                                   F5G11590    
       01534  0 50000 1 12534        CLA BBB+1,1 GET AND STORE THE                                    F5G11600    
       01535  0 60100 0 00500        STO SAV1 WORD HAVING PERMUTATION N0S.                            F5G11610    
       01536  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=N+1                                  F5G11620    
       01537 -0 50000 0 00500 SA1    CAL SAV1 PUT PERMUTATION                                         F5G11630    
       01540  0 77100 2 00003        ARS 3,2 NUMBER                                                   F5G11640    
       01541  0 77100 2 00003        ARS 3,2 IN                                                       F5G11650    
       01542 -0 32000 0 00350        ANA S9K3 INDEX 4                                                 F5G11660    
       01543 -0 73400 4 00000        PDX 0,4                                                          F5G11670    
       01544 -0 50000 0 00502        CAL SAV3 IS THIS                                                 F5G11680    
       01545 -0 32000 4 00350        ANA S9K2+3,4 AN EMPTY                                            F5G11690    
       01546  0 10000 0 01560        TZE SA2 EXIT                                                     F5G11700    
       01547  0 50000 0 00336        CLA S5K1 YES,STORE EMPTINESS SYMBOL.                             F5G11710    
       01550  0 60100 4 00506 SA4    STO EX1+3,4                                                      F5G11720    
       01551 -0 50000 0 00500 SA5    CAL SAV1       STORE THE                                         F5G11730    
       01552  0 76700 2 00003        ALS 3,2 ACTIVE                                                   F5G11740    
       01553  0 60200 4 00511        SLW ACT1+3,4        INDICATOR                                    F5G11750    
       01554  1 77777 1 01555        TXI SA3,1,-1                                                     F5G11760    
       01555  2 00001 2 01537 SA3    TIX SA1,2,1 COUNT TO 3                                           F5G11770    
       01556 -0 53400 4 00501        LXD SAV2,4                                                       F5G11780    
       01557  0 02000 4 00001        TRA 1,4          RETURN                                          F5G11790    
       01560 -0 50000 1 12535 SA2    CAL BBB+2,1                                                      F5G11800    
       01561 -0 32000 0 00326        ANA S3K4 IS THIS                                                 F5G11810    
       01562  0 34000 0 00336        CAS S5K1 AN EMPTY SYMBOL                                         F5G11820    
       01563  0 02000 0 01550        TRA SA4 NO                                                       F5G11830    
       01564  0 50000 0 00333        CLA LK1 YES REPLACE BY E.                                        F5G11840    
       01565  0 02000 0 01550        TRA SA4 NO                                                       F5G11850    
                                         THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860    
                                         COMPILATION.  THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS   F5G11870    
                                         EXAMINED.  IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB     F5G11880    
                                         ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE    F5G11890    
                                         LINK OUT OF THE REGION.  IF IT IS POSITIVE (ACTIVE INSTRUC.  F5G11900    
                                         IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG     F5G11910    
                                         TABLE AT THE ACTIVE INSTRUCTION.  THE APPROPRIATE AC1,2, OR 3F5G11920    
                                         IS ALSO TURNED OFF BY SB.                                    F5G11930    
       01566 -0 63400 1 00514 SB     SXD SBV4,1 STORE INDEX OF ACTIVE I.R+                            F5G11940    
       01567 -0 63400 4 00511        SXD SBV1,4 STORE INDEX OF RETURN,                                F5G11950    
       01570  0 50000 1 00561        CLA AC1+3,1 IS THE ACTIVE THING                                  F5G11960    
       01571  0 12000 0 01641        TPL SB1 AN INSTRUCTION                                           F5G11970    
       01572 -0 73400 1 00000        PDX 0,1 N0                                                       F5G11980    
       01573  0 50000 1 05035        CLA LPLST+S3P1,1 GET + STORE                                     F5G11990    
       01574  0 34000 0 00324        CAS S3K2 PRED. BB                                                F5G12000    
       01575  0 76100 0 00000        NOP                                                              F5G12010    
       01576  0 02000 0 01600        TRA SB01                                                         F5G12020    
       01577  0 77100 0 00022        ARS 18 NO                                                        F5G12030    
       01600  0 62100 0 00513 SB01   STA SBV3                                                         F5G12040    
       01601  0 50000 1 05036        CLA LPLST+S3P1+1,1                                               F5G12050    
       01602  0 34000 0 00323        CAS S3K1 END LOOP LIST SENTINEL                                  F5G12060    
       01603  0 02000 0 01605        TRA SB7 NO,                                                      F5G12070    
       01604  0 50000 0 04741        CLA LPLST YES,SUCCESSOR IS 1ST ENTRY.                            F5G12080    
       01605  0 07400 4 00070 SB7    TSX SE,4 NO,GET ADDR. OF                                         F5G12090    
       01606  0 50000 1 12534        CLA BBB+1,1 PRED.                                                F5G12100    
       01607  0 60100 0 00515        STO SBV5 STORE PERMUTATION NOS.                                  F5G12110    
       01610  0 50000 1 12533        CLA BBB,1 GET ADDR OF 1ST PRED.                                  F5G12120    
       01611  0 60200 0 00512 SB4    SLW SBV2                                                         F5G12130    
       01612  0 07400 4 00055        TSX SE5,4                                                        F5G12140    
       01613 -0 50000 1 15674        CAL PRED,1                                                       F5G12150    
       01614 -0 32000 0 00353        ANA SBK2                                                         F5G12160    
       01615  0 34000 0 00513        CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G12170    
       01616  0 02000 0 01620        TRA SB2 NO                                                       F5G12180    
       01617  0 02000 0 01623        TRA SB5 YES                                                      F5G12190    
       01620  0 50000 0 00512 SB2    CLA SBV2 NO TRY NEXT PRED.                                       F5G12200    
       01621  0 40000 0 00315        ADD ONEA                                                         F5G12210    
       01622  0 02000 0 01611        TRA SB4                                                          F5G12220    
       01623  0 53400 2 00342 SB5    LXA S5K5,2                                                       F5G12230    
       01624 -0 50000 0 00515 SB00   CAL SBV5 SEARCH PERMUTATION                                      F5G12240    
       01625  0 77100 2 00003        ARS 3,2 NOS. FOR THE INDEX                                       F5G12250    
       01626  0 77100 2 00003        ARS 3,2 STORED IN SBV4                                           F5G12260    
       01627 -0 32000 0 00350        ANA S9K3                                                         F5G12270    
       01630  0 34000 0 00514        CAS SBV4 IS THIS PERMUTATION NO.                                 F5G12280    
       01631  0 02000 0 01633        TRA SB8 NO EQUAL TO THE ACTIVE                                   F5G12290    
       01632  0 02000 0 01635        TRA SB9 YES IR                                                   F5G12300    
       01633  2 00001 2 01624 SB8    TIX SB00,2,1 NO                                                  F5G12310    
       01634  0 07400 4 00004        TSX 4,4 DIAGNOSTIC,ERROR                                         F5G12320    
       01635  0 50000 0 00354 SB9    CLA SBK3 GENERATE NO STORE                                       F5G12330    
       01636  0 77100 2 00003        ARS 3,2 THE                                                      F5G12340    
       01637 -0 60200 1 15674        ORS PRED,1 SX FIT IN                                             F5G12350    
       01640  0 02000 0 01654        TRA SB6 PRED. TABLE.                                             F5G12360    
       01641 -0 32000 0 00326 SB1    ANA S3K4                                                         F5G12370    
       01642  0 76500 0 00043        LRS 35 COMPUTE NO. OF WORD IN                                    F5G12380    
       01643  0 22100 0 00371        DVP XK9 STAG AND POSITION OF SX                                  F5G12390    
       01644  0 73400 2 00000        PAX 0,2 FIT IN WORD.                                             F5G12400    
       01645 -0 50000 0 00352        CAL SBK1 GENERATE                                                F5G12410    
       01646  0 76700 2 00010        ALS 8,2 THE BIT                                                  F5G12420    
       01647  0 60200 0 00512        SLW SBV2 TO                                                      F5G12430    
                                          STORE.                                                      F5G12440    
       01650  0 76300 0 00043        LLS 35 GET NO. OF WORD OUT OF MQ.                                F5G12450    
       01651  0 07400 4 00032        TSX SE4,4 MAKE SURE THE WD IS IN C.M.                            F5G12460    
       01652 -0 50000 0 00512        CAL SBV2                                                         F5G12470    
       01653 -0 60200 1 05263        ORS STAG,1                                                       F5G12480    
       01654  0 50000 0 00314 SB6    CLA ZERO SET IR                                                  F5G12490    
       01655 -0 53400 1 00514        LXD SBV4,1 TO  F                                                 F5G12500    
       01656  0 60100 1 00561        STO AC1+3,1 NOT ACTIVE.                                          F5G12510    
       01657 -0 53400 4 00511        LXD SBV1,4 RE-                                                   F5G12520    
       01660  0 02000 4 00001        TRA 1,4 TURN                                                     F5G12530    
                                         THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX     F5G12540    
                                         REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION.  THIS  F5G12550    
                                         POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND.  F5G12560    
                                         THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2,  F5G12570    
                                         BBB TABLE FOR ALL BB,S DURINC WHICH IN0EX REGISTER IS ACTIVE.F5G12580    
                                         THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590    
                                         TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600    
                                         ING A SECTION OF LPLST ACTIVE.  ALL BB,S BETWEEN THE ORIGIN  F5G12610    
                                         OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC 1S    F5G12620    
                                         ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS     F5G12630    
                                         TURNED OFF.  SD IS USED AS A SUBROUTINE, DOING THE ACTUAL    F5G12640    
                                         MARKING OF BB,S ACTIVE.                                      F5G12650    
       01661  0 50000 1 00561 SC     CLA AC1+3,1 IS IR                                                F5G12660    
       01662  0 10000 4 00001        TZE 1,4 ACTIVE                                                   F5G12670    
       01663 -0 63400 4 00516        SXD SCV1,4 YES,STORE RETURN                                      F5G12680    
       01664 -0 63400 1 01736        SXD SC9,1 AND INDEX OF ACT1VE I.R+                               F5G12690    
       01665  0 62200 0 00520        STD SCV3 STORE INDEX OF LOOP LIST.                               F5G12700    
       01666  0 50000 0 00520        CLA SCV3 IS THIS THE CURRENT                                     F5G12710    
       01667  0 40200 0 00316        SUB ONED                                                         F5G12720    
       01670 -0 40000 0 00440        SBM S3V4       IS THIS THE CURRENT LPLST INDEX                   F5G12730    
       01671 -0 10000 0 01674        TNZ SC40                                                         F5G12740    
       01672  0 50000 0 00521        CLA ACIND      YES                                               F5G12750    
       01673  0 12000 4 00001        TPL 1,4        IS THIS THE ACTIVE PASS                           F5G12760    
       01674 -0 53400 2 00520 SC40   LXD SCV3,2     YES                                               F5G12770    
       01675  0 50000 2 05035        CLA LPLST+S3P1,2                                                 F5G12780    
       01676  0 34000 0 00324        CAS S3K2       IS 1ST AACTIVE QUANTITY A BB                      F5G12790    
       01677  0 02000 0 01721        TRA SC02                                                         F5G12800    
       01700  0 02000 0 01721        TRA SC02       NO                                                F5G12810    
       01701  0 02000 0 01734        TRA SC8        YES                                               F5G12820    
       01702  0 40200 0 00316 SC4    SUB ONED       IS THIS CURRENT                                   F5G12830    
       01703  0 34000 0 00440        CAS S3V4       LOOP LIST INDEX                                   F5G12840    
       01704  0 02000 0 01706        TRA SC2 NO,                                                      F5G12850    
       01705  0 02000 0 01725        TRA SC5 YES,                                                     F5G12860    
       01706 -0 53400 2 00520 SC2    LXD SCV3,2 NO,                                                   F5G12870    
       01707  0 50000 2 05035        CLA LPLST+S3P1,2                                                 F5G12880    
       01710  0 34000 0 00323        CAS S3K1 IS IT END LOOP LIST                                     F5G12890    
       01711  0 02000 0 01713        TRA SC3 NO,                                                      F5G12900    
       01712  0 02000 0 01732        TRA SC6 YES,                                                     F5G12910    
       01713  0 34000 0 00324 SC3    CAS S3K2 NO,IS IT A BB                                           F5G12920    
       01714  0 76100 0 00000        NOP  NO,                                                         F5G12930    
       01715  0 02000 0 01717        TRA SC04                                                         F5G12940    
       01716  0 02000 0 01734        TRA SC8 YES,                                                     F5G12950    
       01717 -0 53400 2 01736 SC04   LXD SC9,2      NO, PUT INDEX OF ACTIVE IR                        F5G12960    
       01720  0 07400 4 01753        TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE.                       F5G12970    
       01721  0 50000 0 00520 SC02   CLA SCV3 PREPARE TO GET                                          F5G12980    
       01722  0 40200 0 00316        SUB ONED       NEXT                                              F5G12990    
       01723  0 62200 0 00520 SC7    STD SCV3 LOOP LIST QUANTITY.                                     F5G13000    
       01724  0 02000 0 01702        TRA SC4                                                          F5G13010    
       01725 -0 53400 1 01736 SC5    LXD SC9,1                                                        F5G13020    
       01726  0 50000 0 00314        CLA ZERO RECORD I.R. NOT                                         F5G13030    
       01727  0 60100 1 00561        STO AC1+3,1 ACTIVE ANYMORE.                                      F5G13040    
       01730 -0 53400 4 00516        LXD SCV1,4                                                       F5G13050    
       01731  0 02000 4 00001        TRA 1,4 RETURN.                                                  F5G13060    
       01732  0 50000 0 00325 SC6    CLA S3K3          ARRANGE TO GET 1ST LPLST QUANTITY              F5G13070    
       01733  0 02000 0 01723        TRA SC7 QUANTITY NEXT.                                           F5G13080    
       01734  0 07400 4 00070 SC8    TSX SE,4                                                         F5G13090    
       01735 -0 63400 1 00517        SXD SCV2,1 GET INDEX OF BB                                       F5G13100    
       01736  1 00000 1 01737 SC9    TXI SC01,1,0 INCREASE INDEX BY INDEX OF OCT. I.R.                F5G13110    
       01737  0 50000 1 12540 SC01   CLA BBB+5,1 GET THE                                              F5G13120    
       01740 -0 32000 0 00326        ANA S3K4 EXIT CONDITION.                                         F5G13130    
       01741 -0 53400 2 01736        LXD SC9,2 IS EXIT COND. SAME                                     F5G13140    
       01742  0 34000 2 00430        CAS IR1+3,2 AS TAG IN ACTIVE I.RH                                F5G13150    
       01743  0 02000 0 01721        TRA SC02 NO,                                                     F5G13160    
       01744  0 02000 0 01746        TRA SC03 YES,                                                    F5G13170    
       01745  0 02000 0 01721        TRA SC02 NO,                                                     F5G13180    
       01746 -0 50000 0 00340 SC03   CAL S5K3 RECORD THAT BB IS                                       F5G13190    
       01747  0 77100 2 00003        ARS 3,2 ACTIVE                                                   F5G13200    
       01750 -0 53400 1 00517        LXD SCV2,1 WO THIS                                               F5G13210    
       01751 -0 60200 1 12534        ORS BBB+1,1 I+R.                                                 F5G13220    
       01752  0 02000 0 01721        TRA SC02                                                         F5G13230    
       01753 -0 63400 2 00523 SD     SXD SDV2,2                                                       F5G13240    
       01754 -0 63400 4 00522        SXD SDV1,4 STORE RETURN.                                         F5G13250    
       01755  0 07400 4 00070        TSX SE,4 GET INDEX OF BB                                         F5G13260    
       01756  0 50000 1 12540        CLA BBB+5,1 GET                                                  F5G13070    
       01757 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G13280    
       01760  0 50000 1 05263        CLA REG,1 WORD.                                                  F5G13290    
       01761  0 07400 4 00070        TSX SE,4 GET BB INDEX.                                           F5G13300    
       01762 -0 63400 1 00525 SD7    SXD SDV4,1                                                       F5G13310    
       01763  0 50000 1 12534        CLA BBB+1,1 STORE                                                F5G13320    
       01764  0 60100 0 00524        STO SDV3 AWAY THE PERMUTATION NOS.                               F5G13330    
       01765  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G13340    
       01766 -0 50000 0 00524 SD3    CAL SDV3 IS                                                      F5G13350    
       01767  0 77100 2 00003        ARS 3,2 PERMUTATION NO.                                          F5G13360    
       01770  0 77100 2 00003        ARS 3,2                                                          F5G13370    
       01771 -0 32000 0 00350        ANA S9K3 N EQUAL                                                 F5G13380    
       01772  0 34000 0 00523        CAS SDV2 TO I.R. INDEX                                           F5G13390    
       01773  0 02000 0 01775        TRA SD1 NO                                                       F5G13400    
       01774  0 02000 0 02000        TRA SD4 YES                                                      F5G13410    
       01775  1 77777 1 01776 SD1    TXI SD1+1,1,-1    NO                                             F5G13420    
       01776  2 00001 2 01766 SD2    TIX SD3,2,1 COUNT TO 3                                           F5G13430    
       01777  0 07400 4 00004        TSX 4,4                                                          F5G13440    
       02000 -0 50000 1 12535 SD4    CAL BBB+2,1                                                      F5G13450    
       02001 -0 32000 0 00326        ANA S3K4 IS TAG IN                                               F5G13460    
       02002 -0 53400 4 00523        LXD SDV2,4 EXIT CONDITION                                        F5G13470    
       02003 -0 53400 1 00525        LXD SDV4,1 SAME AS IN ACTIVE I.R.                                F5G13480    
       02004  0 34000 4 00430        CAS IR1+3,4                                                      F5G13490    
       02005  0 02000 0 02007        TRA SD5 NO                                                       F5G13500    
       02006  0 02000 0 02020        TRA SD9 YES,IS                                                   F5G13510    
       02007 -0 50000 1 12540 SD5    CAL BBB+5,1 NO THIS LAST                                         F5G13520    
       02010 -0 32000 0 00353        ANA SBK2 BB                                                      F5G13530    
       02011  0 34000 0 00353        CAS SBK2 IN REGION                                               F5G13540    
       02012  0 02000 0 02014        TRA SD6 NO                                                       F5G13550    
       02013  0 02000 0 02016        TRA SD8 YES                                                      F5G13560    
       02014  0 07400 4 00067 SD6    TSX SE1,4 NO                                                     F5G13570    
       02015  0 02000 0 01762        TRA SD7                                                          F5G13580    
       02016 -0 53400 4 00522 SD8    LXD SDV1,4 RETURN                                                F5G13590    
       02017  0 02000 4 00001        TRA 1,4                                                          F5G13600    
       02020 -0 50000 0 00340 SD9    CAL S5K3 RECORD THIS BB                                          F5G13610    
       02021  0 77100 2 00003        ARS 3,2 ACTIVE                                                   F5G13620    
       02022 -0 60200 1 12534        ORS BBB+1,1 WO THIS IR                                           F5G13630    
       02023  0 02000 0 02007        TRA SD5                                                          F5G13640    
                                         THE SF SUBROUTINE FORMS APPROPRIATE AC1,2,3 ENTRY WHEN AN    F5G13650    
                                         ACTIVE INSTRUCTION IS ENCOUNTERED.                           F5G13660    
       02024  0 50000 0 00442 SF     CLA TPE IS THIS                                                  F5G13670    
       02025  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G13680    
       02026  0 02000 0 02030        TRA SF1 NO,                                                      F5G13690    
       02027  0 02000 0 02034        TRA SF4 YES,                                                     F5G13700    
       02030  0 34000 0 00373 SF1    CAS XK12 NO,IS IT AN ACTIVE INSTR                                F5G13710    
       02031  0 02000 4 00001        TRA 1,4 NO RETURN                                                F5G13720    
       02032  0 02000 0 02034        TRA SF4 YES,                                                     F5G13730    
       02033  0 02000 4 00001        TRA 1,4 NO                                                       F5G13740    
       02034  0 50000 0 00571 SF4    CLA XV5 FORM QUANTITY TO                                         F5G13750    
       02035  0 60100 0 00526        STO SFV1 BE PUT                                                  F5G13760    
       02036 -0 53400 2 00440        LXD S3V4,2 INTO                                                  F5G13770    
       02037  1 00001 2 02040        TXI SF5,2,1 ACTIVE                                               F5G13780    
       02040 -0 63400 2 00526 SF5    SXD SFV1,2        INDICATOR                                      F5G13790    
       02041  0 02000 4 00002        TRA 2,4                                                          F5G13800    
                                           PERMUTE THE PHI AND LX BITS  SUBROUTINE                    F5G13810    
                                         THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG  F5G13820    
                                         ENTRY.                                                       F5G13830    
       02042 -0 63400 4 00530 SG     SXD SGV1,4          SAVE RETURN                                  F5G13840    
       02043  0 56000 0 00315        LDQ ONEA            SET NEN LX AND PHI BITS TO ONEA              F5G13850    
       02044 -0 60000 0 00531        STQ SGV2                                                         F5G13860    
       02045  0 50000 0 00444        CLA S3V5            GET INDEX OF REGION WORD                     F5G13870    
       02046  0 07400 4 00070        TSX SE,4                                                         F5G13880    
       02047  0 50000 1 12540        CLA BBB+5,1                                                      F5G13890    
       02050 -0 73400 2 00000        PDX 0,2                                                          F5G13900    
       02051  0 53400 4 00342        LXA S5K5,4          SET COUNT T0 3                               F5G13910    
       02052  0 50000 4 00470 SG1    CLA EN4+3,4         FIND INDEX OF IR                             F5G13920    
       02053 -0 73400 1 00000        PDX 0,1                                                          F5G13930    
       02054 -0 50000 2 05263        CAL REG,2           PERMUTE THE LX BIT                           F5G13940    
       02055  0 76700 4 00003        ALS 3,4                                                          F5G13950    
       02056 -0 32000 0 00340        ANA S5K3                                                         F5G13960    
       02057  0 77100 1 00003        ARS 3,1                                                          F5G13970    
       02060 -0 60200 0 00531        ORS SGV2                                                         F5G13980    
       02061 -0 50000 2 05263        CAL REG,2           PERMUTE THE PHI BIT                          F5G13990    
       02062  0 77100 4 00003        ARS 3,4                                                          F5G14000    
       02063 -0 32000 0 00405        ANA XK23                                                         F5G14010    
       02064  0 76700 1 00003        ALS 3,1                                                          F5G14020    
       02065 -0 60200 0 00531        ORS SGV2                                                         F5G14030    
       02066  2 00001 4 02052        TIX SG1,4,1       COUNT TO 3                                     F5G14040    
       02067 -0 50000 2 05263        CAL REG,2                                                        F5G14050    
       02070 -0 32000 0 00303        ANA SEK4                                                         F5G14060    
       02071 -0 50100 0 00531        ORA SGV2                                                         F5G14070    
       02072  0 60200 2 05263        SLW REG,2                                                        F5G14080    
       02073 -0 53400 4 00530        LXD SGV1,4          RETURN                                       F5G14090    
       02074  0 02000 4 00001        TRA 1,4                                                          F5G14100    
                                         THE F1 SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110    
                                         A GIVEN BB AND STORES 1T IN FV 101.                          F5G14120    
       02075 -0 63400 4 00537 F1     SXD FV6,4 STORE RETURN                                           F5G14130    
       02076  0 56000 0 00314        LDQ ZERO SET HIGHEST                                             F5G14140    
       02077 -0 60000 0 00544        STQ FV101 FREQ. TO 0.                                            F5G14150    
       02100  0 60100 0 00545        STO FV102 STORE BB NO+                                           F5G14160    
       02101  0 07400 4 00067        TSX SE1,4 GET INDEX OF BB                                        F5G14170    
       02102  0 50000 1 12540        CLA BBB+5,1 STORE REGION                                         F5G14180    
       02103  0 60100 0 00547        STO FV104 NO. WORD.                                              F5G14190    
       02104 -0 50000 1 12533        CAL BBB,1 GET PRED.                                              F5G14200    
       02105  0 62100 0 00540        STA FV7 NO. AND STORE IT                                         F5G14210    
       02106 -0 50000 0 00545        CAL FV102           GET AND STORE                                F5G14220    
       02107  0 40000 0 00315        ADD ONEA FIRST PRED. IN                                          F5G14230    
       02110  0 07400 4 00067        TSX SE1,4 NEXT B.B.                                              F5G14240    
       02111  0 50000 1 12533        CLA BBB,1                                                        F5G14250    
       02112  0 62100 0 00541        STA FV8                                                          F5G14260    
       02113  0 50000 0 00540        CLA FV7 IS TH1S PRED.                                            F5G14270    
       02114  0 34000 0 00541 F4     CAS FV8 IN SAME BB                                               F5G14280    
       02115  0 02000 0 02117        TRA F2                                                           F5G14290    
       02116  0 02000 0 02134        TRA F5 NO                                                        F5G14300    
       02117  0 07400 4 00055 F2     TSX SE5,4 GET INDEX 0F PRED                                      F5G14310    
       02120  0 50000 1 15674        CLA PRED,1                                                       F5G14320    
       02121  0 34000 0 00544        CAS FV101 IS THIS FREQ. GREATER                                  F5G14330    
       02122  0 02000 0 02125        TRA F92                                                          F5G14340    
       02123  0 76100 0 00000        NOP                                                              F5G14350    
       02124  0 02000 0 02130        TRA F3 NO                                                        F5G14360    
       02125  0 60100 0 00544 F92    STO FV101     STORE NEW MAX.                                     F5G14370    
       02126  0 50000 0 00540        CLA FV7 STORE NEW                                                F5G14380    
       02127  0 60100 0 00546        STO FV103 PRED. NO.                                              F5G14390    
       02130  0 50000 0 00540 F3     CLA FV7 ARRANGE TO                                               F5G14400    
       02131  0 40000 0 00315        ADD ONEA CONSIDER NEXT PRED.                                     F5G14410    
       02132  0 62100 0 00540        STA FV7                                                          F5G14420    
       02133  0 02000 0 02114        TRA F4                                                           F5G14430    
       02134 -0 53400 4 00537 F5     LXD FV6,4                                                        F5G14440    
       02135  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G14450    
                                         THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460    
                                         A GIVEN BB AND STORES IT IN FV 101.                          F5G14470    
       02136 -0 63400 4 00537 F30    SXD FV6,4                                                        F5G14480    
       02137  0 56000 0 00314        LDQ ZERO SET HIGHEST FREQH                                       F5G14490    
       02140 -0 60000 0 00544        STQ FV101 TO 0.                                                  F5G14500    
       02141  0 60100 0 00545        STO FV102 STORE BB NO.                                           F5G14510    
       02142  0 07400 4 00070        TSX SE,4                                                         F5G14520    
       02143  0 50000 1 12540        CLA BBB+5,1                                                      F5G14530    
       02144  0 60100 0 00547        STO FV104                                                        F5G14540    
       02145 -0 50000 1 12533        CAL BBB,1 GET SUCC. NO.                                          F5G14550    
       02146  0 62200 0 00542        STD FV9          AND STORE IT                                    F5G14560    
       02147 -0 50000 0 00545        CAL FV102           GET AND STORE                                F5G14570    
       02150  0 40000 0 00316        ADD ONED SUCC.                                                   F5G14580    
       02151  0 07400 4 00070        TSX SE,4 NO.                                                     F5G14590    
       02152  0 50000 1 12533        CLA BBB,1 OF 1ST SUCC.                                           F5G14600    
       02153  0 62200 0 00543        STD FV10       IN NEXT BB                                        F5G14610    
       02154  0 50000 0 00542        CLA FV9                                                          F5G14620    
       02155  0 34000 0 00543 F31    CAS FV10     IS SUCC IN SAME BB                                  F5G14630    
       02156  0 02000 0 02160        TRA F32                                                          F5G14640    
       02157  0 02000 0 02175        TRA F34 N0.                                                      F5G14650    
       02160  0 07400 4 00044 F32    TSX SE6,4 GET INDEX OF SUCC.                                     F5G14660    
       02161  0 50000 1 16734        CLA SUCC,1                                                       F5G14670    
       02162  0 34000 0 00544        CAS FV101 IS THIS FREQ. GREATER                                  F5G14680    
       02163  0 02000 0 02166        TRA F93                                                          F5G14690    
       02164  0 76100 0 00000        NOP                                                              F5G14700    
       02165  0 02000 0 02171        TRA F33 NO                                                       F5G14710    
       02166  0 60100 0 00544 F93    STO FV101      STORE NEW MAX.                                    F5G14720    
       02167  0 50000 0 00542        CLA FV9       STORE NEW                                          F5G14730    
       02170  0 60100 0 00546        STO FV103 SUCC. NO.                                              F5G14740    
       02171  0 50000 0 00542 F33    CLA FV9       ARRANGE TO CONSIDER                                F5G14750    
       02172  0 40000 0 00316        ADD ONED NEXT SUCC.                                              F5G14760    
       02173  0 62200 0 00542        STD FV9                                                          F5G14770    
       02174  0 02000 0 02155        TRA F31                                                          F5G14780    
       02175 -0 53400 4 00537 F34    LXD FV6,4                                                        F5G14790    
       02176  0 02000 4 00001        TRA 1,4 RETURN                                                   F5G14800    
       02177  0 50000 0 00314 F      CLA ZERO SET INDICATOR TO SAY                                    F5G14810    
       02200  0 60100 0 00550        STO LPIND THIS ISNT A LOOP.                                      F5G14820    
       02201  0 60100 0 00532        STO FV1 SET HIGHEST FREQ. TO 0.                                  F5G14630    
       02202  0 60100 0 00536        STO FV5        SET TO CONSIDER 0TH BB                            F5G14840    
       02203  0 50000 0 00536 F7     CLA FV5                                                          F5G14850    
       02204  0 07400 4 02075        TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER                   F5G14860    
       02205  0 50000 0 00544        CLA FV101 IS IT GREATER THAN                                     F5G14870    
       02206  0 34000 0 00532        CAS FV1 PREVIOUS MAXIMUM                                         F5G14880    
       02207  0 02000 0 02212        TRA F85                                                          F5G14890    
       02210  0 76100 0 00000        NOP                                                              F5G14900    
       02211  0 02000 0 02221        TRA F6 NO+                                                       F5G14910    
       02212  0 60100 0 00532 F85    STO FV1      REPLACE PREV. MAX.                                  F5G14920    
       02213  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G14930    
       02214  0 60100 0 00533        STO FV2                                                          F5G14940    
       02215  0 50000 0 00546        CLA FV103 AND PRED. NO.                                          F5G14950    
       02216  0 60100 0 00534        STO FV3                                                          F5G14960    
       02217  0 50000 0 00547        CLA FV104 AND REGION NO. WORD.                                   F5G14970    
       02220  0 60100 0 00535        STO FV4                                                          F5G14980    
       02221  0 50000 0 00536 F6     CLA FV5 ARRANGE TO CONSIDER NEXT                                 F5G14990    
       02222  0 40000 0 00315        ADD ONEA B.B.                                                    F5G15000    
       02223  0 60100 0 00536        STO FV5                                                          F5G15010    
       02224  0 40200 0 17774        SUB KEYS                                                         F5G15020    
       02225  0 40000 0 00315        ADD ONEA                                                         F5G15030    
       02226 -0 10000 0 02203        TNZ F7         WAS THIS THE LAST BB                              F5G15040    
       02227  0 76000 0 00012  F86   DCT         YES, IF ANY DIVIDE CHECKS GO                         F5G15050    
       02230  0 07400 4 00004        TSX 4,4     TO DIAGNOSTIC.                                       F5G15060    
       02231  0 50000 0 00532        CLA FV1     NO DVD CHECKS, WERE THERE ANY                        F5G15070    
       02232 -0 10000 0 02234        TNZ F86A    UNCONSIDERED PREDS                                   F5G15080    
       02233  0 02000 0 00030        TRA R  NO,CONTINUE PROGRAM, PART I DONE.                         F5G15090    
       02234  0 50000 0 00535  F86A  CLA FV4     YES                                                  F5G15100    
       02235  0 10000 0 02245        TZE F9 IS THIS A REGION ALREADY                                  F5G15110    
       02236 -0 73400 1 00000        PDX 0,1 YES.                                                     F5G15120    
       02237  0 50000 1 05263        CLA REG,1 GET REGION WORD.                                       F5G15130    
       02240 -0 32000 0 00360        ANA FK3                                                          F5G15140    
       02241  0 10000 0 02244        TZE F8 IS IT AN OPAQUE REGION                                    F5G15150    
       02242  0 50000 0 00356        CLA FK1 NO,GET TRANSPARENT REGION MARKER.                        F5G15160    
       02243  0 02000 0 02245        TRA F9                                                           F5G15170    
       02244  0 50000 0 00357 F8     CLA FK2 GET OPAQUE REGION MARKER.                                F5G15180    
       02245  0 60100 0 05033 F9     STO LPLST+S3P1-2                                                 F5G15190    
       02246  0 50000 0 00533        CLA FV2 STORE THE REGION MARKER                                  F5G15200    
       02247  0 76700 0 00022        ALS 18 AT END OF LPLST.                                          F5G15210    
       02250  0 62200 0 05033        STD LPLST+S3P1-2                                                 F5G15220    
       02251  0 50000 0 00350        CLA S9K3 INITIALIZE THE STORING                                  F5G15230    
       02252  0 62200 0 02270        STD F11 POSITION IN LPLST.                                       F5G15240    
       02253  0 50000 0 00532 F23    CLA FV1 GET INDEX                                                F5G15250    
       02254  0 07400 4 00067        TSX SE1,4 OF BB UP FOR ENTRY.                                    F5G15260    
       02255  0 50000 1 12540        CLA BBB+5,1 IS THIS BB IN                                        F5G15270    
       02256  0 10000 0 02611        TZE F57 A REGION                                                 F5G15280    
       02257 -0 73400 2 00000        PDX 0,2 YES                                                      F5G15290    
       02260  0 50000 2 05263        CLA REG,2 GET AND STORE                                          F5G15300    
       02261  0 60100 0 00535        STO FV4 REGION WORD                                              F5G15310    
       02262 -0 32000 0 00360        ANA FK3                                                          F5G15320    
       02263  0 10000 0 02603        TZE F55 IS IT AN OPAQUE REGION                                   F5G15330    
       02264  0 53400 1 00341        LXA S5K4,1      NO, TRANSPARENT                                  F5G15340    
       02265  0 50000 1 05035 F12    CLA LPLST+S3P1,1                                                 F5G15350    
       02266  1 00001 1 02267        TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED.        F5G15360    
       02267 -0 63400 1 02412 F25    SXD F18,1                                                        F5G15370    
       02270  3 00000 1 02321 F11    TXH F19,1,K ARE WE THRU WITH COMPARISONS                         F5G15380    
       02271  0 34000 0 00324        CAS S3K2 NO,IS THIS BB ENTRY                                     F5G15390    
       02272  0 76100 0 00000        NOP                                                              F5G15400    
       02273  0 02000 0 02275        TRA F87                                                          F5G15410    
       02274  0 02000 0 02265        TRA F12 YES.                                                     F5G15420    
       02275  0 07400 4 00070 F87    TSX SE,4      GET INDEX OF BB                                    F5G15430    
       02276  0 50000 1 12540        CLA BBB+5,1 GET                                                  F5G15440    
       02277 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G15450    
       02300  0 50000 1 05263        CLA REG,1 WORD.                                                  F5G15460    
       02301 -0 53400 1 02412        LXD F18,1                                                        F5G15470    
       02302  0 34000 0 00535        CAS FV4 IS THIS THE SAME REGION                                  F5G15480    
       02303  0 02000 0 02265        TRA F12 NO                                                       F5G15490    
       02304  0 02000 0 02306        TRA F100                                                         F5G15500    
       02305  0 02000 0 02265        TRA F12 NO                                                       F5G15510    
       02306  0 50000 0 00532 F100   CLA FV1             PUT EXIT BB NO.                              F5G15520    
       02307  0 62100 1 05036        STA LPLST+S3P1+1,1     IN TR. REG. QUANTITY                      F5G15530    
       02310  2 00001 1 02311 F13    TIX F24,1,1 GENERATE INDEX OF LAST THING TO BE MOVED UP.         F5G15540    
       02311 -0 53400 2 02270 F24    LXD F11,2 GET INDEX TO GENERATE INDEX OF 1ST THING               F5G15550    
       02312 -0 63400 1 02412 F43    SXD F18,1 STORE INDEX OF LAST THING                              F5G15560    
       02313  0 56000 0 00323        LDQ S3K1 RECORD                                                  F5G15570    
       02314 -0 60000 0 00550        STQ LPIND LOOP.                                                  F5G15580    
       02315  2 00001 2 02316        TIX F14,2,1 GENERATE INDEX OF 1ST THING                          F5G15590    
       02316  0 07400 4 02407 F14    TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+                        F5G15600    
       02317  0 07400 4 02651        TSX F80,4                                                        F5G15610    
       02320  0 02000 0 02717        TRA L TO 1ST LXING PASS.                                         F5G15620    
       02321  0 50000 0 00356 F19    CLA FK1                                                          F5G15630    
       02322 -0 53400 1 02270        LXD F11,1 STORE TRANSPARENT                                      F5G15640    
       02323  0 60100 1 05035        STO LPLST+S3P1,1 REGION MARKER                                   F5G15650    
       02324  0 50000 0 00532        CLA FV1                                                          F5G15660    
       02325  0 62100 1 05035        STA LPLST+S3P1,1                                                 F5G15670    
       02326  0 07400 4 00067        TSX SE1,4 FIND BB INDEX.                                         F5G15680    
       02327  0 50000 0 00314        CLA ZERO SET INITIAL MAX                                         F5G15690    
       02330  0 60100 0 00532        STO FV1 FREQ. TO 0+                                              F5G15700    
       02331  0 50000 1 12540        CLA BBB+5,1 GET THE                                              F5G15710    
       02332 -0 73400 1 00000        PDX 0,1 REGION                                                   F5G15720    
       02333  0 50000 1 05263        CLA REG,1 WORD                                                   F5G15730    
       02334  0 77100 0 00022        ARS 18                                                           F5G15740    
       02335  0 07400 4 02075 F21    TSX F1,4 DETERMINE MOST FREQ. PRED IN BB.                        F5G15750    
       02336  0 50000 0 00544        CLA FV101 IS IT MORE FREQ. THAN                                  F5G15760    
       02337  0 34000 0 00532        CAS FV1 PREV. MAX.                                               F5G15770    
       02340  0 02000 0 02343        TRA F88                                                          F5G15780    
       02341  0 76100 0 00000        NOP                                                              F5G15790    
       02342  0 02000 0 02352        TRA F20 NO.                                                      F5G15800    
       02343  0 60100 0 00532 F88    STO FV1     REPLACE PREV.  MAX.                                  F5G15810    
       02344  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G15820    
       02345  0 60100 0 00533        STO FV2 AND                                                      F5G15830    
       02346  0 50000 0 00546        CLA FV103 PRED. NO.                                              F5G15840    
       02347  0 60100 0 00534        STO FV3 AND                                                      F5G15850    
       02350  0 50000 0 00547        CLA FV104 REGION NO. WORD.                                       F5G15860    
       02351  0 60100 0 00535        STO FV4                                                          F5G15870    
       02352  0 50000 0 00547 F20    CLA FV104 ARRANGE TO CONSIDER THE                                F5G15880    
       02353 -0 32000 0 00353        ANA SBK2 NEXT B.B. IN REGION.                                    F5G15890    
       02354  0 34000 0 00353        CAS SBK2 ARE WE THRU WITH REGION                                 F5G15900    
       02355  0 02000 0 02335        TRA F21                                                          F5G15910    
       02356  0 02000 0 02360        TRA F22 YES                                                      F5G15920    
       02357  0 02000 0 02335        TRA F21                                                          F5G15930    
       02360  0 50000 0 00532 F22    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G15940    
       02361  0 10000 0 02372        TZE F28 PRED                                                     F5G15950    
       02362  0 50000 0 00533        CLA FV2 YES,STORE THE                                            F5G15960    
       02363 -0 53400 1 02270        LXD F11,1 ENTRY B.B.                                             F5G15970    
       02364  0 76700 0 00022        ALS 18 NO.                                                       F5G15980    
       02365  0 62200 1 05035        STD LPLST+S3P1,1                                                 F5G15990    
       02366  1 00001 1 02367        TXI F70,1,1 UP THE STORING INDEX                                 F5G16000    
       02367 -0 63400 1 02270 F70    SXD F11,1                                                        F5G16010    
       02370  3 00074 1 02404        TXH F73,1,S3P1 IS LPLST FULL                                     F5G16020    
       02371  0 02000 0 02253        TRA F23                                                          F5G16030    
       02372 -0 53400 2 02270 F28    LXD F11,2                                                        F5G16040    
       02373  0 53400 1 00341 F56    LXA S5K4,1                                                       F5G16050    
       02374 -0 63400 1 02412        SXD F18,1                                                        F5G16060    
       02375  0 07400 4 02407        TSX F15,4 NONE LPLST UP.                                         F5G16070    
       02376  0 50000 0 04740        CLA LPLST-1                                                      F5G16080    
       02377  0 34000 0 00361        CAS FK4 IS THIS AN OPAQUE REGION                                 F5G16090    
       02400  0 76100 0 00000        NOP                                                              F5G16100    
       02401  0 02000 0 02706        TRA F75 TO 2ED LXING PASS.                                       F5G16110    
       02402  3 00002 1 02421   POO2 TXH F29,1,2                                                      F5G16120    
       02403  0 02000 0 02706        TRA F75                                                          F5G16130    
       02404  0 50000 0 00303 F73    CLA SEK4 STORE SPECIAL                                           F5G16140    
       02405  0 62200 0 04741        STD LPLST SYMBOL IN DECR. PART OF 1STSLPLST                      F5G16150    
       02406  0 02000 0 02536        TRA F53 QUANTITY                                                 F5G16160    
       02407 -0 53400 1 00325 F15    LXD S3K3,1 SET INDEX TO START OF LOOP LIST.                      F5G16170    
       02410  0 50000 2 05035 F26    CLA LPLST+S3P1,2 MOVE THIS                                       F5G16180    
       02411  0 60100 1 05035        STO LPLST+S3P1,1 ENTRY UP.                                       F5G16190    
       02412 -3 00000 2 02415 F18    TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED.             F5G16200    
       02413  2 00001 1 02414        TIX F16,1,1 NO.                                                  F5G16210    
       02414  2 00001 2 02410 F16    TIX F26,2,1 ARE WE FINISHED COPYING                              F5G16220    
       02415  0 60100 0 04740 F17    STO LPLST-1 CASE OF LOOP,STORE PRED. 0F 1ST ELEMENT.             F5G16230    
       02416  0 50000 0 00323        CLA S3K1 STORE THE END                                           F5G16240    
       02417  0 60100 1 05036        STO LPLST+S3P1+1,1 LOOP LIST QUANTITY.                           F5G16250    
       02420  0 02000 4 00001        TRA 1,4                                                          F5G16260    
       02421 -0 63400 1 02527 F29    SXD F39,1 INITIALIZE STORING LOCATION.                           F5G16270    
       02422  0 34000 0 00324 F64    CAS S3K2 ISNT OPAQUE REGIONH IS IT BE                            F5G16280    
       02423  0 76100 0 00000        NOP  NO.                                                         F5G16290    
       02424  0 02000 0 02426        TRA F89                                                          F5G16300    
       02425  0 02000 0 02543        TRA F44 YES.                                                     F5G16310    
       02426  0 56000 0 00314 F89    LDQ ZERO   NO, SET INITIAL                                       F5G16320    
       02427 -0 60000 0 00532        STQ FV1 FREQ+ TO 0.                                              F5G16330    
       02430  0 07400 4 00070        TSX SE,4 GET                                                     F5G16340    
       02431  0 50000 1 12540        CLA BBB+5,1 REGION                                               F5G16350    
       02432 -0 73400 1 00000        PDX 0,1 NO.                                                      F5G16360    
       02433  0 50000 1 05263        CLA REG,1 GET NO. OF 1ST BB IN REGION                            F5G16370    
       02434  0 07400 4 02136 F35    TSX F30,4  DETERMINE MOST FREQ SUCC IN BB                        F5G16380    
       02435  0 50000 0 00544        CLA FV101 IS IT MORE FREQ. THAN                                  F5G16390    
       02436  0 34000 0 00532        CAS FV1 PREV+ MAX                                                F5G16400    
       02437  0 02000 0 02442        TRA F90                                                          F5G16410    
       02440  0 76100 0 00000        NOP  YES,                                                        F5G16420    
       02441  0 02000 0 02451        TRA F36 NO                                                       F5G16430    
       02442  0 60100 0 00532 F90    STO FV1    YES, REPLACE PREV.MAX.                                F5G16440    
       02443  0 50000 0 00545        CLA FV102 AND BB NO.                                             F5G16450    
       02444  0 60100 0 00533        STO FV2 AND                                                      F5G16460    
       02445  0 50000 0 00546        CLA FV103 SUCC. NO+                                              F5G16470    
       02446  0 60100 0 00534        STO FV3 AND                                                      F5G16480    
       02447  0 50000 0 00547        CLA FV104 REGION NO. WORD                                        F5G16490    
       02450  0 60100 0 00535        STO FV4                                                          F5G16500    
       02451  0 50000 0 00547 F36    CLA FV104 ARRANGE TO CONSIDER THE                                F5G16510    
       02452 -0 32000 0 00353        ANA SBK2 NEXT BB IN REGION                                       F5G16520    
       02453  0 34000 0 00353        CAS SBK2 IS IT LAST BB IN REGION                                 F5G16530    
       02454  0 02000 0 02456        TRA F94                                                          F5G16540    
       02455  0 02000 0 02460        TRA F37 YES                                                      F5G16550    
       02456  0 76700 0 00022 F94    ALS 18                                                           F5G16560    
       02457  0 02000 0 02434        TRA F35                                                          F5G16570    
       02460  0 50000 0 00532 F37    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G16580    
       02461 -0 53400 1 02527        LXD F39,1 SUCC                                                   F5G16590    
       02462  0 10000 0 02550        TZE F47                                                          F5G16600    
       02463  0 50000 0 00533        CLA FV2 EXIT BB                                                  F5G16610    
       02464  0 77100 0 00022        ARS 18 NO.                                                       F5G16620    
       02465  0 62100 1 05035        STA LPLST+S3P1,1                                                 F5G16630    
       02466  2 00001 1 02467 F45    TIX F62,1,1 DOWN THE STORING                                     F5G16640    
       02467 -0 63400 1 02527 F62    SXD F39,1 INDEX.                                                 F5G16650    
       02470  0 50000 0 00532        CLA FV1 GET INDEX OF                                             F5G16660    
       02471  0 07400 4 00067        TSX SE1,4 BB UP FOR ENTRY.                                       F5G16670    
       02472  0 50000 1 12540        CLA BBB+5,1 IS THIS BB IN                                        F5G16680    
       02473  0 10000 0 02553        TZE F48 A REGION                                                 F5G16690    
       02474 -0 73400 2 00000        PDX 0,2 YES.                                                     F5G16700    
       02475  0 50000 2 05263        CLA REG,2 GET AND                                                F5G16710    
       02476  0 60100 0 00535        STO FV4 STORE REGION WORD.                                       F5G16720    
       02477 -0 32000 0 00360        ANA FK3 IS IT IN AN                                              F5G16730    
       02500  0 10000 0 02574        TZE F54 OPAGUE REGION                                            F5G16740    
       02501 -0 53400 1 02527        LXD F39,1 NO.                                                    F5G16750    
       02502  0 50000 0 00356        CLA FK1 STORE TRANSPARENT REGION                                 F5G16760    
       02503  0 60100 1 05035        STO LPLST+S3P1,1 MARKER                                          F5G16770    
       02504  0 50000 0 00532        CLA FV1 WITH                                                     F5G16780    
       02505  0 76700 0 00022        ALS 18 ENTRY                                                     F5G16790    
       02506  0 62200 1 05035        STD LPLST+S3P1,1 BB NO. IN DECR.                                 F5G16800    
       02507 -0 53400 2 00325        LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST.                    F5G16810    
       02510  0 50000 2 05035 F38    CLA LPLST+S3P1,2                                                 F5G16820    
       02511  0 34000 0 00324        CAS S3K2 IS THIS A BB ENTRY                                      F5G16830    
       02512  0 76100 0 00000        NOP                                                              F5G16840    
       02513  0 02000 0 02515        TRA F91                                                          F5G16850    
       02514  0 02000 0 02526        TRA F40 YES                                                      F5G16860    
       02515 -0 63400 2 02412 F91    SXD F18,2    STOREINDEX OF QUANTITYBEING C.F. ED                 F5G16870    
       02516  0 07400 4 00067        TSX SE1,4                                                        F5G16860    
       02517  0 50000 1 12540        CLA BBB+5,1       GET                                            F5G16890    
       02520 -0 73400 2 00000        PDX 0,2 REGION WORD.                                             F5G16900    
       02521  0 50000 2 05263        CLA REG,2                                                        F5G16910    
       02522 -0 53400 2 02412        LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED.                  F5G16920    
       02523  0 34000 0 00535        CAS FV4 IS THIS NAME REGION                                      F5G16930    
       02524  0 02000 0 02526        TRA F40                                                          F5G16940    
       02525  0 02000 0 02531        TRA F41 YES                                                      F5G16950    
       02526  2 00001 2 02527 F40    TIX F39,2,1                                                      F5G16960    
       02527 -3 00000 2 02535 F39    TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED             F5G16970    
       02530  0 02000 0 02510        TRA F38 NO                                                       F5G16980    
       02531  0 50000 2 05035 F41    CLA LPLST+S3P1,2 PUT EXIT BB NO.                                 F5G16990    
       02532 -0 53400 1 02527        LXD F39,1 FROM PREVIOUS QUANTITY                                 F5G17000    
       02533  0 62100 1 05035        STA LPLST+S3P1,1 IN THIS LATEST ONE.                             F5G17010    
       02534  0 02000 0 02312        TRA F43                                                          F5G17020    
       02535  3 00002 2 02541 F42    TXH F63,2,2 IS LPLST FULL                                        F5G17030    
       02536  0 50000 0 00323 F53    CLA S3K1 STORE END                                               F5G17040    
       02537  0 60100 0 05034        STO LPLST+S3P1-1 LOOP LIST SENTINEL.                             F5G17050    
       02540  0 02000 0 02706        TRA F75 GO TO DEAL WITH STRING.                                  F5G17060    
       02541  0 50000 2 05035 F63    CLA LPLST+S3P1,2                                                 F5G17070    
       02542  0 02000 0 02422        TRA F64                                                          F5G17080    
       02543  0 07400 4 02136 F44    TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB.                      F5G17090    
       02544  0 50000 0 00544        CLA FV101 STORE THE                                              F5G17100    
       02545  0 60100 0 00532        STO FV1 MOST FREQ. SUCC. AWAY.                                   F5G17110    
       02546 -0 53400 1 02527        LXD F39,1                                                        F5G17120    
       02547 -0 10000 0 02466        TNZ F45 WAS THERE AN UNCONSIDERED SUCC.                          F5G17130    
       02550  0 50000 0 00323 F47    CLA S3K1 NO,RECORD AN                                            F5G17140    
       02551  0 60100 1 05036        STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL.                       F5G17150    
       02552  0 02000 0 02706        TRA F75                                                          F5G17160    
       02553 -0 53400 1 02527 F48    LXD F39,1 ENTER BB                                               F5G17170    
       02554  0 50000 0 00532        CLA FV1 NO. AND MARKER                                           F5G17100    
       02555 -0 32000 0 00353        ANA SBK2 IN                                                      F5G17190    
       02556  0 76700 0 00022        ALS 18 LPLST                                                     F5G17200    
       02557  0 60100 0 00535        STO FV4                                                          F5G17210    
       02560  0 60100 1 05035        STO LPLST+S3P1,1                                                 F5G17220    
       02561 -0 63400 1 02570        SXD F50,1                                                        F5G17230    
       02562 -0 53400 2 00325        LXD S3K3,2 S + TO                                                F5G17240    
       02563  0 50000 2 05035 F51    CLA LPLST+S3P1,2                                                 F5G17250    
       02564  0 34000 0 00535        CAS FV4 IS THIS SAME BB AS NEW ENTRY                             F5G17260    
       02565  0 02000 0 02567        TRA F49                                                          F5G17270    
       02566  0 02000 0 02312        TRA F43 YES                                                      F5G17280    
       02567  2 00001 2 02570 F49    TIX F50,2,1 DECREASE COMPARISON INDEX.                           F5G17290    
       02570 -3 00000 2 02572 F50    TXL F52,2,- IS THIS INDEX OF NEW QUANTITY                        F5G17300    
       02571  0 02000 0 02563        TRA F51 NO.                                                      F5G17310    
       02572  3 00002 2 02541 F52    TXH F63,2,2       IS LPLST FULL                                  F5G17320    
       02573  0 02000 0 02536        TRA F53 YES.                                                     F5G17330    
       02574 -0 53400 1 02527 F54    LXD F39,1 IS OPAQUE REGION                                       F5G17340    
       02575  0 50000 0 00357        CLA FK2 ENTER OPAQUE                                             F5G17350    
       02576  0 60100 1 05035        STO LPLST+S3P1,1 REGION MARKER                                   F5G17360    
       02577  0 50000 0 00532        CLA FV1 WITH CORRECT                                             F5G17370    
       02600  0 76700 0 00022        ALS 18 ENTRY BB                                                  F5G17380    
       02601  0 62200 1 05035        STD LPLST+S3P1,1 NO.                                             F5G17390    
       02602  0 02000 0 02550        TRA F47                                                          F5G17400    
       02603 -0 53400 2 02270 F55    LXD F11,2 STORE THE                                              F5G17410    
       02604  0 50000 0 00357        CLA FK2 OPAQUE                                                   F5G17420    
       02605  0 60100 2 05035        STO LPLST+S3P1,2 REGION MARKR                                    F5G17430    
       02606  0 50000 0 00532        CLA FV1 WITH                                                     F5G17440    
       02607  0 62100 2 05035        STA LPLST+S3P1,2 EXIT BB                                         F5G17450    
       02610  0 02000 0 02373        TRA F56 NO.                                                      F5G17460    
       02611  0 50000 0 00532 F57    CLA FV1 PUT THE                                                  F5G17470    
       02612 -0 32000 0 00353        ANA SBK2 B.B. NO.                                                F5G17480    
       02613  0 76700 0 00022        ALS 18 IN                                                        F5G17490    
       02614  0 60100 0 00535        STO FV4 DECR. PART.                                              F5G17500    
       02615  0 50000 0 02270        CLA F11 SET THE END                                              F5G17510    
       02616  0 62200 0 02623        STD F59 TEST.                                                    F5G17520    
       02617  0 53400 1 00341        LXA S5K4,1     SET INDEX OF 1ST LPLST TO BE COMPARED             F5G17530    
       02620  0 50000 1 05035 F61    CLA LPLST+S3P1,1                                                 F5G17540    
       02621  1 00001 1 02622        TXI F58,1,1                                                      F5G17550    
       02622 -0 63400 1 02412 F58    SXD F18,1                                                        F5G17560    
       02623  3 00000 1 02630 F59    TXH F60,1,- WAS THAT THE LAST QUANTITY                           F5G17570    
       02624  0 34000 0 00535        CAS FV4 IS THIS THE SAME BB.                                     F5G17580    
       02625  0 02000 0 02620        TRA F61                                                          F5G17590    
       02626  0 02000 0 02310        TRA F13 YES                                                      F5G17600    
       02627  0 02000 0 02620        TRA F61                                                          F5G17610    
       02630 -0 53400 1 02270 F60    LXD F11,1                                                        F5G17620    
       02631  0 50000 0 00532        CLA FV1 STORE THE                                                F5G17630    
       02632 -0 32000 0 00353        ANA SBK2 BB                                                      F5G17640    
       02633  0 76700 0 00022        ALS 18 MARKER.                                                   F5G17650    
       02634  0 60100 1 05035        STO LPLST+S3P1,1                                                 F5G17660    
       02635  0 50000 0 00532        CLA FV1                                                          F5G17670    
       02636  0 07400 4 02075        TSX F1,4 FIND MOST FREQ. PRED. OF BB.                            F5G17680    
       02637  0 50000 0 00544        CLA FV101 DOES B.B. HAVE                                         F5G17690    
       02640  0 60100 0 00532        STO FV1 UNCONSIDERED PRED.                                       F5G17700    
       02641 -0 10000 0 02644        TNZ F71                                                          F5G17710    
       02642 -0 53400 2 02270        LXD F11,2 NO,GO TO MOVE LPLST UP.                                F5G17720    
       02643  0 02000 0 02373        TRA F56                                                          F5G17730    
       02644 -0 53400 1 02270 F71    LXD F11,1                                                        F5G17740    
       02645  1 00001 1 02646        TXI F72,1,1 UP THE STORING INDEX                                 F5G17750    
       02646 -0 63400 1 02270 F72    SXD F11,1                                                        F5G17760    
       02647  3 00074 1 02536        TXH F53,1,S3P1 IS LPLST FULL                                     F5G17770    
       02650  0 02000 0 02253        TRA F23 NO.                                                      F5G17780    
       02651  0 53400 1 00362 F80    LXA FK5,1 FIND                                                   F5G17790    
       02652  0 50000 1 05263 F81    CLA REG,1 THE 1ST AVAILABLE REGION                               F5G17800    
       02653  0 10000 0 02656        TZE F82 POSITION.                                                F5G17810    
       02654  2 00001 1 02652        TIX F81,1,1                                                      F5G17820    
       02655  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR                                        F5G17830    
       02656 -0 63400 1 00565 F82    SXD XV1,1      STORE THE INDEX                                   F5G17840    
                                            OF THE NEW REGION WORD                                    F5G17850    
       02657  0 56000 0 00314 F83    LDQ ZERO         STORE INITIAL                                   F5G17860    
       02660 -0 60000 0 00566        STQ XV2        VALUE OF REGION                                   F5G17870    
       02661  0 02000 4 00001        TRA 1,4                                                          F5G17880    
       02662  0 07400 4 01523 F78    TSX SA,4 GET EXIT CONDITIONS OF REGION.                          F5G17890    
       02663  0 53400 1 00342        LXA S5K5,1        PUT EXIT                                       F5G17900    
       02664  0 56000 0 00314        LDQ ZERO                                                         F5G17910    
       02665  0 50000 1 00506 F76    CLA EX1+3,1 CONDITONS                                            F5G17920    
       02666  0 60100 1 00430        STO IR1+3,1 INTO                                                 F5G17930    
       02667  0 50000 1 00511        CLA ACT1+3,1 I+R.S                                               F5G17940    
       02670 -0 60000 1 00561        STQ AC1+3,1                                                      F5G17950    
       02671  0 12000 0 02675        TPL F77 IS THIS EXIT ACTIVE                                      F5G17960    
       02672  0 50000 0 00325        CLA S3K3 YES,FORM AND                                            F5G17970    
       02673 -0 76000 0 00003        SSM  STORE ACTIVE                                                F5G17980    
       02674  0 60100 1 00561        STO AC1+3,1 INDICATOR                                            F5G17990    
       02675  2 00001 1 02665 F77    TIX F76,1,1 COUNT TO 3                                           F5G18000    
       02676  0 50000 0 00325        CLA S3K3 INITIALIZE                                              F5G18010    
       02677  0 40200 0 00316        SUB ONED LOOP LIST                                               F5G18020    
       02700  0 60100 0 00440        STO S3V4 TO ITS                                                  F5G18030    
       02701  0 60100 0 00444        STO S3V5                                                         F5G18040    
       02702  0 50000 0 00340        CLA S5K3 2ED                                                     F5G18050    
       02703  0 60100 0 00437        STO S3V3 ELEMENT                                                 F5G18060    
       02704 -0 63400 0 00436        SXD S3V2,0                                                       F5G18070    
       02705  0 02000 0 03072        TRA X32                                                          F5G18080    
       02706  0 07400 4 02651 F75    TSX F80,4 DETERMINE NEW REGION INDEX                             F5G18090    
       02707  0 50000 0 04741        CLA LPLST IS 1ST                                                 F5G18100    
       02710  0 56000 0 00324        LDQ S3K2              ELEMENT OF LPLST A TRANSPARENT             F5G18110    
       02711  0 04000 0 02662        TLQ F78 ON OPAQUE REGION                                         F5G18120    
       02712  0 53400 1 00342        LXA S5K5,1 NO,INITIALIZE                                         F5G18130    
       02713  0 50000 0 00336        CLA S5K1 THE                                                     F5G18140    
       02714  0 60100 1 00430 F79    STO IR1+3,1 I.R.S                                                F5G18150    
       02715  2 00001 1 02714        TIX F79,1,1 TO EMPTINESS                                         F5G18160    
       02716  0 02000 0 03061        TRA X                                                            F5G18170    
                                          FIRST LXING PASS.                                           F5G18180    
       02717 -0 63400 0 02763  L     SXD ROT3,0                                                       F5G18190    
       02720 -0 63400 0 02756        SXD ROT1,0                                                       F5G18200    
       02721  0 53400 1 00342 INIZ   LXA S5K5,1            INITIALIZE                                 F5G18210    
       02722  0 50000 0 00336        CLA S5K1 THE                                                     F5G18220    
       02723  0 60100 1 00430 L23    STO IR1+3,1 INDEX REGISTERS                                      F5G18230    
       02724  2 00001 1 02723        TIX L23,1,1 TO EMPTINESS.                                        F5G18240    
       02725  0 56000 0 00325        LDQ S3K3                                                         F5G18250    
       02726 -0 60000 0 00440        STQ S3V4       INITIALIZE THE                                    F5G18260    
       02727  0 56000 0 00340        LDQ S5K3 LOOP LIST.                                              F5G18270    
       02730 -0 60000 0 00437        STQ S3V3 MAKE SURE THAT THE                                      F5G18280    
       02731 -0 63400 0 00436        SXD S3V2,0                                                       F5G18290    
       02732  0 07400 4 01023  1L4   TSX S3,4 GET NEXT TAG.                                           F5G18300    
       02733  0 02000 0 03013        TRA L6 *RETURN HERE IF TAG WASNT GOTTEN.                         F5G18310    
       02734  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18320    
       02735  0 50000 0 00441        CLA 1TAG           IS CL (TAG) EQUAL                             F5G18330    
       02736  0 34000 1 00430 L2     CAS IR1+3,1 TO C (IRN)                                           F5G18340    
       02737  0 02000 0 02741        TRA L1 NO.                                                       F5G18350    
       02740  0 02000 0 03000        TRA 1L3            YES                                           F5G18360    
       02741  2 00001 1 02736 L1     TIX L2,1,1 NO. COUNT TO 3,N=N+1                                  F5G18370    
       02742  0 50000 0 00442        CLA TPE IS THIS                                                  F5G18380    
       02743  0 34000 0 00376        CAS XK15 AN LXP INSTR.                                           F5G18390    
       02744  0 02000 0 02746        TRA L18 NO,                                                      F5G18400    
       02745  0 02000 0 02752        TRA ROT0          YES                                            F5G18410    
       02746  0 34000 0 00403 L18    CAS XK21 NO,IS IT A DED INSTR.                                   F5G18420    
       02747  0 02000 0 02773        TRA L17 NO                                                       F5G18430    
       02750  0 02000 0 02752        TRA ROT0               YES                                       F5G18440    
       02751  0 02000 0 02773        TRA L17                                                          F5G18450    
       02752 -0 53400 2 00440  ROT0  LXD S3V4,2                                                       F5G18460    
       02753 -3 00072 2 02732        TXL 1L4,2,S3P1-2                                                 F5G18470    
       02754 -0 53400 2 02763        LXD ROT3,2                                                       F5G18480    
       02755  1 77777 2 02756        TXI ROT1,2,-1                                                    F5G18490    
       02756 -3 00000 2 02732  ROT1  TXL 1L4,2,-                                                      F5G18500    
       02757 -0 63400 2 02763        SXD ROT3,2                                                       F5G18510    
       02760 -0 53400 2 00314        LXD ZERO,2                                                       F5G18520    
       02761  0 50000 2 04741  ROT2  CLA LPLST,2                                                      F5G18530    
       02762  0 34000 0 00323        CAS S3K1                                                         F5G18540    
       02763 -3 00000 0 02765  ROT3  TXL ROT4,0,-                                                     F5G18550    
       02764 -3 00000 0 02767        TXL ROT5,0,-                                                     F5G18560    
       02765  0 60100 2 04740  ROT4  STO LPLST-1,2                                                    F5G18570    
       02766  1 77777 2 02761        TXI ROT2,2,-1                                                    F5G18580    
       02767 -0 63400 2 02756  ROT5  SXD ROT1,2                                                       F5G18590    
       02770  0 50000 0 04740        CLA LPLST-1                                                      F5G18600    
       02771  0 60100 2 04740        STO LPLST-1,2                                                    F5G18610    
       02772  0 02000 0 02721        TRA INIZ                                                         F5G18620    
       02773  0 07400 4 00622 L17    TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G18630    
       02774 -0 53400 4 00430        LXD IRR,4 PLACE TAU-TAG                                          F5G18640    
       02775  0 50000 0 00441        CLA 1TAG           IN APPROPRIATE                                F5G18650    
       02776  0 60100 4 00430        STO IR1+3,4 I.R.                                                 F5G18660    
       02777  0 02000 0 02732        TRA 1L4                                                          F5G18670    
       03000  0 50000 0 00442  1L3   CLA TPE IS THIS AN LXP                                           F5G18680    
       03001  0 34000 0 00376        CAS XK15                                                         F5G18690    
       03002  0 02000 0 03004        TRA 1L19                                                         F5G18700    
       03003  0 02000 0 03010        TRA L5 YES                                                       F5G18710    
       03004  0 34000 0 00403  1L19  CAS XK21 IS IT AN DED                                            F5G18720    
       03005  0 02000 0 02732        TRA 1L4                                                          F5G18730    
       03006  0 02000 0 03010        TRA L5 YES.                                                      F5G18740    
       03007  0 02000 0 02732        TRA 1L4                                                          F5G18750    
       03010  0 50000 0 00333 L5     CLA LK1 PLACE AN E IHASH                                         F5G18760    
       03011  0 60100 1 00430        STO IR1+3,1 SYMBOL) IN                                           F5G18770    
       03012  0 02000 0 02732        TRA 1L4            RIGHT IR,                                     F5G18780    
       03013  0 60100 0 00554 L6     STO LV4 IS THIS AN END OF LOOP                                   F5G18790    
       03014  0 34000 0 00323        CAS S3K1 LIST SENTINEL                                           F5G18800    
       03015  0 02000 0 03017        TRA L14 NO,                                                      F5G18810    
       03016  0 02000 0 03051        TRA L15 YES,                                                     F5G18820    
       03017 -0 50000 0 00554 L14    CAL LV4 IS                                                       F5G18830    
       03020 -0 32000 0 00335        ANA LK3 THIS A                                                   F5G18840    
       03021  0 10000 0 02732        TZE 1L4            BB                                            F5G18850    
       03022  0 50000 0 00554        CLA LV4 NO,FORM CORRESPONDENCE                                   F5G18860    
       03023  0 07400 4 01245        TSX S5,4 BETWEEN IRS AND ENS                                     F5G18870    
       03024  0 50000 0 00554        CLA LV4 GET + STORE EXIT CONDITIONS                              F5G18880    
       03025  0 07400 4 01523        TSX SA,4 AND (USELESSLY+ OCTIVE INDICATORS.                      F5G18890    
       03026  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18900    
       03027  0 50000 1 00470 L11    CLA EN4+3,1 PUT CORRESPONDENCE INDEX                             F5G18910    
       03030 -0 73400 2 00000        PDX 0,2 IN 2.                                                    F5G18920    
       03031  0 50000 1 00506        CLA EX1+3,1 IS THIS EXIT CONDITION                               F5G18930    
       03032  0 34000 0 00336        CAS S5K1 EMPTY                                                   F5G18940    
       03033  0 02000 0 03035        TRA L13 NO,                                                      F5G18950    
       03034  0 02000 0 03040        TRA P003                                                         F5G18960    
       03035  0 60100 2 00430 L13    STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION.                 F5G16970    
       03036  2 00001 1 03027 L10    TIX L11,1,1 COUNT TO 3,N*M+1                                     F5G18980    
       03037  0 02000 0 02732        TRA 1L4                                                          F5G18990    
       03040  0 50000 2 00430   P003 CLA IR1+3,2                                                      F5G19000    
       03041  0 56000 0 00333        LDQ LK1                                                          F5G19010    
       03042  0 04000 0 03036        TLQ L10                                                          F5G19020    
       03043  0 53400 4 00342        LXA S5K5,4                                                       F5G19030    
       03044  0 34000 4 00506  P003A CAS EX1+3,4                                                      F5G19040    
       03045  0 02000 0 03047        TRA P003B                                                        F5G19050    
       03046 -0 60000 2 00430        STQ IR1+3,2                                                      F5G19060    
       03047  2 00001 4 03044  P003B TIX P003A,4,1                                                    F5G19070    
       03050  0 02000 0 03036        TRA L10                                                          F5G19080    
       03051  0 53400 1 00342 L15    LXA S5K5,1 COPY ASIDE THE FINAL                                  F5G19090    
       03052  0 50000 1 00430 L16    CLA IR1+3,1 CONTENTS                                             F5G19100    
       03053  0 34000 0 00333        CAS LK1               (IF REAL, OTHERWISE                        F5G19110    
       03054  0 76100 0 00000        NOP                                                              F5G19120    
       03055  0 50000 0 00336        CLA S5K1              SET TO                                     F5G19130    
       03056  0 60100 1 00430        STO IR1+3,1           EMPTY)                                     F5G19140    
       03057  0 60100 1 00554        STO LV1+3,1 OF THE                                               F5G19150    
       03060  2 00001 1 03052        TIX L16,1,1 IRS                                                  F5G19160    
                                          TNE SECOND LXING PASS FOLLOWS.                              F5G19170    
                                          PRECEEDED BY 1ST LXING PASS                                 F5G19180    
       03061  0 56000 0 00325 X      LDQ S3K3 INITIALIZE THE                                          F5G19190    
       03062 -0 60000 0 00440        STQ S3V4 LOOP LIST AND                                           F5G19200    
       03063  0 56000 0 00340        LDQ S5K3 MAKE SURE TAG                                           F5G19210    
       03064 -0 60000 0 00437        STQ S3V3 LOC. GETS SET.                                          F5G19220    
       03065 -0 63400 1 00436        SXD S3V2,1                                                       F5G19230    
       03066  0 50000 0 00314 X21    CLA ZERO SET ACTIVE INDICATORS                                   F5G19240    
       03067  0 60100 0 00556        STO AC1 TO                                                       F5G19250    
       03070  0 60100 0 00557        STO AC2                                                          F5G19260    
       03071  0 60100 0 00560        STO AC3 NOT ACTIVE.                                              F5G19270    
       03072  0 50000 0 00314 X32    CLA ZERO SET LX INDICATORS                                       F5G19280    
       03073  0 60100 0 00562        STO LX1 TO                                                       F5G19290    
       03074  0 60100 0 00563        STO LX2 NOT                                                      F5G19300    
       03075  0 60100 0 00564        STO LX3 LX ED.                                                   F5G19310    
       03076  0 60100 0 00521        STO ACIND      SET IND. TO SAY THIS IS 2ED LXING PASS            F5G19320    
       03077  0 07400 4 01023 X3     TSX S3,4 TRY TO GET NEXT TAG.                                    F5G19330    
       03100  0 02000 0 03322        TRA X13 COME HERE IF TAG NOT GOT.                                F5G19340    
       03101  0 50000 0 01122        CLA S39 COMPUTE LOCATIONS OF                                     F5G19350    
       03102 -0 32000 0 00353        ANA SBK2 THIS TAG=(ADDR. FOLLOWING                               F5G19360    
       03103  0 40000 0 00451        ADD S4V1 TIX BLACK + L (CM)-                                     F5G19370    
       03104  0 40200 0 00332        SUB S4K3 CMTAG-INDEX OF TAG                                      F5G19380    
       03105  0 76700 0 00022        ALS 18                                                           F5G19390    
       03106 -0 40000 0 00436        SBM S3V2                                                         F5G19400    
       03107  0 76500 0 00065        LRS 53 THEN FORM LOC/9                                           F5G19410    
       03110 -0 60000 0 00571        STQ XV5 AND REMAINDER                                            F5G19420    
       03111  0 22100 0 00371        DVP XK9 STORE INTEG. PART                                        F5G19430    
       03112 -0 60000 0 00567        STQ XV3 AND REMAINDER.                                           F5G19440    
       03113  0 60100 0 00570        STO XV4                                                          F5G19450    
       03114  0 53400 1 00342        LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G19460    
       03115  0 50000 0 00441        CLA 1TAG                                                         F5G19470    
       03116  0 34000 1 00430 X2     CAS IR1+3,1       IS CONTENTS OF IRN SAME AS OF TAG              F5G19480    
       03117  0 02000 0 03121        TRA X1 NO                                                        F5G19490    
       03120  0 02000 0 03257        TRA X7 YES                                                       F5G19500    
       03121  2 00001 1 03116 X1     TIX X2,1,1 NO COUNT OT 3,N=N+1                                   F5G19510    
       03122  0 50000 0 00442        CLA TPE IS THIS AN                                               F5G19520    
       03123  0 34000 0 00376        CAS XK15 LX PRIME                                                F5G19530    
       03124  0 02000 0 03126        TRA X103 NO                                                      F5G19540    
       03125  0 02000 0 03131        TRA X8    YES.  COMPILE LXD FOR LXP.                             F5G19550    
       03126  0 34000 0 00403 X103   CAS XK21 IS IT A DED                                             F5G19560    
       03127  0 02000 0 03131        TRA X8                                                           F5G19570    
       03130  0 02000 0 03077        TRA X3 YES                                                       F5G19580    
       03131  0 07400 4 00622 X8     TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G19590    
       03132 -0 53400 1 00430        LXD IRR,1 PLACE TAU-TAG                                          F5G19600    
       03133  0 50000 0 00441        CLA 1TAG           IN SELECTED                                   F5G19610    
       03134  0 60100 1 00430        STO IR1+3,1 I.R.                                                 F5G19620    
       03135  0 50000 1 00561        CLA AC1+3,1 IS THIS                                              F5G19630    
       03136  0 10000 0 03140        TZE X4 IR ACTIVE                                                 F5G19640    
       03137  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G19650    
       03140  0 50000 0 00442 X4     CLA TPE 1S THIS                                                  F5G19660    
       03141  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G19670    
       03142  0 02000 0 03144        TRA X5 NO                                                        F5G19680    
       03143  0 02000 0 03155        TRA X14 YES                                                      F5G19690    
       03144 -0 50000 0 00443 X5     CAL INTAG IS THIS 1ST INSTR.                                     F5G19700    
       03145 -0 32000 0 00363        ANA XK10 IN A BB                                                 F5G19710    
       03146 -0 10000 0 03204        TNZ X9                                                           F5G19720    
       03147  0 50000 0 00567        CLA XV3 NO,                                                      F5G19730    
       03150  0 07400 4 00032        TSX SE4,4 DETERMINE INDEX IN STAG                                F5G19740    
       03151  0 53400 2 00570        LXA XV4,2                                                        F5G19750    
       03152 -0 50000 0 00372        CAL XK11 GENERATE                                                F5G19760    
       03153  0 76700 2 00010        ALS 8,2 LX BIT                                                   F5G19770    
       03154 -0 60200 1 05263        ORS STAG,1 STORE IN STAG.                                        F5G19780    
       03155  0 07400 4 02024 X14    TSX SF,4 CHECK IF AN ACTIVE INSTR.                               F5G19790    
       03156  0 02000 0 03162        TRA X01 COME HERE IF NOT ACTIVE                                  F5G19800    
       03157 -0 53400 1 00430        LXD IRR,1 ACTIVE-STQRE ACTIVE                                    F5G19810    
       03160  0 50000 0 00526        CLA SFV1 INDICATOR                                               F5G19820    
       03161  0 60100 1 00561        STO AC1+3,1                                                      F5G19830    
       03162 -0 53400 2 00430 X01    LXD IRR,2                                                        F5G19840    
       03163  0 50000 2 00565        CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT                          F5G19850    
       03164 -0 10000 0 03167        TNZ X19 BEEN DETERMINED FOR THIS BB.                             F5G19860    
       03165  0 50000 0 00333        CLA LK1 NO,RECORD HASH                                           F5G19870    
       03166  0 60100 2 00565        STO LX1+3,2 AS ENTRANCE REQUIREMENT                              F5G19880    
       03167 -0 50000 0 00340 X19    CAL S5K3 RECORD THAT THERE IS AN                                 F5G19890    
       03170  0 77100 2 00003        ARS 3,2 LX FOR THIS IR IN                                        F5G19900    
       03171 -0 60200 0 00566        ORS XV2 REGION.                                                  F5G19910    
       03172  0 50000 0 00567 X02    CLA XV3 RECORD THE                                               F5G19920    
       03173  0 07400 4 00032        TSX SE4,4 SPECIFIC                                               F5G19930    
       03174 -0 50000 0 00570        CAL XV4 TAG                                                      F5G19940    
       03175  0 76000 0 00006        COM  IN                                                          F5G19950    
       03176  0 73400 2 00000        PAX 0,2 THE                                                      F5G19960    
       03177 -0 50000 0 00430        CAL IRR STAG                                                     F5G19970    
       03200  0 77100 2 00000        ARS 0,2 TABLE                                                    F5G19980    
       03201  0 77100 2 00000        ARS 0,2                                                          F5G19990    
       03202 -0 60200 1 05263        ORS STAG,1                                                       F5G20000    
       03203  0 02000 0 03077        TRA X3                                                           F5G20010    
       03204 -0 53400 1 00440 X9     LXD S3V4,1 GET                                                   F5G20020    
       03205 -3 00072 1 03212        TXL XI1+1,1,S3P1-2                                               F5G20030    
       03206  0 50000 0 00550        CLA LPIND                                                        F5G20040    
       03207 -0 12000 0 03212        TMI XI1+1                                                        F5G20050    
       03210 -0 53400 2 00430        LXD IRR,2                                                        F5G20060    
       03211  0 02000 0 03243 XI1    TRA X16-3                                                        F5G20070    
       03212  0 50000 1 05033        CLA LPLST+S3P1-2,1 AND                                           F5G20080    
       03213  0 34000 0 00324        CAS S3K2 STORE                                                   F5G20090    
       03214  0 76100 0 00000        NOP  BB                                                          F5G20100    
       03215  0 02000 0 03217        TRA X117                                                         F5G20110    
       03216  0 77100 0 00022        ARS 18 PRED                                                      F5G20120    
       03217  0 62100 0 00513 X117   STA SBV3      NO.                                                F5G20130    
       03220  0 50000 1 05034        CLA LPLST+S3P1-1,1                                               F5G20140    
       03221  0 07400 4 00070        TSX SE,4 GET ADDR. OF                                            F5G20150    
       03222  0 50000 1 12533        CLA BBB,1 1ST PRED.                                              F5G20160    
       03223  0 60200 0 00512 X03    SLW SBV2                                                         F5G20170    
       03224  0 07400 4 00055        TSX SE5,4 GET PRED.                                              F5G20180    
       03225 -0 50000 1 15674        CAL PRED,1                                                       F5G20190    
       03226 -0 32000 0 00353        ANA SBK2                                                         F5G20200    
       03227  0 34000 0 00513        CAS SBV3 IS THIS RIGHT PRED.                                     F5G20210    
       03230  0 02000 0 03232        TRA X04 NO                                                       F5G20220    
       03231  0 02000 0 03235        TRA X05 YES                                                      F5G20230    
       03232  0 50000 0 00512 X04    CLA SBV2 NO ARRANGE TO                                           F5G20240    
       03233  0 40000 0 00315        ADD ONEA TRY NEXT                                                F5G20250    
       03234  0 02000 0 03223        TRA X03 PRED.                                                    F5G20260    
       03235 -0 53400 2 00430 X05    LXD IRR,2 PUT LX                                                 F5G20270    
       03236 -0 50000 0 00377        CAL XK16 BIT INTO                                                F5G20280    
       03237  0 77100 2 00003        ARS 3,2 PRED.                                                    F5G20290    
       03240 -0 60200 1 15674        ORS PRED,1 TABLE.                                                F5G20300    
       03241 -0 53400 4 00440        LXD S3V4,4                                                       F5G20310    
       03242 -0 60200 4 05034        ORS LPLST+S3P1-1,4                                               F5G20320    
       03243  0 50000 2 00430        CLA IR1+3,2       SET ENTR. REQU.                                F5G20330    
       03244  0 60100 2 00565        STO LX1+3,2                                                      F5G20340    
       03245  0 02000 0 03155        TRA X14                                                          F5G20350    
       03246  0 07400 4 01661 X16    TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST                  F5G20360    
       03247  0 56000 0 00333        LDQ LK1                                                          F5G20370    
       03250  0 50000 1 00565        CLA LX1+3,1 HAS THIS                                             F5G20380    
       03251 -0 10000 0 03253        TNZ X100 ENTR. REQU. BEEN DETERMINED                             F5G20390    
       03252 -0 60000 1 00565        STQ LX1+3,1 NO,RECORD ENTR. REOU. IS AN E.                       F5G20400    
       03253 -0 60000 1 00430 X100   STQ IR1+3,1 ERASE THIS I.R.                                      F5G20410    
       03254  0 50000 0 00314        CLA ZERO RECORD THAT THIS                                        F5G20420    
       03255  0 60100 1 00561        STO AC1+3,1 I.R. ISNT ACTIVE.                                    F5G20430    
       03256  0 02000 0 03172        TRA X02                                                          F5G20440    
       03257 -0 63400 1 00430 X7     SXD IRR,1                                                        F5G20450    
       03260  0 50000 0 00442        CLA TPE IS THIS                                                  F5G20460    
       03261  0 34000 0 00376        CAS XK15 AN LXP                                                  F5G20470    
       03262  0 02000 0 03264        TRA X104 NO                                                      F5G20480    
       03263  0 02000 0 03246        TRA X16 YES.                                                     F5G20490    
       03264  0 34000 0 00403 X104   CAS XK21 IS IT A DED                                             F5G20500    
       03265  0 02000 0 03267        TRA X15                                                          F5G20510    
       03266  0 02000 0 03246        TRA X16 YES.                                                     F5G20520    
       03267  0 07400 4 02024 X15    TSX SF,4 DETERMINE ACTIVITY.                                     F5G20530    
       03270  0 02000 0 03275        TRA X17 COME HERE IF NOT ACTIVE.                                 F5G20540    
       03271 -0 53400 1 00430        LXD IRR,1                                                        F5G20550    
       03272  0 07400 4 01661        TSX SC,4 RECORD PART OF L0OP LIST ACTIVE.                        F5G20560    
       03273  0 50000 0 00526        CLA SFV1 STORE ACTIVE                                            F5G20570    
       03274  0 60100 1 00561        STO AC1+3,1 INDICATOR.                                           F5G20580    
       03275  0 50000 0 00442 X17    CLA TPE                                                          F5G20590    
       03276  0 34000 0 00322        CAS S2K2 IS THIS AN LX                                           F5G20600    
       03277  0 02000 0 03301        TRA X18                                                          F5G20610    
       03300  0 02000 0 03162        TRA X01 YES.                                                     F5G20620    
       03301 -0 53400 1 00430 X18    LXD IRR,1                                                        F5G20630    
       03302  0 50000 1 00565        CLA LX1+3,1 WAS THIS                                             F5G20640    
       03303 -0 10000 0 03172        TNZ X02 I.R. LX ED                                               F5G20650    
       03304  0 50000 1 00430        CLA IR1+3,1 NO,STORE THE TAG                                     F5G20660    
       03305  0 60100 1 00565        STO LX1+3,1 IN TH LX INDICATOR.                                  F5G20670    
       03306  0 02000 0 03172        TRA X02                                                          F5G20680    
       03307  0 07400 4 00070 X22    TSX SE,4 MAKE SURE BB IS IN C+M.                                 F5G20690    
       03310  0 53400 2 00342        LXA S5K5,2                                                       F5G20700    
       03311  0 50000 2 00565 X25    CLA LX1+3,2                                                      F5G20710    
       03312 -0 10000 0 03314        TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND                        F5G20720    
       03313  0 50000 2 00430        CLA IR1+3,2 NO,ENTRANCE = EXIT.                                  F5G20730    
       03314  0 76700 0 00022 X23    ALS 18 PUT ENTR. REQ. IN LEFT.                                   F5G20740    
       03315  0 40000 2 00430        ADD IR1+3,2 ADD THE EXIT REQUIREMENTS.                           F5G20750    
       03316  0 60200 1 12535        SLW BBB+2,1                                                      F5G20760    
       03317  1 77777 1 03320        TXI X24,1,-1      DOWN INDEX OF ENTR-EXIT REQU.                  F5G20770    
       03320  2 00001 2 03311 X24    TIX X25,2,1 COUNT TO 3                                           F5G20780    
       03321  0 02000 0 03353        TRA X26                                                          F5G20790    
       03322 -0 53400 1 00440 X13    LXD S3V4,1      GET LOOP LIST QUANTITY                           F5G20800    
       03323  3 00072 1 03353        TXH X26,1,S3P1-2  TRANSFER IF THIS IS 1ST IN LPLST               F5G20810    
       03324  0 50000 1 05033        CLA LPLST+S3P1-2,1     OF PREVIOUS QUANTITY                      F5G20820    
       03325  0 60100 0 00607        STO XV19                                                         F5G20830    
       03326  0 56000 0 00324        LDQ S3K2        WAS IT                                           F5G20840    
       03327  0 04000 0 03331        TLQ X126      A BB                                               F5G20850    
       03330  0 77100 0 00022        ARS 18       YES                                                 F5G20860    
       03331 -0 32000 0 00326  X126  ANA S3K4              IS THERE                                   F5G20870    
       03332  0 56000 0 00351        LDQ SAK1                                                         F5G20880    
       03333  0 04000 0 03346        TLQ X129                                                         F5G20890    
       03334  0 07400 4 00067        TSX SE1,4             YES, GET EXIT BB                           F5G20900    
       03335  0 50000 1 12533        CLA BBB,1       WAS THAT BB                                      F5G20910    
       03336  0 77100 0 00041        ARS 33        TERMINATED BY                                      F5G20920    
       03337  0 40000 0 00315        ADD ONEA           A                                             F5G20930    
       03340 -0 10000 0 03346        TNZ X129          GO TO N                                        F5G20940    
       03341  0 53400 1 00342        LXA S5K5,1       YES, SET COUNT TO 3                             F5G20950    
       03342  0 50000 1 00561 X128   CLA AC1+3,1      IS THIS IR                                      F5G20960    
       03343  0 10000 0 03345        TZE X127          ACTIVE                                         F5G20970    
       03344  0 07400 4 01566        TSX SB,4          YES, RECORD SXD NECESSARY                      F5G20980    
       03345  2 00001 1 03342 X127   TIX X128,1,1         COUNT TO 3                                  F5G20990    
       03346  0 50000 0 00607 X129   CLA XV19       GET                                               F5G21000    
       03347  0 34000 0 00324        CAS S3K2                                                         F5G21010    
       03350  0 76100 0 00000        NOP  NO                                                          F5G21020    
       03351  0 02000 0 03353        TRA X26                                                          F5G21030    
       03352  0 02000 0 03307        TRA X22 YES,                                                     F5G21040    
       03353  0 50000 0 00444 X26    CLA S3V5 NO                                                      F5G21050    
       03354  0 34000 0 00323        CAS S3K1 IS THIS AN END-LOOP-LIST                                F5G21060    
       03355  0 02000 0 03357        TRA X31 NO                                                       F5G21070    
       03356  0 02000 0 04370        TRA X88 YES                                                      F5G21080    
       03357 -0 50000 0 00444 X31    CAL S3V5                                                         F5G21090    
       03360 -0 32000 0 00335        ANA LK3                                                          F5G21100    
       03361  0 34000 0 00400        CAS XK17 WHAT TYPE ENTRY IS THIS                                 F5G21110    
       03362  0 02000 0 03365        TRA X118                                                         F5G21120    
       03363  0 02000 0 04043        TRA X33 TRANSPARENT REGION                                       F5G21130    
       03364  0 02000 0 03072        TRA X32 BB                                                       F5G21140    
       03365  0 50000 0 00444 X118   CLA S3V5     OPAQUE REGION                                       F5G21150    
       03366  0 07400 4 00070        TSX SE,4     IS                                                  F5G21160    
       03367  0 50000 1 12540        CLA BBB+5,1     THIS                                             F5G21170    
       03370  0 60100 0 00614        STO XV24                                                         F5G21180    
       03371  0 62200 0 00613        STD XV23      THE                                                F5G21190    
       03372  0 50000 0 04741        CLA LPLST      SAME                                              F5G21200    
       03373  0 56000 0 00361        LDQ FK4                                                          F5G21210    
       03374  0 04000 0 03376        TLQ X221                                                         F5G21220    
       03375  1 00000 0 03404        TXI X213,0,-                                                     F5G21230    
       03376  0 07400 4 00067 X221   TSX SE1,4         REGION                                         F5G21240    
       03377  0 50000 1 12540        CLA BBB+5,1        AS                                            F5G21250    
       03400 -0 32000 0 00321        ANA S2K1          AT THE BEGINNING                               F5G21260    
       03401  0 40200 0 00613        SUB XV23      OF THE                                             F5G21270    
       03402  0 60100 0 00614        STO XV24          STORE IND. OF SAMENESS OF 1ST REGION           F5G21280    
       03403  0 10000 0 03724        TZE X61       LPLST                                              F5G21290    
       03404  0 50000 0 00444 X213   CLA S3V5                                                         F5G21300    
       03405  0 07400 4 01245 X57    TSX S5,4 NO,MATCH ENTR. REQU.                                    F5G21310    
       03406 -0 53400 1 00613 X63    LXD XV23,1        GET                                            F5G21320    
       03407  0 50000 1 05263        CLA REG,1         REGION WORD                                    F5G21330    
       03410  0 07400 4 00070        TSX SE,4          CST INDEX OF 1ST BB                            F5G21340    
       03411 -0 50000 1 12534 X209   CAL BBB+1,1       GET THE                                        F5G21350    
       03412  0 60200 0 00575        SLW XV9           ORIGINAL PERM. NOS.                            F5G21360    
       03413 -0 32000 0 00402        ANA XK20          STORE WORD TO                                  F5G21370    
       03414  0 60200 0 00574        SLW XV8           CONTAIN NEW PERM. NOS.                         F5G21380    
       03415  0 53400 2 00342        LXA S5K5,2        SET COUNT TO 3                                 F5G21390    
       03416 -0 50000 0 00575 X210   CAL XV9           GET THE                                        F5G21400    
       03417  0 77100 2 00003        ARS 3,2                                                          F5G21410    
       03420  0 77100 2 00003        ARS 3,2           PERM. NO. AND                                  F5G21420    
       03421 -0 32000 0 00350        ANA S9K3          PUT IT                                         F5G21430    
       03422 -0 73400 4 00000        PDX 0,4           IN 4.                                          F5G21440    
       03423  0 50000 4 00470        CLA EN4+3,4       GET THE                                        F5G21450    
       03424  0 76700 2 00003        ALS 3,2           CORRESPONDENCE                                 F5G21460    
       03425  0 76700 2 00003        ALS 3,2           OF THE ENTR. REQUIREMENTS                      F5G21470    
       03426 -0 60200 0 00574        ORS XV8           FORM NEW PERM.                                 F5G21480    
       03427  2 00001 2 03416        TIX X210,2,1                                                     F5G21490    
       03430 -0 50000 0 00574        CAL XV8            STORE NEW PERM.                               F5G21500    
       03431  0 62200 1 12534        STD BBB+1,1       NOS.                                           F5G21510    
       03432  0 50000 1 12540        CLA BBB+5,1       IS THIS THE LAST                               F5G21520    
       03433 -0 32000 0 00353        ANA SBK2          BB IN REGION                                   F5G21530    
       03434  0 34000 0 00353        CAS SBK2                                                         F5G21540    
       03435  0 02000 0 03437        TRA X211          NO.                                            F5G21550    
       03436  0 02000 0 03441        TRA X212          YES, DONE                                      F5G21560    
       03437  0 07400 4 00067 X211   TSX SE1,4         ARRANGE TO DO NEXT                             F5G21570    
       03440  0 02000 0 03411        TRA X209          BB.                                            F5G21580    
       03441  0 53400 1 00342 X212   LXA S5K5,1        SET COUNT TO 3                                 F5G21590    
       03442  0 50000 1 00465 X60    CLA IN1+3,1       GET INDEX                                      F5G21600    
       03443 -0 73400 2 00000        PDX 0,2 OF EN.                                                   F5G21610    
       03444  0 50000 2 00473        CLA EN1+3,2 IS C(ENM)                                            F5G21620    
       03445  0 34000 1 00430        CAS IR1+3,1 =C(IRN)                                              F5G21630    
       03446  0 02000 0 03450        TRA X58                                                          F5G21640    
       03447  0 02000 0 03734        TRA X64 YES,                                                     F5G21650    
       03450  0 34000 0 00337 X58    CAS S5K2 IS C(ENM) REAL                                          F5G21660    
       03451  0 76100 0 00000        NOP  NO,                                                         F5G21670    
       03452  0 02000 0 03454        TRA X119                                                         F5G21680    
       03453  0 02000 0 03771        TRA X67 YES,                                                     F5G21690    
       03454  0 50000 1 00561 X119   CLA AC1+3,1     NO,IS                                            F5G21700    
       03455  0 10000 0 03457 X102   TZE X59 IRN ACTIVE                                               F5G21710    
       03456  0 07400 4 01566 X65    TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G21720    
       03457  2 00001 1 03442 X59    TIX X60,1,1                                                      F5G21730    
       03460  0 07400 4 02042        TSX SG,4            PERMUTE REGION WORD                          F5G21740    
       03461  0 50000 0 04741 X89    CLA LPLST                                                        F5G21750    
       03462  0 34000 0 00324        CAS S3K2          IS IT A BB                                     F5G21760    
       03463  0 07400 4 00067        TSX SE1,4         NO                                             F5G21770    
       03464  0 02000 0 03466        TRA X206                                                         F5G21780    
       03465  0 02000 0 03471        TRA X207                                                         F5G21790    
       03466  0 50000 1 12540 X206   CLA BBB+5,1                                                      F5G21800    
       03467 -0 73400 1 00000        PDX 0,1                                                          F5G21810    
       03470  0 50000 1 05263        CLA REG,1         FORM NO OF 1ST BB IN REGION                    F5G21820    
       03471  0 62200 0 00566 X207   STD XV2                                                          F5G21830    
       03472  0 53400 1 00342        LXA S5K5,1                                                       F5G21840    
       03473  0 50000 0 00336 X116   CLA S5K1                                                         F5G21850    
       03474  0 34000 1 00430        CAS IR1+3,1      IS THIS IR EMPTY                                F5G21860    
       03475  0 02000 0 03500        TRA X115                                                         F5G21870    
       03476 -0 50000 1 00410        CAL XK23+3,1     YES, INITIALIZE IR                              F5G21880    
       03477 -0 60200 0 00566        ORS XV2       TO EMPTYNESS                                       F5G21890    
       03500  2 00001 1 03473 X115   TIX X116,1,1      COUNT TO 3                                     F5G21900    
       03501 -0 53400 2 00325        LXD S3K3,2        PREPARE TO SCAN LO0P LIST                      F5G21910    
       03502 -0 63400 2 00600        SXD XV12,2                                                       F5G21920    
       03503  0 50000 2 05035 X79    CLA LPLST+S3P1,2                                                 F5G21930    
       03504  0 34000 0 00323        CAS S3K1 IS THIS END LOOP LIST                                   F5G21940    
       03505  0 02000 0 03507        TRA X120                                                         F5G21950    
       03506  0 02000 0 03717        TRA X81 YES.                                                     F5G21960    
       03507  0 34000 0 00324 X120   CAS S3K2         IS IT A BB                                      F5G21970    
       03510  0 76100 0 00000        NOP                                                              F5G21980    
       03511  0 02000 0 03513        TRA X121                                                         F5G21990    
       03512  0 77100 0 00022        ARS 18 YES.                                                      F5G22000    
       03513  0 62100 0 00513 X121   STA SBV3       STORE EXIT BB NO.                                 F5G22010    
       03514  0 50000 2 05036        CLA LPLST+S3P1+1,2                                               F5G22020    
       03515  0 34000 0 00323        CAS S3K1 IS NEXT QUANTITY AN END LPLST                           F5G22030    
       03516  0 02000 0 03520        TRA X107                                                         F5G22040    
       03517  0 02000 0 03603        TRA X114 YES.                                                    F5G22050    
       03520  0 77100 0 00022 X107   ARS 18                                                           F5G22060    
       03521  0 62100 0 00606        STA XV18 STORE ENTRY BB NO.                                      F5G22070    
       03522  0 40000 0 00315        ADD ONEA                                                         F5G22080    
       03523  0 07400 4 00067        TSX SE1,4                                                        F5G22090    
       03524 -0 50000 1 12533        CAL BBB,1                                                        F5G22100    
       03525 -0 32000 0 00353        ANA SBK2                                                         F5G22110    
       03526  0 60100 0 00515        STO SBV5                                                         F5G22120    
       03527  0 50000 0 00606        CLA XV18                                                         F5G22130    
       03530  0 07400 4 00067        TSX SE1,4                                                        F5G22140    
       03531  0 50000 1 12533        CLA BBB,1                                                        F5G22150    
       03532 -0 32000 0 00353        ANA SBK2                                                         F5G22160    
       03533  0 60200 0 00512 X109   SLW SBV2                                                         F5G22170    
       03534  0 07400 4 00055        TSX SE5,4                                                        F5G22180    
       03535 -0 50000 1 15674        CAL PRED,1                                                       F5G22190    
       03536 -0 32000 0 00353        ANA SBK2                                                         F5G22200    
       03537  0 34000 0 00513        CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G22210    
       03540  0 02000 0 03542        TRA X108                                                         F5G22220    
       03541  0 02000 0 03550        TRA X110 YES                                                     F5G22230    
       03542  0 50000 0 00512 X108   CLA SBV2 ARRANGE TO TRY                                          F5G22240    
       03543  0 40000 0 00315        ADD ONEA NEXT PRED.                                              F5G22250    
       03544  0 34000 0 00515        CAS SBV5            IS THIS PRED ENTRY IN SAME BB                F5G22260    
       03545  0 02000 0 03533        TRA X109                                                         F5G22270    
       03546  0 02000 0 03554        TRA X222                                                         F5G22280    
       03547  0 02000 0 03533        TRA X109                                                         F5G22290    
       03550  0 50000 1 15674 X110   CLA PRED,1 SET SIGN                                              F5G22300    
       03551 -0 76000 0 00003        SSM  OF PRED.                                                    F5G22310    
       03552  0 60100 1 15674        STO PRED,1 ENTRY NEGATIVE.                                       F5G22320    
       03553  0 02000 0 03542        TRA X108                                                         F5G22330    
       03554  0 50000 0 00513 X222   CLA SBV3            GET INDEX                                    F5G22340    
       03555  0 40000 0 00315        ADD ONEA                                                         F5G22350    
       03556  0 07400 4 00067        TSX SE1,4 OF                                                     F5G22360    
       03557  0 50000 1 12533        CLA BBB,1                                                        F5G22370    
       03560 -0 32000 0 00321        ANA S2K1                                                         F5G22380    
       03561  0 60100 0 00515        STO SBV5                                                         F5G22390    
       03562  0 50000 0 00513        CLA SBV3                                                         F5G22400    
       03563  0 07400 4 00067        TSX SE1,4                                                        F5G22410    
       03564  0 50000 1 12533        CLA BBB,1                                                        F5G22420    
       03565 -0 32000 0 00321        ANA S2K1                                                         F5G22430    
       03566  0 60200 0 00512 X112   SLW SBV2                                                         F5G22440    
       03567  0 07400 4 00044        TSX SE6,4                                                        F5G22450    
       03570 -0 50000 1 16734        CAL SUCC,1                                                       F5G22460    
       03571 -0 32000 0 00353        ANA SBK2                                                         F5G22470    
       03572  0 34000 0 00606        CAS XV18 IS THIS RIGHT SUCC.                                     F5G22480    
       03573  0 02000 0 03575        TRA X111                                                         F5G22490    
       03574  0 02000 0 03607        TRA X113                                                         F5G22500    
       03575  0 50000 0 00512 X111   CLA SBV2 ARRANGE TO TRY NEXT SUCC.                               F5G22510    
       03576  0 40000 0 00316        ADD ONED                                                         F5G22520    
       03577  0 34000 0 00515        CAS SBV5            IS THIS SUCC IN SAME BB                      F5G22530    
       03600  0 02000 0 03566        TRA X112                                                         F5G22540    
       03601  0 02000 0 03613        TRA X74                                                          F5G22550    
       03602  0 02000 0 03566        TRA X112                                                         F5G22560    
       03603  0 50000 0 00550 X114   CLA LPIND IS THIS                                                F5G22570    
       03604  0 12000 0 03613        TPL X74        A LOOP                                            F5G22580    
       03605  0 50000 0 04741        CLA LPLST YES                                                    F5G22590    
       03606  0 02000 0 03520        TRA X107                                                         F5G22600    
       03607  0 50000 1 16734 X113   CLA SUCC,1 SET SIGN                                              F5G22610    
       03610 -0 76000 0 00003        SSM  OF SUCC+ ENTRY                                              F5G22620    
       03611  0 60100 1 16734        STO SUCC,1 NEGATIVE                                              F5G22630    
       03612  0 02000 0 03575        TRA X111                                                         F5G22640    
       03613 -0 53400 2 00600 X74    LXD XV12,2                                                       F5G22650    
       03614  0 50000 2 05035        CLA LPLST+S3P1,2                                                 F5G22660    
       03615  0 34000 0 00324        CAS S3K2         IS IT A BB                                      F5G22670    
       03616  0 76100 0 00000        NOP                                                              F5G22680    
       03617  0 02000 0 03621        TRA X122                                                         F5G22690    
       03620  0 02000 0 03662        TRA X80 YES                                                      F5G22700    
       03621 -0 73400 4 00000 X122   PDX 0,4                                                          F5G22710    
       03622  3 77776 4 03624        TXH X205,4,-2     IS THE DECR. AN IMPOSSIBLE BB                  F5G22720    
       03623  0 77100 0 00022        ARS 18                                                           F5G22730    
       03624  0 07400 4 00067 X205   TSX SE1,4                                                        F5G22740    
       03625  0 50000 1 12540        CLA BBB+5,1 THE                                                  F5G22750    
       03626 -0 73400 1 00000        PDX 0,1 REOEON                                                   F5G22760    
       03627 -0 50000 1 05263        CAL REG,1           WORD                                         F5G22770    
       03630  0 60200 0 00605        SLW XV17                                                         F5G22780    
       03631  0 10000 0 03655        TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED                 F5G22790    
       03632 -0 32000 0 00335        ANA LK3     OR THE LX BITS FOR                                   F5G22800    
       03633 -0 60200 0 00566        ORS XV2 OLD REGION IN NEW REGION WORD.                           F5G22810    
       03634 -0 50000 0 00404        CAL XK22            AND THE OLD PHI                              F5G22820    
       03635 -0 50100 0 00605        ORA XV17 BITS                                                    F5G22830    
       03636  0 32000 0 00566        ANS XV2 INTO NEW REGION WORD.                                    F5G22840    
       03637  0 50000 0 00314        CLA ZERO CLEAR OLD                                               F5G22850    
       03640  0 60100 1 05263        STO REG,1 REGION WORD.                                           F5G22860    
       03641  0 50000 0 00605        CLA XV17 GET INDEX OF                                            F5G22870    
       03642  0 77100 0 00022        ARS 18                FIRST BB IN REG                            F5G22880    
       03643  0 62100 0 00612 X75    STA XV22       STOREBB NO.                                       F5G22890    
       03644  0 07400 4 00067        TSX SE1,4 GET INDEX OF BB                                        F5G22900    
       03645  0 50000 0 00565 X101   CLA XV1 STORE THE                                                F5G22910    
       03646  0 62200 1 12540        STD BBB+5,1 NEW REGION NO.                                       F5G22920    
       03647  0 50000 1 12540        CLA BBB+5,1 IS THIS THE                                          F5G22930    
       03650 -0 32000 0 00353        ANA SBK2 LAST BB                                                 F5G22940    
       03651  0 34000 0 00353        CAS SBK2 OF THE REGION                                           F5G22950    
       03652  0 02000 0 03643        TRA X75                                                          F5G22960    
       03653  0 02000 0 03665        TRA X76 YES.                                                     F5G22970    
       03654  0 02000 0 03643        TRA X75                                                          F5G22980    
       03655  0 50000 0 00612 X105   CLA XV22      RECORD THAT PREVI0USLY                             F5G22990    
       03656  0 07400 4 00067        TSX SE1,4 NUMBERED BB                                            F5G23000    
       03657  0 50000 0 00404        CLA XK22 WAS LAST                                                F5G23010    
       03660  0 62100 1 12540        STA BBB+5,1 ONE IN NEW REGION.                                   F5G23020    
       03661  0 02000 0 03717        TRA X81 FINISHED RENUMBERING.                                    F5G23030    
       03662  0 77100 0 00022 X80    ARS 18                                                           F5G23040    
       03663  0 62100 0 00612        STA XV22                                                         F5G23050    
       03664  0 07400 4 00067        TSX SE1,4                                                        F5G23060    
       03665 -0 53400 2 00600 X76    LXD XV12,2                                                       F5G23070    
       03666  1 77777 2 03667 X140   TXI X140+1,2,-1                                                  F5G23080    
       03667 -0 63400 2 00600        SXD XV12,2                                                       F5G23090    
       03670  0 50000 2 05035 X77    CLA LPLST+S3P1,2                                                 F5G23100    
       03671  0 34000 0 00323        CAS S3K1 IS THIS END LOOP LIST                                   F5G23110    
       03672  1 00000 0 03700 X219   TXI X217,0,-      SEE X217+2                                     F5G23120    
       03673  0 50000 0 00336        CLA S5K1          YES                                            F5G23130    
       03674  0 62100 1 12540 X216   STA BBB+5,1       RECORD THE NEXT BB NO.                         F5G23140    
       03675  0 50000 0 00565        CLA XV1 RECORD THE                                               F5G23150    
       03676  0 62200 1 12540        STD BBB+5,1 NEW REGION                                           F5G23160    
       03677  0 02000 0 03503        TRA X79 NO.                                                      F5G23170    
       03700  0 56000 0 00324 X217   LDQ S3K2                                                         F5G23180    
       03701  0 04000 0 03704        TLQ X220                                                         F5G23190    
       03702  0 77100 0 00022 X215   ARS 18            NO                                             F5G23200    
       03703  1 00000 0 03674 X218   TXI X216,0,-                                                     F5G23210    
       03704 -0 63400 2 03672  X220  SXD X219,2                                                       F5G23220    
       03705  0 07400 4 00070        TSX SE,4                                                         F5G23230    
       03706  0 50000 1 12540        CLA BBB+5,1                                                      F5G23240    
       03707 -0 73400 1 00000        PDX 0,1                                                          F5G23250    
       03710  0 50000 1 05263        CLA REG,1         GET REGION WORD                                F5G23260    
       03711  0 62200 0 03703        STD X218                                                         F5G23270    
       03712  0 50000 0 00612        CLA XV22                                                         F5G23280    
       03713  0 07400 4 00067        TSX SE1,4                                                        F5G23290    
       03714  0 50000 0 03703        CLA X218                                                         F5G23300    
       03715 -0 53400 2 03672        LXD X219,2                                                       F5G23310    
       03716  1 00000 0 03702        TXI X215,-,-                                                     F5G23320    
       03717  0 50000 0 00566 X81    CLA XV2                                                          F5G23330    
       03720 -0 50100 0 00315        ORA ONEA                                                         F5G23340    
       03721 -0 53400 1 00565        LXD XV1,1 NEW REGION                                             F5G23350    
       03722  0 60100 1 05263        STO REG,1 WORD.                                                  F5G23360    
       03723  0 02000 0 02177        TRA F                                                            F5G23370    
       03724  0 53400 1 00342 X61    LXA S5K5,1                                                       F5G23380    
       03725 -0 75400 1 00000 X62    PXD 0,1 PLACE APPROPRIATE NOS.                                   F5G23390    
       03726  0 62200 1 00465        STD IN1+3,1     IN CORRSEPONDENCE                                F5G23400    
       03727  0 62200 1 00470        STD EN4+3,1      TABLES                                          F5G23410    
       03730  2 00001 1 03725        TIX X62,1,1                                                      F5G23420    
       03731  0 50000 0 00444        CLA S3V5                                                         F5G23430    
       03732  0 07400 4 01466        TSX S9,4          GET THE ENTRANCE REQUIREMENTS                  F5G23440    
       03733  0 02000 0 03406        TRA X63                                                          F5G23450    
       03734  0 50000 1 00561 X64    CLA AC1+3,1 IS THIS I.R.                                         F5G23460    
       03735  0 10000 0 03457        TZE X59 ACTIVE                                                   F5G23470    
       03736 -0 53400 4 00440        LXD S3V4,4 YES.                                                  F5G23480    
       03737  0 50000 4 05034        CLA LPLST+S3P1-1,4 GET                                           F5G23490    
       03740 -0 63400 1 00577        SXD XV11,1 THE                                                   F5G23500    
       03741 -0 63400 2 00600        SXD XV12,2 REGION                                                F5G23510    
       03742  0 07400 4 00070        TSX SE,4 WORD                                                    F5G23520    
       03743  0 50000 1 12540        CLA BBB+5,1 IN                                                   F5G23530    
       03744 -0 73400 4 00000        PDX 0,4 THE                                                      F5G23540    
       03745  0 56000 4 05263        LDQ REG,4 MQ.                                                    F5G23550    
       03746 -0 53400 1 00577        LXD XV11,1 HAS THERE                                             F5G23560    
       03747 -0 53400 2 00600        LXD XV12,2                                                       F5G23570    
       03750 -0 77300 2 00003        RQL 3,2               BEEN AN LX                                 F5G23580    
       03751  0 16200 0 03753        TQP X66 FOR THIS I.R.                                            F5G23590    
       03752  0 02000 0 03456        TRA X65 YES                                                      F5G23600    
       03753  0 50000 0 00614 X66    CLA XV24                                                         F5G23610    
       03754 -0 10000 0 03762        TNZ X208          IS THIS SAME REG. AS BEGINS STRING             F5G23620    
       03755  0 50000 0 04741        CLA LPLST         YES                                            F5G23630    
       03756  0 07400 4 01523        TSX SA,4          GET ACTIVE INDS. AT START OF STRING            F5G23640    
       03757 -0 53400 1 00577        LXD XV11,1                                                       F5G23650    
       03760  0 50000 1 00511        CLA ACT1+3,1      WAS THIS IR ACTIVE AT START                    F5G23660    
       03761  0 12000 0 03456        TPL X65                                                          F5G23670    
       03762 -0 53400 4 00440 X208   LXD S3V4,4        YES, MARK ALL                                  F5G23680    
       03763  0 50000 4 05034        CLA LPLST+S3P1-1,4           BBS IN OPAQUE                       F5G23690    
       03764 -0 53400 2 00577        LXD XV11,2        REGION ACTIVE                                  F5G23700    
       03765  0 07400 4 01753        TSX SD,4                                                         F5G23710    
       03766 -0 53400 1 00577        LXD XV11,1                                                       F5G23720    
       03767  0 07400 4 01661        TSX SC,4          MARK SECTION OF LLLST ACTIVE                   F5G23730    
       03770  0 02000 0 03457        TRA X59                                                          F5G23740    
       03771 -0 63400 1 00577 X67    SXD XV11,1                                                       F5G23750    
       03772 -0 53400 1 00440        LXD S3V4,1       GET                                             F5G23760    
       03773  0 50000 1 05033        CLA LPLST+S3P1-2,1 PRED+ NO                                      F5G23770    
       03774  0 34000 0 00324        CAS S3K2 IS THIS A BB                                            F5G23780    
       03775  0 76100 0 00000        NOP       NO,                                                    F5G23790    
       03776  0 02000 0 04000        TRA X123                                                         F5G23800    
       03777  0 77100 0 00022        ARS 18 YES,SHIFT BB NO RIGHT.                                    F5G23810    
       04000  0 62100 0 00513 X123   STA SBV3      AND STORE IT                                       F5G23020    
       04001  0 50000 1 05034        CLA LPLST+S3P1-1,1 GET INDEX OF                                  F5G23830    
       04002  0 07400 4 00070        TSX SE,4 THIS BB                                                 F5G23840    
       04003  0 50000 1 12534        CLA BBB+1,1 GET TO STORE                                         F5G23050    
       04004  0 60100 0 00575        STO XV9 PREM. NO.                                       -        F5G23060    
       04005  0 50000 1 12533        CLA BBB,1 GET PRED. NO.                                          F5G23070    
       04006  0 60200 0 00512 X68    SLW SBV2                                                         F5G23880    
       04007  0 07400 4 00055        TSX SE5,4 GET INDEX OF PRED.                                     F5G23890    
       04010 -0 50000 1 15674        CAL PRED,1 IS THIS THE                                           F5G23900    
       04011 -0 32000 0 00353        ANA SBK2 RIGHT PRED                                              F5G23910    
       04012  0 34000 0 00513        CAS SBV3                                                         F5G23920    
       04013  0 02000 0 04015        TRA X69                                                          F5G23930    
       04014  0 02000 0 04020        TRA X70 YES.                                                     F5G23940    
       04015  0 50000 0 00512 X69    CLA SBV2                                                         F5G23950    
       04016  0 40000 0 00315        ADD ONEA                                                         F5G23960    
       04017  0 02000 0 04006        TRA X68                                                          F5G23970    
       04020  0 53400 4 00342 X70    LXA S5K5,4 SET COUNT TO 3                                        F5G23980    
       04021 -0 50000 0 00575 X72    CAL XV9 FIND                                                     F5G23990    
       04022  0 77100 4 00003        ARS 3,4 THE                                                      F5G24000    
       04023  0 77100 4 00003        ARS 3,4 PERM+ NO.                                                F5G24010    
       04024 -0 32000 0 00350        ANA S9K3                                                         F5G24020    
       04025  0 34000 0 00577        CAS XV11 IS THIS THE RIGHT I.R.                                  F5G24030    
       04026  0 02000 0 04030        TRA X71 NO,                                                      F5G24040    
       04027  0 02000 0 04032        TRA X73 YES,                                                     F5G24050    
       04030  2 00001 4 04021 X71    TIX X72,4,1 NO,                                                  F5G24060    
       04031  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G24070    
       04032 -0 50000 0 00377 X73    CAL XK16 RECORD THAT AN                                          F5G24080    
       04033  0 77100 4 00003        ARS 3,4 LX IS                                                    F5G24090    
       04034 -0 60200 1 15674        ORS PRED,1 NECESSARY.                                            F5G24100    
       04035 -0 53400 4 00577        LXD XV11,4 RECORD                                                F5G24110    
       04036 -0 50000 0 00340        CAL S5K3 LX                                                      F5G24120    
       04037  0 77100 4 00003        ARS 3,4 FOR THIS I.R.                                            F5G24130    
       04040 -0 60200 0 00566        ORS XV2 IN THIS REGION.                                          F5G24140    
       04041 -0 53400 1 00577        LXD XV11,1                                                       F5G24150    
       04042  0 02000 0 03454        TRA X119                                                         F5G24160    
       04043  0 50000 0 00444 X33    CLA S3V5                                                         F5G24170    
       04044  0 07400 4 01245        TSX S5,4 MATCH ENTRANCE REQU.                                    F5G24180    
       04045  0 50000 0 00444        CLA S3V5                                                         F5G24190    
       04046  0 07400 4 01523        TSX SA,4 GET EXIT COND.                                          F5G24200    
       04047  0 50000 0 00444        CLA S3V5                                                         F5G24210    
       04050  0 07400 4 00070        TSX SE,4 GET INDEX OF                                            F5G24220    
       04051  0 50000 1 12540        CLA BBB+5,1 B.B.                                                 F5G24230    
       04052 -0 73400 1 00000        PDX 0,1 GET                                                      F5G24240    
       04053  0 50000 1 05263        CLA REG,1 REGION                                                 F5G24250    
       04054  0 07400 4 00070        TSX SE,4 WORD.                                                   F5G24260    
       04055 -0 63400 1 00601 X40    SXD XV13,1 GET INDEX OF FIRST BB.                                F5G24270    
       04056 -0 50000 1 12534        CAL BBB+1,1 CLEAR REGISTER TO                                    F5G24280    
       04057  0 60200 0 00575        SLW XV9 CONTAIN PERM. NOS.                                       F5G24290    
       04060 -0 32000 0 00402        ANA XK20 GET ORIGINAL PERM. NOS.                                 F5G24300    
       04061  0 60200 0 00574        SLW XV8                                                          F5G24310    
       04062  0 53400 2 00342        LXA S5K5,2 SET COUNT TO 3.                                       F5G24320    
       04063 -0 50000 0 00575 X38    CAL XV9 GET THE                                                  F5G24330    
       04064  0 77100 2 00003        ARS 3,2 PERM.                                                    F5G24340    
       04065  0 77100 2 00003        ARS 3,2 NO. AND                                                  F5G24350    
       04066 -0 32000 0 00350        ANA S9K3 PUT IT                                                  F5G24360    
       04067 -0 73400 4 00000        PDX 0,4 IN 4.                                                    F5G24370    
       04070  0 50000 4 00470        CLA EN4+3,4 GET THE CORRESPONDENCE                               F5G24380    
       04071  0 76700 2 00003        ALS 3,2 OF THE ENTR,                                             F5G24390    
       04072  0 76700 2 00003        ALS 3,2 REQUIREMENTS.                                            F5G24400    
       04073 -0 60200 0 00574        ORS XV8 FORM NEW PERM. NOS.                                      F5G24410    
       04074 -0 63400 1 00576        SXD XV10,1                                                       F5G24420    
       04075  0 50000 4 00470        CLA EN4+3,4                                                      F5G24430    
       04076 -0 73400 1 00000        PDX 0,1 GET INDEX OF I.R.                                        F5G24440    
       04077  0 50000 4 00473        CLA EN1+3,4                                                      F5G24450    
       04100  0 34000 0 00336        CAS S5K1 IS ENM EMPTY                                            F5G24460    
       04101  0 02000 0 04103        TRA X34 NO,                                                      F5G24470    
       04102  0 02000 0 04150        TRA X41 YES,                                                     F5G24480    
       04103  0 34000 0 00333 X34    CAS LK1 NO,IS C(ENM)=E                                           F5G24490    
       04104  0 02000 0 04106        TRA X35 NO,                                                      F5G24500    
       04105  0 02000 0 04111        TRA X36 YES,                                                     F5G24510    
       04106  0 34000 1 00430 X35    CAS IR1+3,1 C-(ENM)=C(IRN)                                       F5G24520    
       04107  0 02000 0 04111        TRA X36 NO                                                       F5G24530    
       04110  0 02000 0 04132        TRA X43 YES                                                      F5G24540    
       04111 -0 53400 1 00576 X36    LXD XV10,1 NO                                                    F5G24550    
       04112  1 77777 1 04113 X42    TXI X42+1,1,-1                                                   F5G24560    
       04113  2 00001 2 04063 X37    TIX X38,2,1 COUNT TO 3                                           F5G24570    
       04114 -0 50000 0 00574        CAL XV8       STORE NEW                                          F5G24580    
       04115  0 62200 1 12531        STD BBB-2,1 PERM. NOS.                                           F5G24590    
       04116  0 63000 1 12531        STP BBB-2,1      AND ACTIVE INDICATORS                           F5G24600    
       04117  0 50000 1 12535        CLA BBB+2,1 IS THIS                                              F5G24610    
       04120 -0 32000 0 00353        ANA SBK2 LAST BB IN REGION                                       F5G24620    
       04121  0 34000 0 00353        CAS SBK2                                                         F5G24630    
       04122  0 02000 0 04124        TRA X39                                                          F5G24640    
       04123  0 02000 0 04217        TRA X45 YES,DONE.                                                F5G24650    
       04124  0 07400 4 00067 X39    TSX SE1,4 GET INDEX 0F NEXT B.B.                                 F5G24660    
       04125  0 02000 0 04055        TRA X40                                                          F5G24670    
       04126  0 50000 4 00506 X200   CLA EX1+3,4       IS CONTENTS OF IR                              F5G24680    
       04127  0 56000 0 00337        LDQ S5K2       AT EXIT                                           F5G24690    
       04130  0 04000 0 04135        TLQ X130      REAL                                               F5G24700    
       04131  0 02000 0 04111        TRA X36       YES                                                F5G24710    
       04132  0 50000 4 00511 X43    CLA ACT1+3,4                                                     F5G24720    
       04133 -0 63400 1 05664  PW0   SXD W2+1,1                                                       F5G24730    
       04134  0 12000 0 04126        TPL X200       IS IT ACTIVE AT EXIT                              F5G24740    
       04135  0 50000 1 00561 X130   CLA AC1+3,1     YES,IS THIS IR ACTIVE                            F5G24750    
       04136  0 10000 0 04111        TZE X36                                                          F5G24760    
       04137  0 50000 1 00430        CLA IR1+3,1 YES                                                  F5G24770    
       04140  0 60100 0 00611        STO XV21                                                         F5G24780    
       04141 -0 53400 1 00576        LXD XV10,1 DOES THIS BB CONTAIN THE                              F5G24790    
       04142  0 50000 1 12535        CLA BBB+2,1     SAME TAG IN THIS POSITION                        F5G24800    
       04143 -0 32000 0 00336        ANA S5K1                                                         F5G24810    
       04144  0 34000 0 00611        CAS XV21                                                         F5G24820    
       04145  0 02000 0 05644        TRA W0                                                           F5G24830    
       04146  0 02000 0 04213        TRA X44 YES.                                                     F5G24840    
       04147  0 02000 0 05644        TRA W0                                                           F5G24850    
                                          C(XV10)= INDEX OF PARTICULAR                                F5G24860    
                                          ENTRANCE REQUIREMENT.                                       F5G24870    
       04150  0 50000 1 00430 X41    CLA IR1+3,1                                                      F5G24880    
       04151  0 60100 0 00572        STO XV6                                                          F5G24890    
       04152  0 76700 0 00022        ALS 18 STORE AWAY THIS                                           F5G24900    
       04153  0 40000 1 00430        ADD IR1+3,1 TAG TEMPORARILY.                                     F5G24910    
       04154  0 60200 0 00573        SLW XV7                                                          F5G24920    
       04155  0 50000 1 00430        CLA IR1+3,1     IS THIS                                          F5G24930    
       04156  0 56000 0 00337        LDQ S5K2      TAG                                                F5G24940    
       04157  0 04000 0 04176        TLQ X201                                                         F5G24950    
       04160 -0 53400 1 00601        LXD XV13,1                                                       F5G24960    
       04161  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3.                                       F5G24970    
       04162 -0 50000 1 12535 X85    CAL BBB+2,1                                                      F5G24980    
       04163  0 76500 0 00022        LRS 18                                                           F5G24990    
       04164  0 34000 0 00572        CAS XV6 IS ENTR. REQU. EQUAL TO TAG                              F5G25000    
       04165  0 02000 0 04167        TRA X82 NO,                                                      F5G25010    
       04166  0 02000 0 04202        TRA X86 YES,                                                     F5G25020    
       04167  0 50000 0 00314 X82    CLA ZERO NO,                                                     F5G25030    
       04170  0 76300 0 00022        LLS 18                                                           F5G25040    
       04171  0 34000 0 00572        CAS XV6 IS TAG EQUAL TO EXIT COND.                               F5G25050    
       04172  0 02000 0 04174        TRA X83                                                          F5G25060    
       04173  0 02000 0 04206        TRA X87 YES                                                      F5G25070    
       04174  1 77777 1 04175 X83    TXI X83+1,1,-1                                                   F5G25080    
       04175  2 00001 4 04162 X84    TIX X85,4,1 COUNT TO 3.                                          F5G25090    
       04176  0 50000 0 00573 X201   CLA XV7       STORE THE                                          F5G25100    
       04177 -0 53400 1 00576        LXD XV10,1 NEW ENTRANCE-                                         F5G25110    
       04200  0 60100 1 12535        STO BBB+2,1 EXIT REQUI.                                          F5G25120    
       04201  0 02000 0 04112        TRA X42                                                          F5G25130    
       04202 -0 50000 0 00366 X86    CAL XK18 PUT AN E                                                F5G25140    
       04203  0 62200 0 00573        STD XV7 IN THE ENTR. REQU.                                       F5G25150    
       04204  0 63000 0 00573        STP XV7                                                          F5G25160    
       04205  0 02000 0 04167        TRA X82                                                          F5G25170    
       04206 -0 50000 0 00573 X87    CAL XV7 PLACE E                                                  F5G25180    
       04207 -0 32000 0 00401        ANA XK19 IN                                                      F5G25190    
       04210  0 40000 0 00333        ADD LK1 EXIT                                                     F5G25200    
       04211  0 60200 0 00573        SLW XV7 REQUIREMENT.                                             F5G25210    
       04212  0 02000 0 04174        TRA X83                                                          F5G25220    
       04213 -0 50000 0 00340 X44    CAL S5K3 RECORD THIS                                             F5G25230    
       04214  0 77100 2 00003        ARS 3,2 I.R.                                                     F5G25240    
       04215 -0 60200 0 00574        ORS XV8 ACTIVE                                                   F5G25250    
       04216  0 02000 0 04112        TRA X42                                                          F5G25260    
       04217  0 53400 2 00342 X45    LXA S5K5,2                                                       F5G25270    
       04220 -0 63400 2 00602 X56    SXD XV14,2                                                       F5G25280    
       04221  0 50000 2 00470        CLA EN4+3,2                                                      F5G25290    
       04222 -0 73400 4 00000        PDX 0,4 GET INDEX                                                F5G25300    
       04223 -0 63400 4 00514        SXD SBV4,4 OF I.R.                                               F5G25310    
       04224  0 50000 2 00473        CLA EN1+3,2                                                      F5G25320    
       04225  0 34000 0 00336        CAS S5K1 IS ENM EMPTY                                            F5G25330    
       04226  0 02000 0 04230        TRA X46                                                          F5G25340    
       04227  0 02000 0 04343        TRA X223                                                         F5G25350    
       04230  0 34000 0 00333 X46    CAS LK1 IS THERE HASH IN ENM                                     F5G25360    
       04231  0 02000 0 04233        TRA X134                                                         F5G25370    
       04232  0 02000 0 04307        TRA X55 YES                                                      F5G25380    
       04233  0 34000 4 00430 X134   CAS IR1+3,4        DOES CONTENTS OF IR EQUAL CONTENTS OF EN      F5G25390    
       04234  0 02000 0 04236        TRA X47          NO                                              F5G25400    
       04235  0 02000 0 04357        TRA X131          YES                                            F5G25410    
       04236 -0 53400 1 00440 X47    LXD S3V4,1 GET AND                                               F5G25420    
       04237  0 50000 1 05033        CLA LPLST+S3P1-2,1 STORE PRED.                                   F5G25430    
       04240  0 34000 0 00324        CAS S3K2 BB                                                      F5G25440    
       04241  0 76100 0 00000        NOP  NO.                                                         F5G25450    
       04242  0 02000 0 04244        TRA X124                                                         F5G25460    
       04243  0 77100 0 00022        ARS 18                                                           F5G25470    
       04244  0 62100 0 00513 X124   STA SBV3                                                         F5G25480    
       04245  0 50000 1 05034        CLA LPLST+S3P1-1,1 GET                                           F5G25490    
       04246  0 07400 4 00070        TSX SE,4 BB NO.                                                  F5G25500    
       04247  0 50000 1 12534        CLA BBB+1,1 STORE THE                                            F5G25510    
       04250  0 60100 0 00575        STO XV9 PERM. NOS.                                               F5G25520    
       04251  0 50000 1 12540        CLA BBB+5,1                                                      F5G25530    
       04252 -0 73400 4 00000        PDX 0,4                                                          F5G25540    
       04253 -0 53400 2 00602        LXD XV14,2                                                       F5G25550    
       04254 -0 50000 0 00340        CAL S5K3                                                         F5G25560    
       04255  0 77100 2 00003        ARS 3,2                                                          F5G25570    
       04256 -0 60200 4 05263        ORS REG,4                                                        F5G25580    
       04257  0 50000 1 12533        CLA BBB,1 GET PRED. NO.                                          F5G25590    
       04260  0 60200 0 00512 X48    SLW SBV2          STORE PRED. NO.                                F5G25600    
       04261  0 07400 4 00055        TSX SE5,4 OBTAIN PRED. INDEX.                                    F5G25610    
       04262 -0 50000 1 15674        CAL PRED,1 IS THIS                                               F5G25620    
       04263 -0 32000 0 00353        ANA SBK2 THE CORRECT                                             F5G25630    
       04264  0 34000 0 00513        CAS SBV3 PRED                                                    F5G25640    
       04265  0 02000 0 04267        TRA X49                                                          F5G25650    
       04266  0 02000 0 04272        TRA X50 YES.                                                     F5G25660    
       04267  0 50000 0 00512 X49    CLA SBV2 ARRANGE TO                                              F5G25670    
       04270  0 40000 0 00315        ADD ONEA TRY NEXT PREDECESSOR.                                   F5G25680    
       04271  0 02000 0 04260        TRA X48                                                          F5G25690    
       04272  0 53400 4 00342 X50    LXA S5K5,4 1 HAS INDEX OF PRED.                                  F5G25700    
       04273 -0 50000 0 00575 X52    CAL XV9 EXTRACT                                                  F5G25710    
       04274  0 77100 4 00003        ARS 3,4 THE                                                      F5G25720    
       04275  0 77100 4 00003        ARS 3,4 PERM.                                                    F5G25730    
       04276 -0 32000 0 00350        ANA S9K3 NO.                                                     F5G25740    
       04277  0 34000 0 00514        CAS SBV4 IS THIS THE PERM. NO.                                   F5G25750    
       04300  0 02000 0 04302        TRA X51                                                          F5G25760    
       04301  0 02000 0 04304        TRA X53 YES.                                                     F5G25770    
       04302  2 00001 4 04273 X51    TIX X52,4,1                                                      F5G25780    
       04303  0 07400 4 00004        TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G25790    
       04304 -0 50000 0 00377 X53    CAL XK16 GENERATE                                                F5G25800    
       04305  0 77100 4 00003        ARS 3,4 THE LX BIT.                                              F5G25810    
       04306 -0 60200 1 15674        ORS PRED,1 INSERT LX BIT.                                        F5G25820    
       04307 -0 53400 1 00514 X55    LXD SBV4,1 IS THE                                                F5G25830    
       04310  0 50000 1 00561        CLA AC1+3,1 I.R.                                                 F5G25840    
       04311  0 10000 0 04313        TZE X135         ACTIVE                                          F5G25850    
       04312  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NEEDED.                                  F5G25860    
       04313 -0 53400 2 00602 X135   LXD XV14,2     REPLACE IR                                        F5G25870    
       04314 -0 53400 4 00514        LXD SBV4,4      BY EXIT CONDITIONS                               F5G25880    
       04315  0 50000 2 00506        CLA EX1+3,2       OF THE                                         F5G25890    
       04316  0 60100 4 00430        STO IR1+3,4      REGION                                          F5G25900    
       04317  0 50000 2 00511 X136   CLA ACT1+3,2      IS IR                                          F5G25910    
       04320  0 12000 0 04325        TPL X54       ACTIVE AT EXIT                                     F5G25920    
       04321  0 50000 0 00440        CLA S3V4        SET                                              F5G25930    
       04322 -0 76000 0 00003        SSM                   ACTIVE                                     F5G25940    
       04323  0 40200 0 00316        SUB ONED         INDICATOR                                       F5G25950    
       04324  0 60100 4 00561        STO AC1+3,4                                                      F5G25960    
       04325 -0 53400 2 00602 X54    LXD XV14,2      COUNT TO                                         F5G25970    
       04326  2 00001 2 04220        TIX X56,2,1        3                                             F5G25980    
       04327  0 07400 4 02042        TSX SG,4            PERMUTE REGION WORD                          F5G25990    
       04330 -0 50000 2 05263        CAL REG,2                                                        F5G26000    
       04331 -0 32000 0 00404        ANA XK22                                                         F5G26010    
       04332  0 60200 2 05263        SLW REG,2                                                        F5G26020    
       04333  0 53400 4 00342        LXA S5K5,4                                                       F5G26030    
       04334  0 50000 4 00430 XY1    CLA IR1+3,4                                                      F5G26040    
       04335  0 40200 0 00336        SUB S5K1                                                         F5G26050    
       04336 -0 10000 0 04341        TNZ XY2                                                          F5G26060    
       04337 -0 50000 4 00410        CAL XK23+3,4                                                     F5G26070    
       04340 -0 60200 2 05263        ORS REG,2                                                        F5G26080    
       04341  2 00001 4 04334 XY2    TIX XY1,4,1                                                      F5G26090    
       04342  0 02000 0 03077        TRA X3                                                           F5G26100    
       04343  0 50000 4 00430 X223   CLA IR1+3,4         IS CONTENTS OF IR REAL                       F5G26110    
       04344  0 56000 0 00337        LDQ S5K2                                                         F5G26120    
       04345  0 04000 0 04325        TLQ X54                                                          F5G26130    
       04346  0 53400 1 00342        LXA S5K5,1          YES, SET COUNT TO 3                          F5G26140    
       04347  0 34000 1 00506 X225   CAS EX1+3,1         IS CONTENTS SAME AS EXIT CONDITIONS          F5G26150    
       04350  0 02000 0 04352        TRA X224                                                         F5G26160    
       04351  0 02000 0 04354        TRA X226            YES                                          F5G26170    
       04352  2 00001 1 04347 X224   TIX X225,1,1        COUNT TO 3                                   F5G26180    
       04353  0 02000 0 04325        TRA X54                                                          F5G26190    
       04354  0 50000 0 00333 X226   CLA LK1             REPLACE IR BY E                              F5G26200    
       04355  0 60100 4 00430        STO IR1+3,4                                                      F5G26210    
       04356  0 02000 0 04325        TRA X54                                                          F5G26220    
       04357  0 56000 2 00506 X131   LDQ EX1+3,2       IS THE EXIT                                    F5G26230    
       04360  0 50000 0 00337        CLA S5K2         CONDITION REAL FOR THIS IR                      F5G26240    
       04361  0 04000 0 04365        TLQ X132                                                         F5G26250    
       04362 -0 53400 1 00514  X133  LXD SBV4,1            NO                                         F5G26260    
       04363  0 07400 4 01661        TSX SC,4        RECORD PART OF LPLST ACTIVE                      F5G26270    
       04364  0 02000 0 04313        TRA X135                                                         F5G26280    
       04365  0 50000 2 00511 X132   CLA ACT1+3,2       IS THIS IR ACTIVE                             F5G26290    
       04366  0 12000 0 04313        TPL X135          AT EXIT OF REGION                              F5G26300    
       04367  0 02000 0 04362        TRA X133        YES                                              F5G26310    
       04370  0 50000 0 00550 X88    CLA LPIND                                                        F5G26320    
       04371  0 12000 0 04416        TPL XY3               IS THIS A LOOP                             F5G26330    
       04372  0 50000 0 04740        CLA LPLST-1 YES                                                  F5G26340    
       04373  0 34000 0 00324        CAS S3K2 IS LAST LPLST QUANTITY A BB                             F5G26350    
       04374  0 76100 0 00000        NOP  NO,                                                         F5G26360    
       04375  0 02000 0 04377        TRA X125                                                         F5G26370    
       04376  0 77100 0 00022        ARS 18 YES                                                       F5G26380    
       04377  0 62100 0 00513 X125   STA SBV3     STORE PRED. NO.                                     F5G26390    
       04400  0 50000 0 04741        CLA LPLST                                                        F5G26400    
       04401  0 07400 4 00070        TSX SE,4 GET INDEX 0F 1ST BB IN LOOP.                            F5G26410    
       04402 -0 63400 1 00574        SXD XV8,1        STORE INDEX OF 1ST BB                           F5G26420    
       04403  0 50000 1 12533        CLA BBB,1                                                        F5G26430    
       04404  0 60200 0 00604 X91    SLW XV16          STORE PRED. NO.                                F5G26440    
       04405  0 07400 4 00055        TSX SE5,4 GET INDEX OF PRED.                                     F5G26450    
       04406  0 50000 1 15674        CLA PRED,1 IS                                                    F5G26460    
       04407 -0 32000 0 00353        ANA SBK2 THIS THE                                                F5G26470    
       04410  0 34000 0 00513        CAS SBV3 RIGHT PRED                                              F5G26460    
       04411  0 02000 0 04413        TRA X90                                                          F5G26490    
       04412  0 02000 0 04445        TRA X92 YES                                                      F5G26500    
       04413  0 50000 0 00604 X90    CLA XV16                                                         F5G26510    
       04414  0 40000 0 00315        ADD ONEA                                                         F5G26520    
       04415  0 02000 0 04404        TRA X91                                                          F5G26530    
       04416  0 53400 1 00342 XY3    LXA S5K5,1                                                       F5G26540    
       04417  0 07400 4 01661 XY4    TSX SC,4                                                         F5G26550    
       04420  2 00001 1 04417        TIX XY4,1,1                                                      F5G26560    
       04421  0 02000 0 03461        TRA X89                                                          F5G26570    
       04422 -0 63400 1 04444 X97    SXD X137,1                                                       F5G26580    
       04423  0 34000 1 00430        CAS IR1+3,1  IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM         F5G26590    
       04424  0 02000 0 04426        TRA X98                                                          F5G26600    
       04425  0 02000 0 04473        TRA X93        YES                                               F5G26610    
       04426 -0 50000 0 00340 X98    CAL S5K3 RECORD LX FOR                                           F5G26620    
       04427  0 77100 1 00003        ARS 3,1 THIS IR IN THIS                                          F5G26630    
       04430 -0 53400 1 00565        LXD XV1,1 REGION.                                                F5G26640    
       04431 -0 60200 1 05263        ORS REG,1                                                        F5G26650    
       04432 -0 63400 4 00602        SXD XV14,4 GET                                                   F5G26660    
       04433 -0 63400 2 00603        SXD XV15,2 INDEX                                                 F5G26670    
       04434  0 50000 0 00604        CLA XV16 OF                                                      F5G26680    
       04435  0 07400 4 00055        TSX SE5,4 PRED.                                                  F5G26690    
       04436 -0 53400 4 00602        LXD XV14,4                                                       F5G26700    
       04437 -0 53400 2 00603        LXD XV15,2                                                       F5G26710    
       04440 -0 50000 0 00377        CAL XK16 RECORD                                                  F5G26720    
       04441  0 77100 4 00003        ARS 3,4 LX                                                       F5G26730    
       04442 -0 60200 1 15674        ORS PRED,1 NECESSARY.                                            F5G26740    
       04443 -0 53400 1 04444        LXD X137,1                                                       F5G26750    
       04444  1 00000 0 04464 X137   TXI X96,0,-                                                      F5G26760    
       04445 -0 53400 2 00574 X92    LXD XV8,2                                                        F5G26770    
       04446  0 53400 4 00342        LXA S5K5,4 SET COUNT TO 3                                        F5G26760    
       04447  0 50000 2 12534        CLA BBB+1,2 GET THE WORD WITH                                    F5G26790    
       04450  0 60100 0 00575        STO XV9 PERM. NOS.                                               F5G26800    
       04451 -0 50000 0 00575 X95    CAL XV9 GET                                                      F5G26810    
       04452  0 77100 4 00003        ARS 3,4 INDEX                                                    F5G26820    
       04453  0 77100 4 00003        ARS 3,4 OF                                                       F5G26830    
       04454 -0 32000 0 00350        ANA S9K3 THE                                                     F5G26640    
       04455 -0 73400 1 00000        PDX 0,1 I.R.                                                     F5G26850    
       04456 -0 50000 2 12535        CAL BBB+2,2 GET ENTRANCE                                         F5G26860    
       04457  0 77100 0 00022        ARS 18 REQUIREMENT.                                              F5G26870    
       04460  0 34000 0 00337        CAS S5K2          IS ENM REAL                                    F5G26880    
       04461  0 76100 0 00000        NOP                                                              F5G26890    
       04462  0 02000 0 04464        TRA X96         NO                                               F5G26900    
       04463  0 02000 0 04422        TRA X97 YES                                                      F5G26910    
       04464  0 50000 1 00561 X96    CLA AC1+3,1 IS IRN                                               F5G26920    
       04465  0 10000 0 04473        TZE X93 ACTIVE                                                   F5G26930    
       04466 -0 63400 2 00602        SXD XV14,2 YES,                                                  F5G26940    
       04467 -0 63400 4 00603        SXD XV15,4                                                       F5G26950    
       04470  0 07400 4 01566        TSX SB,4 RECORD SXD NECESSARY.                                   F5G26960    
       04471 -0 53400 2 00602        LXD XV14,2                                                       F5G26970    
       04472 -0 53400 4 00603        LXD XV15,4                                                       F5G26980    
       04473  1 77777 2 04474 X93    TXI X93+1,2,-1                                                   F5G26990    
       04474  2 00001 4 04451 X94    TIX X95,4,1 COUNT TO 3                                           F5G27000    
                                          ACTIVE PASS.                                                F5G27010    
                                          FOLLOWS 2 ED LXING PASS.                                    F5G27020    
       04475  0 56000 0 00325        LDQ S3K3 INITIALIZE THE                                          F5G27030    
       04476 -0 60000 0 00440        STQ S3V4 LOOP LIST                                               F5G27040    
       04477  0 56000 0 00340        LDQ S5K3 AND                                                     F5G27050    
       04500 -0 60000 0 00437        STQ S3V3 MAKE SURE TAG                                           F5G27060    
       04501 -0 60000 0 00521        STQ ACIND      SET IND. TO SAY THIS IS ACTIVE PASS               F5G27070    
       04502 -0 63400 0 00436        SXD S3V2,0     LOCATION GETS SET                                 F5G27080    
       04503  0 50000 0 00314 A3     CLA ZERO ARE                                                     F5G27090    
       04504  0 40100 0 00556        ADM AC1 THERE                                                    F5G27100    
       04505  0 40100 0 00557        ADM AC2 ANY                                                      F5G27110    
       04506  0 40100 0 00560        ADM AC3 ACTIVE I.R.S                                             F5G27120    
       04507  0 10000 0 03461        TZE X89 LEFT GO TO RENUMBER.                                     F5G27130    
       04510  0 07400 4 01023        TSX S3,4 YES. TRY TO GET NEXT TAG.                               F5G27140    
       04511  0 02000 0 04644        TRA A12 COME HERE IF TAG NOT GOT                                 F5G27150    
       04512  0 50000 0 01122        CLA S39 COMPUTE LOCATION OF THIS                                 F5G27160    
       04513 -0 32000 0 00353        ANA SBK2 TAG=(ADDR. F0LLOWING                                    F5G27170    
       04514  0 40000 0 00451        ADD S4V1 TIX BLOCK + L(CM)-CM TAG                                F5G27180    
       04515  0 40200 0 00332        SUB S4K3 - INDEX OF TAG.)                                        F5G27190    
       04516  0 76700 0 00022        ALS 18                                                           F5G27200    
       04517 -0 40000 0 00436        SBM S3V2                                                         F5G27210    
       04520  0 76500 0 00065        LRS 53                                                           F5G27220    
       04521 -0 60000 0 00571        STQ XV5                                                          F5G27230    
       04522  0 22100 0 00371        DVP XK9 FORM LOC/9 AND                                           F5G27240    
       04523 -0 60000 0 00567        STQ XV3 REMAINDER                                                F5G27250    
       04524  0 60100 0 00570        STO XV4                                                          F5G27260    
       04525  0 50000 0 00442        CLA TPE IS THIS                                                  F5G27270    
       04526  0 34000 0 00322        CAS S2K2 AN LX                                                   F5G27280    
       04527  0 02000 0 04531        TRA A1                                                           F5G27290    
       04530  0 02000 0 04570        TRA A5 YES                                                       F5G27300    
       04531  0 34000 0 00376 A1     CAS XK15 IS IT AN LX PRIME                                       F5G27310    
       04532  0 02000 0 04534        TRA A20                                                          F5G27320    
       04533  0 02000 0 04614        TRA A8 YES                                                       F5G27330    
       04534  0 34000 0 00403 A20    CAS XK21 IS IT A DED                                             F5G27340    
       04535  0 02000 0 04537        TRA A21                                                          F5G27350    
       04536  0 02000 0 04614        TRA A8 YES.                                                      F5G27360    
       04537  0 34000 0 00373 A21    CAS XK12 IS IT AN ACTIVE INSTR.                                  F5G27370    
       04540  0 02000 0 04542        TRA A2                                                           F5G27380    
       04541  0 02000 0 04570        TRA A5 YES.                                                      F5G27390    
       04542  0 50000 0 00567 A2     CLA XV3 GET INDEX                                                F5G27400    
       04543  0 07400 4 00032        TSX SE4,4 OF STAG ENTRY.                                         F5G27410    
       04544  0 53400 2 00570        LXA XV4,2 IS THERE                                               F5G27420    
       04545 -0 50000 1 05263        CAL STAG,1 AN LX                                                 F5G27430    
       04546  0 77100 2 00010        ARS 8,2 IN FRONT                                                 F5G27440    
       04547 -0 32000 0 00372        ANA XK11 OF                                                      F5G27450    
       04550  0 34000 0 00372        CAS XK11 THIS INSTR.                                             F5G27460    
       04551  0 02000 0 04503        TRA A3                                                           F5G27470    
       04552  0 02000 0 04554        TRA A4 YES.                                                      F5G27480    
       04553  0 02000 0 04503        TRA A3                                                           F5G27490    
       04554 -0 50000 0 00570 A4     CAL XV4 GET                                                      F5G27500    
       04555  0 76000 0 00006        COM  THE                                                         F5G27510    
       04556  0 73400 2 00000        PAX 0,2 S-TAG                                                    F5G27520    
       04557 -0 50000 1 05263        CAL STAG,1 IN                                                    F5G27530    
       04560  0 76700 2 00000        ALS 0,2 DECR.                                                    F5G27540    
       04561  0 76700 2 00000        ALS 0,2 PART.                                                    F5G27550    
       04562 -0 32000 0 00350        ANA S9K3                                                         F5G27560    
       04563 -0 73400 1 00000        PDX 0,1                                                          F5G27570    
       04564  0 50000 1 00561        CLA AC1+3,1 IS THE CORRESPONDING                                 F5G27580    
       04565  0 10000 0 04503        TZE A3 I.R. ACTIVE                                               F5G27590    
       04566  0 07400 4 01566        TSX SB,4 YES,RECORD SXD NECESSARY                                F5G27600    
       04567  0 02000 0 04503        TRA A3                                                           F5G27610    
       04570  0 50000 0 00567 A5     CLA XV3                                                          F5G27620    
       04571  0 07400 4 00032        TSX SE4,4 GET STAG INDEX.                                        F5G27630    
       04572 -0 50000 0 00570        CAL XV4                                                          F5G27640    
       04573  0 76000 0 00006        COM  IS IT                                                       F5G27650    
       04574  0 73400 2 00000        PAX 0,2 TO                                                       F5G27660    
       04575 -0 50000 1 05263        CAL STAG,1 AN                                                    F5G27670    
       04576  0 76700 2 00000        ALS 0,2                                                          F5G27680    
       04577  0 76700 2 00000        ALS 0,2 ACTIVE                                                   F5G27690    
       04600 -0 32000 0 00350        ANA S9K3                                ,                        F5G27700    
       04601 -0 73400 1 00000        PDX 0,1 IR                                                       F5G27710    
       04602  0 50000 1 00561        CLA AC1+3,1                                                      F5G27720    
       04603  0 10000 0 04503        TZE A3                                                           F5G27730    
       04604  0 50000 1 00430   A51  CLA IR1+3,1 IS IT                                                F5G27740    
       04605  0 34000 0 00441        CAS 1TAG           SAME TAU-TAG                                  F5G27750    
       04606  0 02000 0 04610        TRA A6                                                           F5G27760    
       04607  0 02000 0 04612        TRA A7 YES                                                       F5G27770    
       04610  0 07400 4 01566 A6     TSX SB,4 RECORD SXD NEEDED.                                      F5G27780    
       04611  0 02000 0 04503        TRA A3                                                           F5G27790    
       04612  0 07400 4 01661 A7     TSX SC,4 RECORD CERTAIN PART OF                                  F5G27800    
       04613  0 02000 0 04503        TRA A3 LOOP LIST ACTIVE.                                         F5G27810    
       04614  0 50000 0 00567 A8     CLA XV3 GET                                                      F5G27820    
       04615  0 07400 4 00032        TSX SE4,4 THE                                                    F5G27830    
       04616 -0 50000 0 00570        CAL XV4                                                          F5G27840    
       04617  0 76000 0 00006        COM  S-TAG                                                       F5G27850    
       04620  0 73400 2 00000        PAX 0,2 OF                                                       F5G27860    
       04621 -0 50000 1 05263        CAL STAG,1                                                       F5G27870    
       04622  0 60100 0 00423        STO S1V6                                                         F5G27871    
       04623  0 76700 2 00000        ALS 0,2 THIS                                                     F5G27880    
       04624  0 76700 2 00000        ALS 0,2 INSTR.                                                   F5G27890    
       04625 -0 32000 0 00350        ANA S9K3                                                         F5G27900    
       04626 -0 73400 1 00000        PDX 0,1                                                          F5G27910    
       04627  0 10000 0 04503        TZE A3 DOES THIS INSTR HAVE AN S-TAG                             F5G27920    
       04630  0 50000 1 00561        CLA AC1+3,1 YES.                                                 F5G27930    
       04631  0 10000 0 04503        TZE A3                IS THIS IR ACTIVE                          F5G27940    
       04632  0 50000 0 00314        CLA ZERO                                                         F5G27941    
       04633 -0 75400 2 00000        PXD 0,2                                                          F5G27942    
       04634  0 76000 0 00006        COM                                                              F5G27943    
       04635 -0 73400 4 00000        PDX 0,4                                                          F5G27944    
       04636  0 50000 0 00423        CLA S1V6                                                         F5G27945    
       04637  0 77100 4 00010        ARS 8,4                                                          F5G27946    
       04640 -0 32000 0 00316        ANA ONED                                                         F5G27947    
       04641 -0 10000 0 04604        TNZ A51                                                          F5G27948    
       04642  0 07400 4 01661        TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE                      F5G27950    
       04643  0 02000 0 04503        TRA A3                                                           F5G27960    
       04644 -0 53400 1 00440 A12    LXD S3V4,1      GET INDEX OF LPLST QUANTITY                      F5G27970    
       04645  0 50000 1 05033        CLA LPLST+S3P1-2,1     GET PREVIOUS LPLST QUANTITY               F5G27980    
       04646  0 60100 0 00607        STO XV19                                                         F5G27990    
       04647  0 56000 0 00324        LDQ S3K2      WAS IT A                                           F5G28000    
       04650  0 04000 0 04663        TLQ A28                                                          F5G28010    
       04651  0 07400 4 00070 A25    TSX SE,4          YES, WAS THAT                                  F5G28020    
       04652  0 50000 1 12533        CLA BBB,1     BB TERMINATED                                      F5G28030    
       04653  0 77100 0 00041        ARS 33        BY A                                               F5G28040    
       04654  0 40000 0 00315        ADD ONEA         GO TO N                                         F5G28050    
       04655 -0 10000 0 04663        TNZ A28                                                          F5G28060    
       04656  0 53400 1 00342        LXA S5K5,1     YES                                               F5G28070    
       04657  0 50000 1 00561 A26    CLA AC1+3,1     IS THIS                                          F5G28080    
       04660  0 10000 0 04662        TZE A27      IR ACTIVE                                           F5G28090    
       04661  0 07400 4 01566        TSX SB,4     YES, RECORD SXD NECESSARY                           F5G28100    
       04662  2 00001 1 04657 A27    TIX A26,1,1                                                      F5G28110    
       04663  0 50000 0 00444 A28    CLA S3V5                                                         F5G28120    
       04664  0 56000 0 00324        LDQ S3K2          IS THIS                                        F5G28130    
       04665  0 04000 0 04700        TLQ A35           ATR. REGION                                    F5G28140    
       04666 -0 32000 0 00336        ANA S5K1              NO, BB                                     F5G28150    
       04667  0 10000 0 04503        TZE A3                                                           F5G28160    
       04670  0 76700 0 00003        ALS 3                                                            F5G28170    
       04671 -0 73400 1 00000        PDX 0,1                                                          F5G28180    
       04672 -3 00002 1 04674        TXL AP1,1,2                                                      F5G28190    
       04673  1 77777 1 04674        TXI AP1,1,-1                                                     F5G28200    
       04674  0 50000 1 00561 AP1    CLA AC1+3,1                                                      F5G28210    
       04675  0 10000 0 04503        TZE A3                                                           F5G28220    
       04676  0 07400 4 01566        TSX SB,4                                                         F5G28230    
       04677  0 02000 0 04503        TRA A3                                                           F5G28240    
       04700  0 07400 4 00070 A35    TSX SE,4                                                         F5G28250    
       04701  0 50000 1 12540        CLA BBB+5,1                                                      F5G28260    
       04702 -0 73400 2 00000        PDX 0,2          INDEX OF REGION TO 2                            F5G28270    
       04703  0 50000 2 05263        CLA REG,2        GET REGION                                      F5G28260    
       04704  0 60100 0 00607        STO XV19                                                         F5G28290    
       04705  0 53400 1 00342        LXA S5K5,1                                                       F5G28300    
       04706 -0 50000 0 00607 A31    CAL XV19                                                         F5G28310    
       04707  0 76700 1 00003        ALS 3,1                                                          F5G28320    
       04710 -0 76000 0 00001        PBT                   IS THERE AN LX                             F5G28330    
       04711  0 02000 0 04715        TRA A30               FOR THIS IR                                F5G28340    
       04712  0 50000 1 00561        CLA AC1+3,1      YES                                             F5G28350    
       04713  0 10000 0 04715        TZE A30          IS THIS IR ACTIVE                               F5G28360    
       04714  0 07400 4 01566        TSX SB,4         YES, RECORD SXD NECESSARY                       F5G28370    
       04715  2 00001 1 04706 A30    TIX A31,1,1                                                      F5G28380    
       04716  0 50000 0 00444        CLA S3V5                                                         F5G28390    
       04717  0 07400 4 01523        TSX SA,4         GET THE EXIT CONDITIONS                         F5G28400    
       04720  0 53400 1 00342        LXA S5K5,1                                                       F5G28410    
       04721  0 50000 1 00561 A34    CLA AC1+3,1                                                      F5G28420    
       04722  0 10000 0 04736        TZE A32          IS THIS IR ACTIVE                               F5G28430    
       04723  0 50000 1 00506        CLA EX1+3,1      YES                                             F5G28440    
       04724  0 56000 0 00337        LDQ S5K2                                                         F5G28450    
       04725  0 04000 0 04730        TLQ A33          IS THE EXIT CONDITION REAL                      F5G28460    
       04726  0 50000 1 00511        CLA ACT1+3,1     YES                                             F5G28470    
       04727  0 12000 0 04736        TPL A32          IS THE IR ACTIVE AT EXIT                        F5G28480    
       04730 -0 63400 1 00610 A33    SXD XV20,1       YES                                             F5G28490    
       04731 -0 53400 2 00610        LXD XV20,2                                                       F5G28500    
       04732  0 50000 0 00444        CLA S3V5                                                         F5G28510    
       04733  0 07400 4 01753        TSX SD,4         RECORD TR. REG. ACTIVE                          F5G28520    
       04734 -0 53400 1 00610        LXD XV20,1                                                       F5G28530    
       04735  0 07400 4 01661        TSX SC,4         RECORD SECTION OF LPLST ACTIVE                  F5G28540    
       04736  2 00001 1 04721 A32    TIX A34,1,1      COUNT TO 3                                      F5G28550    
       04737  0 02000 0 04503        TRA A3                                                           F5G28560    
       04740  0 50000 0 00376  QP    CLA XK15                                                         F5G28580    
       04741 -0 32000 0 00020        ANA 16                                                           F5G28590    
       04742  0 77100 0 00001        ARS 1                                                            F5G28600    
       04743  0 62200 0 00103        STD SE21+2                                                       F5G28610    
       04744  0 10000 0 00030        TZE R                                                            F5G28620    
       04745 -0 53400 4 00063        LXD PREDP+3,4                                                    F5G28630    
       04746  0 50000 0 00075        CLA BBBP+3                                                       F5G28640    
       04747 -3 00000 4 00030 QP0    TXL R,4,0                                                        F5G28650    
       04750  1 77777 4 04751        TXI QP1,4,-1                                                     F5G28660    
       04751 -0 63400 4 00104  QP1   SXD SE21+3,4                                                     F5G28670    
       04752  0 40200 0 00316        SUB ONED                                                         F5G28680    
       04753  0 07400 4 00070        TSX SE,4                                                         F5G28690    
       04754 -0 53400 4 00072        LXD BBBP,4                                                       F5G28700    
       04755  1 00417 4 04756        TXI QP2,4,BBBL-1                                                 F5G28710    
       04756 -0 63400 4 04767  QP2   SXD QP4,4                                                        F5G28720    
       04757 -0 63400 4 04771        SXD QP5,4                                                        F5G28730    
       04760  0 53400 4 12533        LXA BBB,4                                                        F5G28740    
       04761 -0 63400 4 04775        SXD QP8,4                                                        F5G28750    
       04762 -0 53400 4 00104        LXD SE21+3,4                                                     F5G28760    
       04763 -0 75400 4 00000  QP3   PXD 0,4                                                          F5G28770    
       04764  0 07400 4 00056        TSX SE5+1,4                                                      F5G28780    
       04765  0 50200 1 15674        CLS PRED,1                                                       F5G28790    
       04766  0 73400 4 00000        PAX 0,4                                                          F5G28800    
       04767  3 00000 4 04772  QP4   TXH QP6,4,-                                                      F5G28810    
       04770  1 00420 4 04771        TXI QP5,4,BBBL                                                   F5G28820    
       04771  3 00000 4 04773  QP5   TXH QP7,4,-                                                      F5G28830    
       04772  0 60100 1 15674  QP6   STO PRED,1                                                       F5G28840    
       04773 -0 53400 4 00306  QP7   LXD SEV2,4                                                       F5G28850    
       04774  0 50000 0 00072        CLA BBBP                                                         F5G28860    
       04775 -3 00000 4 04747  QP8   TXL QP0,4,-                                                      F5G28870    
       04776  1 77777 4 04763        TXI QP3,4,-1                                                     F5G28880    
                        04741        ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS.        F5G28890    
                                          STORAGE ASSIGNMENT (TABLES)                                 F5G28900    
                        04741 LPLST  BSS S3P1 SPACE FOR LOOP LIST TABLE                               F5G28910    
                        05263 REG    BES FP1 SPACE FOR REGION WORDS                                   F5G28920    
                        12510 SPACE  EQU MSIZE-5-REG     STORAGE SPACE LEFT                           F5G28930    
                        00360  STAGL SYN STL                                                          F5G28940    
       05263  0 00000 0 00000 STAG   HTR -                                                            F5G28950    
       05264  0 00000 0 00000        HTR -                                                            F5G28960    
       05265  0 00000 0 00000        HTR -                                                            F5G28960    
       05266  0 00000 0 00000        HTR -                                                            F5G28960    
       05267  0 00000 0 00000        HTR -                                                            F5G28960    
       05270  0 00000 0 00000        HTR -                                                            F5G28960    
       05271  0 00000 0 00000        HTR -                                                            F5G28960    
       05272  0 00000 0 00000        HTR -                                                            F5G28960    
       05273  0 00000 0 00000        HTR -                                                            F5G28960    
       05274  0 00000 0 00000        HTR -                                                            F5G28960    
       05275  0 00000 0 00000        HTR -                                                            F5G28960    
       05276  0 00000 0 00000        HTR -                                                            F5G28960    
       05277  0 00000 0 00000        HTR -                                                            F5G28960    
       05300  0 00000 0 00000        HTR -                                                            F5G28960    
       05301  0 00000 0 00000        HTR -                                                            F5G28960    
       05302  0 00000 0 00000        HTR -                                                            F5G28960    
       05303  0 00000 0 00000        HTR -                                                            F5G28960    
       05304  0 00000 0 00000        HTR -                                                            F5G28960    
       05305  0 00000 0 00000        HTR -                                                            F5G28960    
       05306  0 00000 0 00000        HTR -                                                            F5G28960    
       05307  0 00000 0 00000        HTR -                                                            F5G28960    
       05310  0 00000 0 00000        HTR -                                                            F5G28960    
       05311  0 00000 0 00000        HTR -                                                            F5G28960    
       05312  0 00000 0 00000        HTR -                                                            F5G28960    
       05313  0 00000 0 00000        HTR -                                                            F5G28960    
       05314  0 00000 0 00000        HTR -                                                            F5G28960    
       05315  0 00000 0 00000        HTR -                                                            F5G28960    
       05316  0 00000 0 00000        HTR -                                                            F5G28960    
       05317  0 00000 0 00000        HTR -                                                            F5G28960    
       05320  0 00000 0 00000        HTR -                                                            F5G28960    
       05321  0 00000 0 00000        HTR -                                                            F5G28960    
       05322  0 00000 0 00000        HTR -                                                            F5G28960    
       05323  0 00000 0 00000        HTR -                                                            F5G28960    
       05324  0 00000 0 00000        HTR -                                                            F5G28960    
       05325  0 00000 0 00000        HTR -                                                            F5G28960    
       05326  0 00000 0 00000        HTR -                                                            F5G28960    
       05327  0 00000 0 00000        HTR -                                                            F5G28960    
       05330  0 00000 0 00000        HTR -                                                            F5G28960    
       05331  0 00000 0 00000        HTR -                                                            F5G28960    
       05332  0 00000 0 00000        HTR -                                                            F5G28960    
       05333  0 00000 0 00000        HTR -                                                            F5G28960    
       05334  0 00000 0 00000        HTR -                                                            F5G28960    
       05335  0 00000 0 00000        HTR -                                                            F5G28960    
       05336  0 00000 0 00000        HTR -                                                            F5G28960    
       05337  0 00000 0 00000        HTR -                                                            F5G28960    
       05340  0 00000 0 00000        HTR -                                                            F5G28960    
       05341  0 00000 0 00000        HTR -                                                            F5G28960    
       05342  0 00000 0 00000        HTR -                                                            F5G28960    
       05343  0 00000 0 00000        HTR -                                                            F5G28960    
       05344  0 00000 0 00000        HTR -                                                            F5G28960    
       05345  0 00000 0 00000        HTR -                                                            F5G28960    
       05346  0 00000 0 00000        HTR -                                                            F5G28960    
       05347  0 00000 0 00000        HTR -                                                            F5G28960    
       05350  0 00000 0 00000        HTR -                                                            F5G28960    
       05351  0 00000 0 00000        HTR -                                                            F5G28960    
       05352  0 00000 0 00000        HTR -                                                            F5G28960    
       05353  0 00000 0 00000        HTR -                                                            F5G28960    
       05354  0 00000 0 00000        HTR -                                                            F5G28960    
       05355  0 00000 0 00000        HTR -                                                            F5G28960    
       05356  0 00000 0 00000        HTR -                                                            F5G28960    
       05357  0 00000 0 00000        HTR -                                                            F5G28960    
       05360  0 00000 0 00000        HTR -                                                            F5G28960    
       05361  0 00000 0 00000        HTR -                                                            F5G28960    
       05362  0 00000 0 00000        HTR -                                                            F5G28960    
       05363  0 00000 0 00000        HTR -                                                            F5G28960    
       05364  0 00000 0 00000        HTR -                                                            F5G28960    
       05365  0 00000 0 00000        HTR -                                                            F5G28960    
       05366  0 00000 0 00000        HTR -                                                            F5G28960    
       05367  0 00000 0 00000        HTR -                                                            F5G28960    
       05370  0 00000 0 00000        HTR -                                                            F5G28960    
       05371  0 00000 0 00000        HTR -                                                            F5G28960    
       05372  0 00000 0 00000        HTR -                                                            F5G28960    
       05373  0 00000 0 00000        HTR -                                                            F5G28960    
       05374  0 00000 0 00000        HTR -                                                            F5G28960    
       05375  0 00000 0 00000        HTR -                                                            F5G28960    
       05376  0 00000 0 00000        HTR -                                                            F5G28960    
       05377  0 00000 0 00000        HTR -                                                            F5G28960    
       05400  0 00000 0 00000        HTR -                                                            F5G28960    
       05401  0 00000 0 00000        HTR -                                                            F5G28960    
       05402  0 00000 0 00000        HTR -                                                            F5G28960    
       05403  0 00000 0 00000        HTR -                                                            F5G28960    
       05404  0 00000 0 00000        HTR -                                                            F5G28960    
       05405  0 00000 0 00000        HTR -                                                            F5G28960    
       05406  0 00000 0 00000        HTR -                                                            F5G28960    
       05407  0 00000 0 00000        HTR -                                                            F5G28960    
       05410  0 00000 0 00000        HTR -                                                            F5G28960    
       05411  0 00000 0 00000        HTR -                                                            F5G28960    
       05412  0 00000 0 00000        HTR -                                                            F5G28960    
       05413  0 00000 0 00000        HTR -                                                            F5G28960    
       05414  0 00000 0 00000        HTR -                                                            F5G28960    
       05415  0 00000 0 00000        HTR -                                                            F5G28960    
       05416  0 00000 0 00000        HTR -                                                            F5G28960    
       05417  0 00000 0 00000        HTR -                                                            F5G28960    
       05420  0 00000 0 00000        HTR -                                                            F5G28960    
       05421  0 00000 0 00000        HTR -                                                            F5G28960    
       05422  0 00000 0 00000        HTR -                                                            F5G28960    
       05423  0 00000 0 00000        HTR -                                                            F5G28960    
       05424  0 00000 0 00000        HTR -                                                            F5G28960    
       05425  0 00000 0 00000        HTR -                                                            F5G28960    
       05426  0 00000 0 00000        HTR -                                                            F5G28960    
       05427  0 00000 0 00000        HTR -                                                            F5G28960    
       05430  0 00000 0 00000        HTR -                                                            F5G28960    
       05431  0 00000 0 00000        HTR -                                                            F5G28960    
       05432  0 00000 0 00000        HTR -                                                            F5G28960    
       05433  0 00000 0 00000        HTR -                                                            F5G28960    
       05434  0 00000 0 00000        HTR -                                                            F5G28960    
       05435  0 00000 0 00000        HTR -                                                            F5G28960    
       05436  0 00000 0 00000        HTR -                                                            F5G28960    
       05437  0 00000 0 00000        HTR -                                                            F5G28960    
       05440  0 00000 0 00000        HTR -                                                            F5G28960    
       05441  0 00000 0 00000        HTR -                                                            F5G28960    
       05442  0 00000 0 00000        HTR -                                                            F5G28960    
       05443  0 00000 0 00000        HTR -                                                            F5G28960    
       05444  0 00000 0 00000        HTR -                                                            F5G28960    
       05445  0 00000 0 00000        HTR -                                                            F5G28960    
       05446  0 00000 0 00000        HTR -                                                            F5G28960    
       05447  0 00000 0 00000        HTR -                                                            F5G28960    
       05450  0 00000 0 00000        HTR -                                                            F5G28960    
       05451  0 00000 0 00000        HTR -                                                            F5G28960    
       05452  0 00000 0 00000        HTR -                                                            F5G28960    
       05453  0 00000 0 00000        HTR -                                                            F5G28960    
       05454  0 00000 0 00000        HTR -                                                            F5G28960    
       05455  0 00000 0 00000        HTR -                                                            F5G28960    
       05456  0 00000 0 00000        HTR -                                                            F5G28960    
       05457  0 00000 0 00000        HTR -                                                            F5G28960    
       05460  0 00000 0 00000        HTR -                                                            F5G28960    
       05461  0 00000 0 00000        HTR -                                                            F5G28960    
       05462  0 00000 0 00000        HTR -                                                            F5G28960    
       05463  0 00000 0 00000        HTR -                                                            F5G28960    
       05464  0 00000 0 00000        HTR -                                                            F5G28960    
       05465  0 00000 0 00000        HTR -                                                            F5G28960    
       05466  0 00000 0 00000        HTR -                                                            F5G28960    
       05467  0 00000 0 00000        HTR -                                                            F5G28960    
       05470  0 00000 0 00000        HTR -                                                            F5G28960    
       05471  0 00000 0 00000        HTR -                                                            F5G28960    
       05472  0 00000 0 00000        HTR -                                                            F5G28960    
       05473  0 00000 0 00000        HTR -                                                            F5G28960    
       05474  0 00000 0 00000        HTR -                                                            F5G28960    
       05475  0 00000 0 00000        HTR -                                                            F5G28960    
       05476  0 00000 0 00000        HTR -                                                            F5G28960    
       05477  0 00000 0 00000        HTR -                                                            F5G28960    
       05500  0 00000 0 00000        HTR -                                                            F5G28960    
       05501  0 00000 0 00000        HTR -                                                            F5G28960    
       05502  0 00000 0 00000        HTR -                                                            F5G28960    
       05503  0 00000 0 00000        HTR -                                                            F5G28960    
       05504  0 00000 0 00000        HTR -                                                            F5G28960    
       05505  0 00000 0 00000        HTR -                                                            F5G28960    
       05506  0 00000 0 00000        HTR -                                                            F5G28960    
       05507  0 00000 0 00000        HTR -                                                            F5G28960    
       05510  0 00000 0 00000        HTR -                                                            F5G28960    
       05511  0 00000 0 00000        HTR -                                                            F5G28960    
       05512  0 00000 0 00000        HTR -                                                            F5G28960    
       05513  0 00000 0 00000        HTR -                                                            F5G28960    
       05514  0 00000 0 00000        HTR -                                                            F5G28960    
       05515  0 00000 0 00000        HTR -                                                            F5G28960    
       05516  0 00000 0 00000        HTR -                                                            F5G28960    
       05517  0 00000 0 00000        HTR -                                                            F5G28960    
       05520  0 00000 0 00000        HTR -                                                            F5G28960    
       05521  0 00000 0 00000        HTR -                                                            F5G28960    
       05522  0 00000 0 00000        HTR -                                                            F5G28960    
       05523  0 00000 0 00000        HTR -                                                            F5G28960    
       05524  0 00000 0 00000        HTR -                                                            F5G28960    
       05525  0 00000 0 00000        HTR -                                                            F5G28960    
       05526  0 00000 0 00000        HTR -                                                            F5G28960    
       05527  0 00000 0 00000        HTR -                                                            F5G28960    
       05530  0 00000 0 00000        HTR -                                                            F5G28960    
       05531  0 00000 0 00000        HTR -                                                            F5G28960    
       05532  0 00000 0 00000        HTR -                                                            F5G28960    
       05533  0 00000 0 00000        HTR -                                                            F5G28960    
       05534  0 00000 0 00000        HTR -                                                            F5G28960    
       05535  0 00000 0 00000        HTR -                                                            F5G28960    
       05536  0 00000 0 00000        HTR -                                                            F5G28960    
       05537  0 00000 0 00000        HTR -                                                            F5G28960    
       05540  0 00000 0 00000        HTR -                                                            F5G28960    
       05541  0 00000 0 00000        HTR -                                                            F5G28960    
       05542  0 00000 0 00000        HTR -                                                            F5G28960    
       05543  0 00000 0 00000        HTR -                                                            F5G28960    
       05544  0 00000 0 00000        HTR -                                                            F5G28960    
       05545  0 00000 0 00000        HTR -                                                            F5G28960    
       05546  0 00000 0 00000        HTR -                                                            F5G28960    
       05547  0 00000 0 00000        HTR -                                                            F5G28960    
       05550  0 00000 0 00000        HTR -                                                            F5G28960    
       05551  0 00000 0 00000        HTR -                                                            F5G28960    
       05552  0 00000 0 00000        HTR -                                                            F5G28960    
       05553  0 00000 0 00000        HTR -                                                            F5G28960    
       05554  0 00000 0 00000        HTR -                                                            F5G28960    
       05555  0 00000 0 00000        HTR -                                                            F5G28960    
       05556  0 00000 0 00000        HTR -                                                            F5G28960    
       05557  0 00000 0 00000        HTR -                                                            F5G28960    
       05560  0 00000 0 00000        HTR -                                                            F5G28960    
       05561  0 00000 0 00000        HTR -                                                            F5G28960    
       05562  0 00000 0 00000        HTR -                                                            F5G28960    
       05563  0 00000 0 00000        HTR -                                                            F5G28960    
       05564  0 00000 0 00000        HTR -                                                            F5G28960    
       05565  0 00000 0 00000        HTR -                                                            F5G28960    
       05566  0 00000 0 00000        HTR -                                                            F5G28960    
       05567  0 00000 0 00000        HTR -                                                            F5G28960    
       05570  0 00000 0 00000        HTR -                                                            F5G28960    
       05571  0 00000 0 00000        HTR -                                                            F5G28960    
       05572  0 00000 0 00000        HTR -                                                            F5G28960    
       05573  0 00000 0 00000        HTR -                                                            F5G28960    
       05574  0 00000 0 00000        HTR -                                                            F5G28960    
       05575  0 00000 0 00000        HTR -                                                            F5G28960    
       05576  0 00000 0 00000        HTR -                                                            F5G28960    
       05577  0 00000 0 00000        HTR -                                                            F5G28960    
       05600  0 00000 0 00000        HTR -                                                            F5G28960    
       05601  0 00000 0 00000        HTR -                                                            F5G28960    
       05602  0 00000 0 00000        HTR -                                                            F5G28960    
       05603  0 00000 0 00000        HTR -                                                            F5G28960    
       05604  0 00000 0 00000        HTR -                                                            F5G28960    
       05605  0 00000 0 00000        HTR -                                                            F5G28960    
       05606  0 00000 0 00000        HTR -                                                            F5G28960    
       05607  0 00000 0 00000        HTR -                                                            F5G28960    
       05610  0 00000 0 00000        HTR -                                                            F5G28960    
       05611  0 00000 0 00000        HTR -                                                            F5G28960    
       05612  0 00000 0 00000        HTR -                                                            F5G28960    
       05613  0 00000 0 00000        HTR -                                                            F5G28960    
       05614  0 00000 0 00000        HTR -                                                            F5G28960    
       05615  0 00000 0 00000        HTR -                                                            F5G28960    
       05616  0 00000 0 00000        HTR -                                                            F5G28960    
       05617  0 00000 0 00000        HTR -                                                            F5G28960    
       05620  0 00000 0 00000        HTR -                                                            F5G28960    
       05621  0 00000 0 00000        HTR -                                                            F5G28960    
       05622  0 00000 0 00000        HTR -                                                            F5G28960    
       05623  0 00000 0 00000        HTR -                                                            F5G28960    
       05624  0 00000 0 00000        HTR -                                                            F5G28960    
       05625  0 00000 0 00000        HTR -                                                            F5G28960    
       05626  0 00000 0 00000        HTR -                                                            F5G28960    
       05627  0 00000 0 00000        HTR -                                                            F5G28960    
       05630  0 00000 0 00000        HTR -                                                            F5G28960    
       05631  0 00000 0 00000        HTR -                                                            F5G28960    
       05632  0 00000 0 00000        HTR -                                                            F5G28960    
       05633  0 00000 0 00000        HTR -                                                            F5G28960    
       05634  0 00000 0 00000        HTR -                                                            F5G28960    
       05635  0 00000 0 00000        HTR -                                                            F5G28960    
       05636  0 00000 0 00000        HTR -                                                            F5G28960    
       05637  0 00000 0 00000        HTR -                                                            F5G28960    
       05640  0 00000 0 00000        HTR -                                                            F5G28960    
       05641  0 00000 0 00000        HTR -                                                            F5G28960    
       05642  0 00000 0 00000        HTR -                                                            F5G28960    
       05643  0 00000 0 00000        HTR -                                                            F5G28960    
       05644  0 50000 1 12535  W0    CLA BBB+2,1                                                      F5G28980    
       05645  0 77100 0 00022        ARS 18                                                           F5G28990    
       05646  0 40200 0 00611        SUB XV21                                                         F5G29000    
       05647  0 10000 0 04112        TZE X42                                                          F5G29010    
       05650  0 53400 1 00342        LXA S5K5,1                                                       F5G29020    
       05651 -0 53400 4 00601        LXD XV13,4                                                       F5G29030    
       05652  0 50000 4 12535  W1    CLA BBB+2,4                                                      F5G29040    
       05653  0 76500 0 00022        LRS 18                                                           F5G29050    
       05654  0 40200 0 00611        SUB XV21                                                         F5G29060    
       05655  0 10000 0 05665        TZE W3                                                           F5G29070    
       05656  0 50000 0 00314        CLA ZERO                                                         F5G29080    
       05657  0 76300 0 00022        LLS 18                                                           F5G29090    
       05660  0 40200 0 00611        SUB XV21                                                         F5G29100    
       05661  0 10000 0 05665        TZE W3                                                           F5G29110    
       05662  1 77777 4 05663        TXI W2,4,-1                                                      F5G29120    
       05663  2 00001 1 05652  W2    TIX W1,1,1                                                       F5G29130    
       05664 -3 00000 0 04111        TXL X36,-,-                                                      F5G29140    
       05665 -0 63400 2 05671  W3    SXD W4,2                                                         F5G29150    
       05666 -0 53400 1 05664        LXD W2+1,1                                                       F5G29160    
       05667  0 07400 4 01566        TSX SB,4                                                         F5G29170    
       05670 -0 53400 2 05671        LXD W4,2                                                         F5G29180    
       05671 -3 00000 0 04111  W4    TXL X36,-,-                                                      F5G29190    
                        05672        BSS PTL1      SPACE FOR PATCHES                                  F5G29200    
                        04615 CMTL   SYN 9*SPACE/20/15*15                                             F5G29210    
                        05716 CMTAG  BSS CMTL                                                         F5G29220    
                        00420 BBBL   SYN 6*SPACE/20/6                                                 F5G29230    
                        12533 BBB    BSS BBBL*6+1                                                     F5G29240    
                        15674 PRED   SYN BBB+BBBL*6+1                                                 F5G29250    
                        02100 SPAC1  EQU MSIZE-4-PRED                                                 F5G29260    
                        01037 PREDL  EQU SPAC1/2-1                                                    F5G29270    
                        15674        BSS PREDL+1                                                      F5G29280    
                        01037 SUCCL  SYN PREDL                                                        F5G29290    
                        16734 SUCC   BSS SUCCL+1                                                      F5G29300    
                                                 EDITOR RECORD NO. 76                                 F5G29310    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBEY.           F5G29320    
                                              DIAGNOSTIO CALLER FOLLOWS                               F5G29340    
                                                         PART 1B                                      F5G29350    
                                            INITIALIZATION AND PRED LIMIT FOR FAST COMPILING.         F5G29360    
                        15674        ORG PRED                                                         F5G29370    
       15674  0 53400 1 00362 I      LXA FK5,1                  CLEAR REG. TABLE                      F5G29380    
       15675  0 76000 0 00012        DCT   CLEAR DIVIDE CHECK LIGHT                                   F5G29390    
       15676  0 76100 0 00000        NOP      IN CASE DIVIDE CHECK IS ON                              F5G29400    
       15677  0 50000 0 00314        CLA ZERO                                                         F5G29410    
       15700  0 60100 1 05263 I11    STO REG,1                                                        F5G29420    
       15701  2 00001 1 15700        TIX I11,1,1                                                      F5G29430    
       15702  0 76000 0 00140        PSE 96                TURN OFF SENSE LIGHTS.                     F5G29440    
       15703  0 50000 0 17777        CLA KEYS+3               INITIALIZE                              F5G29441    
       15704  0 60100 0 00042        STO STAGP+5 DRUM ADDR. OF STAG                                   F5G29450    
       15705  0 50000 0 17775        CLA KEYS+1                                                       F5G29460    
       15706  0 60100 0 00065        STO PREDP+5                                                      F5G29470    
       15707  0 50000 0 17776        CLA KEYS+2                                                       F5G29480    
       15710  0 60100 0 00077        STO BBBP+5 DRUM ADDR. OF BB.B.                                   F5G29490    
       15711  0 50000 0 17774        CLA KEYS                                                         F5G29500    
       15712  0 76700 0 00022        ALS 18                                                           F5G29510    
       15713  0 60100 0 00075        STO BBBP+3 NO. OF BASIC BLOCKS.                                  F5G29520    
       15714  0 40200 0 00316        SUB ONED                                                         F5G29530    
       15715  0 07400 4 00070        TSX SE,4                                                         F5G29540    
       15716  0 50000 1 12533        CLA BBB,1                                                        F5G29550    
       15717  0 62200 0 00051        STD SUCCP+3    LOCATION OF LAST SUCC                             F5G29560    
       15720  0 76700 0 00022        ALS 18                                                           F5G29570    
       15721  0 62200 0 00063        STD PREDP+3      LOCATION OF LAST PRED                           F5G29580    
       15722  0 50000 1 12534        CLA BBB+1,1                                                      F5G29590    
       15723 -0 32000 0 00326        ANA S3K4                                                         F5G29600    
       15724  0 60100 0 00453        STO S4V3                                                         F5G29610    
       15725  0 76500 0 00043        LRS 35                                                           F5G29620    
       15726  0 22100 0 00331        DVP S4K2 COMPUTE                                                 F5G29630    
       15727 -0 60000 0 16005        STQ IV1 THE                                                      F5G29640    
       15730  0 10000 0 15732        TZE I1 LOCATI0N                                                  F5G29650    
       15731  0 50000 0 00315        CLA ONEA WHICH A TAG                                             F5G29660    
       15732  0 40000 0 16005 I1     ADD IV1 WOULD HAVE                                               F5G29670    
       15733  0 76500 0 00043        LRS 35 IF IT                                                     F5G29680    
       15734  0 20000 0 00331        MPY S4K2 WERE FIRST IN                                           F5G29690    
       15735  0 76300 0 00043        LLS 35 THE NEXT RECORD.                                          F5G29700    
       15736  0 60100 0 00452        STO S4V2                                                         F5G29710    
       15737  0 60100 0 00451        STO S4V1                                                         F5G29720    
       15740  0 50000 1 12534        CLA BBB+1,1 DETERMINE NO.                                        F5G29730    
       15741 -0 32000 0 00326        ANA S3K4 OF ENTRIES IN                                           F5G29740    
       15742  0 76500 0 00043        LRS 35 STAG.                                                     F5G29750    
       15743  0 22100 0 00371        DVP XK9                                                          F5G29760    
       15744 -0 60000 0 16005        STQ IV1                                                          F5G29770    
       15745  0 10000 0 15747        TZE I10                                                          F5G29780    
       15746  0 50000 0 00315        CLA ONEA                                                         F5G29790    
       15747  0 40000 0 16005 I10    ADD IV1          INITIALIZE                                      F5G29800    
       15750  0 76700 0 00022        ALS 18                                                           F5G29010    
       15751  0 60100 0 00040        STO STAGP+3 OF ENTRIES IN STAG                                   F5G29820    
       15752  0 76500 0 00043        LRS 35 COMPUTE                                                   F5G29830    
       15753  0 22100 0 00037        DVP STAGP+2   THE                                                F5G29840    
       15754  0 10000 0 15756        TZE I3 DRUM                                                      F5G29850    
       15755  0 50000 0 00315        CLA ONEA ADDR.                                                   F5G29860    
       15756 -0 60000 0 16006 I3     STQ IV2 FOLLOWING                                                F5G29870    
       15757  0 40000 0 16006        ADD IV2 THE                                                      F5G29880    
       15760  0 76700 0 00022        ALS 18                                                           F5G29890    
       15761  0 40000 0 00040        ADD STAGP+3 STAG                                                 F5G29900    
       15762  0 77100 0 00022        ARS 18                                                           F5G29910    
       15763  0 40000 0 00042        ADD STAGP+5 TABLE.                                               F5G29920    
       15764  0 56000 0 16010        LDQ IK1                                                          F5G29930    
       15765  0 04000 0 16004        TLQ I7                                                           F5G29940    
       15766  0 50000 0 00036 I6     CLA STAGP+1                                                      F5G29950    
       15767  0 34000 0 00040        CAS STAGP+3    ARE WE THRU STORING 0 S                           F5G29960    
       15770  0 02000 0 15772        TRA I4                                                           F5G29970    
       15771  0 02000 0 16011        TRA I9                                                           F5G29980    
       15772  0 60100 0 00035 I4     STO STAGP SET N(0) TO OLD N(1)                                   F5G29990    
       15773  0 40000 0 00037        ADD STAGP+2 SET N(1) T0 MIN (OLD N(1)+N.,                        F5G30000    
       15774  0 56000 0 00040        LDQ STAGP+3 N(L)                                                 F5G30010    
       15775 -0 60000 0 00036        STQ STAGP+1                                                      F5G30020    
       15776  0 04000 0 16000        TLQ I5                                                           F5G30030    
       15777  0 60100 0 00036        STO STAGP+1                                                      F5G30040    
       16000  0 50000 0 00277 I5     CLA SEK                                                          F5G30050    
       16001  0 53400 2 16007        LXA IK2,2                                                        F5G30060    
       16002  0 07400 4 00166        TSX SE26,4 STORE BLOCK OF 0S                                     F5G30070    
       16003  0 02000 0 15766        TRA I6                                                           F5G30080    
       16004  0 07400 4 00004 I7     TSX 4,4 TO DIAGNOSTIC                                            F5G30090    
       16005  0 00000 0 00000 IV1                                                                     F5G30100    
       16006  0 00000 0 00000 IV2                                                                     F5G30110    
       16007  0 00000 0 77744 IK2        1-STAGP                                                      F5G30120    
       16010  0 00000 0 17777 IK1    HTR 8191                                                         F5G30130    
       16011  0 07400 4 01133 I9     TSX S4,4                                                         F5G30140    
       16012  0 77200 0 00204        REW INSTTP            REWIND THE COMPILED INST TAPE              F5G30150    
       16013  0 50000 0 17775        CLA KEYS+1                                                       F5G30160    
       16014 -0 10000 0 04740        TNZ LPLST-1                                                      F5G30170    
       16015  0 60100 0 00550        STO LPIND                                                        F5G30180    
       16016  0 60100 0 04740        STO LPLST-1                                                      F5G30190    
       16017  0 60100 0 04741        STO LPLST                                                        F5G30200    
       16020  0 50000 0 00323        CLA S3K1                                                         F5G30210    
       16021  0 60100 0 04742        STO LPLST+1                                                      F5G30220    
       16022 -0 53400 4 00317        LXD S1K2,4  SKIP DIAGNOSTICS                                     F5G30230    
       16023  0 76200 0 00221 I9A    RTB 1  AND ANTIPINGPONG                                          F5G30240    
       16024  2 00001 4 16023        TIX I9A,4,1   SIX RECORDS                                        F5G30250    
       16025  0 02000 0 02706        TRA F75                                                          F5G30260    
                                                 EDITOR RECORD NO. 78                                 F5G30270    
                                         FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.           F5G30280    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G30300    
                                                   PART 1C                                            F5G30310    
                                               SUCC LIMIT FOR FAST COMPILING                          F5G30320    
                        04740        ORG LPLST-1                                                      F5G30330    
       04740 -0 53400 1 00103  QS    LXD SE21+2,1                                                     F5G30340    
       04741 -3 00000 1 02177        TXL F,1,0                                                        F5G30350    
       04742 -0 53400 4 00051        LXD SUCCP+3,4                                                    F5G30360    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G30370    
       04744 -3 00000 4 02177  QS0   TXL F,4,0                                                        F5G30380    
       04745  1 77777 4 04746        TXI QS1,4,-1                                                     F5G30390    
       04746 -0 63400 4 00104  QS1   SXD SE21+3,4                                                     F5G30400    
       04747  0 40200 0 00316        SUB ONED                                                         F5G30410    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G30420    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G30430    
       04752  1 00417 4 04753        TXI QS2,4,BBBL-1                                                 F5G30440    
       04753 -0 63400 4 04764  QS2   SXD QS4,4                                                        F5G30450    
       04754 -0 63400 4 04766        SXD QS5,4                                                        F5G30460    
       04755 -0 53400 4 12533        LXD BBB,4                                                        F5G30470    
       04756 -0 63400 4 04772        SXD QS8,4                                                        F5G30480    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G30490    
       04760 -0 75400 4 00000  QS3   PXD 0,4                                                          F5G30500    
       04761  0 07400 4 00044        TSX SE6,4                                                        F5G30510    
       04762  0 50200 1 16734        CLS SUCC,1                                                       F5G30520    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G30530    
       04764  3 00000 4 04767  QS4   TXH QS6,4,-                                                      F5G30540    
       04765  1 00420 4 04766        TXI QS5,4,BBBL                                                   F5G30550    
       04766  3 00000 4 04770  QS5   TXH QS7,4,-                                                      F5G30560    
       04767  0 60100 1 16734  QS6   STO SUCC,1                                                       F5G30570    
       04770 -0 53400 4 00306  QS7   LXD SEV2,4                                                       F5G30580    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G30590    
       04772 -3 00000 4 04744  QS8   TXL QS0,4,-                                                      F5G30600    
       04773  1 77777 4 04760        TXI QS3,4,-1                                                     F5G30610    
                                                 EDITOR RECORD NO. 80                                 F5G30620    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30630    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G30650    
                                                   PART 1D                                            F5G30660    
                                                 PRED UNDO FROM FAST COMPILING                        F5G30670    
                        04740        ORG LPLST-1                                                      F5G30660    
       04740 -0 53400 1 00103  QPU   LXD SE21+2,1                                                     F5G30690    
       04741 -3 00000 1 00030        TXL R,1,0                                                        F5G30700    
       04742 -0 53400 4 00063        LXD PREDP+3,4                                                    F5G30710    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G30720    
       04744 -3 00000 4 00030 QPU0   TXL R,4,0                                                        F5G30730    
       04745  1 77777 4 04746        TXI QPU1,4,-1                                                    F5G30740    
       04746 -0 63400 4 00104  QPU1  SXD SE21+3,4                                                     F5G30750    
       04747  0 40200 0 00316        SUB ONED                                                         F5G30760    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G30770    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G30780    
       04752  1 00417 4 04753        TXI QPU2,4,BBBL-1                                                F5G30790    
       04753 -0 63400 4 04764  QPU2  SXD QPU4,4                                                       F5G30800    
       04754 -0 63400 4 04766        SXD QPU5,4                                                       F5G30810    
       04755  0 53400 4 12533        LXA BBB,4                                                        F5G30820    
       04756 -0 63400 4 04772        SXD QPU8,4                                                       F5G30830    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G30840    
       04760 -0 75400 4 00000  QPU3  PXD 0,4                                                          F5G30850    
       04761  0 07400 4 00056        TSX SE5+1,4                                                      F5G30860    
       04762  0 50200 1 15674        CLS PRED,1                                                       F5G30870    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G30880    
       04764  3 00000 4 04767  QPU4  TXH QPU6,4,-                                                     F5G30890    
       04765  1 00420 4 04766        TXI QPU5,4,BBBL                                                  F5G30900    
       04766  3 00000 4 04770  QPU5  TXH QPU7,4,-                                                     F5G30910    
       04767  0 60100 1 15674  QPU6  STO PRED,1                                                       F5G30920    
       04770 -0 53400 4 00306  QPU7  LXD SEV2,4                                                       F5G30930    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G30940    
       04772 -3 00000 4 04744  QPU8  TXL QPU0,4,-                                                     F5G30950    
       04773  1 77777 4 04760        TXI QPU3,4,-1                                                    F5G30960    
                                                 EDITOR RECORD NO. 82                                 F5G30970    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30980    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G31000    
                                                   PART 1E                                            F5G31010    
                                                   SUCC UNDO FROM FAST COMPILING                      F5G31020    
                        04740        ORG LPLST-1                                                      F5G31030    
       04740 -0 53400 1 00103  QSU   LXD SE21+2,1                                                     F5G31040    
       04741 -3 00000 1 02177        TXL F,1,0                                                        F5G31050    
       04742 -0 53400 4 00051        LXD SUCCP+3,4                                                    F5G31060    
       04743  0 50000 0 00075        CLA BBBP+3                                                       F5G31070    
       04744 -3 00000 4 02177  QSU0  TXL F,4,0                                                        F5G31080    
       04745  1 77777 4 04746        TXI QSU1,4,-1                                                    F5G31090    
       04746 -0 63400 4 00104  QSU1  SXD SE21+3,4                                                     F5G31100    
       04747  0 40200 0 00316        SUB ONED                                                         F5G31110    
       04750  0 07400 4 00070        TSX SE,4                                                         F5G31120    
       04751 -0 53400 4 00072        LXD BBBP,4                                                       F5G31130    
       04752  1 00417 4 04753        TXI QSU2,4,BBBL-1                                                F5G31140    
       04753 -0 63400 4 04764  QSU2  SXD QSU4,4                                                       F5G31150    
       04754 -0 63400 4 04766        SXD QSU5,4                                                       F5G31160    
       04755 -0 53400 4 12533        LXD BBB,4                                                        F5G31170    
       04756 -0 63400 4 04772        SXD QSU8,4                                                       F5G31180    
       04757 -0 53400 4 00104        LXD SE21+3,4                                                     F5G31190    
       04760 -0 75400 4 00000  QSU3  PXD 0,4                                                          F5G31200    
       04761  0 07400 4 00044        TSX SE6,4                                                        F5G31210    
       04762  0 50200 1 16734        CLS SUCC,1                                                       F5G31220    
       04763  0 73400 4 00000        PAX 0,4                                                          F5G31230    
       04764  3 00000 4 04767  QSU4  TXH QSU6,4,-                                                     F5G31240    
       04765  1 00420 4 04766        TXI QSU5,4,BBBL                                                  F5G31250    
       04766  3 00000 4 04770  QSU5  TXH QSU7,4,-                                                     F5G31260    
       04767  0 60100 1 16734  QSU6  STO SUCC,1                                                       F5G31270    
       04770 -0 53400 4 00306  QSU7  LXD SEV2,4                                                       F5G31280    
       04771  0 50000 0 00072        CLA BBBP                                                         F5G31290    
       04772 -3 00000 4 04744  QSU8  TXL QSU0,4,-                                                     F5G31300    
       04773  1 77777 4 04760        TXI QSU3,4,-1                                                    F5G31310    
                                                 EDITOR RECORD N0. 84                                 F5G31320    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G31330    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G31350    
                                                   PART 2                                             F5G31360    
                                         PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE            F5G31370    
                        00317        ORG C                                                            F5G31380    
       00317  0 00000 0 77777 BLV09  HTR -1              BB NO. OF LAST GO TO N                       F5G31390    
       00320  0 76200 0 00223 BL12   RTB BLT             FIND THE END OF FILE PRECEEDING BB LIST      F5G31400    
       00321  0 70000 0 00655 BL13   CPY BLIST                                                        F5G31410    
       00322  0 02000 0 00320        TRA BL12                                                         F5G31420    
       00323  0 02000 0 00325        TRA BL6                                                          F5G31430    
       00324  0 02000 0 00320        TRA BL12                                                         F5G31440    
       00325 -0 53400 2 00332 BL6    LXD CON1,2                                                       F5G31450    
       00326  0 76200 0 00223 BL5    RTB BLT                                                          F5G31460    
       00327  0 53400 1 00332        LXA CON1,1                                                       F5G31470    
       00330  0 70000 1 00655 BL1    CPY BLIST,1         COPY BB LIST INTO CS                         F5G31480    
       00331  1 77777 1 00330        TXI BL1,1,-1                                                     F5G31490    
       00332  0 00005 0 00000 CON1       0,0,5                                                        F5G31500    
       00333  0 76600 0 00333        IOD                                                              F5G31510    
       00334 -0 76000 0 00012        RTT                                                              F5G31520    
       00335  0 02000 0 00435        TRA BL4             ERROR                                        F5G31530    
       00336  0 50000 0 17774        CLA KEYS            O.K. COMPUTE TEST CONSTANT                   F5G31540    
       00337  0 40200 0 00552        SUB TWO                                                          F5G31550    
       00340  0 60100 0 00566        STO BLV3                                                         F5G31560    
       00341  0 50000 0 00314        CLA ZERO                                                         F5G31570    
       00342  0 07400 4 00032        TSX SE4,4           STAG WORD                                    F5G31580    
       00343  0 50000 1 05263        CLA STAG,1                                                       F5G31590    
       00344  0 60100 0 00602        STO BLV07                                                        F5G31600    
       00345  0 50000 0 00564        CLA BLV1                                                         F5G31610    
       00346  0 56000 0 00566 BL3    LDQ BLV3            HAVE WE ALREADY DEALT WITH LAST BB           F5G31620    
       00347  0 04000 0 00541        TLQ BL06            YES , GO TO READ IN NEXT PART                F5G31630    
       00350  0 40000 0 00315        ADD ONEA                                                         F5G31640    
       00351  0 07400 4 00067        TSX SE1,4           GET UNDEX OF NEXT BB                         F5G31650    
       00352  0 50000 1 12534        CLA BBB+1,1         STORE THE NO. OF THE                         F5G31660    
       00353 -0 32000 0 00554        ANA RMSK            FIRST TAG IN                                 F5G31670    
       00354  0 60100 0 00571        STO BLV6            NEXT BB.,                                    F5G31680    
       00355  0 50000 1 12533        CLA BBB,1                                                        F5G31690    
       00356 -0 32000 0 00553        ANA 2AMSK                                                        F5G31700    
       00357  0 60100 0 00570        STO BLV5            STORE AWAY NO. OF U1ST PRED IN NEXT BB.      F5G31710    
       00360  0 50000 0 00564        CLA BLV1                                                         F5G31720    
       00361  0 07400 4 00067        TSX SE1,4                                                        F5G31730    
       00362 -0 53400 2 00565        LXD BLV2,2                                                       F5G31740    
       00363  0 50000 2 00655        CLA BLIST,2         REPLACE LAST WORD OF BBB ENTRY               F5G31750    
       00364  0 60100 1 12540        STO BBB+5,1         BY THE LOCATION FROM THE BB LIST.            F5G31760    
       00365  1 77777 2 00366 BL2    TXI BL2+1,2,-1                                                   F5G31770    
       00366 -0 63400 2 00565        SXD BLV2,2                                                       F5G31780    
       00367  0 50000 1 12534        CLA BBB+1,1         STORE PERMUTATION NOS.                       F5G31790    
       00370  0 60100 0 00572        STO BLV7                                                         F5G31800    
       00371 -0 63400 1 00567        SXD BLV4,1                                                       F5G31810    
       00372  0 50000 1 12534        CLA BBB+1,1         GET                                          F5G31820    
       00373 -0 32000 0 00554        ANA RMSK            OF 1ST TAG IN BB                             F5G31830    
       00374  0 40200 0 00571        SUB BLV6            FORM COUNT OF NO. OF T.GS                    F5G31840    
       00375  0 40200 0 00315        SUB ONEA                                                         F5G31850    
       00376  0 73400 2 00000        PAX 0,2             C0UNT OF NO. OF TAGS INTO 2.                 F5G31860    
       00377 -0 63400 2 00600        SXD BLV05,2         STORE COUNT OF NO. OF TAGS                   F5G31870    
       00400  0 50000 1 12533        CLA BBB,1                                                        F5G31880    
       00401 -0 32000 0 00553        ANA 2AMSK                                                        F5G31890    
       00402  0 60100 0 00575 BL9    STO BLV01                                                        F5G31900    
       00403  0 34000 0 00570        CAS BLV5            IS THIS PRED IN SAME BB                      F5G31910    
       00404  0 02000 0 00406        TRA BL7             YES                                          F5G31920    
       00405  0 02000 0 00440        TRA BL01            NO                                           F5G31930    
       00406  0 07400 4 00055 BL7    TSX SE5,4           YES, GET INDEX OF PRED                       F5G31940    
       00407 -0 50000 0 00555        CAL SALM                                                         F5G31950    
       00410  0 60200 0 00574        SLW BLV9                                                         F5G31960    
       00411 -0 50000 1 15674        CAL PRED,1                                                       F5G31970    
       00412  0 60200 0 00573        SLW BLV8            STODRE OLD PRED WORD                         F5G31980    
       00413  0 32000 0 00574        ANS BLV9            INT  INITIALIZE NEW PRED WORD                F5G31990    
       00414 -0 53400 2 00550        LXD 2LD3,2         SET COUNT TO 3                                F5G32000    
       00415 -0 50000 0 00572 BL8    CAL BLV7            PLACE THE                                    F5G32010    
       00416  0 77100 2 00003        ARS 3,2             PERMUTATION NO.                              F5G32020    
       00417  0 77100 2 00003        ARS 3,2             IN REGISTER 4                                F5G32030    
       00420 -0 32000 0 00550        ANA 2LD3                                                         F5G32040    
       00421 -0 73400 4 00000        PDX 0,4                                                          F5G32050    
       00422 -0 50000 0 00573        CAL BLV8            PERMUTE                                      F5G32060    
       00423  0 76700 2 00003        ALS 3,2             THE LXD                                      F5G32070    
       00424 -0 32000 0 00557        ANA BITMK           AND SXD                                      F5G32080    
       00425  0 77100 4 00003        ARS 3,4             BITS IN THE                                  F5G32090    
       00426 -0 60200 0 00574        ORS BLV9            PRED ENTRY                                   F5G32100    
       00427  2 00001 2 00415        TIX BL8,2,1         COUNT TO 3                                   F5G32110    
       00430  0 50000 0 00574        CLA BLV9                                                         F5G32120    
       00431  0 60100 1 15674        STO PRED,1          STORE PRED ENTRY WITH PERMUTED BITS          F5G32130    
       00432  0 50000 0 00575        CLA BLV01           ARRANGE TO CONSIDER                          F5G32140    
       00433  0 40000 0 00315        ADD ONEA            NEXT PRED ENTRY                              F5G32150    
       00434  0 02000 0 00402        TRA BL9                                                          F5G32160    
       00435  0 76400 0 00203 BL4    BST BLT             TAPE CHECK     BACKSPACE TAPE                F5G32170    
       00436  2 00001 2 00326        TIX BL5,2,1         TRY 5 TIMES                                  F5G32160    
       00437  0 07400 4 00004        TSX 4,4 THEN START DIAGNOSTIC.                                   F5G32190    
       00440 -0 53400 1 00600 BL01   LXD BLV05,1                                                      F5G32200    
       00441 -2 00001 1 00504 BL03   TNX BL04,1,1        IS THERE ANOTHER TAG IN BB                   F5G32210    
       00442 -0 53400 2 00577        LXD BLV04,2         YES                                          F5G32220    
       00443  2 00001 2 00466        TIX BL02,2,1        HAVE WE EXHAUSTED STAG WORD                  F5G32230    
       00444 -0 63400 1 00600        SXD BLV05,1         YES, STORE COUNT OF NO. OF TAGS              F5G32240    
       00445 -0 53400 2 00603        LXD BLV08,2         STORE                                        F5G32250    
       00446  0 50000 0 00602        CLA BLV07           OLD PERMUTED                                 F5G32260    
       00447  0 60100 2 05263        STO STAG,2          STAG WORD                                    F5G32270    
       00450  0 50000 0 00314        CLA ZERO                                                         F5G32280    
       00451  0 60100 0 00602        STO BLV07                                                        F5G32290    
       00452  0 50000 0 00576        CLA BLV03           GET                                          F5G32300    
       00453  0 07400 4 00032        TSX SE4,4           NEXT                                         F5G32310    
       00454 -0 63400 1 00603        SXD BLV08,1         STAG                                         F5G32320    
       00455 -0 50000 1 05263        CAL STAG,1          WORD                                         F5G32330    
       00456  0 60200 0 00601        SLW BLV06           STORE STAG WORD                              F5G32340    
       00457 -0 32000 0 00560        ANA LMSK            AND                                          F5G32350    
       00460  0 60200 0 00602        SLW BLV07           INITIALIZE NEW STAG WORD                     F5G32360    
       00461  0 50000 0 00576        CLA BLV03           INCREASE THE                                 F5G32370    
       00462  0 40000 0 00315        ADD ONEA            STAG WORD NO.                                F5G32380    
       00463  0 60100 0 00576        STO BLV03                                                        F5G32390    
       00464 -0 53400 2 00551        LXD 2LD9,2         RESET COUNT TO 9                              F5G32400    
       00465 -0 53400 1 00600        LXD BLV05,1         RESTORE 1                                    F5G32410    
       00466 -0 63400 2 00577 BL02   SXD BLV04,2         STORE COUNTER                                F5G32420    
       00467 -0 50000 0 00601        CAL BLV06                                                        F5G32430    
       00470  0 76700 0 00002        ALS 2                                                            F5G32440    
       00471  0 60200 0 00601        SLW BLV06                                                        F5G32450    
       00472 -0 32000 0 00550        ANA 2LD3           EXTRACT TAG                                   F5G32460    
       00473 -0 73400 4 00000        PDX 0,4                                                          F5G32470    
       00474 -0 50000 0 00572        CAL BLV7            PERMUTE                                      F5G32480    
       00475  0 77100 4 00003        ARS 3,4                                                          F5G32490    
       00476  0 77100 4 00003        ARS 3,4             THE                                          F5G32500    
       00477 -0 32000 0 00550        ANA 2LD3           TAG                                           F5G32510    
       00500  0 77100 2 00012        ARS 10,2                                                         F5G32520    
       00501  0 77100 2 00012        ARS 10,2                                                         F5G32530    
       00502 -0 60200 0 00602        ORS BLV07           FORM NEW TAG WORD                            F5G32540    
       00503  0 02000 0 00441        TRA BL03                                                         F5G32550    
       00504 -0 53400 1 00567 BL04   LXD BLV4,1          GET INDEX OF BB                              F5G32560    
       00505  0 50000 1 12533        CLA BBB,1           IS                                           F5G32570    
       00506  0 77100 0 00041        ARS 33              THIS                                         F5G32560    
       00507  0 40000 0 00315        ADD ONEA            A GO N                                       F5G32590    
       00510 -0 10000 0 00516        TNZ BL07            NO                                           F5G32600    
       00511  0 50000 0 00317        CLA BLV09           YES, STORE BB NO.                            F5G32610    
       00512  0 76700 0 00022        ALS 18              OF LAST                                      F5G32620    
       00513  0 62200 1 12534        STD BBB+1,1         GO N ENCOUNTERED                             F5G32630    
       00514  0 50000 0 00564        CLA BLV1            STORE PRESENT                                F5G32640    
       00515  0 60100 0 00317        STO BLV09           BB NO.                                       F5G32650    
       00516 -0 53400 2 00550  BL07  LXD 2LD3,2         SET COUNT TO 3                                F5G32660    
       00517 -0 50000 0 00572 BL09   CAL BLV7                                                         F5G32670    
       00520  0 77100 2 00003        ARS 3,2                                                          F5G32680    
       00521  0 77100 2 00003        ARS 3,2             GET PERMUTATION NO.                          F5G32690    
       00522 -0 32000 0 00550        ANA 2LD3                                                         F5G32700    
       00523 -0 73400 4 00000        PDX 0,4                                                          F5G32710    
       00524  0 50000 1 12535        CLA BBB+2,1         PERMUTE                                      F5G32720    
       00525  0 60100 4 00564        STO EXCO,4          ENTRANCE-EXIT REQUIREMENTS                   F5G32730    
       00526  1 77777 1 00527 BL08   TXI BL08+1,1,-1                                                  F5G32740    
       00527  2 00001 2 00517        TIX BL09,2,1        COUNT TO 3                                   F5G32750    
       00530 -0 53400 2 00550        LXD 2LD3,2         PLACE PERMUTED                                F5G32760    
       00531  0 50000 2 00564 BL10   CLA EXCO,2          ENTRANCE-EXIT COND.                          F5G32770    
       00532  0 60100 1 12532        STO BBB-1,1         BACK IN BB                                   F5G32780    
       00533  1 77777 1 00534 BL11   TXI BL11+1,1,-1                                                  F5G32790    
       00534  2 00001 2 00531        TIX BL10,2,1        COUNT TO 3                                   F5G32800    
       00535  0 50000 0 00564 BL05   CLA BLV1            PREPARE TO DEAL WITH                         F5G32810    
       00536  0 40000 0 00315        ADD ONEA            WITH NEXT BB                                 F5G32820    
       00537  0 60100 0 00564        STO BLV1                                                         F5G32830    
       00540  0 02000 0 00346        TRA BL3                                                          F5G32840    
       00541  0 07400 4 00067 BL06   TSX SE1,4  PUT EDN MARK INTO THF DUMMEY BB                       F5G32850    
       00542  0 50000 0 00556        CLA EN2MK                                                        F5G32860    
       00543  0 60100 1 12540        STO BBB+5,1                                                      F5G32870    
       00544  0 50000 0 00602        CLA BLV07           STORE                                        F5G32880    
       00545 -0 53400 2 00603        LXD BLV08,2         OLD                                          F5G32890    
       00546  0 60100 2 05263        STO STAG,2          STAG WORD                                    F5G32900    
       00547  0 02000 0 00030        TRA R               READ NEXT PART                               F5G32910    
       00550  0 00003 0 00000  2LD3      0,0,3                                                        F5G32920    
       00551  0 00011 0 00000  2LD9      0,0,9                                                        F5G32930    
       00552  0 00000 0 00002 TWO        2                                                            F5G32940    
       00553  0 00000 0 77777  2AMSK     -1             ADDRESS MASK                                  F5G32950    
       00554  0 00000 7 77777 RMSK       -1,-1           RIGHT HALF MASK                              F5G32960    
       00555 -377770077777    SALM   OCT -377770077777   MS    MASK OUT SXD AND LXD PRED REULTS       F5G32970    
       00556  3 77777 7 77777  EN2MK PTH -1,-1,-1        PUT IN LOCATION OF DUMMEY BB                 F5G32980    
       00557  0 00004 4 00000 BITMK      0,4,4           MASK TO EXTRACT ONE SXD AND LXD BIT          F5G32990    
       00560 -377777000000    LMSK   OCT -377777000000                                                F5G33000    
                        00564 EXCO   BES 3               THE ENTRANCE-EXIT CONDITIONS  PERMUTED       F5G33010    
       00564  0 00000 0 00000 BLV1                       BBNO.                                        F5G33020    
       00565  0 00000 0 00000 BLV2                       INDEX IN BB LIST                             F5G33030    
       00566  0 00000 0 00000 BLV3                       TEST CONSTANT                                F5G33040    
       00567  0 00000 0 00000 BLV4                       INDEX OF BB                                  F5G33050    
       00570  0 00000 0 00000 BLV5                       1ST PRED NO. IN NEXT BB                      F5G33060    
       00571  0 00000 0 00000 BLV6                       UST TAG IN NEXT BB                           F5G33070    
       00572  0 00000 0 00000 BLV7                       PERMUTTTION NOS.                             F5G33080    
       00573  0 00000 0 00000 BLV8                       OLD PRED ENTRY                               F5G33090    
       00574  0 00000 0 00000 BLV9                       NEW, PERMUTED, PRED ENTRY                    F5G33100    
       00575  0 00000 0 00000 BLV01                      CURRENT PRED. NO.                            F5G33110    
       00576  0 00000 0 00000 BLV03                      NO. OF STAG WORD, INITIALLY ZERO             F5G33120    
       00577  0 00000 0 00000 BLV04                      COUNTER TO 9, INITIALLY ZERO                 F5G33130    
       00600  0 00000 0 00000 BLV05                      C0UNT OF NO. OF TAGS IN BB                   F5G33140    
       00601  0 00000 0 00000 BLV06                      STAG WORD                                    F5G33150    
       00602  0 00000 0 00000 BLV07                      NEW, PERMUTED , STAG WORD                    F5G33160    
       00603  0 00000 0 00000 BLV08                      INDEX OF OLD STAG WORD                       F5G33170    
                        00604        BSS PTL2      SPACE FOR PATCHES                                  F5G33180    
       00655  0 00000 0 00000 BLIST                                                                   F5G33190    
                                                 EDITOR RECORD NO. 86                                 F5G33200    
                                         FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G33210    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G33230    
                                                   PART 3                                             F5G33240    
                                         CHANGE LXD AND SXD RESULTS TO BE C0MPATIBLE WITH GO TO       F5G33250    
                                         N RESTRICTION.  MODIFY ASSIGN CONSTANT TABLE.                F5G33260    
                                           C CONTAINS THE BB NO. OF THE GO TO N                       F5G33270    
                        00320        ORG C+1                                                          F5G33280    
       00320  0 76200 0 00222 START  RTB ACTPE           LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290    
       00321  0 70000 0 00573        CPY ACV12                                                        F5G33300    
       00322  0 02000 0 00320        TRA START                                                        F5G33310    
       00323  0 02000 0 00330        TRA RDIN                                                         F5G33320    
       00324  0 02000 0 00320        TRA START                                                        F5G33330    
       00325  0 76400 0 00202 ERR    BST ACTPE           BACKSPACE TAPE TO TRY AGAIN                  F5G33340    
       00326  2 00001 2 00331        TIX AAC2,2,1        COUNT TO 5                                   F5G33350    
       00327  0 07400 4 00004        TSX 4,4     TO DIAGNOSTIC                                        F5G33360    
       00330 -0 53400 2 00555  RDIN  LXD 3LD3,2                                                       F5G33370    
       00331  0 76200 0 00222 AAC2   RTB ACTPE                                                        F5G33360    
       00332  0 70000 0 00573        CPY ACV12           COPY THE EXTRA WORD                          F5G33390    
       00333  0 53400 1 00314        LXA ZERO,1                                                       F5G33400    
       00334  0 70000 1 00647 AAC1   CPY ASCON,1                                                      F5G33410    
       00335  1 77777 1 00334        TXI AAC1,1,-1                                                    F5G33420    
       00336  0 07400 4 00004        TSX 4,4                                                          F5G33430    
       00337  0 76600 0 00333        IOD                 CHECK      REDUNDANCY BITS                   F5G33440    
       00340 -0 76000 0 00012        RTT                                                              F5G33450    
       00341  0 02000 0 00325        TRA ERR             THERR IS AN ERROR                            F5G33460    
       00342  0 76200 0 00222        RTB ACTPE                                                        F5G33470    
       00343  0 76200 0 00222        RTB ACTPE                                                        F5G33480    
       00344  0 76200 0 00222        RTB ACTPE                                                        F5G33490    
       00345  0 76600 0 00333        IOD                                                              F5G33500    
       00346 -0 63400 1 00527        SXD ACV1,1          O.K. STORE RECORD  OF NO. OF ENTRIES         F5G33510    
       00347 -0 63400 1 00541        SXD AC22,1                                                       F5G33520    
       00350  0 50000 0 00317        CLA C                                                            F5G33530    
       00351  0 56000 0 00560 AC15   LDQ ACK1            GET BB NO. OF 1ST GO TO N                    F5G33540    
       00352  0 04000 0 00520        TLQ AC16            WAS THIS THE LAST GO TO N                    F5G33550    
       00353  0 40000 0 00315        ADD ONEA            NO                                           F5G33560    
       00354  0 07400 4 00067        TSX SE1,4                                                        F5G33570    
       00355 -0 50000 1 12533        CAL BBB,1           FIND NO. OF 1ST SUCC IN NEXT BB              F5G33580    
       00356  0 77100 0 00022        ARS 18                                                           F5G33590    
       00357  0 62100 0 00562        STA ACV3                                                         F5G33600    
       00360  0 50000 0 00317        CLA C                                                            F5G33610    
       00361  0 07400 4 00067        TSX SE1,4                                                        F5G33620    
       00362  0 50000 0 00314        CLA ZERO            CLEAR THE COMBINED SXDD CASE                 F5G33630    
       00363  0 60100 0 00563        STO ACV4                                                         F5G33640    
       00364 -0 50000 1 12533        CAL BBB,1           FIND THE NO. OF 1ST SUCC IN THIS BB          F5G33650    
       00365  0 77100 0 00022        ARS 18                                                           F5G33660    
       00366 -0 32000 0 00552        ANA AMSK                                                         F5G33670    
       00367  0 60100 0 00561 AC13   STO ACV2                                                         F5G33680    
       00370  0 34000 0 00562        CAS ACV3            IS THIS SUCC IN SAME BB                      F5G33690    
       00371  0 02000 0 00373        TRA AAC3            YES                                          F5G33700    
       00372  0 02000 0 00506        TRA AC14            NO                                           F5G33710    
       00373  0 76700 0 00022 AAC3   ALS 18                                                           F5G33720    
       00374  0 07400 4 00044        TSX SE6,4           YES GET BB NO. OF SUCESSOR                   F5G33730    
       00375 -0 50000 1 16734        CAL SUCC,1                                                       F5G33740    
       00376  0 62100 0 00567        STA ACV8                                                         F5G33750    
       00377  0 40000 0 00315        ADD ONEA            FIN NO. OF 1ST PRED ENTRY NEXT BBB           F5G33760    
       00400  0 07400 4 00067        TSX SE1,4                                                        F5G33770    
       00401  0 50000 1 12533        CLA BBB,1                                                        F5G33780    
       00402  0 62100 0 00565        STA ACV6                                                         F5G33790    
       00403  0 50000 0 00314        CLA ZERO                                                         F5G33800    
       00404  0 60100 0 00571        STO ACV10           PRESET COMBINED LXO CASE TO 0                F5G33810    
       00405  0 50000 0 00567        CLA ACV8            FIND NO. OF 1ST PRED  IN THIS BB             F5G33620    
       00406  0 07400 4 00067        TSX SE1,4                                                        F5G33830    
       00407 -0 50000 1 12533        CAL BBB,1                                                        F5G33840    
       00410 -0 32000 0 00552        ANA AMSK                                                         F5G33850    
       00411  0 62100 0 00570        STA ACV9            RECORD 1ST PRED FOR FUTURE USE               F5G33860    
       00412  0 62100 0 00566 AC7    STA ACV7                                                         F5G33870    
       00413  0 34000 0 00565        CAS ACV6            IS THIS PRED IN SAME BB                      F5G33880    
       00414  0 02000 0 00416        TRA AC4                                                          F5G33890    
       00415  0 02000 0 00444        TRA AC8             NO                                           F5G33900    
       00416  0 07400 4 00055 AC4    TSX SE5,4           IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910    
       00417 -0 50000 1 15674        CAL PRED,1          ED GO TO NP                                  F5G33920    
       00420 -0 32000 0 00552        ANA AMSK                                                         F5G33930    
       00421  0 40200 0 00317        SUB C                                                            F5G33940    
       00422 -0 10000 0 00427        TNZ AC5             IF NOT SKIP THE ORING 0F SXD CASE            F5G33950    
       00423 -0 50000 1 15674        CAL PRED,1          OR THE SXD CASE INTO COMBINED SXD CASE       F5G33960    
       00424 -0 60200 0 00563        ORS ACV4                                                         F5G33970    
       00425 -0 50000 0 00554        CAL NTMSK                                                        F5G33980    
       00426  0 32000 1 15674        ANS PRED,1                                                       F5G33990    
       00427 -0 50000 1 15674 AC5    CAL PRED,1          IS THE BB WHICH IS PREDECESSOR               F5G34000    
       00430 -0 63400 1 00572        SXD ACV11,1         A GO TO N                                    F5G34010    
       00431  0 07400 4 00067        TSX SE1,4                                                        F5G34020    
       00432  0 50000 1 12533        CLA BBB,1                                                        F5G34030    
       00433  0 77100 0 00041        ARS 33                                                           F5G34040    
       00434  0 40000 0 00315        ADD ONEA                                                         F5G34050    
       00435 -0 10000 0 00441        TNZ AC6                                                          F5G34060    
       00436 -0 53400 2 00572        LXD ACV11,2         YES, OR THE LXD XCASE INTO THE               F5G34070    
       00437 -0 50000 2 15674        CAL PRED,2          COMBINED LXD CASE                            F5G34080    
       00440 -0 60200 0 00571        ORS ACV10                                                        F5G34090    
       00441  0 50000 0 00566 AC6    CLA ACV7                                                         F5G34100    
       00442  0 40000 0 00315        ADD ONEA                                                         F5G34110    
       00443  0 02000 0 00412        TRA AC7                                                          F5G34120    
       00444 -0 50000 0 00571 AC8    CAL ACV10           IS THE COMBINED LXD CASE ZERO                F5G34130    
       00445 -0 32000 0 00553        ANA TMSK                                                         F5G34140    
       00446  0 10000 0 00503        TZE AC12                                                         F5G34150    
       00447  0 50000 0 00567        CLA ACV8            NO, HAS THIS BB ALREADY BEEN                 F5G34160    
       00450  0 07400 4 00067        TSX SE1,4           CONSIDERED                                   F5G34170    
       00451  0 56000 1 12533        LDQ BBB,1           AS A SUCCESSOR TO                            F5G34180    
       00452 -0 77300 0 00024        RQL 20              A GO TO N                                    F5G34190    
       00453  0 16200 0 00455        TQP AC18                                                         F5G34200    
       00454  0 02000 0 00503        TRA AC12                                                         F5G34210    
       00455  0 50000 0 00557 AC18   CLA LT1                                                          F5G34220    
       00456 -0 60200 1 12533        ORS BBB,1           RECORD THAT THIS BB HAS BEEN CONSIDERED AS   F5G34230    
       00457  0 50000 0 00570        CLA ACV9            ECT..PE  PREPARE TO SCAN ALL PRED ENTRYS     F5G34240    
       00460  0 62100 0 00566 AC11   STA ACV7                                                         F5G34250    
       00461  0 34000 0 00565        CAS ACV6            IS THIS PRED IN SAME BB                      F5G34260    
       00462  0 02000 0 00464        TRA AC9                                                          F5G34270    
       00463  0 02000 0 00531        TRA AC19            NO                                           F5G34280    
       00464  0 07400 4 00055 AC9    TSX SE5,4           DETERMINE IF THE BB WHICH                    F5G34290    
       00465 -0 63400 1 00572        SXD ACV11,1         IS THE PREDECESSOR OF THIS ONE               F5G34300    
       00466  0 50000 1 15674        CLA PRED,1          IS A GO TO N                                 F5G34310    
       00467  0 07400 4 00067        TSX SE1,4                                                        F5G34320    
       00470  0 50000 1 12533        CLA BBB,1                                                        F5G34330    
       00471  0 77100 0 00041        ARS 33                                                           F5G34340    
       00472  0 40000 0 00315        ADD ONEA                                                         F5G34350    
       00473 -0 10000 0 00500        TNZ AC10                                                         F5G34360    
       00474 -0 53400 2 00572        LXD ACV11,2         IT IS A GO TO N                              F5G34370    
       00475  0 50000 0 00571        CLA ACV10           REPLACE LXD CASE BY THE                      F5G34380    
       00476 -0 32000 0 00553        ANA TMSK            COMBINED LXD CASE                            F5G34390    
       00477 -0 60200 2 15674        ORS PRED,2                                                       F5G34400    
       00500  0 50000 0 00566 AC10   CLA ACV7            ARRANGE TO TREAT NEXT PRED ENTRY             F5G34410    
       00501  0 40000 0 00315        ADD ONEA                                                         F5G34420    
       00502  0 02000 0 00460        TRA AC11                                                         F5G34430    
       00503  0 50000 0 00561 AC12   CLA ACV2                                                         F5G34440    
       00504  0 40000 0 00315        ADD ONEA            ARRANGE TO TREAT NEXT SUCC ENTRY             F5G34450    
       00505  0 02000 0 00367        TRA AC13                                                         F5G34460    
       00506  0 50000 0 00317 AC14   CLA C               STORE COMBINED                               F5G34470    
       00507  0 07400 4 00067        TSX SE1,4           SXDCASE IN PREFIX                            F5G34480    
       00510  0 50000 0 00563        CLA ACV4            OF 2ED WORD OF BBB ENTRY                     F5G34490    
       00511  0 76700 0 00017        ALS 15                                                           F5G34500    
       00512  0 63000 1 12534        STP BBB+1,1                                                      F5G34510    
       00513  0 50000 1 12534        CLA BBB+1,1         GET NEXT GO TO N NUMBER                      F5G34520    
       00514  0 77100 0 00022        ARS 18                                                           F5G34530    
       00515 -0 32000 0 00552        ANA AMSK                                                         F5G34540    
       00516  0 60100 0 00317        STO C                                                            F5G34550    
       00517  0 02000 0 00351        TRA AC15                                                         F5G34560    
       00520  0 76600 0 00222 AC16   WTB ACTPE           WRITE ASSIGN CONSTANTS BACK ON TAPE          F5G34570    
       00521  0 53400 1 00314        LXA ZERO,1                                                       F5G34580    
       00522 -0 53400 2 00527        LXD ACV1,2                                                       F5G34590    
       00523  0 70000 0 00573        CPY ACV12                                                        F5G34600    
       00524 -3 00000 2 00030        TXL R,2,0           IF NO ASSIGN CONST., GO TO NEXT PART         F5G34610    
       00525  0 70000 1 00647 AC17   CPY ASCON,1                                                      F5G34620    
       00526  1 77777 1 00527        TXI ACV1,1,-1                                                    F5G34630    
       00527 -3 00000 1 00030 ACV1   TXL R,1,SET                                                      F5G34640    
       00530  0 02000 0 00525        TRA AC17                                                         F5G34650    
       00531  0 50000 0 00567 AC19   CLA ACV8                                                         F5G34660    
       00532  0 07400 4 00067        TSX SE1,4                                                        F5G34670    
       00533  0 53400 2 00314        LXA ZERO,2                                                       F5G34680    
       00534  0 50000 1 12540 AC25   CLA BBB+5,1                                                      F5G34690    
       00535  0 34000 2 00647 AC23   CAS ASCON,2         IS THIS ASSIGN CONST. EQUAL TO THE           F5G34700    
       00536  0 02000 0 00540        TRA AC20            LOCATION OF 1ST INST IN BB                   F5G34710    
       00537  0 02000 0 00543        TRA AC24            YES                                          F5G34720    
       00540 -3 00000 2 00542 AC20   TXL AC21,2,0                                                     F5G34730    
       00541 -3 00000 2 00503 AC22   TXL AC12,2,SET                                                   F5G34740    
       00542  1 77777 2 00535 AC21   TXI AC23,2,-1                                                    F5G34750    
       00543 -0 50000 0 00571 AC24   CAL ACV10           REPLACE ASSIGN CONST. BY NEW                 F5G34760    
       00544 -0 32000 0 00553        ANA TMSK            LOCATION SYMBOL                              F5G34770    
       00545  0 77100 0 00005        ARS 5                                                            F5G34780    
       00546  0 40000 0 00567        ADD ACV8                                                         F5G34790    
       00547  0 36100 0 00556        ACL LXDC                                                         F5G34800    
       00550  0 60200 2 00647        SLW ASCON,2                                                      F5G34810    
       00551  0 02000 0 00534        TRA AC25                                                         F5G34820    
       00552  0 00000 0 77777 AMSK   HTR -1                                                           F5G34830    
       00553  0 00000 7 00000 TMSK   HTR 0,-1                                                         F5G34840    
       00554 -377770777777    NTMSK  OCT 777770777777                                                 F5G34050    
       00555  0 00005 0 00000  3LD3      0,0,5                                                        F5G34860    
       00556 +150000000000    LXDC   OCT 150000000000      THE NUMBER IDENTIFYING THE LOC. OF AN LXD  F5G34870    
       00557  0 00000 1 00000 LT1    HTR 0,1                                                          F5G34880    
       00560 +000000077776    ACK1   OCT 77776                                                        F5G34890    
       00561  0 00000 0 00000 ACV2                       NO. OF CURRENT SUCC. OF THIS BB  IN ADDR.    F5G34900    
       00562  0 00000 0 00000 ACV3                       NO. OF 1ST SUCC IN NEXT BB   IN ADDR         F5G34910    
       00563  0 00000 0 00000 ACV4                       COMBINED SXD CASE  LAST OCTAL DIGIT IN DECR  F5G34920    
       00564  0 00000 0 00000 ACV5                       NO. OF CURRENT PRED   IN ADDR                F5G34930    
       00565  0 00000 0 00000 ACV6                       NO. OF 1ST PRED IN NEXT BB  IN ADDR          F5G34940    
       00566  0 00000 0 00000 ACV7                       MO. OF CURRENT PRED IN THIS BB   IN ADDR     F5G34950    
       00567  0 00000 0 00000 ACV8                       BB NO. OF SUCCESSOR   IN ADDR                F5G34960    
       00570  0 00000 0 00000 ACV9                       NO. OF 1ST PRED IN THE SUCCESSOR BB   IN ADDRF5G34970    
       00571  0 00000 0 00000 ACV10                      THE COMBINED LXD CASE                        F5G34980    
       00572  0 00000 0 00000 ACV11                      TEMP. STORE FOR PRED TABLE INDEX   AT AC5    F5G34990    
       00573  0 00000 0 00000 ACV12                      EXTRA WORD FROM ASSIGN CONSTANT RECORD       F5G35000    
       00574  0 00000 0 00000 ACV13                      TEMP. STORE FOR LOCATION OF 1ST INST. IN BB  F5G35010    
                        00647 ASCON  BES PTL3       SPACE FOR PATCHES                                 F5G35020    
                                                 EDITOR RECORD NO. 88                                 F5G35030    
                                         FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.           F5G35040    
                                              DIAGNOSTIC CALLER FOLLOWS                               F5G35060    
                                                   PART 4                                             F5G35070    
                                         COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS                   F5G35080    
                                          CONSTANTS                                                   F5G35090    
                        00317        ORG C                                                            F5G35100    
       00317  0 00000 0 00003 L3         3                                                            F5G35110    
       00320  0 00000 0 00004 L4         4                                                            F5G35120    
       00321  0 00000 0 00007 L7         7                                                            F5G35130    
       00322  0 00000 0 00023 L19        19                                                           F5G35140    
                        00316 LD1    SYN ONED                                                         F5G35150    
       00323  0 00002 0 00000 LD2        0,0,2                                                        F5G35160    
       00324  0 00003 0 00000 LD3        0,0,3                                                        F5G35170    
       00325  0 00004 0 00000 LD4        0,0,4                                                        F5G35180    
       00326  0 00007 0 00000 LD7        0,0,7                                                        F5G35190    
       00327  0 00010 0 00000 LD8        0,0,8                                                        F5G35200    
       00330  0 00011 0 00000 LD9        0,0,9                                                        F5G35210    
       00331  0 00014 0 00000 LD12       0,0,12                                                       F5G35220    
       00332  0 00000 7 00000 LT7        0,7                                                          F5G35230    
       00333  0 00000 0 77754 LM20       -20                                                          F5G35240    
       00334  0 00000 0 77774 LM4        -4                                                           F5G35250    
       00335  0 77777 0 00000 DECMK      0,0,-1          DECREMENT MASK                               F5G35260    
       00336  3 77777 7 77777 ENDMK  PTH -1,-1,-1                                                     F5G35270    
       00337  0 00000 0 77777 ADDMK      -1                                                           F5G35280    
       00340 +000000777770    STMSK  OCT 777770                                                       F5G35290    
       00341  0 00007 7 00000 PRMK       0,7,7           MASK FOR PRED RESULTS                        F5G35300    
       00342  0 00000 7 77777 TAGMK      -1,-1           MASK FOR TAU- TAGS                           F5G35310    
       00343 -3 77777 0 00000 LFTMSK MTH 0,0,-1                                                       F5G35320    
                        00343 SMK3   SYN LFTMSK                                                       F5G35330    
       00344  634743000000    LTPL   BCD 1TPL000                                                      F5G35340    
       00345  436747000000    LLXP   BCD 1LXP000                                                      F5G35350    
       00346  627045000000    LSYN   BCD 1SYN000                                                      F5G35360    
       00347  242524000000    LDED   BCD 1DED000                                                      F5G35370    
       00350  635121000000    LTRA   BCD 1TRA000                                                      F5G35380    
       00351  636267000000    LTSX   BCD 1TSX000                                                      F5G35390    
       00352  226262000000     LBSS  BCD 1BSS000           BSS IN BCD.                                F5G35391    
       00353 +076225000000    LPSE   OCT 76225000000                                                  F5G35400    
       00354 +060000000000    GSYM   OCT 60000000000     GARBAGE SYMBLE                               F5G35410    
       00355  0 00004 0 00004 T4SYM  PZE 4,0,4             TAG 4 AND RELATIVE PART 4                  F5G35420    
       00356  0 00000 0 00004            4               4 NUMBERS TO CONVERT S-TAG                   F5G35430    
       00357  0 00000 0 00002            2                                                            F5G35440    
       00360  0 00000 0 00001            1                                                            F5G35450    
       00361  0 00000 0 00000 VSTAG  PZE 0                                                            F5G35460    
       00362  0 00000 0 00001 RECSC  HTR RECNO           ADDR, NO. OF RECS. BROUGHT IN , C.I.T.       F5G35470    
       00363  0 02000 0 00000  LCOUT TRA -               TRANSFER TO EXIT ROUTINE                     F5G35480    
       00364 +035121000000           OCT 35121000000     TRA OP CODE                                  F5G35490    
       00365 +041104000000           OCT 41104000000     PSE-TRA                                      F5G35500    
       00366 -033642000000           OCT -33642000000    DCT-PSE                                      F5G35510    
       00367 -024000000000           OCT -24000000000    RTT-DCT                                      F5G35520    
       00370 +027642000000           OCT 27642000000     MSE-RTT                                      F5G35530    
       00371 -007100000000           OCT -7100000000     TZE-MSE                                      F5G35540    
       00372 -032154000000           OCT -32154000000    HPR-TZE                                      F5G35550    
       00373 +031316000000    LNTOP  OCT 31316000000     TSX-HPR                                      F5G35560    
       00374 +035121000000           OCT 35121000000                                                  F5G35570    
       00375 +001622000000           OCT 1622000000      TXL-TRA                                      F5G35580    
       00376 -031772000000           OCT -31772000000    HPR-TXL                                      F5G35590    
       00377 +031400000000    LTROP  OCT 31400000000     TTR-HPR                                      F5G35600    
       00400 -370000000000    FSTLT  OCT -370000000000                                                F5G35610    
       00401 -230000000000    FSTT   OCT -230000000000                                                F5G35620    
       00402 +170000000000    PCC    OCT 170000000000    MEANS LOCATION OF THIS INST.                 F5G35630    
       00403 -300000000000    PFXMK  OCT -300000000000                                                F5G35640    
       00404 +000770000000    XXPSX  OCT 770000000       CONSTANTS TO TEST PSE ADDR.                  F5G35650    
       00405 +000160000000    XX16X  OCT 160000000                                                    F5G35660    
       00406 +000360000000    XX360  OCT 360000000                                                    F5G35670    
       00407 +000000777777    SHK1   OCT 777777          CONST. TO EXTRACT R. HALF WORD               F5G35680    
                        00320 SHK2   SYN L4                                                           F5G35690    
       00410 +160000000000    SIK2   OCT 160000000000    I.D. FOR LOCATION OF SXD                     F5G35700    
       00411  626724000000    SIK3   BCD 1SXD000         SXD IN BCD                                   F5G35710    
                        00411 LSXD   SYN SIK3                                                         F5G35720    
                        00410 IDSXD  SYN SIK2                                                         F5G35730    
       00412  0 00000 0 00144 SKK1       LCLST                                                        F5G35740    
                        00350 SLK1   SYN LTRA            TRA IN BCD                                   F5G35750    
       00413 +150000000000    SMK1   OCT 150000000000    I.D. FOR LOCATION OF LXD                     F5G35760    
       00414  436724000000    SMK2   BCD 1LXD000         LXD IN BCD                                   F5G35770    
                        00414 LLXD   SYN SMK2                                                         F5G35780    
                                                         FOR SMK3 SEE LFTMSK                          F5G35790    
       00415 +140000000000    SMK4   OCT 140000000000    I.D. FOR TAU-TAG                             F5G35800    
                        00413 SLK2   SYN SMK1                                                         F5G35810    
                        00413 IDLXD  SYN SMK1                                                         F5G35820    
                        00415 IDTAG  SYN SMK4                                                         F5G35830    
       00416 -000000000000    Z1K3   OCT -0                                                           F5G35840    
                        00416 MZE    SYN Z1K3                                                         F5G35850    
       00417  0 77776 0 00000 Z2K1       0,0,-2          THE INDEXES NEEDED T0 REFER                  F5G35860    
       00420  0 77772 0 00000            0,0,-6          TO THE BOTTOM POSITIONS                      F5G35870    
       00421  0 77766 0 00000            0,0,-10         IN LIST1, LIST2, L1ST3, RESPT.               F5G35880    
       00422  0 00007 0 00003 Z2K2   HTR 3,0,7           NO. OF LISTS, NO. OF CASES                   F5G35890    
       00423  0 00000 0 00001 CASE   HTR 1                                                            F5G35900    
       00424  0 00000 0 00002            2                                                            F5G35910    
       00425  0 00000 0 00004            4                                                            F5G35920    
       00426  0 00000 0 00003            3                                                            F5G35930    
       00427  0 00000 0 00005            5                                                            F5G35940    
       00430  0 00000 0 00006            6                                                            F5G35950    
       00431  0 00000 0 00007            7                                                            F5G35960    
       00432 +000032212110    Z2K3   OCT 32212110        CONST. TO DETERMINE NO. 1 S IN 3 BITS        F5G35970    
       00433 +000030000000    Z2K4   DEC 3B14                                                         F5G35980    
       00434  0 00000 0 00007 Z2K5   HTR 7                                                            F5G35990    
       00435  0 00000 0 77777 Z4K1       -1                                                           F5G36000    
       00436  0 00000 0 00000 Z4K2       0               INDEX OF ST SXD CASE                         F5G36010    
       00437  0 00000 0 01000 LNSXD      NSXD*4          NO. OF SXD IN SXD LIST                       F5G36020    
       00440  0 77770 0 00000 Z7K1       0,0,-8          INDEAXES OF ASSOCIATED SXD CASES             F5G36030    
       00441  0 77764 0 00000            0,0,-12                                                      F5G36040    
       00442  0 77760 0 00000            0,0,-16                                                      F5G36050    
                                         THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS       F5G36060    
       00443 -0 00001 0 00000 BBNO   MZE 0,0,1           DECR., CURRENT BB NO. BEING SCANNED          F5G36070    
       00444  0 00000 0 00000 NXTLOC                     LOCATUON OF 1ST INST OF THE BB               F5G36080    
       00445  0 00000 0 00000 OUTBX                      TEMP. STORAGE OF RETURN INDEXES              F5G36090    
       00446  0 00000 0 00000 ERRBX                      ERROR INDICATOR                              F5G36100    
       00447  0 00000 0 00000 BBOX                       TEMP. STORE FOR INDEXES, MAINLY 2            F5G36110    
       00450  0 00000 0 00000 BBOX1                      ANOTHER  OF SAME                             F5G36120    
       00451  0 00000 0 00000 ABOX                       TEMP. STORE , INDEX 1                        F5G36130    
       00452  0 00000 0 00000 TAG                        TAU-TAG FROM AN INST.                        F5G36140    
       00453  0 00000 0 00000 STAGN1                     WORD FROM STAG SHIFTED LEFT MULTIPLE OF 1    F5G36150    
       00454  0 00000 0 00000 STAGN2                     SAME WORD SHIFTED BY ONES                    F5G36160    
       00455  0 00000 0 00000 9CNT                       COUNT TO 9, 9 TAGS IN STAG WORD              F5G36170    
       00456 -000000000001    STGWD  DEC -1              NO. OF STAG ENTRY BEING CONSIDERED           F5G36180    
       00457  0 00000 0 00000 TMP10                      TEMP. STORE , LASTS ONLY 10 INSTRS.          F5G36190    
       00460  0 00000 0 00000 CIND                       + OR - MEANS IR4 ISNT OR 1S NECESSARY        F5G36200    
       00461 -0 00000 0 00000  CPIND MZE              + OR - MEANS COMPILE/DONT COMPILE               F5G36210    
       00462  0 00000 0 00000 ARG1                       U  1ST ARGUMENT FOR SUBROUTINES              F5G36220    
       00463  0 00000 0 00000 MBOX                       16. OF TRANSFERS IN GO TO VECTOR             F5G36230    
       00464  0 00000 0 00000 SUCNO                      I0. OF A SUCCESSOR, GOV ROUTINE              F5G36240    
       00465  0 00000 0 00000 SXD0                       LXD CASE IN DECR., PRED NO. IN ADDR.         F5G36250    
       00466  0 00000 0 00000 SXD1                       3 TAU TAGS WHICH MUST BE STORED              F5G36260    
       00467  0 00000 0 00000 SXD2                       FROM IR1,2,3                                 F5G36270    
       00470  0 00000 0 00000 SXD3                       RESPT.                                       F5G36280    
       00471  0 00000 0 00000 SADV1                      RETURN INDEX                                 F5G36290    
       00472  0 00000 0 00000 SADV2                      LOCATION OF 1ST INST IN SUCCESSOR BB         F5G36300    
       00473  0 00000 0 00000 SADV3                      NO. OF CURRENT PRED                          F5G36310    
       00474  0 00000 0 00000 SADV4                      NO. OF 1ST PRED IN SUCCESSOR BB              F5G36320    
       00475  0 00000 0 00000 SADV5                      THE SUCCESSOR BB NO.                         F5G36330    
       00476  0 00000 0 00000 SHV1                       RETURN INDEX                                 F5G36340    
       00477  0 00000 0 00000 SHV2                       ENTRY FROM PRED.                             F5G36350    
       00500  0 00000 0 00000 SIV1                       INDEX OF SXD CASE RELATIVE TO SXST           F5G36360    
       00501  0 00000 0 00000 SIV2                       RETURN INDEX                                 F5G36370    
       00502  0 00000 0 00000 SIV3                       LOCATI0N OF 1ST INST. IN SXD GROUP           F5G36380    
       00503  0 00000 0 00000 SIV4                       TEMP. STORE                                  F5G36390    
       00504  0 00000 0 00000 SIV5                       STORE FOR INDEX OF TAU TAG IN SXD CASE       F5G36400    
       00505  0 00000 0 00000 SIV6                       STOER FOR THE TAG                            F5G36410    
       00506  0 00000 0 00000 SJV1                       LXD CASE IN DECR.                            F5G36420    
       00507  0 00000 0 00000 SJV2                       RETURN INDEX                                 F5G36430    
       00510  0 00000 0 00000 SJV3                                                                    F5G36440    
                        00655 CLST   BES LCLST           THE NEW LIST OF COMPILED INST.               F5G36450    
       00655  0 00144 0 00000 SKV1       0,0,LCLST       INDEX FOR NEXT ENTRY IN CLST                 F5G36460    
                                          SKV1 COMES ALREADY INITIALIZED                              F5G36470    
       00656  0 00000 0 00000 SLV1                       RETURN INDEX                                 F5G36480    
       00657  0 00000 0 00000 SLV2                       LOCATION TO BE ATTACHED T0 TRA               F5G36490    
       00660  0 00000 0 00000 SLV3                       + OR - MEANS  ISNT OR IS HANGING TRA0        F5G36500    
       00661  0 00000 0 00000 SMV1                       RETURN INDEX                                 F5G36510    
       00662  0 00000 0 00000 SMV2                       TAG TO BE COMPILED                           F5G36520    
       00663  0 00000 0 00000 SMV3                       STORE INDEX OF QUANTITY IN LIST              F5G36530    
       00664  0 00000 0 00000 SMV4                       LOCATION , TEMP. STORE                       F5G36540    
       00665  0 00000 0 00000 Z1V2                       NO. OF 1ST PRED. IN NEXT BB                  F5G36550    
       00666  0 00000 0 00000 Z1V3                       NO. OF PRED BEING CONSIDERED                 F5G36560    
       00667  0 00000 0 00000 Z1V5                       THE CASES                                    F5G36570    
       00670  0 00000 0 00000 Z1V8                       THE LOC. OF 1ST PRED IN BB,  USED IN Z4      F5G36580    
       00671  0 00000 0 00000 Z2V1                       IN DECREMENTS, THE INDEXES                   F5G36590    
       00672  0 00000 0 00000                            THE TOP ENTRIES                              F5G36600    
       00673  0 00000 0 00000                            IN THE 3 LXD LISTS                           F5G36610    
       00674  0 00000 0 00000 Z2V2                       IN ADDR., NO. OF 1S IN DIFFERENCE            F5G36620    
       00675  0 00000 0 00000 Z2V3                       IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630    
                        00676 LIST1  BSS 4                                                            F5G36640    
                        00702 LIST2  BSS 4                                                            F5G36650    
                        00706 LIST3  BSS 4                                                            F5G36660    
                        00715 LLIND  BES 3               + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670    
       00715  0 00000 0 00000 Z4V1                       TEMP. STORE , LXD CASE IN ADDR.              F5G36680    
       00716  0 00000 0 00000 Z5V1                       INDEX IN SYN TABLE                           F5G36690    
       00717  0 00000 0 00000 Z7V1                       INDEX OF LIST                                F5G36700    
       00720  0 00000 0 00000 Z7V2                       + OR - MEANS 1ST OR 2ED TIME THRU            F5G36710    
                        00735 NDINS  BES 12              BLOCK FOR 3 EXTRA COMPILED INST.             F5G36720    
                        01101 INST   BES RECNO*100       THE BLOCK FOR THE COMPILED INSTR             F5G36730    
       01101 -0 00000 0 00000 SXST   MZE                 - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740    
                        01102        BSS 3                                                            F5G36750    
                                          THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER           F5G36760    
                        01105 SXAS0  BSS 4               ASSOCIATED WITH 0 LXD CASE                   F5G36770    
                        01111 SXAS1  BSS 4               WITH 1ST LXD LIST                            F5G36780    
                        01115 SXAS2  BSS 4               2ED LIST                                     F5G36790    
                        01121 SXAS3  BSS 4               3RD                                          F5G36800    
                        01125 SXAS   BSS 4*NSXD          THE LIST 0F SXD INST.                        F5G36810    
       02125 -0 00000 0 00000 SYN    MZE                 SYN CARD TABLE STORED BACKWARD               F5G36820    
                                         WHEN ENTERED WITH PRESENT BB NO. IN ADDR 0F ARG1 AND BBNO.   F5G36830    
                                          OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840    
                                         DRESS OF CORRESPONDING TRANSFER INST.  SH0ULD BE AND RETURNS F5G36850    
                                          WITH THE ADDR IN LOGICAL AC                                 F5G36860    
       02126 -0 63400 4 00471 SAD    SXD SADV1,4         STORE RETURN                                 F5G36870    
       02127 -0 32000 0 00337        ANA ADDMK           STORE THE SUCC. NO.                          F5G36880    
       02130  0 60100 0 00475        STO SADV5                                                        F5G36890    
       02131  0 07400 4 00067        TSX SE1,4                                                        F5G36900    
       02132  0 50000 1 12540        CLA BBB+5,1                                                      F5G36910    
       02133  0 60100 0 00472        STO SADV2                                                        F5G36920    
       02134  0 50000 1 12533        CLA BBB,1                                                        F5G36930    
       02135 -0 32000 0 00337        ANA ADDMK                                                        F5G36940    
       02136  0 60200 0 00474        SLW SADV4                                                        F5G36950    
       02137  0 60200 0 00473 SAD1   SLW SADV3                                                        F5G36960    
       02140  0 07400 4 00055        TSX SE5,4                                                        F5G36970    
       02141  0 50000 1 15674        CLA PRED,1                                                       F5G36980    
       02142 -0 32000 0 00337        ANA ADDMK           IS THIS THE CORRECT                          F5G36990    
       02143  0 40200 0 00462        SUB ARG1            PRED ENTRY                                   F5G37000    
       02144  0 10000 0 02150        TZE SAD2                                                         F5G37010    
       02145 -0 50000 0 00473        CAL SADV3           NO, TRY NEXT RETURN                          F5G37020    
       02146  0 40000 0 00315        ADD ONEA                                                         F5G37030    
       02147  0 02000 0 02137        TRA SAD1                                                         F5G37040    
       02150 -0 50000 1 15674 SAD2   CAL PRED,1          IS THE SXD CASE 0                            F5G37050    
       02151 -0 32000 0 00326        ANA LD7                                                          F5G37060    
       02152  0 10000 0 02160        TZE SAD3            YES                                          F5G37070    
       02153  0 50000 0 00473        CLA SADV3           N0, FORM THE SYMBOLIC ADDR.                  F5G37080    
       02154  0 40200 0 00474        SUB SADV4           AS ID FOR SXD PLUS NO. OF PRED WITHIN        F5G37090    
       02155  0 76700 0 00012        ALS 10              THE BB * 1024    PLUS BB NO.                 F5G37100    
       02156  0 40000 0 00410        ADD IDSXD                                                        F5G37110    
       02157  0 02000 0 02165        TRA SAD6                                                         F5G37120    
       02160  0 50000 1 15674 SAD3   CLA PRED,1          IS THE LXD CASE ZERO                         F5G37130    
       02161 -0 32000 0 00332        ANA LT7                                                          F5G37140    
       02162  0 10000 0 02170        TZE SAD4                                                         F5G37150    
       02163  0 77100 0 00005        ARS 5               NO, FORM TH SYMBOLIC ADOR.                   F5G37160    
       02164  0 40000 0 00413        ADD IDLXD           AS 1024* LXD CASE PLUS BB NO. PLUS           F5G37170    
       02165  0 40000 0 00475 SAD6   ADD SADV5           I. D. FOR AN LXD                             F5G37180    
       02166 -0 53400 4 00471 SAD5   LXD SADV1,4                                                      F5G37190    
       02167  0 02000 4 00001        TRA 1,4                                                          F5G37200    
       02170 -0 50000 0 00472 SAD4   CAL SADV2                                                        F5G37210    
       02171  0 02000 0 02166        TRA SAD5                                                         F5G37220    
                                          THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND   F5G37230    
                                          INDICATES IT SHOULD BE                                      F5G37240    
       02172  0 50000 0 00461 SCMI   CLA CPIND           SHOULD INST. BE COMPILED                     F5G37250    
       02173  0 12000 0 02206        TPL SCMI1                                                        F5G37260    
       02174 -0 63400 4 00457        SXD TMP10,4         YES, COMP1LE THE INST                        F5G37270    
       02175  0 50000 2 01101        CLA INST,2                                                       F5G37280    
       02176  0 07400 4 02367        TSX SK,4                                                         F5G37290    
       02177  0 50000 2 01100        CLA INST-1,2                                                     F5G37300    
       02200  0 07400 4 02367        TSX SK,4                                                         F5G37310    
       02201  0 50000 2 01077        CLA INST-2,2                                                     F5G37320    
       02202  0 07400 4 02367        TSX SK,4                                                         F5G37330    
       02203  0 50000 2 01076        CLA INST-3,2                                                     F5G37340    
       02204  0 07400 4 02367        TSX SK,4                                                         F5G37350    
       02205 -0 53400 4 00457        LXD TMP10,4                                                      F5G37360    
       02206 -0 76000 0 00003 SCMI1  SSM                                                              F5G37370    
       02207  0 60100 0 00461        STO CPIND           RECORD INST SHOULD BE COMPILED               F5G37380    
       02210  0 02000 4 00001        TRA 1,4                                                          F5G37390    
                                         DETERMINE AN SXD CASE SUBROUTINE                             F5G37400    
       02211 -0 63400 4 00476 SH     SXD SHV1,4          STORE RETURN                                 F5G37410    
       02212  0 53400 4 00320        LXA SHK2,4          CLEAR                                        F5G37420    
       02213  0 56000 0 00314        LDQ ZERO            THE                                          F5G37430    
       02214 -0 60000 4 00471 SH1    STQ SXD0+4,4        SXD                                          F5G37440    
       02215  2 00001 4 02214        TIX SH1,4,1         POSITIONS 0-3                                F5G37450    
       02216  0 62100 0 00465        STA SXD0            STORE THE PRED NO.                           F5G37460    
       02217  0 07400 4 00055        TSX SE5,4           GET INDEX OF PRED                            F5G37470    
       02220  0 50000 1 15674        CLA PRED,1          GET AND                                      F5G37480    
       02221  0 60100 0 00477        STO SHV2            STORE PRED ENTRY                             F5G37490    
       02222  0 07400 4 00067        TSX SE1,4           GET INDEX OF BBB TABLE ENTRY                 F5G37500    
       02223 -0 53400 4 00324        LXD LD3,4           NO, SET COUNT TO 3                           F5G37510    
       02224  0 56000 0 00477 SH2    LDQ SHV2            IS                                           F5G37520    
       02225 -0 77300 4 00022        RQL 18,4            SXD REQUIRED                                 F5G37530    
       02226  0 16200 0 02232        TQP SH3             FOR THIS I.R.                                F5G37540    
       02227  0 50000 1 12535        CLA BBB+2,1         YES, GET AND                                 F5G37550    
       02230 -0 32000 0 00342        ANA TAGMK           EXTRACT THE                                  F5G37560    
       02231  0 60100 4 00471        STO SXD1+3,4        EXIT CONDITIONS                              F5G37570    
       02232  1 77777 1 02233 SH3    TXI SH3+1,1,-1      DOWN THE EXIT CONDITIONS                     F5G37580    
       02233  2 00001 4 02224        TIX SH2,4,1         COUNT TO 3                                   F5G37590    
       02234 -0 50000 0 00477 SH4    CAL SHV2            GET                                          F5G37600    
       02235 -0 32000 0 00332        ANA LT7             AND STORE                                    F5G37610    
       02236  0 76700 0 00003        ALS 3               LXD CASE                                     F5G37620    
       02237  0 62200 0 00465        STD SXD0                                                         F5G37630    
       02240 -0 53400 4 00476        LXD SHV1,4                                                       F5G37640    
       02241  0 02000 4 00001        TRA 1,4             RETURN                                       F5G37650    
                                         COMPILE AN SXD CASE SUBROUTINE                               F5G37660    
       02242 -0 63400 4 00501 SI     SXD SIV2,4          STORE RETURN                                 F5G37670    
       02243 -0 63400 1 00500        SXD SIV1,1          STORE INDEX 0F SXD CASE                      F5G37680    
       02244  0 07400 4 02426        TSX SL1,4           RECORD ANY HANGING TRANSFER                  F5G37690    
       02245 -0 50000 0 00443        CAL BBNO                                                         F5G37700    
       02246  0 77100 0 00022        ARS 18                                                           F5G37710    
       02247  0 60100 0 00657        STO SLV2            STORE BB NO.                                 F5G37720    
       02250  0 07400 4 00067        TSX SE1,4           GET INDEX OF BB                              F5G37730    
       02251  0 50000 1 12533        CLA BBB,1                                                        F5G37740    
       02252 -0 32000 0 00337        ANA ADDMK                                                        F5G37750    
       02253  0 60100 0 00503        STO SIV4            STORE LOC. 0F 1ST PRED IN BB                 F5G37760    
       02254 -0 53400 1 00500        LXD SIV1,1          FORM                                         F5G37770    
       02255  0 50000 1 01101        CLA SXST,1          LOC. OF THIS PRED -                          F5G37780    
       02256 -0 32000 0 00337        ANA ADDMK           LOC. OF 1ST  PRED IN BB                      F5G37790    
       02257  0 40200 0 00503        SUB SIV4                                                         F5G37800    
       02260  0 76700 0 00012        ALS 10                                                           F5G37810    
       02261  0 40000 0 00657        ADD SLV2                                                         F5G37820    
       02262  0 40000 0 00410        ADD SIK2                                                         F5G37830    
       02263  0 60100 0 00657        STO SLV2            STORE THE LOC. OF 1ST SXD                    F5G37840    
       02264 -0 53400 2 00324        LXD LD3,2                                                        F5G37650    
       02265  0 50000 1 01102 SI2    CLA SXST+1,1                                                     F5G37860    
       02266  0 10000 0 02305        TZE SI1             IS THIS TAG 0                                F5G37870    
       02267 -0 63400 1 00504        SXD SIV5,1          NO, PRESERVE INDEX 1                         F5G37880    
       02270  0 60100 0 00505        STO SIV6            PRESERVE THE TAG                             F5G37890    
       02271  0 50000 0 00657        CLA SLV2            PUT LOCATION WORD ON TAPE                    F5G37900    
       02272  0 07400 4 02367        TSX SK,4                                                         F5G37910    
       02273  0 50000 0 00314        CLA ZERO            AND RESET TO 0                               F5G37920    
       02274  0 60100 0 00657        STO SLV2                                                         F5G37930    
       02275  0 50000 0 00411        CLA SIK3            PUT SXD ON TAPE                              F5G37940    
       02276  0 07400 4 02367        TSX SK,4                                                         F5G37950    
       02277  0 50000 0 00505        CLA SIV6            14*2**-5+TAU-TAG IS                          F5G37960    
       02300  0 40000 0 00415        ADD SMK4            SYMBOLIC ADDRESS                             F5G37970    
       02301  0 07400 4 02367        TSX SK,4                                                         F5G37980    
       02302  0 50000 2 00361        CLA VSTAG,2                                                      F5G37990    
       02303  0 07400 4 02367        TSX SK,4            PUT S-TAG ON TAPE                            F5G38000    
       02304 -0 53400 1 00504        LXD SIV5,1                                                       F5G38010    
       02305  1 77777 1 02306 SI1    TXI SI1+1,1,-1                                                   F5G38020    
       02306  2 00001 2 02265        TIX SI2,2,1         COUNT TO 3, FORM N+1                         F5G38030    
       02307 -0 53400 1 00500        LXD SIV1,1                                                       F5G38040    
       02310  0 50000 1 01101        CLA SXST,1                                                       F5G38050    
       02311 -0 73400 2 00000        PDX 0,2                                                          F5G38060    
       02312 -3 00000 2 02321        TXL SI3,2,0         IS THE LXD CASE 0                            F5G38070    
       02313 -3 00000 1 02325        TXL SI4,1,0         NO, IS THIS THE ST POSITION                  F5G38080    
       02314  3 77757 1 02334        TXH SI6,1,-16-1     IS THIS ASSOCIATED WITH A LIST               F5G38090    
       02315  0 77100 0 00022 SI5    ARS 18              NO                                           F5G38100    
       02316  0 07400 4 02403        TSX SL,4            COMPILE A TRA TO LXD CASE                    F5G38110    
       02317 -0 53400 4 00501        LXD SIV2,4                                                       F5G38120    
       02320  0 02000 4 00003        TRA 3,4             RETURN TO LOC. OF TSX + 3                    F5G38130    
       02321  0 50200 0 00315 SI3    CLS ONEA            RECORD THAT THERE IS                         F5G38140    
       02322  0 60100 0 00660        STO SLV3            A HANGING TRA TO 0 CASE                      F5G38150    
       02323 -0 53400 4 00501        LXD SIV2,4                                                       F5G38160    
       02324  0 02000 4 00001        TRA 1,4             RETURN TO LOC. OF TSX +1                     F5G38170    
       02325  0 60100 0 00465 SI4    STO SXD0            STORE LXD CASE AS ARG FOR SJ                 F5G38180    
       02326  0 07400 4 02336        TSX SJ,4            IS SXD CASE INST POS. ASSOC. WITH LIST       F5G38190    
       02327  0 00000 0 00000                            SHOULDENT BE WITH CASE 0                     F5G38200    
       02330  0 02000 0 02334        TRA SI6             YES                                          F5G38210    
       02331 -0 53400 1 00500        LXD SIV1,1          NO                                           F5G38220    
       02332  0 50000 1 01101        CLA SXST,1                                                       F5G38230    
       02333  0 02000 0 02315        TRA SI5             GO TO COMPILE TRA TO LXD CASE                F5G38240    
       02334 -0 53400 4 00501 SI6    LXD SIV2,4          RETURN TO 2 FOLLOWING TSX WITH               F5G38250    
       02335  0 02000 4 00002        TRA 2,4             INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260    
                                          DETERMINE IF THE SXD CASE IS ASSOCIATED WITH AN LXD LIST    F5G38270    
       02336 -0 63400 4 00507 SJ     SXD SJV2,4                                                       F5G38280    
       02337  0 50000 0 00465        CLA SXD0                                                         F5G38290    
       02340 -0 32000 0 00335        ANA DECMK                                                        F5G38300    
       02341  0 60100 0 00506        STO SJV1                                                         F5G38310    
       02342  0 10000 0 02363        TZE SJ3             IS THIS THE 0 LXD CASE                       F5G38320    
       02343 -0 53400 4 00314        LXD ZERO,4          NO, SET COUNT TO 3, N TO 1                   F5G38330    
       02344 -0 53400 2 00324        LXD LD3,2           2 HAS THE COUNTER                            F5G38340    
       02345  0 50000 4 01111 SJ2    CLA SXAS1,4                                                      F5G38350    
       02346  0 12000 0 02357        TPL SJ1             DOES THE LIST ALREADY HAVE SXD               F5G38360    
       02347  0 50000 2 00674        CLA Z2V1+3,2        NO                                           F5G38370    
       02350 -0 73400 1 00000        PDX 0,1             GET INDEX OF TOP QUANTITY                    F5G38380    
       02351  0 50000 1 00676        CLA LIST1,1                                                      F5G38390    
       02352  0 76700 0 00022        ALS 18                                                           F5G38400    
       02353  0 40200 0 00506        SUB SJV1            IS THIS CASE SAME AS CASE HEADUNG LIST N     F5G38410    
       02354 -0 10000 0 02357        TNZ SJ1                                                          F5G38420    
       02355 -0 53400 4 00507        LXD SJV2,4          YES                                          F5G38430    
       02356  0 02000 4 00002        TRA 2,4             RETURN, INDEX OF TOP OF LIST IN 1            F5G38440    
       02357  1 77777 4 02360 SJ1    TXI SJ1+1,4,-1                                                   F5G38450    
       02360  2 00001 2 02345        TIX SJ2,2,1         COUNT TO 3                                   F5G38460    
       02361 -0 53400 4 00507        LXD SJV2,4                                                       F5G38470    
       02362  0 02000 4 00003        TRA 3,4                                                          F5G38480    
       02363 -0 53400 4 00507 SJ3    LXD SJV2,4                                                       F5G38490    
       02364  0 50000 0 01105        CLA SXAS0                                                        F5G38500    
       02365  0 12000 4 00003        TPL 3,4                                                          F5G38510    
       02366  0 02000 4 00001        TRA 1,4                                                          F5G38520    
                                         PUT WORD OF COMPILED INST ON TAPE                            F5G38530    
       02367 -0 53400 1 00655 SK     LXD SKV1,1                                                       F5G38540    
       02370  0 60100 1 00655        STO CLST,1          STORE THE WORD IN CLST                       F5G38550    
       02371  2 00001 1 02401        TIX SK1,1,1         COUNT NO OF WORDS  IS CLST FULL              F5G38560    
       02372  0 53400 1 00412        LXA SKK1,1          YES                                          F5G38570    
       02373 -0 63400 1 00655        SXD SKV1,1          RESET THE INDEX                              F5G38580    
       02374  0 76600 0 00223        WTB OTAPE           WRITE THE BLOCK ON                           F5G38590    
       02375  0 70000 1 00655 SK2    CPY CLST,1          THE OUTPUT TAPE                              F5G38600    
       02376  2 00001 1 02375        TIX SK2,1,1                                                      F5G38610    
       02377  0 76600 0 00333        IOD                                                              F5G38620    
       02400  0 02000 4 00001        TRA 1,4                                                          F5G38630    
       02401 -0 63400 1 00655 SK1    SXD SKV1,1          STORE INDEX OF NEXT WORD                     F5G38640    
       02402  0 02000 4 00001        TRA 1,4                                                          F5G38650    
                                          SUBROUTINE FOR COMPILING TRA TO LXD CASE                    F5G38660    
       02403 -0 32000 0 00434 SL     ANA Z2K5            FORM                                         F5G38670    
       02404  0 76700 0 00012        ALS 10              THE                                          F5G38680    
       02405  0 40000 0 00413        ADD SLK2            ADDRESS                                      F5G38690    
       02406  0 60100 0 00657        STO SLV2            OF                                           F5G38700    
       02407  0 50000 0 00443        CLA BBNO            THE                                          F5G38710    
       02410 -0 32000 0 00335        ANA DECMK                                                        F5G38720    
       02411  0 77100 0 00022        ARS 18              TRA IN                                       F5G38730    
       02412 -0 60200 0 00657        ORS SLV2            SLV2                                         F5G38740    
       02413 -0 63400 4 00656        SXD SLV1,4          STORE RETURJ                                 F5G38750    
       02414  0 50000 0 00314 SL2    CLA ZERO            PUT 0 LOCATION                               F5G38760    
       02415  0 07400 4 02367        TSX SK,4            ON TAPE                                      F5G38770    
       02416  0 50000 0 00350        CLA LTRA                                                         F5G38780    
       02417  0 07400 4 02367        TSX SK,4            PUT SYMB. ADDR. ON TAPE                      F5G38790    
       02420  0 50000 0 00657        CLA SLV2                                                         F5G38800    
       02421  0 07400 4 02367        TSX SK,4            PUT SYMB. ADDR ON TAPE                       F5G38810    
       02422  0 50000 0 00314        CLA ZERO                                                         F5G38820    
       02423  0 07400 4 02367        TSX SK,4            ANOTHER 0                                    F5G38830    
       02424 -0 53400 4 00656        LXD SLV1,4                                                       F5G38840    
       02425  0 02000 4 00001        TRA 1,4                                                          F5G38850    
                                          SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE                F5G38860    
       02426  0 50000 0 00660 SL1    CLA SLV3                                                         F5G38870    
       02427  0 12000 4 00001        TPL 1,4             RETURN IF THERE IS NO HANGING TRA0           F5G38880    
       02430 -0 63400 4 00656        SXD SLV1,4          OTHERWISE , STORE RETURN AND                 F5G38890    
       02431  0 50000 0 00443        CLA BBNO            GET                                          F5G38900    
       02432  0 07400 4 00070        TSX SE,4            THE                                          F5G38910    
       02433  0 50000 1 12540        CLA BBB+5,1         SYMBOLIC LOCATION                            F5G38920    
       02434  0 60100 0 00657        STO SLV2            OF 1ST INST IN BB AND                        F5G38930    
       02435  0 50000 0 00314        CLA ZERO            STORE IN SYNBOLIS ADDR WORD                  F5G38940    
       02436  0 60100 0 00660        STO SLV3            SET INDICATOR TO SAY NO HANGING TRA          F5G38950    
       02437  0 02000 0 02414        TRA SL2                                                          F5G38960    
                                         COMPILE AN LXD LIST                                          F5G38970    
       02440  0 50000 2 00715 SM     CLA LLIND,2         IMMEDIATELY RETURN IF LIST IS                F5G38980    
       02441  0 12000 4 00001        TPL 1,4             ALREADY COMPOLED                             F5G38990    
       02442  0 60200 2 00715        SLW LLIND,2         RECORD LIST ALREADY COMPILED                 F5G39000    
       02443 -0 63400 4 00661        SXD SMV1,4          STORE RETURN                                 F5G39010    
       02444  0 50000 2 00422        CLA Z2K1+3,2        COMPUTE THE                                  F5G39020    
       02445  0 40200 0 00316        SUB ONED            INDEX OF SUB BOTTEM                          F5G39030    
       02446  0 62200 0 02453        STD SM1             POSITION OF LIDT                             F5G39040    
       02447  0 62200 0 02513        STD SM5             SET END TEST                                 F5G39050    
       02450  0 50000 1 00676 SM6    CLA LIST1,1                                                      F5G39060    
       02451 -0 12000 0 02521        TMI SM8             DOES THIS ELEMENT OF LIST REPRESENT AN LXD   F5G39070    
       02452 -3 00000 1 02454        TXL SM1+1,1,0                                                    F5G39080    
       02453 -3 00000 1 02455 SM1    TXL SM10,1,SET      YES, IS ELEMENT IN SUB BOTTOM POS.           F5G39090    
       02454 -0 40000 1 00677        SBM LIST1+1,1       NO                                           F5G39100    
       02455  0 60100 0 00662 SM10   STO SMV2            STORE THE TAG AWAY                           F5G39110    
       02456  0 50000 0 00443        CLA BBNO            FORN                                         F5G39120    
       02457 -0 32000 0 00335        ANA DECMK           THE                                          F5G39130    
       02460  0 76500 0 00034        LRS 28              LOCATION                                     F5G39140    
       02461  0 50000 1 00676        CLA LIST1,1                                                      F5G39150    
       02462  0 76300 0 00012        LLS 10                                                           F5G39160    
       02463  0 40000 0 00413        ADD SMK1                                                         F5G39170    
       02464 -0 63400 1 00663        SXD SMV3,1          STORE INDEX OF LIST QUANTITY                 F5G39180    
       02465  0 60100 0 00664        STO SMV4                                                         F5G39190    
       02466  0 07400 4 02426        TSX SL1,4           RECORD ANY HANGING TRA0                      F5G39200    
       02467  0 50000 0 00664        CLA SMV4                                                         F5G39210    
       02470  0 07400 4 02367        TSX SK,4            COMPILE THE LOCATION                         F5G39220    
       02471  0 50000 0 00414        CLA SMK2                                                         F5G39230    
       02472  0 07400 4 02367        TSX SK,4            C0MPILE LXD                                  F5G39240    
       02473  0 50000 0 00443        CLA BBNO                                                         F5G39250    
       02474  0 07400 4 00070        TSX SE,4            FIND INDEX OF BB                             F5G39260    
       02475  0 50000 0 00662        CLA SMV2                                                         F5G39270    
       02476  0 34000 0 00320 SM3    CAS L4              IS THIS THE CORRECT ENT. REQUIREMENT         F5G39280    
       02477  0 02000 0 02501        TRA SM2                                                          F5G39290    
       02500  0 02000 0 02503        TRA SM4             YES                                          F5G39300    
       02501  0 76700 0 00001 SM2    ALS 1               NO, SHIFT IT LEFT ONE                        F5G39310    
       02502  1 77777 1 02476        TXI SM3,1,-1        AND INDEX TO NEXT ENRR. REQUIREMENT          F5G39320    
       02503 -0 50000 1 12535 SM4    CAL BBB+2,1         FORM                                         F5G39330    
       02504  0 77100 0 00022        ARS 18              AND COMPILE                                  F5G39340    
       02505  0 40000 0 00415        ADD SMK4            THE                                          F5G39350    
       02506  0 07400 4 02367        TSX SK,4                                                         F5G39360    
       02507  0 50000 0 00662        CLA SMV2            COMPILE THE TAG                              F5G39370    
       02510  0 07400 4 02367        TSX SK,4                                                         F5G39380    
       02511 -0 53400 1 00663        LXD SMV3,1          IS THE ELEMENT IN SUB BOTTOM POSITION        F5G39390    
       02512 -3 00000 1 02514        TXL SM5+1,1,0                                                    F5G39400    
       02513 -3 00000 1 02515 SM5    TXL SM7,1,SET                                                    F5G39410    
       02514  1 77777 1 02450        TXI SM6,1,-1        NO, INDEX TO NEXT LIST POS.                  F5G39420    
       02515  0 50200 0 00315 SM7    CLS ONEA                                                         F5G39430    
       02516  0 60100 0 00660        STO SLV3            RECORD THAT THERE IS HANGING TRA 0           F5G39440    
       02517 -0 53400 4 00661 SM9    LXD SMV1,4                                                       F5G39450    
       02520  0 02000 4 00001        TRA 1,4             RETURN                                       F5G39460    
       02521  0 10000 0 02515 SM8    TZE SM7             GO TO RECORD HANGING TRA                     F5G39470    
       02522  0 76000 0 00003        SSP                                                              F5G39480    
       02523  0 07400 4 02403        TSX SL,4            RECORD A TRA TO LXD CASE                     F5G39490    
       02524  0 02000 0 02517        TRA SM9                                                          F5G39500    
                                         THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND      F5G39510    
                                         CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.  F5G39520    
       02525 -2 00144 2 02527 FNDAS  TNX 2FNDS,2,ZINST   IS BLOCK OF INST. ALL USED                   F5G39530    
       02526  0 07400 4 03472        TSX RDINS,4         YES, READ IN NEXT BLOCK                      F5G39540    
       02527 -0 50000 2 01076 2FNDS  CAL INST-3,2        IS THIS INST. TAGGED                         F5G39550    
       02530 -0 32000 0 00340        ANA STMSK                                                        F5G39560    
       02531  0 10000 0 03336        TZE CI7A                                                         F5G39570    
       02532 -0 53400 4 00455 CI4    LXD 9CNT,4          YES                                          F5G39580    
       02533  2 00001 4 02547        TIX CI5,4,1         COUNT TO 9, IS STAG WORD EXHAUSTED           F5G39590    
       02534 -0 63400 2 00447        SXD BBOX,2          YES, GET ANOTHER                             F5G39600    
       02535  0 50000 0 00456        CLA STGWD           INCREASE THE NO. OF CURRENT STAG WORD        F5G39610    
       02536  0 40000 0 00315        ADD ONEA                                                         F5G39620    
       02537  0 60100 0 00456        STO STGWD                                                        F5G39630    
       02540  0 07400 4 00032        TSX SE4,4           GET INDEX OF NEXT STAG WORD                  F5G39640    
       02541  0 50000 1 05263        CLA STAG,1                                                       F5G39650    
       02542  0 60100 0 00454        STO STAGN2          GET AND STORE                                F5G39660    
       02543  0 76700 0 00002        ALS 2                                                            F5G39670    
       02544  0 60100 0 00453        STO STAGN1          THE STAG WORD                                F5G39680    
       02545 -0 53400 2 00447        LXD BBOX,2          RESTORE INDEX REGISER 2                      F5G39690    
       02546 -0 53400 4 00330        LXD LD9,4           RESET COUNT TO 9                             F5G39700    
       02547 -0 63400 4 00455 CI5    SXD 9CNT,4                                                       F5G39710    
       02550 -0 50000 2 01076        CAL INST-3,2                                                     F5G39720    
       02551 -0 32000 0 00342        ANA TAGMK           EXTRACT THE TAG                              F5G39730    
       02552  0 60100 0 00452        STO TAG                                                          F5G39740    
       02553 -0 50000 0 00453        CAL STAGN1                                                       F5G39750    
       02554 -0 32000 0 00324        ANA LD3             EXTRACT THE S-TAG                            F5G39760    
       02555 -0 73400 4 00000        PDX 0,4                                                          F5G39770    
       02556 -0 50000 4 00361        CAL VSTAG,4         CONVERT S-TAG TO 1,2, OR 4                   F5G39780    
       02557  0 62100 2 01076        STA INST-3,2        REPLACE TAU-TAG BY S-TAG                     F5G39790    
       02560  0 40200 0 00320        SUB L4              IS THE TAG 4                                 F5G39800    
       02561 -0 10000 0 02564        TNZ CI5A                                                         F5G39810    
       02562 -0 76000 0 00003        SSM                                                              F5G39820    
       02563  0 60100 0 00460        STO CIND            YES, RECORD IR 4 NECESSARY                   F5G39830    
       02564 -0 50000 0 00454 CI5A   CAL STAGN2                                                       F5G39840    
       02565  0 76700 0 00011        ALS 9                                                            F5G39850    
       02566 -0 76000 0 00001        PBT                 IS AN LXD NECESSARY                          F5G39860    
       02567  0 02000 0 02602        TRA SKLX            NO                                           F5G39870    
       02570  0 50000 0 00314        CLA ZERO            YES                                          F5G39880    
       02571  0 07400 4 02367        TSX SK,4            COMPILE LOCATION OF 0                        F5G39890    
       02572  0 50000 0 00414        CLA SMK2            COMPILE LXD                                  F5G39900    
       02573  0 07400 4 02367        TSX SK,4                                                         F5G39910    
       02574  0 50000 0 00452        CLA TAG             COMPILE THE SYMB. ADDR. OF THE CELL          F5G39920    
       02575 -0 50100 0 00415        ORA SMK4                                                         F5G39930    
       02576  0 07400 4 02367        TSX SK,4                                                         F5G39940    
       02577  0 50000 2 01076        CLA INST-3,2        COMPILE THE S-TAG                            F5G39950    
       02600 -0 32000 0 00337        ANA ADDMK                                                        F5G39960    
       02601  0 07400 4 02367        TSX SK,4                                                         F5G39970    
       02602 -0 50000 2 01100 SKLX   CAL INST-1,2                                                     F5G39980    
       02603 -0 32000 0 00343        ANA LFTMSK                                                       F5G39990    
       02604  0 60200 0 00457        SLW TMP10                                                        F5G40000    
       02605  0 50000 0 00457        CLA TMP10                                                        F5G40010    
       02606  0 34000 0 00345        CAS LLXP            IS THIS AN LXP                               F5G40020    
       02607  0 02000 0 02637        TRA CI1                                                          F5G40030    
       02610  0 02000 0 02612        TRA SKLY              YES.                                       F5G40031    
       02611  0 02000 0 02637        TRA CI1                                                          F5G40032    
       02612 -0 50000 0 00454  SKLY  CAL STAGN2                                                       F5G40040    
       02613  0 76700 0 00011        ALS 9                                                            F5G40041    
       02614 -0 76000 0 00001        PBT                   IS LXD NECESSARY.                          F5G40042    
       02615  0 02000 0 03462        TRA CI3A              NO.                                        F5G40043    
       02616  0 50000 2 01076        CLA INST-3,2          YES.  IS S-TAG=4.                          F5G40044    
       02617  0 60200 0 00461        SLW CPIND             RECORD DONT COMPILE.                       F5G40045    
       02620 -0 32000 0 00337        ANA ADDMK                                                        F5G40046    
       02621  0 40200 0 00320        SUB L4                                                           F5G40047    
       02622 -0 10000 0 02667        TNZ CI6               NOT 4.                                     F5G40048    
       02623 -0 50000 2 01074        CAL INST-5,2          IS NEXT INSTR                              F5G40049    
       02624 -0 32000 0 00343        ANA LFTMSK                                                       F5G40050    
       02625  0 60200 0 00457        SLW TMP10             AN LXD                                     F5G40051    
       02626  0 50000 0 00457        CLA TMP10                                                        F5G40052    
       02627  0 40200 0 00414        SUB LLXD              WITH REAL                                  F5G40053    
       02630 -0 10000 0 02667        TNZ CI6               IR4.                                       F5G40054    
       02631  0 50000 2 01072        CLA INST-7,2                                                     F5G40055    
       02632 -0 32000 0 00337        ANA ADDMK             IF SO,                                     F5G40056    
       02633  0 40200 0 00320        SUB L4                                                           F5G40057    
       02634 -0 10000 0 02667        TNZ CI6               TURN ON                                    F5G40058    
       02635  0 76000 0 00141        PSE 97                                                           F5G40059    
       02636  0 02000 0 02667        TRA CI6               SENSE LIGHT.                               F5G40060    
       02637  0 34000 0 00347  CI1   CAS LDED              IS IT A DED                                F5G40061    
       02640  0 02000 0 02642        TRA CI2                                                          F5G40062    
       02641  0 02000 0 03462        TRA CI3A            YES                                          F5G40070    
       02642  0 50000 0 00454 CI2    CLA STAGN2                                                       F5G40080    
       02643  0 12000 0 02667        TPL CI6             IS SXD REQUIRED                              F5G40090    
       02644  0 50000 2 01101        CLA INST,2          NEITHER LXP NOR DED, COMPILE THE             F5G40100    
       02645  0 07400 4 02367        TSX SK,4            INST.                                        F5G40110    
       02646  0 50000 2 01100        CLA INST-1,2                                                     F5G40120    
       02647  0 07400 4 02367        TSX SK,4                                                         F5G40130    
       02650  0 50000 2 01077        CLA INST-2,2                                                     F5G40140    
       02651  0 07400 4 02367        TSX SK,4                                                         F5G40150    
       02652  0 50000 2 01076        CLA INST-3,2                                                     F5G40160    
       02653  0 07400 4 02367        TSX SK,4                                                         F5G40170    
       02654  0 50000 0 00314        CLA ZERO            YES, COMPILE AN SXD, ZERO LOCATION           F5G40180    
       02655  0 60100 0 00461        STO CPIND           RECORD THAT THIS INST. SHOULDNT BE CONPILED  F5G40190    
       02656  0 07400 4 02367        TSX SK,4                                                         F5G40200    
       02657  0 50000 0 00411        CLA SIK3            SXD IN BCD                                   F5G40210    
       02660  0 07400 4 02367        TSX SK,4                                                         F5G40220    
       02661  0 50000 0 00452        CLA TAG             SYMB. ADDR. OF TAU-TAG CELL                  F5G40230    
       02662 -0 50100 0 00415        ORA SMK4                                                         F5G40240    
       02663  0 07400 4 02367        TSX SK,4                                                         F5G40250    
       02664  0 50000 2 01076        CLA INST-3,2        AND TAG WORD                                 F5G40260    
       02665 -0 32000 0 00337        ANA ADDMK                                                        F5G40270    
       02666  0 07400 4 02367        TSX SK,4                                                         F5G40280    
       02667 -0 50000 0 00453  CI6   CAL STAGN1            NO SXD REQUIRED.                           F5G40290    
       02670  0 76700 0 00002        ALS 2                                                            F5G40300    
       02671  0 60200 0 00453        SLW STAGN1                                                       F5G40310    
       02672 -0 50000 0 00454        CAL STAGN2                                                       F5G40320    
       02673  0 76700 0 00001        ALS 1                                                            F5G40330    
       02674  0 60200 0 00454        SLW STAGN2                                                       F5G40340    
       02675  0 02000 0 02700        TRA CKLOC           GO TO CHECK FOR ENDINGS                      F5G40350    
       02676 -0 76000 0 00003 CI7    SSM                                                              F5G40360    
       02677  0 60100 0 00461        STO CPIND           RECODD LATER COMPILING NECESSARY             F5G40370    
                                         NOW THE END OF BB IS CHECKED FOR                             F5G40380    
       02700  0 50000 2 01101 CKLOC  CLA INST,2          IF NO LOCATION SYMBOL , THIS CANT BE         F5G40390    
       02701  0 10000 0 02723        TZE TR3S            ENSING OTHER THAN CERTAINTY                  F5G40400    
       02702  0 50000 2 01075        CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40410    
       02703  0 40200 0 00444        SUB NXTLOC                                                       F5G40420    
       02704  0 10000 0 02743        TZE ENDBB           YES, LOOK FOR TYPE OF ENDING                 F5G40430    
       02705 -0 53400 4 00327        LXD LD8,4           NO, CHECK FOR ENDING OF GROUP OF INST        F5G40440    
       02706 -0 50000 2 01100        CAL INST-1,2                                                     F5G40450    
       02707 -0 32000 0 00335        ANA DECMK           LOOK AT OP CODE                              F5G40460    
       02710  0 40200 4 00374 SUBP   SUB LNTOP+1,4       COMPARE TO OP CODES OF POSSIBLE              F5G40470    
       02711  0 10000 4 02737        TZE TRTIN+1,4       ENDINGS    TRANSFER WHEN FOUND               F5G40480    
       02712  2 00001 4 02710        TIX SUBP,4,1        TRY NEXT POSSIBILITY                         F5G40490    
       02713 -0 50000 2 01100        CAL INST-1,2        NOT FOUND, LOOK FORCONDITIONAL TRANSFER      F5G40500    
       02714 -0 32000 0 00400 6ANA   ANA FSTLT                                                        F5G40510    
       02715  0 60200 0 00457        SLW TMP10                                                        F5G40520    
       02716  0 50000 0 00457        CLA TMP10                                                        F5G40530    
       02717  0 40200 0 00401        SUB FSTT                                                         F5G40540    
       02720  0 10000 0 03162        TZE TTYPE           IS A CONDITIONAL TRANSFER                    F5G40550    
       02721  0 07400 4 02172 NOEND  TSX SCMI,4          NOT AN END OD BB COMPILE INST                F5G40560    
       02722  1 00004 2 02525        TXI FNDAS,2,4       IF IT NEEDS TO BE                            F5G40570    
       02723  0 50000 2 01075 TR3S   CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40580    
       02724  0 40200 0 00444        SUB NXTLOC                                                       F5G40590    
       02725  0 10000 0 03042        TZE SEQTR           YES                                          F5G40600    
       02726  0 02000 0 02721        TRA NOEND           NO                                           F5G40610    
                                          TRANSFER VECTOR      SEE SUBP+1 ABOVE                       F5G40620    
       02727  0 02000 0 03046        TRA GOTOV           TRA IS OP CODE                               F5G40630    
       02730  0 02000 0 03115        TRA IF2PS           PSE                                          F5G40640    
       02731  0 02000 0 03171        TRA IF2CS           DCT                                          F5G40650    
       02732  0 02000 0 03171        TRA IF2CS           RTT                                          F5G40660    
       02733  0 02000 0 03125        TRA MSECS           MSE                                          F5G40670    
       02734  0 02000 0 03226        TRA IF3CS           TZE                                          F5G40680    
       02735  0 02000 0 03324        TRA STPCSZ            HPR                                        F5G40690    
       02736  0 02000 0 02721 TRTIN  TRA NOEND           TSX                                          F5G40700    
                                         THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW     F5G40710    
       02737  0 02000 0 02752        TRA TRACS           TRAIS OP CODE                                F5G40720    
       02740  0 02000 0 03037        TRA DOCS            TXL                                          F5G40730    
       02741  0 02000 0 03042        TRA PAUSE           HPR                                          F5G40740    
       02742  0 02000 0 02755 TRTTR  TRA TRAC3           TTR                                          F5G40750    
       02743 -0 53400 4 00325 ENDBB  LXD LD4,4           THIS INST ENDS A BASIC                       F5G40760    
       02744  0 50000 2 01100        CLA INST-1,2        BLOCK    LOOKAT OP CODE                      F5G40770    
       02745 -0 32000 0 00335        ANA DECMK           FOR TYPE OF ENDING                           F5G40780    
       02746  0 40200 4 00400 6SUB   SUB LTROP+1,4                                                    F5G40790    
       02747  0 10000 4 02743        TZE TRTTR+1,4       TRANSFER IF IOUND                            F5G40800    
       02750  2 00001 4 02746        TIX 6SUB,4,1        TRY NEXT POSSIBILITY                         F5G40810    
       02751  0 02000 0 03042        TRA SEQTR                                                        F5G40820    
       02752 -0 50000 2 01077 TRACS  CAL INST-2,2        OP CODE IS TRA    SEE IF ADDRESS             F5G40830    
       02753 -0 32000 0 00403        ANA PFXMK           IS IN PROGRAM  UNCONDITITONAL TRANSFER       F5G40840    
       02754 -0 10000 0 02772        TNZ GOTON           IF TRANSFER     IT IS A GO TO N              F5G40850    
       02755 -0 63400 2 00447 TRAC3  SXD BBOX,2          THIS IS GO TO ALPHA                          F5G40860    
       02756 -0 50000 0 00443        CAL BBNO                                                         F5G40870    
       02757  0 77100 0 00022        ARS 18                                                           F5G40880    
       02760  0 60100 0 00462        STO ARG1            STORE BBNO AS ARGUMENT OF SAD                F5G40890    
       02761  0 07400 4 00067        TSX SE1,4                                                        F5G40900    
       02762 -0 50000 1 12533        CAL BBB,1                                                        F5G40910    
       02763  0 07400 4 00044        TSX SE6,4           GET SUCC. TABLE ENTRY                        F5G40920    
       02764 -0 50000 1 16734        CAL SUCC,1                                                       F5G40930    
       02765  0 07400 4 02126        TSX SAD,4           GO TO DETERMINE SYMBOLIC ADDRESS             F5G40940    
       02766 -0 53400 2 00447        LXD BBOX,2                                                       F5G40950    
       02767  0 60200 2 01077        SLW INST-2,2        TEPLACE SYMBOLIC ADDR.                       F5G40960    
       02770  0 07400 4 02172        TSX SCMI,4          COMPILE THE INSTR                            F5G40970    
       02771  1 00004 2 03544        TXI BEGBB,2,4       BEGINNING OF BB, INDEX TO NEXT INSTR         F5G40980    
       02772 -0 63400 2 00447 GOTON  SXD BBOX,2                                                       F5G40990    
       02773  0 50000 0 00443        CLA BBNO                                                         F5G41000    
       02774  0 07400 4 00070        TSX SE,4                                                         F5G41010    
       02775  0 50000 1 12533        CLA BBB,1           CHECK TO MAKE SURE THIS IS GO TO N           F5G41020    
       02776  0 77100 0 00041        ARS 33                                                           F5G41030    
       02777  0 40000 0 00315        ADD ONEA                                                         F5G41040    
       03000  0 10000 0 03002        TZE GON1                                                         F5G41050    
       03001  0 07400 4 00004        TSX 4,4       DIAGNOSTIC THIS ISNT GO N                          F5G41060    
       03002 -0 50000 1 12534 GON1   CAL BBB+1,1                                                      F5G41070    
       03003  0 77100 0 00041        ARS 33              PUT SXD CASE IN TMP10                        F5G41080    
       03004  0 60200 0 00457        SLW TMP10                                                        F5G41090    
                                          NOW ANY SXD BEFIR GO TO N ARE COMPILED                      F5G41100    
       03005 -0 53400 2 00324        LXD LD3,2                                                        F5G41110    
       03006  0 50000 2 00361 GON3   CLA VSTAG,2         DOES THIS THIS IR NEED SXD                   F5G41120    
       03007 -0 32000 0 00457        ANA TMP10                                                        F5G41130    
       03010  0 10000 0 03032        TZE GON2                                                         F5G41140    
       03011 -0 63400 1 00451        SXD ABOX,1          YES                                          F5G41150    
       03012  0 56000 0 00314        LDQ ZERO            REPLACE LOCATION BY 0 AND                    F5G41160    
       03013 -0 53400 4 00447        LXD BBOX,4          PUT LOCATION ON THE                          F5G41170    
       03014  0 50000 4 01101        CLA INST,4          SXD INST.                                    F5G41180    
       03015 -0 60000 4 01101        STQ INST,4          SXDINST                                      F5G41190    
       03016  0 07400 4 02367        TSX SK,4                                                         F5G41200    
       03017  0 50000 0 00411        CLA LSXD                                                         F5G41210    
       03020  0 07400 4 02367        TSX SK,4                                                         F5G41220    
       03021 -0 53400 1 00451        LXD ABOX,1                                                       F5G41230    
       03022 -0 50000 1 12535        CAL BBB+2,1                                                      F5G41240    
       03023 -0 32000 0 00342        ANA TAGMK                                                        F5G41250    
       03024 -0 50100 0 00415        ORA IDTAG                                                        F5G41260    
       03025  0 07400 4 02367        TSX SK,4                                                         F5G41270    
       03026 -0 50000 0 00457        CAL TMP10                                                        F5G41280    
       03027 -0 32000 2 00361        ANA VSTAG,2                                                      F5G41290    
       03030  0 07400 4 02367        TSX SK,4                                                         F5G41300    
       03031 -0 53400 1 00451        LXD ABOX,1                                                       F5G41310    
       03032  1 77777 1 03033 GON2   TXI GON2+1,1,-1                                                  F5G41320    
       03033  2 00001 2 03006        TIX GON3,2,1                                                     F5G41330    
       03034 -0 53400 2 00447        LXD BBOX,2                                                       F5G41340    
       03035  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST                             F5G41350    
       03036  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G41360    
       03037 -0 75400 0 00000 DOCS   PXD 0,0                                                          F5G41370    
       03040  0 60100 0 01101        STO SXST            T     RECORD THERE IS SEQUDNTIAL TRANSFER    F5G41380    
       03041  0 02000 0 02755        TRA TRAC3           OTHERWISE DO EXACTLY AS FOR TRA TRANSFER     F5G41390    
       03042 -0 75400 0 00000 PAUSE  PXD 0,0                                                          F5G41400    
                        03042 SEQTR  SYN PAUSE                                                        F5G41410    
       03043  0 60100 0 01101        STO SXST            RECORD SEQUENTIAL TRANSFER                   F5G41420    
       03044  0 07400 4 02172        TSX SCMI,4                                                       F5G41430    
       03045  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G41440    
       03046  0 07400 4 02172 GOTOV  TSX SCMI,4          COMPILE INST IF NECESSARY                    F5G41450    
       03047  0 50000 2 01076        CLA INST-3,2        FIND NO. OF BRANCHES IN VECTOR               F5G41460    
       03050  0 40200 0 00316        SUB LD1                                                          F5G41470    
       03051  0 62200 0 00463        STD MBOX                                                         F5G41480    
       03052  0 50000 0 00443        CLA BBNO                                                         F5G41490    
       03053  0 77100 0 00022        ARS 18              STORE BBNO FOR SAD ROUTINE                   F5G41500    
       03054  0 60100 0 00462        STO ARG1                                                         F5G41510    
       03055  1 00004 2 03056 GOV4   TXI GOV4+1,2,4                                                   F5G41520    
       03056 -0 63400 2 00450        SXD BBOX1,2                                                      F5G41530    
       03057  0 07400 4 00067        TSX SE1,4                                                        F5G41540    
       03060  0 50000 1 12533        CLA BBB,1                                                        F5G41550    
       03061  0 60200 0 00464        SLW SUCNO           STORE NO OF 1ST SUCCESSOR                    F5G41560    
       03062 -0 53400 2 00450        LXD BBOX1,2                                                      F5G41570    
       03063 -2 00144 2 03065 13TNX  TNX GOV1,2,ZINST    IS BLOCK OF INST ALL USED                    F5G41580    
       03064  0 07400 4 03472        TSX RDINS,4         T   READ NEXT BLOCK                          F5G41590    
       03065 -0 63400 2 00450 GOV1   SXD BBOX1,2                                                      F5G41600    
       03066 -0 50000 0 00464        CAL SUCNO                                                        F5G41610    
       03067  0 07400 4 00044        TSX SE6,4                                                        F5G41620    
       03070  0 50000 1 16734        CLA SUCC,1                                                       F5G41630    
       03071  0 07400 4 02126        TSX SAD,4           FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER     F5G41640    
       03072 -0 53400 2 00450        LXD BBOX1,2                                                      F5G41650    
       03073  0 60200 0 00457        SLW TMP10           STORE SYMBOLIC ADDR.                         F5G41660    
       03074 -0 53400 4 00463        LXD MBOX,4                                                       F5G41670    
       03075  2 00001 4 03101        TIX GOV2,4,1        IS THIS THE LAST TRANSFER                    F5G41680    
       03076  0 50000 2 01077        CLA INST-2,2                                                     F5G41690    
       03077  0 40200 0 00444        SUB NXTLOC          1ST INST IN NEXT BB, IS IT                   F5G41700    
       03100  0 10000 0 03104        TZE GOV3                                                         F5G41710    
       03101  0 50000 0 00457 GOV2   CLA TMP10           NO                                           F5G41720    
       03102  0 60100 2 01077        STO INST-2,2                                                     F5G41730    
       03103  0 07400 4 02172        TSX SCMI,4          COMPILE THE INXT                             F5G41740    
       03104  1 00004 2 03105 GOV3   TXI GOV3+1,2,4                                                   F5G41750    
       03105 -0 50000 0 00464        CAL SUCNO                                                        F5G41760    
       03106  0 40000 0 00316        ADD ONED                                                         F5G41770    
       03107  0 60200 0 00464        SLW SUCNO                                                        F5G41780    
       03110 -0 53400 4 00463        LXD MBOX,4                                                       F5G41790    
       03111  1 77777 4 03112 GOV5   TXI GOV5+1,4,-1                                                  F5G41800    
       03112 -0 63400 4 00463        SXD MBOX,4                                                       F5G41810    
       03113  3 00000 4 03063        TXH 13TNX,4,0       IS THIS LAST TRA OF VECTOR                   F5G41820    
       03114  0 02000 0 03544        TRA BEGBB           YES                                          F5G41830    
       03115  0 50000 2 01076 IF2PS  CLA INST-3,2        THIS IS PSE LOOK AT ADDRESS TO               F5G41840    
       03116 -0 32000 0 00404        ANA XXPSX           SEE IF IT IS 164-6                           F5G41850    
       03117  0 40200 0 00405        SUB XX16X                                                        F5G41860    
       03120  0 10000 0 03125        TZE PSTCS           YES, IT IS A TEST                            F5G41870    
       03121  0 50000 2 01076        CLA INST-3,2                                                     F5G41880    
       03122 -0 32000 0 00335        ANA DECMK           NO, SEE IF ADDR IS 360                       F5G41890    
       03123  0 40200 0 00406        SUB XX360                                                        F5G41900    
       03124 -0 10000 0 02721        TNZ NOEND           NO, THIS ISNT BB END                         F5G41910    
       03125  0 07400 4 02172 PSTCS  TSX SCMI,4          THIS IS A PSE TEST INST                      F5G41920    
                        03125 MSECS  SYN PSTCS           OR AN MSE INST                               F5G41930    
       03126  1 00004 2 03127 PS1    TXI PS1+1,2,4       INEDX TO CONSIEER 1ST TRANSFER               F5G41940    
       03127 -0 63400 2 00450        SXD BBOX1,2                                                      F5G41950    
       03130 -0 50000 0 00443        CAL BBNO                                                         F5G41960    
       03131  0 77100 0 00022        ARS 18                                                           F5G41970    
       03132  0 60100 0 00462        STO ARG1            STORE BBNO AS ARGUMENT FOR SAD               F5G41980    
       03133  0 07400 4 00067        TSX SE1,4                                                        F5G41990    
       03134 -0 50000 1 12533        CAL BBB,1                                                        F5G42000    
       03135  0 60100 0 00464        STO SUCNO           GETNUMBER OF 1ST SUCCESSOR                   F5G42010    
       03136  0 40000 0 00316        ADD LD1                                                          F5G42020    
       03137  0 07400 4 00044        TSX SE6,4           GET THE SECOND SUCC ENTRY                    F5G42030    
       03140  0 50000 1 16734        CLA SUCC,1                                                       F5G42040    
       03141  0 07400 4 02126        TSX SAD,4                                                        F5G42050    
       03142 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42060    
       03143  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42070    
       03144  0 07400 4 02172        TSX SCMI,4                                                       F5G42080    
       03145  1 00004 2 03146 PS2    TXI PS2+1,2,4       INCREASE INSTR INDEX                         F5G42090    
       03146  0 50000 2 01077        CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42100    
       03147  0 40200 0 00444        SUB NXTLOC                                                       F5G42110    
       03150  0 10000 0 03307        TZE PS3             YES, SKIP COMPILING THE INST                 F5G42120    
       03151 -0 63400 2 00450        SXD BBOX1,2         NO                                           F5G42130    
       03152  0 50000 0 00464        CLA SUCNO                                                        F5G42140    
       03153  0 07400 4 00044        TSX SE6,4                                                        F5G42150    
       03154  0 50000 1 16734        CLA SUCC,1                                                       F5G42160    
       03155  0 07400 4 02126        TSX SAD,4           DETERMINE THE SYMBQLIC ADDRESS               F5G42170    
       03156 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42180    
       03157  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42190    
       03160  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST.                            F5G42200    
       03161  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G42210    
       03162  0 50000 2 01077 TTYPE  CLA INST-2,2        IS THIS TRANSFER TO NEXT INST.               F5G42220    
       03163  0 34000 2 01101        CAS INST,2                                                       F5G42230    
       03164  0 02000 0 03166        TRA TTYP1                                                        F5G42240    
       03165  0 02000 0 02721        TRA NOEND           YES                                          F5G42250    
       03166  0 40200 0 00402 TTYP1  SUB PCC                                                          F5G42260    
       03167  0 10000 0 02721        TZE NOEND           YES                                          F5G42270    
       03170  0 02000 0 03173        TRA CNDTR           NO, IS CONDITIONAL TRANSFER                  F5G42280    
       03171  0 07400 4 02172 IF2CS  TSX SCMI,4          THIS IS DCT OR RTT                           F5G42290    
       03172  1 00004 2 03173 RT1    TXI RT1+1,2,4       INDEX TO CONSIDER 1ST TRANSFER               F5G42300    
       03173 -0 63400 2 00450 CNDTR  SXD BBOX1,2      STORE BBNO. AS ARGUMENT                         F5G42310    
       03174 -0 50000 0 00443        CAL BBNO            STORE BBNO AS ARGUMENT                       F5G42320    
       03175  0 77100 0 00022        ARS 18              OF SAD                                       F5G42330    
       03176  0 60100 0 00462        STO ARG1                                                         F5G42340    
       03177  0 07400 4 00067        TSX SE1,4                                                        F5G42350    
       03200 -0 50000 1 12533        CAL BBB,1                                                        F5G42360    
       03201  0 60100 0 00464        STO SUCNO                                                        F5G42370    
       03202  0 07400 4 00044        TSX SE6,4           GET THE 1ST SUCC ENTRY                       F5G42380    
       03203  0 50000 1 16734        CLA SUCC,1                                                       F5G42390    
       03204  0 07400 4 02126        TSX SAD,4                                                        F5G42400    
       03205 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42410    
       03206  0 60200 2 01077        SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42420    
       03207  0 07400 4 02172        TSX SCMI,4          COMPILE THE INST                             F5G42430    
       03210  1 00004 2 03211 RT2    TXI RT2+1,2,4                                                    F5G42440    
       03211  0 50000 2 01077        CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42450    
       03212  0 40200 0 00444        SUB NXTLOC                                                       F5G42460    
       03213  0 10000 0 03307        TZE PS3             YES, SKIP COMPILING THE INST                 F5G42470    
       03214 -0 63400 2 00450        SXD BBOX1,2                                                      F5G42480    
       03215  0 50000 0 00464        CLA SUCNO                                                        F5G42490    
       03216  0 40000 0 00316        ADD LD1                                                          F5G42500    
       03217  0 07400 4 00044        TSX SE6,4                                                        F5G42510    
       03220  0 50000 1 16734        CLA SUCC,1                                                       F5G42520    
       03221  0 07400 4 02126        TSX SAD,4           DETERMINE THE SYMBOLIC ADDR                  F5G42530    
       03222 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42540    
       03223  0 60200 2 01077        SLW INST-2,2                                                     F5G42550    
       03224  0 07400 4 02172        TSX SCMI,4          COMPILE THE TRANSFER                         F5G42560    
       03225  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G42570    
       03226 -0 63400 2 00450 IF3CS  SXD BBOX1,2         THIS IS A TZE INST I. E. AN IF               F5G42580    
       03227 -0 50000 0 00443        CAL BBNO                                                         F5G42590    
       03230  0 77100 0 00022        ARS 18              STORE BB NO. FOR SUBROUTINE                  F5G42600    
       03231  0 60100 0 00462        STO ARG1                                                         F5G42610    
       03232  0 07400 4 00067        TSX SE1,4           ARGUMENT                                     F5G42620    
       03233 -0 50000 1 12533        CAL BBB,1                                                        F5G42630    
       03234  0 60100 0 00464        STO SUCNO                                                        F5G42640    
       03235  0 40000 0 00316        ADD LD1             GET THE SUCC ENTRY                           F5G42650    
       03236  0 07400 4 00044        TSX SE6,4           FOR THE TZE                                  F5G42660    
       03237  0 50000 1 16734        CLA SUCC,1                                                       F5G42670    
       03240  0 07400 4 02126        TSX SAD,4                                                        F5G42680    
       03241 -0 53400 2 00450        LXD BBOX1,2                                                      F5G42690    
       03242  0 60200 2 01077        SLW INST-2,2        REPLACE THE SYMBOLIC ADDREAS                 F5G42700    
       03243  0 07400 4 02172        TSX SCMI,4          COMPILE THE TZE                              F5G42710    
       03244  1 00004 2 03245 IF1    TXI IF1+1,2,4                                                    F5G42720    
       03245 -0 50000 2 01100        CAL INST-1,2        CHECK NEXT INST TO SEE                       F5G42730    
       03246 -0 32000 0 00343        ANA LFTMSK          IF IT IS TPL                                 F5G42740    
       03247  0 60200 0 00457        SLW TMP10                                                        F5G42750    
       03250  0 50000 0 00457        CLA TMP10                                                        F5G42760    
       03251  0 40200 0 00344        SUB LTPL                                                         F5G42770    
       03252  0 10000 0 03254        TZE 16CLA                                                        F5G42780    
       03253  0 07400 4 00004 IFHPR  TSX 4,4             IF NOT, DIAGNOSTIC                           F5G42790    
       03254  0 50000 2 01077 16CLA  CLA INST-2,2        DOES THIS EXIT GO TO NEXT BB                 F5G42800    
       03255  0 40200 0 00444        SUB NXTLOC                                                       F5G42810    
       03256 -0 10000 0 03265        TNZ IF2                                                          F5G42820    
       03257  0 50000 2 01073        CLA INST-6,2        YES, DOES NEXT ONE ALSO                      F5G42830    
       03260  0 40200 0 00444        SUB NXTLOC                                                       F5G42840    
       03261 -0 10000 0 03265        TNZ IF2                                                          F5G42850    
       03262 -0 75400 0 00000        PXD 0,0             YES, RECORD SEQUENTIAL TRANSFER              F5G42860    
       03263  0 60100 0 01101        STO SXST                                                         F5G42870    
       03264  1 00010 2 03544        TXI BEGBB,2,8                                                    F5G42880    
       03265 -0 63400 2 00450 IF2    SXD BBOX1,2         COMPILE THE TPL                              F5G42890    
       03266  0 50000 0 00464        CLA SUCNO                                                        F5G42900    
       03267  0 07400 4 00044        TSX SE6,4                                                        F5G42910    
       03270  0 50000 1 16734        CLA SUCC,1                                                       F5G42920    
       03271  0 07400 4 02126        TSX SAD,4           FIND AND                                     F5G42930    
       03272 -0 53400 2 00450        LXD BBOX1,2         REPLACE                                      F5G42940    
       03273  0 60200 2 01077        SLW INST-2,2        SYMBOLIC ADDRESS                             F5G42950    
       03274  0 07400 4 02172        TSX SCMI,4                                                       F5G42960    
       03275  1 00004 2 03276 IF3    TXI IF3+1,2,4                                                    F5G42970    
       03276 -0 50000 2 01100        CAL INST-1,2        IS THIS TRA                                  F5G42980    
       03277 -0 32000 0 00343        ANA LFTMSK                                                       F5G42990    
       03300  0 60200 0 00457        SLW TMP10                                                        F5G43000    
       03301  0 50000 0 00457        CLA TMP10                                                        F5G43010    
       03302  0 40200 0 00350        SUB LTRA                                                         F5G43020    
       03303 -0 10000 0 03253        TNZ IFHPR           IF NOT , STOP                                F5G43030    
       03304  0 50000 2 01077        CLA INST-2,2        YES IT IS   IS THIS A                        F5G43040    
       03305  0 40200 0 00444        SUB NXTLOC          SEQUENTIAL TRANSFER                          F5G43050    
       03306 -0 10000 0 03312        TNZ IF4                                                          F5G43060    
       03307 -0 75400 0 00000 PS3    PXD 0,0             YES, RECORD THAT                             F5G43070    
       03310  0 60100 0 01101        STO SXST                                                         F5G43080    
       03311  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43090    
       03312 -0 63400 2 00450 IF4    SXD BBOX1,2         CONPILE THE TRA                              F5G43100    
       03313  0 50000 0 00464        CLA SUCNO                                                        F5G43110    
       03314  0 40000 0 00323        ADD LD2                                                          F5G43120    
       03315  0 07400 4 00044        TSX SE6,4                                                        F5G43130    
       03316  0 50000 1 16734        CLA SUCC,1          IF NECESSARY                                 F5G43140    
       03317  0 07400 4 02126        TSX SAD,4           MODIFY THE                                   F5G43150    
       03320 -0 53400 2 00450        LXD BBOX1,2         SYMBOLIC                                     FSG43160    
       03321  0 60200 2 01077        SLW INST-2,2        A0DRESS                                      F5G43170    
       03322  0 07400 4 02172        TSX SCMI,4                                                       F5G43180    
       03323  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43190    
       03324  0 50000 2 01074 STPCSZ CLA INST-5,2                                                     F5G43200    
       03325  0 40200 0 00350        SUB LTRA                                                         F5G43210    
       03326 -0 10000 0 02721        TNZ NOEND                                                        F5G43220    
       03327  0 50000 2 01101        CLA INST,2                                                       F5G43230    
       03330  0 40200 2 01073        SUB INST-6,2                                                     F5G43240    
       03331 -0 10000 0 02721        TNZ NOEND                                                        F5G43250    
       03332  0 07400 4 02172 STPCS  TSX SCMI,4          COMPILE THE TWO INXT                         F5G43260    
       03333  1 00004 2 03334 STP1   TXI STP1+1,2,4      AND GO TO STAET BB                           F5G43270    
       03334  0 07400 4 02172        TSX SCMI,4                                                       F5G43280    
       03335  1 00004 2 03544        TXI BEGBB,2,4                                                    F5G43290    
                                          THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND       F5G43300    
                                          SUBROUTINE CALL SEQUENCES                                   F5G43310    
       03336 -0 50000 2 01100 CI7A   CAL INST-1,2        IS THIS AN SXD INST                          F5G43320    
       03337 -0 32000 0 00343        ANA LFTMSK                                                       F5G43330    
       03340  0 60200 0 00457        SLW TMP10                                                        F5G43340    
       03341  0 50000 0 00457        CLA TMP10                                                        F5G43350    
       03342  0 40200 0 00411        SUB LSXD                                                         F5G43360    
       03343 -0 10000 0 03412        TNZ CI7C                                                         F5G43370    
       03344 -0 50000 2 01076        CAL INST-3,2        YES, DOES IT HAVE TAG 4                      F5G43380    
       03345 -0 32000 0 00337        ANA ADDMK                                                        F5G43390    
       03346  0 40200 0 00320        SUB L4                                                           F5G43400    
       03347 -0 10000 0 03412        TNZ CI7C                                                         F5G43410    
       03350  0 50000 0 00460        CLA CIND            YES, IS IR4 NECESSARY                        F5G43420    
       03351  0 12000 0 03401        TPL DLSXD                                                        F5G43430    
       03352 -0 50000 2 01074        CAL INST-5,2        YES, IS THE NEXT INST A TSX                  F5G43440    
       03353 -0 32000 0 00343        ANA LFTMSK                                                       F5G43450    
       03354  0 60200 0 00457        SLW TMP10                                                        F5G43460    
       03355  0 50000 0 00457        CLA TMP10                                                        F5G43470    
       03356  0 40200 0 00351        SUB LTSX                                                         F5G43480    
       03357 -0 10000 0 03412        TNZ CI7C                                                         F5G43490    
       03360  0 50000 2 01101        CLA INST,2                                                       F5G43500    
       03361  0 07400 4 02367        TSX SK,4            YES, COMPILE AN SXD INSTR , TAG 4, TO        F5G43510    
       03362  0 50000 0 00411        CLA LSXD            SPECIAL TEMP. STORAGE LOC.                   F5G43520    
       03363  0 07400 4 02367        TSX SK,4                                                         F5G43530    
       03364  0 50000 0 00354        CLA GSYM                                                         F5G43540    
       03365  0 07400 4 02367        TSX SK,4                                                         F5G43550    
       03366  0 50000 0 00355        CLA T4SYM                                                        F5G43560    
       03367  0 07400 4 02367        TSX SK,4                                                         F5G43570    
       03370  0 50000 2 01075 CMTSX  CLA INST-4,2        COMPILE THE TSX INST                         F5G43580    
       03371  0 07400 4 02367 CMTS1  TSX SK,4                                                         F5G43590    
       03372  0 50000 2 01074        CLA INST-5,2                                                     F5G43600    
       03373  0 07400 4 02367        TSX SK,4                                                         F5G43610    
       03374  0 50000 2 01073        CLA INST-6,2                                                     F5G43620    
       03375  0 07400 4 02367        TSX SK,4                                                         F5G43630    
       03376  0 50000 2 01072        CLA INST-7,2                                                     F5G43640    
       03377  0 07400 4 02367        TSX SK,4                                                         F5G43650    
       03400  1 00010 2 02525 CI7B   TXI FNDAS,2,8       LOOK AT NEXT INST   LXF                      F5G43660    
       03401  0 50000 2 01101 DLSXD  CLA INST,2                                                       F5G43670    
       03402  0 07400 4 02367        TSX SK,4    IR4 NOT NECESS.  C0MPILE BSS 0.                      F5G43680    
       03403  0 50000 0 00352        CLA LBSS                                                         F5G43690    
       03404  0 07400 4 02367        TSX SK,4                                                         F5G43700    
       03405  0 50000 0 00314        CLA ZERO                                                         F5G43710    
       03406  0 07400 4 02367        TSX SK,4                                                         F5G43720    
       03407  0 50000 0 00314        CLA ZERO                                                         F5G43730    
       03410  0 07400 4 02367        TSX SK,4                                                         F5G43740    
       03411  0 02000 0 03370        TRA CMTSX                                                        F5G43750    
       03412 -0 50000 2 01100 CI7C   CAL INST-1,2        IS THIS AN LXD                               F5G43770    
       03413 -0 32000 0 00343        ANA LFTMSK                                                       F5G43780    
       03414  0 60200 0 00457        SLW TMP10                                                        F5G43790    
       03415  0 50000 0 00457        CLA TMP10                                                        F5G43800    
       03416  0 40200 0 00414        SUB LLXD                                                         F5G43810    
       03417 -0 10000 0 02676        TNZ CI7             NO, GO TO COMPILE THE INST                   F5G43820    
       03420 -0 50000 2 01076        CAL INST-3,2        YES, IS THE TAG 4                            F5G43830    
       03421 -0 32000 0 00337        ANA ADDMK                                                        F5G43840    
       03422  0 40200 0 00320        SUB L4                                                           F5G43850    
       03423 -0 10000 0 02676        TNZ CI7             NO, GO TO COMPILE THE INST.                  F5G43860    
       03424  0 50000 0 00460        CLA CIND            YES.  IS IR4 NECESSARY.                      F5G43870    
       03425  0 12000 0 03460        TPL CI7E            NO, GO TO REPRESS LATER COMPILING OF INST    F5G43880    
       03426 -0 76000 0 00141        MSE 97                CHECK FOR LXP WHICH WAS LXD-D.             F5G43881    
       03427  0 02000 0 03432        TRA CI7C1             NO SUCH.                                   F5G43882    
       03430  0 76000 0 00003        SSP                   THERE WAS, SUPPRESS LATER COMPILING        F5G43883    
       03431  0 02000 0 03460        TRA CI7E              OF INST.                                   F5G43884    
       03432 -0 50000 2 01074  CI7C1 CAL INST-5,2          IS FOLLOWING INSTR AN SXD.                 F5G43885    
       03433 -0 32000 0 00343        ANA LFTMSK                                                       F5G43900    
       03434  0 60200 0 00457        SLW TMP10                                                        F5G43910    
       03435  0 50000 0 00457        CLA TMP10                                                        F5G43920    
       03436  0 40200 0 00411        SUB LSXD                                                         F5G43930    
       03437 -0 10000 0 03450        TNZ CI7D                                                         F5G43940    
       03440 -0 50000 2 01072        CAL INST-7,2        YES, IS THE TAG A 4                          F5G43950    
       03441 -0 32000 0 00337        ANA ADDMK                                                        F5G43960    
       03442  0 40200 0 00320        SUB L4                                                           F5G43970    
       03443 -0 10000 0 03450        TNZ CI7D                                                         F5G43980    
       03444  0 50000 2 01075        CLA INST-4,2    IS SXD FIRST INSTR                               F5G43990    
       03445  0 40200 0 00444        SUB NXTLOC   OF NEXT BB.                                         F5G44000    
       03446  0 10000 0 03450        TZE CI7D     YES, COMPILE LX.                                    F5G44010    
       03447  1 00010 2 02525        TXI FNDAS,2,8     NO--DELETE LX, SX.                             F5G44020    
       03450  0 50000 0 00314 CI7D   CLA ZERO            CLMPILE THE LXD WITH GARBAGE                 F5G44030    
       03451  0 07400 4 02367        TSX SK,4            SYMBOLADDEAA AND TAG 4                       F5G44040    
       03452  0 50000 0 00414        CLA LLXD                                                         F5G44050    
       03453  0 07400 4 02367        TSX SK,4                                                         F5G44060    
       03454  0 50000 0 00354        CLA GSYM                                                         F5G44070    
       03455  0 07400 4 02367        TSX SK,4                                                         F5G44080    
       03456  0 50000 0 00355        CLA T4SYM                                                        F5G44090    
       03457  0 07400 4 02367        TSX SK,4                                                         F5G44100    
       03460  0 60100 0 00461 CI7E   STO CPIND           SURPRESS LATER COMPILING INST  SET +         F5G44110    
       03461  0 02000 0 02700        TRA CKLOC                                                        F5G44120    
       03462  0 50000 2 01076 CI3A   CLA INST-3,2        IS THE S-TAG EQUAL TO 4                      F5G44130    
       03463  0 60200 0 00461        SLW CPIND           RECORD INST. NOT TO BE COMPILED              F5G44140    
       03464 -0 32000 0 00337        ANA ADDMK                                                        F5G44150    
       03465  0 40200 0 00320        SUB L4                                                           F5G44160    
       03466 -0 10000 0 02667        TNZ CI6                                                          F5G44170    
       03467 -0 75400 0 00000        PXD 0,0             YES, RECORD IR4 NOT NECESSARY                F5G44180    
       03470  0 60100 0 00460        STO CIND                                                         F5G44190    
       03471  0 02000 0 02667        TRA CI6             SINCE LXP OR DED, SKIP COMPILING INST.       F5G44200    
                                          THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS   F5G44210    
                                          AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK         F5G44220    
       03472 -0 63400 4 00445 RDINS  SXD OUTBX,4         SAVE RETURN INDEX                            F5G44230    
       03473  0 50000 0 00320        CLA L4  SET ERRBX FOR 5 TRIES                                    F5G44240    
       03474  0 60100 0 00446        STO ERRBX                                                        F5G44250    
       03475 -0 63400 1 00447        SXD BBOX,1          SAVE INDEX 1                                 F5G44260    
       03476 -0 53400 4 00331        LXD LD12,4          SHIFT EX,RA INST FROM END                    F5G44270    
       03477  0 50000 4 00735 D1CLA  CLA NDINS,4         OF BLOCK TO BEGINNING                        F5G44280    
       03500  0 60100 4 01101        STO INST,4                                                       F5G44290    
       03501  2 00001 4 03477        TIX D1CLA,4,1       IS BLOCK SHIFTED                             F5G44300    
       03502  0 76200 0 00224 D1RDS  RTB INSTTP          SELECT INST TAPE                             F5G44310    
       03503  0 53400 1 00362        LXA RECSC,1         YES, SET INDEX FOR NO. OF RECORDS            F5G44320    
       03504  0 70000 4 01065 D1CPY  CPY INST-12,4       COPY BLOCK OF INST                           F5G44330    
       03505  1 00001 4 03504        TXI D1CPY,4,1       SET FOR NEXT WORD                            F5G44340    
       03506  0 02000 0 03516        TRA D2END           END OF FILE                                  F5G44350    
       03507 -2 00001 1 03512        TNX D1BCK,1,1       END OF RECORD    IS IT END OF LAST RECORD    F5G44360    
       03510  0 76200 0 00224        RTB INSTTP          NO, READ NEXT RECORD                         F5G44370    
       03511  0 02000 0 03504        TRA D1CPY                                                        F5G44380    
       03512  0 76600 0 00333 D1BCK  IOD                 TEST FOR TAPE ERROR                          F5G44390    
       03513 -0 76000 0 00012        RTT                                                              F5G44400    
       03514  0 02000 0 03530        TRA INERR           ERROR                                        F5G44410    
       03515  3 00143 4 03525        TXH D1XX,4,ZINST-1   IF 3RD FULL REC. NOT END OF FILE            F5G44420    
       03516 -0 75400 4 00000 D2END  PXD 0,4             REACHED END OF INSTR                         F5G44430    
       03517  0 40000 0 00327        ADD LD8             PUT TEST FOR LAST INST                       F5G44440    
       03520  0 62200 0 02525        STD FNDAS INTO MAIN ROUTINE                                      F5G44450    
       03521  0 50000 0 00363        CLA LCOUT           PUT ADDR 0F FINAL EXIT INTO  MAIN            F5G44460    
       03522  0 60100 0 02526        STO FNDAS+1         ROUTINE                                      F5G44470    
       03523  0 50000 0 00336        CLA ENDMK                                                        F5G44480    
       03524  0 60100 4 01065        STO INST-12,4                                                    F5G44490    
       03525 -0 53400 4 00445 D1XX   LXD OUTBX,4         NO ERROR, RESTORE INDEX REGISTERS            F5G44500    
       03526 -0 53400 1 00447        LXD BBOX,1                                                       F5G44510    
       03527  0 02000 4 00001        TRA 1,4             RETURN TO MAIN ROUTINE                       F5G44520    
       03530  0 50000 0 00446 INERR  CLA ERRBX           ERROR IN READING  IS THIS 1ST TRY            F5G44530    
       03531  0 10000 0 03540        TZE HTRD2           TO READ IN                                   F5G44540    
       03532  0 40200 0 00315        SUB ONEA            YES, STORE INDICATION AND TRY AGAIN          F5G44550    
       03533  0 60100 0 00446        STO ERRBX                                                        F5G44560    
       03534  0 76400 0 00204 D2BST  BST INSTTP          BACKSPACE OVER RECORDS JUST READ             F5G44570    
       03535  1 00001 1 03536        TXI D2TIX,1,1                                                    F5G44580    
       03536 -2 00001 1 03534 D2TIX  TNX D2BST,1,RECNO                                                F5G44590    
       03537  0 02000 0 03502        TRA D1RDS           TAPE BACKSPACED   TRY AGAIN                  F5G44600    
       03540  0 07400 4 00004 HTRD2  TSX 4,4             ERROR ON 5TH TRY  DIAGNOSTIC                 F5G44610    
       03541 -0 53400 2 00331 PASS2  LXD LD12,2                                                       F5G44620    
       03542  0 77200 0 00203        REW OTAPE                                                        F5G44630    
       03543  1 00145 2 03544 1TXI   TXI 1TXI+1,2,ZINST+1                                             F5G44640    
                                          INITIALIZE FOR START OF BB                                  F5G44650    
       03544 -0 63400 2 00450 BEGBB  SXD BBOX1,2         STORE INDEX OF POSITION ON ONST TABOE        F5G44660    
       03545  0 50000 0 00316        CLA ONED                                                         F5G44670    
       03546  0 40000 0 00443        ADD BBNO                                                         F5G44680    
       03547  0 60100 0 00443        STO BBNO                                                         F5G44690    
       03550  0 77100 0 00022        ARS 18              WAS THIS THE LAST BB                         F5G44700    
       03551  0 40200 0 17774        SUB KEYS                                                         F5G44710    
       03552  0 40000 0 00315        ADD ONEA                                                         F5G44720    
       03553  0 10000 0 04413        TZE LSTBB           YES, GL  GO WRITE PARTIAL BLOLK              F5G44730    
       03554  0 50000 0 01101        CLA SXST              NO                                         F5G44740    
       03555 -0 12000 0 03560        TMI BEGBBY                                                       F5G44750    
       03556  0 50000 0 00337        CLA ADDMK                                                        F5G44760    
       03557  0 60100 0 01101        STO SXST                                                         F5G44770    
       03560  0 50000 0 00443 BEGBBY CLA BBNO                                                         F5G44780    
       03561  0 07400 4 00070        TSX SE,4                                                         F5G44790    
       03562 -0 50000 1 12535        CAL BBB+2,1         GET ENTRANCE REQUIREMENT                     F5G44800    
       03563  0 77100 0 00022        ARS 18              FOR IR4                                      F5G44810    
       03564  0 40200 0 00340        SUB STMSK           STORE + OR - IF IR4                          F5G44820    
       03565  0 60100 0 00460        STO CIND            ISNT OR IS NECESSARY                         F5G44830    
       03566  0 50000 0 00315        CLA ONEA            RECORD THERE ISNT HANGING TRA 0              F5G44840    
       03567  0 60100 0 00660        STO SLV3                                                         F5G44650    
       03570 -0 50000 0 00443        CAL BBNO            FIND THE 1ST INST IN NEXT                    F5G44860    
       03571  0 40000 0 00316        ADD ONED                                                         F5G44870    
       03572  0 07400 4 00070        TSX SE,4            BB                                           F5G44880    
       03573  0 50000 1 12540        CLA BBB+5,1                                                      F5G44890    
       03574  0 60100 0 00444        STO NXTLOC                                                       F5G44900    
                                          DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5            F5G44910    
       03575  0 56000 0 00314 Z1     LDQ ZERO            INITIALIZE THE EXISTENCE                     F5G44920    
       03576 -0 60000 0 00667        STQ Z1V5            INDICATOR WORD                               F5G44930    
       03577  0 50000 1 12533        CLA BBB,1           GET AND STORE NO. OF 1ST PRED IN             F5G44940    
       03600  0 62100 0 00665        STA Z1V2            NEXT BB                                      F5G44950    
       03601 -0 50000 0 00443        CAL BBNO                                                         F5G44960    
       03602  0 07400 4 00070        TSX SE,4                                                         F5G44970    
       03603 -0 50000 1 12533        CAL BBB,1           STORE THE NO OF                              F5G44980    
       03604  0 62100 0 00666        STA Z1V3            1ST PRED IN                                  F5G44990    
       03605  0 62100 0 00670        STA Z1V8            THIS BB                                      F5G45000    
       03606  0 50000 0 00666        CLA Z1V3                                                         F5G45010    
       03607  0 34000 0 00665 Z15    CAS Z1V2            IS THIS PRED IN SAME BB                      F5G45020    
       03610  0 02000 0 03612        TRA Z12             YES                                          F5G45030    
       03611  0 02000 0 03626        TRA Z2              NO                                           F5G45040    
       03612  0 07400 4 00055 Z12    TSX SE5,4                                                        F5G45050    
       03613  0 50000 1 15674        CLA PRED,1          DETERMINE THE                                F5G45060    
       03614 -0 32000 0 00332        ANA LT7             LXD CASE                                     F5G45070    
       03615  0 76700 0 00003        ALS 3                                                            F5G45080    
       03616 -0 73400 4 00000        PDX 0,4                                                          F5G45090    
       03617 -0 50000 0 00416        CAL Z1K3            STORE BIT AS INDICATOR                       F5G45100    
       03620  0 77100 4 00007        ARS 7,4             FOR THIS                                     F5G45110    
       03621 -0 60200 0 00667        ORS Z1V5            LXD CASE                                     F5G45120    
       03622  0 50000 0 00666        CLA Z1V3                                                         F5G45130    
       03623  0 40000 0 00315        ADD ONEA            ARRANGE TO DEAL WITH NEXT                    F5G45140    
       03624  0 62100 0 00666        STA Z1V3            PRED                                         F5G45150    
       03625  0 02000 0 03607        TRA Z15                                                          F5G45160    
                                          THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN   F5G45170    
                                          Z1V5 BY Z1                                                  F5G45180    
       03626  0 56000 0 00314 Z2     LDQ ZERO                                                         F5G45190    
       03627  0 53400 1 00422        LXA Z2K2,1                                                       F5G45200    
       03630 -0 60000 1 00715 Z21    STQ LLIND,1         SET THE 3 INDEXDS TO THE SUB                 F5G45210    
       03631  0 50000 1 00422        CLA Z2K1+3,1        BOTT0M POSITIONS                             F5G45220    
       03632  0 40200 0 00316        SUB ONED            IN THE 3 LISTS AND ALL                       F5G45230    
       03633  0 60100 1 00674        STO Z2V1+3,1        INDICATORS TO SAY COMPILED                   F5G45240    
       03634  2 00001 1 03630        TIX Z21,1,1                                                      F5G45250    
       03635 -0 53400 1 00331        LXD LD12,1                                                       F5G45260    
       03636  0 50000 0 00416        CLA MZE             PLACE -0 S IN THE                            F5G45270    
       03637  0 60100 1 00712 Z28    STO LIST1+12,1      LXD LISTS                                    F5G45280    
       03640  2 00001 1 03637        TIX Z28,1,1                                                      F5G45290    
       03641 -0 53400 1 00422        LXD Z2K2,1          SET TO BEGINNING OF CASE LIST                F5G45300    
       03642  0 56000 0 00667 Z25    LDQ Z1V5            DID                                          F5G45310    
       03643  0 50000 1 00432        CLA CASE+7,1        THIS                                         F5G45320    
       03644  0 73400 2 00000        PAX 0,2             CASE                                         F5G45330    
       03645 -0 77300 2 00007        RQL 7,2             OCCURR                                       F5G45340    
       03646  0 16200 0 03711        TQP Z26                                                          F5G45350    
       03647  0 50000 0 00434        CLA Z2K5            YES, SET NO OF ONES IN                       F5G45360    
       03650  0 60100 0 00674        STO Z2V2            DIFFERENCE TO HIGH NUMBER                    F5G45370    
       03651  0 53400 2 00422        LXA Z2K2,2          INITIALIZE TO 1ST LIST                       F5G45380    
       03652  0 56000 0 00314    Z23 LDQ ZERO        IS P004                                          F5G45390    
       03653  0 50000 2 00674        CLA Z2V1+3,2                                                     F5G45400    
       03654 -0 73400 4 00000   R004 PDX 0,4    QUANTITY IN THE LIST                                  F5G45410    
       03655  0 50000 4 00676        CLA LIST1,4         IS THE TOP                                   F5G45420    
       03656 -0 32000 1 00432        ANA CASE+7,1        YES, DETERMINE                               F5G45430    
       03657 -0 40000 4 00676        SBM LIST1,4         CONTAINED IN THIS                            F5G45440    
       03660 -0 10000 0 03676        TNZ Z27             CASE                                         F5G45450    
       03661  0 50000 1 00432        CLA CASE+7,1        YES, DETERMINE                               F5G45460    
       03662  0 40200 4 00676        SUB LIST1,4         THE NO.                                      F5G45470    
       03663  0 76500 0 00025        LRS 21              OF ONES                                      F5G45480    
       03664  0 20000 0 00433        MPY Z2K4            IN THE                                       F5G45490    
       03665  0 62100 0 03667        STA Z22 LOGICAL                                                  F5G45500    
       03666  0 50000 0 00432        CLA Z2K3            DIFFERENCE                                   F5G45510    
       03667  0 77100 0 00000 Z22    ARS SET                                                          F5G45520    
       03670 -0 32000 0 00434        ANA Z2K5                                                         F5G45530    
       03671  0 34000 0 00674        CAS Z2V2              IS THE NUMBER 0F ONES IN THE               F5G45540    
       03672  0 02000 0 03676        TRA Z27               DIFFERENCE LESS THAN OR EQUAL TO           F5G45550    
       03673  0 02000 0 03676        TRA Z27               THE PREVIOUS MINIMUM.  NO                  F5G45560    
       03674  0 60100 0 00674        STO Z2V2 ,          YES, STORE NEW MIN                           F5G45570    
       03675 -0 63400 2 00675        SXD Z2V3,2          STORE INDEX OF LIST OF GIVING NEW MIN        F5G45580    
       03676  2 00001 2 03652 Z27    TIX Z23,2,1         COUNT TO 3 LISTS   ARE WE THRU               F5G45590    
       03677 -0 53400 2 00675        LXD Z2V3,2          UES, GET INDEX OF L1ST WIIH MIN DIFF         F5G45600    
       03700  0 50000 2 00674        CLA Z2V1+3,2        STIRE                                        F5G45610    
       03701 -0 73400 4 00000        PDX 0,4             THIS                                         F5G45620    
       03702  0 50000 1 00432        CLA CASE+7,1        CASE AT TOP OF                               F5G45630    
       03703  1 00001 4 03704 Z24    TXI Z24+1,4,1       THAT LIST                                    F5G45640    
       03704  0 60100 4 00676        STO LIST1,4                                                      F5G45650    
       03705 -0 75400 4 00000        PXD 0,4             STORE INDEX OF TOP                           F5G45660    
       03706  0 60100 2 00674        STO Z2V1+3,2        POSITION IN THAT LIST                        F5G45670    
       03707  0 50000 0 00416        CLA MZE             STORE INDICATION THAT THE                    F5G45680    
       03710  0 60100 2 00715        STO LLIND,2         LIST IS TO BE COMPILED                       F5G45690    
       03711  2 00001 1 03642 Z26    TIX Z25,1,1         COUNT THE 7 CASES                            F5G45700    
                                          EXPAND TNE LXD LISTS                                        F5G45710    
       03712  0 50000 0 00434 Z3     CLA Z2K5            IS THE                                       F5G45720    
       03713 -0 40000 0 00700        SBM LIST1+2         BOTTOM ENTRY OF                              F5G45730    
       03714  0 10000 0 04003        TZE Z307            LIST1 A CASE 7                               F5G45740    
       03715  0 50000 0 00700        CLA LIST1+2         NO, DO THE BOTTOMS                           F5G45750    
       03716 -0 32000 0 00704        ANA LIST2+2         OF LISTS 1 AND 2 HAVE                        F5G45760    
       03717  0 10000 0 03766        TZE Z35             A NON ZERO INTERSECTION                      F5G45770    
       03720  0 34000 0 00700        CAS LIST1+2         YES, DOES 1NTERSECTION EQUAL 1               F5G45780    
       03721  0 02000 0 03723        TRA Z31                                                          F5G45790    
       03722  0 02000 0 03760        TRA Z33             YES                                          F5G45800    
       03723  0 34000 0 00704 Z31    CAS LIST2+2         IS IT EQUAL TO BOTTOM OF 2                   F5G45810    
       03724  0 02000 0 03726        TRA Z32                                                          F5G45820    
       03725  0 02000 0 03763        TRA Z34             YES                                          F5G45830    
       03726  0 60100 0 00701 Z32    STO LIST1+3         STORE INTERSECTION IN SUB1                   F5G45840    
       03727 -0 76000 0 00003        SSM                 POSITITON AND -(INTER.) IN                   F5G45850    
       03730  0 60100 0 00705        STO LIST2+3         SUB2 POS.                                    F5G45860    
       03731  0 02000 0 04015        TRA Z306                                                         F5G45870    
       03732 -0 76000 0 00003 Z38    SSM                 ENTER -INTER1 AND 3                          F5G45880    
       03733  0 60100 0 00711        STO LIST3+3         IN SUB3 POS.                                 F5G45890    
       03734  0 02000 0 04015        TRA Z306                                                         F5G45900    
       03735 -0 76000 0 00003 Z39    SSM                 ENTER - INTER 1 AND 3                        F5G45910    
       03736  0 60100 0 00701        STO LIST1+3         INSUV1 POS.                                  F5G45920    
       03737  0 02000 0 04015        TRA Z306                                                         F5G45930    
       03740  0 50000 0 00704 Z300   CLA LIST2+2         DO BOTTOM ENTRIES                            F5G45940    
       03741 -0 32000 0 00710        ANA LIST3+2         OF 2 AND 3 HAVE                              F5G45950    
       03742  0 10000 0 04015        TZE Z306            NONZERO INTERSECTION                         F5G45960    
       03743  0 34000 0 00704        CAS LIST2+2         YES, IS INTRE 2 AND 3                        F5G45970    
       03744  0 02000 0 03746        TRA Z301                                                         F5G45980    
       03745  0 02000 0 03755        TRA Z303            YES                                          F5G45990    
       03746  0 34000 0 00710 Z301   CAS LIST3+2         IS INTERSECTION EQUAL TO BOTTOM OF LIST 3    F5G46000    
       03747  0 02000 0 03751        TRA Z302                                                         F5G46010    
       03750  0 02000 0 04013        TRA Z304            YES                                          F5G46020    
       03751  0 60100 0 00711 Z302   STO LIST3+3         STORE INTER 2 AND 3 IN SUB 3 POS.            F5G46030    
       03752 -0 76000 0 00003        SSM                 AND -INTER IN                                F5G46040    
       03753  0 60100 0 00705        STO LIST2+3         SUB 2 POS.                                   F5G46050    
       03754  0 02000 0 04015        TRA Z306                                                         F5G46060    
       03755 -0 76000 0 00003 Z303   SSM                 ENTER -(INTER 2 AND 3 )                      F5G46070    
       03756  0 60100 0 00711        STO LIST3+3         IN SUB 3 POS.                                F5G46080    
       03757  0 02000 0 04015        TRA Z306                                                         F5G46090    
       03760 -0 76000 0 00003 Z33    SSM                 ENTER -(INTER 1 AND 2 )                      F5G46100    
       03761  0 60100 0 00705        STO LIST2+3         IN SUB 2 POS.                                F5G46110    
       03762  0 02000 0 04015        TRA Z306                                                         F5G46120    
       03763 -0 76000 0 00003 Z34    SSM                 STORE -(INTER 1 AND 2 )                      F5G46130    
       03764  0 60100 0 00701        STO LIST1+3         IN SUB 1 POS.                                F5G46140    
       03765  0 02000 0 04015        TRA Z306                                                         F5G46150    
       03766  0 50000 0 00700 Z35    CLA LIST1+2         DO BOTTOM ENTRIES IN                         F5G46160    
       03767 -0 32000 0 00710        ANA LIST3+2         1 AND 3 HAVE NONZERO                         F5G46170    
       03770  0 10000 0 03740        TZE Z300            INTERSECTION                                 F5G46180    
       03771  0 34000 0 00700        CAS LIST1+2         YES, IS IT EQUAL TO BOT. 1                   F5G46190    
       03772  0 02000 0 03774        TRA Z36                                                          F5G46200    
       03773  0 02000 0 03732        TRA Z38             YES                                          F5G46210    
       03774  0 34000 0 00710 Z36    CAS LIST3+2         TO THE BOTTOM ENTRY IN 3                     F5G46220    
       03775  0 02000 0 03777        TRA Z37                                                          F5G46230    
       03776  0 02000 0 03735        TRA Z39             YES                                          F5G46240    
       03777  0 60100 0 00711 Z37    STO LIST3+3         ENTER INTER 1 AND 3 IN SUB                   F5G46250    
       04000 -0 76000 0 00003        SSM                 3 POS. AND -( INTER ) IN                     F5G46260    
       04001  0 60100 0 00701        STO LIST1+3         SUB1 POS.                                    F5G46270    
       04002  0 02000 0 04015        TRA Z306                                                         F5G46280    
       04003 -0 63400 0 00671 Z307   SXD Z2V1,0          CREATE THE LIST                              F5G46290    
       04004  0 50000 0 00321        CLA L7                                                           F5G46300    
       04005  0 60100 0 00676        STO LIST1                                                        F5G46310    
       04006  0 50000 0 00317        CLA L3                                                           F5G46320    
       04007  0 60100 0 00677        STO LIST1+1                                                      F5G46330    
       04010  0 50000 0 00315        CLA ONEA                                                         F5G46340    
       04011  0 60100 0 00700        STO LIST1+2                                                      F5G46350    
       04012  0 02000 0 04053        TRA Z4                                                           F5G46360    
       04013 -0 76000 0 00003 Z304   SSM                 ENTER  - INTER 2 AND 3                       F5G46370    
       04014  0 60100 0 00705 Z305   STO LIST2+3         INSUB2 POS.                                  F5G46300    
       04015 -0 53400 2 00324 Z306   LXD LD3,2           SET COUNT TO 3                               F5G46390    
       04016  0 53400 1 00314        LXA ZERO,1          SET TO INSPECT 1ST LIST                      F5G46400    
       04017  0 50000 1 00700 Z309   CLA LIST1+2,1                                                    F5G46410    
       04020  0 10000 0 04031        TZE Z308            IS THE BOTTOM ENTRY ZERO                     F5G46420    
       04021  0 40200 0 00315        SUB ONEA            NO                                           F5G46430    
       04022 -0 32000 1 00700        ANA LIST1+2,1       DOES IT HAVE TWO ONES                        F5G46440    
       04023  0 10000 0 04031        TZE Z308                                                         F5G46450    
       04024  0 60100 0 00457        STO TMP10           YES                                          F5G46460    
       04025  0 50000 1 00701        CLA LIST1+3,1       IS THE SUB BOTTOM                            F5G46470    
       04026 -0 10000 0 04031        TNZ Z308            ENTRY ZERO                                   F5G46480    
       04027  0 50000 0 00457        CLA TMP10           YES                                          F5G46490    
       04030  0 60100 1 00701        STO LIST1+3,1                                                    F5G46500    
       04031  1 77774 1 04032 Z308   TXI Z308+1,1,-4     PREPARE FOR NEXT LIST                        F5G46510    
       04032  2 00001 2 04017        TIX Z309,2,1        COUNT TO 3                                   F5G46520    
       04033  0 50000 0 00434        CLA Z2K5                                                         F5G46530    
       04034 -0 40000 0 00677        SBM LIST1+1                                                      F5G46540    
       04035 -0 10000 0 04053        TNZ Z4                                                           F5G46550    
       04036  0 50000 0 00700        CLA LIST1+2                                                      F5G46560    
       04037  0 40200 0 00315        SUB ONEA                                                         F5G46570    
       04040 -0 32000 0 00700        ANA LIST1+2                                                      F5G46580    
       04041 -0 10000 0 04053        TNZ Z4                                                           F5G46590    
       04042  0 50000 0 00700        CLA LIST1+2                                                      F5G46600    
       04043  0 60100 0 00701        STO LIST1+3                                                      F5G46610    
       04044  0 50000 0 00434        CLA Z2K5                                                         F5G46620    
       04045  0 40200 0 00700        SUB LIST1+2                                                      F5G46630    
       04046  0 60100 0 00700        STO LIST1+2                                                      F5G46640    
       04047  0 40200 0 00315        SUB ONEA                                                         F5G46650    
       04050  0 32000 0 00700        ANS LIST1+2                                                      F5G46660    
       04051 -0 50000 0 00701        CAL LIST1+3                                                      F5G46670    
       04052 -0 60200 0 00700        ORS LIST1+2                                                      F5G46680    
                                          DETECT AND COMPILE ANY SEQUENTIAL TRANSFER                  F5G46690    
       04053  0 56000 0 00416 Z4     LDQ MZE             PUT MINUS ZEROS IN                           F5G46700    
       04054 -0 60000 0 01125        STQ SXAS            THE ASS0XIATED                               F5G46710    
       04055  0 53400 4 00322        LXA L19,4           SXDPOSIT1ONS                                 F5G46720    
       04056 -0 60000 4 01125 Z411   STQ SXST+20,4                                                    F5G46730    
       04057  2 00001 4 04056        TIX Z411,4,1                                                     F5G46740    
       04060  0 50000 0 01101        CLA SXST                                                         F5G46750    
       04061 -0 12000 0 04140        TMI Z5              IS THERE A SEQUENTIAL TRANSFER               F5G46760    
       04062 -0 50000 0 00443        CAL BBNO            YES                                          F5G46770    
       04063  0 77100 0 00022        ARS 18                                                           F5G46780    
       04064  0 40200 0 00315        SUB ONEA                                                         F5G46790    
       04065  0 60100 0 00457        STO TMP10           PUT NO OF PREV. BB IN TMP10                  F5G46800    
       04066  0 50000 0 00670        CLA Z1V8            INITIALIZE 1ST PRED NO THIS BB               F5G46810    
       04067  0 60100 0 00666 Z49    STO Z1V3                                                         F5G46820    
       04070  0 07400 4 00055        TSX SE5,4                                                        F5G46830    
       04071 -0 50000 1 15674        CAL PRED,1                                                       F5G46840    
       04072 -0 32000 0 00337        ANA ADDMK           IS THIS THE SEQUENTIAL                       F5G46850    
       04073  0 40200 0 00457        SUB TMP10           TRANSFERS PRED ENTRY                         F5G46860    
       04074  0 10000 0 04100        TZE Z410                                                         F5G46870    
       04075 -0 50000 0 00666        CAL Z1V3            NO, TRY NEXT ONE                             F5G46880    
       04076  0 40000 0 00315        ADD ONEA                                                         F5G46890    
       04077  0 02000 0 04067        TRA Z49                                                          F5G46900    
       04100  0 50000 0 00666 Z410   CLA Z1V3            GET THE PRED NO                              F5G46910    
       04101  0 07400 4 02211        TSX SH,4            FORM THE SXD CASE                            F5G46920    
       04102  0 50000 0 00466        CLA SXD1                                                         F5G46930    
       04103  0 40000 0 00467        ADD SXD2                                                         F5G46940    
       04104  0 40000 0 00470        ADD SXD3                                                         F5G46950    
       04105  0 10000 0 04117        TZE Z44             IS THIS A 0 SXD CASE                         F5G46960    
       04106  0 53400 4 00320        LXA L4,4            ISNT 0 SXD CASE                              F5G46970    
       04107  0 50000 4 00471 Z41    CLA SXD1+3,4        RECORD SXD CASE                              F5G46980    
       04110  0 60100 4 01105        STO SXST+4,4        IN POSITION ASSOCIATED                       F5G46990    
       04111  2 00001 4 04107        TIX Z41,4,1         WITH SEQUENTIAL TRANSFER                     F5G47000    
       04112  0 53400 1 00314        LXA ZERO,1          COMPILE THE SXD                              F5G47010    
       04113  0 07400 4 02242        TSX SI,4            INST. WITH                                   F5G47020    
       04114  0 02000 0 04140        TRA Z47             (1) ASSOCIATED SXD WITH 0 LXD CASE           F5G47030    
       04115  0 07400 4 02440 Z42    TSX SM,4            (2)ASSOCIATED       WITH AN LXD LIST         F5G47040    
       04116  0 02000 0 04140        TRA Z47             (3) NOT ASSOCIATED  ( TRA COMPILED )         F5G47050    
       04117 -0 53400 4 00465 Z44    LXD SXD0,4                                                       F5G47060    
       04120 -3 00000 4 04136        TXL Z46,4,0         DOES IT HAVE A 0 LXD CASE                    F5G47070    
       04121 -0 75400 4 00000        PXD 0,4             NO                                           F5G47080    
       04122  0 77100 0 00022        ARS 18              LXD CASE TO AC  (ADDR)                       F5G47090    
       04123  0 60100 0 00715        STO Z4V1                                                         F5G47100    
       04124 -0 53400 2 00324        LXD LD3,2           SET COUNT TO 3 , N=1                         F5G47110    
       04125  0 50000 2 00674 Z45    CLA Z2V1+3,2        GET INDEX                                    F5G47120    
       04126 -0 73400 1 00000        PDX 0,1             OF TOP QUANTITY IN LIST N                    F5G47130    
       04127  0 50000 1 00676        CLA LIST1,1         IS THE LXD CASE OF THIS SXD                  F5G47140    
       04130  0 40200 0 00715        SUB Z4V1            CASE THE SAME AS                             F5G47150    
       04131  0 10000 0 04115        TZE Z42             THE TOP  QUANTITY IN LIST N                  F5G47160    
       04132  2 00001 2 04125        TIX Z45,2,1         NO, COUNT TO 3                               F5G47170    
       04133  0 50000 0 00715        CLA Z4V1            COMPILE A                                    F5G47180    
       04134  0 07400 4 02403        TSX SL,4            TRA  (LXD )                                  F5G47190    
       04135  0 02000 0 04140        TRA Z47                                                          F5G47200    
       04136  0 50200 0 00315 Z46    CLS ONEA            RECORD THAT THERE                            F5G47210    
       04137  0 60100 0 00660 Z48    STO SLV3            IS A HANGING TRA 0CASE                       F5G47220    
                        04140 Z47    SYN Z48+1                                                        F5G47230    
                                          FORM THE SXD LIST AND THE SYN CARD LIST                     F5G47240    
       04140  0 50000 0 00316 Z5     CLA ONED            SET INDEX IN SYN TABLE                       F5G47250    
       04141  0 60100 0 00716        STO Z5V1                                                         F5G47260    
       04142  0 50000 0 00670        CLA Z1V8            RESET 1 ST PRED IN BB                        F5G47270    
       04143  0 60100 0 00666 Z53    STO Z1V3                                                         F5G47280    
       04144  0 40200 0 00665        SUB Z1V2            IS THIS PRED IN SAME BB                      F5G47290    
       04145  0 10000 0 04263        TZE Z6              NO, ADD FINISHED                             F5G47300    
       04146  0 50000 0 01101        CLA SXST            YES                                          F5G47310    
       04147 -0 12000 0 04153        TMI Z51             WAS THERE A SEQUENTIAL TRANSFER              F5G47320    
       04150 -0 32000 0 00337        ANA ADDMK           YES, EXTRACT ADDRESS                         F5G47330    
       04151  0 40200 0 00666        SUB Z1V3            HAS PRED ALREDY BEEN CONSIDERED              F5G47340    
       04152  0 10000 0 04213        TZE Z55             AS A SEQUENTIAL TRANSFER                     F5G47350    
       04153  0 50000 0 00666 Z51    CLA Z1V3            NO                                           F5G47360    
       04154  0 07400 4 02211        TSX SH,4            GENERATE SXD CASE                            F5G47370    
       04155  0 50000 0 00466        CLA SXD1            IS THE                                       F5G47380    
       04156  0 40000 0 00467        ADD SXD2            SXD CASE                                     F5G47390    
       04157  0 40000 0 00470        ADD SXD3            ZERO                                         F5G47400    
       04160  0 10000 0 04213        TZE Z55                                                          F5G47410    
       04161  0 53400 1 00314        LXA ZERO,1          NO, PREPARE T  SCAN SXD LIST                 F5G47420    
       04162  0 50000 1 01101 Z503   CLA SXST,1          IS               SUBSXD0                     F5G47430    
       04163 -0 32000 0 00335        ANA DECMK                                                        F5G47440    
       04164  0 60100 0 00457        STO TMP10                                                        F5G47450    
       04165  0 50000 0 00465        CLA SXD0                                                         F5G47460    
       04166 -0 32000 0 00335        ANA DECMK                                                        F5G47470    
       04167  0 40200 0 00457        SUB TMP10                                                        F5G47480    
       04170 -0 10000 0 04216        TNZ Z54                                                          F5G47490    
       04171  0 50000 1 01102        CLA SXST+1,1        THIS SXD CASE                                F5G47500    
       04172  0 40200 0 00466        SUB SXD1                                                         F5G47510    
       04173 -0 10000 0 04216        TNZ Z54                                                          F5G47520    
       04174  0 50000 1 01103        CLA SXST+2,1        SAME AS                                      F5G47530    
       04175  0 40200 0 00467        SUB SXD2                                                         F5G47540    
       04176 -0 10000 0 04216        TNZ Z54                                                          F5G47550    
       04177  0 50000 1 01104        CLA SXST+3,1        THE ONE ALREADY                              F5G47560    
       04200  0 40200 0 00470        SUB SXD3            STORED                                       F5G47570    
       04201 -0 10000 0 04216        TNZ Z54                                                          F5G47580    
       04202  0 50000 1 01101        CLA SXST,1          YES, STORE INDICATION                        F5G47590    
       04203 -0 53400 2 00716        LXD Z5V1,2                                                       F5G47600    
       04204 -0 32000 0 00337        ANA ADDMK           SYN,2  CARD                                  F5G47610    
       04205  0 60100 2 02125        STO SYN,2           IN THE                                       F5G47620    
       04206  0 50000 0 00465        CLA SXD0            SYN                                          F5G47630    
       04207  0 76700 0 00022        ALS 18              LIST                                         F5G47640    
       04210  0 62200 2 02125        STD SYN,2                                                        F5G47650    
       04211  1 00001 2 04212 Z52    TXI Z52+1,2,1                                                    F5G47660    
       04212 -0 63400 2 00716        SXD Z5V1,2                                                       F5G47670    
       04213  0 50000 0 00666 Z55    CLA Z1V3            PREPARE TO DEAL WITH NEXT PRED               F5G47680    
       04214  0 40000 0 00315        ADD ONEA                                                         F5G47690    
       04215  0 02000 0 04143        TRA Z53                                                          F5G47700    
       04216  0 50000 1 01101 Z54    CLA SXST,1                                                       F5G47710    
       04217  0 12000 0 04232        TPL Z502            IS THIS SXD POS. EMPTY                       F5G47720    
       04220 -0 53400 2 00324        LXD LD3,2           YES                                          F5G47730    
       04221 -3 00000 1 04232        TXL Z502,1,0        IS THIS ST CASE                              F5G47740    
       04222  3 77773 1 04233        TXH Z504,1,-4-1     NO, IS THIS 0 LIST CASE                      F5G47750    
       04223  3 77767 1 04242        TXH Z507,1,-8-1     NO             1ST                           F5G47760    
       04224  3 77763 1 04241        TXH Z506,1,-12-1                2ED                              F5G47770    
       04225  3 77757 1 04240        TXH Z505,1,-16-1                3RD                              F5G47780    
       04226  0 07400 4 04252        TSX Z500,4          ENTER THE SXD CASE IN THE LIST               F5G47790    
       04227  0 50000 0 00416        CLA MZE                                                          F5G47800    
       04230  0 60100 1 01105        STO SXST+4,1        STORE END MARK FOR SYN CAEDS                 F5G47810    
       04231  0 02000 0 04213        TRA Z55                                                          F5G47820    
       04232  1 77774 1 04162 Z502   TXI Z503,1,-4       EXAMINE NEXT SXD CASE                        F5G47830    
       04233 -0 50000 0 00465 Z504   CAL SXD0            ZERO LIST CASE                               F5G47840    
       04234 -0 32000 0 00335        ANA DECMK           IS THE LXD CASE 0                            F5G47850    
       04235 -0 10000 0 04232        TNZ Z502                                                         F5G47860    
       04236  0 07400 4 04252        TSX Z500,4          YES, ENTER SXD CASE IN                       F5G47870    
       04237  0 02000 0 04213        TRA Z55             ASSOCIATED       POSITION                    F5G47880    
       04240  2 00001 2 04241 Z505   TIX Z505+1,2,1      GENERATE INDEX OF LIST                       F5G47890    
       04241  2 00001 2 04242 Z506   TIX Z506+1,2,1                                                   F5G47900    
       04242 -0 50000 2 00674 Z507   CAL Z2V1+3,2        IS                                           F5G47910    
       04243 -0 73400 4 00000        PDX 0,4             THE                                          F5G47920    
       04244  0 50000 0 00465        CLA SXD0            LXD                                          F5G47930    
       04245  0 77100 0 00022        ARS 18              CASE THE                                     F5G47940    
       04246  0 40200 4 00676        SUB LIST1,4         SAME                                         F5G47950    
       04247 -0 10000 0 04232        TNZ Z502                                                         F5G47960    
       04250  0 07400 4 04252        TSX Z500,4          YES                                          F5G47970    
       04251  0 02000 0 04213        TRA Z55                                                          F5G47980    
                                          SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST                F5G47990    
       04252  0 50000 0 00465 Z500   CLA SXD0                                                         F5G48000    
       04253  0 60100 1 01101        STO SXST,1                                                       F5G48010    
       04254  0 50000 0 00466        CLA SXD1                                                         F5G48020    
       04255  0 60100 1 01102        STO SXST+1,1                                                     F5G48030    
       04256  0 50000 0 00467        CLA SXD2                                                         F5G48040    
       04257  0 60100 1 01103        STO SXST+2,1                                                     F5G48050    
       04260  0 50000 0 00470        CLA SXD3                                                         F5G48060    
       04261  0 60100 1 01104        STO SXST+3,1                                                     F5G48070    
       04262  0 02000 4 00001        TRA 1,4                                                          F5G48080    
                                          COMPILE THE SXD LIST                                        F5G48090    
       04263  0 53400 1 00333 Z6     LXA LM20,1          SET TO START OF SXD LIST                     F5G48100    
       04264  0 50000 1 01101 Z61    CLA SXST,1                                                       F5G48110    
       04265 -0 12000 0 04274        TMI Z7              IS THIS SXD POSITION EMPTY                   F5G48120    
       04266 -0 63400 1 04271        SXD Z6V1,1          NO                                           F5G48130    
       04267  0 07400 4 02242        TSX SI,4            COMPILE THE SXD CASE WITH                    F5G48140    
       04270  0 76100 0 00000        NOP                 (1)   0 LXD CASE,  OR                        F5G48150    
       04271  3 00000 0 00000 Z6V1   TXH 0,0,SET         (2) THIS RETURN CANT OCCURR                  F5G48160    
       04272 -0 53400 1 04271        LXD Z6V1,1          (3) TRA ALREADY CONPILED                     F5G48170    
       04273  1 77774 1 04264        TXI Z61,1,-4                                                     F5G48180    
                                          COMPILE TNE LXD LISTS AND ASSOCIATED SXD S                  F5G48190    
       04274 -0 53400 2 00324 Z7     LXD LD3,2           SET TO BEGIN SCAN OF LISTS                   F5G48200    
       04275  0 50000 2 00422 Z72    CLA Z2K1+3,2                                                     F5G48210    
       04276 -0 73400 1 00000        PDX 0,1             PUT INDEX OF BOTTOM POSITION IN 1            F5G48220    
       04277  0 50000 1 00676        CLA LIST1,1                                                      F5G48230    
       04300 -0 12000 0 04350        TMI Z75             YES, IS IT A TRA(0) CASE                     F5G48240    
       04301  0 10000 0 04320        TZE Z73             IS THE LIST FILLED                           F5G48250    
       04302  0 50000 1 00677        CLA LIST1+1,1       PERHAPS, IS IT A FOR SURE                    F5G48260    
       04303  0 10000 0 04350        TZE Z75              IT IS IF EITHER THE SUB BOTTOM              F5G48270    
       04304  0 12000 0 04350        TPL Z75             ENTRY IS -0 OR POSITIVE                      F5G48280    
       04305  0 50000 0 00720        CLA Z7V2                                                         F5G48290    
       04306 -0 12000 0 04320        TMI Z73             IS THIS 1ST TIME THRU                        F5G48300    
       04307  0 50000 2 00443 Z76    CLA Z7K1+3,2        YES                                          F5G48310    
       04310 -0 73400 1 00000        PDX 0,1             IS THERE ASSOCIATED                          F5G48320    
       04311  0 50000 1 01101        CLA SXST,1          SXDLIST                                      F5G48330    
       04312 -0 63400 2 00717        SXD Z7V1,2                                                       F5G48340    
       04313 -0 12000 0 04344        TMI Z74                                                          F5G48350    
       04314  0 07400 4 02242        TSX SI,4            YES, COMPILE SXD CASE                        F5G48360    
       04315  0 02000 0 04317        TRA Z71                                                          F5G48370    
       04316  0 02000 0 04333        TRA Z77             COMPILE                                      F5G48380    
       04317 -0 53400 2 00717 Z71    LXD Z7V1,2                                                       F5G48390    
       04320  2 00001 2 04275 Z73    TIX Z72,2,1         COUNT TO 3                                   F5G46400    
       04321  0 50200 0 00720        CLS Z7V2            IS THIS 1ST TIME THRU                        F5G48410    
       04322  0 60100 0 00720        STO Z7V2                                                         F5G48420    
       04323 -0 12000 0 04274        TMI Z7              YES, OO BACK     CLASXST                     F5G48430    
       04324  0 50000 0 01105        CLA SXAS0           IS THERE A 0 ASSOCIATED SXD CASE             F5G46440    
       04325 -0 12000 0 04353        TMI Z8                                                           F5G48450    
       04326  0 53400 1 00334        LXA LM4,1           YES                                          F5G48460    
       04327  0 07400 4 02242        TSX SI,4            COMPILE SXD CASE                             F5G48470    
       04330  0 02000 0 04353        TRA Z8                                                           F5G48480    
       04331  0 02000 0 04353        TRA Z8                                                           F5G48490    
       04332  0 02000 0 04353        TRA Z8                                                           F5G48500    
       04333 -0 53400 2 00717 Z77    LXD Z7V1,2                                                       F5G46510    
       04334  0 50000 2 00715        CLA Z4V1,2                                                       F5G48520    
       04335 -0 12000 0 04344        TMI Z74                                                          F5G48530    
       04336  0 50000 2 00443        CLA Z7K1+3,2                                                     F5G48540    
       04337 -0 73400 1 00000        PDX 0,1                                                          F5G48550    
       04340  0 50000 1 01101        CLA SXST,1                                                       F5G48560    
       04341  0 77100 0 00022        ARS 18                                                           F5G46570    
       04342  0 07400 4 02403        TSX SL,4                                                         F5G48580    
       04343  0 02000 0 04317        TRA Z71                                                          F5G48590    
       04344  0 50000 2 00674 Z74    CLA Z2V1+3,2        COMPILE THE LXD LIST                         F5G48600    
       04345 -0 73400 1 00000        PDX 0,1                                                          F5G48610    
       04346  0 07400 4 02440        TSX SM,4                                                         F5G48620    
       04347  0 02000 0 04317        TRA Z71                                                          F5G48630    
       04350  0 50000 0 00720 Z75    CLA Z7V2            IS THIS 1ST TIME THRU                        F5G48640    
       04351 -0 12000 0 04307        TMI Z76             NO, 2ED TIME                                 F5G48650    
       04352  0 02000 0 04320        TRA Z73             YES                                          F5G48660    
                                          COMPILE ANY SYN CARDS                                       F5G48670    
       04353 -0 50000 0 00443 Z8     CAL BBNO            FORM                                         F5G48680    
       04354  0 77100 0 00022        ARS 18              AND                                          F5G48690    
       04355  0 60100 0 00457        STO TMP10           STORE                                        F5G48700    
       04356  0 07400 4 00067        TSX SE1,4                                                        F5G48710    
       04357 -0 50000 1 12533        CAL BBB,1           -(IDSXD)-(BBNO)+(1ST PRED)*2**25             F5G48720    
       04360 -0 32000 0 00337        ANA ADDMK                                                        F5G48730    
       04361  0 76700 0 00012        ALS 10                                                           F5G48740    
       04362  0 40200 0 00457        SUB TMP10                                                        F5G48750    
       04363  0 40200 0 00410        SUB IDSXD                                                        F5G48760    
       04364  0 60100 0 00457        STO TMP10                                                        F5G48770    
       04365 -0 53400 2 00716        LXD Z5V1,2          SET TO START OF SYN LIST                     F5G48780    
       04366 -3 00001 2 04407 Z81    TXL Z83,2,1         ARE WE THRU                                  F5G48790    
       04367  2 00001 2 04370 Z82    TIX Z82+1,2,1       DECREASE INDEX                               F5G48800    
       04370 -0 50000 2 02125        CAL SYN,2                                                        F5G48810    
       04371 -0 32000 0 00335        ANA DECMK           COMPILE THE SYN CARD                         F5G48820    
       04372  0 77100 0 00010        ARS 8                                                            F5G48830    
       04373  0 40200 0 00457        SUB TMP10                                                        F5G48840    
       04374  0 07400 4 02367        TSX SK,4                                                         F5G48850    
       04375  0 50000 0 00346        CLA LSYN                                                         F5G48860    
       04376  0 07400 4 02367        TSX SK,4                                                         F5G48870    
       04377 -0 50000 2 02125        CAL SYN,2                                                        F5G48880    
       04400 -0 32000 0 00337        ANA ADDMK                                                        F5G48890    
       04401  0 76700 0 00012        ALS 10                                                           F5G48900    
       04402  0 40200 0 00457        SUB TMP10                                                        F5G48910    
       04403  0 07400 4 02367        TSX SK,4                                                         F5G48920    
       04404  0 50000 0 00314        CLA ZERO                                                         F5G48930    
       04405  0 07400 4 02367        TSX SK,4                                                         F5G48940    
       04406  0 02000 0 04366        TRA Z81                                                          F5G48950    
       04407 -0 53400 2 00450 Z83    LXD BBOX1,2         GET INDEX OF COMPILED INDT                   F5G48960    
       04410  0 50000 0 00416        CLA MZE             RECORD NO SEQUENTIAL TRANSFER                F5G48970    
       04411  0 60100 0 01101        STO SXST                                                         F5G48980    
       04412  0 02000 0 02525        TRA FNDAS                                                        F5G48990    
                                          WRITE TH E LAST BLOCK OF C.I. T. ON TAPE                    F5G49000    
                                          AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END             F5G49010    
       04413  0 76200 0 00224 LSTBB  RTB INSTTP          AN END OF                                    F5G49020    
       04414  0 70000 0 00457        CPY TMP10           FILE SEPARATES RELATIVE CONST. ROUTINES      F5G49030    
       04415  0 02000 0 04420        TRA EF3             END FILE ALREADY READ                        F5G49040    
       04416  0 02000 0 04413        TRA LSTBB           READ END FILE                                F5G49050    
       04417  0 07400 4 00004        TSX 4,4  DIAGNOSTIC, ERROR                                       F5G49060    
       04420 -0 53400 4 00325 EF3    LXD LD4,4             TRY 4 TIMES                                F5G49070    
       04421  0 53400 3 00337 EFRTB  LXA ADDMK,3         READ IN NEXT RECORD                          F5G49080    
       04422  0 76200 0 00224        RTB INSTTP          OF RELATIVE CONSTANT SUBROUTINES             F5G49090    
       04423  0 70000 1 04516 EFCPY  CPY RELSR,1                                                      F5G49100    
       04424  1 77777 1 04423        TXI EFCPY,1,-1                                                   F5G49110    
       04425  0 02000 0 04436        TRA EFREW           END OF FILE , END OF INST.                   F5G49120    
       04426  0 76600 0 00333        IOD                                                              F5G49130    
       04427 -0 76000 0 00012        RTT                                                              F5G49140    
       04430  0 02000 0 04451        TRA EFERR                                                        F5G49150    
       04431 -0 63400 1 04432        SXD EFTXL,1         STORE END TEST                               F5G49160    
       04432 -3 00000 2 04421 EFTXL  TXL EFRTB,2,SET     COMPILE THE INSTRUCTIONS                     F5G49170    
       04433  0 50000 2 04516        CLA RELSR,2                                                      F5G49180    
       04434  0 07400 4 02367        TSX SK,4                                                         F5G49190    
       04435  1 77777 2 04432        TXI EFTXL,2,-1                                                   F5G49200    
       04436  0 77200 0 00204 EFREW  REW INSTTP          REWIND THE TAPE                              F5G49210    
       04437  0 53400 1 00412        LXA SKK1,1          SET 1 TO LENGTH OF CS BLOCK                  F5G49220    
       04440 -0 53400 4 00655        LXD SKV1,4          INDEX OF NEXTCLST POSITION                   F5G49230    
       04441 -0 63400 4 04444        SXD LSTXL,4                                                      F5G49240    
       04442  3 00143 4 04447        TXH LSWEF,4,LCLST-1    IS BLOCK EMPTY                            F5G49250    
       04443  0 76600 0 00223        WTB OTAPE           NO, WRITE                                    F5G49260    
       04444 -3 00000 1 04447 LSTXL  TXL LSWEF,1,-       IT ON TAPE                                   F5G49270    
       04445  0 70000 1 00655        CPY CLST,1                                                       F5G49280    
       04446  1 77777 1 04444        TXI LSTXL,1,-1                                                   F5G49290    
       04447  0 77000 0 00203 LSWEF  WEF OTAPE           WRITE AN END FILE                            F5G49300    
       04450  0 02000 0 00030        TRA R                                                            F5G49310    
       04451  0 76400 0 00204 EFERR  BST INSTTP                                                       F5G49320    
       04452  2 00001 4 04421        TIX EFRTB,4,1                                                    F5G49330    
       04453  0 07400 4 00004        TSX 4,4  4TH ERROR, TO DIAGN0STIC                                F5G49340    
                        04454        BSS PTL4        SPACE FOR PATCHES                                F5G49350    
       04516  0 00000 0 00000 RELSR                      START OF REL. CONST. ROUTINES                F5G49360    
                        00000        ORG 0                                                            F5G49370    
       00000  0 00004 0 00030        HTR R,0,4                  CONTROL CARD PART 1.                  F5G49371    
       00001  0 00000 0 05715        HTR CMTAG-1                                                      F5G49372    
                        00000        ORG 0                                                            F5G49373    
       00000  0 15674 0 15674        HTR PRED,0,PRED            CONTROL CARD PART 1B.                 F5G49374    
       00001  0 00000 0 16025        HTR I9A+2                                                        F5G49375    
                        00000        ORG 0                                                            F5G49376    
       00000  0 04740 0 04740        HTR QS,0,QS                CONTROL CARD, PART 1C.                F5G49377    
       00001  0 00000 0 04773        HTR QS8+1                                                        F5G49378    
                        00000        ORG 0                                                            F5G49379    
       00000  0 04740 0 04740        HTR QPU,0,QPU              CONTROL CARD, PART 1D.                F5G49380    
       00001  0 00000 0 04773        HTR QPU8+1                                                       F5G49381    
                        00000        ORG 0                                                            F5G49382    
       00000  0 04740 0 04740        HTR QSU,0,QSU              CONTROL CARD, PART 1E.                F5G49383    
       00001  0 00000 0 04773        HTR QSU8+1                                                       F5G49384    
                        00000        ORG 0                                                            F5G49385    
       00000  0 00320 0 00317        HTR BLV09,0,BL12           CONTROL CARD, PART 2.                 F5G49386    
       00001  0 00000 0 00655        HTR BLIST                                                        F5G49387    
                        00000        ORG 0                                                            F5G49388    
       00000  0 00320 0 00320        HTR START,0,START          CONTROL CARD, PART 3.                 F5G49389    
       00001  0 00000 0 00647        HTR ASCON                                                        F5G49390    
                        00000        ORG 0                                                            F5G49391    
       00000  0 03541 0 00317        HTR L3,0,PASS2             CONTROL CARD, PART 4.                 F5G49392    
       00001  0 00000 0 04516        HTR RELSR                                                        F5G49393    
                        03541        END PASS2                                                        F5G49394    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    4988           0           0           0           0
 LIB       0           0           0           0           0
 COL    5466           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     5235                  
0NUMBER OF SYMBOLS,  DEF  1244,DEFOP     0,UNDEF     0      
9            ORG 24                                                                       
1                       00030        ORG 24                                                                       
                                         704 FORTRAN II / DBC / 12 JAN 59.                                        
                                                                                                                  
                                         THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=                      
                                         ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION                   
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.               
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F               
                                         THIS LOGICAL BLOCK OR SUBROUTINE.                                        
                                         C IN C0L/34 INDICATES THE INSTRUCTI0N WAS CORRECTED.                     
                                         P IN COL/32 INDICATES THE INSTRUCTI0N WAS INSERTED (PATCH).              
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         CONTROL CARD FOR DBC.                                        DBC/C01     
                        00000        ORG 0                                                            DBC/C02     
       00000  0 00000 0 00723        PZE TAB+1                                                        DBC/C03     
       00001  0 00000 0 77731        PZE COMMON                                                       DBC/C04     
       00002  742422233460           BCD 1(DBC)                                                       DBC/C05     
       00003  0 00000 0 00000        PZE (DBC)                                                        DBC/C06     
                                          END OF DBC CONTROL CARD.                                    DBC/C07     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/C08     
                                                                                                      DBC/C09     
                        00000        ORG 0                                                            DBC/O01     
                                         (DBC)/ CALLS=LINE,READ.  CALLER=MAIN PROGRAM.                DBC/002     
                                         (DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT.       DBC/003     
       00000  0 02100 0 00001 (DBC)  TTR NEW                       INSTRUCTI0N EXECUTED IN LOCATION 1.DBC/004     
                                         NEW = ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT DBC/005     
                                         ROUTINE TO HANDLE CURRLNT  INPUT, AND C(0)= LOCATION OF THE  DBC/006     
                                         CURRENT FORMAT STATEMENT).                                   DBC/007     
       00001 -0 76000 0 00007 NEW    LTM                           SET RBCD  TO CALL THE INDICATED    DBC/008     
       00002  0 62100 0 00304        STA TYPE                      TYPE OF  INPUT ROUTINE.            DBC/009     
       00003 -0 50000 0 00000        CAL 0                         SET  INPUT FORMAT STATEMENT        DBC/010     
       00004  0 62100 0 00007        STA CALL                      LOCATI0N.                          DBC/011     
       00005  0 40000 0 00626        ADD ONE                       SET EXIT                           DBC/012     
       00006  0 62100 0 00015        STA FX4                       TO MAIN PROGRAM.                   DBC/013     
       00007 -0 50000 0 00000 CALL   CAL **                        OBTAIN FORMAT STATEMENT            DBC/014     
       00010 -0 63400 4 00015        SXD FX4,4                     FOR SCAN.                          DBC/015     
       00011  0 07400 4 00036        TSX LINE,4                  * GO SCAN FORMAT.                    DBC/O16     
       00012 -0 53400 4 00015        LXD FX4,4                     WHEN DONE, RESTORE C(XR4).         DBC/017     
       00013 -0 50000 0 00016        CAL TRAP                      SET LOCATION 1 FOR FUTURE          DBC/018     
       00014  0 60200 0 00001        SLW 1                         TRAP TRANSFER TO SEEK, AND         DBC/019     
       00015  1 00000 0 00000 FX4    TXI **,0,**                 * TRANSFER CONTROL TO MAIN PROGRAM.  DBC/020     
                                         THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.          DBC/021     
       00016  0 02100 0 00017 TRAP   TTR SEEK                      INSTRUCTION EXECUTED IN LOCATION 1.DBC/022     
                                         SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATI0N OF    DBC/023     
                                         THE ADDRESS OF THE NEXT  INPUT NUMBERS).                     DBC/024     
       00017 -0 76000 0 00007 SEEK   LTM                           PICKUP NTR INSTRUCTION, AND        DBC/025     
       00020 -0 50000 0 00000        CAL 0                         SET LOCATION                       DBC/O26     
       00021  0 62100 0 00024        STA SETL                      0F  INPUT NUMBERS.                 DBC/027     
       00022  0 40000 0 00626        ADD ONE                       SET LOCATION FOR                   DBC/028     
       00023  0 62100 0 00035        STA OUT                       RETURN TO MAIN PROGRAM.            DBC/029     
       00024  0 50000 0 00000 SETL   CLA **                        PICKUP LOCATION OF  INPUT          DBC/030     
       00025  0 60100 0 00033 STO    STO PUT                       AND SET ADDRESS AND TAG OF PUT.    DBC/031     
       00026  0 56000 0 00025        LDQ STO                       SET PUT OP                         DBC/032     
       00027 -0 62000 0 00033        SLQ PUT                       TO STO.                            DBC/033     
       00030 -0 63400 4 00015        SXD FX4,4                     SAVE THE C(XR4), AND               DBC/034     
       00031  0 07400 4 00316        TSX READ,4                  * GO READ AND CONVERT INPUT.         DBC/035     
       00032 -0 53400 4 00015        LXD FX4,4                     RESTORE THE C(XR4).                DBC/036     
       00033  0 60100 0 00000 PUT    STO **,**                     STORE INPUT NUMBER.                DBC/037     
       00034  0 76000 0 00007        ETM                           REPEAT UNTIL LIST IS EXHAUSTED,    DBC/038     
       00035  0 02100 0 00000 OUT    TTR **                      * UNDER CONTROL OF THE MAIN PROGRAM. DBC/039     
                                          END OF PROGRAM (DBC).                                       DBC/040     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/041     
                                                                                                      DBC/042     
                                         LINE,4/ CALLS=RBCD,FIELD. USES=READ. CALLER=(DBC).           DBC/043     
                                         LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT.      DBC/044     
       00036 -0 63400 4 00116 LINE   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN.        DBC/045     
       00037 -0 63400 1 00114        SXD AX1,1                     SAVE THE ORIGINAL C(XR1), AND      DBC/046     
       00040 -0 63400 2 00115        SXD AX2,2                     SAVE THE ORIGINAL C(XR2).          DBC/047     
       00041  0 76000 0 00006        COM                           COMPLEMENT THE C(AC), AND SET      DBC/048     
       00042  0 62200 0 00066        STD UNIT                      UNIT DECREMENT= -(CURRENT UNIT).   DBC/049     
       00043  0 60000 0 77737        STZ PEX                       SET PEX (SCALE FACTOR) = 0, AND    DBC/050     
       00044  0 60000 0 77731        STZ INT                       SET INT = 0.                       DBC/051     
       00045  0 62100 0 00102        STA SCAN5                     SAVE THE C(AC) ADDRESS, AND        DBC/052     
       00046  0 07400 2 00303        TSX RBCD,2                  * GO READ INPUT UNIT RECORD. THEN    DBC/053     
       00047  0 53400 2 00102        LXA SCAN5,2                   SET XR2= -(CURRENT FORMAT LOC.),ANDDBC/054     
       00050 -0 53400 1 00067        LXD SEVEN,1                   SET XR1 = 7, AND PICKUP THE        DBC/055     
       00051  0 56000 2 77777        LDQ -1,2                      1ST WORD OF CURRENT FORMAT.        DBC/056     
                                         CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.    DBC/057     
       00052 -0 63400 1 00120 CCLPAR SXD BX1,1                     SAVE THE CURRENT CHARACTER COUNT,  DBC/058     
       00053 -0 63400 2 00121        SXD BX2,2                     SCAN POSITION, AND FORMAT WORD,    DBC/059     
       00054 -0 60000 0 77735        STQ MQR                       FOR POSSIBLE REPETITION OF GROUP.  DBC/060     
       00055  0 53400 4 77731        LXA INT,4                     SET GROUP CONTROL COUNT FOR THE    DBC/061     
       00056 -0 63400 4 00122        SXD BX4,4                     INDICATED NUMBER OF REPETITIONS,   DBC/062     
       00057 -0 63400 4 00265        SXD GROUPX,4                  AND SAVE FOR POSSIBLE RESCAN.      DBC/063     
                                         SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN.          DBC/064     
       00060  0 60000 0 77731 SCAN   STZ INT                       CLEAR INT WORKING STORAGE, AND     DBC/065     
       00061  1 00006 0 00102 SIX    TXI SCAN5,0,6                 GO RESUME SCAN.                    DBC/066     
       00062 -0 53400 1 00061 SCAN1  LXD SIX,1                     RESET FORMAT CHARACTER COUNT, AND  DBC/067     
       00063  0 56000 2 77777        LDQ -1,2                      PICKUP NEXT FORMAT WORD.           DBC/068     
       00064 -0 76300 0 00006 SCAN2  LGL 6                         EXAMINE NEXT CHARACTER,            DBC/069     
       00065  0 34000 0 00631        CAS BLANK                     AND IF BLANK,                      DBC/070     
       00066  1 00000 0 00070 UNIT   TXI SCAN3,0,**                THEN                               DBC/071     
       00067  1 00007 0 00102 SEVEN  TXI SCAN5,0,7                 GO EXAMINE NEXT CHARACTER.         DBC/072     
       00070  0 34000 0 00630 SCAN3  CAS L(9)                      IF NOT BLANK, COMPARE WITH NINE,   DBC/073     
 D     00071  1 00000 0 00105        TXI SCAN6,0                   IF NON-NUMERIC, COMPARE CCTEST.    DBC/074     
       00072  0 76100 0 00000        NOP                           IF NUMERIC, THEN                   DBC/075     
       00073  0 60100 0 77732        STO DIG                       CONVERT                            DBC/076     
       00074  0 50000 0 77731        CLA INT                       SUCCESSIVE                         DBC/077     
       00075  0 76700 0 00002        ALS 2                         BCD                                DBC/078     
       00076  0 40000 0 77731        ADD INT                       0IGITS                             DBC/079     
       00077  0 76700 0 00001        ALS 1                         T0 BINARY,                         DBC/080     
       00100  0 36100 0 77732        ACL DIG                       T0 SET INT= SCALE FACTOR,          DBC/081     
                                         SCAN4 = ENTRY POINT USED BY CCSCFM.                          DBC/082     
       00101  0 60100 0 77731 SCAN4  STO INT                       CURRENT FIELD OR GROUP CONTROL.    DBC/083     
                                         SCAN5 = ENTRY POINT USED BY CCDCPT.                          DBC/084     
       00102 -0 75400 0 00000 SCAN5  PXD **,0                      CLEAR THE AC, AND UPDATE COUNT.    DBC/085     
       00103  2 00001 1 00064        TIX SCAN2,1,1                 WHEN N0 CHARACTERS REMAIN,         DBC/086     
       00104  1 77777 2 00062        TXI SCAN1,2,-1                ADJUST SCAN POSITION, AND REPEAT.  DBC/087     
                                         SCAN6 = ENTRY POINT USED BY CCDCPT.                          DBC/088     
       00105 -0 53400 4 00107 SCAN6  LXD NCC,4                     WHEN A NON-NUMERIC IS MET,         DBC/089     
       00106  0 34000 4 00626 SCAN7  CAS CCTEST,4                  SCAN LIST OF CONTROL CHARACTERS,   DBC/090     
       00107  1 00014 0 00111 NCC    TXI SCAN8,0,12                AND IF EQUALITY IS FOUND,          DBC/091     
       00110  0 02000 4 00127        TRA FRMTR,4                 * TAKE THE INDICATED TRANSFER.       DBC/092     
       00111  2 00001 4 00106 SCAN8  TIX SCAN7,4,1                 IF NOT FOUNO IN CONTROL LIST, THEN DBC/093     
       00112  0 42000 1 00005        HPR 5,1                       STOP. PRESS START TO CONTINUE.     DBC/0935    
                                          END OF PROGRAM LINE.                                        DBC/097     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/098     
                                                                                                      DBC/099     
                                         FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =                  DBC/100     
 D     00113  1 00000 0 00127        TXI CCEDMK,0                  END OF FORMAT STATEMENT.           DBC/1005    
       00114  1 00000 0 00052 AX1    TXI CCLPAR,0,**               BEGIN FORMAT OR GROUP.             DBC/101     
       00115  1 00000 0 00132 AX2    TXI CCCMMA,0,**               END FIELD.                         DBC/102     
       00116  1 00000 0 00137 AX4    TXI CCSLSH,0,**               END LINE OR RECORD.                DBC/103     
 D     00117  1 00000 0 00142        TXI CCSCFP,0                  SCALE FACTOR PLUS.                 DBC/104     
       00120  1 00000 0 00145 BX1    TXI CCSCFM,0,**               SCALE FACTOR MINUS.                DBC/105     
       00121  1 00000 0 00147 BX2    TXI CCRPAR,0,**               END FORMAT OR GROUP.               DBC/106     
       00122  1 00000 0 00153 BX4    TXI CCDCPT,0,**               ROUNDING OF  INPUT NUMBER.         DBC/107     
 D     00123  1 00000 0 00172        TXI CCINPT,0                  DECIMAL INPUT.                     DBC/108     
       00124  1 00000 0 00177 CX1    TXI CCHNPT,0,**               HOLLERITH FIELD INPUT.             DBC/109     
       00125  1 00000 0 00250 CX2    TXI CCFNPT,0,**               FIXED POINT INPUT.                 DBC/110     
       00126  1 00000 0 00254 CX4    TXI CCENPT,0,**               FLOATING POINT INPUT.              DBC/111     
                        00127 FRMTR  BSS 0                                                            DBC/112     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/113     
                                                                                                      DBC/114     
                                         CCEDMK/ CALLS=FIELD. USES=MAIN PROGRAM.                      DBC/1141    
                                         CCEDMK = ENTRY POINT WHEN AN ENDMK IS MET IN FORMAT SCAN.    DBC/1142    
       00127  0 07400 4 00266 CCEDMK TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/1143    
       00130 -0 50000 0 00273        CAL TXLOP                     THEN GO SET CNVSW TO RESCAN FORMAT DBC/1144    
 D     00131  1 00000 0 00275        TXI SETSW,0                 * IF LIST IS NOT EXHAUSTED.          DBC/1145    
                                          END OF PR0GRAM CCEDMK.                                      DBC/1146    
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/1147    
                                                                                                      DBC/1148    
                                         CCCMMA/ CALLS=FIELD. USES=LINE(SCAN).                        DBC/115     
                                         CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.     DBC/116     
       00132  0 07400 4 00266 CCCMMA TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/117     
                                         RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT.           DBC/118     
       00133 -0 53400 1 00124 RESUME LXD CX1,1                     WHEN DONE, RESTORE CHARACTER COUNT,DBC/119     
       00134 -0 53400 2 00125        LXD CX2,2                     RESTORE SCAN POSITION, AND         DBC/120     
       00135  0 56000 0 77734        LDQ MQ                        CURRENT FORMAT WORD. THEN          DBC/121     
 D     00136  1 00000 0 00060        TXI SCAN,0                  * GO RESUME SCAN.                    DBC/122     
                                          END OF PROGRAM CCCMMA.                                      DBC/123     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/124     
                                                                                                      DBC/125     
                                         CCSLSH/ CALLS=FIELD,RBCD.  USES=CCCMMA.                      DBC/126     
                                         CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.     DBC/127     
       00137  0 07400 4 00266 CCSLSH TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/128     
       00140  0 07400 2 00303        TSX RBCD,2                  * WHEN DONE, READ A RECORD, AND      DBC/129     
 D     00141  1 00000 0 00133        TXI RESUME,0                * GO RESUME SCAN.                    DBC/130     
                                          END OF PR0GRAM CCSLSH.                                      DBC/131     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/132     
                                                                                                      DBC/133     
                                         CCSCFP/ USES=LINE(SCAN).                                     DBC/I34     
                                         CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.         DBC/135     
       00142  0 50000 0 77731 CCSCFP CLA INT                       PICKUP AND                         DBC/136     
       00143  0 60100 0 77737        STO PEX                       STORE SCALE FACTOR.                DBC/137     
 D     00144  1 00000 0 00060        TXI SCAN,0                  * GO RESUME SCAN.                    DBC/138     
                                          END OF PROGRAM CCSCFP.                                      DBC/139     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/140     
                                                                                                      DBC/141     
                                         CCSCFM/ USES=LINE(SCAN).                                     DBC/142     
                                         CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.DBC/143     
       00145  0 50200 0 77731 CCSCFM CLS INT                       SET INT MINUS, ANO                 DBC/144     
 D     00146  1 00000 0 00101        TXI SCAN4,0                 * GO GET SCALE FACTOR.               DBC/145     
                                          END OF PROGRAM CCSCFM.                                      DBC/146     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/147     
                                                                                                      DBC/148     
                                         CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).              DBC/149     
                                         CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.    DBC/150     
       00147  0 07400 4 00266 CCRPAR TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/151     
       00150 -0 53400 4 00122        LXD BX4,4                     WHEN DONE, UPDATE GROUP COUNT, AND DBC/152     
       00151 -2 00001 4 00133        TNX RESUME,4,1              * GO RESUME SCAN, UNLESS             DBC/153     
 D     00152  1 00000 0 00261        TXI GROUP,0                 * REPETITION OF GROUP IS INDICATED.  DBC/154     
                                          END OF PROGRAM CCRPAR.                                      DBC/155     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/156     
                                                                                                      DBC/157     
                                         CCDCPT/ USES=LINE(SCAN).                                     DBC/158     
                                         CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.     DBC/159     
       00153  0 50000 0 00171 CCDCPT CLA DTR                       MODIFY SCAN INSTRUCTION            DBC/160     
       00154  0 60100 0 00070        STO SCAN3                     TO TRANSFER INTO DCPT1.            DBC/161     
       00155  0 60000 0 77732        STZ DIG                       CLEAR DIG, AND                     DBC/1615    
 D     00156  1 00000 0 00102        TXI SCAN5,0                 * GO RESUME SCAN.                    DBC/162     
                                         DCPT1 = REENTRY POINT FROM LINE(SCAN).                       DBC/163     
       00157  0 34000 0 00630 DCPT1  CAS L(9)                      DETERMINE THE                      DBC/164     
 D     00160  1 00000 0 00164        TXI DCPT3,0                   NUMBER, MODULO TEN,                DBC/165     
       00161  0 76100 0 00000        NOP                           OF DIGITS                          DBC/166     
       00162  0 60100 0 77732        STO DIG                       IN FRACTION.                       DBC/167     
 D     00163  1 00000 0 00102        TXI SCAN5,0                 * WHEN A CONTROL CHARACTER IS MET,   DBC/168     
       00164 -0 60000 0 77734 DCPT3  STQ MQ                        RESTORE THE                        DBC/169     
       00165  0 56000 0 00157        LDQ DCPT1                     SCAN INSTRUCTION                   DBC/170     
       00166 -0 60000 0 00070        STQ SCAN3                     T0 ITS ORIGINAL FORM, AND          DBC/171     
       00167  0 56000 0 77734        LDQ MQ                        GO COMPARE CHARACTER               DBC/172     
 D     00170  1 00000 0 00105        TXI SCAN6,0                 * WITH CCTEST LIST.                  DBC/173     
                                          END OF PROGRAM CCDCPT.                                      DBC/174     
 D     00171  1 00000 0 00157 DTR    TXI DCPT1,0                 * INSTRUCTION CONSTANT.              DBC/175     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/176     
                                                                                                      DBC/177     
                                         CCINPT/ USES=LINE(SCAN).                                     DBC/17B     
                                         CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.        DBC/179     
       00172 -0 50000 0 00273 CCINPT CAL TXLOP                     PICKUP TXLOP, AND                  DBC/180     
                                         SETFX = ENTRY POINT USED BY CCFNPT.                          DBC/181     
       00173  0 63000 0 00524 SETFX  STP FIXSW                     FIXED POINT SWITCH.                DBC/182     
       00174  0 53400 4 77731        LXA INT,4                     SET COUNT FOR THE                  DBC/183     
       00175 -0 63400 4 00604        SXD COUNT,4                   REPETITION OF THIS FIELD, AND      DBC/184     
 D     00176  1 00000 0 00060        TXI SCAN,0                  * GO RESUME SCAN.                    DBC/185     
                                          END OF PROGRAM CCINPT.                                      DBC/186     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/187     
                                                                                                      DBC/188     
                                         CCHNPT/ USES=CCCMMA.                                         DBC/189     
                                         CCHNPT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.        DBC/190     
       00177  0 53400 4 77731 CCHNPT LXA INT,4                     SET XR4 = HOLLERITH FIELD WIDTH.   DBC/191     
       00200  0 56000 0 77736        LDQ MQD                       PICKUP ANY REMAINING INPUT.        DBC/192     
       00201 -0 63400 2 00125        SXD CX2,2                     SAVE FORMAT SCAN POSITION.         DBC/193     
       00202 -0 50000 2 77777        CAL -1,2                      PICKUP CURRENT FORMAT WORD.        DBC/194     
       00203 -0 53400 2 00347        LXD DX1,2                     SET XR2 = INPUT CHARACTER COUNT.   DBC/195     
       00204 -2 00001 1 00222        TNX HNPT5,1,1                 IF ANY CHARACTERS REMAIN IN CURRENTDBC/196     
       00205 -0 63400 1 00124        SXD CX1,1                     FORMAT WORD, SAVE FOR-CHAR COUNT,  DBC/197     
       00206  0 77100 0 00006 HNPT1  ARS 6                         AND SHIFT REMAINDER INTO           DBC/198     
       00207  2 00001 1 00206        TIX HNPT1,1,1                 THE MQ. WHEN DONE,                 DBC/199     
       00210 -0 53400 1 00124        LXD CX1,1                     RESTORE FOR-CHAR COUNT, AN0        DBC/200     
       00211  2 00001 2 00217 HNPT2  TIX HNPT4,2,1                 IF INPUT-CHAR COUNT IS EXHAUSTED,  DBC/201     
       00212 -0 53400 2 00350        LXD DX2,2                     SET XR2 = INPUT WORD COUNT,        DBC/202     
       00213  1 77777 2 00214        TXI HNPT3,2,-1                UPDATE IT, AND                     DBC/203     
       00214  0 56000 2 77751 HNPT3  LDQ BCD,2                     PICKUP NEXT INPUT WORD.            DBC/204     
       00215 -0 63400 2 00350        SXD DX2,2                     THEN SAVE INPUT WORD COUNT,        DBC/205     
       00216 -0 53400 2 00061        LXD SIX,2                     AND RESET INPUT-CHAR COUNT TO 6.   DBC/206     
       00217 -0 76300 0 00006 HNPT4  LGL 6                         FILL OUT THE PARTIAL WORD 1N THE ACDBC/207     
       00220 -2 00001 4 00230        TNX HNPT7,4,1                 WITH NEW INPUT, UPDATING FIELD     DBC/208     
       00221  2 00001 1 00211        TIX HNPT2,1,1                 CONTROL, AND WHEN DONE,            DBC/209     
       00222 -0 53400 1 00125 HNPT5  LXD CX2,1                     SET XR1 = CURRENT FOR-SCAN POSITIONDBC/210     
       00223  0 60200 1 77777        SLW -1,1                      AND STORE INPUT WORD IN FORMAT,    DBC/211     
       00224  1 77777 1 00225        TXI HNPT6,1,-1                THEN UPDATE FORMAT SCAN            DBC/212     
       00225 -0 63400 1 00125 HNPT6  SXD CX2,1                     POSITION, AND SAVE IT.             DBC/213     
       00226 -0 53400 1 00061        LXD SIX,1                     RESET FORMAT CHARACTER COUNT TO 6, DBC/214     
 D     00227  1 00000 0 00211        TXI HNPT2,0                   AND REPEAT UNDER FIELD CONTROL.    DBC/215     
       00230 -0 63400 2 00347 HNPT7  SXD DX1,2                     WHEN FIELD CONTR0L IS EXHAUSTED,   DBC/216     
       00231 -0 53400 2 00125        LXD CX2,2                     SAVE INPUT CHAR COUNT, AND SET XR2 DBC/217     
       00232 -0 60000 0 77736        STQ MQD                       T0 SCAN POSITION. SAVE REMA1NING   DBC/218     
       00233 -0 63400 1 00124        SXD CX1,1                     INPUT, AND SAVE FOR-CHAR COUNT.    DBC/219     
       00234 -3 00001 1 00246        TXL HNPT11,1,1                IF ANY CHARACTERS REMAIN           DBC/220     
       00235  0 56000 2 77777        LDQ -1,2                      IN CURRENT FORMAT WORD,            DBC/221     
       00236 -0 77300 0 00006 HNPT8  RQL 6                         SHIFT THEM INTO POSITION,          DBC/222     
       00237  1 00001 1 00240        TXI HNPT9,1,1                 LEFT-ADJUSTED                      DBC/223     
       00240 -3 00006 1 00236 HNPT9  TXL HNPT8,1,6                 IN THE MQ,                         DBC/224     
       00241 -0 60000 0 77734        STQ MQ                        AND SAVE THE C(MQ).                DBC/225     
       00242 -0 53400 1 00124        LXD CX1,1                     RESTORE FORMAT CHARACTER COUNT.    DBC/226     
       00243 -2 00001 1 00246        TNX HNPT11,1,1                SHIFT REMAINDER INTO               DBC/227     
       00244 -0 76300 0 00006 HNPT10 LGL 6                         THE AC,                            DBC/228     
       00245  2 00001 1 00244        TIX HNPT10,1,1                UPDATING CHARACTER COUNT. AND      DBC/229     
       00246  0 60200 2 77777 HNPT11 SLW -1,2                      STORE LAST WORD OF FIELD. THEN     DBC/230     
 D     00247  1 00000 0 00133        TXI RESUME,0                * GO RE9UME SCAN.                    DBC/231     
                                          END OF PROGRAM CCHNPT.                                      DBC/232     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/233     
                                                                                                      DBC/234     
                                         CCFNPT/ USES=CCINPT.                                         DBC/235     
                                         CCFNPT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.        DBC/236     
       00250  0 50200 0 77737 CCFNPT CLS PEX                       PICKUP NEGATIVE OF SCALE FACTOR TO DBC/237     
                                         SETXP = ENTRY POINT USED BY CCENPT.                          DBC/238     
       00251  0 60100 0 77740 SETXP  STO EXP                       SET EXPONENT.                      DBC/239     
       00252  0 50000 0 00273        CLA TXLOP                     PICKUP TXHOP AND                   DBC/240     
 D     00253  1 00000 0 00173        TXI SETFX,0                 * GO SET FIXSW TO NOP.               DBC/241     
                                          END OF PROGRAM CCFNPT.                                      DBC/242     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/243     
                                                                                                      DBC/244     
                                         EOENPT/ USES=CCFNPT.                                         DBC/245     
                                         COENPT,= ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.        DBC/246     
       00254 -0 75400 0 00000 CCENPT PXD ,0                        CLEAR THE AC, AND                  DBC/247     
 D     00255  1 00000 0 00251        TXI SETXP,0                 * GO SET EXPONENT AND FIXSW.         DBC/248     
                                          END OF PROGRAM CCENPT.                                      DBC/249     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/250     
                                                                                                      DBC/251     
                                         RESCAN/ CALLS=RBCD.  USES=LINE(SCAN).                        DBC/252     
                                         RESCAN = ENTRY POINT USED BY READ.                           DBC/253     
       00256 -0 63400 4 00116 RESCAN SXD AX4,4                     FOR RETURN FROM FORMAT SCAN.       DBC/256     
       00257  0 07400 2 00303        TSX RBCD,2                  * G0 READ A RECORD.                  DBC/257     
       00260 -0 53400 4 00265        LXD GROUPX,4                  THEN PICKUP ORIGINAL GROUP COUNT TODBC/258     
                                         GROUP = ENTRY POINT USED BY CCRPAR.                          DBC/259     
       00261 -0 63400 4 00122 GROUP  SXD BX4,4                     UPDATE GROUP CONTROL.              DBC/260     
       00262 -0 53400 1 00120        LXD BX1,1                     RESET CHARACTER COUNT,             DBC/261     
       00263 -0 53400 2 00121        LXD BX2,2                     RESET SCAN POSITION, AND           DBC/262     
       00264  0 56000 0 77735        LDQ MQR                       PICKUP 1ST FORMAT WORD OF GROUP.   DBC/263     
       00265  1 00000 0 00060 GROUPX TXI SCAN,0,**               * GO RESCAN THIS GROUP.              DBC/264     
                                          END OF PROGRAM RESCAN.                                      DBC/265     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/266     
                                                                                                      DBC/267     
                                         FIELD,4/ USES READ.  CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.DBC/268     
                                         FIELD CONTROLS THE REPEATED  INPUT OF THE CURRENT FIELD.     DBC/269     
       00266 -0 63400 4 00126 FIELD  SXD CX4,4                     SAVE THE C(XR4) FOR RETURN.        DBC/270     
       00267 -0 63400 1 00124        SXD CX1,1                     SAVE THE CHARACTER COUNT,          DBC/271     
       00270 -0 63400 2 00125        SXD CX2,2                     THE SCAN POSITION, AND             DBC/272     
       00271 -0 60000 0 77734        STQ MQ                        THE CURRENT FORMAT WORD.           DBC/273     
       00272  0 53400 4 77731        LXA INT,4                     EXAMINE INT, AND                   DBC/274     
       00273 -3 00000 4 00300 TXLOP  TXL DONE,4,0                  IF NOT ZERO, THEN                  DBC/275     
       00274  0 50000 0 00273        CLA TXLOP                     PICKUP TXHOP TO                    DBC/276     
                                         SETSW = ENTRY POINT USED BY LINE(SCAN8).                     DBC/277     
       00275  0 63000 0 00321 SETSW  STP CNVSW                     SET CONVERSION SWITCH.             DBC/278     
       00276  0 50000 0 77733        CLA DATUM                     THEN PICKUP DATUM,                 DBC/279     
 D     00277  1 00000 0 00606        TXI LIST,0                  * GO STORE, AND EXAMINE LIST.        DBC/280     
                                         DONE = ENTRY POINT USED BY READ.                             DBC/281     
       00300 -0 53400 4 00126 DONE   LXD CX4,4                     WHEN DONE, RESTORE THE C(XR4), AND DBC/282     
       00301  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  DBC/283     
                                          END OF PROGRAM FIELD.                                       DBC/284     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/285     
                                                                                                      DBC/286     
                                         RBCD,2/ CALLS=(CSH),(TSH). CALLERS=LINE,CCSLSH,=ESCAN.       DBC/287     
                                         RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER.             DBC/288     
       00302  0 42000 1 00000 EOF    HPR 0,1                       EOF HALT / PRESS START TO REPEAT.  DBC/289     
       00303 -0 53400 1 00066 RBCD   LXD UNIT,1                    SET XR1 FOR CURRENT UNIT, AND      DBC/290     
       00304  0 07400 4 00000 TYPE   TSX **,4                    * GO TO INDICATED INPUT ROUTINE.     DBC/291     
       00305  0 77777 0 77751        PZE BCD,,-1                   (INPUT BUFFER)                     DBC/292     
                                         DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE.                DBC/293     
       00306  1 00001 0 00302 DCR1   TXI EOF,0,1                   GO TO END-OF-FILE STOP.            DBC/294     
                                         N=R1+1 = NORMAL RETURN FROM INPUT ROUTINE.                   DBC/295     
       00307 -0 50000 0 00306        CAL DCR1                      FOR CURRENT INPUT, RESET           DBC/296     
       00310  0 62200 0 00347        STD DX1                       INPUT CHARACTER COUNT AND          DBC/297     
       00311  0 62200 0 00350        STD DX2                       INPUT WORD COUNT TO ONE. THEN      DBC/298     
       00312  0 02000 2 00001        TRA 1,2                     * EXIT TO CALLER.                    DBC/299     
                                          END OF PROGRAM RBCD.                                        DBC/300     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/301     
                                                                                                      DBC/302     
                                         REA0,4/  USES=FIELD,LINE. CALLERS=IDBC),LINEIRESCAN).        DBC/303     
                                         READ  DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.    DBC/304     
                                         XREAD = EXIT FROM READ WHEN FORMAT IS EXHAUSTED.             DBC/305     
       00313 -0 63400 4 00321 XREAD  SXD CNVSW,4                   SAVE THE C(XR4), AND               DBC/306     
       00314  0 07400 4 00256        TSX RESCAN,4                * GO RESCAN FORMAT. THEN RETURN,     DBC/3061    
       00315 -0 53400 4 00321        LXD CNVSW,4                   AFTER GETTING FORMAT.              DBC/3062    
                                         READ  = ENTRY POINT USED BY (DBC).                           DBC/307     
       00316 -0 63400 4 00116 READ   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN TO LIST.DBC/308     
       00317 -0 63400 1 00114        SXD AX1,1                     SAVE THE ORIGINAL C(XR1),          DBC/309     
       00320 -0 63400 2 00115        SXD AX2,2                     SAVE THE ORIGINAL C(XR2), AND      DBC/310     
       00321 -3 00000 0 00313 CNVSW  TXL XREAD,0,**                SWITCH (TXL=TRA, TXH=NOP).         DBC/311     
                                                                                                      DBC/312     
       00322  0 50000 0 00634        CLA MZE                                                          DBC/313     
       00323  0 60100 0 77743        STO N                                                            DBC/314     
       00324  0 60200 0 77747        SLW V                                                            DBC/315     
       00325  0 60200 0 77742        SLW DG                                                           DBC/316     
       00326  0 50200 0 77732        CLS DIG                                                          DBC/317     
       00327  0 60100 0 77750        STO D                                                            DBC/318     
       00330  0 50000 0 77740        CLA EXP                                                          DBC/319     
       00331  0 60100 0 77744        STO E                                                            DBC/320     
       00332  0 53400 4 77731        LXA INT,4                                                        DBC/321     
       00333  0 56000 0 77736        LDQ MQD                                                          DBC/322     
       00334 -0 53400 1 00347        LXD DX1,1                                                        DBC/323     
       00335 -0 53400 2 00350        LXD DX2,2                                                        DBC/324     
       00336 -0 14000 0 00337        TNO F6                                                           DBC/325     
       00337  2 00001 1 00343 F6     TIX F1,1,1                                                       DBC/326     
       00340  1 77777 2 00341        TXI F2,2,-1                                                      DBC/327     
       00341 -0 53400 1 00061 F2     LXD SIX,1                                                        DBC/328     
       00342  0 56000 2 77751        LDQ BCD,2                                                        DBC/329     
       00343 -0 75400 0 00000 F1     PXD ,0                                                           DBC/330     
       00344 -0 76300 0 00006        LGL 6                                                            DBC/331     
       00345 -3 00000 4 00520        TXL D6,4,0                                                       DBC/332     
       00346  0 34000 0 00631        CAS BLANK                                                        DBC/333     
       00347  1 00000 0 00363 DX1    TXI STOP1,0,**                                                   DBC/334     
       00350  1 00000 0 00367 DX2    TXI F3,0,**                                                      DBC/335     
       00351  0 34000 0 00617        CAS MINUS                                                        DBC/336     
 D     00352  1 00000 0 00363        TXI STOP1,0                                                      DBC/337     
 D     00353  1 00000 0 00361        TXI F4,0                                                         DBC/338     
       00354  0 34000 0 00632        CAS PLUS                                                         DBC/339     
 D     00355  1 00000 0 00454        TXI C5L,0                                                        DBC/340     
 D     00356  1 00000 0 00364        TXI F5,0                                                         DBC/34I     
       00357  0 34000 0 00633        CAS NEGAT                                                        DBC/342     
 D     00360  1 00000 0 00363        TXI STOP1,0                                                      DBC/343     
       00361  0 50000 0 00634 F4     CLA MZE                                                          DBC/344     
       00362  0 34000 0 00627        CAS TEN                                                          DBC/345     
       00363  0 42000 1 00001 STOP1  HPR 1,1                                                          DBC/346     
       00364 -0 75400 0 00000 F5     PXD ,0                                                           DBC/347     
       00365  0 60100 0 77742        STO DG                                                           DBC/348     
 D     00366  1 00000 0 00516        TXI D9,0                                                         DBC/349     
       00367  2 00001 4 00337 F3     TIX F6,4,1                                                       DBC/350     
 D     00370  1 00000 0 00520        TXI D6,0                                                         DBC/351     
       00371 -2 00001 4 00417 E1     TNX E5,4,1                                                       DBC/352     
       00372  2 00001 1 00376        TIX E2,1,1                                                       DBC/353     
       00373  1 77777 2 00374        TXI E3,2,-1                                                      DBC/354     
       00374 -0 53400 1 00061 E3     LXD SIX,1                                                        DBC/355     
       00375  0 56000 2 77751        LDQ BCD,2                                                        DBC/356     
       00376 -0 75400 0 00000 E2     PXD ,0                                                           DBC/357     
       00377 -0 76300 0 00006        LGL 6                                                            DBC/358     
       00400  0 34000 0 00631        CAS BLANK                                                        DBC/359     
 D     00401  1 00000 0 00416        TXI STOP2,0                                                      DBC/360     
 D     00402  1 00000 0 00371        TXI E1,0                                                         DBC/361     
       00403 -0 63400 4 00424        SXD ER,4                                                         DBC/362     
       00404  0 34000 0 00617 C2L    CAS MINUS                                                        DBC/363     
 D     00405  1 00000 0 00424        TXI ER,0                                                         DBC/364     
 D     00406  1 00000 0 00414        TXI E4,0                                                         DBC/365     
       00407  0 34000 0 00632 C4L    CAS PLUS                                                         DBC/366     
 D     00410  1 00000 0 00424        TXI ER,0                                                         DBC/367     
 D     00411  1 00000 0 00417        TXI E5,0                                                         DBC/368     
       00412  0 34000 0 00633        CAS NEGAT                                                        DBC/369     
 D     00413  1 00000 0 00424        TXI ER,0                                                         DBC/370     
       00414  0 50000 0 00634 E4     CLA MZE                                                          DBC/371     
       00415  0 34000 0 00627        CAS TEN                                                          DBC/372     
       00416  0 42000 1 00002 STOP2  HPR 2,1                                                          DBC/373     
       00417 -0 75400 0 00000 E5     PXD ,0                                                           DBC/374     
       00420  0 60100 0 77744        STO E                                                            DBC/375     
       00421 -2 00001 4 00520        TNX D6,4,1                                                       DBC/376     
       00422  2 00001 1 00430 E9     TIX E6,1,1                                                       DBC/377     
       00423  1 77777 2 00426        TXI E7,2,-1                                                      DBC/378     
       00424  3 00000 4 00452 ER     TXH STOP4,4,**                                                   DBC/379     
 D     00425  1 00000 0 00416        TXI STOP2,0                                                      DBC/380     
       00426 -0 53400 1 00061 E7     LXD SIX,1                                                        DBC/381     
       00427  0 56000 2 77751        LDQ BCD,2                                                        DBC/382     
       00430 -0 75400 0 00000 E6     PXD ,0                                                           DBC/383     
       00431 -0 76300 0 00006        LGL 6                                                            DBC/384     
       00432  0 34000 0 00631        CAS BLANK                                                        DBC/385     
 D     00433  1 00000 0 00436        TXI STOP3,0                                                      DBC/386     
 D     00434  1 00000 0 00437        TXI E8,0                                                         DBC/387     
       00435  0 34000 0 00627        CAS TEN                                                          DBC/388     
       00436  0 42000 1 00003 STOP3  HPR 3,1                                                          DBC/389     
       00437 -0 75400 0 00000 E8     PXD ,0                                                           DBC/390     
       00440  0 60100 0 77742        STO DG                                                           DBC/391     
       00441  0 50000 0 77744        CLA E                                                            DBC/392     
       00442  0 76700 0 00002        ALS 2                                                            DBC/393     
       00443  0 40000 0 77744        ADD E                                                            DBC/394     
       00444  0 76700 0 00001        ALS 1                                                            DBC/395     
       00445  0 36100 0 77742        ACL DG                                                           DBC/396     
       00446  0 60100 0 77744        STO E                                                            DBC/397     
       00447  2 00001 4 00422        TIX E9,4,1                                                       DBC/398     
 D     00450  1 00000 0 00520        TXI D6,0                                                         DBC/399     
       00451  0 34000 0 00631 C1L    CAS BLANK                                                        DBC/400     
       00452  0 42000 1 00004 STOP4  HPR 4,1                                                          DBC/401     
 D     00453  1 00000 0 00506        TXI D7,0                                                         DBC/402     
       00454 -0 63400 4 77746 C5L    SXD U,4                                                          DBC/403     
       00455  0 62200 0 00424        STD ER                                                           DBC/404     
       00456  0 34000 0 00621        CAS POINT                                                        DBC/405     
 D     00457  1 00000 0 00404        TXI C2L,0                                                        DBC/406     
       00460  1 77777 4 00465        TXI C3L,4,-1                                                     DBC/407     
       00461  0 34000 0 00625        CAS EXPON                                                        DBC/408     
 D     00462  1 00000 0 00452        TXI STOP4,0                                                      DBC/409     
 D     00463  1 00000 0 00371        TXI E1,0                                                         DBC/410     
 D     00464  1 00000 0 00407        TXI C4L,0                                                        DBC/411     
       00465 -0 75400 4 00000 C3L    PXD ,4                                                           DBC/412     
       00466  0 77100 0 00022        ARS 18                                                           DBC/413     
       00467  0 60100 0 77746        STO U                                                            DBC/414     
       00470  0 60100 0 77750        STO D                                                            DBC/415     
       00471  1 00001 4 00517        TXI D8,4,1                                                       DBC/416     
       00472  0 50000 0 77747 D4     CLA V                                                            DBC/417     
       00473  0 40000 0 00626        ADD ONE                                                          DBC/418     
       00474  0 60100 0 77747        STO V                                                            DBC/419     
       00475 -2 00001 4 00520        TNX D6,4,1                                                       DBC/420     
       00476  2 00001 1 00502 D5     TIX D1,1,1                                                       DBC/421     
       00477  1 77777 2 00500        TXI D2,2,-1                                                      DBC/422     
       00500  0 53400 1 00503 D2     LXA D3,1                                                         DBC/423     
       00501  0 56000 2 77751        LDQ BCD,2                                                        DBC/424     
       00502 -0 75400 0 00000 D1     PXD ,0                                                           DBC/425     
       00503 -0 76300 0 00006 D3     LGL 6                                                            DBC/426     
       00504  0 34000 0 00627        CAS TEN                                                          DBC/427     
 D     00505  1 00000 0 00451        TXI C1L,0                                                        DBC/428     
       00506 -0 75400 0 00000 D7     PXD ,0                                                           DBC/429     
       00507  0 62100 0 77742        STA DG                                                           DBC/430     
       00510  0 50000 0 77743        CLA N                                                            DBC/431     
       00511  0 76700 0 00002        ALS 2                                                            DBC/432     
       00512  0 40000 0 77743        ADD N                                                            DBC/433     
       00513  0 76700 0 00001        ALS 1                                                            DBC/434     
       00514  0 40000 0 77742        ADD DG                                                           DBC/435     
       00515  0 14000 0 00472        TOV D4                                                           DBC/436     
       00516  0 60100 0 77743 D9     STO N                                                            DBC/437     
       00517  2 00001 4 00476 D8     TIX D5,4,1                                                       DBC/438     
       00520  0 50000 0 77743 D6     CLA N                                                            DBC/439     
       00521 -0 60000 0 77736        STQ MQD                                                          DBC/440     
       00522 -0 63400 1 00347        SXD DX1,1                                                        DBC/441     
       00523 -0 63400 2 00350        SXD DX2,2                                                        DBC/442     
 D     00524 -3 00000 0 00600 FIXSW  TXL T1,0                                                         DBC/443     
       00525  0 10000 0 00601        TZE T2                                                           DBC/444     
       00526  0 50000 0 77750        CLA D                                                            DBC/445     
       00527 -0 12000 0 00533        TMI ADE                                                          DBC/446     
       00530  0 50000 0 77746        CLA U                                                            DBC/447     
       00531  0 77100 0 00022        ARS 18                                                           DBC/448     
       00532  0 40200 0 77750        SUB D                                                            DBC/449     
       00533  0 40000 0 77744 ADE    ADD E                                                            DBC/450     
       00534  0 40000 0 77747        ADD V                                                            DBC/451     
       00535  0 60100 0 77750        STO D                                                            DBC/452     
       00536  0 50000 0 77743        CLA N                                                            DBC/453     
       00537  0 62100 0 00635        STA K1                                                           DBC/454     
       00540  0 77100 0 00017        ARS 15                                                           DBC/455     
       00541 -0 50100 0 00636        ORA K2                                                           DBC/456     
       00542  0 30000 0 00636        FAD K2                                                           DBC/457     
       00543  0 60100 0 77745        STO F                                                            DBC/458     
       00544  0 76000 0 00000        CLM                                                              DBC/459     
       00545 -0 50100 0 00635        ORA K1                                                           DBC/460     
       00546  0 30000 0 77745        FAD F                                                            DBC/461     
       00547 -0 77300 0 00010        RQL 8                                                            DBC/462     
       00550  0 76000 0 00010        RND                                                              DBC/463     
       00551 -0 50100 0 00637        ORA K3                                                           DBC/464     
       00552  0 53400 4 77750        LXA D,4                                                          DBC/465     
       00553 -3 00000 4 00601        TXL T2,4,0                                                       DBC/466     
       00554  0 56000 0 77750        LDQ D                                                            DBC/467     
       00555  0 16200 0 00566        TQP T4                                                           DBC/468     
       00556  3 00061 4 00564        TXH T5,4,49                                                      DBC/469     
       00557  0 24100 4 00722        FDP TAB,4                                                        DBC/470     
       00560 -0 60000 0 77745        STQ F                                                            DBC/471     
       00561  0 50000 0 77745        CLA F                                                            DBC/472     
       00562  0 36100 0 00640        ACL K4                                                           DBC/473     
       00563 -0 76000 0 00001        PBT                                                              DBC/474     
       00564  0 76000 0 00000 T5     CLM                                                              DBC/475     
 D     00565  1 00000 0 00601        TXI T2,0                                                         DBC/476     
       00566  0 60100 0 77745 T4     STO F                                                            DBC/477     
       00567  3 00061 4 00575        TXH T3,4,49                                                      DBC/478     
       00570  0 56000 0 77745        LDQ F                                                            DBC/479     
       00571  0 26000 4 00722        FMP TAB,4                                                        DBC/480     
       00572  0 36100 0 00641        ACL K5                                                           DBC/481     
       00573 -0 76000 0 00001        PBT                                                              DBC/482     
 D     00574  1 00000 0 00601        TXI T2,0                                                         DBC/483     
       00575  0 76000 0 00000 T3     CLM                                                              DBC/484     
       00576  0 76000 0 00006        COM                                                              DBC/485     
 D     00577  1 00000 0 00601        TXI T2,0                                                         DBC/486     
       00600  0 76700 0 00022 T1     ALS 18                                                           DBC/487     
       00601 -0 53400 4 00604 T2     LXD COUNT,4                   UPDATE FIELD COUNT, AND            DBC/488     
       00602  2 00001 4 00605        TIX MORE,4,1                  IF EXHAUSTED, THEN                 DBC/489     
       00603  0 60100 0 77733        STO DATUM                     SAVE THE CONVERTED FIELD, AND      DBC/490     
       00604  1 00000 0 00300 COUNT  TXI DONE,0,**               * (FIELD REPEAT COUNT)EXAMINE FORMAT.DBC/491     
       00605 -0 63400 4 00604 MORE   SXD COUNT,4                   OTHERWISE, GO EXAMINE LIST.        DBC/492     
                                         LIST = ENTRY POINT USED BY FIELD.                            DBC/493     
       00606 -0 53400 4 00116 LIST   LXD AX4,4                     SET XR4 FOR INDICATED RETURN,      DBC/494     
       00607 -0 53400 1 00114        LXD AX1,1                     RESTORE THE ORIGINAL C(XR1),       DBC/495     
       00610 -0 53400 2 00115        LXD AX2,2                     RESTORE THE ORIGINAL C(XR2I, AND   DBC/496     
       00611  0 02000 4 00001        TRA 1,4                     * GO STORE (OR CONVERT) INPUT.       DBC/497     
                                          END OF PROGRAM READ.                                        DBC/498     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/499     
                                                                                                      DBC/500     
                                         CONSTANTS AND WORKING STORAGE USED BY DBC.                   DBC/501     
       00612 +000000000077    ENDMK  OCT 77                        CCTEST-12.                         DBC/5015    
       00613  000000000074     (     BCD 100000(                   CCTEST-11.                         DBC/502     
       00614  000000000073     COMMA BCD 100000,                   CCTEST-10.                         DBC/503     
       00615  000000000061     SLASH BCD 100000/                   CCTEST-9.                          DBC/504     
       00616  000000000047     P     BCD 100000P                   CCTEST-8.                          DBC/505     
       00617  000000000040     MINUS BCD 100000-                   CCTEST-7.                          DBC/506     
       00620  000000000034     )     BCD 100000)                   CCTEST-6.                          DBC/507     
       00621  000000000033     POINT BCD 100000.                   CCTEST-5.                          DBC/508     
       00622  000000000031     I     BCD 100000I                   CCTEST-4.                          DBC/509     
       00623  000000000030    H      BCD 100000H                   CCTEST-3.                          DBC/510     
       00624  000000000026    FCC    BCD 100000F                   CCTEST-2.                          DBC/511     
       00625  000000000025    EXPON  BCD 100000E                   CCTEST-1.                          DBC/512     
                        00626 CCTEST BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   DBC/513     
       00626 +000000000001     ONE   DEC 1                         CONSTANT USED BY DBC.              DBC/514     
       00627 +000000000012     TEN   DEC 10                        CONSTANT USED BY DBC.              DBC/515     
       00630  0 00000 0 00011  L(9)  PZE 9                         CONSTANT USED BY DBC.              DBC/5155    
       00631  000000000060     BLANK BCD 100000                    CONSTANT USED BY DBC.              DBC/516     
       00632  000000000020    PLUS   BCD 100000+                   CONSTANT USED BY DBC.              DBC/517     
       00633  000000000014    NEGAT  BCD 100000'                   CONSTANT USED BY DBC.              DBC/518     
       00634 -0 00000 0 00000 MZE    MZE                           CONSTANT USED BY DBC.              DBC/519     
       00635 +233000000000    K1     DEC 155B8                     CONSTANT USED BY DBC.              DBC/520     
       00636 +252000000000    K2     DEC 170B8                     CONSTANT USED BY DBC.              DBC/521     
       00637 +000400000000    K3     DEC 1B9                       CONSTANT USED BY DBC.              DBC/522     
       00640 +335000000000    K4     DEC 221B8                     CONSTANT USED BY DBC.              DBC/523     
       00641 +043000000000    K5     DEC 35B8                      CONSTANT USED BY DBC.              DBC/524     
       00642 +375536246150           OCT 375536246150              48-TABLE USED BY DBC.              DBC/525     
       00643 +372430204755           OCT 372430204755              47-TABLE USED BY DBC.              DBC/526     
       00644 +366700324573           OCT 366700324573              46-TABLE USED BY DBC.              DBC/527     
       00645 +363546566774           OCT 363546566774              45-TABLE USED BY DBC.              DBC/528     
       00646 +360436770626           OCT 360436770626              44-TABLE USED BY DBC.              DBC/529     
       00647 +354713132675           OCT 354713132675              43-TABLE USED BY DBC.              DBC/530     
       00650 +351557257061           OCT 351557257061              42-TABLE USED BY DBC.              DBC/531     
       00651 +346445677215           OCT 346445677215              41-TABLE USED BY DBC.              DBC/532     
       00652 +342726145174           OCT 342726145174              40-TABLE USED BY DBC.              DBC/533     
       00653 +337570120775           OCT 337570120775              39-TABLE USED BY DBC.              DBC/534     
       00654 +334454732312           OCT 334454732312              38-TABLE USED BY DBC.              DBC/535     
       00655 +330741367020           OCT 330741367020              37-TABLE USED BY DBC.              DBC/536     
       00656 +325601137163           OCT 325601137163              36-TABLE USED BY DBC.              DBC/537     
       00657 +322464114134           OCT 322464114134              35-TABLE USED BY DBC.              DBC/538     
       00660 +316755023372           OCT 316755023372              34-TABLE USED BY DBC.              DBC/539     
       00661 +313612334310           OCT 313612334310              33-TABLE USED BY DBC.              DBC/540     
       00662 +310473426555           OCT 310473426555              32-TABLE USED BY DBC.              DBC/541     
       00663 +304770675742           OCT 304770675742              31-TABLE USED BY DBC.              DBC/542     
       00664 +301623713116           OCT 301623713116              30-TABLE USED BY DBC.              DBC/543     
       00665 +276503074076           OCT 276503074076              29-TABLE USED BY DBC.              DBC/544     
       00666 +273402374713           OCT 273402374713              28-TABLE USED BY DBC.              DBC/545     
       00667 +267635456171           OCT 267635456171              27-TABLE USED BY DBC.              DBC/546     
       00670 +264512676456           OCT 264512676456              26-TABLE USED BY DBC.              DBC/547     
       00671 +261410545213           OCT 261410545213              25-TABLE USED BY DBC.              DBC/548     
       00672 +255647410337           OCT 255647410337              24-TABLE USED BY DBC.              DBC/549     
       00673 +252522640262           OCT 252522640262              23-TABLE USED BY DBC.              DBC/550     
       00674 +247417031702           OCT 247417031702              22-TABLE USED BY DBC.              DBC/551     
       00675 +243661534466           OCT 243661534466              21-TABLE USED BY DBC.              DBC/552     
       00676 +240532743536           OCT 240532743536              20-TABLE USED BY DBC.              DBC/553     
       00677 +235425434430           OCT 235425434430              19-TABLE USED BY DBC.              DBC/554     
       00700 +231674055530           OCT 231674055530              18-TABLE USED BY DBC.              DBC/555     
       00701 +226543212741           OCT 226543212741              17-TABLE USED BY DBC.              DBC/556     
       00702 +223434157116           OCT 223434157116              16-TABLE USED BY DBC.              DBC/557     
       00703 +217706576512           OCT 217706576512              15-TABLE USED BY DBC.              DBC/558     
       00704 +214553630410           OCT 214553630410              14-TABLE USED BY DBC.              DBC/559     
       00705 +211443023471           OCT 211443023471              13-TABLE USED BY DBC.              DBC/560     
       00706 +205721522451           OCT 205721522451              12-TABLE USED BY DBC.              DBC/561     
       00707 +202564416672           OCT 202564416672              11-TABLE USED BY DBC.              DBC/562     
       00710 +177452013710           OCT 177452013710              10-TABLE USED BY DBC.              DBC/563     
       00711 +173734654500           OCT 173734654500              09-TABLE USED BY DBC.              DBC/564     
       00712 +170575360400           OCT 170575360400              08-TABLE USED BY DBC.              DBC/565     
       00713 +165461132000           OCT 165461132000              07-TABLE USED BY DBC.              DBC/566     
       00714 +161750220000           OCT 161750220000              06-TABLE USED BY DBC.              DBC/567     
       00715 +156606500000           OCT 156606500000              05-TABLE USED BY DBC.              DBC/568     
       00716 +153470400000           OCT 153470400000              04-TABLE USED BY DBC.              DBC/569     
       00717 +147764000000           OCT 147764000000              03-TABLE USED BY DBC.              DBC/570     
       00720 +144620000000           OCT 144620000000              02-TABLE USED BX DBC.              DBC/571     
       00721 +141500000000           OCT 141500000000              01-TABLE USED BY DBC.              DBC/572     
       00722 +136400000000    TAB    OCT 136400000000              00-TABLE USED BY DBC.              DBC/573     
                        77731 COMMON ORG -39                                                          DBC/574     
                        77731  INT   BSS 1                         VARIABLE USED BY DBC.              DBC/575     
                        77732  DIG   BSS 1                         VARIABLE USED BY DBC.              DBC/576     
                        77733  DATUM BSS 1                         VARIABLE USED BY DBC.              DBC/577     
                        77734  MQ    BSS 1                         VARIABLE USED BY DBC.              DBC/578     
                        77735  MQR   BSS 1                         VARIABLE USED BY DBC.              DBC/579     
                        77736 MQD    BSS 1                         VARIABLE USED BY DBC.              DBC/580     
                        77737  PEX   BSS 1                         VARIABLE USED BY DBC.              DBC/581     
                        77740  EXP   BSS 1                         VARIABLE USED BY DBC.              DBC/582     
                        77741  ND    BSS 1                         VARIABLE USED BY DBC.              DBC/563     
                        77742 DG     BSS 1                         VARIABLE USED BY DBC.              DBC/584     
                        77743 N      BSS 1                         VARIABLE USED BY DBC.              DBC/585     
                        77744 E      BSS 1                         VARIABLE USED BY DBC.              DBC/586     
                        77745 F      BSS 1                         VARIABLE USED BY DBC.              DBC/587     
                        77746 U      BSS 1                         IARIABLE USED BY DBC.              DBC/588     
                        77747 V      BSS 1                         VARIABLE USED BY DBC.              DBC/589     
                        77750 D      BSS 1                         VARIABLE USED BY DBC.              DBC/590     
                        77751 BCD    BSS 14                        VARIABLE USED BY DBC.              DBC/591     
                                          END OF CONSTANTS AND WORKING STORAGE USED BY DBC.           DBC/592     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/593     
 A                      00000        END                                                              DBC/594     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     625           0           0           0           0
 LIB       0           0           0           0           0
 COL     625           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      634                  
0NUMBER OF SYMBOLS,  DEF   167,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR CSH.                                        CSH/C01     
                        00000        ORG 0                                                            CSH/C02     
       00000  0 00000 0 00211        PZE C7+13                                                        CSH/C03     
       00001  0 00000 0 77767        PZE COMMON                                                       CSH/C04     
       00002  742362303460           BCD 1(CSH)                                                       CSH/C05     
       00003  0 00000 0 00003            3                                                            CSH/C06     
                                         END OF CSH CONTROL CARD                                      CSH/C07     
                                         CSH FOR FORTRAN II                                           CSH 0001    
                        00000        ORG 0                                                            CSH 0002    
                        77767 COMMON SYN -9                                                           CSH 0003    
       00000  0 42000 2 00000    B17 HPR 0,2               NON-H0LLERITH CHARACTER ON CARD            CSH 0004    
       00001 -0 53400 1 00016        LXD B2,1              RESTART AFTER ERROR                        CSH 0005    
       00002 -0 53400 2 00020        LXD B3,2              X                                          CSH 0006    
       00003  0 76200 0 00321  RDBCD RCD                                                              CSH 0007    
       00004  0 70000 0 77776        CPY L                                                            CSH 0008    
 TD    00005 -3 00000 0 00007        TXL B1                     X                                     CSH 0009    
       00006  0 02000 4 00002        TRA 2,4                    END OF FILE EXIT                      CSH 0010    
       00007 -0 60000 0 77770  B1    STQ LS                     SET LEFT SUM                          CSH 0011    
       00010 -0 63400 1 00016        SXD B2,1                   SAVE INDEX REGISTERS                  CSH 0012    
       00011 -0 63400 2 00020        SXD B3,2                   X                                     CSH 0013    
       00012 -0 53400 1 00026        LXD B4,1                   SET DIGIT ROW COUNT                   CSH 0014    
       00013  0 70000 0 77777        CPY R                      COPY 9 RIGHT ROW AND                  CSH 0015    
       00014 -0 60000 0 77771        STQ RS                     SET RIGHT SUM                         CSH 0016    
       00015  0 07400 2 00156        TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0017    
 TD    00016 -3 00000 0 00021  B2    TXL B5                     LEAVE CONVERSION LOOP                 CSH 0018    
       00017  0 76700 0 00001        ALS 1                                                            CSH 0019    
 TD    00020 -3 00000 0 00064  B3    TXL C2                     INITIALIZE BCD RECORD                 CSH 0020    
       00021  0 70000 0 77772  B5    CPY 8L                     COPY 8 ROW AND                        CSH 0021    
       00022 -0 60000 0 77770        STQ LS                     USE AS SUM                            CSH 0022    
       00023  0 70000 0 77773        CPY 8R                     X                                     CSH 0023    
       00024 -0 60000 0 77771        STQ RS                     X                                     CSH 0024    
       00025  0 07400 2 00156        TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0025    
       00026 -3 00010 0 00031  B4    TXL B6,0,8                 LEAVE CONVERSION LOOP                 CSH 0026    
       00027  0 76700 0 00003        ALS 3                      ADD 8 TIMES 8 ROW                     CSH 0027    
 TD    00030 -3 00000 0 00063        TXL C3                     X                                     CSH 0028    
       00031 -0 50000 0 77776  B6    CAL L                      USE 9 ROW AS SUM                      CSH 0029    
       00032  0 60200 0 77770        SLW LS                     X                                     CSH 0030    
       00033 -0 50000 0 77777        CAL R                      X                                     CSH 0031    
       00034  0 60200 0 77771        SLW RS                     X                                     CSH 0032    
       00035 -3 00001 1 00112  B13   TXL B7,1,1                 TEST FOR ZERO ROW                     CSH 0033    
       00036  0 70000 0 77776  B14   CPY L                      C0PY LEFT ROW AND                     CSH 0034    
 TD    00037 -3 00000 0 00073        TXL B8                     TEST FOR END OF RECORD                CSH 0035    
       00040  0 02000 0 00000        TRA B17                                                          CSH 0036    
       00041 -0 50000 0 77770  B9    CAL LS                     SAVE LEFT ZONE SUM                    CSH 0037    
       00042  0 60200 0 77776        SLW L                      X                                     CSH 0038    
       00043 -0 50000 0 77772        CAL LDS                    FORM INDICATOR FOR                    CSH 0039    
       00044  0 76000 0 00006        COM                        ZERO AND X AND / OR Y                 CSH 0040    
       00045 -0 32000 0 77774        ANA LZ                     IN LEFT ROWS                          CSH 0041    
       00046  0 32000 0 77770        ANS LS                     X                                     CSH 0042    
       00047 -0 50000 0 77771        CAL RS                     SAVE RIGHT ZONE SUM                   CSH 0043    
       00050  0 60200 0 77777        SLW R                      X                                     CSH 0044    
       00051 -0 50000 0 77773        CAL RDS                    FORM INDICATOR FOR                    CSH 0045    
       00052  0 76000 0 00006        COM                        ZERO AND X AND/OR Y                   CSH 0046    
       00053 -0 32000 0 77775        ANA RZ                     IN RIGHT ROWS                         CSH 0047    
       00054  0 32000 0 77771        ANS RS                     X                                     CSH 004B    
       00055  0 07400 2 00156        TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0049    
 TD    00056 -3 00000 0 00132        TXL B15                    LEAVE CONVERSION LOOP                 CSH 0050    
       00057  0 60200 0 77767        SLW TP                     MULTIPLY INDICATOR                    CSH 0051    
       00060  0 76700 0 00002        ALS 2                      BITS BY TEN                           CSH 0052    
       00061  0 36100 0 77767        ACL TP                     X                                     CSH 0053    
       00062  0 76700 0 00001        ALS 1                      X                                     CSH 0054    
       00063  0 36100 1 00000  C3    ACL 0,1                    ADD T0 BCD RECORD                     CSH 0055    
       00064  0 60200 1 00000  C2    SLW 0,1                    STORE IN BCD RECORD                   CSH 0056    
       00065  2 00001 1 00174        TIX C7,1,1                 COUNT WORDS                           CSH 0057    
       00066  0 50200 0 00162  C11   CLS C4                     INVERT ROW SWITCH AND                 CSH 0058    
       00067  0 60100 0 00162        STO C4                     TEST FOR RIGHT ROW DONE               CSH 0059    
       00070 -0 73400 1 00003  ICSH) PDX RDBCD,1                RESTORE ROW COUNT                     CSH 0060    
       00071 -0 12000 2 00001        TMI 1,2                    TRANSFER IF RIGHT ROW DONE            CSH 0061    
 TD    00072  1 00000 0 00157  C10   TXI C9                     GO CONVERT RIGHT ROW                  CSH 0062    
       00073 -0 50000 0 77776  B8    CAL L                      TEST LEFT ROW FOR                     CSH 0063    
       00074 -0 32000 0 77770        ANA LS                     ILLEGAL DOUBLE PUNCH                  CSH 0064    
       00075 -0 10000 0 00000        TNZ B17                    X                                     CSH 0065    
       00076 -0 50000 0 77776  B10   CAL L                      FORM LOGICAL SUM                      CSH 0066    
       00077 -0 60200 0 77770        ORS LS                     0F LEFT ROWS                          CSH 0067    
       00100  0 70000 0 77777        CPY R                      COPY RIGHT ROW AND                    CSH 0068    
       00101 -0 50000 0 77777        CAL R                      TEST FOR ILLEGAL                      CSH 0069    
       00102 -0 32000 0 77771        ANA RS                     DOUBLE PUNCH                          CSH 0070    
       00103 -0 10000 0 00000        TNZ B17                    X                                     CSH 0071    
       00104 -0 50000 0 77777  B11   CAL R                      FORM LOGICAL SUM OF                   CSH 0072    
       00105 -0 60200 0 77771        ORS RS                     RIGHT ROWS                            CSH 0073    
       00106 -2 00001 1 00126        TNX B12,1,1                TEST FOR ZONE ROWS                    CSH 0074    
       00107  0 07400 2 00156        TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0075    
 TD    00110 -3 00000 0 00035        TXL B13                    LEAVE CONVERSION LOOP                 CSH 0076    
 TD    00111 -3 00000 0 00063        TXL C3                     ADD TO BCD RECORD                     CSH 0077    
       00112 -0 50000 0 77772  B7    CAL 8L                     ADD 8 LEFT R0W TO                     CSH 0078    
       00113 -0 50100 0 77770        ORA LS                     LEFT LOGICAL SUM                      CSH 0079    
       00114  0 60200 0 77772        SLW LDS                    X                                     CSH 0080    
       00115  0 70000 0 77774        CPY LZ                     COPY ZERO LEFT AND                    CSH 0081    
       00116 -0 32000 0 77774        ANA LZ                     FORM INDICATOR FOR                    CSH 0082    
       00117  0 60200 0 77770        SLW LS                     BOTH DIGIT AND ZERO                   CSH 0083    
       00120 -0 50000 0 77773        CAL 8R                     ADD 8 RIGHT ROW TO                    CSH 0084    
       00121 -0 50100 0 77771        ORA RS                     RIGHT LOGICAL SUM                     CSH 0085    
       00122  0 60200 0 77773        SLW RDS                    X                                     CSH 0086    
       00123  0 70000 0 77775        CPY RZ                     COPY ZERO RIGHT AND                   CSH 0087    
       00124 -0 32000 0 77775        ANA RZ                     FORM INDICATOR FOR                    CSH 0088    
       00125  0 60200 0 77771        SLW RS                     BOTH DIGIT AND ZERO                   CSH 0089    
       00126  0 07400 2 00156  B12   TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0090    
 TD    00127 -3 00000 0 00036        TXL B14                    LEAVE CONVERSION LOOP                 CSH 0091    
       00130  0 76700 0 00004        ALS 4                      SHIFT TO ZONE POSITION                CSH 0092    
 TD    00131 -3 00000 0 00063        TXL C3                     X                                     CSH 0093    
       00132 -0 50000 0 77772  B15   CAL LDS                    FORM INDICATOR FOR                    CSH 0094    
       00133 -0 50100 0 77774        ORA LZ                     BLANK COLUMNS IN                      CSH 0095    
       00134 -0 50100 0 77776        ORA L                      LEFT HALF OF CARD                     CSH 0096    
       00135  0 76000 0 00006        COM                        X                                     CSH 0097    
       00136  0 60200 0 77770        SLW LS                     X                                     CSH 0098    
       00137 -0 50000 0 77773        CAL RDS                    FORM INDICATOR FOR                    CSH 0099    
       00140 -0 50100 0 77775        ORA RZ                     BLANK COLUMNS IN                      CSH 0100    
       00141 -0 50100 0 77777        ORA R                      RIGHT HALF OF CARD                    CSH 0101    
       00142  0 76000 0 00006        COM                        X                                     CSH 0102    
       00143  0 60200 0 77771        SLW RS                     X                                     CSH 0103    
       00144  0 07400 2 00156        TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0104    
 TD    00145 -3 00000 0 00153        TXL B16                    LEAVE CONVERSION LOOP                 CSH 0105    
       00146  0 60200 0 77767        SLW TP                     MULTIPLY INDICATOR                    CSH 0106    
       00147  0 76700 0 00001        ALS 1                      BITS BY 3 AND                         CSH 0107    
       00150  0 36100 0 77767        ACL TP                     SHIFT TO ZONE POSITION                CSH 0108    
       00151  0 76700 0 00004        ALS 4                      X                                     CSH 0109    
 TD    00152 -3 00000 0 00063        TXL C3                     X                                     CSH 0110    
       00153 -0 53400 1 00016  B16   LXD B2,1                   RESTORE INDEX REGISTERS               CSH 0111    
       00154 -0 53400 2 00020        LXD B3,2                   AND RETURN TO MAIN                    CSH 0112    
       00155  0 02000 4 00003        TRA 3,4                    PROGRAM                               CSH 0113    
       00156 -0 63400 1 00162  C1    SXD C4,1                   SAVE ROW COUNT                        CSH 0114    
       00157 -0 50000 4 00001  C9    CAL 1,4                    INITIALIZE ADDRESSES                  CSH 0115    
       00160  0 40100 0 00174        ADM C7                     X ADD 6                               CSH 0116    
       00161  0 56000 0 77770  C6    LDQ LS                     OBTAIN LEFT SUM                       CSH 0117    
       00162 -3 00000 0 00165  C4    TXL C8,,**                 TRANSFER IF LEFT ROW                  CSH 011B    
       00163  0 40100 0 00174        ADM C7                     RIGHT ROW, ADD 6 MORE                 CSH 0119    
       00164  0 56000 0 77771        LDQ RS                     OBTAIN RIGHT SUM AND                  CSH 0120    
       00165  0 62100 0 00064  C8    STA C2                     SET BCD RECORD ADDRESS                CSH 0121    
       00166  0 62100 0 00063        STA C3                     X                                     CSH 0I22    
       00167  3 00001 1 00173        TXH C5,1,1                 SKIP TEST IF DIGIT ROW                CSH 0123    
       00170 -0 60000 0 77767        STQ TP                     TEST FOR NO SUM                       CSH 0124    
       00171 -0 50000 0 77767        CAL TP                     X                                     CSH 0125    
       00172  0 10000 0 00066        TZE C11                    X                                     CSH 0126    
       00173  0 53400 1 00174  C5    LXA C7,1                   SET WORD COUNT                        CSH 0127    
 T     00174 -0 75400 0 00006  C7    PXD 6                      CONVERT ROW                           CSH 0128    
       00175 -0 76300 0 00001        LGL 1                      X                                     CSH 0129    
       00176  0 76700 0 00005        ALS 5                      X                                     CSH 0130    
       00177 -0 76300 0 00001        LGL 1                      X                                     CSH 0131    
       00200  0 76700 0 00005        ALS 5                      X                                     CSH 0132    
       00201 -0 76300 0 00001        LGL 1                      X                                     CSH 0133    
       00202  0 76700 0 00005        ALS 5                      X                                     CSH 0134    
       00203 -0 76300 0 00001        LGL 1                      X                                     CSH 0135    
       00204  0 76700 0 00005        ALS 5                      X                                     CSH 0136    
       00205 -0 76300 0 00001        LGL 1                      X                                     CSH 0137    
       00206  0 76700 0 00005        ALS 5                      X                                     CSH 0138    
       00207 -0 76300 0 00001        LGL 1                      X                                     CSH 0139    
       00210  0 02000 2 00002        TRA 2,2                    EXIT FOR ROW PROCEDURE                CSH 0140    
                        77767        ORG COMMON                                                       CSH 014I    
                        77767  TP    BSS 1                      TEMPORARY                             CSH 0142    
                        77770  LS    BSS 1                      LEFT SUM                              CSH 0143    
                        77771  RS    BSS 1                      RIGHT SUM                             CSH 0144    
                        77772  LDS   BSS 1                      LEFT DIGIT SUM                        CSH 0145    
                        77773  RDS   BSS 1                      RIGHT DIGIT SUM                       CSH 0146    
                        77774  LZ    BSS 1                      LEFT ZERO ROW                         CSH 0147    
                        77775  RZ    BSS 1                      RIGHT ZERO ROW                        CSH 0148    
                        77776  L     BSS 1                      LEFT ROW                              CSH 0149    
                        77777  R     BSS 1                      RIGHT ROW                             CSH 0150    
                        77772  8L    SYN LDS                    8 LEFT ROW                            CSH 0151    
                        77773  8R    SYN RDS                    8 RIGHT ROW                           CSH 0152    
 A                      00000        END                                                              CSH 0153    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     161           0           0           0           0
 LIB       0           0           0           0           0
 COL     161           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      169                  
0NUMBER OF SYMBOLS,  DEF    42,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR TSH.                                        TSH/C01     
                        00000        ORG 0                                                            TSH/C02     
       00000  0 00000 0 00025        PZE BAD+1                                                        TSH/C03     
       00001  0 00000 0 00000        PZE                                                              TSH/C04     
       00002  746362303460           BCD 1(TSH)                                                       TSH/C05     
       00003  0 00000 0 00000        PZE                                                              TSH/C06     
                                         END OF TSH CONTROL CARD.                                     TSH/C07     
                        00000        ORG 0                                                            TSH000      
       00000 -0 63400 2 00022    RTD SXD X2,2              SAVE INDEX REGISTER                        TSH001      
       00001 -0 76000 0 00012        RTT                   CLEAR RTT INDICATOR                        TSH002      
       00002  0 76100 0 00000  (TSH) NOP RTD               X                                          TSH003      
       00003  0 50000 4 00001        CLA 1,4               OBTAIN ADDRESS OF 1ST                      TSH004      
       00004  0 62100 0 00011        STA CPY               LOCATION FOR COPY                          TSH005      
       00005  0 50000 0 00023        CLA BAC               INITIALIZE TAPE CHECK TEST                 TSH006      
       00006  0 60100 0 00015    REP STO ERR               TO REREAD,AFTER 1ST ERROR.                 TSH007      
       00007  0 76200 1 00177        RDS 127,1             SELECT TAPE                                TSH008      
       00010 -0 53400 2 00023        LXD BAC,2             SET IR2 TO ZERO                            TSH009      
       00011  0 70000 2 00011    CPY CPY *,2               READ TAPE RECORD OF                        TSH010      
       00012  1 77777 2 00011        TXI CPY,2,-1          N WORDS                                    TSH011      
       00013  1 00001 4 00016        TXI RES,4,1           EOF (END OF LIST)                          TSH012      
       00014 -0 76000 0 00012        RTT                   EOR REDUNDANCY TEST                        TSH013      
 U     00015    00000 0 00000    ERR ***                   IT,ERROR, REREAD                           TSH014      
       00016 -0 53400 2 00022    RES LXD X2,2              RETURN TO MAIN                             TSH015      
       00017  0 02000 4 00003        TRA 3,4               PROGRAM FOR EOF                            TSH016      
       00020  0 76400 1 00377    TRY BST 127,1             PREPARE TO REREAO,BAO,                     TSH017      
       00021  0 50000 0 00024        CLA BAD               RECORD                                     TSH01B      
 TD    00022  1 00000 0 00006     X2 TXI REP               X                                          TSH019      
 TD    00023  1 00000 0 00020    BAC TXI TRY                                                          TSH020      
       00024  0 42000 3 00000    BAD HPR 0,3               2ND ERROR HALT                             TSH021      
 A                      00000        END                                                              TSH022      
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    10,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN II / BDC / 12 JAN 59.                                        
1                                        704 FORTRAN II / BDC / 12 JAN 59.                                        
                                                                                                                  
                                         THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=                      
                                         ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION                   
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.               
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF               
                                         THIS LOGICAL BLOCK OR SUBROUTINE.                                        
                                         C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.                     
                                         P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).              
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                                         CONTROL CARD FOR BDC.                                        BDC/C01     
 A                      00000        ORG                                                              BDC/C02     
       00000  0 00001 0 00673        PZE TAB+1,,1                                                     BDC/C03     
       00001  0 00000 0 77552        PZE COMMON                                                       BDC/C04     
       00002  742224233460           BCD 1(BDC)                                                       BDC/C05     
       00003  0 00000 0 00001        PZE (BDC)                                                        BDC/C06     
       00004  742631433460           BCD 1(FIL)                                                       BDC/C07     
       00005 -0 00000 0 00037        MZE (FIL)                                                        BDC/C08     
                                          END OF BDC CONTROL CARD.                                    BDC/C13     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
                        00000        ORG 0                                                            BDC/001     
                                         (BDC)/ CALLS=LINE,PRINT. CALLER=MAIN PROGRAM.                BDC/002     
                                         (BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT.      BDC/003     
       00000  745163453460     (RTN) BCD 1(RTN)                                                       BDC/0035    
       00001  0 02100 0 00002 (BDC)  TTR NEW                       INSTRUCTION EXECUTED IN LOCATION 1.BDC/004     
                                         NEW = ENTRY POINT FROM MAIN PROGRAM (CIAC)= ADDRESS OF OUTPUTBDC/005     
                                         ROUTINE TO HANDLE CURRENT OUTPUT, AND C(0)= LOCATI0N OF THE  BDC/006     
                                         CURRENT FORMAT STATEMENT).                                   BDC/007     
       00002 -0 76000 0 00007 NEW    LTM                           SET FILLW TO CALL THE INDICATED    BDC/008     
       00003  0 62100 0 00541        STA TYPE                      TYPE OF OUTPUT ROUTINE.            BDC/009     
       00004 -0 50000 0 00000        CAL 0                         SET OUTPUT FORMAT STATEMENT        BDC/010     
       00005  0 62100 0 00010        STA CALL                      LOCATI0N.                          BDC/011     
       00006  0 40000 0 00577        ADD ONE                       SET EXIT                           BDC/012     
       00007  0 62100 0 00016        STA FX4                       TO MAIN PROGRAM.                   BDC/013     
       00010 -0 50000 0 00000 CALL   CAL **                        OBTAIN FORMAT STATEMENT            BDC/014     
       00011 -0 63400 4 00016        SXD FX4,4                     FOR SCAN.                          BDC/015     
       00012  0 07400 4 00056        TSX LINE,4                  * GO SCAN FORMAT.                    BDC/016     
       00013 -0 53400 4 00016        LXD FX4,4                     WHEN DONE, RESTORE C(XR4).         BDC/017     
       00014 -0 50000 0 00017        CAL TRAP                      SET LOCATION 1 FOR FUTURE          BDC/018     
       00015  0 60200 0 00001        SLW 1                         TRAP TRANSFER TO SEEK, AND         BDC/019     
       00016  1 00000 0 00000 FX4    TXI **,0,**                 * TRANSFER CONTROL TO MAIN PROGRAM.  BDC/020     
                                         THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.          BDC/021     
       00017  0 02100 0 00020 TRAP   TTR SEEK                      INSTRUCTION EXECUTED IN LOCATION 1.BDC/022     
                                         SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF    BDC/023     
                                         THE ADDRESS OF THE NEXT OUTPUT NUMBERS).                     BDC/024     
       00020 -0 76000 0 00007 SEEK   LTM                           PICKUP NTR INSTRUCTION, AND        BDC/025     
       00021 -0 50000 0 00000        CAL 0                         SET LOCATION                       BDC/026     
       00022  0 62100 0 00025        STA SETL                      OF OUTPUT NUMBERS.                 BDC/027     
       00023  0 40000 0 00577        ADD ONE                       SET LOCATION FOR                   BDC/028     
       00024  0 62100 0 00036        STA OUT                       RETURN TO MAIN PROGRAM.            BDC/029     
       00025 -0 50000 0 00000 SETL   CAL **                        PICKUP LOCATION OF OUTPUT          BDC/030     
       00026  0 60200 0 00031        SLW GET                       AND SET ADDRESS AND TAG OF GET.    BDC/031     
       00027  0 56000 0 00042        LDQ CLA                       SET GET OP                         BDC/032     
       00030 -0 62000 0 00031        SLQ GET                       TO CLA.                            BDC/033     
       00031  0 50000 0 00000 GET    CLA **,**                     GET OUTPUT NUMBER.                 BDC/034     
       00032 -0 63400 4 00016        SXD FX4,4                     SAVE THE C(XR4), AND               BDC/035     
       00033  0 07400 4 00315        TSX PRINT,4                 * GO CONVERT AND PRINT OUTPUT.       BDC/036     
       00034 -0 53400 4 00016        LXD FX4,4                     RESTORE THE C(XR4).                BDC/037     
       00035  0 76000 0 00007        ETM                           REPEAT UNTIL LIST IS EXHAUSTED,    BDC/038     
       00036  0 02100 0 00000 OUT    TTR **                      * UNDER CONTROL OF THE MAIN PROGRAM. BDC/039     
                                          END OF PR0GRAM (BDC).                                       BDC/040     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/041     
                                                                                                      BDC/042     
                                         (FIL)/ CALLS=FILLW. USES=(RTN). CALLER=MAIN PR0GRAM.         BDC/043     
                                         (FIL) CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.BDC/044     
       00037  0 40000 0 00600  (FIL) ADD TWO                       SET ADDRESS FOR                    BDC/045     
       00040  0 62100 0 00055        STA RET                       RETURN TO MAIN PROGRAM.            BDC/046     
       00041 -0 76000 0 00007        LTM                           IF NO                              BDC/047     
       00042  0 50000 0 00476 CLA    CLA PACK                      OUTPUT REMAINS                     BDC/048     
       00043  0 40200 0 00545        SUB FILT                      IN REC BUFFER,                     BDC/049     
       00044 -0 10000 0 00050        TNZ LAST                      OR IN                              BDC/050     
       00045  0 50000 0 77777        CLA WORD                      WORD INDICATOR,                    BDC/051     
       00046  0 40200 0 00577        SUB ONE                       THEN                               BDC/052     
       00047  0 10000 0 00053        TZE EXIT                    * EXIT TO RESTORE ALL INDICATORS.    BDC/053     
       00050 -0 63400 4 00016 LAST   SXD FX4,4                     OTHERWISE, SAVE THE C(XR4), AND    BDC/054     
       00051  0 07400 4 00515        TSX FILLW,4                 * GO TRANSMIT REMAINING OUTPUT.      BDC/055     
       00052 -0 53400 4 00016        LXD FX4,4                     RESTORE THE C(XR4), AND            BDC/056     
       00053 -0 50000 0 00053  EXIT  CAL EXIT                      PICKUP EXIT ADDRESS, AND           BDC/057     
       00054  1 00000 0 00000  FILLX TXI (RTN),0,**              * EXIT TO RESTORE ALL INDICATORS.    BDC/0575    
       00055  0 02100 0 00000  RET   TTR **                        THEN RETURN TO MAIN PROGRAM        BDC/0576    
                                          END OF PROGRAM (FIL).                                       BDC/05B     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/059     
                                                                                                      BDC/060     
                                         LINE,4/ CALLS=RESET,FIELD,FILLW.  USES=PRINT. CALLER=(BDC).  BDC/156     
                                         LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT.     BDC/157     
       00056 -0 63400 4 00135 LINE   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN.        BDC/158     
       00057 -0 63400 1 00133        SXD AX1,1                     SAVE THE ORIGINAL C(XR1), AND      BDC/159     
       00060 -0 63400 2 00134        SXD AX2,2                     SAVE THE ORIGINAL C(XR2).          BDC/160     
       00061  0 76000 0 00006        COM                           COMPLEMENT THE C(AC), AND          BDC/161     
       00062  0 73400 2 00007 SEVEN  PAX 7,2                       SET XR2= -(CURRENT FORMAT LOC.),ANDBDC/162     
       00063  0 62200 0 00105        STD UNIT                      UNIT DECREMENT= -(CURRENT UNIT).   BDC/163     
       00064  0 60000 0 77750        STZ PEX                       SET PEX (SCALE FACTOR) = 0, AND    BDC/164     
       00065  0 07400 4 00544        TSX RESET,4                 * SET REC=BLANKS, PACK=REC, WORD=1.  BDC/165     
       00066  0 60100 0 77745        STO INT                       SET INT = I.                       BDC/166     
       00067  0 53400 1 00062        LXA SEVEN,1                   SET XR1 = 7, AND PICKUP THE        BDC/167     
       00070  0 56000 2 77777        LDQ -1,2                      1ST WORD OF CURRENT FORMAT.        BDC/168     
                                         CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.    BDC/169     
       00071 -0 63400 1 00137 CCLPAR SXD BX1,1                     SAVE THE CURRENT CHARACTER C0UNT,  BDC/170     
       00072 -0 63400 2 00140        SXD BX2,2                     SCAN POSITION, AND FORMAT WORD,    BDC/171     
       00073 -0 60000 0 77752        STQ MQR                       FOR POSSIBLE REPETITION OF GROUP.  BDC/172     
       00074  0 53400 4 77745        LXA INT,4                     SET GROUP CONTROL COUNT FOR THE    BDC/173     
       00075 -0 63400 4 00141        SXD BX4,4                     INDICATED NUMBER OF REPETITIONS,   BDC/174     
       00076 -0 63400 4 00274        SXD GROUPX,4                  AND SAVE FOR POSSIBLE RESCAN.      BDC/175     
                                         SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCIOUT,CCHOUT,RESCAN.   BDC/176     
       00077  0 60000 0 77745 SCAN   STZ INT                       CLEAR INT WORKING STORAGE, AND     BDC/177     
       00100  1 00006 0 00121 SIX    TXI SCAN5,0,6                 GO RESUME SCAN.                    BDC/178     
       00101 -0 53400 1 00100 SCAN1  LXD SIX,1                     RESET FORMAT CHARACTER COUNT, AND  BDC/179     
       00102  0 56000 2 77777        LDQ -1,2                      PICKUP NEXT FORMAT WORD.           BDC/180     
       00103 -0 76300 0 00006 SCAN2  LGL 6                         EXAMINE NEXT CHARACTER,            BDC/181     
       00104  0 34000 0 00570        CAS BLANK                     AND IF BLANK,                      BDC/182     
       00105  1 00000 0 00107 UNIT   TXI SCAN3,0,**                THEN                               BDC/183     
 D     00106  1 00000 0 00121        TXI SCAN5,0                   GO EXAMINE NEXT CHARACTER.         BDC/184     
       00107  0 34000 0 00601 SCAN3  CAS L(9)                      IF NOT BLANK, COMPARE WITH NINE,   BDC/185     
 D     00110  1 00000 0 00124        TXI SCAN6,0                   IF NON-NUMERIC, COMPARE CCTEST.    BDC/186     
       00111  0 76100 0 00000        NOP                           IF NUMERIC, THEN                   BDC/187     
       00112  0 60100 0 77746        STO DIG                       CONVERT                            BDC/188     
       00113  0 50000 0 77745        CLA INT                       SUCCESSIVE                         BDC/189     
       00114  0 76700 0 00002        ALS 2                         BCD                                BDC/190     
       00115  0 40000 0 77745        ADD INT                       DIGITS                             BDC/191     
       00116  0 76700 0 00001        ALS 1                         TO BINARY,                         BDC/192     
       00117  0 36100 0 77746        ACL DIG                       TO SET INT= SCALE FACTOR,          BDC/193     
                                         SCAN4 = ENTRY POINT USED BY CCSCFM.                          BDC/194     
       00120  0 60100 0 77745 SCAN4  STO INT                       CURRENT FIELD OR GROUP CONTROL.    BDC/195     
                                         SCAN5 = ENTRY POINT USED BY CCDCPT.                          BDC/196     
       00121 -0 75400 0 00311 SCAN5  PXD XPRINT,0                  CLEAR THE AC, AND UPDATE COUNT.    BDC/197     
       00122  2 00001 1 00103        TIX SCAN2,1,1                 WHEN NO CHARACTERS REMAIN,         BDC/198     
       00123  1 77777 2 00101        TXI SCAN1,2,-1                ADJUST SCAN POSITION, AND REPEAT.  BDC/199     
                                         SCAN6 = ENTRY POINT USED BY CCDCPT.                          BDC/200     
       00124 -0 53400 4 00126 SCAN6  LXD NCC,4                     WHEN A NON-NUMERIC IS MET,         BDC/201     
       00125  0 34000 4 00567 SCAN7  CAS CCTEST,4                  SCAN LIST OF CONTROL CHARACTERS,   BDC/202     
       00126  1 00014 0 00130 NCC    TXI SCAN8,0,12                AND IF EQUALITY IS FOUND,          BDC/203     
       00127  0 02000 4 00146        TRA FRMTR,4                 * TAKE THE INDICATED TRANSFER.       BDC/204     
       00130  2 00001 4 00125 SCAN8  TIX SCAN7,4,1                 IF NOT FOUND IN CONTROL LIST, THEN BDC/205     
       00131  0 42000 1 00005        HPR 5,1                       STOP. PRESS START TO CONTINUE.     BDC/2055    
                                          END OF PROGRAM LINE.                                        BDC/210     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/211     
                                                                                                      BDC/212     
                                         FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =                  BDC/213     
 D     00132  1 00000 0 00146        TXI CCEDMK,0                  END OF FORMAT STATEMENT.           BDC/2135    
       00133  1 00000 0 00071 AX1    TXI CCLPAR,0,**               BEGIN FORMAT OR GROUP.             BDC/214     
       00134  1 00000 0 00152 AX2    TXI CCCMMA,0,**               END FIELD.                         BDC/215     
       00135  1 00000 0 00157 AX4    TXI CCSLSH,0,**               END LINE OR RECORD.                BDC/216     
 D     00136  1 00000 0 00162        TXI CCSCFP,0                  SCALE FACTOR PLUS.                 BDC/217     
       00137  1 00000 0 00165 BX1    TXI CCSCFM,0,**               SCALE FACTOR MINUS.                BDC/218     
       00140  1 00000 0 00167 BX2    TXI CCRPAR,0,**               END FORMAT OR GROUP.               BDC/219     
       00141  1 00000 0 00173 BX4    TXI CCDCPT,0,**               ROUNDING OF OUTPUT NUMBER.         BDC/220     
 D     00142  1 00000 0 00212        TXI CCIOUT,0                  DECIMAL OUTPUT.                    BDC/221     
       00143  1 00000 0 00217 CX1    TXI CCHOUT,0,**               HOLLERITH FIELD OUTPUT.            BDC/222     
       00144  1 00000 0 00243 CX2    TXI CCFOUT,0,**               FIXED POINT 0UTPUT.                BDC/223     
       00145  1 00000 0 00254 CX4    TXI CCEOUT,0,**               FLOATING POINT OUTPUT.             BDC/224     
                        00146 FRMTR  BSS 0                                                            BDC/225     
                                         * * * * * * * * * * * * * *.* * * * * * * * * * * * * * * * *BDC/226     
                                                                                                      BDC/227     
                                         CCEDMK/ CALLS=FIELD,MAIN PROGRAM.                            BDC/2271    
                                         CCEDMK = ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN.  BDC/2272    
       00146  0 07400 4 00275 CCEDMK TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/2273    
       00147  0 50000 0 00121        CLA SCAN5                     WHEN DONE, SET                     BDC/2274    
       00150  0 62100 0 00317        STA CNVSW                     CONVERSION SWITCH TO RESCAN, AND   BDC/2275    
 D     00151  1 00000 0 00513        TXI LIST,0                  * GO SEE IF LIST IS EXHAUSTED.       BDC/2276    
                                          END OF PROGRAM CCEDMK.                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/2277    
                                                                                                      BDC/2278    
                                         CCCMMA/ CALLS=FIELD. USES=LINEISCAN).                        BDC/228     
                                         CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.     BDC/229     
       00152  0 07400 4 00275 CCCMMA TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/230     
                                         RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR.                  BDC/231     
       00153 -0 53400 1 00143 RESUME LXD CX1,1                     WHEN DONE, RESTORE CHARACTER.COUNT,BDC/232     
       00154 -0 53400 2 00144        LXD CX2,2                     RESTORE SCAN P0SITI0N, AND         BDC/233     
       00155  0 56000 0 77751        LDQ MQ                        CURRENT FORMAT WORD. THEN          BDC/234     
 D     00156  1 00000 0 00077        TXI SCAN,0                  * GO RESUME SCAN.                    BDC/235     
                                          END OF PROGRAM CCCMMA.                                      BDC/236     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/237     
                                                                                                      BDC/238     
                                         CCSLSH/ CALLS=FIELD,FILLW. USES=CCCMMA.                      BDC/239     
                                         CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.     BDC/240     
       00157  0 07400 4 00275 CCSLSH TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/241     
       00160  0 07400 4 00515        TSX FILLW,4                 * WHEN DONE, OUTPUT RECORD, AND      BDC/242     
 D     00161  1 00000 0 00153        TXI RESUME,0                * GO RESUME SCAN.                    BDC/243     
                                          END OF PROGRAM CCSLSH.                                      BDC/244     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/245     
                                                                                                      BDC/246     
                                         CCSCFP/ USES=LINE(SCAN).                                     BDC/247     
                                         CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.         BDC/248     
       00162  0 50000 0 77745 CCSCFP CLA INT                       PICKUP AND                         BDC/249     
       00163  0 60100 0 77750        STO PEX                       STORE SCALE FACTOR.                BDC/250     
 D     00164  1 00000 0 00077        TXI SCAN,0                  * GO RESUME SCAN.                    BDC/25I     
                                          END OF PROGRAM CCSCFP.                                      BDC/252     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/253     
                                                                                                      BDC/254     
                                         CCSCFM/ USES=LINE(SCAN).                                     BDC/255     
                                         CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.BDC/256     
       00165  0 50200 0 77745 CCSCFM CLS INT                       SET INT MINUS, AND                 BDC/257     
 D     00166  1 00000 0 00120        TXI SCAN4,0                 * G0 GET SCALE FACTOR.               BDC/258     
                                          END OF PROGRAM CCSCFM.                                      BDC/259     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/260     
                                                                                                      BDC/261     
                                         CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).              BDC/262     
                                         CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.    BDC/263     
       00167  0 07400 4 00275 CCRPAR TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/264     
       00170 -0 53400 4 00141        LXD BX4,4                     WHEN DONE, UPDATE GROUP COUNT, AND BDC/265     
       00171 -2 00001 4 00153        TNX RESUME,4,1              * GO RESUME SCAN, UNLESS             BDC/266     
 D     00172  1 00000 0 00270        TXI GROUP,0                 * REPETITION OF GROUP IS INDICATED.  BDC/267     
                                          END OF PROGRAM CCRPAR.                                      BDC/268     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/269     
                                                                                                      BDC/270     
                                         CCDCPT/ USES=LINE(SCAN).                                     BDC/271     
                                         CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.     BDC/272     
       00173  0 50000 0 00211 CCDCPT CLA DTR                       MODIFY SCAN INSTRUCTION            BDC/273     
       00174  0 60100 0 00107        STO SCAN3                     TO TRANSFER INTO DCPT1.            BDC/274     
       00175  0 60000 0 77746        STZ DIG                       CLEAR DIG, AND                     BDC/2745    
 D     00176  1 00000 0 00121        TXI SCAN5,0                 * GO RESUME SCAN.                    BDC/275     
                                         DCPT1 = REENTRY POINT FROM LINE(SCAN).                       BDC/276     
       00177  0 34000 0 00601 DCPT1  CAS L(9)                      DETERMINE THE                      BDC/277     
 D     00200  1 00000 0 00204        TXI DCPT3,0                   NUMBER, MODULO TEN,                BDC/278     
       00201  0 76100 0 00000        NOP                           OF DIGITS                          BDC/279     
       00202  0 60100 0 77746        STO DIG                       IN FRACTION.                       BDC/280     
 D     00203  1 00000 0 00121        TXI SCAN5,0                 * WHEN A CONTROL CHARACTER IS MET,   BDC/281     
       00204 -0 60000 0 77751 DCPT3  STQ MQ                        RESTORE THE                        BDC/282     
       00205  0 56000 0 00177        LDQ DCPT1                     SCAN INSTRUCTION                   BDC/283     
       00206 -0 60000 0 00107        STQ SCAN3                     TO ITS ORIGINAL FORM, AND          BDC/284     
       00207  0 56000 0 77751        LDQ MQ                        GO COMPARE CHARACTER               BDC/285     
 D     00210  1 00000 0 00124        TXI SCAN6,0                 * WITH CCTEST LIST.                  BDC/286     
                                          END OF PROGRAM CCDCPT.                                      BDC/287     
 D     00211  1 00000 0 00177 DTR    TXI DCPT1,0                 * INSTRUCTION CONSTANT.              BDC/28B     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/289     
                                                                                                      BDC/290     
                                         CCIOUT/ USES=LINE(SCAN).                                     BDC/291     
                                         CCIOUT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.        BDC/292     
       00212  0 50000 0 00362 CCIOUT CLA IAD                       PICKUP INTG, AND                   BDC/293     
                                         SETAD = ENTRY POINT USED BY CCFOUT,CCEOUT.                   BDC/294     
       00213  0 62100 0 00317 SETAD  STA CNVSW                     SET CONVERSION SWITCH.             BDC/295     
       00214  0 53400 4 77745        LXA INT,4                     SET,COUNT FOR THE                  BDC/296     
       00215 -0 63400 4 00511        SXD COUNT,4                   REPETITION OF THIS FIELD, AND      BDC/297     
 D     00216  1 00000 0 00077        TXI SCAN,0                  * GO RESUME SCAN.                    BDC/298     
                                          END OF PROGRAM CCIOUT.                                      BDC/299     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/300     
                                                                                                      BDC/301     
                                         CCHOUT/ USES=LINE(SCAN).                                     BDC/302     
                                         CCHOUT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.        BDC/303     
       00217  0 50000 0 00476 CCHOUT CLA PACK                      SET STORING ADDRESS                BDC/304     
       00220  0 62100 0 00232        STA HOUT4                     TO CURRENT LOCATION IN REC BUFFER. BDC/305     
       00221 -0 50000 0 77777        CAL WORD                      PICKUP WORD INDICATOR.             BDC/306     
       00222  0 53400 4 77745        LXA INT,4                     SET XR4 = FIELD WIDTH.             BDC/307     
       00223 -0 14000 0 00224        TNO HOUT1                     TURN OFF OVERFLOW INDICATOR.       BDC/308     
       00224  2 00001 1 00230 HOUT1  TIX HOUT3,1,1                 UPDATE COUNT, AND IF NO CHARACTERS BDC/309     
       00225 -0 53400 1 00100        LXD SIX,1                     REMAIN, RESET CHARACTER C0UNT,     BDC/310     
       00226  1 77777 2 00227        TXI HOUT2,2,-1                RESET CURRENT FORMAT SCAN POSITION,BDC/311     
       00227  0 56000 2 77777 HOUT2  LDQ -1,2                      AND PICKUP NEXT FORMAT WORD.       BDC/312     
       00230 -0 76300 0 00006 HOUT3  LGL 6                         SHIFT SIX CHARACTERS               BDC/313     
       00231 -0 14000 0 00240        TNO HOUT5                     INTO THE AC.                       BDC/3I4     
       00232  0 60200 0 00000 HOUT4  SLW **                        STORE BCD WORD IN REC BUFFER, AND  BDC/315     
       00233 -0 50000 0 00232        CAL HOUT4                     UPDATE                             BDC/316     
       00234  0 40000 0 00577        ADD ONE                       STORING                            BDC/317     
       00235  0 62100 0 00232        STA HOUT4                     ADDRESS                            BDC/318     
       00236  0 62100 0 00476        STA PACK                      AND PACK ADDRESS.                  BDC/319     
       00237 -0 50000 0 00577        CAL ONE                       RESET WORD INDICATOR.              BDC/320     
       00240  2 00001 4 00224 HOUT5  TIX HOUT1,4,1                 REPEAT UNTIL WHOLE GROUP IS MOVED. BDC/321     
       00241  0 60100 0 77777        STO WORD                      SAVE INCOMPLETE WORD. AND          BDC/322     
 D     00242  1 00000 0 00077        TXI SCAN,0                  * GO RESUME SCAN.                    BDC/323     
                                          END OF PROGRAM CCHOUT.                                      BDC/324     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/325     
                                                                                                      BDC/326     
                                         CCFOUT/ USES=CCIOUT.                                         BDC/327     
                                         COFOUT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.        BDC/328     
       00243  0 50000 0 00253 CCFOUT CLA FXDW                      SET CONVERSION ROUTINE             BDC/329     
       00244  0 62100 0 00427        STA CNV5                      FOR FIXED POINT                    BDC/330     
       00245  0 62200 0 00441        STD CNV6                      OUTPUT                             BDC/331     
       00246  0 62200 0 00435        STD CLR                       (WITHOUT EXPONENT).                BDC/332     
       00247  0 50200 0 77750        CLS PEX                       SET EXP TO THE                     BDC/333     
       00250  0 60100 0 77742        STO EXP                       NEGATIVE OF SCALE FACTOR.          BDC/334     
       00251  0 50000 0 00331        CLA FAD                       PICKUP FXD, AND                    BDC/335     
 D     00252  1 00000 0 00213        TXI SETAD,0                 * GO SET CONVERSI0N SWITCH.          BDC/336     
                                          END OF PROGRAM CCFOUT.                                      BDC/337     
       00253  0 00001 0 77742 FXDW   PZE CHAR,0,1                  CONSTANT USED BY CCFOUT.           BDC/338     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/339     
                                                                                                      BDC/340     
                                         CCEOUT/ USES=CCIOUT.                                         BDC/341     
                                         CCEOUT = ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.        BDC/342     
       00254  0 50000 0 00262 CCEOUT CLA FLTW                      SET CONVERSION ROUTINE             BDC/343     
       00255  0 62100 0 00427        STA CNV5                      FOR FLOATING POINT                 BDC/344     
       00256  0 62200 0 00441        STD CNV6                      OUTPUT                             BDC/345     
       00257  0 62200 0 00435        STD CLR                       (WITH EXPONENT).                   BDC/346     
       00260  0 50000 0 00340        CLA FLT1                      PICKUP FLT, AND                    BDC/347     
 D     00261  1 00000 0 00213        TXI SETAD,0                 * GO SET CONVERSION SWITCH.          BDC/348     
                                          END OF PROGRAM CCEOUT.                                      BDC/349     
       00262  0 00005 0 77736 FLTW   PZE CHAR-4,0,5                CONSTANT USED BY CCEOUT.           BDC/350     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/351     
                                                                                                      BDC/352     
                                         RESCAN/ CALLS=FILLW. USES=LINE(SCAN).                        BDC/353     
                                         RESCAN = ENTRY POINT USED BY PRINT.                          BDC/354     
       00263 -0 63400 4 00135 RESCAN SXD AX4,4                     FOR RETURN FROM FORMAT SCAN.       BDC/357     
       00264 -0 63400 1 00133        SXD AX1,1                     SAVE THE ORIGINAL C(XR1),          BDC/358     
       00265 -0 63400 2 00134        SXD AX2,2                     SAVE THE ORIGINAL C(XR2), AND      BDC/359     
       00266  0 07400 4 00515        TSX FILLW,4                 * GO OUTPUT RECORD.                  BDC/360     
       00267 -0 53400 4 00274        LXD GROUPX,4                  THEN PICKUP ORIGINAL GROUP COUNT TOBDC/361     
                                         GROUP = ENTRY POINT USED BY CCRPAR.                          BDC/362     
       00270 -0 63400 4 00141 GROUP  SXD BX4,4                     UPDATE GROUP CONTROL.              BDC/363     
       00271 -0 53400 1 00137        LXD BX1,1                     RESET CHARACTER COUNT,             BDC/364     
       00272 -0 53400 2 00140        LXD BX2,2                     RESET SCAN POSITION, AND           BDC/365     
       00273  0 56000 0 77752        LDQ MQR                       PICKUP 1ST FORMAT WORD OF GROUP.   BDC/366     
       00274  1 00000 0 00077 GROUPX TXI SCAN,0,**               * GO RESCAN THIS GR0UP.              BDC/367     
                                          END OF PROGRAM RESCAN.                                      BDC/368     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/369     
                                                                                                      BDC/370     
                                         FIELD,4/ USES PRINT. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.BDC/371     
                                         FIELD OONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD.     BDC/372     
       00275 -0 63400 4 00145 FIELD  SXD CX4,4                     SAVE THE C(XR4) FOR RETURN.        BDC/373     
       00276 -0 63400 1 00143        SXD CX1,1                     SAVE THE CHARACTER COUNT,          BDC/374     
       00277 -0 63400 2 00144        SXD CX2,2                     THE SCAN POSITION, AND             BDC/375     
       00300 -0 60000 0 77751        STQ MQ                        THE CURRENT FORMAT WORD.           BDC/376     
       00301 -0 53400 1 00133        LXD AX1,1                     RESTORE THE ORIGINAL C(XR1),       BDC/377     
       00302 -0 53400 2 00134        LXD AX2,2                     RESTORE THE ORIGINAL C(XR2), AND   BDC/378     
       00303  0 53400 4 77745        LXA INT,4                     EXAMINE INT, AND                   BDC/379     
       00304 -3 00000 4 00307        TXL DONE,4,0                  IF NOT ZERO, THEN                  BDC/380     
       00305 -0 63400 4 00467        SXD CLR2,4                    SET COLUMN WIDTH OF EACH FIELD.    BDC/381     
 D     00306  1 00000 0 00513        TXI LIST,0                  * AND GO PROCESS FIELD.              BDC/382     
                                         DONE = ENTRY POINT USED BY PRINT.                            BDC/383     
       00307 -0 53400 4 00145 DONE   LXD CX4,4                     WHEN DONE, RESTORE THE C(XR4), AND BDC/384     
       00310  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  BDC/385     
                                          END OF PROGRAM FIELD.                                       BDC/386     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/387     
                                                                                                      BDC/388     
                                         PRINT,4/ USES=FIELD,LINE. CALLERS=(BDC),LINE(RESCAN).        BDC/389     
                                         PRINT DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.    BDC/390     
                                         XPRINT = EXIT FROM PRINT WHEN FORMAT IS EXHAUSTED.           BDC/391     
       00311 -0 63400 4 00317 XPRINT SXD CNVSW,4                   SAVE THE C(XR4), AND               BDC/392     
       00312  0 07400 4 00263        TSX RESCAN,4                * GO RESCAN FORMAT. THEN RETURN,     BDC/3921    
       00313 -0 53400 4 00317        LXD CNVSW,4                   AFTER GETTING FORMAT.              BDC/3922    
       00314  0 50000 0 77747        CLA DATUM                     THEN  PROCEED TO CONVERSION.       BDC/393     
                                         PRINT = ENTRY POINT USED BY (BDC).                           BDC/394     
       00315 -0 63400 4 00135 PRINT  SXD AX4,4                     SAVE THE C(XR4) FOR RETURN TO LIST.BDC/395     
       00316  0 60100 0 77747        STO DATUM                     STORE CURRENT FIELD FOR CONVERSION.BDC/396     
       00317  1 00000 0 00000 CNVSW  TXI **,0,**                 * SWITCH TO FLT, FXD, INTG,OR RESCAN.BDC/397     
                                         FLT = ENTRY POINT FOR FLOATING POINT CONVERSION.             BDC/398     
       00320  0 10000 0 00433 FLT    TZE CNVN                      IF NON-ZERO, BEGIN E, F CONVERSION.BDC/399     
       00321  0 76500 0 00033        LRS 27                        PLACE CHARACTERISTIC IN THE AC,    BDC/400     
       00322  0 76000 0 00003        SSP                           FRACTION IN THE MQ.                BDC/401     
       00323  0 40200 0 00575        SUB BASE                                                         BDC/402     
       00324  0 76500 0 00043        LRS 35                        OBTAIN REQUIRED BASE IN THE MQ.    BDC/403     
       00325  0 20000 0 00576        MPY LOG2                                                         BDC/404     
       00326  0 60100 0 77742        STO EXP                                                          BDC/405     
       00327  0 12000 0 00340        TPL FLT1                                                         BDC/406     
       00330  0 40200 0 77750        SUB PEX                                                          BDC/407     
       00331  0 73400 4 00370 FAD    PAX FXD,4                                                        BDC/408     
       00332  0 56000 0 77747        LDQ DATUM                                                        BDC/409     
       00333  0 26000 4 00671        FMP TAB-1,4                                                      BDC/410     
       00334  0 76000 0 00003        SSP                           TEST PROBABLE                      BDC/411     
       00335  0 53400 4 77750        LXA PEX,4                     EXPONENT.                          BDC/412     
       00336  0 40200 4 00672        SUB TAB,4                                                        BDC/413     
 D     00337  1 00000 0 00344        TXI FLT4,0                                                       BDC/414     
       00340  0 73400 4 00320 FLT1   PAX FLT,4                                                        BDC/415     
       00341  0 50000 4 00672        CLA TAB,4                                                        BDC/416     
       00342 -0 40000 0 77747        SBM DATUM                                                        BDC/417     
       00343  0 40000 0 00574        ADD BIAS                                                         BDC/4I8     
       00344  0 12000 0 00350 FLT4   TPL FLT2                                                         BDC/419     
       00345 -0 50000 0 77742        CAL EXP                       ADJUST EXPONENT.                   BDC/420     
       00346  0 40000 0 00577        ADD ONE                                                          BDC/421     
       00347  0 60200 0 77742        SLW EXP                                                          BDC/422     
       00350 -0 50000 0 00566 FLT2   CAL E                         OBTAIN E FOR                       BDC/423     
       00351  0 60200 0 77736        SLW CHAR-4                    EXPONENT.                          BDC/424     
       00352  0 50000 0 77742        CLA EXP                                                          BDC/425     
       00353  0 40200 0 77750        SUB PEX                                                          BDC/426     
       00354  0 60100 0 77742        STO EXP                                                          BDC/427     
       00355 -0 50000 0 00570        CAL BLANK                                                        BDC/428     
       00356  0 56000 0 77742        LDQ EXP                       OBTAIN SIGN.                       BDC/429     
       00357  0 16200 0 00361        TQP FLT3                                                         BDC/430     
       00360 -0 50000 0 00560        CAL MINUS                                                        BDC/431     
       00361  0 60200 0 77737 FLT3   SLW CHAR-3                                                       BDC/432     
       00362 -0 75400 0 00445 IAD    PXD INTG,0                                                       BDC/433     
       00363  0 22100 0 00571        DVP TEN                       OBTAIN DIGITS                      BDC/434     
       00364 -0 60000 0 77740        STQ CHAR-2                    OF EXPONENT.                       BDC/435     
       00365  0 60200 0 77741        SLW CHAR-1                                                       BDC/436     
       00366  0 50000 0 77747        CLA DATUM                                                        BDC/437     
 D     00367  1 00000 0 00371        TXI CNV,0                                                        BDC/438     
                                         FXD = ENTRY POINT FOR FIXED POINT CONVERSION.                BDC/439     
       00370  0 10000 0 00433 FXD    TZE CNVN                      TEST OUTPUT NUMBER FOR ZERO.       BDC/440     
       00371  0 53400 4 77742 CNV    LXA EXP,4                     TEST FOR SCALING.                  BDC/441     
       00372 -3 00000 4 00400        TXL CNV1,4,0                                                     BDC/442     
       00373  0 56000 0 77742        LDQ EXP                                                          BDC/443     
       00374  0 16200 0 00402        TQP CNV2                                                         BDC/444     
       00375  0 56000 0 77747        LDQ DATUM                                                        BDC/445     
       00376  0 26000 4 00672        FMP TAB,4                                                        BDC/446     
       00377  0 36100 0 00574        ACL BIAS                                                         BDC/447     
       00400 -0 30000 0 00572 CNV1   UFA FIXN                      FIX INTERNAL FLOATING BINARY NO.   BDC/448     
 D     00401  1 00000 0 00406        TXI CNVN1,0                                                      BDC/449     
       00402  0 24100 4 00672 CNV2   FDP TAB,4                                                        BDC/450     
       00403 -0 60000 0 77744        STQ FD                                                           BDC/451     
       00404  0 50000 0 77744        CLA FD                                                           BDC/452     
       00405 -0 30000 0 00573        UFA FIXQ                                                         BDC/453     
       00406  0 76300 0 00010 CNVN1  LLS 8                                                            BDC/454     
       00407  0 76700 0 00002        ALS 2                                                            BDC/455     
       00410  0 77100 0 00012        ARS 10                                                           BDC/456     
       00411  0 60100 0 77743        STO ND                        STORE INTEGRAL PART.               BDC/457     
       00412 -0 60000 0 77744        STQ FD                        STORE FRACTIONAL PART.             BDC/458     
       00413  0 53400 4 77746        LXA DIG,4                                                        BDC/459     
       00414  0 50000 0 77744        CLA FD                        SKIP FRACTIONAL.                   BDC/460     
       00415  0 36100 4 00613        ACL RND,4                                                        BDC/461     
       00416  0 76500 0 00043        LRS 35                        ROUND NUMBER.                      BDC/462     
       00417  0 40000 0 77743        ADD ND                                                           BDC/463     
       00420  0 60100 0 77743        STO ND                                                           BDC/464     
       00421 -3 00000 4 00440        TXL CNV3,4,0                  TEST FOR FRACTION WANTED.          BDC/465     
       00422 -0 60000 0 77744 CNV4   STQ FD                                                           BDC/466     
       00423  0 76700 0 00004        ALS 4                         CONVERT FRACTIONAL PART.           BDC/467     
       00424  0 76300 0 00041        LLS 33                                                           BDC/468     
       00425  0 40000 0 77744        ADD FD                                                           BDC/469     
       00426  0 76500 0 00040        LRS 32                                                           BDC/470     
       00427  0 60200 4 00000 CNV5   SLW **,4                      (FXD=CHAR, FLT=CHAR-4)             BDC/471     
       00430  2 00001 4 00422        TIX CNV4,4,1                                                     BDC/472     
       00431  0 50000 0 77743        CLA ND                        OBTAIN INTEGRAL PART.              BDC/473     
 D     00432  1 00000 0 00440        TXI CNV3,0                                                       BDC/474     
       00433  0 53400 4 77746 CNVN   LXA DIG,4                                                        BDC/475     
       00434  0 56000 0 00570        LDQ BLANK                                                        BDC/476     
       00435  1 00000 4 00436 CLR    TXI CLR1,4,**                 (FXD=1, FLT=5)                     BDC/477     
       00436 -0 60000 4 77742 CLR1   STQ CHAR,4                                                       BDC/478     
       00437  2 00001 4 00436        TIX CLR1,4,1                                                     BDC/479     
       00440  0 53400 4 77746 CNV3   LXA DIG,4                                                        BDC/480     
       00441  1 00000 4 00442 CNV6   TXI CNV7,4,**                 (FXD=1, FLT=5)                     BDC/481     
       00442  0 56000 0 00562 CNV7   LDQ POINT                     ESTABLISH POINT.                   BDC/482     
       00443 -0 60000 4 77742        STQ CHAR,4                                                       BDC/483     
 D     00444  1 00000 0 00447        TXI CNV11,0                                                      BDC/484     
                                         INTG = ENTRY POINT FOR INTEGER CONVERSION.                   BDC/485     
       00445 -0 53400 4 00577 INTG   LXD ONE,4                                                        BDC/486     
       00446  0 77100 0 00022        ARS 18                                                           BDC/487     
       00447  0 76500 0 00043 CNV11  LRS 35                                                           BDC/488     
       00450  0 22100 0 00571 CNV9   DVP TEN                       CONVERT INTEGRAL PART.             BDC/489     
       00451  0 60200 4 77741        SLW CHAR-1,4                                                     BDC/490     
       00452 -0 60000 0 77743        STQ ND                                                           BDC/491     
       00453  0 50000 0 77743        CLA ND                                                           BDC/492     
       00454  0 10000 0 00457        TZE CNV8                                                         BDC/493     
       00455  0 76000 0 00000        CLM                                                              BDC/494     
       00456  1 00001 4 00450        TXI CNV9,4,1                                                     BDC/495     
       00457 -0 50000 0 00570 CNV8   CAL BLANK                     PUT SIGN IN SPREAD BCD.            BDC/496     
       00460  0 16200 0 00462        TQP CNV12                                                        BDC/497     
       00461 -0 50000 0 00560        CAL MINUS                                                        BDC/498     
       00462  0 60200 4 77740 CNV12  SLW CHAR-2,4                                                     BDC/499     
       00463 -0 50000 0 00570        CAL BLANK                                                        BDC/500     
       00464  1 00003 4 00467        TXI CLR2,4,3                                                     BDC/501     
       00465  0 60200 4 77742 CLR3   SLW CHAR,4                                                       BDC/502     
       00466  1 00001 4 00467        TXI CLR2,4,1                                                     BDC/503     
       00467 -3 00000 4 00465 CLR2   TXL CLR3,4,**                 (COLUMN WIDTH OF THIS FIELD)       BDC/504     
       00470 -0 53400 4 00467        LXD CLR2,4                                                       BDC/505     
       00471 -0 50000 0 77777        CAL WORD                      PACK RECORD INTO                   BDC/506     
       00472  0 14000 0 00473        TOV PACK2                     FULL WORDS.                        BDC/507     
       00473  0 76700 0 00006 PACK2  ALS 6                                                            BDC/508     
       00474  0 40000 4 77742        ADD CHAR,4                                                       BDC/509     
       00475 -0 14000 0 00503        TNO PACK3                                                        BDC/510     
       00476  0 60200 0 00000 PACK   SLW **                        (CURRENT ADDRESS IN REC BUFFER)    BDC/511     
       00477 -0 50000 0 00476        CAL PACK                                                         BDC/512     
       00500  0 40000 0 00577        ADD ONE                                                          BDC/513     
       00501  0 62100 0 00476        STA PACK                                                         BDC/514     
       00502 -0 50000 0 00577        CAL ONE                                                          BDC/515     
       00503  2 00001 4 00473 PACK3  TIX PACK2,4,1                 WHEN THIS FIELD HAS BEEN PROCESSED,BDC/516     
       00504  0 60200 0 77777        SLW WORD                      SAVE ANY REMAINDER, AND            BDC/517     
       00505 -0 53400 4 00511        LXD COUNT,4                   COUNT NUMBER OF                    BDC/518     
       00506  2 00001 4 00512        TIX MORE,4,1                  WORDS CONVERTED.                   BDC/519     
       00507 -0 63400 1 00133        SXD AX1,1                     IF FIELD COUNT HAS BEEN EXHAUSTED, BDC/520     
       00510 -0 63400 2 00134        SXD AX2,2                     RESTORE THE C(XR1),C(XR2), AND     BDC/521     
       00511  1 00000 0 00307 COUNT  TXI DONE,0,**               * (FIELD REPEAT COUNT) EXIT TO FIELD.BDC/522     
       00512 -0 63400 4 00511 MORE   SXD COUNT,4                   OTHERWISE, G0 GET MORE L1ST.       BDC/523     
                                         LIST = ENTRY POINT USED BY LINE(SCAN),FIELD.                 BDC/524     
       00513 -0 53400 4 00135 LIST   LXD AX4,4                     RESTORE THE C(XR4I, AN0            BDC/525     
       00514  0 02000 4 00001        TRA 1,4                     * GO GET NEXT OUTPUT NUMBER.         BDC/526     
                                          END OF PROGRAM PRINT.                                       BDC/527     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/528     
                                                                                                      BDC/529     
                                         FILLW(RESET),4/ CALLERS=IFIL),LINE,CCSLSH,RESCAN.            BDC/530     
                                         FILLW FILLS OUT LAST WORD,CONTROLS OUTPUT, AND RESETS.       BDC/531     
       00515 -0 63400 4 00054 FILLW  SXD FILLX,4                   SAVE THE C(XR4) FOR RETURN.        BDC/532     
       00516  0 53400 4 00476        LXA PACK,4                    SET XR4 = REC + NO. WORDS ENTERED. BDC/533     
       00517 -0 50000 0 77777        CAL WORD                      EXAMINE                            BDC/534     
       00520  0 40200 0 00577        SUB ONE                       WORD INDICATOR, AND                BDC/535     
       00521  0 10000 0 00533        TZE FILL1                     IF NOT ZERO, THEN                  BDC/536     
       00522 -0 50000 0 00476        CAL PACK                      SET ADDRESS                        BDC/537     
       00523  0 62100 0 00531        STA FILL3                     FOR LAST WORD.                     BDC/538     
       00524 -0 50000 0 77777        CAL WORD                      PICKUP WORD,                       BDC/539     
       00525  0 14000 0 00526        TOV FILL4                     AND                                BDC/540     
       00526  0 76700 0 00006 FILL4  ALS 6                         FILL OUT                           BDC/541     
       00527  0 40000 0 00570        ADD BLANK                     WITH BLANKS.                       BDC/542     
       00530 -0 14000 0 00526        TNO FILL4                     WHEN DONE,                         BDC/543     
       00531  0 60200 0 00000 FILL3  SLW **                        STORE LAST WORD.                   BDC/544     
       00532  1 00001 4 00533        TXI FILL1,4,1                 UPDATE, AND SET                    BDC/545     
       00533  2 77753 4 00535 FILL1  TIX FILL2,4,REC               XR4 AND THE DECREMENT OF FILL      BDC/546     
       00534  0 53400 4 00577        LXA ONE,4                     TO THE NUMBER OF WORDS ENTERED     BDC/547     
       00535 -0 63400 4 00542 FILL2  SXD FILL,4                    IN REC BUFFER. THEN                BDC/548     
       00536 -0 53400 4 00105        LXD UNIT,4                    SELECT CURRENT OUTPUT UNIT.        BDC/549     
       00537  3 77776 4 00541        TXH TYPE,4,-2                 PUNCH OR PRINT OUTPUT.             BDC/550     
       00540  0 76600 4 00177        WRS 127,4                     BCD TAPE OUTPUT.                   BDC/551     
       00541  0 07400 4 00000 TYPE   TSX **,4                    * GO TO INDICATED OUTPUT ROUTINE.    BDC/552     
       00542  0 00000 0 77753 FILL   PZE REC,,**                   (DECREMENT = NO. WORDS ENTERE0)    BDC/553     
       00543 -0 53400 4 00054        LXD FILLX,4    F              REENTRY FROM OUTPUT R0UT1NE.       BDC/554     
                                         RESET = ENTRY POINT USED BY LINE.                            BDC/555     
       00544 -0 50000 0 00567 RESET  CAL BLANKS                    RESET REC                          BDC/556     
       00545  0 60200 0 77753 FILT   SLW REC                       TO BLANKS,                         BDC/557     
       00546 -0 50000 0 00542        CAL FILL                      PACK ADDRESS                       BDC/558     
       00547  0 62100 0 00476        STA PACK                      TO REC, AN0                        BDC/559     
       00550 -0 50000 0 00577        CAL ONE                       PICKUP 1 TO                        BDC/560     
       00551  0 60200 0 77777        SLW WORD                      SET WORD INDICATOR.                BDC/561     
       00552  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    BDC/562     
                                          END OF PROGRAM FILLW(RESET).                                BDC/563     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/564     
                                                                                                      BDC/565     
                                         CONSTANTS AND WORKING STORAGE USDO BY FIL/BDC.               BDC/566     
       00553 +000000000077    ENDMK  OCT 77                        CCTEST-12.                         BDC/5665    
       00554  000000000074     (     BCD 100000(                   CCTEST-11.                         BDC/567     
       00555  000000000073     COMMA BCD 100000,                   CCTEST-10.                         BDC/56B     
       00556  000000000061     SLASH BCD 100000/                   CCTEST-9.                          BDC/569     
       00557  000000000047     P     BCD 100000P                   CCTEST-8.                          BDC/570     
       00560  000000000040     MINUS BCD 100000-                   CCTEST-7.                          BDC/571     
       00561  000000000034     )     BCD 100000)                   CCTEST-6.                          BDC/572     
       00562  000000000033     POINT BCD 100000.                   CCTEST-5.                          BDC/573     
       00563  000000000031     I     BCD 100000I                   CCTEST-4.                          BDC/574     
       00564  000000000030    H      BCD 100000H                   CCTEST-3.                          BDC/575     
       00565  000000000026     F     BCD 100000F                   CCTEST-2.                          BDC/576     
       00566  000000000025     E     BCD 100000E                   CCTEST-1.                          BDC/577     
                        00567 CCTEST BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   BDC/578     
       00567  606060606060    BLANKS BCD 1                         CONSTANT USED BY FIL/BDC.          BDC/579     
       00570  000000000060     BLANK BCD 100000                    CONSTANT USED BY FIL/BDC.          BDC/580     
       00571 +000000000012     TEN   DEC 10                        CONSTANT USED BY FIL/BDC.          BDC/581     
       00572 +233000000000     FIXN  DEC 155B8                     CONSTANT USED BY FIL/BDC.          BDC/582     
       00573 +266000000000     FIXQ  DEC 182B8                     CONSTANT USED BY FIL/BDC.          BDC/583     
       00574 +033000000000     BIAS  DEC 27B8                      CONSTANT USED BY FIL/BDC.          BDC/584     
       00575 +000000000200     BASE  DEC 128                       CONSTANT USED BY FIL/BDC.          BDC/585     
       00576 +115040462343     LOG2  DEC .301029957B               CONSTANT USED BY FIL/BDC.          BDC/586     
       00577 +000000000001     ONE   DEC 1                         CONSTANT USED BY FIL/BDC.          BDC/587     
       00600  0 00000 0 00002  TWO   PZE 2                         CONSTANT USED BY FIL/BDC.          BDC/5875    
       00601  0 00000 0 00011 L(9)   PZE 9                         CONSTANT USED BY FIL/BDC.          BDC/5876    
       00602 +000000000021           DEC .5BE-9                    09-TABLE USED BY FIL/BDC.          BDC/588     
       00603 +000000000253           DEC .5BE-8                    08-TABLE USED BY FIL/BDC.          BDC/589     
       00604 +000000003265           DEC .5BE-7                    07-TABLE USED BY FIL/BDC.          BDC/590     
       00605 +000000041433           DEC .5BE-6                    06-TABLE USED BY FIL/BDC.          BDC/591     
       00606 +000000517426           DEC .5BE-5                    05-TABLE USED BY FIL/BDC.          BDC/592     
       00607 +000006433342           DEC .5BE-4                    04-TABLE USED BY FIL/BDC.          BDC/593     
       00610 +000101422335           DEC .5BE-3                    03-TABLE USED BY FIL/BDC.          BDC/594     
       00611 +001217270243           DEC .5BE-2                    02-TABLE USED BY FIL/BDC.          BDC/595     
       00612 +014631463146           DEC .5BE-1                    01-TABLE USED BY FIL/BDC.          BDC/596     
       00613 +200000000000    RND    DEC .5B                       00-TABLE USED BY FIL/BDC.          BDC/597     
       00614 +376700324573           OCT 376700324573              46-TABLE USED BY FIL/BDC.          BDC/598     
       00615 +373546566774           OCT 373546566774              45-TABLE USED BY FIL/BDC.          BDC/599     
       00616 +370436770626           OCT 370436770626              44-TABLE USED BY FIL/BDC.          BDC/600     
       00617 +364713132675           OCT 364713132675              43-TABLE USED BY FIL/BDC.          BDC/601     
       00620 +361557257061           OCT 361557257061              42-TABLE USED BY FIL/BDC.          BDC/602     
       00621 +356445677215           OCT 356445677215              41-TABLE USED BY FIL/BDC.          BDC/603     
       00622 +352726145174           OCT 352726145174              40-TABLE USED BY FIL/BDC.          BDC/604     
       00623 +347570120775           OCT 347570120775              39-TABLE USED BY FIL/BDC.          BDC/605     
       00624 +344454732312           OCT 344454732312              38-TABLE USED BY FIL/BDC.          BDC/606     
       00625 +340741367020           OCT 340741367020              37-TABLE USED BY FIL/BDC.          BDC/607     
       00626 +335601137163           OCT 335601137163              36-TABLE USED BY FIL/BOC.          BDC/608     
       00627 +332464114134           OCT 332464114134              35-TABLE USED BY FIL/BDC.          BDC/609     
       00630 +326755023372           OCT 326755023372              34-TABLE USED BY FIL/BDC.          BDC/610     
       00631 +323612334310           OCT 323612334310              33-TABLE USED BY FIL/BDC.          BDC/611     
       00632 +320473426555           OCT 320473426555              32-TABLE USED BY FIL/BOC.          BDC/612     
       00633 +314770675742           OCT 314770675742              31-TABLE USED BY FIL/BDC.          BDC/613     
       00634 +311623713116           OCT 311623713116              30-TABLE USED BY FIL/BDC.          BDC/614     
       00635 +306503074076           OCT 306503074076              29-TABLE USED BY F1L/BDC.          BDC/615     
       00636 +303402374713           OCT 303402374713              28-TABLE USED BY F1L/BDC.          BDC/616     
       00637 +277635456171           OCT 277635456171              27-TABLE USED BY FIL/BDC.          BDC/617     
       00640 +274512676456           OCT 274512676456              26-TABLE USED BY FIL/BOC.          BDC/618     
       00641 +271410545213           OCT 271410545213              25-TABLE USED BY FIL/BDC.          BDC/619     
       00642 +265647410337           OCT 265647410337              24-TABLE USED BY FIL/BDC.          BDC/620     
       00643 +262522640262           OCT 262522640262              23-TABLE USED BY FIL/BDC.          BDC/621     
       00644 +257417031702           OCT 257417031702              22-TABLE USED BY FIL/BDC.          BDC/622     
       00645 +253661534466           OCT 253661534466              21-TABLE USED BY FIL/BDC.          BDC/623     
       00646 +250532743536           OCT 250532743536              20-TABLE USED BY FIL/BDC.          BDC/624     
       00647 +245425434430           OCT 245425434430              19-TABLE USED BY FIL/BDC.          BDC/625     
       00650 +241674055530           OCT 241674055530              18-TABLE USED BY FIL/BDC.          BDC/626     
       00651 +236543212741           OCT 236543212741              17-TABLE USEO BY FIL/BDC.          BDC/627     
       00652 +233434157116           OCT 233434157116              16-TABLE USED BY FIL/BDC.          BDC/628     
       00653 +227706576512           OCT 227706576512              15-TABLE USED BY FIL/BDC.          BDC/629     
       00654 +224553630410           OCT 224553630410              14-TABLE USED BY FIL/BDC.          BDC/630     
       00655 +221443023471           OCT 221443023471              13-TABLE USED BY FIL/BDC.          BDC/631     
       00656 +215721522451           OCT 215721522451              12-TABLE USED BY FIL/BDC.          BDC/632     
       00657 +212564416672           OCT 212564416672              11-TABLE USED BY FIL/BDC.          BDC/633     
       00660 +207452013710           OCT 207452013710              10-TABLE USED BY FIL/BDC.          BDC/634     
       00661 +203734654500           OCT 203734654500              09-TABLE USED BY FIL/BDC.          BDC/635     
       00662 +200575360400           OCT 200575360400              08-TABLE USED BY FIL/BDC.          BDC/636     
       00663 +175461132000           OCT 175461132000              07-TABLE USED BY FIL/BDC.          BDC/637     
       00664 +171750220000           OCT 171750220000              06-TABLE USED BY FIL/BDC.          BDC/638     
       00665 +166606500000           OCT 166606500000              05-TABLE USED BY FIL/BDC.          BDC/639     
       00666 +163470400000           OCT 163470400000              04-TABLE USED BY FIL/BDC.          BDC/640     
       00667 +157764000000           OCT 157764000000              03-TABLE USED BY FIL/BDC.          BDC/641     
       00670 +154620000000           OCT 154620000000              02-TABLE USED BY FIL/BDC.          BDC/642     
       00671 +151500000000           OCT 151500000000              01-TABLE USED BY FIL/BDC.          BDC/643     
       00672 +146400000000    TAB    OCT 146400000000              00-TABLE USE0 BY FIL/BDC.          BDC/644     
                        77552 COMMON ORG -150                      COMMON WORKING STORAGE=            BDC/645     
                        77742  CHAR  BES 120                       VARIABLE USED BY FIL/BDC.          BDC/646     
                        77742  EXP   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/647     
                        77743  ND    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/648     
                        77744  FD    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/649     
                        77745  INT   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/650     
                        77746  DIG   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/651     
                        77747  DATUM BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/652     
                        77750  PEX   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/653     
                        77751  MQ    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/654     
                        77752  MQR   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/655     
                        77753  REC   BSS 20                        VARIABLE USED BY FIL/BDC.          BDC/656     
                        77777  WORD  BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/657     
                                          END OF CONSTANTS AND WORKING STORAGE USED BY FIL/BDC.       BDC/658     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/659     
 A                      00000        END                                                              BDC/660     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     601           0           0           0           0
 LIB       0           0           0           0           0
 COL     601           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      610                  
0NUMBER OF SYMBOLS,  DEF   153,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR SCH.                                        SCH/C01     
                        00000        ORG 0                                                            SCH/C02     
       00000  0 00000 0 00132        PZE COL1+1                                                       SCH/C03     
       00001  0 00000 0 77701        PZE COMMON                                                       SCH/C04     
       00002  746223303460           BCD 1(SCH)                                                       SCH/C00     
       00003  0 00000 0 00000        PZE                                                              SCH/C06     
                                         END OF SCH CONTROL CARD.                                     SCH/C07     
                        00000        ORG 0                                                            SCH 0001    
                        77701 COMMON SYN -63                                                          SCH2P11     
       00000 -0 63400 1 00104  FIRST SXD X1,1                                                         SCH 0002    
       00001 -0 63400 2 00112        SXD X2,2                                                         SCH 0003    
       00002 -0 63400 4 00130        SXD X4,4                                                         SCH 0004    
       00003 -0 50000 0 00005        CAL PR6                                                          SCH 0005    
       00004  0 60200 0 00000        SLW 0                                                            SCH 0006    
 TD    00005 -3 00000 0 00006    PR6 TXL START                                                        SCH 0007    
       00006 -0 53400 4 00130  START LXD X4,4                                                         SCH 0008    
       00007  0 50000 4 00001        CLA 1,4               OBTAIN STARTING LOCATION OF                SCH 0009    
       00010  0 77100 0 00022        ARS 18                BUFFER AREA FOR LINE IMAGE                 SCH 0010    
       00011  0 40000 4 00001        ADD 1,4               IN BCD                                     SCH 0011    
       00012 -0 73400 4 00000  (SCH) PDX FIRST,4           SAVE LOCATION                              SCH 0012    
       00013 -0 63400 4 00005        SXD PR6,4             X                                          SCH 0013    
       00014  0 62100 0 00021        STA PR2               SUPPLY ADDRESS                             SCH 0014    
       00015  0 62100 0 00043        STA CI9               X                                          SCH 0015    
       00016  0 76600 0 00341        WPU                                                              SCH 0016    
       00017  0 50000 0 00127        CLA BLNKS                  FIND LAST NON-BLANK                   SCH 0017    
       00020 -0 53400 4 00056        LXD CI4,4                  GROUP                                 SCH 0018    
       00021  0 34000 4 00000  PR2   CAS 0,4                    X                                     SCH 0019    
       00022  1 77777 4 00025        TXI PR1,4,-1                                                     SCH 0020    
       00023  1 00001 4 00021        TXI PR2,4,1                X                                     SCH 0021    
       00024  1 77777 4 00025        TXI PR1,4,-1                                                     SCH 0022    
       00025 -0 63400 4 00062  PR1   SXD CI6,4                  STORE END TEST                        SCH 0023    
       00026 -0 63400 4 00074        SXD CI8,4                  X                                     SCH 0024    
       00027 -0 63400 4 00031        SXD PR8,4                                                        SCH 0025    
       00030 -0 53400 4 00005        LXD PR6,4                                                        SCH 0026    
 D     00031 -2 00000 4 00033  PR8   TNX PR5,4                                                        SCH 0027    
       00032 -0 53400 4 00005  PR3   LXD PR6,4                  INITIALIZE GROUP COUNT                SCH 0028    
       00033  0 53400 2 00035  PR5   LXA PR7,2                  INITIALIZE LEFT SETUP                 SCH 0029    
       00034 -0 53400 1 00077        LXD YZ1,1                  CLEAR CARD IMAGE                      SCH 0030    
 T     00035 -0 75400 0 00000  PR7   PXD                                                              SCH 0031    
       00036  0 60200 1 77742  PR4   SLW LT,1                                                         SCH 0032    
       00037  0 60200 1 77722        SLW RT,1                                                         SCH 0033    
       00040  2 00001 1 00036        TIX PR4,1,1                X                                     SCH 0034    
       00041 -0 50000 0 00131  CIR   CAL COL1                   INITIALIZE COLUMN INDICATOR           SCH 0035    
       00042  0 60200 0 77701  CI2   SLW COL                    X                                     SCH 0036    
       00043  0 56000 4 00000  CI9   LDQ 0,4                    OBTAIN GROUP                          SCH 0037    
       00044 -0 63400 4 00116        SXD OZ2,4                  STORE GROUP COUNT                     SCH 0038    
       00045  0 53400 4 00047        LXA Q6,4                   SET CHARACTER COUNT                   SCH 0039    
 T     00046 -0 75400 0 00014  CI1   PXD 12                                                           SCH 0040    
       00047 -0 76300 0 00006  Q6    LGL 6                                                            SCH 0041    
       00050  0 73400 1 00000        PAX 0,1                    X                                     SCH 0042    
       00051 -0 50000 0 77701        CAL COL                    POSITION COLUMN INDICATOR             SCH 0043    
       00052  0 77100 4 00006        ARS 6,4                    X                                     SCH 0044    
       00053  2 00020 1 00077        TIX YZ1,1,16               TEST FOR DIGIT                        SCH 0045    
       00054  3 00017 1 00102        TXH YZ2,1,15               TEST FOR Y-ZONE                       SCH 0046    
       00055 -0 60200 3 77737  CI5   ORS D,3                    STORE DIGIT                           SCH 0047    
       00056  2 00001 4 00046  CI4   TIX CI1,4,1                COUNT CHARACTERS                      SCH 0048    
       00057  0 77100 0 00001  CI3   ARS 1                      SHIFT AND TEST COLUMN                 SCH 0049    
       00060 -0 53400 4 00116        LXD OZ2,4                  RESTORE GROUP COUNT                   SCH 0050    
       00061  1 77777 4 00062        TXI CI6,4,-1               COUNT GROUPS                          SCH 0051    
 D     00062 -3 00000 4 00064  CI6   TXL CI7,4                  TEST FOR LAST NON-BLANK GR.           SCH 0052    
       00063 -0 10000 0 00042        TNZ CI2                    TEST.FOR END OF R0W                   SCH 0053    
       00064 -0 50000 2 77724  CI7   CAL 8.3,2                  FORM TRUE 8,4                         SCH 0054    
       00065 -0 60200 2 77727        ORS D-8,2                  AND 3 ROWS AND                        SCH 0055    
       00066 -0 60200 2 77734        ORS D-3,2                  MOVE8.4 AND 8.3                       SCH 0056    
       00067  0 60200 2 77725        SLW 8.2,2                  ROWS                                  SCH 0057    
       00070 -0 50000 2 77723        CAL 8.4,2                  FORM TRUE8.4                          SCH 0058    
       00071 -0 60200 2 77727        ORS D-8,2                                                        SCH 0059    
       00072 -0 60200 2 77733        ORS D-4,2                                                        SCH 0060    
       00073  0 60200 2 77724        SLW 8.3,2                  X                                     SCH 0061    
 D     00074 -3 00000 4 00117  CI8   TXL WP,4                   TEST FOR END                          SCH 0062    
       00075  3 00017 2 00117        TXH WP,2,15                TEST FOR RIGHT HALF                   SCH 0063    
       00076  1 00020 2 00041        TXI CIR,2,16               INITIALIZE RIGHT HALF                 SCH 0064    
       00077  2 00020 1 00105  YZ1   TIX XZ1,1,16               TEST FOR 16/CH/32                     SCH 0065    
       00100  3 00017 1 00110        TXH XZ2,1,15               TEST FOR X-ZONE                       SCH 0066    
       00101 -0 60200 3 77737        ORS D,3                    STORE DIGIT                           SCH 0067    
       00102 -0 60200 2 77741  YZ2   ORS Y,2                    STORE Y-ZONE                          SCH 0068    
       00103  2 00001 4 00046        TIX CI1,4,1                COUNT CHARACTERS                      SCH 0069    
 TD    00104 -3 00000 0 00057  X1    TXL CI3                    OBTAIN NEXT GROUP                     SCH 0070    
       00105  2 00020 1 00113  XZ1   TIX OZ1,1,16               TEST FOR 32/CH/48                     SCH 0071    
       00106  3 00017 1 00056        TXH CI4,1,15               TEST FOR BLANK                        SCH 0072    
       00107 -0 60200 3 77737        ORS D,3                    STORE DIGIT                           SCH 0073    
       00110 -0 60200 2 77740  XZ2   ORS X,2                    STORE X-ZONE                          SCH 0074    
       00111  2 00001 4 00046        TIX CI1,4,1                COUNT CHARACTERS                      SCH 0075    
 TD    00112 -3 00000 0 00057  X2    TXL CI3                    OBTAIN NEXT GROUP                     SCH 0076    
       00113 -0 60200 2 77737  OZ1   ORS Z,2                    STORE 0-ZONE                          SCH 0077    
       00114 -0 60200 3 77737        ORS D,3                                                          SCH 0078    
       00115  2 00001 4 00046        TIX CI1,4,1                COUNT CHARACTERS                      SCH 0079    
 TD    00116 -3 00000 0 00057  OZ2   TXL CI3                                                          SCH 0080    
       00117  0 53400 1 00046  WP    LXA CI1,1                                                        SCH 0081    
       00120  0 70000 1 77742  WP3   CPY LT,1                   COPY CARD IMAGE                       SCH 0082    
       00121  0 70000 1 77722        CPY RT,1                                                         SCH 0083    
       00122  2 00001 1 00120        TIX WP3,1,1                                                      SCH 0084    
       00123 -0 53400 1 00104        LXD X1,1                                                         SCH 0085    
       00124 -0 53400 2 00112        LXD X2,2                                                         SCH 0086    
       00125 -0 53400 4 00130  WT2   LXD X4,4                                                         SCH 0087    
       00126  0 02000 4 00002        TRA 2,4                                                          SCH 0088    
       00127  606060606060     BLNKS BCD 1                                                            SCH 0089    
       00130  0 00000 0 00001  X4    HTR 1                                                            SCH 0090    
       00131 -0 00000 0 00000  COL1  MZE                                                              SCH 0091    
                        77701        ORG -63                                                          SCH 0092    
                        77701  COL   BSS 1                                                            SCH 0093    
                        77722  RT    BES 16                                                           SCH 0094    
                        77722  8.5   BSS 1                                                            SCH 0095    
                        77723  8.4   BSS 1                                                            SCH 0096    
                        77724  8.3   BSS 1                                                            SCH 0097    
                        77725  8.2   BSS 1                                                            SCH 0098    
                        77737  D     BES 9                                                            SCH 0099    
                        77737  Z     BSS 1                                                            SCH 0100    
                        77740  X     BSS 1                                                            SCH 0101    
                        77741  Y     BSS 1                                                            SCH 0102    
                        77742  LT    SYN Y+1                                                          SCH 0103    
 A                      00000        END                                                              SCH 0104    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     113           0           0           0           0
 LIB       0           0           0           0           0
 COL     113           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      121                  
0NUMBER OF SYMBOLS,  DEF    48,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR SPH.                                        SPH/C01     
                        00000        ORG 0                                                            SPH/C02     
       00000  0 00000 0 00236        PZE COL1+1                                                       SPH/C03     
       00001  0 00000 0 77653        PZE COMMON                                                       SPH/C04     
       00002  746247303460           BCD 1(SPH)                                                       SPH/C05     
       00003  0 00000 0 00003            3                                                            SPH/C06     
                                         END OF SPH CONTROL CARD.                                     SPH/C07     
                                         SPH FOR FORTRAN II                                           SPH 0001    
                        00000        ORG 0                                                            SPH 0002    
                        77653 COMMON SYN -85                                                          SPH 0003    
       00000 -0 53400 1 00140    RPT LXD X1,1              PREPARE TO CAUSE LINE                      SPH 0004    
       00001 -0 53400 2 00146        LXD X2,2              TO BE PRINTED AGAIN AND THE                SPH 0005    
       00002 -0 53400 4 00031        LXD X4,4              PROGRAM TO CONTINUE                        SPH 0006    
       00003  0 50000 4 00001    LMT CLA 1,4               OBTAIN STARTING LOCATION OF BUFFER AREA *  SPH 0007    
       00004  0 62100 0 00021        STA T5                SUPPLY ADDRESS                             SPH 0008    
       00005  0 77100 0 00022        ARS 18                * FOR LINE IMAGE IN BCD                    SPH 0009    
       00006  0 40000 4 00001        ADD 1,4               X                                          SPH 0010    
       00007 -0 63400 1 00140        SXD X1,1                                                         SPH 0011    
       00010 -0 63400 2 00146        SXD X2,2                                                         SPH 0012    
       00011 -0 63400 4 00031        SXD X4,4                                                         SPH 0013    
       00012 -0 73400 4 00013    L11 PDX 11,4              SAVE LOCATION                              SPH 0014    
       00013  0 62100 0 00052        STA PR2                                                          SPH 0015    
       00014  0 62100 0 00077        STA CI9                                                          SPH 0016    
       00015 -0 63400 4 00026        SXD PR6,4             SAVE LOCATION                              SPH 0017    
       00016 -0 50000 0 00222        CAL DEL                                                          SPH 0018    
       00017  0 60200 0 00104        SLW 1ST                                                          SPH 0019    
       00020  0 76200 0 00361  T4    RPR                        SELECT PRINTER                        SPH 0020    
       00021 -0 50000 0 00021  T5    CAL *                      OBTAINFIRST CHARACTER                 SPH 0021    
       00022  0 77100 0 00036        ARS 30                     X                                     SPH 0022    
       00023  0 10000 0 00220        TZE SP4                    DOUBLE SPACE IF ZERO                  SPH 0023    
       00024  0 34000 0 00233        CAS YZONE                  TEST FOR SPACE SUPPRESS               SPH 0024    
 TD    00025 -3 00000 0 00027  Z2    TXL BK                     NO                                    SPH 0025    
 TD    00026 -3 00000 0 00047  PR6   TXL RPR+1                  SUPPRESS SPACE                        SPH 0026    
       00027  0 34000 0 00234  BK    CAS BNK                    TEST FOR BLANK                        SPH 0027    
 TD    00030 -3 00000 0 00032  OZ2   TXL DIGF                   100                                   SPH 0028    
 TD    00031 -3 00000 0 00050  X4    TXL RPR+2                                                        SPH 0029    
       00032  0 76000 0 00372  DIGF  SPR 10                     SET 0HANNEL SKIP                      SPH 0030    
       00033 -0 32000 0 00034        ANA MK                     MASK OUT ZONE                         SPH 0031    
       00034  0 73400 1 00017  MK    PAX 15,1                   OBTAIN SPR COMBINATION                SPH 0032    
       00035  1 00001 1 00036        TXI N2,1,1                 X                                     SPH 0033    
       00036 -2 00010 1 00040  N2    TNX N3,1,8                 X                                     SPH 0034    
       00037  0 76000 0 00370        SPR 8                      X                                     SPH 0035    
       00040 -2 00004 1 00042  N3    TNX N4,1,4                 X                                     SPH 0036    
       00041  0 76000 0 00364        SPR 4                      X                                     SPH 0037    
       00042 -2 00002 1 00044  N4    TNX N5,1,2                 X                                     SPH 0038    
       00043  0 76000 0 00362        SPR 2                      X                                     SPH 0039    
       00044 -2 00001 1 00046  N5    TNX RPR,1,1                X                                     SPH 0040    
       00045  0 76000 0 00361        SPR 1                      X                                     SPH 0041    
       00046  0 76200 0 00361  RPR   RPR                        SELECT PRINTER AGAIN                  SPH 0042    
       00047  0 76000 0 00365        SPR 5                      SUPPRESS SPACE                        SPH 0043    
       00050  0 50000 0 00232        CLA BLNKS                  FIND LAST NON-BLANK GROUP             SPH 0044    
       00051 -0 53400 4 00112        LXD CI4,4                  X                                     SPH 0045    
       00052  0 34000 4 00000  PR2   CAS 0,4                    X                                     SPH 0046    
       00053  1 77777 4 00056        TXI PR1,4,-1               X                                     SPH 0047    
       00054  1 00001 4 00052        TXI PR2,4,1                X                                     SPH 0048    
       00055  1 77777 4 00056        TXI PR1,4,-1               X                                     SPH 0049    
       00056 -0 63400 4 00116  PR1   SXD CI6,4                  STORE END TEST                        SFH 0050    
       00057 -0 63400 4 00130        SXD CI8,4                  X                                     SPH 0051    
       00060 -0 63400 4 00063        SXD PR8,4                  X                                     SPH 0052    
       00061 -0 63400 4 00213        SXD WP4,4                  X                                     SPH 0053    
       00062 -0 53400 4 00026        LXD PR6,4                  X                                     SPH 0054    
 D     00063 -2 00000 4 00067  PR8   TNX PR5,4                                                        SPH 0055    
       00064 -3 00014 4 00066        TXL PR3,4,12                                                     SPH 0056    
       00065  0 76000 0 00370        SPR 8                      FIRST CYCLE                           SPH 0057    
       00066 -0 53400 4 00026  PR3   LXD PR6,4                  INITIALIZE GROUP COUNT                SPH 0058    
       00067  0 53400 2 00071  PR5   LXA PR7,2                  INITIALIZE LEFT SETUP                 SPH 0059    
       00070 -0 53400 1 00133        LXD YZ1,1                  CLEAR CARD IMAGE                      SPH 0060    
 T     00071 -0 75400 0 00000  PR7   PXD                        X                                     SPH 0061    
       00072  0 60200 1 77714  PR4   SLW LT,1                   X                                     SPH 0062    
       00073  0 60200 1 77674        SLW RT,1                   X                                     SPH 0063    
       00074  2 00001 1 00072        TIX PR4,1,1                X                                     SPH 0064    
       00075 -0 50000 0 00235  CIR   CAL COL1                   INITIALIZE COLUMN INDICATOR           SPH 0065    
       00076  0 60200 0 77653  CI2   SLW COL                    X                                     SPH 0066    
       00077  0 56000 4 00000  CI9   LDQ 0,4                    OBTAIN GROUP                          SPH 0067    
       00100 -0 63400 4 00030        SXD OZ2,4                  STORE GROUP COUNT                     SPH 0068    
       00101  0 53400 4 00103        LXA Q6,4                   SET CHARACTER COUNT                   SPH 0069    
 T     00102 -0 75400 0 00003  CI1   PXD LMT                                                          SPH 0070    
       00103 -0 76300 0 00006  Q6    LGL 6                                                            SPH 0071    
       00104  0 73400 1 00000  1ST   PAX 0,1                                                          SPH 0072    
       00105 -0 50000 0 77653        CAL COL                    POSITION COLUMN INDICATOR             SPH 0073    
       00106  0 77100 4 00006        ARS 6,4                    X                                     SPH 0074    
       00107  2 00020 1 00133        TIX YZ1,1,16               TEST FOR DIGIT                        SPH 0075    
       00110  3 00017 1 00136        TXH YZ2,1,15               TEST FOR Y-ZONE                       SPH 0076    
       00111 -0 60200 3 77711  CI5   ORS D,3                    STORE DIGIT                           SPH 0077    
       00112  2 00001 4 00102  CI4   TIX CI1,4,1                COUNT  CHARACTERS                     SPH 0078    
       00113  0 77100 0 00001  CI3   ARS 1                      SHIFT AND TEST COLUMN                 SPH 0079    
       00114 -0 53400 4 00030        LXD OZ2,4                  RESTORE GROUP COUNT                   SPH 0080    
       00115  1 77777 4 00116        TXI CI6,4,-1               COUNT GROUPS                          SPH 0081    
 D     00116 -3 00000 4 00120  CI6   TXL CI7,4                  TEST FOR LAST NON-BLANK GROUP         SPH 0082    
       00117 -0 10000 0 00076        TNZ CI2                    TEST FOR END OF ROW                   SPH 0083    
       00120 -0 50000 2 77676  CI7   CAL 8.3,2                  FORM TRUE 8.4                         SPH 0084    
       00121 -0 60200 2 77701        ORS D-8,2                  AND 3 ROWS AND                        SPH 0085    
       00122 -0 60200 2 77706        ORS D-3,2                  MOVE 8.4 AND 8.3                      SPH 0086    
       00123  0 60200 2 77677        SLW 8.2,2                  ROWS                                  SPH 0087    
       00124 -0 50000 2 77675        CAL 8.4,2                  FORM TRUE 8.4                         SPH 0088    
       00125 -0 60200 2 77701        ORS D-8,2                  X                                     SPH 0089    
       00126 -0 60200 2 77705        ORS D-4,2                  X                                     SPH 0090    
       00127  0 60200 2 77676        SLW 8.3,2                  X                                     SPH 0091    
 D     00130 -3 00000 4 00153  CI8   TXL WP,4                   TEST FOR END                          SPH 0092    
       00131  3 00017 2 00153        TXH WP,2,15                TEST FOR RIGHT HALF                   SPH 0093    
       00132  1 00020 2 00075        TXI CIR,2,16               INITIALIZE RIGHT HALF                 SPH 0094    
       00133  2 00020 1 00141  YZ1   TIX XZ1,1,16               TEST FOR I6/CH/32                     SPH 0095    
       00134  3 00017 1 00144        TXH XZ2,1,15               TEST FOR X-ZONE                       SPH 0096    
       00135 -0 60200 3 77711        ORS D,3                    STORE DIGIT                           SPH 0097    
       00136 -0 60200 2 77713  YZ2   ORS Y,2                    STORE Y-ZONE                          SPH 0098    
       00137  2 00001 4 00102        TIX CI1,4,1                C0UNT CHARACTERS                      SPH 0099    
 TD    00140 -3 00000 0 00113  X1    TXL CI3                    OBTAIN NEXT GROUP                     SPH 0100    
       00141  2 00020 1 00147  XZ1   TIX OZ1,1,16               TEST FOR 32/CH/48                     SPH 0101    
       00142  3 00017 1 00112        TXH CI4,1,15               TEST FOR BLANK                        SPH 0102    
       00143 -0 60200 3 77711        ORS D,3                    STORE DIGIT                           SPH 0103    
       00144 -0 60200 2 77712  XZ2   ORS X,2                    STORE X-ZONE                          SPH 0104    
       00145  2 00001 4 00102        TIX CI1,4,1                COUNT CHARACTERS                      SPH 0105    
 TD    00146 -3 00000 0 00113  X2    TXL CI3                    OBTAIN NEXT GROUP                     SPH 0106    
       00147 -0 60200 2 77711  OZ1   ORS Z,2                    STORE 0-ZONE                          SPH 0107    
       00150 -0 60200 3 77711        ORS D,3                    STORE DIGIT                           SPH 0108    
       00151  2 00001 4 00102        TIX CI1,4,1                COUNT CHARACTERS                      SPH 0109    
 TD    00152 -3 00000 0 00113        TXL CI3                                                          SPH 0110    
       00153 -0 53400 1 00025  WP    LXD Z2,1                   COPY LOOP                             SPH 0111    
       00154  0 70000 1 77700  C     CPY LT-12,1                CARD IMAGE COPIES                     SPH 0112    
       00155  0 70000 1 77660        CPY RT-12,1                X                                     SPH 0113    
       00156  1 77777 1 00157        TXI T2,1,-1                                                      SPH 0114    
       00157  3 77767 1 00154  T2    TXH C,1,-9                 TEST FOR ECHO                         SPH 0115    
       00160  0 70000 1 77703        CPY LECHO-9,1              ECHO COPIES                           SPH 0116    
       00161  0 70000 1 77716        CPY RECHO-9,1              X                                     SPH 0117    
       00162  3 77764 1 00154        TXH C,1,-12                TEST FOR END OF CARD IMAGE            SPH 0118    
       00163  3 77755 1 00156        TXH T2-1,1,-19             TEST FOR END OF ECHOS                 SPH 0119    
       00164  0 53400 1 00217        LXA L2,1                                                         SPH 0120    
       00165 -0 50000 1 77716  CL    CAL LECHO+2,1              8.3 AND 8.4 ECHOS INTO                SPH 0121    
       00166 -0 60200 0 77717        ORS LECHO+3                8 AND 3 AND 4 ECHO R0WS               SPH 0122    
       00167 -0 60200 1 77725        ORS LECHO+9,1              X                                     SPH 0I23    
       00170 -0 50000 1 77731        CAL RECHO+2,1              X                                     SPH 0124    
       00171 -0 60200 0 77732        ORS RECHO+3                X                                     SPH 0125    
       00172 -0 60200 1 77740        ORS RECHO+9,1              X                                     SPH 0126    
       00173  2 00001 1 00165        TIX CL,1,1                 X                                     SPH 0127    
       00174  0 53400 1 00012        LXA L11,1                                                        SPH 0128    
       00175 -0 50000 1 77711     T9 CAL 8.4L+11,1         LEFT ECHO CHECK                            SPH 0129    
       00176  0 76000 0 00006        COM                        X                                     SPH 0130    
       00177  0 36100 1 77727        ACL LECHO+11,1             X                                     SPH 0131    
       00200  0 76000 0 00006        COM                        X                                     SPH 0132    
       00201 -0 10000 0 00207        TNZ ERRL              LEFT ECHO CHECK EPROR                      SPH 0133    
       00202 -0 50000 1 77671      R CAL 8.4R+11,1         RIGHT ECHO CHECK                           SPH 0134    
       00203  0 76000 0 00006        COM                        X                                     SPH 0135    
       00204  0 36100 1 77742        ACL RECHO+11,1             X                                     SPH 0136    
       00205  0 76000 0 00006        COM                        X                                     SPH 0137    
       00206  0 10000 0 00212        TZE ERR+1             RIGHT ECHO CHECK ERROR                     SPH 0138    
       00207  0 56000 0 00226   ERRL LDQ RES               SET UP FOR SECOND ATTEMPT TO PRINT LINE    SPH 0139    
       00210 -0 60000 0 00000        STQ 0                 X                                          SPH 0140    
       00211  0 42000 4 00000    ERR HPR 0,4               ECHO CHECK ERROR. RESTART OR CONTINUE      SPH 0141    
       00212  2 00001 1 00175        TIX T9,1,1            CONTINUE                                   SPH 0142    
 D     00213  3 00000 4 00227  WP4   TXH WP5,4                  TEST FOR SECOND CYCLE                 SPH 0143    
       00214 -0 53400 1 00140        LXD X1,1                   NO, RELOAD INDEX REGISTERS AND RETURN SPH 0144    
       00215 -0 53400 2 00146        LXD X2,2                   X                                     SPH 0145    
       00216 -0 53400 4 00031  WT2   LXD X4,4                   X                                     SPH 0I46    
       00217  0 02000 4 00002  L2    TRA 2,4                    X                                     SPH 0147    
       00220  0 76000 0 00364  SP4   SPR 4                      DOUBLE SPACE                          SPH 0148    
 TD    00221 -3 00000 0 00050        TXL RPR+2                                                        SPH 0149    
 TD    00222 -3 00000 0 00223  DEL   TXL FIX                                                          SPH 0150    
       00223 -0 50000 0 00034  FIX   CAL MK                                                           SPH 0151    
       00224  0 60200 0 00104        SLW 1ST                                                          SPH 0152    
       00225  2 00001 4 00102        TIX CI1,4,1                                                      SPH 0153    
       00226  0 02000 0 00000  RES   TRA RPT                                                          SPH 0154    
       00227  0 76200 0 00361  WP5   RPR                        SELECT PRINTER AGAIN                  SPH 0155    
       00230  0 76000 0 00371        SPR 9                      SECOND CYCLE                          SPH 0156    
       00231 -3 00014 0 00067  WP2   TXL PR5,0,12               CONVERT REST OF LINE                  SPH 0157    
       00232  606060606060     BLNKS BCD 1                                                            SPH 0158    
       00233 +000000000020     YZONE OCT 20                                                           SPH 0159    
       00234 +000000000060     BNK   OCT 60                                                           SPH 0160    
       00235 -0 00000 0 00000  COL1  MZE                                                              SPH 0I61    
                        77653        ORG COMMON                                                       SPH 0162    
                        77653  COL   BSS 1                                                            SPH 0163    
                        77674  RT    BES 16                                                           SPH 0164    
                        77674  8.5   BSS 1                                                            SPH 0165    
                        77675  8.4   BSS 1                                                            SPH 0166    
                        77676  8.3   BSS 1                                                            SPH 0167    
                        77677  8.2   BSS 1                                                            SPH 0168    
                        77711  D     BES 9                                                            SPH 0169    
                        77711  Z     BSS 1                                                            SPH 0170    
                        77712  X     BSS 1                                                            SPH 0I71    
                        77713  Y     BSS 1                                                            SPH 0172    
                        77714  LT    SYN Y+1                                                          SPH 0173    
                        77676  8.4L  SYN LT-14                                                        SPH 0174    
                        77656  8.4R  SYN RT-14                                                        SPH 0175    
                        77714  LECHO BSS 11                                                           SPH 0I76    
                        77727  RECHO BSS 11                                                           SPH 0177    
                        00102  (SPH) SYN CI1                                                          SFH 0178    
 A                      00000        END                                                              SPH 0179    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     187           0           0           0           0
 LIB       0           0           0           0           0
 COL     187           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      195                  
0NUMBER OF SYMBOLS,  DEF    81,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR STH.                                        STH/C01     
                        00000        ORG 0                                                            STH/C02     
       00000  0 00000 0 00014        PZE X4+1                                                         STH/C03     
       00001  0 00000 0 00000        PZE                                                              STH/C04     
       00002  746263303460           BCD 1(STH)                                                       STH/C05     
       00003  0 00000 0 00000        PZE                                                              STH/C06     
                                         END OF STH CONTROL CARD.                                     STH/C07     
                        00000        ORG 0                                                            STHF2001    
       00000  0 50000 4 00001    WOT CLA 1,4               CALCULATE ADDRESS                          STHF2002    
       00001  0 77100 0 00022        ARS 18                FOR COPY INSTRUCTION                       STHF2003    
       00002  0 40000 4 00001        ADD 1,4               X                                          STHF2004    
       00003 -0 63400 4 00013        SXD X4,4              SAVE INDEX REGISTER                        STHF2005    
       00004 -0 73400 4 00000  (STH) PDX WOT,4             COUNT OF WORDS PER RECORD TO IR4           STHF2006    
       00005  0 62100 0 00006        STA WT1               SUPPLY ADDRESS TO CPY INSTRUCTI0N          STHF2007    
       00006  0 70000 4 00000    WT1 CPY 0,4               COPY RECORD TO OUTPUT TAPE                 STHF2008    
       00007  2 00001 4 00006        TIX WT1,4,1           X                                          STHF2009    
       00010  0 76600 0 00333        IOD                   INPUT OUTPUT DELAY                         STHF2010    
       00011 -0 53400 4 00013        LXD X4,4              RESTORE IR4, RETURN TO                     STHF2011    
       00012  0 02000 4 00002        TRA 2,4               MAIN PROGRAM                               STHF2012    
       00013  0 00000 0 00001     X4 HTR 1                 STORAGE FOR INDEX REGISTER 4               STHF2013    
 A                      00000        END                                                              STHF2014    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      22           0           0           0           0
 LIB       0           0           0           0           0
 COL      22           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       30                  
0NUMBER OF SYMBOLS,  DEF     4,DEFOP     0,UNDEF     0      
9            ABS                                                              LRT/CO0     
1                                        CONTROL CARD FOR LRT.                                        LRT/C01     
 A                      00000        ORG                                                              LRT/C02     
       00000  0 00000 0 00120        PZE BT+1                                                         LRT/C03     
       00001  0 00000 0 00000        PZE                                                              LRT/C04     
       00002  744325653460           BCD 1(LEV)                                                       LRT/C05     
       00003  0 00000 0 00000        PZE (LEV)                                                        LRT/C06     
       00004  745163453460           BCD 1(RTN)                                                       LRT/C07     
       00005  0 00000 0 00041        PZE (RTN) ,                                                      LRT/C08     
                                          END OF LRT CONTROL CARD.                                    LRT/C09     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                                  
 A                      00000        ORG                                                              LRT/C       
                                         (LEV)/ CALLER=MAIN PROGRAM.                                  LRT/001     
                                         (LEV) SAVES ALL INDICATORS BEFORE I/O TRANSMISSION.          LRT/002     
       00000  0 40000 0 00114 (LEV)  ADD L(2)                      SET UP FOR RETURN                  LRT/003     
       00001  0 62100 0 00040        STA BAK                       TO CONTROL LOOP.                   LRT/004     
       00002 -0 76000 0 00012        RTT                           MAKE CERTAIN REDUNDANCY            LRT/005     
       00003  0 76100 0 00000        NOP                           INDICATOR IS TURNED OFF.           LRT/006     
       00004  0 62100 0 00075        STA RT                        SAVE FOR 2ND TRY, IF NECESSARY=    LRT/007     
       00005 -0 63400 1 00017        SXD ERX1,1                    STARTING LOCATION, AND THE         LRT/008     
       00006 -0 63400 2 00046        SXD ERX2,2                    CONTENTS OF XR1, XR2,              LRT/009     
       00007 -0 63400 4 00111        SXD ERX4,4                    AND XR4.                           LRT/010     
       00010 -0 50000 0 00000        CAL 0                         ALSO SAVE THE                      LRT/011     
       00011  0 60200 0 00112        SLW C(0)                      CONTENTS OF LOCATION 0,            LRT/012     
       00012 -0 50000 0 00001        CAL 1                         AND THE                            LRT/013     
       00013  0 60200 0 00113        SLW C(1)                      CONTENTS OF LOCATION 1.            LRT/014     
       00014 -0 50000 0 00020        CAL TON                       SET UP FOR                         LRT/015     
       00015  0 60200 0 00001        SLW 1                         PREVIOUS TRAP                      LRT/016     
       00016  0 50000 0 00023        CLA LTM                       IMDE CONDITION.                    LRT/017     
       00017  1 00000 0 00022 ERX1   TXI SET,0,**                  IF IN TRAPPING MODE, THEN          LRT/018     
       00020  0 02100 0 00021 TON    TTR CHS                       INSTRUCTION EXECUTED IN LOCATION 1.LRT/019     
       00021  0 76000 0 00002 CHS    CHS                           CHANGE LTM TO ETM, AND             LRT/020     
       00022  0 60100 0 00065 SET    STO RTM                       SET RTM TO RESTORE TRAPPING COND.  LRT/021     
       00023 -0 76000 0 00007 LTM    LTM                           LEAVE TRAPPING MODE, AND           LRT/022     
       00024  0 50000 0 00064        CLA NOP                       THEN                               LRT/023     
       00025  0 14000 0 00027 TOV    TOV SETAC                     RETAIN PREVIOUS                    LRT/024     
       00026  0 50000 0 00025        CLA TOV                       AC OVERFLOW CONDITION              LRT/025     
       00027  0 62200 0 00060 SETAC  STD AVR                       IN AVR.                            LRT/026     
       00030  0 50000 0 00064        CLA NOP                       THEN                               LRT/027     
       00031  0 16100 0 00033 TQO    TQO SETMQ                     RETAIN PREVIOUS                    LRT/028     
       00032  0 50000 0 00031        CLA TQO                       MQ OVERFLOW CONDITION              LRT/029     
       00033  0 62200 0 00061 SETMQ  STD QVR                       IN OVR.                            LRT/030     
       00034  0 50000 0 00035        CLA DCT                       THEN                               LRT/031     
       00035  0 76000 0 00012 DCT    DCT                           RETAIN PREVIOUS                    LRT/032     
       00036  0 50000 0 00064        CLA NOP                       DIVIDE CHECK CONDITION             LRT/033     
       00037  0 60100 0 00063        STO DCR                       IN DCR.                            LRT/034     
       00040  0 02100 0 00000 BAK    TTR **                      * EXIT TO MAIN PROGRAM.              LRT/035     
                                          END OF PROGRAM (LEV).                                       LRT/036     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/037     
                                                                                                      LRT/038     
                                         (RTNI/ CALLERS=MAIN PROGRAM,(FIL).                           LRT/039     
                                         (RTN) RESTORES ALL INDICATORS AFTER I/O TRANSMISSION.        LRT/040     
       00041 -0 76000 0 00007 (RTN)  LTM                           LEAVE TRAPPING MODE, AND           LRT/041     
       00042  0 40000 0 00114        ADD L(2)                      SET UP FOR RETURN                  LRT/042     
       00043  0 62100 0 00066        STA RET                       TO CONTROL LO0P.                   LRT/043     
       00044  0 76600 0 00333        IOD                           INPUT-OUTPUT DELAY.                LRT/044     
       00045 -0 76000 0 00012        RTT                           IF BINARY TAPE READING WAS NOT     LRT/045     
       00046  1 00000 0 00067 ERX2   TXI TRY,0,**                  CORRECT, THEN TRY AGAIN.           LRT/046     
       00047 -0 50000 0 00071 GOOD   CAL TXLOP                     OTHERWISE, CONTINUE.               LRT/047     
       00050  0 63000 0 00067        STP TRY                       SET TRY TO TRANSFER CASE.          LRT/048     
                                          RES = ENTRY POINT USED BY (FIL).                            LRT/049     
       00051 -0 50000 0 00112 RES    CAL C(0)                      RESTORE                            LRT/050     
       00052  0 60200 0 00000        SLW 0                         THE C(0).                          LRT/051     
       00053 -0 50000 0 00113        CAL C(1)                      RESTORE                            LRT/052     
       00054  0 60200 0 00001        SLW 1                         THE C(1).                          LRT/053     
       00055  0 76600 0 00333        IOD                           INPUT-OUTPUT DELAY.                LRT/054     
       00056  0 56000 0 00115        LDQ MAX                       FORCE ALL TEST                     LRT/055     
       00057  0 26000 0 00115        FMP MAX                       CONDITIONS ON, AND THEN            LRT/056     
       00060  0 00000 0 00061 AVR    PZE QVR,,**                   RESTORE ORIGINAL AC OV CONDITION.  LRT/057     
       00061  0 00000 0 00062 QVR    PZE NXT,,**                   RESTORE ORIGINAL MQ OV CONDITION.  LRT/058     
       00062  0 22100 0 00116 NXT    DVP ZER                       AND THEN                           LRT/059     
       00063  0 00000 0 00000 DCR    PZE **                        RESTORE ORIGINAL DIVIDE CHECK COND.LRT/060     
       00064  0 76100 0 00000 NOP    NOP                           AND THEN                           LRT/061     
       00065  0 00000 0 00000 RTM    PZE **                        RESTORE ORIGINAL TRAP MODE COND.   LRT/062     
       00066  0 02100 0 00000 RET    TTR **                      * EXIT TO MAIN PROGRAM.              LRT/063     
 D     00067 -3 00000 0 00072 TRY    TXL TRY1,0                    OPSWITCH (TXL=TRA, TXH=NOP).       LRT/064     
       00070  0 42000 7 00007        HPR 7,7                       HALT AFTER 2ND FAILURE.            LRT/065     
 D     00071 -3 00000 0 00047 TXLOP  TXL GOOD,0                    PRESS START TO ACCEPT RECORD.      LRT/066     
       00072  0 50000 0 00071 TRY1   CLA TXLOP                     SET TRY TO NO TRANSFER CASE        LRT/067     
       00073  0 63000 0 00067        STP TRY                       FOR 2ND ATTEMPT AT READING RECORD. LRT/068     
       00074  0 53400 1 00116        LXA ZER,1                     SET XR1 = 0, AND                   LRT/069     
       00075  0 56000 1 00000 RT     LDQ **,1                      OBTAIN RTB LOCATION.               LRT/070     
       00076 -0 75400 0 00000        PXD ,0                        OBTAIN OPERATION                   LST/071     
       00077 -0 76300 0 00014        LGL 12                        BITS, AND TEST                     LRT/072     
       00100  0 40200 0 00117        SUB BT                        FOR LOCATION RTB.                  LRT/073     
       00101  0 10000 0 00103        TZE CONT                      IF NOT, THEN ADJUST THE            LRT/074     
       00102  1 77777 1 00075        TXI RT,1,-1                   C(XR1), AND CONTINUE SEARCH.       LRT/075     
       00103 -0 76300 0 00030 CONT   LGL 24                        WHEN FOUND, SET                    LRT/076     
       00104  0 62100 0 00105        STA BST                       CURRENT TAPE ADDRESS.              LRT/077     
       00105  0 76400 0 00200 BST    BST **                        BACKSPACE CURRENT TAPE.            LRT/078     
       00106 -0 53400 1 00017        LXD ERX1,1                    RESTORE THE                        LRT/079     
       00107 -0 53400 2 00046        LXD ERX2,2                    ORIGINAL CONTENTS 0F               LRT/080     
       00110 -0 53400 4 00111        LXD ERX4,4                    XR1,XR2, AND XR4.                  LRT/081     
       00111  1 00000 0 00040 ERX4   TXI BAK,0,**                * EXIT TO MAIN PROGRAM FOR 2ND TRY.  LRT/082     
                                          END OF PROGRAM (RTN).                                       LRT/083     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/084     
                                                                                                      LRT/085     
                                         CONSTANTS AND WORKING STORAGE USED BY LEV/RTN/FIL/BDC.       LRT/086     
       00112  0 00000 0 00000 C(0)   PZE **                        VARIABLE USED BY LEV/RTN/FIL/BDC.  LRT/087     
       00113  0 00000 0 00000 C(1)   PZE **                        VARIABLE USED BY LEV/RTN/FIL/BDC.  LRT/088     
       00114  0 00000 0 00002 L(2)   PZE 2                         CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/089     
       00115 +377777777777    MAX    OCT 377777777777              CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/090     
       00116  0 00000 0 00000 ZER    PZE 0                         CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/091     
       00117 +000000000762    BT     OCT 000000000762              CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/092     
                                          END OF CONSTANTS AND WORKING STORAGE USED BY LEV/RTN.       LRT/093     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/094     
                                                                                                      LRT/095     
 A                      00000        END                                                              LRT/096     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     109           0           0           0           0
 LIB       0           0           0           0           0
 COL     109           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      117                  
0NUMBER OF SYMBOLS,  DEF    36,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR EXP(1                                       XP1/C01     
                        00000        ORG 0                                                            XP1/C02     
       00000  0 00000 0 00042        PZE EXP+1                                                        XP1/C03     
       00001  0 00000 0 77776        PZE FACTOR                                                       XP1/C04     
       00002  256747740160           BCD 1EXP(1                                                       XP1/C05     
       00003  0 00000 0 00000        PZE                                                              XP1/C06     
                                         END OF EXP(1 CONTROL CARD.                                   XP1/C07     
                        00000        ORG 0                                                            EXP10001    
                                         EXPONENTIATION SUBROUTINE                                    EXP10002    
                                         FIXED POINT BASE, FIXED POINT EXPONENT                       EXP10003    
       00000  0 10000 4 00001  EXP(1 TZE 1,4                    EXIT FOR ZERO BASE                    EXP10004    
       00001  0 77100 0 00022        ARS 18                                                           EXP10005    
       00002  0 60100 0 77777        STO POWER                  SAVE BASE                             EXP10006    
       00003  0 76300 0 00021        LLS 17                                                           EXP10007    
       00004  0 62100 0 00041        STA EXP                                                          EXP10008    
       00005  0 50000 0 00041        CLA EXP                                                          EXP10009    
       00006 -0 10000 0 00011        TNZ ENZ                                                          EXP10010    
       00007  0 56000 0 00040        LDQ FIXONE                                                       EXP10011    
       00010  0 02000 0 00036        TRA EXIT                                                         EXP10012    
       00011  0 50000 0 00040  ENZ   CLA FIXONE                                                       EXP10013    
       00012 -0 40000 0 77777        SBM POWER                                                        EXP10014    
       00013  0 10000 0 00016        TZE N                                                            EXP10015    
       00014  0 16200 0 00016        TQP N                                                            EXP10016    
       00015  0 02000 0 00036        TRA EXIT                                                         EXP10017    
       00016  0 50000 0 00040  N     CLA FIXONE                                                       EXP10018    
       00017  0 60100 0 77776        STO FACTOR                 X                                     EXP10019    
       00020  0 50000 0 00041  CLA1  CLA EXP                    IS POWER                              EXP10020    
       00021  0 76000 0 00001        LBT                        A FACTOR                              EXP10021    
       00022  0 02000 0 00026        TRA CLA2                   NO                                    EXP10022    
       00023  0 56000 0 77777        LDQ POWER                  YEB                                   EXP10023    
       00024  0 20000 0 77776        MPY FACTOR                                                       EXP10024    
       00025 -0 60000 0 77776        STQ FACTOR                                                       EXP10025    
       00026  0 50000 0 00041  CLA2  CLA EXP                                                          EXP10026    
       00027  0 77100 0 00001        ARS 1                                                            EXP10027    
       00030  0 60100 0 00041        STO EXP                                                          EXP10028    
       00031  0 10000 0 00036        TZE EXIT                                                         EXP10029    
       00032  0 56000 0 77777        LDQ POWER                  COMPUTE                               EXP10030    
       00033  0 20000 0 77777        MPY POWER                  NEXT                                  EXP10031    
       00034 -0 60000 0 77777        STQ POWER                  POWER                                 EXP10032    
       00035  0 02000 0 00020        TRA CLA1                                                         EXP10033    
       00036  0 76300 0 00065  EXIT  LLS 53                                                           EXP10034    
       00037  0 02000 4 00001        TRA 1,4                                                          EXP10035    
                                         WORKING STORAGE                                              EXP10036    
       00040 +000000000001    FIXONE DEC 1                                                            EXP10037    
       00041  0 00000 0 00000  EXP                                                                    EXP1003B    
                        77777  POWER SYN -1                                                           EXP10039    
                        77776 FACTOR SYN -2                                                           EXP10040    
 A                      00000        END                                                              EXP10041    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      49           0           0           0           0
 LIB       0           0           0           0           0
 COL      49           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF    10,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR EXP(2                                       XP2/C01     
                        00000        ORG 0                                                            XP2/C02     
       00000  0 00000 0 00050        PZE EXP+1                                                        XP2/C03     
       00001  0 00000 0 77776        PZE FACTOR                                                       XP2/C04     
       00002  256747740260           BCD 1EXP(2                                                       XP2/C05     
       00003  0 00000 0 00000        PZE                                                              XP2/C06     
                                         END OF EXP(2 CONTROL CARD.                                   XP2/C07     
                        00000        ORG 0                                                            EXP20001    
                                         EXPONENTIATION SUBROUTINE                                    EXP20002    
                                         FLOATING POINT BASE, FIXED POINT EXPONENT                    EXP20003    
       00000  0 10000 4 00001  EXP(2 TZE 1,4                    EXIT FOR ZERO BASE                    EXP20004    
       00001 -0 63400 2 00022        SXD SAVEX,2                                                      EXP20005    
       00002  0 16200 0 00005        TQP MQPOS                                                        EXP20006    
       00003 -0 53400 2 00004        LXD NEGONE,2               SET NEGATIVE MQ INDICATOR             EXP20007    
       00004 -3 77777 0 00006 NEGONE TXL MQPOS+1,0,-1                                                 EXP20008    
       00005 -0 53400 2 00037  MQPOS LXD TXL,2                  SET POSITIVE MQ INDICATOR             EXP20009    
       00006  0 60100 0 77777        STO POWER                  INITIALIZATION                        EXP20010    
 T     00007 -0 75400 0 00000        PXD                                                              EXP20011    
       00010  0 76300 0 00021        LLS 17                     X                                     EXP20012    
       00011  0 62100 0 00047        STA EXP                    X                                     EXP20013    
       00012  0 50000 0 00047        CLA EXP                                                          EXP20014    
       00013 -0 10000 0 00016        TNZ N                                                            EXP20015    
       00014  0 50000 0 00046        CLA FLOONE                                                       EXP20016    
       00015  0 02000 0 00044        TRA EXIT                                                         EXP20017    
       00016  0 50000 0 00046  N     CLA FLOONE                 X                                     EXPZ0018    
       00017  0 60100 0 77776        STO FACTOR                 X                                     EXP20019    
       00020  0 50000 0 00047  CLA1  CLA EXP                    IS POWER                              EXP20020    
       00021  0 76000 0 00001        LBT                        A FACTOR                              EXP20021    
 TD    00022 -3 00000 0 00026  SAVEX TXL CLA2                   NO                                    EXP20022    
       00023  0 56000 0 77777        LDQ POWER                  YES                                   EXP20023    
       00024  0 26000 0 77776        FMP FACTOR                                                       EXP20024    
       00025  0 60100 0 77776        STO FACTOR                                                       EXP20025    
       00026  0 50000 0 00047  CLA2  CLA EXP                                                          EXP20026    
       00027  0 77100 0 00001        ARS 1                                                            EXP20027    
       00030  0 60100 0 00047        STO EXP                                                          EXP20028    
       00031  0 10000 0 00036        TZE TXL-1                                                        EXP20029    
       00032  0 56000 0 77777        LDQ POWER                                                        EXP20030    
       00033  0 26000 0 77777        FMP POWER                                                        EXP20031    
       00034  0 60100 0 77777        STO POWER                                                        EXP20032    
       00035  0 02000 0 00020        TRA CLA1                                                         EXP20033    
       00036  0 50000 0 77776        CLA FACTOR                                                       EXP20034    
 D     00037 -3 00000 2 00044  TXL   TXL EXIT,2                                                       EXP20035    
       00040  0 50000 0 00046        CLA FLOONE                                                       EXP20036    
       00041  0 24000 0 77776        FDH FACTOR                                                       EXP20037    
 T     00042 -0 75400 0 00000        PXD                                                              EXP20038    
       00043  0 76300 0 00043        LLS 35                                                           EXPZ00S9    
       00044 -0 53400 2 00022  EXIT  LXD SAVEX,2                                                      EXP20040    
                                         WORKING STORAGE                                              EXP20041    
       00045  0 02000 4 00001        TRA 1,4                                                          EXP20042    
       00046 +201400000000    FLOONE DEC 1.0                                                          EXP20043    
       00047  0 00000 0 00000  EXP                                                                    EXP20044    
                        77777  POWER SYN -1                                                           EXP20045    
                        77776 FACTOR SYN -2                                                                       
 A                      00000        END                                                              EXP20047    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      55           0           0           0           0
 LIB       0           0           0           0           0
 COL      55           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       63                  
0NUMBER OF SYMBOLS,  DEF    13,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                         CONTROL CARD FOR EXP(3                                      XP3/C01     
                        00000        ORG 0                                                            XP3/C02     
       00000  0 00000 0 00161            113                                                          XP3/C03     
       00001  0 00000 0 77770            -8                                                           XP3/C04     
       00002  256747740360           BCD 1EXP(3                                                       XP3/C05     
       00003  0 00000 0 00000        PZE                                                              XP3/C06     
       00004  256747606060           BCD 1EXP                                                         XP3/C07     
       00005 -0 00000 0 00010        MZE 8                                                            XP3/C08     
       00006  434627606060           BCD 1LOG                                                         XP3/C09     
       00007 -0 00000 0 00107        MZE 71                                                           XP3/C10     
                                         END OF EXP(3 CONTROL CARD.                                   XP3/C11     
                        00000        ORG 0                                                            EXP30001    
                                         EXPONENTIATION SUBROUTINE                                    EXP30002    
                                         FL0ATING POINT BASE, FLOATING POINT EXPONENT                 EXP30003    
       00000  0 10000 4 00001  EXP(3 TZE 1,4                    BASE ZERO                             EXP30004    
       00001  0 76000 0 00003        SSP                                                              EXP30005    
       00002 -0 63400 4 77770        SXD TXL,4                                                        EXP30006    
       00003 -0 60000 0 77772        STQ EXP1                                                         EXP30007    
       00004  0 07400 4 00111        TSX LOG,4                                                        EXP30008    
       00005  0 76500 0 00043        LRS 35                                                           EXP30009    
       00006  0 26000 0 77772        FMP EXP1                                                         EXP30010    
       00007  0 07400 4 00012        TSX EXP,4                                                        EXP30011    
       00010 -0 53400 4 77770  LXD   LXD TXL,4                                                        EXP30012    
       00011  0 02000 4 00001        TRA 1,4                                                          EXP30013    
                                         LAS816 EXPONENTIAL SUBROUTINE                                EXP30014    
       00012  0 60100 0 77773 S816EX STO COMMON+00000,0,00000                                         EXP30015    
       00013  0 76000 0 00003        SSP 00000,0,00000                                                EXP30016    
       00014  0 40200 0 00101        SUB S816EX+00055,0,00000                                         EXP30017    
       00015  0 76500 0 00000        LRS 00000,0,00000                                                EXP30018    
       00016 -0 75400 0 00000        PXD 00000,0,00000                                                EXP30019    
       00017  0 16200 0 00075        TQP S816EX+00051,0,00000                                         EXP30020    
       00020  0 40100 0 77773        ADM COMMON+00000,0,00000                                         EXP30021    
       00021  0 56000 0 00110        LDQ S816EX+00062,0,00000                                         EXP30022    
       00022  0 40200 0 00107        SUB S816EX+00061,0,00000                                         EXP30023    
       00023 -0 12000 0 00033        TMI S816EX+00017,0,00000                                         EXP30024    
       00024  0 76500 0 00033        LRS 00027,0,00000                                                EXP30025    
       00025  0 62100 0 00027        STA S816EX+00013,0,00000                                         EXP30026    
       00026 -0 75400 0 00000        PXD 00000,0,00000                                                EXP30027    
       00027  0 76300 0 00000        LLS 00000,0,00000                                                EXP30028    
       00030  0 22000 0 00102        DVH S816EX+00056,0,00000                                         EXP30029    
       00031  0 77100 0 00010        ARS 00008,0,00000                                                EXP30030    
       00032 -0 77300 0 00033        RQL 00027,0,00000                                                EXP30031    
       00033  0 40000 0 00107        ADD S816EX+00061,0,00000                                         EXP30032    
       00034 -0 60000 0 77774        STQ COMMON+00001,0,00000                                         EXP30033    
       00035  0 30000 0 00107        FAD S816EX+00061,0,00000                                         EXP30034    
       00036  0 60100 0 77775        STO COMMON+00002,0,00000                                         EXP30035    
       00037  0 56000 0 77775        LDQ COMMON+00002,0,00000                                         EXP30036    
       00040  0 26000 0 77775        FMP COMMON+00002,0,00000                                         EXP30037    
       00041  0 60100 0 77776        STO COMMON+00003,0,00000                                         EXP30038    
       00042  0 30000 0 00103        FAD S816EX+00057,0,00000                                         EXP30039    
       00043  0 60100 0 77777        STO COMMON+00004,0,00000                                         EXP30040    
       00044  0 50000 0 00104        CLA S816EX+00058,0,00000                                         EXP30041    
       00045  0 24000 0 77777        FDH COMMON+00004,0,00000                                         EXP30042    
       00046 -0 60000 0 77777        STQ COMMON+00004,0,00000                                         EXP30043    
       00047  0 50000 0 00105        CLA S816EX+00059,0,00000                                         EXP30044    
       00050  0 30000 0 77777        FAD COMMON+00004,0,00000                                         EXP30045    
       00051  0 60100 0 77777        STO COMMON+00004,0,00000                                         EXP30046    
       00052  0 56000 0 77777        LDQ COMMON+00004,0,00000                                         EXP30047    
       00053  0 26000 0 77776        FMP COMMON+00003,0,00000                                         EXP30048    
       00054  0 30000 0 00106        FAD S816EX+00060,0,00000                                         EXP30049    
       00055  0 60100 0 77776        STO COMMON+00003,0,00000                                         EXP30050    
       00056  0 30200 0 77775        FSB COMMON+00002,0,00000                                         EXP30051    
       00057  0 60100 0 77777        STO COMMON+00004,0,00000                                         EXP30052    
       00060  0 50000 0 77776        CLA COMMON+00003,0,00000                                         EXP30053    
       00061  0 30000 0 77775        FAD COMMON+00002,0,00000                                         EXP30054    
       00062  0 40000 0 77774        ADD COMMON+00001,0,00000                                         EXP30055    
       00063  0 60100 0 77776        STO COMMON+00003,0,00000                                         EXP30056    
       00064  0 56000 0 77773        LDQ COMMON+00000,0,00000                                         EXP30057    
       00065  0 16200 0 00071        TQP S816EX+00047,0,00000                                         EXP30058    
       00066  0 50000 0 77777        CLA COMMON+00004,0,00000                                         EXP30059    
       00067  0 56000 0 77776        LDQ COMMON+00003,0,00000                                         EXP30060    
       00070 -0 60000 0 77777        STQ COMMON+00004,0,00000                                         EXP30061    
       00071  0 24000 0 77777        FDH COMMON+00004,0,00000                                         EXP30062    
       00072 -0 60000 0 77773        STQ COMMON+00000,0,00000                                         EXP30063    
       00073  0 50000 0 77773        CLA COMMON+00000,0,00000                                         EXP30064    
       00074  0 02000 4 00001        TRA 00001,4,00000                                                EXP30065    
       00075  0 56000 0 77773        LDQ COMMON+00000,0,00000                                         EXP30066    
       00076  0 04000 4 00001        TLQ 00001,4,00000                                                EXP30067    
       00077  0 76000 0 00006        COM 00000,0,00000                                                EXP30068    
       00100  0 02000 4 00001        TRA 00001,4,00000                                                EXP30069    
       00101 +207535146314           DEC 8.73000000000E01                                             EXP30070    
       00102 +261344137676           OCT 261344137676                                                 EXP30071    
       00103 +206520000000           DEC 4.20000000000E01                                             EXP30072    
       00104 +203471463146           DEC 4.90000000000E00                                             EXP30073    
       00105 +174631463146           DEC 5.00000000000E-02                                            EXP30074    
       00106 +202400000000           DEC 2.00000000000E00                                             EXP30075    
       00107 +200000000000           OCT 200000000000                                                 EXP30076    
       00110 +000000000000           OCT 000000000000                                                 EXP30077    
                                         LA S820 NATURAL LOGARITHM SUBROUTINE                         EXP30078    
       00111  0 10000 4 00001 LAS820 TZE 00001,4,00000                                                EXP30079    
       00112  0 76000 0 00003        SSP                                                              EXP30080    
       00113  0 76500 0 00033        LRS 00027,0,00000                                                EXP30081    
       00114 -0 60000 0 77773        STQ COMMON+00000,0,00000                                         EXP30082    
       00115  0 76700 0 00023        ALS 00019,0,00000                                                EXP30083    
       00116 -0 50100 0 00147        ORA LAS820+00030,0,00000                                         EXP30084    
       00117  0 30200 0 00150        FSB LAS820+00031,0,00000                                         EXP30085    
       00120  0 60100 0 77774        STO COMMON+00001,0,00000                                         EXP30086    
       00121  0 50000 0 77773        CLA COMMON+00000,0,00000                                         EXP30087    
       00122  0 76500 0 00010        LRS 00008,0,00000                                                EXP30088    
       00123 -0 50100 0 00151        ORA LAS820+00032,0,00000                                         EXP30089    
       00124  0 30000 0 00152        FAD LAS820+00033,0,00000                                         EXP30090    
       00125  0 60100 0 77773        STO COMMON+00000,0,00000                                         EXP30091    
       00126  0 30200 0 00153        FSB LAS820+00034,0,00000                                         EXP30092    
       00127  0 24000 0 77773        FDH COMMON+00000,0,00000                                         EXP30093    
       00130 -0 60000 0 77773        STQ COMMON+00000,0,00000                                         EXP30094    
       00131  0 26000 0 77773        FMP COMMON+00000,0,00000                                         EXP30095    
       00132  0 60100 0 77775        STO COMMON+00002,0,00000                                         EXP30096    
       00133  0 56000 0 00156        LDQ LAS820+00037,0,00000                                         EXP30097    
       00134  0 26000 0 77775        FMP COMMON+00002,0,00000                                         EXP30098    
       00135  0 30000 0 00155        FAD LAS820+00036,0,00000                                         EXP30099    
       00136  0 76500 0 00043        LRS 00035,0,00000                                                EXP30100    
       00137  0 26000 0 77775        FMP COMMON+00002,0,00000                                         EXP30101    
       00140  0 30000 0 00154        FAD LAS820+00035,0,00000                                         EXP30102    
       00141  0 76500 0 00043        LRS 00035,0,00000                                                EXP30103    
       00142  0 26000 0 77773        FMP COMMON+00000,0,00000                                         EXP30104    
       00143  0 30000 0 77774        FAD COMMON+00001,0,00000                                         EXP30105    
       00144  0 76500 0 00043        LRS 00035,0,00000                                                EXP30106    
       00145  0 26000 0 00157        FMP LAS820+00038,0,00000                                         EXP30107    
       00146  0 02000 4 00001        TRA 00001,4,00000                                                EXP30108    
       00147 +210000000000           OCT 210000000000                                                 EXP30109    
       00150 +210401000000           DEC 1.28500000000E02                                             EXP30110    
       00151 +200000000000           OCT 200000000000                                                 EXP30111    
       00152 +200552023631           DEC 7.07106781187E-01                                            EXP30112    
       00153 +201552023631           DEC 1.41421356237E00                                             EXP30113    
       00154 +202561251001           DEC 2.88539129030E00                                             EXP30114    
       00155 +200754213603           DEC 9.61470632300E-01                                            EXP30115    
       00156 +200462532521           DEC 5.98978649600E-01                                            EXP30116    
       00157 +200542710277           DEC 6.93147180560E-01                                            EXP30117    
                        77773 COMMON SYN -5                                                           EXP30118    
                        77772  EXP1  SYN -6                                                           EXP30119    
                        77771  BASE  SYN -7                                                           EXP30120    
                        77770  TXL   SYN -8                                                           EXP30I21    
                        00111  LOG   SYN LAS820                                                       EXP30I22    
                        00012  EXP   SYN S816EX                                                       EXP30I23    
 A                      00000        END                                                              EXP30124    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     136           0           0           0           0
 LIB       0           0           0           0           0
 COL     136           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      144                  
0NUMBER OF SYMBOLS,  DEF    10,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR LOG.                                        LOG/CO1     
                        00000        ORG 0                                                            LOG/C02     
       00000  0 00000 0 00052            42                                                           LOG/C03     
       00001  0 00000 0 77775        PZE COMMON                                                       LOG/C04     
       00002  434627606060           BCD 1LOG                                                         LOG/C05     
       00003  0 00000 0 00000        PZE                                                              LOG/C06     
                                         END OF LOG CONTROL CARD                                      LOG/C07     
 A                      00000        ORG                                                              LOG 0002    
                                         LAS820 NATURAL LOGARITHM SUBROUTINE                          LOG 0003    
       00000  0 10000 4 00001 LAS820 TZE 00001,4,00000                                                LOG 0004    
       00001  0 76000 0 00003        SSP                                                              LOG 0005    
       00002  0 76500 0 00033        LRS 00027,0,00000                                                LOG 0006    
       00003 -0 60000 0 77775        STQ COMMON+00000,0,00000                                         LOG 0007    
       00004  0 76700 0 00023        ALS 00019,0,00000                                                LOG 0008    
       00005 -0 50100 0 00036        ORA LAS820+00030,0,00000                                         LOG 0009    
       00006  0 30200 0 00037        FSB LAS820+00031,0,00000                                         LOG 0010    
       00007  0 60100 0 77776        STO COMMON+00001,0,00000                                         LOG 0011    
       00010  0 50000 0 77775        CLA COMMON+00000,0,00000                                         LOG 0012    
       00011  0 76500 0 00010        LRS 00008,0,00000                                                LOG 0013    
       00012 -0 50100 0 00040        ORA LAS820+00032,0,00000                                         LOG 0014    
       00013  0 30000 0 00041        FAD LAS820+00033,0,00000                                         LOG 0015    
       00014  0 60100 0 77775        STO COMMON+00000,0,00000                                         LOG 0016    
       00015  0 30200 0 00042        FSB LAS820+00034,0,00000                                         LOG 0017    
       00016  0 24000 0 77775        FDH COMMON+00000,0,00000                                         LOG 0018    
       00017 -0 60000 0 77775        STQ COMMON+00000,0,00000                                         LOG 0019    
       00020  0 26000 0 77775        FMP COMMON+00000,0,00000                                         LOG 0020    
       00021  0 60100 0 77777        STO COMMON+00002,0,00000                                         LOG 0021    
       00022  0 56000 0 00045        LDQ LAS820+00037,0,00000                                         LOG 0022    
       00023  0 26000 0 77777        FMP COMMON+00002,0,00000                                         LOG 0023    
       00024  0 30000 0 00044        FAD LAS820+00036,0,00000                                         LOG 0024    
       00025  0 76500 0 00043        LRS 00035,0,00000                                                LOG 0025    
       00026  0 26000 0 77777        FMP COMMON+00002,0,00000                                         LOG 0026    
       00027  0 30000 0 00043        FAD LAS820+00035,0,00000                                         LOG 0027    
       00030  0 76500 0 00043        LRS 00035,0,00000                                                LOG 0028    
       00031  0 26000 0 77775        FMP COMMON+00000,0,00000                                         LOG 0029    
       00032  0 30000 0 77776        FAD COMMON+00001,0,00000                                         LOG 0030    
       00033  0 76500 0 00043        LRS 00035,0,00000                                                LOG 0031    
       00034  0 26000 0 00046        FMP LAS820+00038,0,00000                                         LOG 0032    
       00035  0 02000 4 00001        TRA 00001,4,00000                                                LOG 0033    
       00036 +210000000000           OCT 210000000000                                                 LOG 0034    
       00037 +210401000000           DEC 1.28500000000E02                                             LOG 0035    
       00040 +200000000000           OCT 200000000000                                                 LOG 0036    
       00041 +200552023631           DEC 7.07106781187E-01                                            LOG 0037    
       00042 +201552023631           DEC 1.41421356237E00                                             LOG 0038    
       00043 +202561251001           DEC 2.88539129030E00                                             LOG 0039    
       00044 +200754213603           DEC 9.61470632300E-01                                            LOG 0040    
       00045 +200462532521           DEC 5.98978649600E-01                                            LOG 0041    
       00046 +200542710277           DEC 6.93147180560E-01                                            LOG 0042    
                        77775 COMMON SYN -3                                                           LOG 0043    
 A                      00000        END                                                              LOG 0044    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      51           0           0           0           0
 LIB       0           0           0           0           0
 COL      51           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF     2,DEFOP     0,UNDEF     0      
9            REL                                                              F2SIN00I    
1                       00000        ORG 0                                                            F2SIN002    
                                         FORTRAN LIBRARY VERSION OF IB SIN 1                          F2SIN003    
                                         COMPUTES SINE OR COSINE OF A SINGLE PRECISION NORMALIZED     F2SIN004    
                                         FLOATING POINT ARGUMENT. TSX SIN  OR  TSX COS . REL. ERROR   F2SIN005    
                                         LESS THAN 1/2 X 10 TO -8. TIMING ABOUT 2.03 SIN, 2.I1  C0S.  F2SIN006    
       00000  0 30200 0 00153  COS   FSB FPHLF                                                        F2SIN007    
       00001  0 76000 0 00002        CHS                                                              F2SIN008    
       00002  0 60100 0 77774 SIN    STO SPMLT                                                        F2SIN009    
       00003  0 76500 0 00011        LRS 9                                                            F2SIN010    
       00004 -0 63400 1 00021        SXD SAVE,1                                                       F2SIN011    
       00005 -0 73400 1 00000        PDX 0,1                                                          F2SIN012    
       00006 -0 14000 0 00134  OVTST TNO NOVFL             OVERFLOW TEST                              F2SIN013    
       00007 -0 63400 4 00120        SXD INDIC,4           OVERFLOW TO BE RESTORED                    F2SIN014    
       00010  3 00244 1 00022        TXH ERR,1,164                                                    F2SIN015    
       00011  0 76300 0 00023        LLS 19                                                           F2SIN016    
       00012 -3 00202 1 00026        TXL SPEC,1,130                                                   F2SIN017    
       00013  0 76500 1 00250  LRTSH LRS 168,1             B3                                         F2SIN018    
       00014  0 22000 0 00136        DVH PI                PI...B3,  BQ...35                          F2SIN019    
       00015 -0 77300 0 00043        RQL 35                LAST BIT TO SIGN MQ                        F2SIN020    
       00016  0 16200 0 00041        TQP FRLAR                                                        F2SIN021    
       00017  0 76000 0 00002        CHS                                                              F2SIN022    
       00020  0 60100 0 77774        STO SPMLT                                                        F2SIN023    
       00021 -3 00000 0 00041   SAVE TXL FRLAR,0,**                                                   F2SIN024    
       00022  0 02000 0 00117    ERR TRA FINI-1                                                       F2SIN025    
       00023  0 40200 0 00137   EQUA SUB PIHLF                                                        F2SIN026    
       00024  0 60200 0 77775        SLW REDA                                                         F2SIN027    
       00025  1 00002 1 00057     SX TXI COMCA,1,2         COSC,  XR...4                              F2SIN028    
                                                           SPECIAL CASE, ANGLE NEED NOT BE REDUCED    F2SIN029    
       00026 -3 00162 1 00130   SPEC TXL LOW,1,114                                                    F2SIN030    
       00027 -0 76000 0 00001        PBT                                                              F2SIN031    
       00030  0 02000 0 00032        TRA SPEC+4                                                       F2SIN032    
       00031  3 00201 1 00013        TXH LRTSH,1,129                                                  F2SIN033    
       00032  0 76500 1 00205        LRS 133,1             B3                                         F2SIN034    
       00033  0 76000 0 00003        SSP                                                              FZSIN035    
       00034  0 56000 0 00142        LDQ TEST                                                         F2SIN036    
       00035  0 04000 0 00042        TLQ FRLAR+1                                                      F2SIN037    
       00036  0 60100 0 77775        STO REDA                                                         F2SIN038    
       00037 -0 53400 1 00025        LXD SX,1                                                         F2SIN039    
       00040  0 02000 0 00057        TRA COMCA                                                        F2SIN040    
       00041  0 76000 0 00003  FRLAR SSP                                                              F2SIN041    
       00042 -0 53400 1 00025        LXD SX,1                                                         F2SIN042    
       00043  0 34000 0 00137        CAS PIHLF                                                        F2SIN043    
       00044  0 40200 0 00136        SUB PI                LARGER THAN PIHLF                          F2SIN044    
       00045  0 76000 0 00003        SSP                   EQUAL TO PIHLF                             F2SIN045    
       00046  0 56000 0 00142        LDQ TEST                                                         F2SIN046    
       00047  0 04000 0 00023        TLQ EQUA                                                         F2SIN047    
       00050  0 60100 0 77775        STO REDA              ANGLE IN FIRSF QUADRANT, B3                F2SIN048    
       00051  0 76500 0 00004  FLOAT LRS 4                                                            F2SIN049    
       00052  0 40000 0 00140        ADD CHAR                                                         F2SIN050    
       00053  0 30000 0 00141        FAD CHAR+1            200                                        F2SIN05I    
       00054  0 56000 0 77774        LDQ SPMLT                                                        F2SIN052    
       00055  0 76300 0 00000        LLS 0                                                            F2SIN053    
       00056  0 60100 0 77774        STO SPMLT                                                        F2SIN054    
                                                           COMMON CALCULATION FOR SIN AND COS         F2SIN055    
       00057  0 56000 0 77775  COMCA LDQ Z                 COMMON CALC., B3                           F2SIN056    
       00060 -0 20000 0 77775        MPR Z                                                            F2SIN057    
       00061  0 60100 0 77777        STO ZSQ               B6                                         F2SIN058    
       00062  0 40000 1 00147        ADD CONST+4,1         24.1B6, 50. B6                             F2SIN059    
       00063  0 60100 0 77776        STO SOR                                                          F2SIN060    
       00064  0 50000 1 00150        CLA CONST+5,1         2287B13, 1042B11                           F2SIN061    
       00065  0 22000 0 77776        DVH SOR                                                          F2SIN062    
       00066 -0 60000 0 77776        STQ SOR                                                          F2SIN063    
       00067  0 50000 0 77776        CLA SOR                                                          F2SIN064    
       00070  0 40000 1 00153        ADD CONST+8,1         82.5B7, -19.B5                             F2SIN065    
       00071  0 76700 0 00001        ALS 1                 B6, BITS IN P,Q                            F2SIN066    
       00072  0 40000 0 77777        ADD ZSQ                                                          F2SIN067    
       00073  0 77100 1 00006        ARS 6,1               B8                                         F2SIN068    
       00074 -3 00002 1 00123        TXL S,1,2                                                        F2SIN069    
       00075  0 60100 0 77776        STO SOR                                                          F2SIN070    
       00076  0 50000 0 77777        CLA ZSQ                                                          F2SIN071    
       00077  0 76500 0 00002        LRS 2                                                            F2SIN072    
       00100  0 40000 0 77777        ADD ZSQ                                                          F2SIN073    
       00101  0 76300 0 00001        LLS 1                                                            F2SIN074    
       00102  0 40000 0 00150        ADD CONST+5           -3276B13                                   F2SIN075    
       00103  0 22000 0 77776        DVH SOR                                                          F2SIN076    
       00104 -0 60000 0 77776        STQ SOR                                                          F2SIN077    
       00105  0 50000 0 77776        CLA SOR                                                          F2SIN078    
       00106  0 40000 0 00152        ADD CONST+7           19.477B5                                   F2SIN079    
       00107  0 76500 0 00002        LRS 2                                                            F2SIN080    
       00110  0 40200 0 77777        SUB ZSQ                                                          F2SIN081    
       00111  0 56000 0 77774        LDQ SPMLT                                                        F2SIN082    
       00112  0 76300 0 00010        LLS 8                                                            F2SIN083    
       00113 -0 76000 0 00001        PBT                                                              F2SIN084    
       00114  1 00001 1 00115        TXI RTSH,1,1          XR...5 FOR OCOS                            F2SIN085    
       00115  0 77100 1 00015  RTSH  ARS 13,1              9 OR 8                                     F2SIN086    
       00116  0 36100 1 00145        ACL CHAR+5,1          127 OR 128                                 F2SIN087    
       00117 -0 53400 1 00021        LXD SAVE,1                                                       F2SIN088    
 U     00120  3       4 00122   FINI TXH FINI+2,4,..                                                  F2SIN089    
       00121  0 02000 4 00001        TRA 1,4               LEAVE ON                                   F2SIN090    
       00122  0 14000 0 00121        TOV FINI+1            TURN OFF                                   F2SIN091    
       00123  0 40000 0 00141  S     ADD CHAR+1            126                                        F2SIN092    
       00124  0 60100 0 77777        STO ZSQ                                                          F2SIN093    
       00125  0 56000 0 77777        LDQ ZSQ                                                          F2SIN094    
       00126  0 26000 0 77774        FMP SPMLT                                                        F2SIN095    
       00127  0 02000 0 00117        TRA FINI-1                                                       F2SIN096    
       00130  0 50000 0 00120 LOW    CLA FINI                                                         F2SIN097    
       00131  0 76700 0 00011        ALS 9                                                            F2SIN97A    
       00132  0 50000 0 77774        CLA SPMLT                                                        F2SIN97B    
       00133  0 02000 0 00117        TRA FINI-1                                                       F2SIN098    
       00134 -0 63400 0 00120  NOVFL SXD INDIC,0           CLEAR DECREMENT OF INDIC                   F2SIN099    
       00135  0 02000 0 00010        TRA OVTST+2                                                      F2SIN100    
                                                           CONSTANTS                                  F2SIN101    
                        00120  INDIC SYN FINI                                                         F2SIN102    
       00136 +144417665210     PI    DEC 3.14159265359B3                                              F2SIN103    
       00137 +062207732503     PIHLF DEC 1.57079632679B3                                              F2SIN104    
       00140 +177000000000     CHAR  OCT 177000000000                                                 F2SIN105    
       00141 +200000000000           OCT 200000000000                                                 F2SIN106    
       00142 +011463146314     TEST  DEC .3B3                                                         F2SIN107    
       00143 +140450575062     CONST DEC 24.1448946943B6,2287.443195687B13,50.0302454854B6            F2SIN108    
       00144 +107367056521    
       00145 +310075742536    
       00146 +202273236275           DEC 1042.9267081438B11,82.58030199563B7,-3276.33995164B13        F2SIN109    
       00147 +245122165275    
       00150 -146305340704    
       00151 -236610717605           DEC -19.8459242632B5,19.477149451B5                              F2SIN110    
       00152 +233642316731    
       00153 +201622077325     FPHLF DEC 1.57079632679                                                F2SIN111    
                        77774 COMMON EQU -4                                                           F2SIN112    
                        77774  SPMLT EQU COMMON                                                       F2SINI13    
                        77775   REDA EQU COMMON+1                                                     F2SIN114    
                        77775      Z EQU COMMON+1                                                     F2SIN115    
                        77776    SOR EQU COMMON+2                                                     F2SIN116    
                        77777    ZSQ EQU COMMON+3                                                     F2SIN117    
                        00000        END 0                                                            F2SIN118    
                        00001 0   ..
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     120           0           0           0           0
 LIB       0           0           0           0           0
 COL     120           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      134                  
0NUMBER OF SYMBOLS,  DEF    30,DEFOP     0,UNDEF     1      
9            REL                                                              F2EXP001    
1                       00000        ORG 0                                                            F2EXP002    
                                         FLOATING POINT EXPONENTIAL SUBROUTINE, FORTRAN VERSION       F2EXP003    
       00000  0 60100 0 77777  EXP   STO M                 STORE ARGUMENT                             F2EXP004    
       00001  0 56000 0 00046        LDQ MAX               TEST IF 0UT OF RANGE                       F2EXP005    
       00002  0 04000 4 00001        TLQ 1,4               IF TOO LARGE ERROR RETURN                  F2EXP006    
       00003  0 76000 0 00002        CHS                                                              F2E6P007    
       00004  0 04000 0 00044        TLQ T1                IF TOO SMALL RETURN WITH ZERO              F2LXP008    
       00005  0 76500 0 00033        LRS 27                                                           F2EXP009    
       00006 -0 76000 0 00003        SSM                                                              F2EXP010    
       00007  0 40000 0 00050        ADD CHAR              CONVERT TO FIXED POINT                     F2EXP011    
       00010  0 62100 0 00012        STA SH1                                                          F2EXP012    
       00011  0 20000 0 00047        MPY LOGE              X TIMES LOG E BASE 2                       F2EXP013    
 A     00012  0 76500 0 00000  SH1   LRS                   SEPARATE INTEGER AND FRACTION              F2EXP014    
       00013  0 76700 0 00033        ALS 27                                                           F2EXP015    
       00014  0 60100 0 77777        STO M                                                            F2EXP016    
       00015  0 76500 0 00004        LRS 4                                                            F2EXP017    
       00016 -0 60000 0 77776        STQ F                                                            F2EXP018    
       00017  0 20000 0 77776        MPY F                 COMPUTE FRACTION SQUARED                   F2EXP019    
       00020  0 60100 0 77775        STO SQ                COMPUTE CONTINUED FRACTION                 F2EXP020    
       00021  0 40000 0 00053        ADD A                 8,27 SCALING                               F2EXP021    
       00022  0 60100 0 77774        STO T                 8,27                                       F2EXP022    
       00023  0 50000 0 00054        CLA B                 12,23                                      F2EXP023    
       00024  0 22100 0 77774        DVP T                 8,27 4,31                                  F2EXP024    
       00025 -0 60000 0 77774        STQ T                 4,31                                       F2EXP025    
       00026  0 56000 0 77775        LDQ SQ                8,27                                       F2EXP026    
       00027  0 20000 0 00055        MPY C                 0,35 8,27                                  FZEXP027    
       00030  0 76300 0 00004        LLS 4                 4,31                                       F2EXP028    
       00031  0 40200 0 77774        SUB T                 4,3I                                       F2EXP029    
       00032  0 40000 0 00056        ADD D                 4,3I                                       F2EXP030    
       00033  0 40200 0 77776        SUB F                 4,3I                                       F2EXP031    
       00034  0 60100 0 77774        STO T                 4,3I                                       F2EXP032    
       00035  0 50000 0 77776        CLA F                 5,3I NUMERATOR EOUALS 2F                   F2EXP033    
       00036  0 22100 0 77774        DVP T                 4,31 1,34                                  F2EXP034    
       00037 -0 60000 0 77774        STQ T                                                            F2EXP035    
       00040  0 50000 0 77774        CLA T                                                            F2EXP036    
       00041  0 76500 0 00010        LRS 8                                                            F2EXP037    
       00042 -0 50100 0 00052        ORA CH1                                                                      
       00043  0 30000 0 00051        FAD CH                                                                       
       00044  0 40000 0 77777  T1    ADD M                                                            F2EXP039    
       00045  0 02000 4 00001        TRA 1,4               RETURN1                                    FZEXP040    
                                                           OONSTANTS                                  F2EXP041    
       00046 +207540071260     MAX   DEC 88.028                                                       F2EXP042    
       00047 -270524354513     LOGE  DEC -1.4426950409B1                                              F2EXP043    
       00050 +000000000242     CHAR  OCT 242                                                          F2EXP044    
       00051 +201400000000     CH    OCT 201400000000                                                 F2EXP045    
       00052 +201000000000       CH1 OCT 201000000000                                                             
       00053 +127325604305     A     DEC 87.417497202B8                                               F2EXP046    
       00054 +046477071523     B     DEC 617.9722695B12                                               F2EXP047    
       00055 +010676467774     C     DEC .03465735903B0                                               F2EXP048    
       00056 +237214030720     D     DEC 9.9545957821B4                                               F2EXP049    
                                                           ERASABLES                                  F2EXP050    
                        77777  M     EQU -1                                                           F2EXP051    
                        77776  F     EQU -2                                                           F2EXP052    
                        77775  SQ    EQU -3                                                           F2EXP053    
                        77774  T     EQU -4                                                           F2EXP054    
                        00000        END 0                                                            F2EXP055    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      57           0           0           0           0
 LIB       0           0           0           0           0
 COL      57           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       65                  
0NUMBER OF SYMBOLS,  DEF    16,DEFOP     0,UNDEF     0      
9            ABS                                                                          
1                                        CONTROL CARD FOR SQRT.                                       SQRT/C01    
                        00000        ORG 0                                                            SQRT/C02    
       00000  0 00000 0 00025        PZE C+3                                                          SQRT/C03    
       00001  0 00000 0 77776        PZE COMMON                                                       SQRT/C04    
       00002  625051636060           BCD 1SQRT                                                        SQRT/C05    
       00003  0 00000 0 00000        PZE                                                              SQRT/C06    
                                         END OF SQRT CONTROL CARD.                                    SQRT/C07    
                        00000        ORG 0                                                            SQRT0001    
                                         CL SOR3 SQUARE ROOT SUBROUTINE                               SQRT0002    
                                         FUNCTION NAME ... SQRTF                                      SQRT0003    
       00000  0 10000 4 00001  SQRT  TZE 1,4                    SQRT OF ZERO IS ZERO                  SQRT0004    
       00001  0 76000 0 00003        SSP                        SET SIGN X PLUS                       SQRT0005    
       00002  0 60100 0 77776  P2    STO COMMON                 X                                     SQRT0006    
       00003 -0 50100 0 00022        ORA C                      MAKE POWER ODD                        SQRT0007    
       00004  0 77100 0 00001        ARS 1                                                            SQRT0008    
       00005  0 40000 0 00023        ADD C+1                    NORMALIZED Y0 IN A.C.                 SQRT0009    
       00006 -0 63400 4 00024        SXD C+2,4                                                        SQRT0010    
       00007  0 53400 4 00024        LXA C+2,4                  4 TO INDEX                            SQRT0011    
       00010  0 60100 0 77777  P1    STO COMMON+1               S TO RE Y0                            SQRT0012    
       00011  0 50000 0 77776        CLA COMMON                 1X1 TO A.C.                           SQRT0013    
       00012  0 24000 0 77777        FDH COMMON+1               1C1/YO TO A.C.                        SQRT0014    
       00013  0 50000 0 77777        CLA COMMON+1               Y0 TO A.C.                            SQRT0015    
       00014 -0 60000 0 77777        STQ COMMON+1               Q1 TO COMMON+1                        SQRT0016    
       00015  0 30000 0 77777        FAD COMMON+1               Y0+Q1 TO A.C.                         SQRT0017    
       00016  0 40200 0 00022        SUB C                      (Y0+Q1)/2 TO A.C.                     SQRT0018    
       00017  2 00001 4 00010        TIX P1,4,1                 REDUCE INDEX BY 1                     SQRT0019    
       00020 -0 53400 4 00024        LXD C+2,4                                                        SQNT0020    
       00021  0 02000 4 00001        TRA 1,4                                                          SQRT0021    
       00022 +001000000000     C     OCT 1000000000,100000000000,4                                    SQRT0022    
       00023 +100000000000    
       00024 +000000000004    
                        77776 COMMON SYN -2                                                           SQRT0023    
 A                      00000        END                                                              SQRT0024    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      32           0           0           0           0
 LIB       0           0           0           0           0
 COL      32           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            REL                                                              F2ATN001    
1                       00000        ORG 0                                                            F2ATN002    
                                         FL0ATING POINT ARCTANGENT SUBROUTINE, FORTRAN VERSION        F2ATN003    
       00000 -0 63400 1 00121  ATAN  SXD I1,1              SAVE INDEX REGISTER ONE                    F2ATN004    
       00001 -0 12000 0 00063        TMI T100              SET ARGU0ENT POSITIVE                      F2ATN005    
       00002  0 60100 0 77777  T30   STO X                 STORE ARGUMENT                             F2ATN006    
       00003  0 40200 0 00072        SUB MAX               TEST IF OUT OF RANGE                       F2ATN007    
       00004 -0 12000 0 00007        TMI T21                                                          F2ATN008    
       00005  0 50000 0 00120        CLA PI0V2             IF TOO LARGE, RETURN WITH PI/2             F2ATN009    
       00006  0 02000 4 00001        TRA 1,4                                                          F2ATN010    
       00007  0 40000 0 00071  T21   ADD MIN                                                          F2ATN011    
       00010  0 12000 0 00013        TPL T22                                                          F2ATN012    
       00011  0 50000 0 77777        CLA X                                                            F2ATN013    
       00012  0 02000 4 00001        TRA 1,4               IF TOO SMALL, RETURN WITH ARGUMENT         F2ATN014    
       00013  0 53400 1 00121  T22   LXA I1,1                                                         F2ATN015    
       00014  0 50000 0 77777  T17   CLA X                 TEST FOR INTERVAL CONTAINING X             F2ATN016    
       00015  0 40200 1 00076        SUB A,1                                                          F2ATN017    
       00016 -0 12000 0 00020        TMI T1                                                           F2ATN018    
       00017  1 00001 1 00014        TXI T17,1,1                                                      F2ATN019    
       00020  3 00000 1 00024  T1    TXH T2,1,0            IF IN INTERVAL ONE LET Z=9X/55             F2ATN020    
       00021  0 56000 0 77777        LDQ X                                                            F2ATN021    
       00022  0 26000 0 00117        FMP L                                                            F2ATN022    
       00023  0 02000 0 00037        TRA T11                                                          F2ATN023    
       00024 -0 75400 1 00000  T2    PXD 0,1               TAKE NEGATIVE OF INDEX REGISTER ONE        F2ATN024    
       00025  0 40200 0 00123        SUB CHAR                                                         F2ATN025    
       00026 -0 73400 1 00000        PDX 0,1                                                          F2ATN026    
       00027  0 50000 0 77777  T3    CLA X                 COMPUTE Z=A-B/O+X FOR PROPER INTERVAL      F2ATN027    
       00030  0 30000 1 00072        FAD MAX,1                                                        F2ATN028    
       00031  0 60100 0 77776        STO T                                                            F2ATN029    
       00032  0 50200 1 00102        CLS B,1                                                          F2ATN030    
       00033  0 24100 0 77776        FDP T                                                            F2ATN03I    
       00034 -0 60000 0 77776        STQ T                                                            F2ATN032    
       00035  0 50000 0 77776        CLA T                                                            F2ATN033    
       00036  0 30000 1 00076        FAD A,1                                                          F2ATN034    
       00037  0 60100 0 77777  T11   STO X                                                            F2ATN035    
       00040  0 56000 0 77777        LDQ X                                                            F2ATN036    
       00041  0 26000 0 77777        FMP X                 COMPUTE Z SQUARED                          F2ATN037    
       00042  0 60100 0 77775        STO SQ                COMPUTE CONTINUED FRACTION                 F2ATN038    
       00043  0 30000 0 00114        FAD C1                                                           F2ATN039    
       00044  0 60100 0 77776        STO T                                                            F2ATN040    
       00045  0 50200 0 00115        CLS C2                                                           F2ATN041    
       00046  0 24100 0 77776        FDP T                                                            F2ATN042    
       00047 -0 60000 0 77776        STQ T                                                            F2ATN043    
       00050  0 50000 0 77776        CLA T                                                            F2ATN044    
       00051  0 30000 0 00116        FAD C3                                                           F2ATN045    
       00052  0 30000 0 77775        FAD SQ                                                           F2ATN046    
       00053  0 60100 0 77776        STO T                                                            F2ATN047    
       00054  0 50000 0 77777        CLA X                                                            F2ATN048    
       00055  0 24100 0 77776        FDP T                                                            F2ATN049    
       00056 -0 60000 0 77776        STQ T                                                            F2ATN050    
       00057  0 50000 0 77776        CLA T                                                            F2ATN051    
       00060  0 30000 1 00107        FAD N,1               ADD INTERVAL CONSTANT                      F2ATN052    
       00061 -0 53400 1 00121        LXD I1,1                                                         F2ATN053    
       00062  0 02000 4 00001        TRA 1,4               RETURN                                     F2ATN054    
       00063 -0 63400 4 00122  T100  SXD I4,4              IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE  F2ATN055    
       00064  0 76000 0 00003        SSP                                                              F2ATN056    
       00065  0 07400 4 00002        TSX T30,4             ARRANGE TO SET RETURN NEGATIVE             F2ATN057    
       00066 -0 53400 4 00122        LXD I4,4                                                         F2ATN058    
       00067 -0 76000 0 00003        SSM                                                              F2ATN059    
       00070  0 02000 4 00001        TRA 1,4                                                          F2ATN060    
                                                           CONSTANTS                                  F2ATN061    
       00071 +070000000000     MIN   OCT 070000000000                                                 F2ATN062    
       00072 +233000000000     MAX   OCT 233000000000                                                 F2ATN063    
       00073 +202537532534           DEC 2.7474774195                                                 F2ATN064    
       00074 +201461055415           DEC 1.1917535926                                                 F2ATN065    
       00075 +200447464721           DEC .57735026919                                                 F2ATN066    
       00076 +176551074172     A     DEC .17632698071                                                 F2ATN067    
       00077 +177714301134           DEC .44958721409                                                 F2ATN068    
       00100 +176617307170           DEC .19501422424                                                 F2ATN069    
       00101 +175602761366           DEC .94475498595E-1                                              F2ATN070    
       00102 +173730570600     B     DEC .288535059E-1                                                F2ATN071    
       00103 +201546070234           DEC 1.398867082                                                  F2ATN072    
       00104 +177625431617           DEC .39604526598                                                 F2ATN073    
       00105 +176676654157           DEC .21818181818                                                 F2ATN074    
       00106 +176531427747           DEC .1687240152                                                  F2ATN075    
       00107 +000000000000     N     DEC 0                                                            F2ATN076    
       00110 +177545343022           DEC .3490658504                                                  F2ATN077    
       00111 +200545343022           DEC .6981317008                                                  F2ATN078    
       00112 +201414052216           DEC 1.047197551                                                  F2ATN079    
       00113 +201545343022           DEC 1.396263402                                                  F2ATN080    
       00114 +174642612432     C1    DEC .051119459                                                   F2ATN081    
       00115 +170543147755     C2    DEC .00270998425                                                 F2ATN082    
       00116 +176673545053     C3    DEC .21664913599                                                 F2ATN083    
       00117 +176517101123     L     DEC .16363636363                                                 F2ATN084    
       00120 +201622077325     PI0V2 DEC 1.57079633                                                   F2ATN085    
       00121  0 00000 0 00000  I1                                                                     F2ATN086    
       00122  0 00000 0 00000  I4                                                                     F2ATN087    
       00123 +200000000000     CHAR  OCT 200000000000                                                 F2ATN088    
                                                           ERASABLES                                  F2ATN089    
                        77777  X     EQU -1                                                           F2ATN090    
                        77776  T     EQU -2                                                           F2ATN091    
                        77775  SQ    EQU -3                                                           F2ATN092    
                        00000        END 0                                                            F2ATN093    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      93           0           0           0           0
 LIB       0           0           0           0           0
 COL      93           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      101                  
0NUMBER OF SYMBOLS,  DEF    26,DEFOP     0,UNDEF     0      
9            REL                                                              F2TNH001    
1                       00000        ORG 0                                                            F2TNH002    
                                         FLOATING POINT HYPERBOLIC TANGENT SUBROUTINE, FORTRAN VERSIONF2TNH003    
       00000  0 60100 0 77776  TANH  STO F                                                            F2TNH004    
       00001  0 76000 0 00003        SSP                                                              F2TNH005    
       00002  0 40200 0 00115        SUB MIN                                                          F2TNH006    
       00003  0 12000 0 00006        TPL T5                                                           F2TNH007    
       00004  0 50000 0 77776        CLA F                 TEST IF ARGUMENT LESS THAN .00034          F2TNH008    
       00005  0 02000 4 00001        TRA 1,4               IF SO LET TANH X EOUAL X                   F2TNH009    
       00006  0 40200 0 00114  T5    SUB MAX                TEST IF ARGUMENT LARGER THAN 12           F2TNH010    
       00007 -0 12000 0 00012        TMI T6                                                           F2TNH011    
       00010  0 50000 0 00120        CLA CH                IF SO LET TANH X EQUAL ONE                 F2TNH012    
       00011  0 02000 4 00001        TRA 1,4                                                          F2TNH013    
       00012  0 50000 0 77776  T6    CLA F                                                            F2TNH014    
       00013  0 76500 0 00033        LRS 27                                                           F2TNH015    
       00014 -0 76000 0 00003        SSM                                                              F2TNH016    
       00015  0 40000 0 00117        ADD CHAR              CONVERT T0 FIXED POINT                     F2TNH017    
       00016  0 62100 0 00020        STA SH1                                                          F2TNH018    
       00017  0 20000 0 00116        MPY LOGE              X TIMES LOG E BASE 2                       F2TNH019    
 A     00020  0 76500 0 00000  SH1   LRS                   SEPARATE INTEGER AND FRACTION              F2TNH020    
       00021  0 76700 0 00033        ALS 27                                                           F2TNH021    
       00022  0 60100 0 77777        STO M                                                            F2TNH022    
       00023  0 76300 0 00002        LLS 2                                                            F2TNH023    
       00024  0 10000 0 00071        TZE T2                IF ARGUMENT LESS THAN .25 TRANSFER         F2TNH024    
       00025  0 76500 0 00006        LRS 6                 IF GREATER COMPUTE E TO THE X              F2TNH025    
       00026 -0 60000 0 77776        STQ F                                                            F2TNH026    
       00027  0 20000 0 77776        MPY F                 COMPUTE FRACTION SQUARED                   F2TNH027    
       00030  0 60100 0 77775        STO SQ                COMPUTE CONTINUED FRACTION                 F2TNH028    
       00031  0 40000 0 00121        ADD A                 8,27 SCALING                               F2TNH029    
       00032  0 60100 0 77774        STO T                 8,27                                       F2TNH030    
       00033  0 50000 0 00122        CLA B                 12,23                                      F2TNH031    
       00034  0 22100 0 77774        DVP T                 8,27 4,31                                  F2TNH032    
       00035 -0 60000 0 77774        STQ T                 4,3I                                       F2TNH033    
       00036  0 56000 0 77775        LDQ SQ                8,27                                       F2TNH034    
       00037  0 20000 0 00123        MPY C                 00,35 8,27                                 F2TNH035    
       00040  0 76300 0 00004        LLS 4                 4,31                                       F2TNH036    
       00041  0 40200 0 77774        SUB T                 4,31                                       F2TNH037    
       00042  0 40000 0 00124        ADD D                 4,31                                       F2TNH038    
       00043  0 40200 0 77776        SUB F                 4,31                                       F2TNH039    
       00044  0 60100 0 77774        STO T                 4,31                                       F2TNH040    
       00045  0 50000 0 77776        CLA F                 5,31 NUMERATOR EQUALS 2F                   F2TNH041    
       00046  0 22100 0 77774        DVP T                                                            F2TNH042    
       00047 -0 60000 0 77774        STQ T                                                            F2TNH043    
       00050  0 50000 0 77774        CLA T                                                            F2TNH044    
       00051  0 76500 0 00010        LRS 8                                                            F2TNH045    
       00052  0 40000 0 00120        ADD CH                ADD ONE ANO CONVERT TO FLOATING POINT      F2TNH046    
       00053  0 40000 0 77777  T1    ADD M                                                            F2TNH047    
       00054  0 60100 0 77777        STO M                 COMPUTE TANH X FROM E TO THE X             F2TNH048    
       00055  0 50000 0 00120        CLA CH                                                           F2TNH049    
       00056  0 24100 0 77777        FDP M                                                            F2TNH050    
       00057 -0 60000 0 77776        STQ F                                                            F2TNH051    
       00060  0 50000 0 77777        CLA M                                                            F2TNH052    
       00061  0 30000 0 77776        FAD F                                                            F2TNH053    
       00062  0 60100 0 77774        STO T                                                            F2TNH054    
       00063  0 50000 0 77777        CLA M                                                            F2TNH055    
       00064  0 30200 0 77776        FSB F                                                            F2TNH056    
       00065  0 24100 0 77774  T10   FDP T                                                            F2TNH057    
       00066 -0 60000 0 77774        STQ T                                                            F2TNH058    
       00067  0 50000 0 77774        CLA T                                                            F2TNH059    
       00070  0 02000 4 00001        TRA 1,4               RETURN                                     F2TNH060    
       00071  0 56000 0 77776  T2    LDQ F                 COMPUTE TANH 4LOGE IF X SMALL              F2TNH061    
       00072  0 26000 0 00130        FMP 4LOGE             COMPUTE X TIMES 4LOGE                      F2TNH062    
       00073  0 60100 0 77776        STO F                                                            F2TNH063    
       00074  0 56000 0 77776        LDQ F                                                            F2TNH064    
       00075  0 26000 0 77776        FMP F                                                            F2TNH065    
       00076  0 60100 0 77775        STO SQ                                                           F2TNH066    
       00077  0 30000 0 00127        FAD D1                COMPUTE CONTINUED FRACTION                 F2TNH067    
       00100  0 60100 0 77774        STO T                                                            F2TNH068    
       00101  0 50000 0 00126        CLA C1                                                           F2TNH069    
       00102  0 24100 0 77774        FDP T                                                            F2TNH070    
       00103 -0 60000 0 77774        STQ T                                                            F2TNH071    
       00104  0 50000 0 77774        CLA T                                                            F2TNH072    
       00105  0 30000 0 00125        FAD B1                                                           F2TNH073    
       00106  0 76500 0 00043        LRS 35                                                           F2TNH074    
       00107  0 26000 0 77775        FMP SQ                                                           F2TNH075    
       00110  0 30000 0 00130        FAD 4LOGE                                                        F2TNH076    
       00111  0 60100 0 77774        STO T                                                            F2TNH077    
       00112  0 50000 0 77776        CLA F                                                            F2TNH078    
       00113  0 02000 0 00065        TRA T10                                                          F2TNH079    
                                                           CONSTANTS                                  F2TNH080    
       00114 +017000000000     MAX   OCT 017000000000                                                 F2TNH081    
       00115 +165544410070     MIN   DEC .00034                                                       F2TNH082    
       00116 +270524354513     LOGE  DEC 1.4426950409B1                                               F2TNH083    
       00117 +000000000242     CHAR  OCT 242                                                          F2TNH084    
       00120 +201400000000     CH    OCT 201400000000                                                 F2TNH085    
       00121 +127325604305     A     DEC 87.417497202B8                                               F2TNH086    
       00122 +046477071523     B     DEC 617.9722695B12                                               F2TNH087    
       00123 +010676467774     C     DEC .03465735903B0                                               F2TNH088    
       00124 +237214030720     D     DEC 9.9545957821B4                                               F2TNH089    
       00125 +173433723377     B1    DEC .01732867951                                                 F2TNH090    
       00126 +204704333566     C1    DEC 14.1384114018                                                F2TNH091    
       00127 +211535527021     D1    DEC 349.6699888                                                  F2TNH092    
       00130 +203561250731     4LOGE DEC 5.7707801636                                                 F2TNH093    
                                                           ERASABLES                                  F2TNH094    
                        77777  M     EQU -1                                                           F2TNH095    
                        77776  F     EQU -2                                                           F2TNH096    
                        77775  SQ    EQU -3                                                           F2TNH097    
                        77774  T     EQU -4                                                           F2TNH098    
                        00000        END 0                                                            F2TNH099    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      99           0           0           0           0
 LIB       0           0           0           0           0
 COL      99           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      107                  
0NUMBER OF SYMBOLS,  DEF    24,DEFOP     0,UNDEF     0      
9            REM           FNEDT2       REVISED FORTRAN EDITING PROGRAM       EDT 0001    
1                                                  FNEDT2       REVISED FORTRAN EDITING PROGRAM       EDT 0001    
                                                                                                      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    
       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                                                                 
       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    
       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    
       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     222           0           0           0           0
 LIB       0           0           0           0           0
 COL     222           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      231                  
0NUMBER OF SYMBOLS,  DEF    67,DEFOP     0,UNDEF     0      
9            END                                                                          
1A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP       1           0           0           0           0
 LIB       0           0           0           0           0
 COL       1           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       10                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9     START  LXA L(0),3            PERMANENT LIBRARIAN ENTRY POINT                        
1      00000  0 53400 3 00143 START  LXA L(0),3            PERMANENT LIBRARIAN ENTRY POINT                        
       00001  0 60000 0 00150        STZ ERASE                                                                    
       00002  0 76200 0 00321 RCD    RCD                                                                          
       00003 -0 70000 0 00144        CAD 9L                                                                       
       00004  0 02000 0 00006        TRA CPY9R                                                                    
       00005  0 02000 0 00130        TRA EXIT              EOF                                                    
       00006  0 70000 0 00145 CPY9R  CPY 9R                                                                       
       00007  0 50000 0 00144        CLA 9L                                                                       
       00010  0 10000 0 00130        TZE EXIT                                                                     
       00011  0 76000 0 00006        COM                                                                          
       00012 -0 73400 4 00000        PDX 0,4                                                                      
       00013  1 00001 4 00014        TXI CPY9R+6,4,1                                                              
       00014 -3 77700 4 00134        TXL PASSGL,4,-64                                                             
       00015  0 50000 0 00144        CLA 9L                                                                       
       00016  0 76700 0 00001        ALS 1                                                                        
       00017 -0 76000 0 00001        PBT                                                                          
       00020  0 02000 0 00041        TRA BINARY CARD                                                              
       00021  1 77776 4 00023        TXI CPAREL-2,4,-2                                                            
       00022 -0 63400 4 00027        SXD TXHREL,4                                                                 
 T     00023 -0 75400 0 00000        PXD                                                                          
       00024  0 60000 0 00150        STZ ERASE                                                                    
       00025 -0 70000 2 00152 CPAREL CAD RELREG,2                                                                 
       00026  1 77777 2 00027        TXI TXHREL,2,-1                                                              
       00027  3 00027 2 00025 TXHREL TXH CPAREL,2,*                                                               
       00030  0 07400 4 00071        TSX CHSTST,4                                                                 
       00031  0 76600 0 00221        WTB 1                                                                        
       00032 -3 00000 1 00035        TXL TSXREL,1,0                                                               
       00033  0 07400 4 00111        TSX WRBIN,4                                                                  
       00034  0 76600 0 00221        WTB 1                                                                        
       00035  0 07400 4 00102 TSXREL TSX WRREL,4                                                                  
       00036  0 60000 0 00146        STZ 9LB,0,STZ                                                                
       00037  0 60000 0 00147        STZ 9RB,0,STZ                                                                
       00040  0 02000 0 00002        TRA RCD                                                                      
 T     00041 -0 75400 0 00000 BINARY PXD                                                                          
       00042 -0 70000 1 00200 CPABIN CAD BINREG,1                                                                 
       00043  1 77777 1 00044        TXI TXHBIN-1,1,-1                                                            
       00044  1 00001 4 00045        TXI TXHBIN,4,1                                                               
       00045  3 00000 4 00042 TXHBIN TXH CPABIN,4,0                                                               
       00046  0 07400 4 00071        TSX CHSTST,4                                                                 
       00047  0 50000 0 00144        CLA 9L                                                                       
       00050  0 40000 0 00146        ADD 9LB                                                                      
       00051  0 60100 0 00146        STO 9LB                                                                      
       00052  0 50000 0 00150        CLA ERASE                                                                    
       00053  0 10000 0 00066        TZE CHER                                                                     
       00054  0 50000 0 00145        CLA 9R                                                                       
       00055 -0 12000 0 00060        TMI CHSIGN                                                                   
       00056  0 36100 0 00151        ACL L(1)                                                                     
       00057  0 02000 0 00061        TRA NORM                                                                     
       00060  0 76000 0 00003 CHSIGN SSP                                                                          
       00061  0 60200 0 00145 NORM   SLW 9R                                                                       
       00062 -0 50000 0 00145        CAL 9R                                                                       
       00063  0 36100 0 00147        ACL 9RB                                                                      
       00064  0 60200 0 00147        SLW 9RB                                                                      
       00065  0 02000 0 00002        TRA RCD                                                                      
       00066  0 50000 0 00151 CHER   CLA L(1)                                                                     
       00067  0 60100 0 00150        STO ERASE                                                                    
       00070  0 02000 0 00062        TRA NORM+1                                                                   
       00071  0 36100 0 00144 CHSTST ACL 9L                                                                       
       00072  0 60200 0 00142        SLW CHS                                                                      
       00073  0 76600 0 00333        IOD                                                                          
       00074  0 76600 0 00333        IOD                                                                          
       00075  0 50000 0 00145        CLA 9R                                                                       
       00076  0 34000 0 00142        CAS CHS                                                                      
       00077  0 00000 4 00001        HTR 1,4               CARD READING ERROR                                     
       00100  0 02000 4 00001        TRA 1,4                                                                      
       00101  0 02000 0 00077        TRA WRREL-3                                                                  
       00102  0 50000 0 00141 WRREL  CLA LIREL)                                                                   
       00103  0 62100 0 00121        STA CPY                                                                      
       00104 -0 63400 2 00123        SXD CPY+2,2                                                                  
       00105  0 70000 0 00144        CPY 9L                                                                       
       00106  0 53400 2 00143        LXA L(0),2                                                                   
       00107  0 70000 0 00145        CPY 9R                                                                       
 D     00110 -3 00000 0 00117 RETURN TXL XR,0                                                                     
       00111  0 50000 0 00140 WRBIN  CLA LIBIN)                                                                   
       00112  0 62100 0 00121        STA CPY                                                                      
       00113  0 70000 0 00146        CPY 9LB                                                                      
       00114 -0 63400 1 00123        SXD CPY+2,1                                                                  
       00115  0 53400 1 00143        LXA L(0),1                                                                   
       00116  0 70000 0 00147        CPY 9RB                                                                      
       00117 -0 63400 4 00110 XR     SXD RETURN,4                                                                 
       00120  0 53400 4 00143        LXA L(0),4                                                                   
       00121  0 70000 4 00121 CPY    CPY *,4                                                                      
       00122  1 77777 4 00123        TXI CPY+2,4,-1                                                               
       00123  3 00123 4 00121        TXH CPY,4,*                                                                  
       00124 -0 53400 4 00110        LXD RETURN,4                                                                 
       00125  0 76600 0 00333        IOD                                                                          
       00126  0 76600 0 00333        IOD                                                                          
       00127  0 02000 4 00001        TRA 1,4                                                                      
       00130  0 76200 0 00321 EXIT   RCD                                                                          
       00131  0 70000 0 00000        CPY 0                                                                        
       00132  0 70000 0 00001        CPY 1                                                                        
       00133  0 02000 0 00000        TRA 0                                                                        
       00134 -0 53400 4 00137 PASSGL LXD PASSGL+3,4        BY-PASS                                                
       00135  0 76200 0 00321        RCD                   GENERAL                                                
       00136  2 00001 4 00135        TIX PASSGL+1,4,1      LIBRARIAN                                              
       00137 -3 00016 0 00000        TXL RCD-2,0,14        G.L. CARD COUNT                                        
       00140  0 00000 0 00200 LIBIN)     BINREG                                                                   
       00141  0 00000 0 00152 LIREL)     RELREG                                                                   
       00142  0 00000 0 00000 CHS                                                                                 
       00143  0 00000 0 00000 L(0)                                                                                
       00144  0 00000 0 00000 9L                                                                                  
       00145  0 00000 0 00000 9R                                                                                  
       00146  0 00000 0 00000 9LB                                                                                 
       00147  0 00000 0 00000 9RB                                                                                 
       00150  0 00000 0 00000 ERASE  HTR 0                                                                        
       00151 +377777777777    L(1)   OCT 377777777777                                                             
                        00152 RELREG BSS 22                                                                       
                        00200 BINREG BSS 1                                                                        
                        60000 STZ    EQU 24576                                                                    
                        00000        END START                                                                    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     110           0           0           0           0
 LIB       0           0           0           0           0
 COL     110           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      119                  
0NUMBER OF SYMBOLS,  DEF    33,DEFOP     0,UNDEF     0      
9            REM GENERAL LIBRARIAN    GLIB2                                               
1                                        GENERAL LIBRARIAN    GLIB2                                               
                        00030        ORG 24                                                                       
       00030  0 77200 0 00225 DUP000 REW SOURCE            GENERAL LIBRARIAN                                      
       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 ONT0 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 00427 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                   MACHINE 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 00430        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 00432        HTR DUP300            RTT ERROR-BST AND TRY AGAIN                            
       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                   TU0N 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 00434        HTR DUP310            COMP. ERROR ON 1ST/2ND FILE RECORD                     
       00135  1 77777 4 00126        TXI DUP130,4,-1                                                              
       00136  0 00000 0 00434        HTR DUP310            COMP. ERROR ON 1ST/2ND FILE RECORD.                    
       00137  3 00000 4 00436 DUP150 TXH DUP320,4,**       ERROR-INCOMPLETE OBJECT RECORD                         
       00140  0 76600 0 00333        IOD                                                                          
       00141 -0 76000 0 00012        RTT                                                                          
       00142  0 00000 0 00434        HTR DUP310            RTT ERROR-BST AN0 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 00444        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 00444        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                                                              
 A     00172  0 00000 0 00000        HTR                   FALSE 3RD FILE EOF MARK.                               
 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                                          
       00201  0 76100 0 00000 SWITCH NOP                                                                          
       00202  0 76000 0 00006        COM                   EOR                                                    
       00203  0 36100 0 00455        ACL RECORD+1                                                                 
       00204  0 76000 0 00006        COM                                                                          
       00205  0 10000 0 00207        TZE DUP210                                                                   
       00206  0 00000 0 00450        HTR DUP350            CKSM FAILS READING SOURCE 3RD FILE                     
       00207  0 76600 0 00333 DUP210 IOD                                                                          
       00210 -0 76000 0 00012        RTT                                                                          
       00211  0 00000 0 00450        HTR DUP350            RTT ERROR-BST                                          
       00212 -0 63400 1 00217        SXD DUP230,1                                                                 
       00213 -0 63400 1 00236        SXD DUP260,1                                                                 
       00214  0 76600 0 00221        WRS OBJECT            WRITE OBJECT 3RD FILE RECORD                           
       00215  0 70000 2 00454 DUP220 CPY RECORD,2                                                                 
       00216  1 77777 2 00217        TXI DUP230,2,-1                                                              
       00217  3 00000 2 00215 DUP230 TXH DUP220,2,**                                                              
       00220  0 76600 0 00333 DUP231 IOD                                                                          
       00221 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
 ATD   00222  3 00000 0 00000        TXH                                                                          
       00223  0 76400 0 00221        BST OBJECT                                                                   
       00224  0 76200 0 00221        RDS OBJECT            READ BACK  OBJECT 3RD FILE RECORD                      
       00225  0 70000 0 00453 DUP240 CPY DUMMY                                                                    
       00226  0 02000 0 00231        TRA DUP250                                                                   
 A     00227  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00230  0 02000 0 00236        TRA DUP260            EOR                                                    
       00231  0 50000 4 00454 DUP250 CLA RECORD,4                                                                 
       00232  0 34000 0 00453        CAS DUMMY                                                                    
       00233  0 00000 0 00452        HTR DUP360            COMP. ERROR ON 3RD FILE                                
       00234  1 77777 4 00225        TXI DUP240,4,-1                                                              
       00235  0 00000 0 00452        HTR DUP360            ERROR- INCOMPLETE OBJECT RECORD                        
 D     00236  3 00000 4 00454 DUP260 TXH DUP370,4                                                                 
       00237  0 76600 0 00333        IOD                                                                          
       00240 -0 76000 0 00012        RTT                                                                          
       00241  0 00000 0 00452        HTR DUP360                                                                   
       00242 -0 50000 0 00460        CAL RECORD+4                                                                 
       00243  0 40200 0 00416        SUB NAME                                                                     
       00244 -0 10000 0 00165        TNZ DUP180                                                                   
       00245 -0 50000 0 00425        CAL TRAN                                                                     
       00246  0 60200 0 00201        SLW SWITCH                                                                   
       00247  0 02000 0 00165        TRA DUP180                                                                   
       00250  0 53400 3 00415 EXIT1  LXA L(0),3                                                                   
       00251  0 60000 0 00423        STZ ERASE                                                                    
       00252  0 76200 0 00321 RCD    RCD                                                                          
       00253 -0 70000 0 00417        CAD 9L                                                                       
       00254  0 02000 0 00256        TRA CPY9R                                                                    
       00255  0 02000 0 00406        TRA EXIT              EOF                                                    
       00256  0 70000 0 00420 CPY9R  CPY 9R                                                                       
       00257  0 50000 0 00417        CLA 9L                                                                       
       00260  0 10000 0 00406        TZE EXIT                                                                     
       00261  0 76000 0 00006        COM                                                                          
       00262 -0 73400 4 00000        PDX 0,4                                                                      
       00263  1 00001 4 00264        TXI CPY9R+6,4,1                                                              
       00264  0 50000 0 00417        CLA 9L                                                                       
       00265  0 76700 0 00001        ALS 1                                                                        
       00266 -0 76000 0 00001        PBT                                                                          
       00267  0 02000 0 00310        TRA BINARY CARD                                                              
       00270  1 77776 4 00272        TXI CPAREL-2,4,-2                                                            
       00271 -0 63400 4 00276        SXD TXHREL,4                                                                 
 T     00272 -0 75400 0 00000        PXD                                                                          
       00273  0 60000 0 00423        STZ ERASE                                                                    
       00274 -0 70000 2 00460 CPAREL CAD RELREG,2                                                                 
       00275  1 77777 2 00276        TXI TXHREL,2,-1                                                              
       00276  3 00276 2 00274 TXHREL TXH CPAREL,2,*                                                               
       00277  0 07400 4 00340        TSX CHSTST,4                                                                 
       00300  0 76600 0 00221        WTB 1                                                                        
       00301 -3 00000 1 00304        TXL TSXREL,1,0                                                               
       00302  0 07400 4 00360        TSX WRBIN,4                                                                  
       00303  0 76600 0 00221        WTB 1                                                                        
       00304  0 07400 4 00351 TSXREL TSX WRREL,4                                                                  
       00305  0 60000 0 00421        STZ 9LB,0,STZ                                                                
       00306  0 60000 0 00422        STZ 9RB,0,STZ                                                                
       00307  0 02000 0 00252        TRA RCD                                                                      
 T     00310 -0 75400 0 00000 BINARY PXD                                                                          
       00311 -0 70000 1 00506 CPABIN CAD BINREG,1                                                                 
       00312  1 77777 1 00313        TXI TXHBIN-1,1,-1                                                            
       00313  1 00001 4 00314        TXI TXHBIN,4,1                                                               
       00314  3 00000 4 00311 TXHBIN TXH CPABIN,4,0                                                               
       00315  0 07400 4 00340        TSX CHSTST,4                                                                 
       00316  0 50000 0 00417        CLA 9L                                                                       
       00317  0 40000 0 00421        ADD 9LB                                                                      
       00320  0 60100 0 00421        STO 9LB                                                                      
       00321  0 50000 0 00423        CLA ERASE                                                                    
       00322  0 10000 0 00335        TZE CHER                                                                     
       00323  0 50000 0 00420        CLA 9R                                                                       
       00324 -0 12000 0 00327        TMI CHSIGN                                                                   
       00325  0 36100 0 00424        ACL L(1)                                                                     
       00326  0 02000 0 00330        TRA NORM                                                                     
       00327  0 76000 0 00003 CHSIGN SSP                                                                          
       00330  0 60200 0 00420 NORM   SLW 9R                                                                       
       00331 -0 50000 0 00420        CAL 9R                                                                       
       00332  0 36100 0 00422        ACL 9RB                                                                      
       00333  0 60200 0 00422        SLW 9RB                                                                      
       00334  0 02000 0 00252        TRA RCD                                                                      
       00335  0 50000 0 00424 CHER   CLA L(1)                                                                     
       00336  0 60100 0 00423        STO ERASE                                                                    
       00337  0 02000 0 00331        TRA NORM+1                                                                   
       00340  0 36100 0 00417 CHSTST ACL 9L                                                                       
       00341  0 60200 0 00414        SLW CHS                                                                      
       00342  0 76600 0 00333        IOD                                                                          
       00343  0 76600 0 00333        IOD                                                                          
       00344  0 50000 0 00420        CLA 9R                                                                       
       00345  0 34000 0 00414        CAS CHS                                                                      
       00346  0 00000 4 00001        HTR 1,4               CARD READING ERROR                                     
       00347  0 02000 4 00001        TRA 1,4                                                                      
       00350  0 02000 0 00346        TRA WRREL-3                                                                  
       00351  0 50000 0 00413 WRREL  CLA L(REL)                                                                   
       00352  0 62100 0 00370        STA CPY                                                                      
       00353 -0 63400 2 00372        SXD CPY+2,2                                                                  
       00354  0 70000 0 00417        CPY 9L                                                                       
       00355  0 53400 2 00415        LXA L(0),2                                                                   
       00356  0 70000 0 00420        CPY 9R                                                                       
 D     00357 -3 00000 0 00366 RETURN TXL XR,0                                                                     
       00360  0 50000 0 00412 WRBIN  CLA L(BIN)                                                                   
       00361  0 62100 0 00370        STA CPY                                                                      
       00362  0 70000 0 00421        CPY 9LB                                                                      
       00363 -0 63400 1 00372        SXD CPY+2,1                                                                  
       00364  0 53400 1 00415        LXA L(0),1                                                                   
       00365  0 70000 0 00422        CPY 9RB                                                                      
       00366 -0 63400 4 00357 XR     SXD RETURN,4                                                                 
       00367  0 53400 4 00415        LXA L(0),4                                                                   
       00370  0 70000 4 00370 CPY    CPY *,4                                                                      
       00371  1 77777 4 00372        TXI CPY+2,4,-1                                                               
       00372  3 00372 4 00370        TXH CPY,4,*                                                                  
       00373 -0 53400 4 00357        LXD RETURN,4                                                                 
       00374  0 76600 0 00333        IOD                                                                          
       00375  0 76600 0 00333        IOD                                                                          
       00376  0 02000 4 00001        TRA 1,4                                                                      
       00377  0 60200 0 00426 RELBIN SLW HOLD                                                                     
       00400  0 50000 0 00417        CLA 9L                                                                       
       00401  0 76700 0 00001        ALS 1                                                                        
       00402 -0 76000 0 00001        PBT                                                                          
       00403  0 02000 0 00250        TRA EXIT1       RECORD IS THE 1ST CONTROL CARD OF GEN. LIB.                  
       00404 -0 50000 0 00426        CAL HOLD                                                                     
       00405  0 02000 0 00202        TRA SWITCH+1    RETURN TO READING PERMANENT LIB.                             
       00406  0 76200 0 00321 EXIT   RCD             PULL IN FNDE2                                                
       00407  0 70000 0 00000        CPY 0                                                                        
       00410  0 70000 0 00001        CPY 1                                                                        
       00411  0 02000 0 00000        TRA 0                                                                        
       00412  0 00000 0 00506 L(BIN)     BINREG                                                                   
       00413  0 00000 0 00460 L(REL)     RELREG                                                                   
       00414  0 00000 0 00000 CHS                                                                                 
       00415  0 00000 0 00000 L(0)                                                                                
       00416  256747740360    NAME   BCD 1EXP(3                                                                   
       00417  0 00000 0 00000 9L                                                                                  
       00420  0 00000 0 00000 9R                                                                                  
       00421  0 00000 0 00000 9LB                                                                                 
       00422  0 00000 0 00000 9RB                                                                                 
       00423  0 00000 0 00000 ERASE  HTR 0                                                                        
       00424 +377777777777    L(1)   OCT 377777777777                                                             
       00425  0 02000 0 00377 TRAN   TRA RELBIN                                                                   
       00426  0 00000 0 00000 HOLD                                                                                
       00427  0 00000 0 00030 DUP280 HTR DUP000                                                                   
       00430 -0 76000 0 00012 DUP290 RTT                                                                          
 ATD   00431  3 00000 0 00000        TXH                                                                          
       00432  0 76400 0 00225 DUP300 BST SOURCE                                                                   
       00433  0 02000 0 00071        TRA DUP070                                                                   
       00434 -0 53400 4 00051 DUP310 LXD DUP031,4                                                                 
       00435  0 02000 0 00121        TRA DUP121                                                                   
       00436  0 00000 0 00437 DUP320 HTR DUP330                                                                   
       00437 -0 76000 0 00012 DUP330 RTT                                                                          
 ATD   00440  3 00000 0 00000        TXH                                                                          
       00441  0 76400 0 00225        BST SOURCE                                                                   
       00442  0 76400 0 00221        BST OBJECT                                                                   
       00443  0 02000 0 00071        TRA DUP070                                                                   
       00444  0 76400 0 00225 DUP340 BST SOURCE                                                                   
       00445  0 76400 0 00225        BST SOURCE                                                                   
       00446  0 76200 0 00225        RDS SOURCE                                                                   
       00447  0 02000 0 00073        TRA DUP071                                                                   
       00450  0 76400 0 00225 DUP350 BST SOURCE                                                                   
       00451  0 02000 0 00162        TRA DUP171                                                                   
       00452 -0 53400 4 00051 DUP360 LXD DUP031,4                                                                 
       00453  0 02000 0 00220        TRA DUP231                                                                   
       00454  0 00000 0 00455 DUP370 HTR DUP380                                                                   
       00455  0 76400 0 00225 DUP380 BST SOURCE                                                                   
       00456  0 76400 0 00221        BST OBJECT                                                                   
       00457  0 02000 0 00162        TRA DUP171                                                                   
                        00460 RELREG BSS 22                                                                       
                        00506 BINREG BSS 1                                                                        
                        60000 STZ    EQU 24576                                                                    
                        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     290           0           0           0           0
 LIB       0           0           0           0           0
 COL     290           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      299                  
0NUMBER OF SYMBOLS,  DEF    85,DEFOP     0,UNDEF     0      
9            REM TAPE DUPLICATING PROGRAM    F2TCVP                                       
1                                        TAPE DUPLICATING PROGRAM    F2TCVP                                       
                        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                            
       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                                          
       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                                   
 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                                                                   
       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     235           0           0           0           0
 LIB       0           0           0           0           0
 COL     235           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      244                  
0NUMBER OF SYMBOLS,  DEF    64,DEFOP     0,UNDEF     0      
9      LIST  SYN 32575                                                                    
1                       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                                                                        
       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                                                                     
       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                                                                        
       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                                 
       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     224           0           0           0           0
 LIB       0           0           0           0           0
 COL     224           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      231                  
0NUMBER OF SYMBOLS,  DEF    74,DEFOP     0,UNDEF     0      
9            FUL                                                                          
1                       01303 LOCREC SYN 707                                                                      
                        00000        ORG 0                                                                        
       00000  0 53400 1 00000 A      LXA 0,1               BOOTSTRAP FOR FIRST CARD                               
       00001  0 70000 1 00002 B      CPY 2,1                                                                      
       00002  1 77777 1 00001 C      TXI 1,1,-1                                                                   
       00003  0 00001 0 00000 ONEDEC HTR 0,0,1                                                                    
       00004 -3 77540 1 00012 RD     TXL WEF1,1,-160                                                              
       00005  0 76200 0 00321        RCD                                                                          
       00006  0 70000 1 05642 CPLODR CPY 3000-22,1         COPY REST OF EDITOR INTO UPPER MEMORY                  
       00007  1 77777 1 00006        TXI CPLODR,1,-1                                                              
       00010  0 00000 0 00004        HTR RD                                                                       
       00011  0 02000 0 00004        TRA RD                                                                       
       00012  0 77000 0 00201 WEF1   WEF 1                                                                        
       00013 -0 76000 0 00012        RTT                   TURN OFF INDICATOR                                     
       00014  0 76100 0 00000        NOP                                                                          
       00015  0 02000 0 05670        TRA RCD                                                                      
       00016  0 00000 0 00001 ONE    HTR 1                                                                        
       00017  0 00000 0 00036 REC2   HTR 30                                                                       
       00020  0 00000 0 01303 ERREC  HTR LOCREC                                                                   
       00021  0 00000 0 00001 RDREC  HTR 1                 REC NUMBER IN DIAG FILE, 1ST WORD OF REC               
       00022  0 00006 0 00000 RDWDC  HTR 0,0,6             WORD COUNT OF RECORD READ FROM TAPE 5                  
       00023  0 00000 0 00000 REC    HTR 0                 REC NUMBER FROM NEW REC CARD                           
       00024  0 00000 0 00000 ERAS   HTR 0                                                                        
       00025  0 00006 0 00000 WDC    HTR 0,0,6                                                                    
       00026  0 00000 0 00006 SIX    HTR 6                                                                        
       00027  0 00000 0 00000 TPCONT HTR 0                                                                        
                        05670        ORG 3000                                                                     
       05670  0 76200 0 00321 RCD    RCD                                                                          
       05671  0 70000 0 00000        CPY A                                                                        
       05672  0 02000 0 05674        TRA TEST                                                                     
       05673  0 00000 0 05670        HTR RCD                                                                      
       05674  0 70000 0 00001 TEST   CPY B                                                                        
       05675  0 50000 0 00000        CLA A                                                                        
       05676 -0 12000 0 05715        TMI CONCRD            MINUS IF NEW RECORD CARD                               
       05677  0 62100 0 05705        STA COPY              SAVE ADDRESS OF FIRST INSTRUCTION                      
       05700  0 77100 0 00022        ARS 18                                                                       
       05701  0 73400 4 00000        PAX 0,4               WORD COUNT INTO IR 4                                   
       05702  0 40200 0 05705        SUB COPY              ADD FIRST ADDRESS                                      
       05703  0 62100 0 05705        STA COPY              STORE BASE ADDRESS IN COPY LOOP                        
       05704 -0 50000 0 00000        CAL A                                                                        
       05705 -0 70000 4 00000 COPY   CAD 0,4                                                                      
       05706  2 00001 4 05705        TIX COPY,4,1                                                                 
       05707  0 60200 0 00002        SLW C                                                                        
       05710  0 50000 0 00001        CLA B                                                                        
       05711  0 10000 0 05670        TZE RCD                                                                      
       05712  0 40200 0 00002        SUB C                                                                        
       05713  0 10000 0 05670        TZE RCD                                                                      
       05714  0 00000 0 05670        HTR RCD               IGNORE CHECK SUM                                       
       05715  0 70000 0 00001 CONCRD CPY B                 8L OVER 9R, REST OF CARD IS IGNORED                    
       05716  0 02000 0 06101        TRA END2              WILL BE REPLACED BY NOP                                
       05717  0 50000 0 00023        CLA REC               INIT. 0, OR HAS NUMBER OF DIAG. REC. FROM              
       05720  0 10000 0 05741        TZE NX                LAST NEW REC. CARD, REMAINS 0 IF WEF ONLY              
       05721  0 50000 0 00000        CLA A                 IS NEW CONTROL CARD WEF,  9L IS -0                     
       05722 -0 10000 0 05741        TNZ NX                                                                       
       05723  0 02000 0 05733        TRA WTREC1            WRITE CURRENT BUFFER                                   
       05724  0 07400 4 05777 ALL    TSX READ,4            YES, END OF CHANGES, HAS ALL OF MASTER                 
       05725  0 50000 0 00021        CLA RDREC             BEEN WRITTEN, RDREC WILL BE -                          
       05726 -0 12000 0 05735        TMI END                                                                      
       05727  0 50000 0 00022        CLA RDWDC             NO, READ IN NEXT RECORD FROM MASTER                    
       05730  0 62200 0 00025        STD WDC                                                                      
       05731  0 50000 0 06013        CLA RDLOOP                                                                   
       05732  0 62100 0 06051        STA WTLOOP                                                                   
       05733  0 07400 4 06046 WTREC1 TSX WRITE,4           WRITE ON NEW TAPE                                      
       05734  0 02000 0 05724        TRA ALL               AND GET NEXT FROM MASTER                               
       05735  0 77000 0 00201 END    WEF 1                                                                        
       05736  0 77200 0 00201        REW 1                                                                        
       05737  0 60000 0 07777        STZ 4095                                                                     
       05740  0 02000 0 07777        TRA 4095                                                                     
       05741  0 50000 0 00000 NX     CLA A                 IF ONLY THIS PROGRAM AND WEF CARD                      
       05742  0 10000 0 05733        TZE WTREC1            WRITE ALL OF MASTER WITHOUT CHANGES                    
       05743  0 62100 0 00023        STA REC               OTHERWISE SAVE NEW RECORD NUMBER                       
       05744  0 50000 0 00021 NX1    CLA RDREC             GET NUMBER OF REC LEFT IN CORES BY READ                
       05745 -0 12000 0 05761        TMI NX4               MINUS IF NO MORE RECORDS ON MASTER                     
       05746  0 40200 0 00023        SUB REC               IS RECORD IN CORE THE ONE CALLED FOR                   
       05747  0 12000 0 05757        TPL NX3                                                                      
       05750  0 50000 0 00022        CLA RDWDC             NOT YET, WRITE CORE RECORD ON NEW TAPE                 
       05751  0 62200 0 00025        STD WDC                                                                      
       05752  0 50000 0 06013        CLA RDLOOP                                                                   
       05753  0 62100 0 06051        STA WTLOOP                                                                   
       05754  0 07400 4 06046        TSX WRITE,4                                                                  
       05755  0 07400 4 05777        TSX READ,4            BRING NEXT RECORD FROM MASTER AND                      
       05756  0 02000 0 05744        TRA NX1               TEST AGAINST NEW RECORD CARD                           
       05757  0 10000 0 05761 NX3    TZE NX4               IF CORRECT REC, SET WORD COUNT ETC.                    
       05760  0 76400 0 00205        BST 5                 READ 1 TOO MANY, SOME REC DELETED                      
       05761  0 50000 0 00001 NX4    CLA B                                                                        
       05762  0 40000 0 00016        ADD ONE               ADD 1 TO LAST ADDRESS FOR WRITE LOOP                   
       05763  0 62100 0 06051        STA WTLOOP                                                                   
       05764  0 62100 0 00024        STA ERAS                                                                     
       05765  0 77100 0 00022        ARS 18                                                                       
       05766  0 40200 0 00024        SUB ERAS              IF LAST ADDRESS NOT GREATER THAN                       
       05767  0 10000 0 05774        TZE DELETE            FIRST ADDRESS DELETE THIS REC WHEN COPYING             
       05770  0 12000 0 05774        TPL DELETE            MASTER                                                 
       05771  0 76700 0 00022        ALS 18                                                                       
       05772  0 62200 0 00025        STD WDC                                                                      
       05773  0 02000 0 05670        TRA RCD                                                                      
       05774  0 60000 0 00022 DELETE STZ RDWDC                                                                    
       05775  0 60000 0 00025        STZ WDC                                                                      
       05776  0 02000 0 05670        TRA RCD                                                                      
       05777  0 50000 0 00021 READ   CLA RDREC                                                                    
       06000 -0 12000 0 06033        TMI OUT               HAS END OF FILE BEEN REACHED                           
       06001  0 40200 0 00016        SUB ONE               IF 1ST RECORD STILL IN CORE, SET                       
       06002 -0 10000 0 06005        TNZ RD2               ADDRESS TO READ IN 2ND RECORD                          
       06003  0 50000 0 00017        CLA REC2                                                                     
       06004  0 02000 0 06006        TRA RD3                                                                      
       06005  0 50000 0 00020 RD2    CLA ERREC             3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2               
       06006  0 62100 0 06013 RD3    STA RDLOOP                                                                   
       06007  0 62100 0 06031        STA SETREC                                                                   
       06010  0 60000 0 00027        STZ TPCONT                                                                   
       06011 -0 53400 2 00016 RDAGIN LXD ONE,2             IE., ZERO                                              
       06012  0 76200 0 00225        RTB 5                                                                        
       06013  0 70000 2 00037 RDLOOP CPY 31,2                                                                     
       06014  1 77777 2 06013        TXI RDLOOP,2,-1                                                              
       06015  0 02000 0 06034        TRA SETEOF                                                                   
       06016  0 76600 0 00333        IOD                                                                          
       06017 -0 76000 0 00012        RTT                                                                          
       06020  0 02000 0 06037        TRA BSTP5                                                                    
       06021 -0 75400 2 00000 FXWDC  PXD 0,2                                                                      
       06022  0 76000 0 00006        COM                                                                          
       06023  0 40000 0 00003        ADD ONEDEC            RECOMPLIMENT WORD COUNT                                
       06024  0 62200 0 00022        STD RDWDC             AND FIND BASE ADDRESS                                  
       06025  0 77100 0 00022        ARS 18                                                                       
       06026  0 76000 0 00003        SSP                                                                          
       06027  0 40000 0 06013        ADD RDLOOP            ADD WORD COUNT TO FIRST ADDRESS                        
       06030  0 62100 0 06013        STA RDLOOP                                                                   
       06031  0 50000 0 00000 SETREC CLA 0                 FIRST WORD OF RECORD HAS RECORD NUMBER                 
       06032  0 62100 0 00021        STA RDREC                                                                    
       06033  0 02000 4 00001 OUT    TRA 1,4                                                                      
       06034 -0 76000 0 00003 SETEOF SSM                   SET RDREC - IF END OF MASTER FILE                      
       06035  0 60100 0 00021        STO RDREC                                                                    
       06036  0 02000 4 00001        TRA 1,4                                                                      
       06037 -0 53400 1 00027 BSTP5  LXD TPCONT,1                                                                 
       06040 -3 00017 1 06042        TXL TRABST,1,15                                                              
       06041  0 00000 0 06021        HTR FXWDC             PRESS START TO ACCEPT                                  
       06042  0 76400 0 00205 TRABST BST 5                                                                        
       06043  1 00001 1 06044        TXI MM,1,1                                                                   
       06044 -0 63400 1 00027 MM     SXD TPCONT,1                                                                 
       06045  0 02000 0 06011        TRA RDAGIN                                                                   
       06046 -0 53400 2 00025 WRITE  LXD WDC,2             WORD COUNT ZERO TO DELETE RECORD                       
       06047 -3 00000 2 06053        TXL WTOUT,2,0                                                                
       06050  0 76600 0 00221        WTB 1                                                                        
       06051  0 70000 2 00037 WTLOOP CPY 31,2                                                                     
       06052  2 00001 2 06051        TIX WTLOOP,2,1                                                               
       06053  0 02000 4 00001 WTOUT  TRA 1,4                                                                      
       06054  0 76200 0 00225 ISDIAG RTB 5                 SPACE OVER LIBRARY                                     
       06055  0 70000 0 06101        CPY RTB1+1                                                                   
       06056  0 02000 0 06054        TRA ISDIAG                                                                   
       06057  0 76200 0 00225        RTB 5                                                                        
       06060  0 53400 2 00026        LXA SIX,2             IF MASTER FILE DOES NOT HAVE DIAG.,                    
       06061  0 70000 2 00037 ISCP   CPY 31,2              SET READ TO IGNORE, OTHERWISE                          
       06062  2 00001 2 06061        TIX ISCP,2,1          FIRST RECORD WILL BE IN CORES                          
       06063  0 76100 0 00000 NOP    NOP                                                                          
       06064  0 50000 0 00031        CLA 25                                                                       
       06065  0 40200 0 06077        SUB TEST1                                                                    
       06066 -0 10000 0 06072        TNZ TST1                                                                     
       06067  0 50000 0 00032        CLA 26                                                                       
       06070  0 40200 0 06100        SUB RTB1                                                                     
       06071  0 10000 0 06074        TZE TST2                                                                     
       06072 -0 76000 0 00003 TST1   SSM                                                                          
       06073  0 60100 0 00021        STO RDREC                                                                    
       06074  0 50000 0 06063 TST2   CLA NOP                                                                      
       06075  0 60100 0 05716        STO CONCRD+1                                                                 
       06076  0 02000 0 05717        TRA CONCRD+2                                                                 
 TD    06077  3 00000 0 00001 TEST1  TXH 1                                                                        
       06100  0 76200 0 00221 RTB1   RTB 1                                                                        
       06101  0 76200 0 00225 END2   RTB 5                 SPACE OVER END FILE GAP AT END FILE 2                  
       06102  0 02000 0 06054        TRA ISDIAG                                                                   
 A                      00000        END      44                                                                  
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     168           0           0           0           0
 LIB       0           0           0           0           0
 COL     168           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      176                  
0NUMBER OF SYMBOLS,  DEF    53,DEFOP     0,UNDEF     0      
9            ORG 1                 FORCE NEW RECORD                                       
1                       00001        ORG 1                 FORCE NEW RECORD                                       
       00001  0 00031 0 00036        HTR X-1,0,25          CARD FOR DE                                            
                        00031        ORG 25                                                                       
 TD    00031  3 00000 0 00001        TXH 1                 READ IN REST OF DIAGNOSTIC                             
       00032  0 76200 0 00221        RTB 1                 READ INTO 30, TABLE SEARCH AND ALL                     
       00033 -0 53400 1 00036        LXD ZERO,1            CONVERTING + PRINT ETC, ROUTINES                       
       00034  0 70000 1 00036 CP     CPY 30,1                                                                     
       00035  1 77777 1 00034        TXI CP,1,-1           END RECORD SKIP, EXIT TO 31                            
       00036  0 00000 0 00000 ZERO   HTR 0,                RECORD NUMBER OF NEXT COPIED HERE                      
       00037  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      11           0           0           0           0
 LIB       0           0           0           0           0
 COL      11           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       20                  
0NUMBER OF SYMBOLS,  DEF     3,DEFOP     0,UNDEF     0      
9            ORG 2                 FORCE NEW RECORD                                       
1                       00002        ORG 2                 FORCE NEW RECORD                                       
                              E      HED                                                                          
       00002  0 00036 0 03630        HTR XZY-1,0,30        CARD FOR DE                                            
                        00036        ORG 30                                                                       
 TD    00036  3 00000 0 00002        TXH 2                 MAIN RECORD                                            
                        77777 LIST   SYN 32767                                                                    
       00037  0 53400 1 01227        LXA ADDMSK,1          FIND NUMBER TO SUBTRACT FROM TSX                       
       00040 -0 75400 1 00000        PXD 0,1               TO GET ORIGINAL LOCATION                               
       00041  0 40000 0 01233        ADD DECONE            THIS WILL BE USED TO RE-COMPLIMENT ANY                 
       00042  0 60100 0 01234        STO PREFX1            OF THE TSX S TO THE DIAGNOSTIC                         
       00043 -0 75400 4 00000        PXD 0,4               IR 4 HAS BEEN SET BY TSX                               
       00044  0 40200 0 01234        SUB PREFX1                                                                   
       00045  0 62200 0 01235        STD ERWORD                                                                   
       00046  0 76600 0 00361        WPR                                                                          
       00047  0 76000 0 00367        SPR 7                 TEST FOR SAP BOARD                                     
       00050  0 07400 4 00740        TSX PRINT,4           PRINT TITLE                                            
       00051  0 00172 0 00155        HTR PR1,0,PR1+13                                                             
       00052  0 76600 0 00361        WPR                                                                          
       00053  0 76600 0 00361        WPR                                                                          
       00054  0 76600 0 00361        WPR                                                                          
       00055  0 76600 0 00361        WPR                                                                          
       00056  0 76100 0 00000        NOP                                                                          
       00057  0 76100 0 00000        NOP                                                                          
       00060  0 50000 0 00002        CLA 2                 LOC. 2 HAS NUMBER OF FORTRAN RECORD                    
       00061 -0 32000 0 01227        ANA ADDMSK            PRECEDING THE CALL IN OF THE DIAG.                     
       00062  0 60100 0 01236        STO RECORD                                                                   
       00063  0 40200 0 00220        SUB TW13              IF NON-ARITHMETIC HAS CALLED DIAG                      
       00064 -0 10000 0 00070        TNZ NOTNA             PRINT OTHER HEADER                                     
       00065  0 07400 4 00740        TSX PRINT,4                                                                  
       00066  0 00220 0 00205        HTR ISNONA,0,ISNONA+11                                                       
       00067  0 02000 0 00117        TRA SEARCH-1                                                                 
       00070  0 50000 0 01236 NOTNA  CLA RECORD                                                                   
       00071  0 07400 4 00676        TSX BINDEC,4          CONVERT TO BCD + LEFT ADJUST WORD                      
       00072  0 07400 4 00602        TSX LAJUST,4                                                                 
       00073  0 60200 0 00204        SLW FOREC                                                                    
       00074  0 07400 4 00740        TSX PRINT,4           PRINT NUMBER OF RECORD IN WHICH                        
       00075  0 00205 0 00172        HTR PR2,0,FOREC+1     ERROR FOUND                                            
       00076  0 50000 0 01235        CLA ERWORD            IN DECREMENT                                           
       00077  0 77100 0 00022        ARS 18                                                                       
       00100  0 07400 4 00730        TSX OCTBCD,4                                                                 
       00101  0 60200 0 01257        SLW ERAS                                                                     
       00102 -0 50000 0 01255        CAL LOC+3                                                                    
       00103  0 77100 0 00030        ARS 24                                                                       
       00104  0 56000 0 01257        LDQ ERAS                                                                     
       00105 -0 76300 0 00030        LGL 24                                                                       
       00106  0 60200 0 01255        SLW LOC+3                                                                    
       00107 -0 76300 0 00014        LGL 12                                                                       
       00110  0 56000 0 00717        LDQ BLANKS                                                                   
       00111 -0 76300 0 00030        LGL 24                                                                       
       00112  0 60200 0 01256        SLW LOC+4                                                                    
       00113  0 07400 4 00740        TSX PRINT,4           PRINT LOCATION OF STOP                                 
       00114  0 01257 0 01252        HTR LOC,0,LOC+5                                                              
       00115  0 76600 0 00361        WPR                                                                          
       00116  0 76600 0 00361        WPR                                                                          
       00117 -0 53400 4 02346        LXD ERLIST,4                                                                 
       00120  0 50000 4 02346 SEARCH CLA ERLIST,4          ASSORTED TSX IN DEC FIELD                              
       00121  0 34000 0 01235        CAS ERWORD            OF FIRST WORD OF LIST                                  
       00122  0 02000 0 00124        TRA TIXA                                                                     
       00123  0 02000 0 00130        TRA HAVE                                                                     
       00124  2 00002 4 00120 TIXA   TIX SEARCH,4,2                                                               
       00125  0 02000 0 00137        TRA LXDA              UNIDENTIFYABLE, BRING IN RECORD ZERO                   
       00126  0 76100 0 00000        NOP                                                                          
       00127  0 76100 0 00000        NOP                                                                          
       00130  0 50000 4 02347 HAVE   CLA ERLIST+1,4        DUPLICATE STOPS SHOULD BE MARKED MINUS                 
       00131 -0 12000 0 00145        TMI DUP               SECOND WORD HAS NUMBER OF RECORDS                      
       00132 -0 73400 4 00000 PD     PDX 0,4               TO BE SPACED OVER BEFORE READING                       
       00133  2 00003 4 00134        TIX RTBA,4,3          REDUCE NUMBER IF NOT REC 1, NOW SAME AS                
       00134  0 76200 0 00221 RTBA   RTB 1                 EDITOR RECORD NUMBER                                   
       00135  0 70000 0 00031        CPY 25                                                                       
       00136  2 00001 4 00134        TIX RTBA,4,1                                                                 
       00137 -0 53400 4 01232 LXDA   LXD ZERO,4                                                                   
       00140  0 76200 0 00221        RTB 1                                                                        
       00141  0 70000 4 01303 CPYREC CPY LOCREC,4          END RECORD SKIP WILL CONTROL                           
       00142  1 77777 4 00141        TXI CPYREC,4,-1       COPY AND TRANSFER                                      
       00143  0 76100 0 00000 NOP    NOP                                                                          
       00144  0 02000 0 01304        TRA LOCREC+1          SKIP RECORD NUMBER                                     
       00145 -0 32000 0 01227 DUP    ANA ADDMSK            2ND WORD WILL HAVE CORRECT ERROR RECORD                
       00146  0 34000 0 01236        CAS RECORD            NUMBER IN ADDRESS, FOR CORRECT FORTRAN                 
       00147  0 02000 0 00151        TRA NOTREC            RECORD NUMBER IN THE CASE OF                           
       00150  0 02000 0 00153        TRA HAVREC            DUPLICATE STOPS.                                       
       00151  2 00002 4 00120 NOTREC TIX SEARCH,4,2                                                               
       00152  0 02000 0 00137        TRA LXDA              IF END OF LIST, PRINT REC. ZERO                        
       00153  0 50000 4 02347 HAVREC CLA ERLIST+1,4                                                               
       00154  0 02000 0 00132        TRA PD                                                                       
       00155  606060606060    PR1    BCD 7                                                                        
       00156  606060606060    
       00157  606060606060    
       00160  606060606060    
       00161  606060606060    
       00162  606060606060    
       00163  606060606060    
       00164  264651635121           BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS                                      
       00165  456024312127    
       00166  454662633123    
       00167  604751462751    
       00170  214460512562    
       00171  644363626060    
       00172  606060606060    PR2    BCD 2                                                                        
       00173  606060606060    
       00174  255151465160           BCD 8ERROR WHILE COMPILING IN FORTRAN RECORD NUMBER                          
       00175  663031432560    
       00176  234644473143    
       00177  314527603145    
       00200  602646516351    
       00201  214560512523    
       00202  465124604564    
       00203  442225516060    
 A     00204  0 00000 0 00000 FOREC  HTR                                                                          
       00205  606060606060    ISNONA BCD 2                                                                        
       00206  606060606060    
       00207  255151465160           BCD 9ERROR FOUND DURING SCAN OF TABLES COMPILED BY 1 PRIME.                  
       00210  264664452460    
       00211  246451314527    
       00212  606223214560    
       00213  462660632122    
       00214  432562602346    
       00215  444731432524    
       00216  602270600160    
       00217  475131442533    
       00220  0 00000 0 00325 TW13   HTR 213                                                                      
       00221 -0 53400 2 00000 DIGRTN LXD 0,2               RESET MEMORY                                           
       00222  0 50000 0 00314        CLA CPDR              LOOP AT LOC. 0,1 AND 2 WILL                            
       00223  0 60100 0 00000        STO 0                 COPY 2045 WORDS FROM DRUM 4                            
       00224  0 50000 0 00315        CLA TIXO              BEGINNING AT LOC. 3                                    
       00225  0 60100 0 00001        STO 1                                                                        
       00226  0 50000 0 00316        CLA HTR4                                                                     
       00227  0 60100 0 00002        STO 2                                                                        
       00230  0 50000 0 00674 RESTRT CLA PRTEST            SHOULD FOOTNOTE BE PRINTED                             
       00231  0 10000 0 00235        TZE WPREND                                                                   
       00232  0 76600 0 00361        WPR                   YES                                                    
       00233  0 07400 4 00740        TSX PRINT,4                                                                  
       00234  0 00505 0 00463        HTR NEARBT,0,NEARBT+18                                                       
       00235  0 76600 0 00361 WPREND WPR                                                                          
       00236  0 76600 0 00361        WPR                                                                          
       00237  0 76600 0 00361        WPR                                                                          
       00240  0 76600 0 00361        WPR                                                                          
       00241  0 77200 0 00202        REW 2                 REWIND SO PROBLEM CAN BE RE-RUN                        
       00242  0 77200 0 00201        REW 1                                                                        
       00243  0 76100 0 00000        NOP              J CANNON                                                    
       00244  0 76100 0 00000        NOP                                                                          
       00245  0 76000 0 00166 SIXTST SWT 6                 SHOULD CHOICE TO NEXT BATCH BE PRINTED                 
       00246  0 02000 0 00251        TRA SPACE1             NO                                                    
       00247  0 50000 0 00304        CLA PRALT             SURE                                                   
       00250  0 60100 0 00261        STO PRNT1                                                                    
       00251  0 76200 0 00221 SPACE1 RTB 1                 SPACE OVER FIRST FILE IN SYSTEM                        
       00252  0 70000 0 01257        CPY ERAS                                                                     
       00253  0 02000 0 00251        TRA SPACE1                                                                   
       00254  0 76200 0 00221 SKIP   RTB 1       OVER REC 1, FILE 2, OUR TRA 4, THEIR WHO KNOWS                   
       00255  0 76100 0 00000        NOP                                                                          
       00256  0 07400 4 00740        TSX PRINT,4                                                                  
       00257  0 00360 0 00320        HTR END,0,END+32                                                             
       00260  0 07400 4 00740        TSX PRINT,4                                                                  
       00261  0 00376 0 00360 PRNT1  HTR END1,0,END1+14                                                           
       00262  0 76600 0 00361        WPR                                                                          
       00263 +076000000140           OCT 076000000140      TURN OFF ALL SENSE LIGHTS                              
       00264  0 76600 0 00361        WPR                                                                          
       00265  0 76000 0 00362        SPR 2                 EJECT SHEET                                            
       00266  0 76600 0 00333 DONE   IOD                                                                          
       00267 -0 76000 0 00012        RTT                                                                          
       00270  0 76100 0 00000        NOP                                                                          
       00271  0 02000 0 03534        TRA ENDPCH                                                                   
       00272  0 50000 0 00317 SPEND  CLA BST1              BACKSPACE OVER FILE MARK                               
       00273  0 60100 0 00254        STO SKIP              AND OVER SOURCE ERROR RECORD                           
       00274  0 60100 0 00255        STO SKIP+1                                                                   
       00275  0 76000 0 00166        SWT 6                                                                        
       00276  0 02000 0 00305        TRA NDWP                                                                     
       00277  0 50000 0 00311        CLA PRNT2                                                                    
       00300  0 60100 0 00261        STO PRNT1                                                                    
       00301  0 50000 0 00143 FX6TST CLA NOP                                                                      
       00302  0 60100 0 00245        STO SIXTST                                                                   
       00303  0 02000 0 00221        TRA DIGRTN                                                                   
       00304  0 03631 0 03540 PRALT  HTR MACEN,0,MACEN+57                                                         
       00305  0 50000 0 00143 NDWP   CLA NOP               D0 NOT PRINT A LAST COMMENT                            
       00306  0 60100 0 00260        STO PRNT1-1                                                                  
       00307  0 60100 0 00261        STO PRNT1                                                                    
       00310  0 02000 0 00301        TRA FX6TST                                                                   
       00311  0 00417 0 00376 PRNT2  HTR END2,0,END2+17    MAY CONTINUE NEXT BATCH                                
       00312  0 00463 0 00417 PRNT4  HTR END3,0,END3+36                                                           
       00313  0 03775 0 00003 DRUM   HTR 3,0,2045                                                                 
       00314  0 70000 4 04000 CPDR   CPY 2048,4                                                                   
       00315  2 00001 4 00000 TIXO   TIX 0,4,1                                                                    
       00316  0 02000 0 00004 HTR4   TRA 4                                                                        
       00317  0 76400 0 00201 BST1   BST 1                                                                        
       00320  606060606060    END    BCD 7                                                                        
       00321  606060606060    
       00322  606060606060    
       00323  606060606060    
       00324  606060606060    
       00325  606060606060    
       00326  606060606060    
       00327  254524604626           BCD  END OF DIAGNOSTIC PROGRAM RESULTS.                                      
       00330  602431212745    
       00331  466263312360    
       00332  475146275121    
       00333  446051256264    
       00334  436362336060    
       00335  606060606060    
       00336  606060606060    
       00337  606060606060    
       00340  606060606060    
       00341  606060606060           BCD                                                                          
       00342  606060606060    
       00343  606060606060    
       00344  606060606060    
       00345  606060606060    
       00346  606060606060    
       00347  606060606060    
       00350  606060606060    
       00351  606060606060    
       00352  606060606060    
       00353  475146275121           BCD 5PROGRAM CANNOT BE CONTINUED.                                            
       00354  446023214545    
       00355  466360222560    
       00356  234645633145    
       00357  642524336060    
       00360  606060606060    END1   BCD 7                                                                        
       00361  606060606060    
       00362  606060606060    
       00363  606060606060    
       00364  606060606060    
       00365  606060606060    
       00366  606060606060    
       00367  475125626260           BCD 7PRESS START IF YOU WISH TO RE-RUN PROBLEM.                              
       00370  626321516360    
       00371  312660704664    
       00372  606631623060    
       00373  634660512540    
       00374  516445604751    
       00375  462243254433    
       00376  606060606060    END2   BCD 7                                                                        
       00377  606060606060    
       00400  606060606060    
       00401  606060606060    
       00402  606060606060    
       00403  606060606060    
       00404  606060606060    
       00405  633025606270           BCD  THE SYSTEM WILL CONTINUE BATCH COMPILING                                
       00406  626325446066    
       00407  314343602346    
       00410  456331456425    
       00411  602221632330    
       00412  602346444731    
       00413  433145276060    
       00414  606060606060    
       00415  606060606060    
       00416  606060606060    
       00417  606060606060    END3   BCD 7                                                                        
       00420  606060606060    
       00421  606060606060    
       00422  606060606060    
       00423  606060606060    
       00424  606060606060    
       00425  606060606060    
       00426  475125626260           BCD  PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING, OR KEY             
       00427  626321516360    
       00430  312660704664    
       00431  606631623060    
       00432  634660234645    
       00433  633145642560    
       00434  222163233060    
       00435  234644473143    
       00436  314527736046    
       00437  516042257060    
       00440  314560000706           BCD  IN 076000 000141,                                                       
       00441  000000600000    
       00442  000104017360    
       00443  606060606060    
       00444  606060606060    
       00445  606060606060    
       00446  606060606060    
       00447  606060606060    
       00450  606060606060    
       00451  606060606060    
       00452  214524604751           BCD 9AND PRESS START IF YOU WISH TO RE-RUN PROBLEM.                          
       00453  256262606263    
       00454  215163603126    
       00455  607046646066    
       00456  316230606346    
       00457  605125405164    
       00460  456047514622    
       00461  432544336060    
       00462  606060606060    
       00463  606060606060    NEARBT BCD 1                                                                        
       00464  546063303162           BCD  * THIS STATEMENT HAS NO FORMULA NUMBER.  THE FORMULA NUMBER             
       00465  606263216325    
       00466  442545636030    
       00467  216260454660    
       00470  264651446443    
       00471  216045644422    
       00472  255133606063    
       00473  302560264651    
       00474  446443216045    
       00475  644422255160    
       00476  216262312745           BCD 7ASSIGNED A NEIGHBORING STATEMENT IS GIVEN.                              
       00477  252460216045    
       00500  253127302246    
       00501  513145276062    
       00502  632163254425    
       00503  456360316260    
       00504  273165254533    
       00505 -0 63400 4 00531 FX4PR  SXD IR4,4             THIS ROUTINE PRINTS ALPH DO BETA FOR I                 
       00506  0 50000 0 00527        CLA ALFBET            GETS ALPHA, OR NEAREST PRECEDING ALPHA,                
       00507  0 77100 0 00022        ARS 18                AND BETA FROM WORD ALFBET, SYMBOL                      
       00510 -0 32000 0 01227        ANA ADDMSK            FROM WORD SYM                                          
       00511  0 07400 4 00613        TSX EXBETA,4                                                                 
       00512  0 60200 0 00536        SLW DOALF             BLANKS ARE TO RIGHT OF WORD                            
       00513  0 50000 0 00527        CLA ALFBET                                                                   
       00514 -0 32000 0 01227        ANA ADDMSK                                                                   
       00515  0 07400 4 00613        TSX EXBETA,4                                                                 
       00516  0 07400 4 00602        TSX LAJUST,4          ADJUST FOR TRAILING BLANKS                             
       00517  0 60200 0 00540        SLW DOBET                                                                    
       00520 -0 50000 0 00530        CAL SYM                                                                      
       00521  0 07400 4 00543        TSX ZEROUT,4          UNPACK WORD                                            
       00522  0 60200 0 00542        SLW DOSYM                                                                    
       00523  0 07400 4 00740        TSX PRINT,4                                                                  
       00524  0 00543 0 00532        HTR PRDO,0,PRDO+9                                                            
       00525 -0 53400 4 00531        LXD IR4,4                                                                    
       00526  0 02000 4 00001        TRA 1,4                                                                      
 A     00527  0 00000 0 00000 ALFBET HTR                                                                          
 A     00530  0 00000 0 00000 SYM    HTR                                                                          
 A     00531  0 00000 0 00000 IR4    HTR                                                                          
       00532  606060606060    PRDO   BCD 4                                                                        
       00533  606060606060    
       00534  606060606060    
       00535  606060606060    
 A     00536  0 00000 0 00000 DOALF  HTR                                                                          
       00537  606024466060           BCD 1  DO                                                                    
 A     00540  0 00000 0 00000 DOBET  HTR                                                                          
       00541  602646516060           BCD 1 FOR                                                                    
 A     00542  0 00000 0 00000 DOSYM  HTR                                                                          
       00543 -0 63400 4 00563 ZEROUT SXD ZER6,4            ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED            
       00544 -0 53400 4 00564        LXD SIX,4             LEFT ADJUSTED, FOLL0WED BY 1 BLANK AND                 
       00545  0 60200 0 00562 ZER1   SLW ZER5              PADDLED OUT WITH ZEROS                                 
       00546 -0 32000 0 01231        ANA CHMASK            IE., OCT 000000000077                                  
       00547 -0 10000 0 00553        TNZ ZER2                                                                     
       00550 -0 50000 0 00562        CAL ZER5              LAST CHARACTER WAS ZERO                                
       00551  0 77100 0 00006        ARS 6                 SHIFT OUT OF AC                                        
       00552  2 00001 4 00545        TIX ZER1,4,1                                                                 
       00553 -0 50000 0 00562 ZER2   CAL ZER5                                                                     
       00554  0 56000 0 00717        LDQ BLANKS                                                                   
       00555  3 00005 4 00560 ZER3   TXH ZER4,4,5                                                                 
       00556 -0 76300 0 00006        LGL 6                 N0W SHIFT IN A BLANK FOR EVERY 0 TAKEN OUT             
       00557  1 00001 4 00555        TXI ZER3,4,1                                                                 
       00560 -0 53400 4 00563 ZER4   LXD ZER6,4            LEAVE, BCD AND BLANKS, MUST BE SAVED                   
       00561  0 02000 4 00001        TRA 1,4               WITH SLW                                               
 A     00562  0 00000 0 00000 ZER5   HTR                                                                          
 A     00563  0 00000 0 00000 ZER6   HTR                                                                          
       00564  0 00006 0 00000 SIX    HTR 0,0,6                                                                    
       00565  0 60200 0 00577 RAJUST SLW RAJ1              ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS              
       00566 -0 32000 0 01231        ANA CHMASK            IE., OCT 000000000077                                  
       00567  0 40200 0 00600        SUB 01BLNK                                                                   
       00570 -0 10000 0 00575        TNZ RAJ2                                                                     
       00571 -0 50000 0 00577        CAL RAJ1              YES, MOVE WORD AND ADD BLANK AT FRONT                  
       00572  0 77100 0 00006        ARS 6                 IS LAST CHARACTER A BLANK                              
       00573  0 36100 0 00601        ACL RBLNK                                                                    
       00574  0 02000 0 00565        TRA RAJUST                                                                   
       00575 -0 50000 0 00577 RAJ2   CAL RAJ1              LEAVES AC WITH LEADING BLANKS, MUST BE                 
       00576  0 02000 4 00001        TRA 1,4               SAVED WITH SLW                                         
 A     00577  0 00000 0 00000 RAJ1   HTR                                                                          
       00600  000000000060    01BLNK BCD 100000                                                                   
       00601  600000000000    RBLNK  BCD 1 00000                                                                  
       00602  0 56000 0 00612 LAJUST LDQ BLNKO             ENTER, CAL BCD NUMBER, LEADING BLANKS                  
       00603  0 14000 0 00604 LAJ1   TOV LAJ2              TURN OFF INDICATOR                                     
       00604 -0 76300 0 00001 LAJ2   LGL 1                 NUMBER HAS ZERO ZONE, BLANK WILL TURN                  
       00605 -0 14000 0 00610        TNO LAJ3              ON INDICATOR                                           
       00606 -0 76300 0 00005        LGL 5                                                                        
       00607  0 02000 0 00603        TRA LAJ1                                                                     
       00610  0 77100 0 00001 LAJ3   ARS 1                 FIRST BIT FROM Q BACK TO P                             
       00611  0 02000 4 00001        TRA 1,4               EXIT TRAILING BLANKS,MUST BE SAVED WITH SLW            
       00612  606060606000    BLNKO  BCD 1     0           WILL STOP ROUTINE IF WORD IS ALL BLANKS.               
                                         ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC                      
                                         EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST PRECEDING                  
                                         EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION                       
                                         OF AC. THIS MUST BE SAVED WITH SLW. NUMBER WILL                          
                                         BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND                    
                        77013 TEIFIN SYN LIST-500                                                                 
       00613  0 76700 0 00022 EXBETA ALS 18                                                                       
       00614  0 62200 0 00675        STD BETAEX                                                                   
       00615 -0 63400 4 00671        SXD XB10,4                                                                   
       00616 -0 53400 4 00640        LXD INCOR,4                                                                  
       00617  3 00000 4 00644        TXH XB4,4,0           IF TEIFNO IN MEMORY, SKIP READ IN                      
       00620  0 77200 0 00202        REW 2                                                                        
       00621  0 53400 4 00671        LXA XB10,4            4 FILES TO BE SPACED OVER                              
       00622  0 76200 0 00222 XB1    RTB 2                                                                        
       00623  0 70000 0 77012        CPY TEIFIN-1                                                                 
       00624  0 02000 0 00622        TRA XB1               SPACE OVER RECORDS UNTIL END FILE SKIP                 
       00625  2 00001 4 00622        TIX XB1,4,1                                                                  
       00626  0 53400 4 00640        LXA INCOR,4                                                                  
       00627  0 76200 0 00222 XB2    RTB 2                                                                        
       00630  0 70000 0 77012        CPY TEIFIN-1                                                                 
       00631  2 00001 4 00627        TIX XB2,4,1                                                                  
       00632 -0 53400 4 01232        LXD ZERO,4                                                                   
       00633  0 76200 0 00222        RTB 2                                                                        
       00634  0 70000 0 77012        CPY TEIFIN-1          IGNORE IDENTIFICATION AND WORD COUNT                   
       00635  0 70000 0 77012        CPY TEIFIN-1                                                                 
       00636  0 70000 4 77012 XB3    CPY TEIFIN-1,4        READ IN TEIFNO UNTIL END OF RECORD SKIP                
       00637  1 00001 4 00636        TXI XB3,4,1                                                                  
       00640  0 00000 0 00004 INCOR  HTR 4                                                                        
       00641  3 00000 4 00643        TXH XB4A,4,0                                                                 
       00642 -0 53400 4 01233        LXD DECONE,4          SET READ IN TO FAIL IF NO TEIFNO ENTRIES               
       00643 -0 63400 4 00640 XB4A   SXD INCOR,4                                                                  
       00644  0 50000 4 77013 XB4    CLA TEIFIN,4          COMPARE INTERNAL FORMULA NUMBERS                       
       00645 -0 32000 0 01230        ANA DECMSK                                                                   
       00646  0 34000 0 00675        CAS BETAEX            TO THE ONE BEING ASKED FOR                             
       00647  0 02000 0 00665        TRA XB8                                                                      
       00650  0 02000 0 00667        TRA XB9                                                                      
       00651  0 50000 0 01227 XB5    CLA ADDMSK            SET TEST TO ADD ASTERISK TO END OF NUMBER              
       00652  0 60100 0 00674        STO PRTEST            SET END OF DIAG TO PRINT FOOTNOTE                      
       00653  0 60100 0 00672        STO XB11                                                                     
       00654  0 50000 4 77013 XB6    CLA TEIFIN,4          GET EXTERNAL FORMULA NUMBER                            
       00655 -0 32000 0 01227        ANA ADDMSK                                                                   
       00656  0 07400 4 00676        TSX BINDEC,4          CONVERT TO BCD DECIMAL                                 
       00657  0 53400 4 00672        LXA XB11,4                                                                   
       00660  0 56000 0 00673        LDQ ASTRSK                                                                   
       00661 -3 00000 4 00663        TXL XB7,4,0           SHOULD ASTERISK BE ADDED                               
       00662 -0 76300 0 00006        LGL 6                 YES                                                    
       00663 -0 53400 4 00671 XB7    LXD XB10,4                                                                   
       00664  0 02000 4 00001        TRA 1,4                                                                      
       00665  2 00001 4 00644 XB8    TIX XB4,4,1           COMPARE TO NEXT, OR                                    
       00666  0 02000 0 00651        TRA XB5               PRINT FIRST ENTRY WITH ASTERISK                        
       00667  0 60000 0 00672 XB9    STZ XB11              SET TEST TO PRINT NUMBER ONLY                          
       00670  0 02000 0 00654        TRA XB6                                                                      
       00671  0 00000 0 00004 XB10   HTR 4,0,0                                                                    
       00672  0 00000 0 00000 XB11   HTR 0                                                                        
       00673  546060606060    ASTRSK BCD 1*                                                                       
       00674  0 00000 0 00000 PRTEST HTR 0                                                                        
       00675  0 00000 0 00000 BETAEX HTR 0                                                                        
                                         ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL                         
                                         NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE                          
                                         SAVED WITH SLW                                                           
       00676  0 76000 0 00003 BINDEC SSP                   JUST IN CASE                                           
       00677  0 76500 0 00043        LRS 35                                                                       
       00700 -0 63400 4 00720        SXD BINA,4                                                                   
       00701 -0 53400 4 00714        LXD BINB,4                                                                   
       00702  0 50000 0 00721 CNV    CLA TEN               IF MQ LESS THAN 10, CONVERSION IS FINISHED             
       00703  0 04000 0 00710        TLQ FIN                                                                      
       00704 -0 75400 0 00000        PXD 0,0                                                                      
       00705  0 22100 0 00721        DVP TEN                                                                      
       00706  0 60200 4 00730        SLW DIG,4             SAVE REMAINDER IN 1 WORD OF BLOCK                      
       00707  1 00001 4 00702        TXI CNV,4,1           UP WORD COUNT OF BLOCK                                 
       00710 -0 60000 4 00730 FIN    STQ DIG,4                                                                    
       00711 -0 50000 0 00717        CAL BLANKS            START WITH BLANKS                                      
       00712  0 76700 0 00006 DEC    ALS 6                 AND BRING IN REMAINDER FROM ABOVE                      
       00713 -0 50100 4 00730        ORA DIG,4                                                                    
       00714  2 00001 4 00712 BINB   TIX DEC,4,1                                                                  
       00715 -0 53400 4 00720        LXD BINA,4                                                                   
       00716  0 02000 4 00001        TRA 1,4                                                                      
       00717  606060606060    BLANKS BCD 1                                                                        
 A     00720  0 00000 0 00000 BINA   HTR                                                                          
       00721 +000000000012    TEN    DEC 10                                                                       
                        00730 DIG    BES 6                                                                        
                                          ENTER WITH OCTAL NUMBER IN ADDRESS 0F AC. EXIT OCTAL                    
                                          CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST                    
                                          BE SAVED WITH SLW                                                       
       00730  0 76500 0 00017 OCTBCD LRS 15                                                                       
       00731  0 50000 0 00737        CLA BLANK             AC ZERO EXEPT FOR END BLANK                            
       00732 -0 14000 0 00733        TNO OCT               TURN OFF INDICATOR                                     
       00733  0 76700 0 00003 OCT    ALS 3                                                                        
       00734  0 76300 0 00003        LLS 3                                                                        
       00735 -0 14000 0 00733        TNO OCT               END BLANK WILL TURN ON INDICATOR                       
       00736  0 02000 4 00001        TRA 1,4                                                                      
       00737  000000000060    BLANK  BCD 100000                                                                   
                        00740  PRINT BSS 0                                                                        
                        00004 C      EQU 4                                                                        
       00740  0 50000 4 00001  RAN   CLA 1,4                                                                      
       00741  0 62100 0 00772        STA RNA                                                                      
       00742  0 77100 0 00022        ARS 18                                                                       
       00743  0 60100 0 00773        STO RNB                                                                      
       00744 -0 63400 4 00774        SXD RNC,4                                                                    
       00745  0 50000 0 00772  RN40  CLA RNA                                                                      
       00746  0 40000 0 00775        ADD RND                                                                      
       00747  0 34000 0 00773        CAS RNB                                                                      
       00750  0 76100 0 00000        NOP                                                                          
       00751  0 02000 0 00762        TRA RN50                                                                     
       00752  0 76700 0 00022        ALS 18                                                                       
       00753  0 40000 0 00772        ADD RNA                                                                      
       00754  0 60100 0 00760        STO RAN10                                                                    
       00755  0 77100 0 00022        ARS 18                                                                       
       00756  0 62100 0 00772        STA RNA                                                                      
       00757  0 07400 4 00776        TSX WOT,C                                                                    
 A     00760  0 00000 0 00000  RAN10 HTR                                                                          
       00761  0 02000 0 00745        TRA RN40                                                                     
       00762  0 50000 0 00773  RN50  CLA RNB                                                                      
       00763  0 76700 0 00022        ALS 18                                                                       
       00764  0 40000 0 00772        ADD RNA                                                                      
       00765  0 60100 0 00767        STO RN60                                                                     
       00766  0 07400 4 00776        TSX WOT,C                                                                    
 A     00767  0 00000 0 00000  RN60  HTR                                                                          
       00770 -0 53400 4 00774        LXD RNC,C                                                                    
       00771  0 02000 4 00002        TRA 2,C                                                                      
 A     00772  0 00000 0 00000  RNA   HTR                                                                          
 A     00773  0 00000 0 00000  RNB   HTR                                                                          
 A     00774  0 00000 0 00000  RNC   HTR                                                                          
       00775  0 00000 0 00024  RND   HTR 20                                                                       
       00776 -0 63400 1 01073  WOT   SXD X1,1                                                                     
       00777 -0 63400 2 01101        SXD X2,2                                                                     
       01000  0 50000 4 00001        CLA 1,4                                                                      
       01001  0 62200 0 01125        STD X4           X                                                           
       01002  0 77100 0 00022        ARS 18           X                                                           
       01003  0 40000 0 01125        ADD X4           X                                                           
       01004  0 62100 0 01032        STA CI9          X                                                           
       01005  0 40200 4 00001        SUB 1,4          B-A+1 IN AC                                                 
       01006  0 10000 4 00002        TZE 2,4                                                                      
       01007 -0 12000 4 00002        TMI 2,4                                                                      
       01010 -0 63400 4 01125        SXD X4,4                                                                     
       01011  0 73400 4 00013  L11   PAX 11,4                                                                     
       01012 -0 63400 4 01123        SXD PR6,4                                                                    
       01013  0 76600 0 00361  RPR   WPR                                                                          
       01014  0 76100 0 00000        NOP                                                                          
       01015 -0 53400 4 01123        LXD PR6,4        X                                                           
 D     01016 -2 00000 4 01022  PR8   TNX PR5,4                                                                    
       01017 -3 00014 4 01021        TXL PR3,4,12                                                                 
       01020  0 76000 0 00370        SPR 8            FIRST CYCLE                                                 
       01021 -0 53400 4 01123  PR3   LXD PR6,4        INITIALIZE GROUP COUNT                                      
       01022  0 53400 2 01024  PR5   LXA PR7,2        INITIALIZE LEFT SETUP                                       
       01023 -0 53400 1 01066        LXD YZ1,1        CLEAR CARD IMAGE                                            
 T     01024 -0 75400 0 00000  PR7   PXD              X                                                           
       01025  0 60200 1 01173  PR4   SLW LT,1         X                                                           
       01026  0 60200 1 01153        SLW RT,1         X                                                           
       01027  2 00001 1 01025        TIX PR4,1,1      X                                                           
       01030 -0 50000 0 01131  CIR   CAL COL1         INITIALIZE COLUMN INDICATOR                                 
       01031  0 60200 0 01132  CI2   SLW COL          X                                                           
       01032  0 56000 4 00000  CI9   LDQ 0,4          OBTAIN GROUP                                                
       01033 -0 63400 4 01226        SXD OZ2,4        STORE GROUP COUNT                                           
       01034  0 53400 4 01036        LXA Q6,4         SET CHARACTER COUNT                                         
 T     01035 -0 75400 0 00000  CI1   PXD                                                                          
       01036 -0 76300 0 00006  Q6    LGL 6                                                                        
       01037  0 73400 1 00000        PAX 0,1                                                                      
       01040 -0 50000 0 01132        CAL COL          POSITION COLUMN INDICATOR                                   
       01041  0 77100 4 00006        ARS 6,4          X                                                           
       01042  2 00020 1 01066        TIX YZ1,1,16     TEST FOR DIGIT                                              
       01043  3 00017 1 01071        TXH YZ2,1,15     TEST FOR Y-ZONE                                             
       01044 -0 60200 3 01170  CI5   ORS D,3          STORE DIGIT                                                 
       01045  2 00001 4 01035  CI4   TIX CI1,4,1      COUNT CHARACTERS                                            
       01046  0 77100 0 00001  CI3   ARS 1            SHIFT AND TEST COLUMN                                       
       01047 -0 53400 4 01226        LXD OZ2,4        RESTORE GROUP COUNT                                         
       01050  1 77777 4 01051        TXI CI6,4,-1     COUNT GROUPS                                                
 D     01051 -3 00000 4 01053  CI6   TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                               
       01052 -0 10000 0 01031        TNZ CI2          TEST FOR END OF ROW                                         
       01053 -0 50000 2 01155  CI7   CAL 8.3,2        FORM TRUE 8,4                                               
       01054 -0 60200 2 01160        ORS D-8,2        AND 3 ROWS AND                                              
       01055 -0 60200 2 01165        ORS D-3,2        MOVE 8.4 AND 8.3                                            
       01056  0 60200 2 01156        SLW 8.2,2        ROWS                                                        
       01057 -0 50000 2 01154        CAL 8.4,2        FORM TRUE 8.4                                               
       01060 -0 60200 2 01160        ORS D-8,2        X                                                           
       01061 -0 60200 2 01164        ORS D-4,2        X                                                           
       01062  0 60200 2 01155        SLW 8.3,2        X                                                           
 D     01063 -3 00000 4 01106  CI8   TXL WP,4         TEST FOR END                                                
       01064  3 00017 2 01106        TXH WP,2,15      TEST FOR RIGHT HALF                                         
       01065  1 00020 2 01030        TXI CIR,2,16     INITIALIZE RIGHT HALF                                       
       01066  2 00020 1 01074  YZ1   TIX XZ1,1,16     TEST FOR 16/CH/32                                           
       01067  3 00017 1 01077        TXH XZ2,1,15     TEST FOR X-ZONE                                             
       01070 -0 60200 3 01170        ORS D,3          STORE DIGIT                                                 
       01071 -0 60200 2 01172  YZ2   ORS Y,2          STORE Y-ZONE                                                
       01072  2 00001 4 01035        TIX CI1,4,1      COUNT CHARACTERS                                            
 TD    01073 -3 00000 0 01046  X1    TXL CI3          OBTAIN NEXT GROUP                                           
       01074  2 00020 1 01102  XZ1   TIX OZ1,1,16     TEST FOR 32/CH/48                                           
       01075  3 00017 1 01045        TXH CI4,1,15     TEST FOR BLANK                                              
       01076 -0 60200 3 01170        ORS D,3          STORE DIGIT                                                 
       01077 -0 60200 2 01171  XZ2   ORS X,2          STORE X-ZONE                                                
       01100  2 00001 4 01035        TIX CI1,4,1      COUNT CHARACTERS                                            
 TD    01101 -3 00000 0 01046  X2    TXL CI3          OBTAIN NEXT GROUP                                           
       01102 -0 60200 2 01170  OZ1   ORS Z,2          STORE O-ZONE                                                
       01103 -0 60200 3 01170        ORS D,3          STORE DIGIT                                                 
       01104  2 00001 4 01035        TIX CI1,4,1      COUNT CHARACTERS                                            
 TD    01105 -3 00000 0 01046        TXL CI3                                                                      
       01106  0 53400 1 01226 WP7    LXA OZ,1         COPY LOOP                                                   
       01107  0 70000 1 01157  CRAN  CPY LT-12,1                                                                  
       01110  0 70000 1 01137        CPY RT-12,1      X                                                           
       01111  1 77777 1 01112        TXI T2,1,-1                                                                  
       01112  3 77764 1 01107  T2    TXH CRAN,1,-12                                                               
 D     01113  3 00000 4 01120  WP4   TXH WP5,4                                                                    
       01114 -0 53400 1 01073        LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN                       
       01115 -0 53400 2 01101        LXD X2,2         X                                                           
       01116 -0 53400 4 01125  WT2   LXD X4,4         X                                                           
       01117  0 02000 4 00002  L2    TRA 2,4          X                                                           
       01120  0 76600 0 00361  WP5   WPR                                                                          
       01121  0 76000 0 00371        SPR 9            SECOND CYCLE                                                
       01122 -3 00014 0 01022  WP2   TXL PR5,0,12     CONVERT REST OF LINE                                        
 A     01123  0 00000 0 00000 PR6    HTR                                                                          
       01124  606060606060     BLNKS BCD 1                                                                        
 A     01125  0 00000 0 00000  X4    HTR                                                                          
       01126 +000000000020     YZONE OCT 20                                                                       
       01127 +000000000060     BNK   OCT 60                                                                       
       01130 +377777777777     MK2   OCT 377777777777                                                             
       01131 -0 00000 0 00000  COL1  MZE                                                                          
                        01132  COL   BSS 1                                                                        
                        01153  RT    BES 16                                                                       
                        01153  8.5   BSS 1                                                                        
                        01154  8.4   BSS 1                                                                        
                        01155  8.3   BSS 1                                                                        
                        01156  8.2   BSS 1                                                                        
                        01170  D     BES 9                                                                        
                        01170  Z     BSS 1                                                                        
                        01171  X     BSS 1                                                                        
                        01172  Y     BSS 1                                                                        
                        01173  LT    SYN Y+1                                                                      
                        01155  8.4L  SYN LT-14                                                                    
                        01135  8.4R  SYN RT-14                                                                    
                        01173        BSS 27                                                                       
 A     01226  0 00000 0 00000 OZ     HTR                                                                          
                        01226 OZ2    SYN OZ                                                                       
                        01106 WP     SYN WP7                                                                      
       01227 +000000077777    ADDMSK OCT 000000077777                                                             
       01230 +077777000000    DECMSK OCT 077777000000                                                             
       01231 +000000000077    CHMASK OCT 000000000077                                                             
       01232  0 00000 0 00000 ZERO   HTR 0                                                                        
       01233 +000001000000    DECONE OCT 000001000000                                                             
       01234  0 00000 0 00000 PREFX1 HTR 0                                                                        
       01235  0 00000 0 00000 ERWORD HTR 0                                                                        
       01236  0 00000 0 00000 RECORD                                                                              
       01237  606060606060    MACHIN BCD 2                                                                        
       01240  606060606060    
       01241  442123303145           BCD 3MACHINE ERROR                                                           
       01242  256025515146    
       01243  516060606060    
       01244  606060606060    SOURCE BCD 2                                                                        
       01245  606060606060    
       01246  624664512325           BCD 4SOURCE PROGRAM ERROR                                                    
       01247  604751462751    
       01250  214460255151    
       01251  465160606060    
       01252  606060606060    LOC    BCD 2                                                                        
       01253  606060606060    
       01254  434623216331           BCD 3LOCATION                                                                
       01255  464560606060    
       01256  606060606060    
                        01257 ERAS   BSS 20                FOR PATCHING ETC.                                      
       01303  0 00000 0 00000 LOCREC HTR 0                 ALL ERROR RECORDS READ IN HERE OVER LIST               
       01304 +001017000000           OCT 001017000000      ERROR IN 1 DOUBLE PRIME                                
       01305  0 00001 0 00000        HTR 0,0,1             ERROR RECORD 1                                         
       01306 +000036000000           OCT 000036000000       53                                                    
       01307  0 00170 0 00000        HTR 0,0,120             36                                                   
       01310 +000037000000           OCT 000037000000       90                                                    
       01311  0 00216 0 00000        HTR 0,0,142             37                                                   
       01312 +000041000000           OCT 000041000000       60                                                    
       01313  0 00047 0 00000        HTR 0,0,39              41                                                   
       01314 +000046000000           OCT 000046000000       90                                                    
       01315  0 00140 0 00000        HTR 0,0,96              46                                                   
       01316 +000047000000           OCT 000047000000       58                                                    
       01317  0 00047 0 00000        HTR 0,0,39              47                                                   
       01320 +000051000000           OCT 000051000000       56                                                    
       01321  0 00163 0 00000        HTR 0,0,115             51                                                   
       01322 +000060000000           OCT 000060000000       56                                                    
       01323  0 00205 0 00000        HTR 0,0,133             60                                                   
       01324 +000061000000           OCT 000061000000       47                                                    
       01325  0 00101 0 00000        HTR 0,0,65              61                                                   
       01326 +000062000000           OCT 000062000000       53                                                    
       01327  0 00174 0 00000        HTR 0,0,124             62                                                   
       01330 +000063000000           OCT 000063000000       53                                                    
       01331  0 00174 0 00000        HTR 0,0,124             63                                                   
       01332 +000064000000           OCT 000064000000       71                                                    
       01333  0 00060 0 00000        HTR 0,0,48              64                                                   
       01334 +000066000000           OCT 000066000000       53                                                    
       01335  0 00174 0 00000        HTR 0,0,124             66                                                   
       01336 +000067000000           OCT 000067000000       53                                                    
       01337  0 00174 0 00000        HTR 0,0,124             67                                                   
       01340 +000070000000           OCT 000070000000       92                                                    
       01341  0 00047 0 00000        HTR 0,0,39              70                                                   
       01342 +000072000000           OCT 000072000000       53                                                    
       01343 -0 00174 0 00065        MZE 53,0,124            72                                                   
       01344 +000072000000           OCT 000072000000       60                                                    
       01345  0 00056 0 00000        HTR 0,0,46              72                                                   
       01346 +000073000000           OCT 000073000000       53                                                    
       01347  0 00174 0 00000        HTR 0,0,124             73                                                   
       01350 +000074000000           OCT 000074000000       56                                                    
       01351  0 00112 0 00000        HTR 0,0,74              74                                                   
       01352 +000103000000           OCT 000103000000       67                                                    
       01353  0 00060 0 00000        HTR 0,0,48             103                                                   
       01354 +000106000000           OCT 000106000000       53                                                    
       01355  0 00006 0 00000        HTR 0,0,6              106                                                   
       01356 +000107000000           OCT 000107000000       58                                                    
       01357 -0 00050 0 00072        MZE 58,0,40            107                                                   
       01360 +000107000000           OCT 000107000000       92                                                    
       01361  0 00046 0 00000        HTR 0,0,38             107                                                   
       01362 +000116000000           OCT 000116000000       53                                                    
       01363  0 00102 0 00000        HTR 0,0,66             116                                                   
       01364 +000123000000           OCT 000123000000       47                                                    
       01365 -0 00047 0 00057        MZE 47,0,39            123                                                   
       01366 +000123000000           OCT 000123000000       53                                                    
       01367  0 00160 0 00000        HTR 0,0,112            123                                                   
       01370 +000124000000           OCT 000124000000       53                                                    
       01371  0 00160 0 00000        HTR 0,0,112            124                                                   
       01372 +000132000000           OCT 000132000000       53                                                    
       01373 -0 00102 0 00065        MZE 53,0,66            132                                                   
       01374 +000132000000           OCT 000132000000       60                                                    
       01375  0 00274 0 00000        HTR 0,0,188            132                                                   
       01376 +000140000000           OCT 000140000000       56                                                    
       01377  0 00047 0 00000        HTR 0,0,39             140                                                   
       01400 +000141000000           OCT 000141000000       92                                                    
       01401  0 00142 0 00000        HTR 0,0,98             141                                                   
       01402 +000150000000           OCT 000150000000       75                                                    
       01403  0 00065 0 00000        HTR 0,0,53             150                                                   
       01404 +000160000000           OCT 000160000000       67                                                    
       01405  0 00060 0 00000        HTR 0,0,48             160                                                   
       01406 +000161000000           OCT 000161000000       56                                                    
       01407  0 00050 0 00000        HTR 0,0,40             161                                                   
       01410 +000173000000           OCT 000173000000       60                                                    
       01411  0 00274 0 00000        HTR 0,0,188            173                                                   
       01412 +000216000000           OCT 000216000000       47                                                    
       01413  0 00050 0 00000        HTR 0,0,40             216                                                   
       01414 +000222000000           OCT 000222000000       94                                                    
       01415 -0 00066 0 00136        MZE 94,0,54            222                                                   
       01416 +000222000000           OCT 000222000000      105                                                    
       01417 -0 00047 0 00151        MZE 105,0,39           222                                                   
       01420 +000222000000           OCT 000222000000      107                                                    
       01421 -0 00067 0 00153        MZE 107,0,55           222                                                   
       01422 +000222000000           OCT 000222000000      115                                                    
       01423  0 00047 0 00000        HTR 0,0,39             222                                                   
       01424 +000223000000           OCT 000223000000      113                                                    
       01425  0 00155 0 00000        HTR 0,0,109            223                                                   
       01426 +000227000000           OCT 000227000000       60                                                    
       01427  0 00274 0 00000        HTR 0,0,188            227                                                   
       01430 +000230000000           OCT 000230000000      101                                                    
       01431  0 00047 0 00000        HTR 0,0,39             230                                                   
       01432 +000241000000           OCT 000241000000      107                                                    
       01433 -0 00070 0 00153        MZE 107,0,56           241                                                   
       01434 +000241000000           OCT 000241000000      115                                                    
       01435  0 00046 0 00000        HTR 0,0,38             241                                                   
       01436 +000245000000           OCT 000245000000        9                                                    
       01437 -0 00147 0 00011        MZE 9,0,103           245                                                    
       01440 +000245000000           OCT 000245000000      105                                                    
       01441  0 00046 0 00000        HTR 0,0,38             245                                                   
       01442 +000246000000           OCT 000246000000       92                                                    
       01443  0 00047 0 00000        HTR 0,0,39             246                                                   
       01444 +003672000000           OCT 003672000000      115                                                    
       01445  0 00222 0 00000        HTR 0,0,146          3672                                                    
       01446 +000247000000           OCT 000247000000      101                                                    
       01447  0 00046 0 00000        HTR 0,0,38             247                                                   
       01450 +000252000000           OCT 000252000000       60                                                    
       01451 -0 00274 0 00074        MZE 60,0,188           252                                                   
       01452 +000252000000           OCT 000252000000      105                                                    
       01453  0 00244 0 00000        HTR 0,0,164            252                                                   
       01454 +000255000000           OCT 000255000000      103                                                    
       01455  0 00156 0 00000        HTR 0,0,110            255                                                   
       01456 +000256000000           OCT 000256000000       73                                                    
       01457  0 00060 0 00000        HTR 0,0,48             256                                                   
       01460 +000260000000           OCT 000260000000       96                                                    
       01461 -0 00046 0 00140        MZE 96,0,38            260                                                   
       01462 +000260000000           OCT 000260000000       98                                                    
       01463  0 00046 0 00000        HTR 0,0,38             260                                                   
       01464 +000263000000           OCT 000263000000       67                                                    
       01465  0 00060 0 00000        HTR 0,0,48             263                                                   
       01466 +000264000000           OCT 000264000000        7                                                    
       01467  0 00150 0 00000        HTR 0,0,104            264                                                   
       01470 +000270000000           OCT 000270000000       56                                                    
       01471  0 00017 0 00000        HTR 0,0,15             270                                                   
       01472 +000277000000           OCT 000277000000       92                                                    
       01473 -0 00046 0 00134        MZE 92,0,38            277                                                   
       01474 +000277000000           OCT 000277000000      113                                                    
       01475  0 00037 0 00000        HTR 0,0,31             277                                                   
       01476 +000301000000           OCT 000301000000       67                                                    
       01477  0 00247 0 00000        HTR 0,0,167            301                                                   
       01500 +003730000000           OCT 003730000000      115                                                    
       01501  0 00151 0 00000        HTR 0,0,105          3730                                                    
       01502 +000303000000           OCT 000303000000       73                                                    
       01503  0 00124 0 00000        HTR 0,0,84             303                                                   
       01504 +000305000000           OCT 000305000000       56                                                    
       01505 -0 00047 0 00070        MZE 56,0,39            305                                                   
       01506 +000305000000           OCT 000305000000       60                                                    
       01507  0 00274 0 00000        HTR 0,0,188            305                                                   
       01510 +000311000000           OCT 000311000000        9                                                    
       01511  0 00152 0 00000        HTR 0,0,106            311                                                   
       01512 +000312000000           OCT 000312000000      113                                                    
       01513  0 00245 0 00000        HTR 0,0,165            312                                                   
       01514 +000314000000           OCT 000314000000       90                                                    
       01515  0 00167 0 00000        HTR 0,0,119            314                                                   
       01516 +000321000000           OCT 000321000000       90                                                    
       01517  0 00217 0 00000        HTR 0,0,143            321                                                   
       01520 +000327000000           OCT 000327000000       86                                                    
       01521  0 00133 0 00000        HTR 0,0,91             327                                                   
       01522 +000330000000           OCT 000330000000       90                                                    
       01523  0 00141 0 00000        HTR 0,0,97             330                                                   
       01524 +000331000000           OCT 000331000000       58                                                    
       01525  0 00164 0 00000        HTR 0,0,116            331                                                   
       01526 +000334000000           OCT 000334000000       56                                                    
       01527 -0 00050 0 00070        MZE 56,0,40            334                                                   
       01530 +000334000000           OCT 000334000000       60                                                    
       01531  0 00274 0 00000        HTR 0,0,188            334                                                   
       01532 +000336000000           OCT 000336000000       86                                                    
       01533  0 00213 0 00000        HTR 0,0,139            336                                                   
       01534 +000340000000           OCT 000340000000       58                                                    
       01535  0 00206 0 00000        HTR 0,0,134            340                                                   
       01536 +000341000000           OCT 000341000000       96                                                    
       01537 -0 00040 0 00140        MZE 96,0,32            341                                                   
       01540 +000341000000           OCT 000341000000       67                                                    
       01541 -0 00060 0 00103        MZE 67,0,48            341                                                   
       01542 +000341000000           OCT 000341000000       98                                                    
       01543  0 00040 0 00000        HTR 0,0,32             341                                                   
       01544 +000345000000           OCT 000345000000        5                                                    
       01545  0 00242 0 00000        HTR 0,0,162            345                                                   
       01546 +000350000000           OCT 000350000000       58                                                    
       01547 -0 00113 0 00072        MZE 58,0,75            350                                                   
       01550 +000350000000           OCT 000350000000       62                                                    
       01551  0 00125 0 00000        HTR 0,0,85             350                                                   
       01552 +000352000000           OCT 000352000000      113                                                    
       01553  0 00041 0 00000        HTR 0,0,33             352                                                   
       01554 +000354000000           OCT 000354000000       64                                                    
       01555  0 00235 0 00000        HTR 0,0,157            354                                                   
       01556 +000356000000           OCT 000356000000       92                                                    
       01557  0 00143 0 00000        HTR 0,0,99             356                                                   
       01560 +000357000000           OCT 000357000000       58                                                    
       01561  0 00165 0 00000        HTR 0,0,117            357                                                   
       01562 +000363000000           OCT 000363000000       60                                                    
       01563  0 00274 0 00000        HTR 0,0,188            363                                                   
       01564 +000366000000           OCT 000366000000       58                                                    
       01565  0 00207 0 00000        HTR 0,0,135            366                                                   
       01566 +000375000000           OCT 000375000000       58                                                    
       01567  0 00114 0 00000        HTR 0,0,76             375                                                   
       01570 +000377000000           OCT 000377000000       56                                                    
       01571 -0 00274 0 00070        MZE 56,0,188           377                                                   
       01572 +000377000000           OCT 000377000000      115                                                    
       01573  0 00042 0 00000        HTR 0,0,34             377                                                   
       01574 +000410000000           OCT 000410000000       58                                                    
       01575 -0 00115 0 00072        MZE 58,0,77            410                                                   
       01576 +000410000000           OCT 000410000000       96                                                    
       01577  0 00153 0 00000        HTR 0,0,107            410                                                   
       01600 +000417000000           OCT 000417000000       58                                                    
       01601  0 00210 0 00000        HTR 0,0,136            417                                                   
       01602 +000424000000           OCT 000424000000       56                                                    
       01603  0 00274 0 00000        HTR 0,0,188            424                                                   
       01604 +000425000000           OCT 000425000000       67                                                    
       01605 -0 00036 0 00103        MZE 67,0,30            425                                                   
       01606 +000425000000           OCT 000425000000       73                                                    
       01607 -0 00267 0 00111        MZE 73,0,183           425                                                   
       01610 +000425000000           OCT 000425000000       98                                                    
       01611  0 00046 0 00000        HTR 0,0,38             425                                                   
       01612 +000427000000           OCT 000427000000       96                                                    
       01613  0 00223 0 00000        HTR 0,0,147            427                                                   
       01614 +000430000000           OCT 000430000000       58                                                    
       01615  0 00116 0 00000        HTR 0,0,78             430                                                   
       01616 +000434000000           OCT 000434000000       62                                                    
       01617  0 00023 0 00000        HTR 0,0,19             434                                                   
       01620 +000437000000           OCT 000437000000       84                                                    
       01621  0 00134 0 00000        HTR 0,0,92             437                                                   
       01622 +000441000000           OCT 000441000000       98                                                    
       01623  0 00044 0 00000        HTR 0,0,36             441                                                   
       01624 +000442000000           OCT 000442000000       60                                                    
       01625 -0 00274 0 00074        MZE 60,0,188           442                                                   
       01626 +000442000000           OCT 000442000000       96                                                    
       01627  0 00047 0 00000        HTR 0,0,39             442                                                   
       01630 +000443000000           OCT 000443000000      103                                                    
       01631  0 00243 0 00000        HTR 0,0,163            443                                                   
       01632 +000446000000           OCT 000446000000       58                                                    
       01633  0 00117 0 00000        HTR 0,0,79             446                                                   
       01634 +000454000000           OCT 000454000000       62                                                    
       01635 -0 00211 0 00076        MZE 62,0,137           454                                                   
       01636 +000454000000           OCT 000454000000       64                                                    
       01637  0 00024 0 00000        HTR 0,0,20             454                                                   
       01640 +000460000000           OCT 000460000000       98                                                    
       01641  0 00154 0 00000        HTR 0,0,108            460                                                   
       01642 +000465000000           OCT 000465000000       96                                                    
       01643  0 00046 0 00000        HTR 0,0,38             465                                                   
       01644 +000500000000           OCT 000500000000       96                                                    
       01645  0 00047 0 00000        HTR 0,0,39             500                                                   
       01646 +000510000000           OCT 000510000000       56                                                    
       01647 -0 00120 0 00070        MZE 56,0,80            510                                                   
       01650 +000510000000           OCT 000510000000       73                                                    
       01651  0 00270 0 00000        HTR 0,0,184            510                                                   
       01652 +000517000000           OCT 000517000000       62                                                    
       01653  0 00126 0 00000        HTR 0,0,86             517                                                   
       01654 +000520000000           OCT 000520000000       56                                                    
       01655 -0 00121 0 00070        MZE 56,0,81            520                                                   
       01656 +000520000000           OCT 000520000000      113                                                    
       01657  0 00243 0 00000        HTR 0,0,163            520                                                   
       01660 +000521000000           OCT 000521000000       60                                                    
       01661  0 00274 0 00000        HTR 0,0,188            521                                                   
       01662 +000524000000           OCT 000524000000       62                                                    
       01663  0 00166 0 00000        HTR 0,0,118            524                                                   
       01664 +000533000000           OCT 000533000000       92                                                    
       01665  0 00033 0 00000        HTR 0,0,27             533                                                   
       01666 +000534000000           OCT 000534000000       62                                                    
       01667  0 00212 0 00000        HTR 0,0,138            534                                                   
       01670 +000544000000           OCT 000544000000       60                                                    
       01671  0 00274 0 00000        HTR 0,0,188            544                                                   
       01672 +000546000000           OCT 000546000000        2                                                    
       01673  0 00043 0 00000        HTR 0,0,35             546                                                   
       01674 +000553000000           OCT 000553000000       62                                                    
       01675  0 00127 0 00000        HTR 0,0,87             553                                                   
       01676 +000556000000           OCT 000556000000       64                                                    
       01677  0 00237 0 00000        HTR 0,0,159            556                                                   
       01700 +000562000000           OCT 000562000000       92                                                    
       01701 -0 00144 0 00134        MZE 92,0,100           562                                                   
       01702 +000562000000           OCT 000562000000      113                                                    
       01703  0 00045 0 00000        HTR 0,0,37             562                                                   
       01704 +000604000000           OCT 000604000000       92                                                    
       01705  0 00034 0 00000        HTR 0,0,28             604                                                   
       01706 +000607000000           OCT 000607000000       60                                                    
       01707  0 00047 0 00000        HTR 0,0,39             607                                                   
       01710 +000613000000           OCT 000613000000       56                                                    
       01711  0 00274 0 00000        HTR 0,0,188            613                                                   
       01712 +000624000000           OCT 000624000000       98                                                    
       01713  0 00224 0 00000        HTR 0,0,148            624                                                   
       01714 +000627000000           OCT 000627000000       60                                                    
       01715  0 00050 0 00000        HTR 0,0,40             627                                                   
       01716 +000643000000           OCT 000643000000       64                                                    
       01717  0 00025 0 00000        HTR 0,0,21             643                                                   
       01720 +000654000000           OCT 000654000000       56                                                    
       01721  0 00274 0 00000        HTR 0,0,188            654                                                   
       01722 +000661000000           OCT 000661000000       75                                                    
       01723  0 00246 0 00000        HTR 0,0,166            661                                                   
       01724 +000674000000           OCT 000674000000       60                                                    
       01725  0 00122 0 00000        HTR 0,0,82             674                                                   
       01726 +000707000000           OCT 000707000000       64                                                    
       01727  0 00024 0 00000        HTR 0,0,20             707                                                   
       01730 +000711000000           OCT 000711000000       62                                                    
       01731  0 00236 0 00000        HTR 0,0,158            711                                                   
       01732 +000716000000           OCT 000716000000       62                                                    
       01733  0 00130 0 00000        HTR 0,0,88             716                                                   
       01734 +000720000000           OCT 000720000000       60                                                    
       01735  0 00123 0 00000        HTR 0,0,83             720                                                   
       01736 +000734000000           OCT 000734000000       45                                                    
       01737  0 00047 0 00000        HTR 0,0,39             734                                                   
       01740 +000747000000           OCT 000747000000       56                                                    
       01741  0 00020 0 00000        HTR 0,0,16             747                                                   
       01742 +000750000000           OCT 000750000000       56                                                    
       01743  0 00020 0 00000        HTR 0,0,16             750                                                   
       01744 +000756000000           OCT 000756000000       64                                                    
       01745  0 00026 0 00000        HTR 0,0,22             756                                                   
       01746 +000762000000           OCT 000762000000       75                                                    
       01747  0 00251 0 00000        HTR 0,0,169            762                                                   
       01750 +000765000000           OCT 000765000000       92                                                    
       01751  0 00145 0 00000        HTR 0,0,101            765                                                   
       01752 +001000000000           OCT 001000000000       56                                                    
       01753  0 00274 0 00000        HTR 0,0,188           1000                                                   
       01754 +001001000000           OCT 001001000000       24                                                    
       01755  0 00157 0 00000        HTR 0,0,111           1001                                                   
       01756 +001006000000           OCT 001006000000       45                                                    
       01757  0 00055 0 00000        HTR 0,0,45            1006                                                   
       01760 +001022000000           OCT 001022000000       75                                                    
       01761  0 00246 0 00000        HTR 0,0,166           1022                                                   
       01762 +001023000000           OCT 001023000000       64                                                    
       01763  0 00131 0 00000        HTR 0,0,89            1023                                                   
       01764 +001031000000           OCT 001031000000       24                                                    
       01765  0 00075 0 00000        HTR 0,0,61            1031                                                   
       01766 +001041000000           OCT 001041000000       64                                                    
       01767  0 00027 0 00000        HTR 0,0,23            1041                                                   
       01770 +001076000000           OCT 001076000000       45                                                    
       01771  0 00253 0 00000        HTR 0,0,171           1076                                                   
       01772 +001135000000           OCT 001135000000       62                                                    
       01773 -0 00057 0 00076        MZE 62,0,47           1135                                                   
       01774 +001135000000           OCT 001135000000       92                                                    
       01775  0 00146 0 00000        HTR 0,0,102           1135                                                   
       01776 +001141000000           OCT 001141000000       45                                                    
       01777  0 00050 0 00000        HTR 0,0,40            1141                                                   
       02000 +001160000000           OCT 001160000000       22                                                    
       02001  0 00277 0 00000        HTR 0,0,191           1160                                                   
       02002 +001175000000           OCT 001175000000       62                                                    
       02003  0 00132 0 00000        HTR 0,0,90            1175                                                   
       02004 +001211000000           OCT 001211000000       75                                                    
       02005  0 00214 0 00000        HTR 0,0,140           1211                                                   
       02006 +001221000000           OCT 001221000000       22                                                    
       02007 -0 00076 0 00026        MZE 22,0,62           1221                                                   
       02010 +001221000000           OCT 001221000000       75                                                    
       02011  0 00215 0 00000        HTR 0,0,141           1221                                                   
       02012 +001231000000           OCT 001231000000       45                                                    
       02013  0 00063 0 00000        HTR 0,0,51            1231                                                   
       02014 +001234000000           OCT 001234000000       62                                                    
       02015  0 00271 0 00000        HTR 0,0,185           1234                                                   
       02016 +001240000000           OCT 001240000000       75                                                    
       02017  0 00135 0 00000        HTR 0,0,93            1240                                                   
       02020 +001261000000           OCT 001261000000       62                                                    
       02021  0 00272 0 00000        HTR 0,0,186           1261                                                   
       02022 +001274000000           OCT 001274000000       22                                                    
       02023  0 00071 0 00000        HTR 0,0,57            1274                                                   
       02024 +001307000000           OCT 001307000000       22                                                    
       02025  0 00252 0 00000        HTR 0,0,170           1307                                                   
       02026 +001320000000           OCT 001320000000       56                                                    
       02027  0 00274 0 00000        HTR 0,0,188           1320                                                   
       02030 +001341000000           OCT 001341000000       92                                                    
       02031  0 00220 0 00000        HTR 0,0,144           1341                                                   
       02032 +001345000000           OCT 001345000000       22                                                    
       02033  0 00072 0 00000        HTR 0,0,58            1345                                                   
       02034 +001347000000           OCT 001347000000       92                                                    
       02035  0 00221 0 00000        HTR 0,0,145           1347                                                   
       02036 +001377000000           OCT 001377000000       22                                                    
       02037  0 00073 0 00000        HTR 0,0,59            1377                                                   
       02040 +001444000000           OCT 001444000000       22                                                    
       02041  0 00074 0 00000        HTR 0,0,60            1444                                                   
       02042 +001531000000           OCT 001531000000       56                                                    
       02043  0 00274 0 00000        HTR 0,0,188           1531                                                   
       02044 +001634000000           OCT 001634000000       75                                                    
       02045  0 00251 0 00000        HTR 0,0,169           1634                                                   
       02046 +001767000000           OCT 001767000000       56                                                    
       02047  0 00274 0 00000        HTR 0,0,188           1767                                                   
       02050 +001777000000           OCT 001777000000       75                                                    
       02051  0 00251 0 00000        HTR 0,0,169           1777                                                   
       02052 +002230000000           OCT 002230000000      75                                                     
       02053  0 00273 0 00000        HTR 0,0,187          2230                                                    
       02054 +002155000000           OCT 002155000000       56                                                    
       02055  0 00021 0 00000        HTR 0,0,17            2155                                                   
       02056 +002163000000           OCT 002163000000       56                                                    
       02057  0 00022 0 00000        HTR 0,0,18            2163                                                   
       02060 +002655000000           OCT 002655000000      75                                                     
       02061  0 00031 0 00000        HTR 0,0,25           2655                                                    
       02062 +003001000000           OCT 003001000000      88                                                     
       02063  0 00240 0 00000        HTR 0,0,160          3001                                                    
       02064 +003064000000           OCT 003064000000       65                                                    
       02065  0 00250 0 00000        HTR 0,0,168           3064                                                   
       02066 +003143000000           OCT 003143000000       65                                                    
       02067  0 00060 0 00000        HTR 0,0,48            3143                                                   
       02070 +003156000000           OCT 003156000000       65                                                    
       02071  0 00030 0 00000        HTR 0,0,24            3156                                                   
       02072 +003253000000           OCT 003253000000      88                                                     
       02073  0 00241 0 00000        HTR 0,0,161          3253                                                    
       02074 +003540000000           OCT 003540000000      8B                                                     
       02075  0 00136 0 00000        HTR 0,0,94           3540                                                    
       02076 +004006000000           OCT 004006000000       51                                                    
       02077  0 00053 0 00000        HTR 0,0,43            4006                                                   
       02100 +004007000000           OCT 004007000000       51                                                    
       02101  0 00053 0 00000        HTR 0,0,43            4007                                                   
       02102 +004026000000           OCT 004026000000       51                                                    
       02103  0 00103 0 00000        HTR 0,0,67            4026                                                   
       02104 +004031000000           OCT 004031000000       75                                                    
       02105  0 00251 0 00000        HTR 0,0,169           4031                                                   
       02106 +004035000000           OCT 004035000000       51                                                    
       02107  0 00200 0 00000        HTR 0,0,128           4035                                                   
       02110 +004040000000           OCT 004040000000       51                                                    
       02111  0 00007 0 00000        HTR 0,0,7             4040                                                   
       02112 +004054000000           OCT 004054000000       51                                                    
       02113  0 00104 0 00000        HTR 0,0,68            4054                                                   
       02114 +004124000000           OCT 004124000000       51                                                    
       02115  0 00256 0 00000        HTR 0,0,174           4124                                                   
       02116 +004155000000           OCT 004155000000       34                                                    
       02117  0 00105 0 00000        HTR 0,0,69            4155                                                   
       02120 +004157000000           OCT 004157000000       51                                                    
       02121  0 00257 0 00000        HTR 0,0,175           4157                                                   
       02122 +004160000000           OCT 004160000000       34                                                    
       02123  0 00010 0 00000        HTR 0,0,8             4160                                                   
       02124 +004161000000           OCT 004161000000       34                                                    
       02125  0 00201 0 00000        HTR 0,0,129           4I61                                                   
       02126 +004303000000           OCT 004303000000       75                                                    
       02127  0 00251 0 00000        HTR 0,0,169           4303                                                   
       02130 +004307000000           OCT 004307000000       51                                                    
       02131  0 00064 0 00000        HTR 0,0,52            430I                                                   
       02132 +004417000000           OCT 004417000000      88                                                     
       02133  0 00171 0 00000        HTR 0,0,121          4417                                                    
       02134 +004405000000           OCT 004405000000       34                                                    
       02135  0 00260 0 00000        HTR 0,0,176           4405                                                   
       02136 +004453000000           OCT 004453000000      88                                                     
       02137  0 00137 0 00000        HTR 0,0,95           4453                                                    
       02140 +004533000000           OCT 004533000000       51                                                    
       02141  0 00261 0 00000        HTR 0,0,177           4533                                                   
       02142 +004570000000           OCT 004570000000       34                                                    
       02143  0 00061 0 00000        HTR 0,0,49            4570                                                   
       02144 +004623000000           OCT 004623000000       51                                                    
       02145  0 00254 0 00000        HTR 0,0,172           4623                                                   
       02146 +004666000000           OCT 004666000000       51                                                    
       02147  0 00050 0 00000        HTR 0,0,40            4666                                                   
       02150 +005037000000           OCT 005037000000      34                                                     
       02151  0 00011 0 00000        HTR 0,0,9              5037                                                  
       02152 +005232000000           OCT 005232000000       34                                                    
       02153  0 00255 0 00000        HTR 0,0,173           5232                                                   
       02154 +005273000000           OCT 005273000000       34                                                    
       02155  0 00275 0 00000        HTR 0,0,189           5273                                                   
       02156 +005560000000           OCT 005560000000       34                                                    
       02157  0 00051 0 00000        HTR 0,0,41            5560                                                   
       02160 +005721000000           OCT 005721000000       27                                                    
       02161  0 00262 0 00000        HTR 0,0,178           5721                                                   
       02162 +005742000000           OCT 005742000000       27                                                    
       02163  0 00231 0 00000        HTR 0,0,153           5742                                                   
       02164 +005763000000           OCT 005763000000       27                                                    
       02165  0 00231 0 00000        HTR 0,0,153           5763                                                   
       02166 +005764000000           OCT 005764000000       27                                                    
       02167  0 00231 0 00000        HTR 0,0,153           5764                                                   
       02170 +005773000000           OCT 005773000000       51                                                    
       02171  0 00232 0 00000        HTR 0,0,154           5773                                                   
       02172 +006004000000           OCT 006004000000       32                                                    
       02173  0 00225 0 00000        HTR 0,0,149           6004                                                   
       02174 +006044000000           OCT 006044000000       27                                                    
       02175  0 00012 0 00000        HTR 0,0,10            6044                                                   
       02176 +006063000000           OCT 006063000000       32                                                    
       02177  0 00275 0 00000        HTR 0,0,189           6063                                                   
       02200 +006065000000           OCT 006065000000       27                                                    
       02201  0 00013 0 00000        HTR 0,0,11            6065                                                   
       02202 +006234000000           OCT 006234000000       51                                                    
       02203  0 00014 0 00000        HTR 0,0,12            6234                                                   
       02204 +006253000000           OCT 006253000000       32                                                    
       02205  0 00263 0 00000        HTR 0,0,179           6253                                                   
       02206 +006256000000           OCT 006256000000       32                                                    
       02207  0 00263 0 00000        HTR 0,0,179           6256                                                   
       02210 +006353000000           OCT 006353000000       51                                                    
       02211  0 00233 0 00000        HTR 0,0,155           6353                                                   
       02212 +006357000000           OCT 006357000000       29                                                    
       02213  0 00050 0 00000        HTR 0,0,40            6357                                                   
       02214 +006373000000           OCT 006373000000       27                                                    
       02215  0 00227 0 00000        HTR 0,0,151           6373                                                   
       02216 +006376000000           OCT 006376000000       27                                                    
       02217  0 00230 0 00000        HTR 0,0,152           6376                                                   
       02220 +006432000000           OCT 006432000000       27                                                    
       02221  0 00015 0 00000        HTR 0,0,13            6432                                                   
       02222 +006475000000           OCT 006475000000       32                                                    
       02223  0 00275 0 00000        HTR 0,0,189           6475                                                   
       02224 +006534000000           OCT 006534000000       27                                                    
       02225  0 00012 0 00000        HTR 0,0,10            6534                                                   
       02226 +006635000000           OCT 006635000000       27                                                    
       02227  0 00264 0 00000        HTR 0,0,180           6635                                                   
       02230 +006710000000           OCT 006710000000       27                                                    
       02231  0 00226 0 00000        HTR 0,0,150           6710                                                   
       02232 +006736000000           OCT 006736000000       41                                                    
       02233  0 00161 0 00000        HTR 0,0,113           6736                                                   
       02234 +006737000000           OCT 006737000000       41                                                    
       02235  0 00161 0 00000        HTR 0,0,113           6737                                                   
       02236 +006744000000           OCT 006744000000       41                                                    
       02237  0 00106 0 00000        HTR 0,0,70            6744                                                   
       02240 +006762000000           OCT 006762000000       43                                                    
       02241  0 00050 0 00000        HTR 0,0,40            6762                                                   
       02242 +006765000000           OCT 006765000000       37                                                    
       02243  0 00054 0 00000        HTR 0,0,44            6765                                                   
       02244 +006767000000           OCT 006767000000       39                                                    
       02245  0 00107 0 00000        HTR 0,0,71            6767                                                   
       02246 +007023000000           OCT 007023000000       27                                                    
       02247  0 00265 0 00000        HTR 0,0,181           7023                                                   
       02250 +007027000000           OCT 007027000000       37                                                    
       02251  0 00050 0 00000        HTR 0,0,40            7027                                                   
       02252 +007045000000           OCT 007045000000       43                                                    
       02253  0 00016 0 00000        HTR 0,0,14            7045                                                   
       02254 +007052000000           OCT 007052000000       37                                                    
       02255  0 00202 0 00000        HTR 0,0,130           7052                                                   
       02256 +007053000000           OCT 007053000000       37                                                    
       02257  0 00172 0 00000        HTR 0,0,122           7053                                                   
       02260 +007056000000           OCT 007056000000       37                                                    
       02261  0 00202 0 00000        HTR 0,0,130           7056                                                   
       02262 +007057000000           OCT 007057000000       37                                                    
       02263  0 00172 0 00000        HTR 0,0,122           7057                                                   
       02264 +007070000000           OCT 007070000000       37                                                    
       02265  0 00110 0 00000        HTR 0,0,72            7070                                                   
       02266 +007073000000           OCT 007073000000       39                                                    
       02267  0 00266 0 00000        HTR 0,0,182           7073                                                   
       02270 +007075000000           OCT 007075000000       27                                                    
       02271  0 00175 0 00000        HTR 0,0,125           7075                                                   
       02272 +007076000000           OCT 007076000000       27                                                    
       02273  0 00175 0 00000        HTR 0,0,125           7076                                                   
       02274 +007100000000           OCT 007100000000       55                                                    
       02275  0 00035 0 00000        HTR 0,0,29            7100                                                   
       02276 +007103000000           OCT 007103000000       27                                                    
       02277  0 00203 0 00000        HTR 0,0,131           7103                                                   
       02300 +007110000000           OCT 007110000000       43                                                    
       02301  0 00234 0 00000        HTR 0,0,156           7110                                                   
       02302 +007112000000           OCT 007112000000       27                                                    
       02303  0 00162 0 00000        HTR 0,0,114           7112                                                   
       02304 +007123000000           OCT 007123000000       27                                                    
       02305  0 00111 0 00000        HTR 0,0,73            7123                                                   
       02306 +007135000000           OCT 007135000000       27                                                    
       02307  0 00204 0 00000        HTR 0,0,132           7135                                                   
       02310 +007143000000           OCT 007143000000       55                                                    
       02311  0 00274 0 00000        HTR 0,0,188           7143                                                   
       02312 +007250000000           OCT 007250000000       27                                                    
       02313  0 00173 0 00000        HTR 0,0,123           7250                                                   
       02314 +007303000000           OCT 007303000000       41                                                    
       02315  0 00016 0 00000        HTR 0,0,14            7303                                                   
       02316 +007320000000           OCT 007320000000       27  DO NEST                                           
       02317  0 00005 0 00000        HTR 0,0,5             7320   DO NESTING                                      
       02320 +007454000000           OCT 007454000000      75                                                     
       02321  0 00032 0 00000        HTR 0,0,26           7454                                                    
       02322 +007555000000           OCT 007555000000       21                                                    
       02323  0 00177 0 00000        HTR 0,0,127           7555                                                   
       02324 +007563000000           OCT 007563000000       21                                                    
       02325  0 00176 0 00000        HTR 0,0,126           7563                                                   
       02326 +007620000000           OCT 007620000000       21                                                    
       02327  0 00276 0 00000        HTR 0,0,190           7620                                                   
       02330 +007627000000           OCT 007627000000       21                                                    
       02331  0 00100 0 00000        HTR 0,0,64            7627                                                   
       02332 +007632000000           OCT 007632000000      36                                                     
       02333  0 00011 0 00000        HTR 0,0,9              7632                                                  
       02334 +007720000000           OCT 007720000000       21                                                    
       02335  0 00077 0 00000        HTR 0,0,63            7720                                                   
       02336 +007751000000           OCT 007751000000       21                                                    
       02337 -0 00300 0 00026        MZE 22,0,192          7751                                                   
       02340 +007751000000           OCT 007751000000       36                                                    
       02341  0 00062 0 00000        HTR 0,0,50            7751                                                   
       02342 +007760000000           OCT 007760000000       30                                                    
       02343  0 00052 0 00000        HTR 0,0,42            7760                                                   
       02344 +016004000000           OCT 016004000000      75                                                     
       02345  0 00032 0 00000        HTR 0,0,26          16004                                                    
       02346  0 01042 0 00000 ERLIST HTR 0,0,ERLIST-1-LOCREC    DEC HAS NUMBER OF ENTRIES SO FAR                  
                        03534        ORG 1884              WAS 83534                                              
       03534 -0 53400 4 00313 ENDPCH LXD DRUM,4                                                                   
       03535  0 76200 0 00304        RDR 4                                                                        
       03536  0 46000 0 00313        LDA DRUM                                                                     
       03537  0 02000 0 00000        TRA 0                                                                        
       03540  606060606060    MACEN  BCD 7                                                                        
       03541  606060606060    
       03542  606060606060    
       03543  606060606060    
       03544  606060606060    
       03545  606060606060    
       03546  606060606060    
       03547  475125626260           BCD  PRESS START IF YOU WISH TO RE-RUN PROBLEM                               
       03550  626321516360    
       03551  312660704664    
       03552  606631623060    
       03553  634660512540    
       03554  516445604751    
       03555  462243254460    
       03556  606060606060    
       03557  606060606060    
       03560  606060606060    
       03561  606060606060           BCD                                                                          
       03562  606060606060    
       03563  606060606060    
       03564  606060606060    
       03565  606060606060    
       03566  606060606060    
       03567  606060606060    
       03570  606060606060    
       03571  606060606060    
       03572  606060606060    
       03573  465160422570           BCD  OR KEY IN 076000 000141                                                 
       03574  603145600007    
       03575  060000006000    
       03576  000001040160    
       03577  606060606060    
       03600  606060606060    
       03601  606060606060    
       03602  606060606060    
       03603  606060606060    
       03604  606060606060    
       03605  606060606060           BCD                                                                          
       03606  606060606060    
       03607  606060606060    
       03610  606060606060    
       03611  606060606060    
       03612  606060606060    
       03613  606060606060    
       03614  606060606060    
       03615  606060606060    
       03616  606060606060    
       03617  214524604751           BCD  AND PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING                 
       03620  256262606263    
       03621  215163603126    
       03622  607046646066    
       03623  316230606346    
       03624  602346456331    
       03625  456425602221    
       03626  632330602346    
       03627  444731433145    
       03630  276060606060    
       03631  0 00000 0 00000 XZY                                                                                 
                                         EXPOSE EXTERNAL SYMBOLS RPC                                              
                              0      HED                                                                          
                        00740 PRINT  SYN E$PRINT                                                                  
                        00272 SPEND  SYN E$SPEND                                                                  
                        01257 ERAS   SYN E$ERAS                                                                   
                        01232 ZERO   SYN E$ZERO                                                                   
                        00312 PRNT4  SYN E$PRNT4                                                                  
                        00311 PRNT2  SYN E$PRNT2                                                                  
                        00316 HTR4   SYN E$HTR4                                                                   
                        77777 LIST   SYN E$LIST                                                                   
                        00530 SYM    SYN E$SYM                                                                    
                        00505 FX4PR  SYN E$FX4PR                                                                  
                        00137 LXDA   SYN E$LXDA                                                                   
                        00266 DONE   SYN E$DONE                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    1061           0           0           0           0
 LIB       0           0           0           0           0
 COL    1061           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1263                  
0NUMBER OF SYMBOLS,  DEF   195,DEFOP     0,UNDEF     0      
9            ORG 3                 FORCE NEW RECORD                                       
1                       00003        ORG 3                 FORCE NEW RECORD                                       
       00003  0 01303 0 01330        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00003        TXH 3                 STOP NOT IN THIS LIST                                  
       01304  0 50000 0 01235        CLA ERWORD                                                                   
       01305  0 77100 0 00022        ARS 18                                                                       
       01306  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01307  0 60200 0 01315        SLW NOLIST                                                                   
       01310  0 07400 4 00740        TSX PRINT,4                                                                  
       01311  0 01331 0 01313        HTR PR,0,PR+14                                                               
       01312  0 02000 0 00221        TRA DIGRTN                                                                   
       01313  606060606060    PR     BCD 2                                                                        
       01314  606060606060    
 A     01315  0 00000 0 00000 NOLIST HTR                                                                          
       01316  606330316260           BCD   THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERROR LI            
       01317  255151465160    
       01320  316260454663    
       01321  604331626325    
       01322  246031456063    
       01323  302560243121    
       01324  274546626331    
       01325  236047514627    
       01326  512144602551    
       01327  514651604331    
       01330  626333606060           BCD 1ST.                                                                     
       01331  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       36                  
0NUMBER OF SYMBOLS,  DEF   198,DEFOP     0,UNDEF     0      
9            ORG 4                 FORCE NEW RECORD                                       
1                       00004        ORG 4                 FORCE NEW RECORD                                       
       00004  0 01303 0 03533        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00004        TXH 4                 1 DOUBLE PRIME                                         
       01304 -0 53400 1 00030        LXD 24,1              IN DEC OF 24,1 NUMBER OF ENTRIES                       
       01305  2 00001 1 01307        TIX A,1,1             MADE BY NON-ARITHMETIC DIAGNOSTIC                      
       01306 -0 53400 1 01232        LXD ZERO,1                                                                   
       01307 -0 63400 1 01334 A      SXD NXTER,1           SET END OF ERROR LIST TEST                             
       01310 -0 53400 1 01232        LXD ZERO,1                                                                   
       01311  0 76600 0 00361 AB     WPR                   SPACE BETWEEN ERROR COMMENTS                           
       01312 -0 53400 2 01232        LXD ZERO,2                                                                   
       01313  0 50000 1 77777        CLA LIST,1                                                                   
       01314 -0 32000 0 01230        ANA DECMSK                                                                   
       01315  0 40200 0 01234        SUB PREFX1            GET UNCOMPLIMENTED LOCATION                            
       01316 -0 32000 0 01230        ANA DECMSK                                                                   
       01317  0 34000 2 03532 AE     CAS ER1PRM,2          2 WORD ENTRIES IN THIS LIST                            
       01320  0 02000 0 01322        TRA AC                                                                       
       01321  0 02000 0 01325        TRA BHAV                                                                     
       01322  1 00002 2 01323 AC     TXI AD,2,2                                                                   
       01323 -3 00076 2 01317 AD     TXL AE,2,62           62 STOPS IN LIST SO FAR                                
       01324  0 02000 0 01330        TRA NO                CANNOT IDENTIFY                                        
       01325  0 50000 2 03533 BHAV   CLA ER1PRM+1,2                                                               
       01326  0 62100 0 01327        STA BA                                                                       
 A     01327  0 02000 0 00000 BA     TRA                                                                          
       01330  0 76400 0 00201 NO     BST 1                 SPACE BACK TO PRINT RECORD ZERO                        
       01331  0 76400 0 00201        BST 1                                                                        
       01332  0 60100 0 01235        STO ERWORD            AND SAVE OCTAL LOCATION                                
       01333  0 02000 0 00137        TRA LXDA                                                                     
       01334 -3 00000 1 01311 NXTER  TXL AB,1,0            NUMBER OF ERROR ENTRIES MINUS 1                        
       01335  0 76600 0 00361        WPR                   FINISHED WITH ERROR LIST, SPACE PRINTER                
       01336  0 50000 0 00316        CLA HTR4                                                                     
       01337  0 60100 0 00271        STO DONE+3                                                                   
       01340  0 02000 0 00272        TRA SPEND                                                                    
       01341  0 50000 1 77776 TEIFNO CLA LIST-1,1          BETA, WHICH IS DUPLICATED IN SOURCE                    
       01342 -0 32000 0 01227        ANA ADDMSK            PROGRAM, IS IN ADDRESS 0F LIST                         
       01343  0 07400 4 00676        TSX BINDEC,4                                                                 
       01344  0 60200 0 01355        SLW TBETA                                                                    
       01345  0 07400 4 00740        TSX PRINT,4                                                                  
       01346  0 01365 0 01350        HTR PRTEIF,0,PRTEIF+13                                                       
       01347  1 00002 1 01334        TXI NXTER,1,2         2WORD ENTRIES IN ERROR LIST                            
       01350  606060606060    PRTEIF BCD 2                                                                        
       01351  606060606060    
       01352  633025602646           BCD 3THE FORMULA NUMBER                                                      
       01353  514464432160    
       01354  456444222551    
 A     01355  0 00000 0 00000 TBETA  HTR                                                                          
       01356  603162602464           BCD 7 IS DUPLICATED IN THE SOURCE PROGRAM                                    
       01357  474331232163    
       01360  252460314560    
       01361  633025606246    
       01362  645123256047    
       01363  514627512144    
       01364  606060606060    
       01365  0 50000 0 01541 MINB1  CLA ADTMI             SELECT ADDRESS OF PARTICULAR TIFGO ENTRY               
       01366  0 73400 4 00000        PAX 0,4               FOR PRINT ROUTINE                                      
       01367  0 62100 0 01504        STA WHICHA                                                                   
       01370 -0 50000 0 01445        CAL N1                AND PICK UP BCD FOR COMMENT                            
       01371  1 00042 4 01451        TXI BETAPR,4,34       ADD LENGTH OF COMMENT TO ADDRESS                       
       01372  0 50000 0 01541 MINB2  CLA ADTMI                                                                    
       01373  0 73400 4 00000        PAX 0,4                                                                      
       01374  0 62100 0 01504        STA WHICHA                                                                   
       01375 -0 50000 0 01446        CAL N2                                                                       
       01376  1 00042 4 01451        TXI BETAPR,4,34                                                              
       01377  0 50000 0 01541 MINB3  CLA ADTMI                                                                    
       01400  0 73400 4 00000        PAX 0,4                                                                      
       01401  0 62100 0 01504        STA WHICHA                                                                   
       01402 -0 50000 0 01447        CAL N3                                                                       
       01403  1 00042 4 01451        TXI BETAPR,4,34                                                              
       01404  0 50000 0 01542 TSXTFO CLA ADTZR                                                                    
       01405  0 73400 4 00000        PAX 0,4                                                                      
       01406  0 62100 0 01504        STA WHICHA                                                                   
       01407 -0 50000 0 01444        CAL N                                                                        
       01410  1 00042 4 01451        TXI BETAPR,4,34                                                              
       01411  0 50000 0 01543 BTIFG1 CLA ADT1                                                                     
       01412  0 73400 4 00000        PAX 0,4                                                                      
       01413  0 62100 0 01504        STA WHICHA                                                                   
       01414 -0 50000 0 01443        CAL SOMN                                                                     
       01415  1 00042 4 01451        TXI BETAPR,4,34                                                              
       01416  0 50000 0 01544 BTIFG2 CLA ADT2                                                                     
       01417  0 02000 0 01412        TRA BTIFG1+1                                                                 
       01420  0 50000 0 01545 B1TIF3 CLA ADT3                                                                     
       01421  0 02000 0 01366        TRA MINB1+1                                                                  
       01422  0 50000 0 01545 B2TIF3 CLA ADT3                                                                     
       01423  0 02000 0 01373        TRA MINB2+1                                                                  
       01424  0 50000 0 01546 B1TIF4 CLA ADT4                                                                     
       01425  0 02000 0 01366        TRA MINB1+1                                                                  
       01426  0 50000 0 01546 B2TIF4 CLA ADT4                                                                     
       01427  0 02000 0 01373        TRA MINB2+1                                                                  
       01430  0 50000 0 01547 B1TIF5 CLA ADT5                                                                     
       01431  0 02000 0 01366        TRA MINB1+1                                                                  
       01432  0 50000 0 01547 B2TIF5 CLA ADT5                                                                     
       01433  0 02000 0 01373        TRA MINB2+1                                                                  
       01434  0 50000 0 01550 TIF6B  CLA ADT6                                                                     
       01435  0 02000 0 01405        TRA TSXTFO+1                                                                 
       01436  0 50000 0 01551 DONOBT CLA ADDO              SAME PROCESS AS FOR TIFGO ENTRIES                      
       01437  0 73400 4 00000        PAX 0,4                                                                      
       01440  0 62100 0 01504        STA WHICHA                                                                   
       01441 -0 50000 0 01450        CAL B                                                                        
       01442  1 00016 4 01451        TXI BETAPR,4,14                                                              
       01443  624644256045    SOMN   BCD 1SOME N                                                                  
       01444  456060606060    N      BCD 1N                                                                       
       01445  450160606060    N1     BCD 1N1                                                                      
       01446  450260606060    N2     BCD 1N2                                                                      
       01447  450360606060    N3     BCD 1N3                                                                      
       01450  226060606060    B      BCD 1B                                                                       
       01451 -0 63400 4 01504 BETAPR SXD WHICHA,4          SOME TIFGO, OR DO, STATEMENT REFERS TO                 
       01452  0 60200 0 01526        SLW BETAWD            A NONEXISTANT BETA                                     
       01453  0 56000 0 01526        LDQ BETAWD            MOVE WORD INTO COMMENT                                 
       01454 -0 50000 0 01525        CAL BETAWD-1                                                                 
       01455  0 77100 0 00022        ARS 18                                                                       
       01456 -0 76300 0 00022        LGL 18                                                                       
       01457  0 60200 0 01525        SLW BETAWD-1                                                                 
       01460 -0 76300 0 00022        LGL 18                                                                       
       01461  0 56000 0 00717        LDQ BLANKS                                                                   
       01462 -0 76300 0 00022        LGL 18                                                                       
       01463  0 60200 0 01526        SLW BETAWD                                                                   
       01464  0 50000 1 77777        CLA LIST,1                                                                   
       01465  0 07400 4 00613        TSX EXBETA,4                                                                 
       01466  0 07400 4 00602        TSX LAJUST,4                                                                 
       01467  0 60200 0 01513        SLW FORMNB                                                                   
       01470  0 56000 0 01513        LDQ FORMNB            MOVE EXTERNAL FORMULA NUMBER                           
       01471 -0 50000 0 01512        CAL FORMNB-1          INTO COMMENT                                           
       01472  0 77100 0 00006        ARS 6                                                                        
       01473 -0 76300 0 00006        LGL 6                                                                        
       01474  0 60200 0 01512        SLW FORMNB-1                                                                 
       01475 -0 76300 0 00036        LGL 30                                                                       
       01476  0 56000 0 00717        LDQ BLANKS                                                                   
       01477 -0 76300 0 00006        LGL 6                                                                        
       01500  0 60200 0 01513        SLW FORMNB                                                                   
       01501  0 07400 4 00740        TSX PRINT,4                                                                  
       01502  0 01541 0 01506        HTR NOBETA,0,NOBETA+27                                                       
       01503  0 07400 4 00740        TSX PRINT,4                                                                  
       01504  0 00000 0 00000 WHICHA                                                                              
       01505  1 00001 1 01334        TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                             
       01506  606060606060    NOBETA BCD 2                                                                        
       01507  606060606060    
       01510  626321632544           BCD 3STATEMENT NUMBER                                                        
       01511  254563604564    
       01512  442225516060    
 A     01513  0 00000 0 00000 FORMNB HTR                                                                          
       01514  512526255162           BCD  REFERS TO A NON-EXISTENT FORMULA NUMBER CORRESPONDING TO                
       01515  606346602160    
       01516  454645402567    
       01517  316263254563    
       01520  602646514464    
       01521  432160456444    
       01522  222551602346    
       01523  515125624746    
       01524  452431452760    
       01525  634660606060    
       01526  606060606060    BETAWD BCD 6                                                                        
       01527  606060606060    
       01530  606060606060    
       01531  606060606060    
       01532  606060606060    
       01533  606060606060    
       01534  314560633025           BCD 5IN THE TYPE OF STATEMENT                                                
       01535  606370472560    
       01536  462660626321    
       01537  632544254563    
       01540  606060606060    
       01541  0 00000 0 01552 ADTMI  HTR TISMIN                                                                   
       01542  0 00000 0 01614 ADTZR  HTR TISZRO                                                                   
       01543  0 00000 0 01656 ADT1   HTR TIS1                                                                     
       01544  0 00000 0 01720 ADT2   HTR TIS2                                                                     
       01545  0 00000 0 01762 ADT3   HTR TIS3                                                                     
       01546  0 00000 0 02024 ADT4   HTR TIS4                                                                     
       01547  0 00000 0 02066 ADT5   HTR TIS5                                                                     
       01550  0 00000 0 02130 ADT6   HTR TIS6                                                                     
       01551  0 00000 0 02172 ADDO   HTR DOS                                                                      
       01552  606060606060    TISMIN BCD 4                                                                        
       01553  606060606060    
       01554  606060606060    
       01555  606060606060    
       01556  602160603126           BCD   A  IF ( E ) N1, N2, N3                                                 
       01557  607460256034    
       01560  604501736045    
       01561  027360450360    
       01562  606060606060    
       01563  606060606060    
       01564  606060606060    
       01565  606060606060    
       01566  606060606060    
       01567  606060606060    
       01570  606060606060           BCD                                                                          
       01571  606060606060    
       01572  606060606060    
       01573  606060606060    
       01574  606060606060    
       01575  606060606060    
       01576  606060606060    
       01577  606060606060    
       01600  606060606060    
       01601  606060606060    
       01602  606060606060           BCD                                                                          
       01603  606060606060    
       01604  606060606060    
       01605  606060606060    
       01606  606060606060    
       01607  606060606060    
       01610  606060606060    
       01611  606060606060    
       01612  606060606060    
       01613  606060606060    
       01614  606060606060    TISZRO BCD 4                                                                        
       01615  606060606060    
       01616  606060606060    
       01617  606060606060    
       01620  602160602746           BCD   A  GO TO N                                                             
       01621  606346604560    
       01622  606060606060    
       01623  606060606060    
       01624  606060606060    
       01625  606060606060    
       01626  606060606060    
       01627  606060606060    
       01630  606060606060    
       01631  606060606060    
       01632  606060606060           BCD                                                                          
       01633  606060606060    
       01634  606060606060    
       01635  606060606060    
       01636  606060606060    
       01637  606060606060    
       01640  606060606060    
       01641  606060606060    
       01642  606060606060    
       01643  606060606060    
       01644  606060606060           BCD                                                                          
       01645  606060606060    
       01646  606060606060    
       01647  606060606060    
       01650  606060606060    
       01651  606060606060    
       01652  606060606060    
       01653  606060606060    
       01654  606060606060    
       01655  606060606060    
       01656  606060606060    TIS1   BCD 4                                                                        
       01657  606060606060    
       01660  606060606060    
       01661  606060606060    
       01662  602160602746           BCD   A  GO TO L ( N1, N2, NM )                                              
       01663  606346604360    
       01664  746045017360    
       01665  450273604544    
       01666  603460606060    
       01667  606060606060    
       01670  606060606060    
       01671  606060606060    
       01672  606060606060    
       01673  606060606060    
       01674  606060606060           BCD                                                                          
       01675  606060606060    
       01676  606060606060    
       01677  606060606060    
       01700  606060606060    
       01701  606060606060    
       01702  606060606060    
       01703  606060606060    
       01704  606060606060    
       01705  606060606060    
       01706  606060606060           BCD                                                                          
       01707  606060606060    
       01710  606060606060    
       01711  606060606060    
       01712  606060606060    
       01713  606060606060    
       01714  606060606060    
       01715  606060606060    
       01716  606060606060    
       01717  606060606060    
       01720  606060606060    TIS2   BCD 4                                                                        
       01721  606060606060    
       01722  606060606060    
       01723  606060606060    
       01724  602160602746           BCD   A  GO TO ( N1, N2, NM ) J                                              
       01725  606346607460    
       01726  450173604502    
       01727  736045446034    
       01730  604160606060    
       01731  606060606060    
       01732  606060606060    
       01733  606060606060    
       01734  606060606060    
       01735  606060606060    
       01736  606060606060           BCD                                                                          
       01737  606060606060    
       01740  606060606060    
       01741  606060606060    
       01742  606060606060    
       01743  606060606060    
       01744  606060606060    
       01745  606060606060    
       01746  606060606060    
       01747  606060606060    
       01750  606060606060           BCD                                                                          
       01751  606060606060    
       01752  606060606060    
       01753  606060606060    
       01754  606060606060    
       01755  606060606060    
       01756  606060606060    
       01757  606060606060    
       01760  606060606060    
       01761  606060606060    
       01762  606060606060    TIS3   BCD 4                                                                        
       01763  606060606060    
       01764  606060606060    
       01765  606060606060    
       01766  602160603126           BCD   A  IF ( SENSE SWITCH K ) N1, N2                                        
       01767  607460622545    
       01770  622560626631    
       01771  632330604260    
       01772  346045017360    
       01773  450260606060    
       01774  606060606060    
       01775  606060606060    
       01776  606060606060    
       01777  606060606060    
       02000  606060606060           BCD 9                                                                        
       02001  606060606060    
       02002  606060606060    
       02003  606060606060    
       02004  606060606060    
       02005  606060606060    
       02006  606060606060    
       02007  606060606060    
       02010  606060606060    
       02011  465160606060           BCD 1OR                                                                      
       02012  602160603126           BCD   A  IF ( SENSE LIGHT K ) N1, N2                                         
       02013  607460622545    
       02014  622560433127    
       02015  306360426034    
       02016  604501736045    
       02017  026060606060    
       02020  606060606060    
       02021  606060606060    
       02022  606060606060    
       02023  606060606060    
       02024  606060606060    TIS4   BCD 4                                                                        
       02025  606060606060    
       02026  606060606060    
       02027  606060606060    
       02030  602160603126           BCD   A  IF DIVIDE CHECK N1, N2                                              
       02031  602431653124    
       02032  256023302523    
       02033  426045017360    
       02034  450260606060    
       02035  606060606060    
       02036  606060606060    
       02037  606060606060    
       02040  606060606060    
       02041  606060606060    
       02042  606060606060           BCD                                                                          
       02043  606060606060    
       02044  606060606060    
       02045  606060606060    
       02046  606060606060    
       02047  606060606060    
       02050  606060606060    
       02051  606060606060    
       02052  606060606060    
       02053  606060606060    
       02054  606060606060           BCD                                                                          
       02055  606060606060    
       02056  606060606060    
       02057  606060606060    
       02060  606060606060    
       02061  606060606060    
       02062  606060606060    
       02063  606060606060    
       02064  606060606060    
       02065  606060606060    
       02066  606060606060    TIS5   BCD 4                                                                        
       02067  606060606060    
       02070  606060606060    
       02071  606060606060    
       02072  602160603126           BCD   A  IF ACCUMULATOR OVERFLOW N1, N2                                      
       02073  602123236444    
       02074  644321634651    
       02075  604665255126    
       02076  434666604501    
       02077  736045026060    
       02100  606060606060    
       02101  606060606060    
       02102  606060606060    
       02103  606060606060    
       02104  606060606060           BCD 9                                                                        
       02105  606060606060    
       02106  606060606060    
       02107  606060606060    
       02110  606060606060    
       02111  606060606060    
       02112  606060606060    
       02113  606060606060    
       02114  606060606060    
       02115  465160606060           BCD 1OR                                                                      
       02116  602160603126           BCD   A  IF QUOTIENT OVERFLOW N1, N2                                         
       02117  605064466331    
       02120  254563604665    
       02121  255126434666    
       02122  604501736045    
       02123  026060606060    
       02124  606060606060    
       02125  606060606060    
       02126  606060606060    
       02127  606060606060    
       02130  606060606060    TIS6   BCD 4                                                                        
       02131  606060606060    
       02132  606060606060    
       02133  606060606060    
       02134  602160602162           BCD   A  ASSIGN K TO N                                                       
       02135  623127456042    
       02136  606346604560    
       02137  606060606060    
       02140  606060606060    
       02141  606060606060    
       02142  606060606060    
       02143  606060606060    
       02144  606060606060    
       02145  606060606060    
       02146  606060606060           BCD                                                                          
       02147  606060606060    
       02150  606060606060    
       02151  606060606060    
       02152  606060606060    
       02153  606060606060    
       02154  606060606060    
       02155  606060606060    
       02156  606060606060    
       02157  606060606060    
       02160  606060606060           BCD                                                                          
       02161  606060606060    
       02162  606060606060    
       02163  606060606060    
       02164  606060606060    
       02165  606060606060    
       02166  606060606060    
       02167  606060606060    
       02170  606060606060    
       02171  606060606060    
       02172  606060606060    DOS    BCD 4                                                                        
       02173  606060606060    
       02174  606060606060    
       02175  606060606060    
       02176  602160602446           BCD   A  DO B I = N1, N2, N3                                                 
       02177  602260316013    
       02200  604501736045    
       02201  027360450360    
       02202  606060606060    
       02203  606060606060    
       02204  606060606060    
       02205  606060606060    
       02206  606060606060    
       02207  606060606060    
       02210 -0 53400 4 02256 TSXH   LXD XTABLE,4          FIND THE KIND OF TIFGO ENTRY WHICH                     
       02211  0 50000 1 77777        CLA LIST,1            IS TRYING TO TURN CONTROL OVER TO A                    
       02212  0 76700 0 00022        ALS 18                NON-EXECUTABLE STATEMENT                               
       02213 -0 32000 0 01230        ANA DECMSK                                                                   
       02214  0 40200 0 01234        SUB PREFX1                                                                   
       02215 -0 32000 0 01230        ANA DECMSK                                                                   
       02216  0 34000 4 02256 TSHCAS CAS XTABLE,4                                                                 
       02217  0 02000 0 02221        TRA TSXH1                                                                    
       02220  0 02000 0 02223        TRA HVNOX                                                                    
       02221  2 00002 4 02216 TSXH1  TIX TSHCAS,4,2                                                               
       02222  0 02000 0 01330        TRA NO                CANNOT IDENTIFY, PRINT OCTAL LOCATION                  
       02223  0 50000 4 02257 HVNOX  CLA XTABLE+1,4                                                               
       02224  0 62100 0 02225        STA TSHTRA                                                                   
 A     02225  0 02000 0 00000 TSHTRA TRA                                                                          
       02226 +000316000000           OCT 000316000000                                                             
       02227  0 00000 0 02257        HTR SAVEB1                                                                   
       02230 +000327000000           OCT 000327000000                                                             
       02231  0 00000 0 02261        HTR SAVEB2                                                                   
       02232 +000337000000           OCT 000337000000                                                             
       02233  0 00000 0 02262        HTR SAVEB3                                                                   
       02234 +000352000000           OCT 000352000000                                                             
       02235  0 00000 0 02263        HTR TIFOB                                                                    
       02236 +000374000000           OCT 000374000000                                                             
       02237  0 00000 0 02265        HTR TRADX1                                                                   
       02240 +000421000000           OCT 000421000000                                                             
       02241  0 00000 0 02267        HTR TRADX2                                                                   
       02242 +000443000000           OCT 000443000000                                                             
       02243  0 00000 0 02271        HTR TIF3B1                                                                   
       02244 +000453000000           OCT 000453000000                                                             
       02245  0 00000 0 02273        HTR TIF3B2                                                                   
       02246 +000467000000           OCT 000467000000                                                             
       02247  0 00000 0 02274        HTR TIF4B1,                                                                  
       02250 +000477000000           OCT 000477000000                                                             
       02251  0 00000 0 02276        HTR TIF4B2                                                                   
       02252 +000513000000           OCT 000513000000                                                             
       02253  0 00000 0 02277        HTR TIF5B1                                                                   
       02254 +000523000000           OCT 000523000000                                                             
       02255  0 00000 0 02300        HTR TIF5B2                                                                   
       02256  0 00030 0 00000 XTABLE HTR 0,0,24                                                                   
       02257  0 50000 0 01541 SAVEB1 CLA ADTMI                                                                    
       02260  0 02000 0 02301        TRA NOXBTA                                                                   
       02261  0 02000 0 02257 SAVEB2 TRA SAVEB1                                                                   
       02262  0 02000 0 02257 SAVEB3 TRA SAVEB1                                                                   
       02263  0 50000 0 01542 TIFOB  CLA ADTZR                                                                    
       02264  0 02000 0 02301        TRA NOXBTA                                                                   
       02265  0 50000 0 01543 TRADX1 CLA ADT1                                                                     
       02266  0 02000 0 02301        TRA NOXBTA                                                                   
       02267  0 50000 0 01544 TRADX2 CLA ADT2                                                                     
       02270  0 02000 0 02301        TRA NOXBTA                                                                   
       02271  0 50000 0 01545 TIF3B1 CLA ADT3                                                                     
       02272  0 02000 0 02301        TRA NOXBTA                                                                   
       02273  0 02000 0 02271 TIF3B2 TRA TIF3B1                                                                   
       02274  0 50000 0 01546 TIF4B1 CLA ADT4                                                                     
       02275  0 02000 0 02301        TRA NOXBTA                                                                   
       02276  0 02000 0 02274 TIF4B2 TRA TIF4B1                                                                   
       02277  0 02000 0 02300 TIF5B1 TRA TIF5B2                                                                   
       02300  0 50000 0 01547 TIF5B2 CLA ADT5                                                                     
       02301  0 62100 0 02343 NOXBTA STA ADDTD             A TIFGO STATEMENT HAS ATTEMPTED TO                     
       02302  0 40000 0 02401        ADD DEC34             TURN OVER CONTROL OF THE PROGRAM TO A                  
       02303  0 76700 0 00022        ALS 18                NON EXECUTABLE STATEMENT                               
       02304  0 62200 0 02343        STD ADDTD                                                                    
       02305  0 50000 1 77776        CLA LIST-1,1          GET EXTERNAL NUMBER OF TIFGO ENTRY                     
       02306  0 07400 4 00613        TSX EXBETA,4                                                                 
       02307  0 07400 4 00602        TSX LAJUST,4                                                                 
       02310  0 60200 0 01257        SLW ERAS                                                                     
       02311 -0 50000 0 02364        CAL TIFOR                                                                    
       02312  0 77100 0 00014        ARS 12                                                                       
       02313  0 56000 0 01257        LDQ ERAS                                                                     
       02314 -0 76300 0 00014        LGL 12                                                                       
       02315  0 60200 0 02364        SLW TIFOR                                                                    
       02316 -0 76300 0 00030        LGL 24                                                                       
       02317  0 56000 0 00717        LDQ BLANKS                                                                   
       02320 -0 76300 0 00014        LGL 12                                                                       
       02321  0 60200 0 02365        SLW TIFOR+1                                                                  
       02322  0 50000 1 77776        CLA LIST-1,1          GET EXTERNAL NUMBER OF STATEMENT                       
       02323  0 77100 0 00022        ARS 18                WHICH IS NOT EXECUTABLE                                
       02324  0 07400 4 00613        TSX EXBETA,4                                                                 
       02325  0 07400 4 00602        TSX LAJUST,4                                                                 
       02326  0 60200 0 01257        SLW ERAS                                                                     
       02327 -0 50000 0 02351        CAL NONB-1                                                                   
       02330  0 56000 0 01257        LDQ ERAS                                                                     
       02331  0 77100 0 00006        ARS 6                                                                        
       02332 -0 76300 0 00006        LGL 6                                                                        
       02333  0 60200 0 02351        SLW NONB-1                                                                   
       02334 -0 76300 0 00036        LGL 30                                                                       
       02335  0 56000 0 00717        LDQ BLANKS                                                                   
       02336 -0 76300 0 00006        LGL 6                                                                        
       02337  0 60200 0 02352        SLW NONB                                                                     
       02340  0 07400 4 00740        TSX PRINT,4                                                                  
       02341  0 02401 0 02345        HTR BTNONX,0,BTNONX+28                                                       
       02342  0 07400 4 00740        TSX PRINT,4                                                                  
 A     02343  0 00000 0 00000 ADDTD  HTR                                                                          
       02344  1 00002 1 01334        TXI NXTER,1,2         2WORD ENTRY IN ERROR LIST                              
       02345  606060606060    BTNONX BCD 2                                                                        
       02346  606060606060    
       02347  626321632544           BCD 2STATEMENT NU                                                            
       02350  254563604564    
       02351  442225516060           BCD 1MBER                                                                    
 A     02352  0 00000 0 00000 NONB   HTR                                                                          
       02353  316260454663           BCD 9IS NOT EXECUTABLE.  IT IS REFERRED TO BY STATEMENT NUM                  
       02354  602567252364    
       02355  632122432533    
       02356  606031636031    
       02357  626051252625    
       02360  515125246063    
       02361  466022706062    
       02362  632163254425    
       02363  456360456444    
       02364  222551606060    TIFOR  BCD 7BER                                                                     
       02365  606060606060    
       02366  606060606060    
       02367  606060606060    
       02370  606060606060    
       02371  606060606060    
       02372  606060606060    
       02373  663031233060           BCD 6WHICH IS OF THE FOLLOWING TYPE                                          
       02374  316260462660    
       02375  633025602646    
       02376  434346663145    
       02377  276063704725    
       02400  606060606060    
       02401  0 00000 0 00042 DEC34  HTR 34                                                                       
       02402  0 50000 1 77776 DOBTNX CLA LIST-1,1          BETA IS NOT AN EXECUTABLE STATEMENT                    
       02403  0 60100 0 00527        STO ALFBET            IN ALPHA DO BETA                                       
       02404  0 50000 1 77775        CLA LIST-2,1                                                                 
       02405  0 60100 0 00530        STO SYM                                                                      
       02406  0 07400 4 00740        TSX PRINT,4                                                                  
       02407  0 02426 0 02412        HTR DOBTX,0,DOBTX+12                                                         
       02410  0 07400 4 00505        TSX FX4PR,4           PRINT DO STATEMENT                                     
       02411  1 00003 1 01334        TXI NXTER,1,3         3 WORD ENTRY IN ERROR LIST                             
       02412  606060606060    DOBTX  BCD 2                                                                        
       02413  606060606060    
       02414  633025605121           BCD  THE RANGE OF THIS DO ENDS WITH A NON-EXECUTABLE STATEMENT               
       02415  452725604626    
       02416  606330316260    
       02417  244660254524    
       02420  626066316330    
       02421  602160454645    
       02422  402567252364    
       02423  632122432560    
       02424  626321632544    
       02425  254563606060    
       02426  0 50000 1 77776 CONBET CLA LIST-1,1          IN ALPHA DO BETA, BETA IS A CONDITIONAL                
       02427  0 60100 0 00527        STO ALFBET            TRANSFER, THAT IS, A TIFGO ENTRY                       
       02430  0 50000 1 77775        CLA LIST-2,1                                                                 
       02431  0 60100 0 00530        STO SYM                                                                      
       02432  0 07400 4 00740        TSX PRINT,4                                                                  
       02433  0 02453 0 02436        HTR CONBT,0,CONBT+13                                                         
       02434  0 07400 4 00505        TSX FX4PR,4           PRINT DO STATEMENT                                     
       02435  1 00003 1 01334        TXI NXTER,1,3         3 WORD ENTRY IN ERROR LIST                             
       02436  606060606060    CONBT  BCD 2                                                                        
       02437  606060606060    
       02440  633025605121           BCD  THE RANGE OF THIS DO ENDS WITH A CONDITIONAL TRANSFER STATEM            
       02441  452725604626    
       02442  606330316260    
       02443  244660254524    
       02444  626066316330    
       02445  602160234645    
       02446  243163314645    
       02447  214360635121    
       02450  456226255160    
       02451  626321632544    
       02452  254563606060           BCD 1ENT                                                                     
       02453  0 50000 1 77776 DOALNX CLA LIST-1,1          ALPHA PLUS 1, IN ALPHA D0 BETA,                        
       02454  0 60100 0 00527        STO ALFBET            IS NOT EXECUTABLE                                      
       02455  0 50000 1 77775        CLA LIST-2,1                                                                 
       02456  0 60100 0 00530        STO SYM                                                                      
       02457  0 07400 4 00740        TSX PRINT,4                                                                  
       02460  0 02502 0 02463        HTR DOALX,0,DOALX+15                                                         
       02461  0 07400 4 00505        TSX FX4PR,4           PRINT DO STATEMENT                                     
       02462  1 00003 1 01334        TXI NXTER,1,3         3 WORD ENTRIES IN ERROR LIST                           
       02463  606060606060    DOALX  BCD 2                                                                        
       02464  606060606060    
       02465  633025606263           BCD  THE STATEMENT IMMEDIATELY FOLLOWING THIS DO IS NOT AN EXECUT            
       02466  216325442545    
       02467  636031444425    
       02470  243121632543    
       02471  706026464343    
       02472  466631452760    
       02473  633031626024    
       02474  466031626045    
       02475  466360214560    
       02476  256725236463    
       02477  212243256062           BCD 3ABLE STATEMENT                                                          
       02500  632163254425    
       02501  456360606060    
       02502  0 50000 1 77777 CHBTSX CLA LIST,1            THE SYMBOL, OR A VARIABLE IN A DO STATEMENT            
       02503  0 76700 0 00022        ALS 18                DOES NOT BEGIN WITH I J K ETC                          
       02504 -0 32000 0 01230        ANA DECMSK                                                                   
       02505  0 40200 0 01234        SUB PREFX1            CONVERT TSX TO NUMBER OF STOP WHERE THIS               
       02506 -0 32000 0 01230        ANA DECMSK                                                                   
       02507  0 53400 4 01232        LXA ZERO,4            WAS PICKED UP                                          
       02510  0 34000 4 02621 CHBCAS CAS BLIST-1,4         DETERMINE WHETHER SYMBOL, N1, N2 OR N3                 
       02511  0 02000 0 02513        TRA CHBTXI                                                                   
       02512  0 02000 0 02516        TRA HVCHB                                                                    
       02513  1 00002 4 02514 CHBTXI TXI CHBTXL,4,2                                                               
       02514 -3 00006 4 02510 CHBTXL TXL CHBCAS,4,6                                                               
       02515  0 02000 0 01330        TRA NO                CANNOT IDENTIFY, PRINT ERROR RECORD ZERO               
       02516 -0 50000 4 02622 HVCHB  CAL BLIST,4           BCD FOR N1,N2 OR N3, BUT INDEXING                      
       02517  0 10000 0 02623        TZE CHBDO             SYMBOL IS ZERO, WILL BE PROCESS BY ITSELF              
       02520  0 56000 4 02622        LDQ BLIST,4                                                                  
       02521 -0 50000 0 02602        CAL THE               MOVE PARAMETER INTO COMMENT                            
       02522  0 77100 0 00014        ARS 12                                                                       
       02523 -0 76300 0 00014        LGL 12                                                                       
       02524  0 60200 0 02602        SLW THE                                                                      
       02525 -0 76300 0 00006        LGL 6                                                                        
       02526  0 56000 0 02603        LDQ THE+1                                                                    
       02527 -0 77300 0 00006        RQL 6                 SHIFT FIRST BLANK OUT OF MQ                            
       02530 -0 76300 0 00036        LGL 30                                                                       
       02531  0 60200 0 02603        SLW THE+1                                                                    
       02532  0 50000 1 77775        CLA LIST-2,1          ARRANGE TO PRINT DO STATEMENT                          
       02533  0 60100 0 00527        STO ALFBET                                                                   
       02534  0 50000 1 77774        CLA LIST-3,1                                                                 
       02535  0 60100 0 00530        STO SYM                                                                      
       02536 -0 50000 1 77776        CAL LIST-1,1          REMOVE ZEROS FROM VARIABLE NAME AND                    
       02537  0 07400 4 00543        TSX ZEROUT,4          ADJUST TO RIGHT                                        
       02540  0 07400 4 00565        TSX RAJUST,4                                                                 
       02541  0 60200 0 01257        SLW ERAS                                                                     
       02542  0 56000 0 01257        LDQ ERAS                                                                     
       02543 -0 50000 0 02606        CAL DOPRAM            PUT HALF OF WORD IN COMMENT                            
       02544  0 77100 0 00014        ARS 12                                                                       
       02545 -0 76300 0 00014        LGL 12                                                                       
       02546  0 60200 0 02606        SLW DOPRAM                                                                   
       02547 -0 76300 0 00030        LGL 24                                                                       
       02550  0 56000 0 02607        LDQ DOPRAM+1          PUT IN OTHER HALF                                      
       02551 -0 77300 0 00030        RQL 24                                                                       
       02552 -0 76300 0 00014        LGL 12                                                                       
       02553  0 60200 0 02607        SLW DOPRAM+1                                                                 
       02554  0 07400 4 00740        TSX PRINT,4                                                                  
       02555  0 02600 0 02562        HTR VRBL,0,VRBL+14                                                           
       02556  0 07400 4 00505        TSX FX4PR,4           PRINT DO STATEMENT                                     
       02557  0 07400 4 00740        TSX PRINT,4                                                                  
       02560  0 02613 0 02600        HTR VRPR,0,VRPR+11                                                           
       02561  1 00004 1 01334        TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                           
       02562  606060606060    VRBL   BCD 2                                                                        
       02563  606060606060    
       02564  214560314563           BCD  AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N.  IN THE             
       02565  252725516065    
       02566  215131212243    
       02567  256044646263    
       02570  602225273145    
       02571  606631633060    
       02572  316041604260    
       02573  436044604651    
       02574  604533606031    
       02575  456063302560    
       02576  244660626321           BCD 2DO STATEMENT                                                            
       02577  632544254563    
       02600  606060606060    VRPR   BCD 2                                                                        
       02601  606060606060    
       02602  633025606060    THE    BCD 1THE                                                                     
       02603  606031452425           BCD 3  INDEXING PARAMET                                                      
       02604  673145276047    
       02605  215121442563    
       02606  255173606060    DOPRAM BCD 1ER,                                                                     
       02607  606060607360           BCD 4    , IS INCORRECT.                                                     
       02610  316260314523    
       02611  465151252363    
       02612  336060606060    
       02613 +000716000000           OCT 000716000000                                                             
       02614  035124606060           BCD 13RD              IJKN3 IN NON-ARITH DIAG                                
       02615 +000703000000           OCT 000703000000                                                             
       02616  024524606060           BCD 12ND              IJKN2                                                  
       02617 +000670000000           OCT 000670000000                                                             
       02620  016263606060           BCD 11ST              IJKN1                                                  
       02621 +000656000000           OCT 000656000000      IJKSYM                                                 
       02622  0 00000 0 00000 BLIST  HTR 0                 ZERO INDICATES TO PR0GRAM THIS IS SYMBOL               
       02623  0 50000 1 77775 CHBDO  CLA LIST-2,1          ARRANGE TO PRINT DO STATEMENT                          
       02624  0 60100 0 00527        STO ALFBET                                                                   
       02625  0 50000 1 77774        CLA LIST-3,1                                                                 
       02626  0 60100 0 00530        STO SYM                                                                      
       02627  0 07400 4 00740        TSX PRINT,4                                                                  
       02630  0 02656 0 02633        HTR CHDOPR,0,CHDOPR+19                                                       
       02631  0 07400 4 00505        TSX FX4PR,4                                                                  
       02632  1 00004 1 01334        TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                           
       02633  606060606060    CHDOPR BCD 2                                                                        
       02634  606060606060    
       02635  214560314563           BCD  AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N.  THE IND            
       02636  252725516065    
       02637  215131212243    
       02640  256044646263    
       02641  602225273145    
       02642  606631633060    
       02643  316041604260    
       02644  436044604651    
       02645  604533606063    
       02646  302560314524    
       02647  256760627044           BCD 7EX SYMBOL IS INCORRECT IN THE STATEMENT                                 
       02650  224643603162    
       02651  603145234651    
       02652  512523636031    
       02653  456063302560    
       02654  626321632544    
       02655  254563606060    
       02656 -0 53400 2 01232 CHATSX LXD ZERO,2            AN ILLEGAL CHARACTER HAS BEEN FOUND IN                 
       02657  0 50000 1 77777        CLA LIST,1            SOME NAME                                              
       02660  0 76700 0 00022        ALS 18                UNCOMPLIMENTED LOCATION WILL SHOW                      
       02661 -0 32000 0 01230        ANA DECMSK            KIND OF STATEMENT USING THIS NAME                      
       02662  0 40200 0 01234        SUB PREFX1                                                                   
       02663 -0 32000 0 01230        ANA DECMSK                                                                   
       02664  0 34000 2 02704 CB     CAS CHA2WD,2          IS THIS FROM ONE OF THE SIZ, COMMON                    
       02665  0 02000 0 02667        TRA TXIC              FUNCTION ETC., STATEMENTS                              
       02666  0 02000 0 02717        TRA PR2WD                                                                    
       02667  1 00002 2 02670 TXIC   TXI CA,2,2                                                                   
       02670 -3 00006 2 02664 CA     TXL CB,2,6                                                                   
       02671  0 34000 2 02716 CC     CAS CHA3WD,2          OR DOES THE NAME APPEAR IN A D0 STATEMENT              
       02672  0 02000 0 02674        TRA CTIX                                                                     
       02673  0 02000 0 03020        TRA PR3WD                                                                    
       02674  2 00002 2 02671 CTIX   TIX CC,2,2                                                                   
       02675  0 02000 0 01330        TRA NO                PRINT UNIDENTIFYABLE STOP                              
       02676 +000131000000           OCT 000131000000                                                             
       02677  0 00000 0 03000        HTR FRSB              TSXA IN NON ARITH DIAG                                 
       02700 +000143000000           OCT 000143000000                                                             
       02701  0 00000 0 02770        HTR SZ                TSXB                                                   
       02702 +000163000000           OCT 000163000000                                                             
       02703  0 00000 0 03010        HTR SBAR              TSXC                                                   
       02704 +000175000000    CHA2WD OCT 000175000000                                                             
       02705  0 00000 0 02760        HTR CMON              TSXD                                                   
       02706 +000653000000           OCT 000653000000                                                             
       02707  0 00000 0 00000        HTR 0                 PUNSYN                                                 
       02710 +000665000000           OCT 000665000000                                                             
       02711  600162636031           BCD 1 1ST I           PUNN1                                                  
       02712 +000700000000           OCT 000700000000                                                             
       02713  600245246031           BCD 1 2ND I           PUNN2                                                  
       02714 +000713000000           OCT 000713000000                                                             
       02715  600351246031           BCD 1 3RD I           PUNN3                                                  
       02716  0 00000 0 00000 CHA3WD                                                                              
       02717  0 50000 2 02705 PR2WD  CLA CHA2WD+1,2        PRINT IDENTIFICATION OF STATEMENT                      
       02720  0 62100 0 02722        STA CHACLA            IN WHICH NAME WAS FOUND                                
       02721 -0 53400 2 01232        LXD ZERO,2            TRANSFER 8 WORDS ABOUT STATEMENT                       
       02722  0 50000 2 00000 CHACLA CLA 0,2               INTO COMMENT                                           
       02723  0 60100 2 02750        STO DA,2                                                                     
       02724  1 77777 2 02725        TXI CHATXH,2,-1                                                              
       02725  3 77770 2 02722 CHATXH TXH CHACLA,2,-8                                                              
       02726 -0 50000 1 77776        CAL LIST-1,1                                                                 
       02727  0 07400 4 00543        TSX ZEROUT,4          UNPACK NAME AND MOVE TO RIGHT                          
       02730  0 07400 4 00565        TSX RAJUST,4                                                                 
       02731  0 60200 0 02741        SLW D                                                                        
       02732  0 07400 4 00740        TSX PRINT,4                                                                  
       02733  0 02760 0 02735        HTR PRCHA,0,PRCHA+19                                                         
       02734  1 00002 1 01334        TXI NXTER,1,2         2 WORD ENTRY IN ERROR LIST                             
       02735  606060606060    PRCHA  BCD 2                                                                        
       02736  606060606060    
       02737  633025606270           BCD 2THE SYMBOL,                                                             
       02740  442246437360    
 A     02741  0 00000 0 00000 D      HTR                                                                          
       02742  736023464563           BCD 6, CONTAINS AN ILLEGAL CHARACTER.  IT                                    
       02743  213145626021    
       02744  456031434325    
       02745  272143602330    
       02746  215121236325    
       02747  513360603163    
       02750  606060606060    DA     BCD 8                                                                        
       02751  606060606060    
       02752  606060606060    
       02753  606060606060    
       02754  606060606060    
       02755  606060606060    
       02756  606060606060    
       02757  606060606060    
       02760  602147472521    CMON   BCD 8 APPEARS IN A COMMON STATEMENT.                                         
       02761  516260314560    
       02762  216023464444    
       02763  464560626321    
       02764  632544254563    
       02765  336060606060    
       02766  606060606060    
       02767  606060606060    
       02770  602147472521    SZ     BCD 8 APPEARS IN A DIMENSION STATEMENT.                                      
       02771  516260314560    
       02772  216024314425    
       02773  456231464560    
       02774  626321632544    
       02775  254563336060    
       02776  606060606060    
       02777  606060606060    
       03000  602147472521    FRSB   BCD 8 APPEARS AS THE NAME OF A FORTRAN FUNCTION.                             
       03001  516260216260    
       03002  633025604521    
       03003  442560462660    
       03004  216026465163    
       03005  512145602664    
       03006  452363314645    
       03007  336060606060    
       03010  602147472521    SBAR   BCD 8 APPEARS AS AN ARGUMENT OF A SUBROUTINE.                                
       03011  516260216260    
       03012  214560215127    
       03013  644425456360    
       03014  462660216062    
       03015  642251466463    
       03016  314525336060    
       03017  606060606060    
       03020  0 50000 2 02717 PR3WD  CLA CHA3WD+1,2        1ST,2ND,OR 3RD PARAMETER                               
       03021  0 10000 0 03060        TZE SYMDO             ZERO IF SYMBOL REFERED TO                              
       03022  0 60100 0 03047        STO PAR                                                                      
       03023 -0 50000 1 77776        CAL LIST-1,1          UNPACK NAME AND MOVE TO RIGHT                          
       03024  0 07400 4 00543        TSX ZEROUT,4                                                                 
       03025  0 07400 4 00565        TSX RAJUST,4                                                                 
       03026  0 60200 0 03053        SLW WRPAR                                                                    
       03027  0 07400 4 00740        TSX PRINT,4                                                                  
       03030  0 03060 0 03037        HTR PARAPR,0,PARAPR+17                                                       
       03031  0 50000 1 77775        CLA LIST-2,1          PRINT ALPHA TO BETA STATEMENT AND                      
       03032  0 60100 0 00527        STO ALFBET            SYMBOL                                                 
       03033  0 50000 1 77774        CLA LIST-3,1                                                                 
       03034  0 60100 0 00530        STO SYM                                                                      
       03035  0 07400 4 00505        TSX FX4PR,4                                                                  
       03036  1 00004 1 01334        TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                           
       03037  606060606060    PARAPR BCD 2                                                                        
       03040  606060606060    
       03041  633025512560           BCD 6THERE IS AN ILLEGAL CHARACTER IN THE                                    
       03042  316260214560    
       03043  314343252721    
       03044  436023302151    
       03045  212363255160    
       03046  314560633025    
 A     03047  0 00000 0 00000 PAR    HTR                                                                          
       03050  452425673145           BCD 3NDEXING PARAMETER                                                       
       03051  276047215121    
       03052  442563255160    
 A     03053  0 00000 0 00000 WRPAR  HTR                                                                          
       03054  736046266063           BCD 4, OF THE DO STATEMENT                                                   
       03055  302560244660    
       03056  626321632544    
       03057  254563606060    
       03060  0 07400 4 00740 SYMDO  TSX PRINT,4                                                                  
       03061  0 03106 0 03070        HTR SYMDPR,0,SYMDPR+14                                                       
       03062  0 50000 1 77775        CLA LIST-2,1                                                                 
       03063  0 60100 0 00527        STO ALFBET            PRINT ALPHA DO BETA FOR SYMBOL                         
       03064  0 50000 1 77774        CLA LIST-3,1          WITH ILLEGAL CHARACTER                                 
       03065  0 60100 0 00530        STO SYM                                                                      
       03066  0 07400 4 00505        TSX FX4PR,4                                                                  
       03067  1 00004 1 01334        TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                           
       03070  606060606060    SYMDPR BCD 2                                                                        
       03071  606060606060    
       03072  633025512560           BCD  THERE IS AN ILLEGAL CHARACTER IN THE INDEXING SYMBOL OF THE             
       03073  316260214560    
       03074  314343252721    
       03075  436023302151    
       03076  212363255160    
       03077  314560633025    
       03100  603145242567    
       03101  314527606270    
       03102  442246436046    
       03103  266063302560    
       03104  244660626321           BCD 2DO STATEMENT                                                            
       03105  632544254563    
       03106  0 50000 1 77777 NOTRA  CLA LIST,1            ALPHA+1,INTERNAL FORMULA NUMBER,                       
       03107 -0 32000 0 01227        ANA ADDMSK            IN ADDRESS OF LIST. THIS IS NUMBER OF AN               
       03110  0 07400 4 00613        TSX EXBETA,4          EXECUTABLE STATEMENT WHICH FOLLOWS A                   
       03111  0 07400 4 00602        TSX LAJUST,4          TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER              
       03112  0 60200 0 03137        SLW EXTN1             TRANSFERED TO IN THE FLOW OF THE PROBLEM               
       03113  0 07400 4 00740        TSX PRINT,4                                                                  
       03114  0 03140 0 03116        HTR PRNOTR,0,PRNOTR+18                                                       
       03115  1 00001 1 01334        TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                             
       03116  606060606060    PRNOTR BCD 2                                                                        
       03117  606060606060    
       03120  216047215163           BCD  A PART OF THE PROGRAM CANNOT BE REACHED.  IT IS LOCATED AT O            
       03121  604626606330    
       03122  256047514627    
       03123  512144602321    
       03124  454546636022    
       03125  256051252123    
       03126  302524336060    
       03127  316360316260    
       03130  434623216325    
       03131  246021636046    
       03132  516041646263           BCD 5R JUST BELOW STATEMENT NUMBER                                           
       03133  602225434666    
       03134  606263216325    
       03135  442545636045    
       03136  644422255160    
 A     03137  0 00000 0 00000 EXTN1  HTR                                                                          
       03140  0 50000 1 77777 FRETIF CLA LIST,1            INTERNAL FORMULA NUMBER                                
       03141  0 07400 4 00613        TSX EXBETA,4          IN ADDRESS OF LIST. SECTION 4 WILL STOP                
       03142  0 07400 4 00602        TSX LAJUST,4          WHEN THERE ARE MORE BRANCHES THAN                      
       03143  0 60200 0 03165        SLW FRALFA            NECESSARY FOR A TIFGO ENTRY.                           
       03144  0 07400 4 00740        TSX PRINT,4                                                                  
       03145  0 03166 0 03147        HTR PRFREQ,0,PRFREQ+15                                                       
       03146  1 00001 1 01334        TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                             
       03147  606060606060    PRFREQ BCD 2                                                                        
       03150  606060606060    
       03151  216026512550           BCD  A FREQUENCY STATEMENT CONTAINS TOO MANY BRANCHES FOR THE FOR            
       03152  642545237060    
       03153  626321632544    
       03154  254563602346    
       03155  456321314562    
       03156  606346466044    
       03157  214570602251    
       03160  214523302562    
       03161  602646516063    
       03162  302560264651    
       03163  446443216045           BCD 2MULA NUMBER                                                             
       03164  644422255160    
 A     03165  0 00000 0 00000 FRALFA HTR                                                                          
       03166 -0 50000 1 77776 NOTEQV CAL LIST-1,1          THIS IS STILL IN BCD FORM, BUT MAY BE                  
       03167  0 07400 4 00543        TSX ZEROUT,4          FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME               
       03170  0 60200 0 03221        SLW EQWD              HAS BEEN ASSIGNED INCONSISTANT VALUES IN               
       03171  0 56000 0 03221        LDQ EQWD              EQUIVALENCE STATEMENTS                                 
       03172 -0 50000 0 03220        CAL EQWD-1                                                                   
       03173  0 77100 0 00014        ARS 12                MOVE WORD INTO REST OF COMMENT                         
       03174 -0 76300 0 00014        LGL 12                                                                       
       03175  0 60200 0 03220        SLW EQWD-1                                                                   
       03176 -0 76300 0 00030        LGL 24                                                                       
       03177  0 56000 0 00717        LDQ BLANKS                                                                   
       03200 -0 76300 0 00014        LGL 12                                                                       
       03201  0 60200 0 03221        SLW EQWD                                                                     
       03202  0 07400 4 00740        TSX PRINT,4                                                                  
       03203  0 03222 0 03205        HTR PREQ,0,PREQ+13                                                           
       03204  1 00002 1 01334        TXI NXTER,1,2         2 WORD ENTRIES IN ERROR LIST                           
       03205  606060606060    PREQ   BCD 2                                                                        
       03206  606060606060    
       03207  214560314523           BCD  AN INCONSISTENT EQUIVALENCE STATEMENT HAS BEEN MADE ABOUT               
       03210  464562316263    
       03211  254563602550    
       03212  643165214325    
       03213  452325606263    
       03214  216325442545    
       03215  636030216260    
       03216  222525456044    
       03217  212425602122    
       03220  466463606060    
 A     03221  0 00000 0 00000 EQWD   HTR                                                                          
       03222  0 07400 4 00740 BADWC  TSX PRINT,4                                                                  
       03223  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       03224  0 50000 1 77776        CLA LIST-1,1                                                                 
       03225  0 07400 4 00730        TSX OCTBCD,4                                                                 
       03226  0 60200 0 01257        SLW ERAS                                                                     
       03227  0 56000 0 01257        LDQ ERAS                                                                     
       03230 -0 50000 0 03314        CAL BDWD                                                                     
       03231  0 77100 0 00030        ARS 24                                                                       
       03232 -0 76300 0 00030        LGL 24                                                                       
       03233  0 60200 0 03314        SLW BDWD                                                                     
       03234 -0 76300 0 00014        LGL 12                                                                       
       03235  0 56000 0 00717        LDQ BLANKS                                                                   
       03236 -0 76300 0 00030        LGL 24                                                                       
       03237  0 60200 0 03315        SLW BDWD+1                                                                   
       03240  0 07400 4 00740        TSX PRINT,4                                                                  
       03241  0 03410 0 03300        HTR PRBDWC,0,PRBDWC+72                                                       
       03242  0 02000 0 03275        TRA ENDMAC                                                                   
       03243  0 07400 4 00740 NOIDEN TSX PRINT,4                                                                  
       03244  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       03245  0 50000 1 77776        CLA LIST-1,1                                                                 
       03246  0 07400 4 00730        TSX OCTBCD,4                                                                 
       03247  0 60200 0 01257        SLW ERAS                                                                     
       03250  0 56000 0 01257        LDQ ERAS                                                                     
       03251 -0 50000 0 03423        CAL IDENWD                                                                   
       03252  0 77100 0 00022        ARS 18                                                                       
       03253 -0 76300 0 00022        LGL 18                                                                       
       03254  0 60200 0 03423        SLW IDENWD                                                                   
       03255 -0 76300 0 00022        LGL 18                                                                       
       03256  0 56000 0 03424        LDQ IDENWD+1                                                                 
       03257 -0 77300 0 00022        RQL 18                                                                       
       03260 -0 76300 0 00022        LGL 18                                                                       
       03261  0 60200 0 03424        SLW IDENWD+1                                                                 
       03262  0 07400 4 00740        TSX PRINT,4                                                                  
       03263  0 03431 0 03410        HTR PRNOI,0,PRNOI+17                                                         
       03264  0 07400 4 00740        TSX PRINT,4                                                                  
       03265  0 03410 0 03350        HTR MACHER,0,MACHER+32                                                       
       03266  0 02000 0 03275        TRA ENDMAC                                                                   
       03267  0 07400 4 00740 WHATIF TSX PRINT,4                                                                  
       03270  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       03271  0 07400 4 00740        TSX PRINT,4                                                                  
       03272  0 03446 0 03431        HTR NOTIF,0,NOTIF+13                                                         
       03273  0 07400 4 00740        TSX PRINT,4                                                                  
       03274  0 03364 0 03350        HTR MACHER,0,MACHER+12                                                       
       03275  0 50000 0 00316 ENDMAC CLA HTR4              SET RETURN SO PROBLEM CAN BE                           
       03276  0 60100 0 00266        STO DONE              RE-RUN FOR MACHINE ERROR                               
       03277  0 02000 0 00230        TRA RESTRT                                                                   
       03300  606060606060    PRBDWC BCD 2                                                                        
       03301  606060606060    
       03302  255151465160           BCD  ERROR IN READING RECORD FROM TAPE 2.  RECORD IDENTIFICATION             
       03303  314560512521    
       03304  243145276051    
       03305  252346512460    
       03306  265146446063    
       03307  214725600233    
       03310  606051252346    
       03311  512460312425    
       03312  456331263123    
       03313  216331464560    
       03314  316260606060    BDWD   BCD  IS                                                                      
       03315  606060606060    
       03316  606060606060    
       03317  606060606060    
       03320  606060606060    
       03321  606060606060    
       03322  606060606060    
       03323  606060606060    
       03324  606060606060    
       03325  606060606060    
       03326  664651246023           BCD  WORD COUNT DOES NOT AGREE WITH COUNT IN RECORD.                         
       03327  466445636024    
       03330  462562604546    
       03331  636021275125    
       03332  256066316330    
       03333  602346644563    
       03334  603145605125    
       03335  234651243360    
       03336  606060606060    
       03337  606060606060    
       03340  606060606060           BCD 8                                                                        
       03341  606060606060    
       03342  606060606060    
       03343  606060606060    
       03344  606060606060    
       03345  606060606060    
       03346  606060606060    
       03347  606060606060    
       03350  606060606060    MACHER BCD 2                                                                        
       03351  606060606060    
       03352  475146222122           BCD  PROBABLY MACHINE ERROR WHEN TABLE WAS COMPILED BY 1 PRIME.              
       03353  437060442123    
       03354  303145256025    
       03355  515146516066    
       03356  302545606321    
       03357  224325606621    
       03360  626023464447    
       03361  314325246022    
       03362  706001604751    
       03363  314425336060    
       03364  606060606060           BCD                                                                          
       03365  606060606060    
       03366  606060606060    
       03367  606060606060    
       03370  606060606060    
       03371  606060606060    
       03372  606060606060    
       03373  606060606060    
       03374  606060606060    
       03375  606060606060    
       03376  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       03377  636325444763    
       03400  626030216525    
       03401  602225254560    
       03402  442124256063    
       03403  466051252124    
       03404  606330316260    
       03405  512523465124    
       03406  602346515125    
       03407  236343703360    
       03410  606060606060    PRNOI  BCD 2                                                                        
       03411  606060606060    
       03412  512523465124           BCD 9RECORD FROM TAPE 2 CANNOT BE IDENTIFIED.  THIS RECORD                   
       03413  602651464460    
       03414  632147256002    
       03415  602321454546    
       03416  636022256031    
       03417  242545633126    
       03420  312524336060    
       03421  633031626051    
       03422  252346512460    
       03423  302162606060    IDENWD BCD 1HAS                                                                     
       03424  606060603145           BCD 5    IN ADDRESS OF FIRST WORD.                                           
       03425  602124245125    
       03426  626260462660    
       03427  263151626360    
       03430  664651243360    
       03431  606060606060    NOTIF  BCD 2                                                                        
       03432  606060606060    
       03433  254563517060           BCD  ENTRY IN TIFGO, RECORD 6, FILE 5, TAPE 2, CANNOT BE IDENTIFI            
       03434  314560633126    
       03435  274673605125    
       03436  234651246006    
       03437  736026314325    
       03440  600573606321    
       03441  472560027360    
       03442  232145454663    
       03443  602225603124    
       03444  254563312631    
       03445  252433606060           BCD 1ED.                                                                     
       03446 +000301000000           OCT 000301000000                                                             
       03447  0 00000 0 03267        HTR WHATIF                                                                   
       03450 +001125000000           OCT 001125000000                                                             
       03451  0 00000 0 02502        HTR CHBTSX                                                                   
       03452 +000650000000           OCT 000650000000                                                             
       03453  0 00000 0 02453        HTR DOALNX                                                                   
       03454 +000641000000           OCT 000641000000                                                             
       03455  0 00000 0 02402        HTR DOBTNX                                                                   
       03456 +000727000000           OCT 000727000000                                                             
       03457  0 00000 0 02426        HTR CONBET                                                                   
       03460 +000623000000           OCT 000623000000                                                             
       03461  0 00000 0 01436        HTR DONOBT                                                                   
       03462 +001062000000           OCT 001062000000                                                             
       03463  0 00000 0 02210        HTR TSXH                                                                     
       03464 +000534000000           OCT 000534000000                                                             
       03465  0 00000 0 01434        HTR TIF6B                                                                    
       03466 +000521000000           OCT 000521000000                                                             
       03467  0 00000 0 01432        HTR B2TIF5                                                                   
       03470 +000511000000           OCT 000511000000                                                             
       03471  0 00000 0 01430        HTR B1TIF5                                                                   
       03472 +000475000000           OCT 000475000000                                                             
       03473  0 00000 0 01426        HTR B2TIF4                                                                   
       03474 +000465000000           OCT 000465000000                                                             
       03475  0 00000 0 01424        HTR B1TIF4                                                                   
       03476 +000451000000           OCT 000451000000                                                             
       03477  0 00000 0 01422        HTR B2TIF3                                                                   
       03500 +000441000000           OCT 000441000000                                                             
       03501  0 00000 0 01420        HTR B1TIF3                                                                   
       03502 +000417000000           OCT 000417000000                                                             
       03503  0 00000 0 01416        HTR BTIFG2                                                                   
       03504 +000372000000           OCT 000372000000                                                             
       03505  0 00000 0 01411        HTR BTIFG1                                                                   
       03506 +000350000000           OCT 000350000000                                                             
       03507  0 00000 0 01404        HTR TSXTFO                                                                   
       03510 +000335000000           OCT 000335000000                                                             
       03511  0 00000 0 01377        HTR MINB3                                                                    
       03512 +000325000000           OCT 000325000000                                                             
       03513  0 00000 0 01372        HTR MINB2                                                                    
       03514 +000314000000           OCT 000314000000                                                             
       03515  0 00000 0 01365        HTR MINB1                                                                    
       03516 +000775000000           OCT 000775000000                                                             
       03517  0 00000 0 03166        HTR NOTEQV                                                                   
       03520 +000762000000           OCT 000762000000                                                             
       03521  0 00000 0 03140        HTR FRETIF                                                                   
       03522 +000070000000           OCT 000070000000                                                             
       03523  0 00000 0 03222        HTR BADWC                                                                    
       03524 +000110000000           OCT 000110000000                                                             
       03525  0 00000 0 03243        HTR NOIDEN                                                                   
       03526 +000576000000           OCT 000576000000                                                             
       03527  0 00000 0 03106        HTR NOTRA                                                                    
       03530 +000212000000           OCT 000212000000                                                             
       03531  0 00000 0 01341        HTR TEIFNO            IE.,TSXE FROM NON-ARITH DIAP                           
       03532 +001110000000    ER1PRM OCT 001110000000                                                             
       03533  0 00000 0 02656        HTR CHATSX                                                                   
       03534  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     632           0           0           0           0
 LIB       0           0           0           0           0
 COL     632           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     1191                  
0NUMBER OF SYMBOLS,  DEF   337,DEFOP     0,UNDEF     0      
9            ORG 5                 FORCE NEW RECORD                                       
1                       00005        ORG 5                 FORCE NEW RECORD                                       
       00005  0 01303 0 01421        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00005        TXH 5,                7320  FT  27                                           
                        07302 ERNBR  SYN 3778              OCTAL 7302                                             
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306 -0 53400 1 07302        LXD ERNBR,1                                                                  
       01307  2 00002 1 01310        TIX DONX1,1,2                                                                
       01310 -0 63400 1 01336 DONX1  SXD DOTST,1                                                                  
       01311 -0 53400 1 01232        LXD ZERO,1                                                                   
       01312  0 50000 1 77777 NXTDO  CLA LIST,1                                                                   
       01313  0 10000 0 01343        TZE ONEDO                                                                    
       01314  0 50000 0 01421        CLA MORDOS            DO NOT PRINT COMMENT FOR SUCCEEDING                    
       01315 -0 10000 0 01322        TNZ DO1               ERRORS                                                 
       01316  0 07400 4 00740        TSX PRINT,4                                                                  
       01317  0 01372 0 01355        HTR NONEST,0,NONEST+13                                                       
       01320 -0 63400 4 01421        SXD MORDOS,4                                                                 
       01321  0 76600 0 00361        WPR                                                                          
       01322  0 50000 1 77777 DO1    CLA LIST,1                                                                   
       01323  0 60100 0 00527        STO ALFBET                                                                   
       01324  0 50000 1 77776        CLA LIST-1,1                                                                 
       01325  0 60100 0 00530        STO SYM                                                                      
       01326  0 07400 4 00505        TSX FX4PR,4           PRINT 1ST DO                                           
       01327  0 50000 1 77775        CLA LIST-2,1          AND 2ND                                                
       01330  0 60100 0 00527        STO ALFBET                                                                   
       01331  0 50000 1 77774        CLA LIST-3,1                                                                 
       01332  0 60100 0 00530        STO SYM                                                                      
       01333  0 07400 4 00505        TSX FX4PR,4                                                                  
       01334  0 76600 0 00361        WPR                                                                          
       01335  1 00004 1 01336        TXI DOTST,1,4                                                                
       01336 -3 00000 1 01312 DOTST  TXL NXTDO,1,0                                                                
       01337  0 76600 0 00361        WPR                                                                          
       01340  0 07400 4 00740        TSX PRINT,4                                                                  
       01341  0 01403 0 01372        HTR ENDNST,0,ENDNST+9                                                        
       01342  0 02000 0 00272        TRA SPEND                                                                    
       01343  0 60000 0 01421 ONEDO  STZ MORDOS                                                                   
       01344  0 76600 0 00361        WPR                                                                          
       01345  0 07400 4 00740        TSX PRINT,4                                                                  
       01346  0 01421 0 01403        HTR DOPR,0,DOPR+14                                                           
       01347  0 50000 1 77776        CLA LIST-1,1                                                                 
       01350  0 60100 0 00527        STO ALFBET                                                                   
       01351  0 50000 1 77775        CLA LIST-2,1                                                                 
       01352  0 60100 0 00530        STO SYM                                                                      
       01353  0 07400 4 00505        TSX FX4PR,4                                                                  
       01354  1 00003 1 01336        TXI DOTST,1,3                                                                
       01355  606060606060    NONEST BCD 2                                                                        
       01356  606060606060    
       01357  633025602446           BCD  THE DO STATEMENTS IN THE FOLLOWING LIST ARE NOT CORRECTLY NE            
       01360  606263216325    
       01361  442545636260    
       01362  314560633025    
       01363  602646434346    
       01364  663145276043    
       01365  316263602151    
       01366  256045466360    
       01367  234651512523    
       01370  634370604525    
       01371  626325246060           BCD 1STED                                                                    
       01372  606060606060    ENDNST BCD 2                                                                        
       01373  606060606060    
       01374  234651512523           BCD 7CORRECT THE DO NESTING BEFORE REASSEMBLY.                               
       01375  636063302560    
       01376  244660452562    
       01377  633145276022    
       01400  252646512560    
       01401  512521626225    
       01402  442243703360    
       01403  606060606060    DOPR   BCD 2                                                                        
       01404  606060606060    
       01405  633025606263           BCD  THE STATEMENT NUMBER ENDING A DO IS ABOVE IT IN THE SOURCE P            
       01406  216325442545    
       01407  636045644422    
       01410  255160254524    
       01411  314527602160    
       01412  244660316260    
       01413  212246652560    
       01414  316360314560    
       01415  633025606246    
       01416  645123256047    
       01417  514627512144           BCD 2ROGRAM.                                                                 
       01420  336060606060    
       01421  0 00000 0 00000 MORDOS HTR 0                                                                        
       01422  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      58           0           0           0           0
 LIB       0           0           0           0           0
 COL      58           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       94                  
0NUMBER OF SYMBOLS,  DEF   206,DEFOP     0,UNDEF     0      
9            ORG 6                 FORCE NEW RECORD                                       
1                       00006        ORG 6                 FORCE NEW RECORD                                       
       00006  0 01303 0 01436        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00006        TXH 6                  106  FT  53                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 76200 0 00304 RDDR   RDR 4                 NOR BUFFER NOW ON DRUM 4.                              
       01307  0 46000 0 01350        LDA A                                                                        
       01310  0 53400 1 01351        LXA L(15),1                                                                  
       01311  0 70000 1 01276 COPYW  CPY ERAS+15,1         COPY FIRST WORD OF 4 WORD ENTRY.                       
       01312  0 70000 1 01277        CPY ERAS+16,1         IGNORE NEXT THREE.                                     
       01313  0 70000 1 01277        CPY ERAS+16,1                                                                
       01314  0 70000 1 01277        CPY ERAS+16,1                                                                
       01315  2 00001 1 01311        TIX COPYW,1,1                                                                
       01316  0 53400 1 01351        LXA L(15),1                                                                  
       01317  0 50000 1 01276 NEXT   CLA ERAS+15,1         IF NOT LOCATION SYMBOL OF CIT,                         
       01320 -0 10000 0 01331        TNZ PROCES            WORD WILL BE ZERO.                                     
       01321  2 00001 1 01317        TIX NEXT,1,1                                                                 
       01322  0 50000 0 01351        CLA L(15)                                                                    
       01323  0 76700 0 00002        ALS 2                                                                        
       01324  0 40000 0 01350        ADD A                                                                        
       01325  0 62100 0 01350        STA A                                                                        
       01326  0 40200 0 01352        SUB BUFSIZ                                                                   
       01327 -0 10000 0 01306        TNZ RDDR                                                                     
       01330  0 50000 0 01232        CLA ZERO                                                                     
       01331  0 77100 0 00022 PROCES ARS 18                IN THE DECREMENT THERE IS THE                          
       01332  0 07400 4 00613        TSX EXBETA,4          ALPHA OF SOME STATEMENT NUMBER.                        
       01333  0 60200 0 01257        SLW ERAS                                                                     
       01334 -0 50000 0 01373        CAL PR1                                                                      
       01335  0 77100 0 00030        ARS 24                                                                       
       01336  0 56000 0 01257        LDQ ERAS                                                                     
       01337 -0 76300 0 00030        LGL 24                                                                       
       01340  0 60200 0 01373        SLW PR1                                                                      
       01341 -0 76300 0 00014        LGL 12                                                                       
       01342  0 56000 0 00717        LDQ BLANKS                                                                   
       01343 -0 76300 0 00030        LGL 24                                                                       
       01344  0 60200 0 01374        SLW PR1+1                                                                    
       01345  0 07400 4 00740        TSX PRINT,4                                                                  
       01346  0 01437 0 01353        HTR PR,0,PR+52                                                               
       01347  0 02000 0 00272        TRA SPEND                                                                    
       01350  0 00000 0 00310 A      HTR8200               STARTING DRUM ADDRESS                                  
       01351  0 00000 0 00017 L(15)  HTR 15                                                                       
       01352  0 00000 0 07700 BUFSIZ HTR 4032              SIZE OF NOR BUFFER + INITIAL ADDRESS.                  
       01353  606060606060    PR     BCD 2                                                                        
       01354  606060606060    
       01355  633025606225           BCD  THE SET OF DO FORMULAS WHICH BEGINS OR TERMINATES IN THE VIC            
       01356  636046266024    
       01357  466026465144    
       01360  644321626066    
       01361  303123306022    
       01362  252731456260    
       01363  465160632551    
       01364  443145216325    
       01365  626031456063    
       01366  302560653123    
       01367  314531637060           BCD 4INITY OF STATEMENT NUMBE                                                
       01370  462660626321    
       01371  632544254563    
       01372  604564442225    
       01373  516060606060    PR1    BCD 6R                                                                       
       01374  606060606060    
       01375  606060606060    
       01376  606060606060    
       01377  606060606060    
       01400  606060606060    
       01401  302162602731           BCD  HAS GIVEN RISE TO TOO MANY INSTRUCTIONS.  REWRITE PROGRAM AN            
       01402  652545605131    
       01403  622560634660    
       01404  634646604421    
       01405  457060314562    
       01406  635164236331    
       01407  464562336060    
       01410  512566513163    
       01411  256047514627    
       01412  512144602145    
       01413  246062314447           BCD  D SIMPLIFY DO NESTING                                                   
       01414  433126706024    
       01415  466045256263    
       01416  314527606060    
       01417  606060606060    
       01420  606060606060    
       01421  606060606060    
       01422  606060606060    
       01423  606060606060    
       01424  606060606060    
       01425  465160512524           BCD  OR REDUCE THE NUMBER OF SUBSCRIPT COMBINATIONS.                         
       01426  642325606330    
       01427  256045644422    
       01430  255160462660    
       01431  626422622351    
       01432  314763602346    
       01433  442231452163    
       01434  314645623360    
       01435  606060606060    
       01436  606060606060    
       01437  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      53           0           0           0           0
 LIB       0           0           0           0           0
 COL      53           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      106                  
0NUMBER OF SYMBOLS,  DEF   205,DEFOP     0,UNDEF     0      
9            ORG 7                 FORCE NEW RECORD                                       
1                       00007        ORG 7                 FORCE NEW RECORD                                       
       00007  0 01303 0 01404        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00007        TXH 7                 4040  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 76200 0 00304        RDR 4                 TAGTAG TABLE ON DRUM 4.                                
       01307  0 46000 0 01332        LDA A                                                                        
       01310  0 70000 0 01257        CPY ERAS              COPY FIRST WORD OF 4 WORD ENTRY.                       
       01311  0 50000 0 01257        CLA ERAS                                                                     
       01312  0 77100 0 00022        ARS 18                                                                       
       01313  0 07400 4 00613        TSX EXBETA,4                                                                 
       01314  0 60200 0 01257        SLW ERAS                                                                     
       01315 -0 50000 0 01346        CAL PR1                                                                      
       01316  0 77100 0 00014        ARS 12                                                                       
       01317  0 56000 0 01257        LDQ ERAS                                                                     
       01320 -0 76300 0 00014        LGL 12                                                                       
       01321  0 60200 0 01346        SLW PR1                                                                      
       01322 -0 76300 0 00030        LGL 24                                                                       
       01323  0 56000 0 01347        LDQ PR2                                                                      
       01324 -0 77300 0 00030        RQL 24                                                                       
       01325 -0 76300 0 00014        LGL 12                                                                       
       01326  0 60200 0 01347        SLW PR2                                                                      
       01327  0 07400 4 00740        TSX PRINT,4                                                                  
       01330  0 01405 0 01333        HTR PR,0,PR+42                                                               
       01331  0 02000 0 00272        TRA SPEND                                                                    
       01332  0 00000 0 02064 A      HTR81076                                                                     
       01333  606060606060    PR     BCD 2                                                                        
       01334  606060606060    
       01335  632127632127           BCD 9TAGTAG TABLE SIZE HAS BEEN EXCEEDED.  DO STATEMENT NUM                  
       01336  606321224325    
       01337  606231712560    
       01340  302162602225    
       01341  254560256723    
       01342  252524252433    
       01343  606024466062    
       01344  632163254425    
       01345  456360456444    
       01346  222551600102    PR1    BCD 1BER 12                                                                  
       01347  030405546031    PR2    BCD 1345* I                                                                  
       01350  626046452560           BCD 9S ONE OF A NEST OF DO STATEMENTS                                        
       01351  462660216045    
       01352  256263604626    
       01353  602446606263    
       01354  216325442545    
       01355  636260606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  663031233060           BCD  WHICH CONTAINS, OR HAS GIVEN RISE TO, TOO MANY SUBSCRIPT COM            
       01362  234645632131    
       01363  456273604651    
       01364  603021626027    
       01365  316525456051    
       01366  316225606346    
       01367  736063464660    
       01370  442145706062    
       01371  642262235131    
       01372  476360234644    
       01373  223145216331           BCD  BINATIONS.  REWRITE SOURCE PROGRAM.                                     
       01374  464562336060    
       01375  512566513163    
       01376  256062466451    
       01377  232560475146    
       01400  275121443360    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      37           0           0           0           0
 LIB       0           0           0           0           0
 COL      37           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       80                  
0NUMBER OF SYMBOLS,  DEF   200,DEFOP     0,UNDEF     0      
9            ORG 8                 FORCE NEW RECORD                                       
1                       00010        ORG 8                 FORCE NEW RECORD                                       
       00010  0 01303 0 01332        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00010        TXH 8                 4160  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01333 0 01311        HTR PR,0,PR+18                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  475146275121           BCD  PROGRAM HAS MORE THAN 50 DO STATEMENTS IN A NEST.  REWRITE P            
       01314  446030216260    
       01315  444651256063    
       01316  302145600500    
       01317  602446606263    
       01320  216325442545    
       01321  636260314560    
       01322  216045256263    
       01323  336060512566    
       01324  513163256047    
       01325  514627512144           BCD 6ROGRAM WITH SIMPLER DO STRUCTURE.                                       
       01326  606631633060    
       01327  623144474325    
       01330  516024466062    
       01331  635164236364    
       01332  512533606060    
       01333  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       38                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 9                 FORCE NEW RECORD                                       
1                       00011        ORG 9                 FORCE NEW RECORD                                       
       00011  0 01303 0 01612        HTR X-1,0,LOCREC      CARD FOR DE,                                           
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00011        TXH 9                 5037  FT  34                                           
                                         9                 7632  FT  36                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306 -0 53400 1 27721        LXD877777,1                                                                  
       01307 -3 00001 1 01515        TXL DRMTAG,1,1                                                               
       01310 -3 00002 1 01370        TXL CHGTAG,1,2                                                               
       01311 -3 00003 1 01520        TXL NAMKEY,1,3                                                               
       01312 -3 00004 1 01522        TXL TRASTO,1,4                                                               
       01313  0 07400 4 00740        TSX PRINT,4                                                                  
       01314  0 01370 0 01316        HTR PR,0,PR+42                                                               
       01315  0 02000 0 00272        TRA SPEND                                                                    
       01316  606060606060    PR     BCD 2                                                                        
       01317  606060606060    
       01320  636267234644           BCD  TSXCOM TABLE EXCEEDS BUFFER SIZE.  THERE ARE TOO MANY RELATI            
       01321  606321224325    
       01322  602567232525    
       01323  246260226426    
       01324  262551606231    
       01325  712533606063    
       01326  302551256021    
       01327  512560634646    
       01330  604421457060    
       01331  512543216331    
       01332  652560234645           BCD  VE CONSTANT DEFINITIONS.                                                
       01333  626321456360    
       01334  242526314531    
       01335  633146456233    
       01336  606060606060    
       01337  606060606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  633025606321           BCD  THE TABLE IS CUMULATIVE OVER THE ENTIRE PROBLEM.  REWRITE SO            
       01345  224325603162    
       01346  602364446443    
       01347  216331652560    
       01350  466525516063    
       01351  302560254563    
       01352  315125604751    
       01353  462243254433    
       01354  606051256651    
       01355  316325606246    
       01356  645123256047           BCD  URCE PROGRAM.                                                           
       01357  514627512144    
       01360  336060606060    
       01361  606060606060    
       01362  606060606060    
       01363  606060606060    
       01364  606060606060    
       01365  606060606060    
       01366  606060606060    
       01367  606060606060    
       01370  0 07400 4 00740 CHGTAG TSX PRINT,4                                                                  
       01371  0 01515 0 01373        HTR PR1,0,PR1+82                                                             
       01372  0 02000 0 00272        TRA SPEND                                                                    
       01373  606060606060    PR1    BCD 2                                                                        
       01374  606060606060    
       01375  233027632127           BCD  CHGTAG TABLE EXCEEDS BUFFER SIZE.  AN ENTRY IS MADE IN THIS             
       01376  606321224325    
       01377  602567232525    
       01400  246260226426    
       01401  262551606231    
       01402  712533606021    
       01403  456025456351    
       01404  706031626044    
       01405  212425603145    
       01406  606330316260    
       01407  632122432560           BCD  TABLE WHEN THERE ARE AT LEAST TWO                                       
       01410  663025456063    
       01411  302551256021    
       01412  512560216360    
       01413  432521626360    
       01414  636646606060    
       01415  606060606060    
       01416  606060606060    
       01417  606060606060    
       01420  606060606060    
       01421  626422622351           BCD  SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,             
       01422  314763602346    
       01423  442231452163    
       01424  314645626066    
       01425  316330606330    
       01426  256062214425    
       01427  606270442246    
       01430  436273602346    
       01431  252626312331    
       01432  254563627360    
       01433  214524604325           BCD  AND LEADING DIMENSIONS                                                  
       01434  212431452760    
       01435  243144254562    
       01436  314645626060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  663163303145           BCD  WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO            
       01446  606330256062    
       01447  214425604525    
       01450  626360663031    
       01451  233060302162    
       01452  602163604325    
       01453  216263604645    
       01454  257360226463    
       01455  604546636021    
       01456  434373602346    
       01457  456351464343           BCD  NTROLLING DOS IN COMMON.                                                
       01460  314527602446    
       01461  626031456023    
       01462  464444464533    
       01463  606060606060    
       01464  606060606060    
       01465  606060606060    
       01466  606060606060    
       01467  606060606060    
       01470  606060606060    
       01471  633025606321           BCD  THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM.  REWR            
       01472  224325603162    
       01473  602364446443    
       01474  216331652560    
       01475  466525516021    
       01476  434360452562    
       01477  636260314560    
       01500  633025604751    
       01501  462243254433    
       01502  606051256651    
       01503  316325606246           BCD  ITE SOURCE PROGRAM.                                                     
       01504  645123256047    
       01505  514627512144    
       01506  336060606060    
       01507  606060606060    
       01510  606060606060    
       01511  606060606060    
       01512  606060606060    
       01513  606060606060    
       01514  606060606060    
       01515  0 50000 0 01611 DRMTAG CLA DRTG                                                                     
       01516  0 60100 0 01527        STO PR3                                                                      
       01517  0 02000 0 01522        TRA TRASTO                                                                   
       01520  0 50000 0 01612 NAMKEY CLA NMKY                                                                     
       01521  0 60100 0 01527        STO PR3                                                                      
       01522  0 07400 4 00740 TRASTO TSX PRINT,4                                                                  
       01523  0 01611 0 01525        HTR PR2,0,PR2+52                                                             
       01524  0 02000 0 00272        TRA SPEND                                                                    
       01525  606060606060    PR2    BCD 2                                                                        
       01526  606060606060    
       01527  635121626346    PR3    BCD  TRASTO TABLE EXCEEDS BUFFER SIZE.  THE SUBSCRIPT COMBINATION            
       01530  606321224325    
       01531  602567232525    
       01532  246260226426    
       01533  262551606231    
       01534  712533606063    
       01535  302560626422    
       01536  622351314763    
       01537  602346442231    
       01540  452163314645    
       01541  626021452460           BCD  S AND FLOW STRUCTURE IS TOO COMPLEX                                     
       01542  264346666062    
       01543  635164236364    
       01544  512560316260    
       01545  634646602346    
       01546  444743256760    
       01547  606060606060    
       01550  606060606060    
       01551  606060606060    
       01552  606060606060    
       01553  663163303145           BCD  WITHIN DO NESTS.  THIS TABLE IS CUMULATIVE OVER ALL NESTS.              
       01554  602446604525    
       01555  626362336060    
       01556  633031626063    
       01557  212243256031    
       01560  626023644464    
       01561  432163316525    
       01562  604665255160    
       01563  214343604525    
       01564  626362336060    
       01565  512566513163           BCD  REWRITE SOURCE PROGRAM AND                                              
       01566  256062466451    
       01567  232560475146    
       01570  275121446021    
       01571  452460606060    
       01572  606060606060    
       01573  606060606060    
       01574  606060606060    
       01575  606060606060    
       01576  606060606060    
       01577  623144474331           BCD  SIMPLIFY SUBSCRIPT COMBINATIONS OR DO NEST STRUCTURE.                   
       01600  267060626422    
       01601  622351314763    
       01602  602346442231    
       01603  452163314645    
       01604  626046516024    
       01605  466045256263    
       01606  606263516423    
       01607  636451253360    
       01610  606060606060    
       01611  245144632127    DRTG   BCD 1DRMTAG                                                                  
       01612  452144422570    NMKY   BCD 1NAMKEY                                                                  
       01613  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      51           0           0           0           0
 LIB       0           0           0           0           0
 COL      51           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      215                  
0NUMBER OF SYMBOLS,  DEF   206,DEFOP     0,UNDEF     0      
9            ORG 10                FORCE NEW RECORD                                       
1                       00012        ORG 10                FORCE NEW RECORD                                       
       00012  0 01303 0 01343        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00012        TXH 10                6044  FT  27                                           
                                         10                6534  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01344 0 01311        HTR PR,0,PR+27                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  635121456226           BCD  TRANSFER ADDRESS LEVEL IS GREATER THAN 20.  REPROGRAM TO ELI            
       01314  255160212424    
       01315  512562626043    
       01316  256525436031    
       01317  626027512521    
       01320  632551606330    
       01321  214560020033    
       01322  606051254751    
       01323  462751214460    
       01324  634660254331    
       01325  443145216325           BCD  MINATE TRANSFERS TO DOS                                                 
       01326  606351214562    
       01327  262551626063    
       01330  466024466260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  663163306043           BCD 5WITH LEVELS GREATER THAN 20.                                            
       01340  256525436260    
       01341  275125216325    
       01342  516063302145    
       01343  600200336060    
       01344  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       48                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 11                FORCE NEW RECORD                                       
1                       00013        ORG 11                FORCE NEW RECORD                                       
       00013  0 01303 0 01345        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00013        TXH 11                6065  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 50000 0 06300        CLA 3264              6300 OCTAL                                             
       01307  0 77100 0 00022        ARS 18                                                                       
       01310  0 07400 4 00613        TSX EXBETA,4                                                                 
       01311  0 60200 0 01257        SLW ERAS                                                                     
       01312  0 56000 0 01257        LDQ ERAS                                                                     
       01313 -0 50000 0 01332        CAL PR1                                                                      
       01314  0 77100 0 00006        ARS 6                                                                        
       01315 -0 76300 0 00006        LGL 6                                                                        
       01316  0 60200 0 01332        SLW PR1                                                                      
       01317 -0 76300 0 00036        LGL 30                                                                       
       01320  0 56000 0 00717        LDQ BLANKS                                                                   
       01321 -0 76300 0 00006        LGL 6                                                                        
       01322  0 60200 0 01333        SLW PR2                                                                      
       01323  0 07400 4 00740        TSX PRINT,4                                                                  
       01324  0 01346 0 01326        HTR PR,0,PR+16                                                               
       01325  0 02000 0 00272        TRA SPEND                                                                    
       01326  606060606060    PR     BCD 2                                                                        
       01327  606060606060    
       01330  626321632544           BCD 2STATEMENT NU                                                            
       01331  254563604564    
       01332  442225516060    PR1    BCD 1MBER                                                                    
       01333  606060606060    PR2    BCD 1                                                                        
       01334  635121456226           BCD  TRANSFERS INTO THE RANGE OF A DO FROM OUTSIDE ITS RANGE.                
       01335  255162603145    
       01336  634660633025    
       01337  605121452725    
       01340  604626602160    
       01341  244660265146    
       01342  446046646362    
       01343  312425603163    
       01344  626051214527    
       01345  253360606060    
       01346  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      30           0           0           0           0
 LIB       0           0           0           0           0
 COL      30           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       49                  
0NUMBER OF SYMBOLS,  DEF   199,DEFOP     0,UNDEF     0      
9            ORG 12                FORCE NEW RECORD                                       
1                       00014        ORG 12                FORCE NEW RECORD                                       
       00014  0 01303 0 01373        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00014        TXH 12                6234  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 50000 0 05244        CLA 2724              VCTR - OCTAL 5244                                      
       01307  0 77100 0 00022        ARS 18                                                                       
       01310  0 07400 4 00613        TSX EXBETA,4                                                                 
       01311  0 60200 0 01334        SLW BETA                                                                     
       01312  0 56000 0 01334        LDQ BETA                                                                     
       01313 -0 50000 0 00717        CAL BLANKS                                                                   
       01314 -0 76300 0 00036        LGL 30                                                                       
       01315  0 60200 0 01334        SLW BETA                                     -                               
       01316  0 56000 0 01335        LDQ BETA+1                                                                   
       01317 -0 76300 0 00036        LGL 30                                                                       
       01320  0 60200 0 01335        SLW BETA+1                                                                   
       01321  0 07400 4 00740        TSX PRINT,4                                                                  
       01322  0 01374 0 01324        HTR PR,0,PR+40                                                               
       01323  0 02000 0 00272        TRA SPEND                                                                    
       01324  606060606060    PR     BCD 2                                                                        
       01325  606060606060    
       01326  634646604421           BCD 6TOO MANY DOS END AT STATEMENT NUMBER                                    
       01327  457060244662    
       01330  602545246021    
       01331  636062632163    
       01332  254425456360    
       01333  456444222551    
       01334  600102030405      BETA BCD 1 12345                                                                  
       01335  336060633060           BCD  .  TH IS CONDITION, IN CONJUNCTION WITH SUBSCRIPT CONFIGURAT            
       01336  316260234645    
       01337  243163314645    
       01340  736031456023    
       01341  464541644523    
       01342  633146456066    
       01343  316330606264    
       01344  226223513147    
       01345  636023464526    
       01346  312764512163    
       01347  314645627360           BCD 3IONS,                                                                   
       01350  606060606060    
       01351  606060606060    
       01352  302162605125           BCD  HAS RESULTED IN TOO MANY INSTRUCTIONS.  REWRITE PROGRAM AND             
       01353  626443632524    
       01354  603145606346    
       01355  466044214570    
       01356  603145626351    
       01357  642363314645    
       01360  623360605125    
       01361  665131632560    
       01362  475146275121    
       01363  446021452460    
       01364  622547215121           BCD 8SEPARATE DO ENDS BY USING CONTINUE STATEMENTS.                          
       01365  632560244660    
       01366  254524626022    
       01367  706064623145    
       01370  276023464563    
       01371  314564256062    
       01372  632163254425    
       01373  456362336060    
       01374  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      30           0           0           0           0
 LIB       0           0           0           0           0
 COL      30           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       71                  
0NUMBER OF SYMBOLS,  DEF   198,DEFOP     0,UNDEF     0      
9            ORG 13                FORCE NEW RECORD                                       
1                       00015        ORG 13                FORCE NEW RECORD                                       
       00015  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00015        TXH 13                6432  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  633025606521           BCD  THE VARIABLE PARAMETER OF A DO IS REDEFINED BY THE INDEX SYM            
       01314  513121224325    
       01315  604721512144    
       01316  256325516046    
       01317  266021602446    
       01320  603162605125    
       01321  242526314525    
       01322  246022706063    
       01323  302560314524    
       01324  256760627044    
       01325  224643604626           BCD 8BOL OF A DO STATEMENT WITHIN THE DO.                                    
       01326  602160244660    
       01327  626321632544    
       01330  254563606631    
       01331  633031456063    
       01332  302560244633    
       01333  606060606060    
       01334  606060606060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 14                FORCE NEW RECORD                                       
1                       00016        ORG 14                FORCE NEW RECORD                                       
       00016  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00016        TXH 14                7303  FT  4I                                           
                                         14                7O45  FT  43                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  214560314563           BCD  AN INTERMEDIATE CORE TABLE IS FULL.  REWRITE SOURCE PROGRAM             
       01314  255144252431    
       01315  216325602346    
       01316  512560632122    
       01317  432560316260    
       01320  266443433360    
       01321  605125665131    
       01322  632560624664    
       01323  512325604751    
       01324  462751214460    
       01325  214524604446           BCD  AND MODIFY THE NUMBER OF PURE RELATIVE CONSTANT                         
       01326  243126706063    
       01327  302560456444    
       01330  222551604626    
       01331  604764512560    
       01332  512543216331    
       01333  652560234645    
       01334  626321456360    
       01335  606060606060    
       01336  606060606060    
       01337  626422622351           BCD  SUBSCRIPT COMBINATIONS, IE., SUBSCRIPTS, NO SYMBOL OF WHICH             
       01340  314763602346    
       01341  442231452163    
       01342  314645627360    
       01343  312533736062    
       01344  642262235131    
       01345  476362736045    
       01346  466062704422    
       01347  464360462660    
       01350  663031233060    
       01351  316260644524           BCD 5IS UNDER CONTROL OF A DO.                                               
       01352  255160234645    
       01353  635146436046    
       01354  266021602446    
       01355  336060606060    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       58                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 15                FORCE NEW RECORD                                       
1                       00017        ORG 15                FORCE NEW RECORD                                       
       00017  0 01303 0 01432        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00017        TXH 15                 270  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01433 0 01311        HTR PR,0,PR+82                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233027632127           BCD  CHGTAG TABLE EXCEEDS BUFFER SIZE.  AN ENTRY IS MADE IN THIS             
       01314  606321224325    
       01315  602567232525    
       01316  246260226426    
       01317  262551606231    
       01320  712533606021    
       01321  456025456351    
       01322  706031626044    
       01323  212425603145    
       01324  606330316260    
       01325  632122432560           BCD  TABLE WHEN THERE ARE AT LEAST TWO                                       
       01326  663025456063    
       01327  302551256021    
       01330  512560216360    
       01331  432521626360    
       01332  636646606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  626422622351           BCD  SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,             
       01340  314763602346    
       01341  442231452163    
       01342  314645626066    
       01343  316330606330    
       01344  256062214425    
       01345  606270442246    
       01346  436273602346    
       01347  252626312331    
       01350  254563627360    
       01351  214524604325           BCD  AND LEADING DIMENSIONS                                                  
       01352  212431452760    
       01353  243144254562    
       01354  314645626060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  663163303145           BCD  WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO            
       01364  606330256062    
       01365  214425604525    
       01366  626360663031    
       01367  233060302162    
       01370  602163604325    
       01371  216263604645    
       01372  257360226463    
       01373  604546636021    
       01374  434373602346    
       01375  456351464343           BCD  NTROLLING DOS IN COMMON.                                                
       01376  314527602446    
       01377  626031456023    
       01400  464444464533    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  633025606321           BCD  THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM.  REWR            
       01410  224325603162    
       01411  602364446443    
       01412  216331652560    
       01413  466525516021    
       01414  434360452562    
       01415  636260314560    
       01416  633025604751    
       01417  462243254433    
       01420  606051256651    
       01421  316325606246           BCD  ITE SOURCE PROGRAM.                                                     
       01422  645123256047    
       01423  514627512144    
       01424  336060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      21           0           0           0           0
 LIB       0           0           0           0           0
 COL      21           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      102                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 16                FORCE NEW RECORD                                       
1                       00020        ORG 16                FORCE NEW RECORD                                       
       00020  0 01303 0 01333        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00020        TXH 16                 750  FT  56                                           
                                          16                 747  FT  56                                          
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01334 0 01311        HTR PR,0,PR+19                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  216026465163           BCD  A FORTRAN FUNCTION HAS BEEN DEFINED AT A POINT IN THE SOURCE            
       01314  512145602664    
       01315  452363314645    
       01316  603021626022    
       01317  252545602425    
       01320  263145252460    
       01321  216360216047    
       01322  463145636031    
       01323  456063302560    
       01324  624664512325    
       01325  604751462751           BCD 7 PROGRAM OTHER THAN AT ITS BEGINNING.                                   
       01326  214460466330    
       01327  255160633021    
       01330  456021636031    
       01331  636260222527    
       01332  314545314527    
       01333  336060606060    
       01334  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 17                FORCE NEW RECORD                                       
1                       00021        ORG 17                FORCE NEW RECORD                                       
       00021  0 01303 0 01325        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00021        TXH 17                2155  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                       .,                         
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01326 0 01311        HTR PR,0,PR+13                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  216044644363           BCD  A MULTIVARIATE OPEN SUBROUTINE HAS ONLY ONE ARGUMENT SPECIFI            
       01314  316521513121    
       01315  632560464725    
       01316  456062642251    
       01317  466463314525    
       01320  603021626046    
       01321  454370604645    
       01322  256021512764    
       01323  442545636062    
       01324  472523312631    
       01325  252433606060           BCD 1ED.                                                                     
       01326  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       33                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 18                FORCE NEW RECORD                                       
1                       00022        ORG 18                FORCE NEW RECORD                                       
       00022  0 01303 0 01327        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00022        TXH 18                2163  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01330 0 01311        HTR PR,0,PR+15                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  444651256021           BCD  MORE ARGUMENTS HAVE BEEN SUPPLIED THAN ARE REQUIRED BY AN OP            
       01314  512764442545    
       01315  636260302165    
       01316  256022252545    
       01317  606264474743    
       01320  312524606330    
       01321  214560215125    
       01322  605125506431    
       01323  512524602270    
       01324  602145604647    
       01325  254560626422           BCD 3EN SUBROUTINE.                                                          
       01326  514664633145    
       01327  253360606060    
       01330  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       35                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 19                FORCE NEW RECORD                                       
1                       00023        ORG 19                FORCE NEW RECORD                                       
       00023  0 01303 0 01351        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00023        TXH 19                 434  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01352 0 01311        HTR PR,0,PR+33                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  264346666046           BCD  FLOW OF PROGRAM IS TOO COMPLEX.  NEXT ENTRY CANNOT BE MADE I            
       01314  266047514627    
       01315  512144603162    
       01316  606346466023    
       01317  464447432567    
       01320  336060452567    
       01321  636025456351    
       01322  706023214545    
       01323  466360222560    
       01324  442124256031    
       01325  456043316263           BCD  N LIST OF BASIC BLOCKS.                                                 
       01326  604626602221    
       01327  623123602243    
       01330  462342623360    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512566513163           BCD  REWRITE PROGRAM WITH FEWER TRANSFER ADDRESSES, OR DO IN TWO             
       01340  256047514627    
       01341  512144606631    
       01342  633060262566    
       01343  255160635121    
       01344  456226255160    
       01345  212424512562    
       01346  622562736046    
       01347  516024466031    
       01350  456063664660    
       01351  472151636233           BCD 1PARTS.                                                                  
       01352  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       53                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 20                FORCE NEW RECORD                                       
1                       00024        ORG 20                FORCE NEW RECORD                                       
       00024  0 01303 0 01330        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00024        TXH 20                 454  FT  64                                           
                                         20                 707  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01331 0 01311        HTR PR,0,PR+16                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  216047215163           BCD  A PART OF THE SOURCE PROGRAM HAS NO POSSIBLE PATH OF FLOW TO            
       01314  604626606330    
       01315  256062466451    
       01316  232560475146    
       01317  275121446030    
       01320  216260454660    
       01321  474662623122    
       01322  432560472163    
       01323  306046266026    
       01324  434666606346    
       01325  603163336060           BCD 4 IT.  CHECK PROGRAM.                                                    
       01326  233025234260    
       01327  475146275121    
       01330  443360606060    
       01331  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       37                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 21                FORCE NEW RECORD                                       
1                       00025        ORG 21                FORCE NEW RECORD                                       
       00025  0 01303 0 01331        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00025        TXH 21                 643  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01332 0 01311        HTR PR,0,PR+17                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  444651256063           BCD  MORE THAN 25 DISTINCT SYMBOLS USED IN ASSIGNED GO TO STATEME            
       01314  302145600205    
       01315  602431626331    
       01316  452363606270    
       01317  442246436260    
       01320  646225246031    
       01321  456021626231    
       01322  274525246027    
       01323  466063466062    
       01324  632163254425    
       01325  456362336060           BCD 5NTS.  SIMPLIFY SOURCE PROGRAM.                                          
       01326  623144474331    
       01327  267060624664    
       01330  512325604751    
       01331  462751214433    
       01332  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       37                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 22                FORCE NEW RECORD                                       
1                       00026        ORG 22                FORCE NEW RECORD                                       
       00026  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00026        TXH 22                 756  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  263167244662           BCD  FIXDOS TABLE IS FULL.  THERE ARE TOO MANY TRANSFERS TO DO ST            
       01314  606321224325    
       01315  603162602664    
       01316  434333606063    
       01317  302551256021    
       01320  512560634646    
       01321  604421457060    
       01322  635121456226    
       01323  255162606346    
       01324  602446606263    
       01325  216325442545           BCD 8ATEMENTS.  REWRITE SOURCE PROGRAM.                                      
       01326  636233606051    
       01327  256651316325    
       01330  606246645123    
       01331  256047514627    
       01332  512144336060    
       01333  606060606060    
       01334  606060606060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 23                FORCE NEW RECORD                                       
1                       00027        ORG 23                FORCE NEW RECORD                                       
       00027  0 01303 0 01342        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00027        TXH 23                1041  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01343 0 01311        HTR PR,0,PR+26                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  622563606321           BCD  SET TABLE IS FULL.  THERE ARE TOO MANY ASSIGN OR SENSE LIGHT            
       01314  224325603162    
       01315  602664434333    
       01316  606063302551    
       01317  256021512560    
       01320  634646604421    
       01321  457060216262    
       01322  312745604651    
       01323  606225456225    
       01324  604331273063    
       01325  606263216325           BCD   STATEMENTS, OR TOO MANY TRANSFERS TO DOS.                              
       01326  442545636273    
       01327  604651606346    
       01330  466044214570    
       01331  606351214562    
       01332  262551626063    
       01333  466024466233    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512566513163           BCD 4REWRITE SOURCE PROGRAM.                                                 
       01340  256062466451    
       01341  232560475146    
       01342  275121443360    
       01343  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       46                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 24                FORCE NEW RECORD                                       
1                       00030        ORG 24                FORCE NEW RECORD                                       
       00030  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00030        TXH 24                3156  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  264346666046           BCD  FLOW OF PROGRAM IS TOO COMPLEX.  TRA TABLE HAS TOO MANY ENTR            
       01314  266047514627    
       01315  512144603162    
       01316  606346466023    
       01317  464447432567    
       01320  336060635121    
       01321  606321224325    
       01322  603021626063    
       01323  464660442145    
       01324  706025456351    
       01325  312562336060           BCD  IES.  REWRITE PROGRAM WITH                                              
       01326  512566513163    
       01327  256047514627    
       01330  512144606631    
       01331  633060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  262566255160           BCD 8FEWER TRANSFER ADDRESSES, OR DO IN TWO PARTS.                           
       01340  635121456226    
       01341  255160212424    
       01342  512562622562    
       01343  736046516024    
       01344  466031456063    
       01345  664660472151    
       01346  636233606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       50                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 25                FORCE NEW RECORD                                       
1                       00031        ORG 25                FORCE NEW RECORD                                       
       00031  0 01303 0 01333        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00031        TXH 25                2655  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01334 0 01311        HTR PR,0,PR+19                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  623171256046           BCD  SIZE OF REGION TABLE EXCEEDS 50 ENTRIES.  PROBABLY TOO MANY             
       01314  266051252731    
       01315  464560632122    
       01316  432560256723    
       01317  252524626005    
       01320  006025456351    
       01321  312562336060    
       01322  475146222122    
       01323  437060634646    
       01324  604421457060    
       01325  622547215121           BCD 7SEPARATE DO NESTS.  REPROGRAM PROBLEM.                                  
       01326  632560244660    
       01327  452562636233    
       01330  606051254751    
       01331  462751214460    
       01332  475146224325    
       01333  443360606060    
       01334  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 26                FORCE NEW RECORD                                       
1                       00032        ORG 26                FORCE NEW RECORD                                       
       00032  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00032        TXH 26               16004  FT  75                                           
                                         26                7447  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  622523633146           BCD  SECTION 5 TABLES EXCEED DRUM SIZE.  PROBLEM IS TOO LONG, OR             
       01314  456005606321    
       01315  224325626025    
       01316  672325252460    
       01317  245164446062    
       01320  317125336060    
       01321  475146224325    
       01322  446031626063    
       01323  464660434645    
       01324  277360465160    
       01325  302162606346           BCD 8HAS TOO MANY TRANSFERS.  REPROGRAM PROBLEM.                             
       01326  466044214570    
       01327  606351214562    
       01330  262551623360    
       01331  605125475146    
       01332  275121446047    
       01333  514622432544    
       01334  336060606060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       41                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 27                FORCE NEW RECORD                                       
1                       00033        ORG 27                FORCE NEW RECORD                                       
       00033  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00033        TXH 27                 533  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  633025512560           BCD  THERE HAVE BEEN NO REFERENCES MADE IN THE PROGRAM TO A VARIA            
       01314  302165256022    
       01315  252545604546    
       01316  605125262551    
       01317  254523256260    
       01320  442124256031    
       01321  456063302560    
       01322  475146275121    
       01323  446063466021    
       01324  606521513121    
       01325  224325606630           BCD 8BLE WHICH WAS LISTED AS A SUBROUTINE ARGUMENT.                          
       01326  312330606621    
       01327  626043316263    
       01330  252460216260    
       01331  216062642251    
       01332  466463314525    
       01333  602151276444    
       01334  254563336060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 28                FORCE NEW RECORD                                       
1                       00034        ORG 28                FORCE NEW RECORD                                       
       00034  0 01303 0 01333        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00034        TXH 28                 604  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01334 0 01311        HTR PR,0,PR+19                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  633025512560           BCD  THERE HAVE BEEN OVER 1,000 REFERENCES TO SUBROUTINE ARGUMENT            
       01314  302165256022    
       01315  252545604665    
       01316  255160017300    
       01317  000060512526    
       01320  255125452325    
       01321  626063466062    
       01322  642251466463    
       01323  314525602151    
       01324  276444254563    
       01325  626031456063           BCD 7S IN THE PROGRAM.  MODIFY SOURCE PROGRAM.                               
       01326  302560475146    
       01327  275121443360    
       01330  604446243126    
       01331  706062466451    
       01332  232560475146    
       01333  275121443360    
       01334  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 29                FORCE NEW RECORD                                       
1                       00035        ORG 29                FORCE NEW RECORD                                       
       00035  0 01303 0 01364        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00035        TXH 29                7100  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01365 0 01307        HTR PR,0,PR+46                                                               
       01306  0 02000 0 00272        TRA SPEND                                                                    
       01307  606060606060    PR     BCD 2                                                                        
       01310  606060606060    
       01311  464725456062           BCD  OPEN SUBROUTINE NOT IN DICTIONARY USED BY SECTION 3.  THIS I            
       01312  642251466463    
       01313  314525604546    
       01314  636031456024    
       01315  312363314645    
       01316  215170606462    
       01317  252460227060    
       01320  622523633146    
       01321  456003336060    
       01322  633031626031    
       01323  452431232163           BCD  NDICATES THAT THE SYSTEM TAPE                                           
       01324  256260633021    
       01325  636063302560    
       01326  627062632544    
       01327  606321472560    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  662162603144           BCD  WAS IMPROPERLY EDITED WHEN ADDITION WAS MADE TO DICTIONARY O            
       01336  475146472551    
       01337  437060252431    
       01340  632524606630    
       01341  254560212424    
       01342  316331464560    
       01343  662162604421    
       01344  242560634660    
       01345  243123633146    
       01346  452151706046    
       01347  266046472545           BCD  F OPEN SUBROUTINES USED BY                                              
       01350  606264225146    
       01351  646331452562    
       01352  606462252460    
       01353  227060606060    
       01354  606060606060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  622523633146           BCD 4SECTION 1 AND SECTION 3.                                                
       01362  456001602145    
       01363  246062252363    
       01364  314645600333    
       01365  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       64                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 30                FORCE NEW RECORD                                       
1                       00036        ORG 30                FORCE NEW RECORD                                       
       00036  0 01303 0 01354        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00036        TXH 30                 425  FT  67                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01355 0 01315        HTR PR,0,PR+32                                                               
       01306  0 76000 0 00166        SWT 6                                                                        
       01307  0 02000 0 00221        TRA DIGRTN                                                                   
       01310  0 50000 0 00312        CLA PRNT4                                                                    
       01311  0 60100 0 00311        STO PRNT2                                                                    
       01312  0 50000 0 01232        CLA ZERO                                                                     
       01313  0 62200 0 00316        STD HTR4                                                                     
       01314  0 02000 0 00272        TRA SPEND                                                                    
       01315  606060606060    PR     BCD 2                                                                        
       01316  606060606060    
       01317  624664512325           BCD  SOURCE PROGRAM CONTAINS AN ILLEGAL PATH OF FLOW, OR A MACHIN            
       01320  604751462751    
       01321  214460234645    
       01322  632131456260    
       01323  214560314343    
       01324  252721436047    
       01325  216330604626    
       01326  602643466673    
       01327  604651602160    
       01330  442123303145    
       01331  256025515146           BCD  E ERROR HAS RESULTED IN AN IMPOSSIBLE                                   
       01332  516030216260    
       01333  512562644363    
       01334  252460314560    
       01335  214560314447    
       01336  466262312243    
       01337  256060606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  302143636021           BCD  HALT AFTER A DIVIDE CHECK TEST.  CHECK SOURCE PROGRAM.                  
       01344  266325516021    
       01345  602431653124    
       01346  256023302523    
       01347  426063256263    
       01350  336060233025    
       01351  234260624664    
       01352  512325604751    
       01353  462751214433    
       01354  606060606060    
       01355  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       56                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 31                FORCE NEW RECORD                                       
1                       00037        ORG 31                FORCE NEW RECORD                                       
       00037  0 01303 0 01400        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00037        TXH 31                 277  FT 113                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01400 0 01315        HTR PR,0,PR+51                                                               
       01306  0 76000 0 00166        SWT 6                                                                        
       01307  0 02000 0 00221        TRA DIGRTN                                                                   
       01310  0 50000 0 00312        CLA PRNT4                                                                    
       01311  0 60100 0 00311        STO PRNT2                                                                    
       01312  0 50000 0 01232        CLA ZERO                                        -                            
       01313  0 62200 0 00316        STD HTR4                                                                     
       01314  0 02000 0 00272        TRA SPEND                                                                    
       01315  606060606060    PR     BCD 2                                                                        
       01316  606060606060    
       01317  214560216363           BCD  AN ATTEMPT TO FIND A NAME IN THE INTERNALLY DEFINED VARIABLE            
       01320  254447636063    
       01321  466026314524    
       01322  602160452144    
       01323  256031456063    
       01324  302560314563    
       01325  255145214343    
       01326  706024252631    
       01327  452524606521    
       01330  513121224325    
       01331  606321224325           BCD   TABLE HAS FAILED.  IF THE SOURCE PROGRAM BEING                         
       01332  603021626026    
       01333  213143252433    
       01334  606031266063    
       01335  302560624664    
       01336  512325604751    
       01337  462751214460    
       01340  222531452760    
       01341  606060606060    
       01342  606060606060    
       01343  234644473143           BCD  COMPILED IS EXTREMELY LARGE, THIS STOP MAY INDICATE AN OVERL            
       01344  252460316260    
       01345  256763512544    
       01346  254370604321    
       01347  512725736063    
       01350  303162606263    
       01351  464760442170    
       01352  603145243123    
       01353  216325602145    
       01354  604665255143    
       01355  214760462660           BCD  AP OF TABLES IN CORE MEMORY.  NAME IN QUESTION                          
       01356  632122432562    
       01357  603145602346    
       01360  512560442544    
       01361  465170336060    
       01362  452144256031    
       01363  456050642562    
       01364  633146456060    
       01365  606060606060    
       01366  606060606060    
       01367  316260626346           BCD  IS STORED IN LEFT MOST 20 BITS OF LOCATION 157.                         
       01370  512524603145    
       01371  604325266360    
       01372  444662636002    
       01373  006022316362    
       01374  604626604346    
       01375  232163314645    
       01376  600105073360    
       01377  606060606060    
       01400  606060606060    
       01401  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      22           0           0           0           0
 LIB       0           0           0           0           0
 COL      22           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       76                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 32                FORCE NEW RECORD                                       
1                       00040        ORG 32                FORCE NEW RECORD                                       
       00040  0 01303 0 01404        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00040        TXH 32                 341  FT  96                                           
                                         32                 341  FT  9B                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01405 0 01315        HTR PR,0,PR+56                                                               
       01306  0 76000 0 00166        SWT 6                                                                        
       01307  0 02000 0 00221        TRA DIGRTN                                                                   
       01310  0 50000 0 00312        CLA PRNT4                                                                    
       01311  0 60100 0 00311        STO PRNT2                                                                    
       01312  0 50000 0 01232        CLA ZERO                                                                     
       01313  0 62200 0 00316        STD HTR4                                                                     
       01314  0 02000 0 00272        TRA SPEND                                                                    
       01315  606060606060    PR     BCD 2                                                                        
       01316  606060606060    
       01317  214560216363           BCD  AN ATTEMPT HAS BEEN MADE TO ASSIGN TWO OR MORE STORAGE LOCAT            
       01320  254447636030    
       01321  216260222525    
       01322  456044212425    
       01323  606346602162    
       01324  623127456063    
       01325  664660465160    
       01326  444651256062    
       01327  634651212725    
       01330  604346232163    
       01331  314645626063           BCD  IONS TO THE SAME VARIABLE NAME.  FAILURE OF                             
       01332  466063302560    
       01333  622144256065    
       01334  215131212243    
       01335  256045214425    
       01336  336060262131    
       01337  436451256046    
       01340  266060606060    
       01341  606060606060    
       01342  606060606060    
       01343  622523633146           BCD  SECTION 1 PRIME OR SECTION 5 PRIME IN THE PREPARATION OF THE            
       01344  456001604751    
       01345  314425604651    
       01346  606225236331    
       01347  464560056047    
       01350  513144256031    
       01351  456063302560    
       01352  475125472151    
       01353  216331464560    
       01354  462660633025    
       01355  606321224325           BCD   TABLES OF EQUIVALENCE CLASSES HAS OCCURRED,                            
       01356  626046266025    
       01357  506431652143    
       01360  254523256023    
       01361  432162622562    
       01362  603021626046    
       01363  232364515125    
       01364  247360606060    
       01365  606060606060    
       01366  606060606060    
       01367  465160633025           BCD  OR THERE IS AN INCONSISTANCY IN COMMON, EQUIV, AND DIM SENTE            
       01370  512560316260    
       01371  214560314523    
       01372  464562316263    
       01373  214523706031    
       01374  456023464444    
       01375  464573602550    
       01376  643165736021    
       01377  452460243144    
       01400  606225456325    
       01401  452325626031           BCD 4NCES IN SOURCE LANGUAGE.                                                
       01402  456062466451    
       01403  232560432145    
       01404  276421272533    
       01405  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      24           0           0           0           0
 LIB       0           0           0           0           0
 COL      24           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       81                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 33                FORCE NEW RECORD                                       
1                       00041        ORG 33                FORCE NEW RECORD                                       
       00041  0 01303 0 01403        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00041        TXH 33                 352  FT 113                                           
       01304  0 76200 0 00304        RDR 4                                                                        
       01305  0 46000 0 01325        LDA A                                                                        
       01306  0 70000 0 01257        CPY ERAS                                                                     
       01307 -0 50000 0 01257        CAL ERAS                                                                     
       01310  0 77100 0 00022        ARS 18                                                                       
       01311  0 56000 0 00717        LDQ BLANKS                                                                   
       01312 -0 76300 0 00022        LGL 18                                                                       
       01313  0 60200 0 01403        SLW OP                                                                       
       01314  0 07400 4 00740        TSX PRINT,4                                                                  
       01315  0 01404 0 01326        HTR PR,0,PR+46                                                               
       01316  0 76000 0 00166        SWT 6                                                                        
       01317  0 02000 0 00221        TRA DIGRTN                                                                   
       01320  0 50000 0 00312        CLA PRNT4                                                                    
       01321  0 60100 0 00311        STO PRNT2                                                                    
       01322  0 50000 0 01232        CLA ZERO                                                                     
       01323  0 62200 0 00316        STD HTR4                                                                     
       01324  0 02000 0 00272        TRA SPEND                                                                    
       01325  0 00000 0 01326 A      HTR8726                                                                      
       01326  606060606060    PR     BCD 2                                                                        
       01327  606060606060    
       01330  214560216363           BCD  AN ATTEMPT TO FIND AN OPERATION ABBREVIATION IN THE TABLE OF            
       01331  254447636063    
       01332  466026314524    
       01333  602145604647    
       01334  255121633146    
       01335  456021222251    
       01336  256531216331    
       01337  464560314560    
       01340  633025606321    
       01341  224325604626    
       01342  606230215125           BCD   SHARE OPERATIONS HAS FAILED.  IF THE SOURCE                            
       01343  604647255121    
       01344  633146456260    
       01345  302162602621    
       01346  314325243360    
       01347  603126606330    
       01350  256062466451    
       01351  232560606060    
       01352  606060606060    
       01353  606060606060    
       01354  475146275121           BCD  PROGRAM BEING COMPILED IS EXTREMELY LARGE THIS MAY INDICATE             
       01355  446022253145    
       01356  276023464447    
       01357  314325246031    
       01360  626025676351    
       01361  254425437060    
       01362  432151272560    
       01363  633031626044    
       01364  217060314524    
       01365  312321632560    
       01366  214560466525           BCD  AN OVERLAP OF TABLES IN CORE MEMORY.                                    
       01367  514321476046    
       01370  266063212243    
       01371  256260314560    
       01372  234651256044    
       01373  254446517033    
       01374  606060606060    
       01375  606060606060    
       01376  606060606060    
       01377  606060606060    
       01400  633025604647           BCD 3THE OPERATION IS                                                        
       01401  255121633146    
       01402  456031626060    
       01403  606060606060    OP     BCD 1                                                                        
       01404  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      32           0           0           0           0
 LIB       0           0           0           0           0
 COL      32           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       79                  
0NUMBER OF SYMBOLS,  DEF   199,DEFOP     0,UNDEF     0      
9            ORG 34                FORCE NEW RECORD                                       
1                       00042        ORG 34                FORCE NEW RECORD                                       
       00042  0 01303 0 01410        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00042        TXH 34                 377  FT 115                                           
       01304  0 76200 0 00304        RDR 4                                                                        
       01305  0 46000 0 01322        LDA A                                                                        
       01306  0 70000 0 01401        CPY ERWRD                                                                    
       01307 -0 50000 0 00717        CAL BLANKS                                                                   
       01310  0 56000 0 01401        LDQ ERWRD                                                                    
       01311 -0 76300 0 00036        LGL 30                                                                       
       01312  0 60200 0 01401        SLW ERWRD                                                                    
       01313 -0 76300 0 00006        LGL 6                                                                        
       01314  0 56000 0 00717        LDQ BLANKS                                                                   
       01315 -0 76300 0 00036        LGL 30                                                                       
       01316  0 60200 0 01402        SLW ERWRD+1                                                                  
       01317  0 07400 4 00740        TSX PRINT,4                                                                  
       01320  0 01411 0 01323        HTR PR,0,PR+54                                                               
       01321  0 02000 0 00272        TRA SPEND                                                                    
       01322  0 00000 0 02540 A      HTR81376                                                                     
       01323  606060606060    PR     BCD 2                                                                        
       01324  606060606060    
       01325  255151465160           BCD  ERROR IN CARD SEQUENCE OF LIBRARY PROGRAM ON SYSTEM TAPE 1.             
       01326  314560232151    
       01327  246062255064    
       01330  254523256046    
       01331  266043312251    
       01332  215170604751    
       01333  462751214460    
       01334  464560627062    
       01335  632544606321    
       01336  472560013360    
       01337  602321512460           BCD   CARD READ SHOULD BE                                                    
       01340  512521246062    
       01341  304664432460    
       01342  222560606060    
       01343  606060606060    
       01344  606060606060    
       01345  606060606060    
       01346  606060606060    
       01347  606060606060    
       01350  606060606060    
       01351  216023464563           BCD  A CONTINUATION OF LIBRARY PROGRAM REQUESTED, BUT PROGRAM CAR            
       01352  314564216331    
       01353  464560462660    
       01354  433122512151    
       01355  706047514627    
       01356  512144605125    
       01357  506425626325    
       01360  247360226463    
       01361  604751462751    
       01362  214460232151    
       01363  246030216260           BCD  D HAS BEEN FOUND INSTEAD.                                               
       01364  222525456026    
       01365  466445246031    
       01366  456263252124    
       01367  336060606060    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  076043252663           BCD 47 LEFT ROW OF CARD READS                                                
       01376  605146666046    
       01377  266023215124    
       01400  605125212462    
       01401  606060606060    ERWRD  BCD 2                                                                        
       01402  606060606060    
       01403  263145246025           BCD 6FIND ERROR AND REWRITE LIBRARY.                                         
       01404  515146516021    
       01405  452460512566    
       01406  513163256043    
       01407  312251215170    
       01410  336060606060    
       01411  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      30           0           0           0           0
 LIB       0           0           0           0           0
 COL      30           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       84                  
0NUMBER OF SYMBOLS,  DEF   199,DEFOP     0,UNDEF     0      
9            ORG 35                FORCE NEW RECORD                                       
1                       00043        ORG 35                FORCE NEW RECORD                                       
       00043  0 01303 0 01352        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00043        TXH 35                 543  FT  115                                          
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01353 0 01307        HTR PR,0,PR+36                                                               
       01306  0 02000 0 00221        TRA DIGRTN                                                                   
       01307  606060606060    PR     BCD 2                                                                        
       01310  606060606060    
       01311  632147256023           BCD  TAPE CHECK IN READING RECORD FROM THE SYSTEM TAPE 1.  FIVE A            
       01312  302523426031    
       01313  456051252124    
       01314  314527605125    
       01315  234651246026    
       01316  514644606330    
       01317  256062706263    
       01320  254460632147    
       01321  256001336060    
       01322  263165256021    
       01323  636325444763           BCD  TTEMPTS HAVE BEEN MADE TO READ THIS                                     
       01324  626030216525    
       01325  602225254560    
       01326  442124256063    
       01327  466051252124    
       01330  606330316260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  512523465124           BCD  RECORD CORRECTLY.  MAY BE NECESSARY TO REWRITE LIBRARY FILE             
       01336  602346515125    
       01337  236343703360    
       01340  604421706022    
       01341  256045252325    
       01342  626221517060    
       01343  634660512566    
       01344  513163256043    
       01345  312251215170    
       01346  602631432560    
       01347  604645606330           BCD 4 ON THE SYSTEM TAPE.                                                    
       01350  256062706263    
       01351  254460632147    
       01352  253360606060    
       01353  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       54                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 36                FORCE NEW RECORD                                       
1                       00044        ORG 36                FORCE NEW RECORD                                       
       00044  0 01303 0 01354        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00044        TXH 36                 441  FT  96                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01355 0 01315        HTR PR,0,PR+32                                                               
       01306  0 76000 0 00166        SWT 6                                                                        
       01307  0 02000 0 00221        TRA DIGRTN                                                                   
       01310  0 50000 0 00312        CLA PRNT4                                                                    
       01311  0 60100 0 00311        STO PRNT2                                                                    
       01312  0 50000 0 01232        CLA ZERO                                                                     
       01313  0 62200 0 00316        STD HTR4                                                                     
       01314  0 02000 0 00272        TRA SPEND                                                                    
       01315  606060606060    PR     BCD 2                                                                        
       01316  606060606060    
       01317  216062642251           BCD  A SUBROUTINE CALL NAME OR A LIBRARY FUNCTION HAS BEEN USED A            
       01320  466463314525    
       01321  602321434360    
       01322  452144256046    
       01323  516021604331    
       01324  225121517060    
       01325  266445236331    
       01326  464560302162    
       01327  602225254560    
       01330  646225246021    
       01331  626021606521           BCD  S A VARIABLE NAME, OR THERE HAS BEEN A MACHINE                          
       01332  513121224325    
       01333  604521442573    
       01334  604651606330    
       01335  255125603021    
       01336  626022252545    
       01337  602160442123    
       01340  303145256060    
       01341  606060606060    
       01342  606060606060    
       01343  255151465160           BCD  ERROR IN COMPILING THE NAME.  CHECK SOURCE PROGRAM.                     
       01344  314560234644    
       01345  473143314527    
       01346  606330256045    
       01347  214425336060    
       01350  233025234260    
       01351  624664512325    
       01352  604751462751    
       01353  214433606060    
       01354  606060606060    
       01355  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       56                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 37                FORCE NEW RECORD                                       
1                       00045        ORG 37                FORCE NEW RECORD                                       
       00045  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00045        TXH 37                 562  FT 113                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01375 0 01315        HTR PR,0,PR+48                                                               
       01306  0 76000 0 00166        SWT 6                                                                        
       01307  0 02000 0 00221        TRA DIGRTN                                                                   
       01310  0 50000 0 00312        CLA PRNT4                                                                    
       01311  0 60100 0 00311        STO PRNT2                                                                    
       01312  0 50000 0 01232        CLA ZERO                                                                     
       01313  0 62200 0 00316        STD HTR4                                                                     
       01314  0 02000 0 00272        TRA SPEND                                                                    
       01315  606060606060    PR     BCD 2                                                                        
       01316  606060606060    
       01317  633025602162           BCD  THE ASSIGNMENT OF INSTRUCTION STORAGE LOCATIONS DOES NOT CHE            
       01320  623127454425    
       01321  456360462660    
       01322  314562635164    
       01323  236331464560    
       01324  626346512127    
       01325  256043462321    
       01326  633146456260    
       01327  244625626045    
       01330  466360233025    
       01331  234260663163           BCD  CK WITH THAT GIVEN IN A PREVIOUS RECORD.                                
       01332  306063302163    
       01333  602731652545    
       01334  603145602160    
       01335  475125653146    
       01336  646260512523    
       01337  465124336060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  312660633025           BCD  IF THE SOURCE PROGRAM BEING COMPILED IS EXTREMELY LARGE, THI            
       01344  606246645123    
       01345  256047514627    
       01346  512144602225    
       01347  314527602346    
       01350  444731432524    
       01351  603162602567    
       01352  635125442543    
       01353  706043215127    
       01354  257360633031    
       01355  626062634647           BCD  S STOP MAY INDICATE                                                     
       01356  604421706031    
       01357  452431232163    
       01360  256060606060    
       01361  606060606060    
       01362  606060606060    
       01363  606060606060    
       01364  606060606060    
       01365  606060606060    
       01366  606060606060    
       01367  214560466525           BCD 6AN OVERLAP OF TABLES IN MEMORY.                                         
       01370  514321476046    
       01371  266063212243    
       01372  256260314560    
       01373  442544465170    
       01374  336060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      22           0           0           0           0
 LIB       0           0           0           0           0
 COL      22           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 38                FORCE NEW RECORD                                       
1                       00046        ORG 38                FORCE NEW RECORD                                       
                                         END OF FILE**************************************************            
       00046  0 01303 0 01732        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00046        TXH 38                 425  FT  98                                           
                                         38                 107  FT  92                                           
                                         38                 277  FT  92                                           
                                         38                 260  FT  96                                           
                                         38                 465  FT  96                                           
                                         38                 260  FT  98                                           
                                         38                 247  FT 101                                           
                                         38                 245  FT 105                                           
                                         38                 241  FT 1I5                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 3 01232        LXD ZERO,3                                                                   
       01307  0 50000 1 01453 D      CLA A,1                                                                      
       01310  0 40200 0 01235        SUB ERWORD                                                                   
       01311  0 10000 0 01427        TZE B                                                                        
       01312  1 77763 1 01313        TXI C,1,-13                                                                  
       01313  3 77630 1 01307 C      TXH D,1,-13*8                                                                
       01314  0 07400 4 00740        TSX PRINT,4                                                                  
       01315  0 01427 0 01317        HTR ER,0,ER+72                                                               
       01316  0 00000 0 01452        HTR E                                                                        
       01317  606060606060    ER     BCD 2                                                                        
       01320  606060606060    
       01321  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01322  464560462660    
       01323  255151465173    
       01324  606630312330    
       01325  603021626022    
       01326  252545604751    
       01327  314563252473    
       01330  603021626023    
       01331  216462252460    
       01332  243121274546    
       01333  626331236051           BCD  STIC RECORD NUMBER 38                                                   
       01334  252346512460    
       01335  456444222551    
       01336  600310606060    
       01337  606060606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  634660222560           BCD  TO BE READ IN.  THIS RECORD COMPARES THE LOCATION TO A LIST             
       01346  512521246031    
       01347  453360606330    
       01350  316260512523    
       01351  465124602346    
       01352  444721512562    
       01353  606330256043    
       01354  462321633146    
       01355  456063466021    
       01356  604331626360    
       01357  462660076047           BCD  OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                        
       01360  466262312243    
       01361  256024516444    
       01362  605125212460    
       01363  262131436451    
       01364  256273602264    
       01365  636063302560    
       01366  622521512330    
       01367  606060606060    
       01370  606060606060    
       01371  302162602621           BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1453, 1453 PLUS 13, ET            
       01372  314325243360    
       01373  606330256025    
       01374  515146516260    
       01375  215125604331    
       01376  626325246031    
       01377  456001040503    
       01400  736001040503    
       01401  604743646260    
       01402  010373602563    
       01403  233360604751           BCD  C.  PRESS START IF YOU WISH TO                                          
       01404  256262606263    
       01405  215163603126    
       01406  607046646066    
       01407  316230606346    
       01410  606060606060    
       01411  606060606060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  512562634651           BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                       
       01416  256044212330    
       01417  314525606346    
       01420  606263216325    
       01421  603145606630    
       01422  312330602551    
       01423  514651604623    
       01424  236451512524    
       01425  336060606060    
       01426  606060606060    
       01427  0 50000 1 01454 B      CLA A1SIX,1                                                                  
       01430  0 60100 2 01631        STO PR1SIX,2                                                                 
       01431  1 77777 2 01432        TXI F,2,-1                                                                   
       01432 -3 77772 2 01434 F      TXL G,2,-6                                                                   
       01433  1 77777 1 01427        TXI B,1,-1                                                                   
       01434  0 50000 1 01455 G      CLA A1SIX+1,1                                                                
       01435  0 60100 0 01652        STO PR2                                                                      
       01436  0 50000 1 01456        CLA A1SIX+2,1                                                                
       01437  0 60100 0 01660        STO PR3                                                                      
       01440  0 50000 1 01457        CLA A1SIX+3,1                                                                
       01441  0 60100 0 01665        STO PR4TWO                                                                   
       01442  0 50000 1 01460        CLA A1SIX+4,1                                          -                     
       01443  0 60100 0 01666        STO PR4TWO+1                                                                 
       01444  0 50000 1 01461        CLA A1SIX+5,1                                                                
       01445  0 60100 0 01700        STO PR5TWO                                                                   
       01446  0 50000 1 01462        CLA A1SIX+6,1                                                                
       01447  0 60100 0 01701        STO PR5TWO+1                                                                 
       01450  0 07400 4 00740        TSX PRINT,4                                                                  
       01451  0 01733 0 01623        HTR PR,0,PR+72                                                               
       01452  0 02000 0 00221 E      TRA DIGRTN                                                                   
       01453 +000425000000    A      OCT 000425000000      SECTION VI RECORD L62                                  
       01454  452760635121    A1SIX  BCD 6NG TRANSFER VECTOR TABLE                                                
       01455  456226255160    
       01456  652523634651    
       01457  606321224325    
       01460  606060606060    
       01461  606060606060    
       01462  516444600333    A2     BCD 1RUM 3.                                                                  
       01463  600401013360    A3     BCD 1 411.                                                                   
       01464  316260314560    A4TWO  BCD 2IS IN 413.                                                              
       01465  040103336060    
       01466  314560060205    A5TWO  BCD 2IN 625.   CO                                                            
       01467  336060602346    
       01470 +000260000000           OCT 000260000000      SECTION VI RECORD L 61 OR 62                           
       01471  452760255064           BCD 6NG EQUIT TABLE                                                          
       01472  316360632122    
       01473  432560606060    
       01474  606060606060    
       01475  606060606060    
       01476  606060606060    
       01477  516444600133           BCD 1RUM 1.                                                                  
       01500  600204013360           BCD 1 241.                                                                   
       01501  316260314560           BCD 2IS IN 361.                                                              
       01502  030601336060    
       01503  314560030602           BCD 2IN 362.   CO                                                            
       01504  336060602346    
       01505 +000465000000           OCT 000465000000      SECTION VI RECORD L61                                  
       01506  452760623171           BCD 6NG SIZE TABLE                                                           
       01507  256063212243    
       01510  256060606060    
       01511  606060606060    
       01512  606060606060    
       01513  606060606060    
       01514  516444600233           BCD 1RUM 2.                                                                  
       01515  600405003360           BCD 1 450.                                                                   
       01516  316260314560           BCD 2IS IN 453.                                                              
       01517  040503336060    
       01520  314560030602           BCD 2IN 362.   CO                                                            
       01521  336060602346    
       01522 +000247000000           OCT 000247000000      SECTION VI - RECORD L 64                               
       01523  452760264651           BCD 6NG FORSUB TABLE                                                         
       01524  626422606321    
       01525  224325606060    
       01526  606060606060    
       01527  606060606060    
       01530  606060606060    
       01531  516444600333           BCD 1RUM 3.                                                                  
       01532  600203033360           BCD 1 233.                                                                   
       01533  316260314560           BCD 2IS IN 235.                                                              
       01534  020305336060    
       01535  314560030702           BCD 2IN 372.   CO                                                            
       01536  336060602346    
       01537 +000245000000           OCT 000245000000      SECTION VI - RECORD L66                                
       01540  452760264651           BCD 6NG FORSUB TABLE                                                         
       01541  626422606321    
       01542  224325606060    
       01543  606060606060    
       01544  606060606060    
       01545  606060606060    
       01546  516444600333           BCD 1RUM 3.                                                                  
       01547  600203013360           BCD 1 231.                                                                   
       01550  316260314560           BCD 2IS IN 233.                                                              
       01551  020303336060    
       01552  314560050506           BCD 2IN 556.   CO                                                            
       01553  336060602346    
       01554 +000241000000           OCT 000241000000      SECTION VI - RECORD L 73                               
       01555  452760635121           BCD 6NG TRANSFER VECTOR TABLE                                                
       01556  456226255160    
       01557  652523634651    
       01560  606321224325    
       01561  606060606060    
       01562  606060606060    
       01563  516444600333           BCD 1RUM 3.                                                                  
       01564  600202053360           BCD 1 225.                                                                   
       01565  316260314560           BCD 2IS IN 227.                                                              
       01566  020207336060    
       01567  314560010005           BCD 2IN 1054.  CO                                                            
       01570  043360602346    
       01571 +000277000000           OCT 000277000000      SECTION PRE 6                                          
       01572  452760623171           BCD 6NG SIZE TABLE                                                           
       01573  256063212243    
       01574  256060606060    
       01575  606060606060    
       01576  606060606060    
       01577  606060606060    
       01600  516444600233           BCD 1RUM 2.                                                                  
       01601  600206023360           BCD 1 262.                                                                   
       01602  316260314560           BCD 2IS IN 265.                                                              
       01603  020605336060    
       01604  314560010305           BCD 2IN 1351.  CO                                                            
       01605  013360602346    
       01606 +000107000000           OCT 000107000000      SECTION PRE 6                                          
       01607  452760635121           BCD 6NG TRANSFER VECTOR TABLE                                                
       01610  456226255160    
       01611  652523634651    
       01612  606321224325    
       01613  606060606060    
       01614  606060606060    
       01615  516444600333           BCD 1RUM 3.                                                                  
       01616  600703336060           BCD 1 73.                                                                    
       01617  316260314560           BCD 2IS IN 75.                                                               
       01620  070533606060    
       01621  314560010306           BCD 2IN 1366.  CO                                                            
       01622  063360602346    
       01623  606060606060    PR     BCD 2                                                                        
       01624  606060606060    
       01625  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01626  626444602551    
       01627  514651603145    
       01630  605125212431    
       01631  452760635121    PR1SIX BCD 6NG TRANSFER VECTOR TABLE                                                
       01632  456226255160    
       01633  652523634651    
       01634  606321224325    
       01635  606060606060    
       01636  606060606060    
       01637  606060606060           BCD                                                                          
       01640  606060606060    
       01641  606060606060    
       01642  606060606060    
       01643  606060606060    
       01644  606060606060    
       01645  606060606060    
       01646  606060606060    
       01647  606060606060    
       01650  606060606060    
       01651  265146446024           BCD 1FROM D                                                                  
       01652  516444600333    PR2    BCD 1RUM 3.                                                                  
       01653  606023464770           BCD 5  COPY LOOP BEGINS AT LOCATION                                          
       01654  604346464760    
       01655  222527314562    
       01656  602163604346    
       01657  232163314645    
       01660  600401013360    PR3    BCD 1 411.                                                                   
       01661  606062632151           BCD 4  STARTING DRUM ADDRESS                                                 
       01662  633145276024    
       01663  516444602124    
       01664  245125626260    
       01665  316260314560    PR4TWO BCD 8IS IN 413.                                                              
       01666  040103336060    
       01667  606060606060    
       01670  606060606060    
       01671  606060606060    
       01672  606060606060    
       01673  606060606060    
       01674  606060606060    
       01675  245164446023           BCD 3DRUM CHECK SUM IS                                                       
       01676  302523426062    
       01677  644460316260    
       01700  314560060205    PR5TWO BCD 3IN 625.   COMPUTED                                                      
       01701  336060602346    
       01702  444764632524    
       01703  602330252342           BCD   CHECK SUM IS NOT STORED, THEREFORE IT IS NOT AVAILABLE.                
       01704  606264446031    
       01705  626045466360    
       01706  626346512524    
       01707  736063302551    
       01710  252646512560    
       01711  316360316260    
       01712  454663602165    
       01713  213143212243    
       01714  253360606060    
       01715  606060606060           BCD 4                                                                        
       01716  606060606060    
       01717  606060606060    
       01720  606060606060    
       01721  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.              
       01722  636325444763    
       01723  626030216525    
       01724  602225254560    
       01725  442124256063    
       01726  466051252124    
       01727  606330316260    
       01730  632122432560    
       01731  234651512523    
       01732  634370336060    
       01733  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     118           0           0           0           0
 LIB       0           0           0           0           0
 COL     118           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      303                  
0NUMBER OF SYMBOLS,  DEF   215,DEFOP     0,UNDEF     0      
9            ORG 39                FORCE NEW RECORD                                       
1                       00047        ORG 39                FORCE NEW RECORD                                       
       00047  0 01303 0 02017        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00047        TXH 39                  47  FT  56                                           
                                         39                 734  FT  45                                           
                                         39                 123  FT  47                                           
                                         39                 140  FT  56                                           
                                         39                 305  FT  56                                           
                                         39                  41  FT  60                                           
                                         39                 607  FT  60                                           
                                         39                  70  FT  92                                           
                                         39                 246  FT  92                                           
                                         39                 442  FT  96                                           
                                         39                 500  FT  96                                           
                                         39                 230  FT 101                                           
                                         39                 222  FT 105                                           
                                         39                 222  FT 115                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 50000 0 01235        CLA ERWORD                                                                   
       01307  0 40000 0 01236        ADD RECORD                                                                   
       01310  0 60100 0 02020        STO X                                                                        
       01311 -0 53400 3 01232        LXD ZERO,3                                                                   
       01312  0 50000 1 01456 D      CLA A,1                                                                      
       01313  0 40200 0 02020        SUB X                                                                        
       01314  0 10000 0 01432        TZE B                                                                        
       01315  1 77765 1 01316        TXI C,1,-11                                                                  
       01316  3 77546 1 01312 C      TXH D,1,-11*14                                                               
       01317  0 07400 4 00740        TSX PRINT,4                                                                  
       01320  0 01432 0 01322        HTR ER,0,ER+72                                                               
       01321  0 00000 0 01455        HTR E                                                                        
       01322  606060606060    ER     BCD 2                                                                        
       01323  606060606060    
       01324  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01325  464560462660    
       01326  255151465173    
       01327  606630312330    
       01330  603021626022    
       01331  252545604751    
       01332  314563252473    
       01333  603021626023    
       01334  216462252460    
       01335  243121274546    
       01336  626331236051           BCD  STIC RECORD NUMBER 39                                                   
       01337  252346512460    
       01340  456444222551    
       01341  600311606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  606060606060    
       01346  606060606060    
       01347  606060606060    
       01350  634660222560           BCD  TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O            
       01351  512521246031    
       01352  453360633031    
       01353  626051252346    
       01354  512460234644    
       01355  472151256260    
       01356  633025604346    
       01357  232163314645    
       01360  606346602160    
       01361  433162636046    
       01362  266001046047           BCD  F 14 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                        
       01363  466262312243    
       01364  256024516444    
       01365  605125212460    
       01366  262131436451    
       01367  256273602264    
       01370  636063302560    
       01371  622521512330    
       01372  606060606060    
       01373  606060606060    
       01374  302162602621           BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1456, 1456 PLUS 11, ET            
       01375  314325243360    
       01376  606330256025    
       01377  515146516260    
       01400  215125604331    
       01401  626325246031    
       01402  456001040506    
       01403  736001040506    
       01404  604743646260    
       01405  010173602563    
       01406  233360604751           BCD  C.  PRESS START IF YOU WISH TO                                          
       01407  256262606263    
       01410  215163603126    
       01411  607046646066    
       01412  316230606346    
       01413  606060606060    
       01414  606060606060    
       01415  606060606060    
       01416  606060606060    
       01417  606060606060    
       01420  512562634651           BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED                        
       01421  256044212330    
       01422  314525606346    
       01423  606263216325    
       01424  603145606630    
       01425  312330602551    
       01426  514651604623    
       01427  236451512524    
       01430  606060606060    
       01431  606060606060    
       01432  0 50000 1 01457 B      CLA A1FOR,1                                                                  
       01433  0 60100 2 01722        STO PR1FOR,2                                                                 
       01434  1 77777 2 01435        TXI F,2,-1                                                                   
       01435 -3 77774 2 01437  F     TXL G,2,-4                                                                   
       01436  1 77777 1 01432        TXI B,1,-1                                                                   
       01437  0 50000 1 01460 G      CLA A1FOR+1,1                                                                
       01440  0 60100 0 01737        STO PR2                                                                      
       01441  0 50000 1 01461        CLA A1FOR+2,1                                                                
       01442  0 60100 0 01745        STO PR3                                                                      
       01443  0 50000 1 01462        CLA A1FOR+3,1                                                                
       01444  0 60100 0 01752        STO PR4TWO                                                                   
       01445  0 50000 1 01463        CLA A1FOR+4,1                                                                
       01446  0 60100 0 01753        STO PR4TWO+1                                                                 
       01447  0 50000 1 01464        CLA A1FOR+5,1                                                                
       01450  0 60100 0 01767        STO PR5                                                                      
       01451  0 50000 1 01465        CLA A1FOR+6,1                                                                
       01452  0 60100 0 01774        STO PR6                                                                      
       01453  0 07400 4 00740        TSX PRINT,4                                                                  
       01454  0 02020 0 01710        HTR PR,0,PR+72                                                               
       01455  0 02000 0 00221 E      TRA DIGRTN                                                                   
       01456 +000047000072    A      OCT 000047000072      SECTION II - FT 58                                     
       01457  606351216263    A1FOR  BCD 4 TRASTO TABLE                                                           
       01460  466063212243    
       01461  256060606060    
       01462  606060606060    
       01463  516444600333    A2     BCD 1RUM 3.                                                                  
       01464  600306336060    A3     BCD 1 36.                                                                    
       01465  626031456002    A4TWO  BCD 2S IN 2332.                                                              
       01466  030302336060    
       01467  466002030405    A5     BCD 1O 2345                                                                  
       01470  020304063360    A6     BCD 12346.                                                                   
       01471 +000041000074           OCT 000041000074      SECTION III - FT 60                                    
       01472  606362672346           BCD 4 TSXCOM TABLE                                                           
       01473  446063212243    
       01474  256060606060    
       01475  606060606060    
       01476  516444600333           BCD 1RUM 3.                                                                  
       01477  600300336060           BCD 1 30.                                                                    
       01500  626031456001           BCD 2S IN 1147.                                                              
       01501  010407336060    
       01502  466001020206           BCD 1O 1226                                                                  
       01503  010202073360           BCD 11227.                                                                   
       01504 +000607000074           OCT 000607000074      SECTION III - FT 60                                    
       01505  602631672346           BCD 4 FIXCON TABLE                                                           
       01506  456063212243    
       01507  256060606060    
       01510  606060606060    
       01511  516444600233           BCD 1RUM 2.                                                                  
       01512  600507073360           BCD 1 577.                                                                   
       01513  626071255146           BCD 2S ZERO.                                                                 
       01514  336060606060    
       01515  466001020206           BCD 1O 1226                                                                  
       01516  010202073360           BCD 11227.                                                                   
       01517 +000123000057           OCT 000123000057      SECTION II - FT 47   BLOCK 5                           
       01520  602631672346           BCD 4 FIXCON TABLE                                                           
       01521  456063212243    
       01522  256060606060    
       01523  606060606060    
       01524  516444600233           BCD 1RUM 2.                                                                  
       01525  600701336060           BCD 1 71.                                                                    
       01526  626071255146           BCD 2S ZERO.                                                                 
       01527  336060606060    
       01530  466001020460           BCD 1O 124                                                                   
       01531  010205336060           BCD 1125.                                                                    
       01532 +000734000055           OCT 000734000055      SECTION II - FT 45   BLOCK 4                           
       01533  602631672346           BCD 4 FIXCON TABLE                                                           
       01534  456063212243    
       01535  256060606060    
       01536  606060606060    
       01537  516444600233           BCD 1RUM 2.                                                                  
       01540  600701003360           BCD 1 710.                                                                   
       01541  626071255146           BCD 2S ZERO.                                                                 
       01542  336060606060    
       01543  466001000007           BCD 1O 1007                                                                  
       01544  010001003360           BCD 11010.                                                                   
       01545 +000070000134           OCT 000070000134      SECTION PRE 6 - FT 92                                  
       01546  606351214562           BCD 4 TRANSFER VECTOR TABLE                                                  
       01547  262551606525    
       01550  236346516063    
       01551  212243256060    
       01552  516444600333           BCD 1RUM 3.                                                                  
       01553  600506336060           BCD 1 56.                                                                    
       01554  626031456006           BCD 2S IN 60.                                                                
       01555  003360606060    
       01556  466004050704           BCD 1O 4574                                                                  
       01557  040507053360           BCD 14575.                                                                   
       01560 +000246000134           OCT 000246000134      SECTION PRE 6 - FT 92                                  
       01561  606231712560           BCD 4 SIZE TABLE                                                             
       01562  632122432560    
       01563  606060606060    
       01564  606060606060    
       01565  516444600233           BCD 1RUM 2.                                                                  
       01566  600203043360           BCD 1 234.                                                                   
       01567  626031456002           BCD 2S IN 237.                                                               
       01570  030733606060    
       01571  466001030500           BCD 1O 1350                                                                  
       01572  010305013360           BCD 11351.                                                                   
       01573 +000442000140           OCT 000442000140      SECTION VI - FT 96   L 61                              
       01574  606231712560           BCD 4 SIZE TABLE                                                             
       01575  632122432560    
       01576  606060606060    
       01577  606060606060    
       01600  516444600233           BCD 1RUM 2.                                                                  
       01601  600403003360           BCD 1 430.                                                                   
       01602  626031456004           BCD 2S IN 433.                                                               
       01603  030333606060    
       01604  466003060660           BCD 1O 366                                                                   
       01605  030602336060           BCD 1362.                                                                    
       01606 +000500000140           OCT 000500000140      SECTION VI - FT 96   L 62                              
       01607  602550643163           BCD 4 EQUIT TABLE                                                            
       01610  606321224325    
       01611  606060606060    
       01612  606060606060    
       01613  516444600133           BCD 1RUM 1.                                                                  
       01614  600406063360           BCD 1 466.                                                                   
       01615  626031456004           BCD 2S IN 471.                                                               
       01616  070133606060    
       01617  466003070060           BCD 1O 370                                                                   
       01620  030602336060           BCD 1362.                                                                    
       01621 +000230000145           OCT 000230000145      SECTION VI - FT 101   L 64                             
       01622  602646516264           BCD 4 FORSUB TABLE                                                           
       01623  226063212243    
       01624  256060606060    
       01625  606060606060    
       01626  516444600333           BCD 1RUM 3.                                                                  
       01627  600201053360           BCD 1 215.                                                                   
       01630  626031456002           BCD 2S IN 217.                                                               
       01631  010733606060    
       01632  466007000460           BCD 1O 704                                                                   
       01633  030702336060           BCD 1372.                                                                    
       01634 +000222000151           OCT 000222000151      SECTION VI - FT 105   L 66                             
       01635  602646516264           BCD 4 FORSUB TABLE                                                           
       01636  226063212243    
       01637  256060606060    
       01640  606060606060    
       01641  516444600333           BCD 1RUM 3.                                                                  
       01642  600201003360           BCD 1 210.                                                                   
       01643  626031456002           BCD 2S IN 212.                                                               
       01644  010233606060    
       01645  466007020360           BCD 1O 723                                                                   
       01646  050506336060           BCD 1556.                                                                    
       01647 +000222000163           OCT 000222000163      SECTION VI - FT 115   L 73                             
       01650  606351214562           BCD 4 TRANSFER VECTOR TABLE                                                  
       01651  262551606525    
       01652  236346516063    
       01653  212243256060    
       01654  516444600333           BCD 1RUM 3.                                                                  
       01655  600201003360           BCD 1 210.                                                                   
       01656  626031456002           BCD 2S IN 212.                                                               
       01657  010233606060    
       01660  466003020006           BCD 1O 3206                                                                  
       01661  010005043360           BCD 11054.                                                                   
       01662 +000140000070           OCT 000140000070      SECTION III - FT 56                                    
       01663  602330276321           BCD 4 CHGTAG TABLE                                                           
       01664  276063212243    
       01665  256060606060    
       01666  606060606060    
       01667  516444600333           BCD 1RUM 3.                                                                  
       01670  600102073360           BCD 1 127.                                                                   
       01671  626031456002           BCD 2S IN 2170.                                                              
       01672  010700336060    
       01673  466005070307           BCD 1O 5737                                                                  
       01674  050704003360           BCD 15740.                                                                   
       01675 +000305000070           OCT 000305000070      SECTION III - FT 56                                    
       01676  606267246367           BCD 4 SXDTX TABLE                                                            
       01677  606321224325    
       01700  606060606060    
       01701  606060606060    
       01702  516444600133           BCD 1RUM 1.                                                                  
       01703  600207043360           BCD 1 274.                                                                   
       01704  626031456002           BCD 2S IN 2213.                                                              
       01705  020103336060    
       01706  466005070307           BCD 1O 5737                                                                  
       01707  050704003360           BCD 15740.                                                                   
       01710  606060606060    PR     BCD 2                                                                        
       01711  606060606060    
       01712  233025234260           BCD 8CHECK SUM ERROR IN READING THE WORD COUNT OF THE                        
       01713  626444602551    
       01714  514651603145    
       01715  605125212431    
       01716  452760633025    
       01717  606646512460    
       01720  234664456360    
       01721  462660633025    
       01722  606351214562    PR1FOR BCD 4 TRANSFER VECTOR TABLE                                                  
       01723  262551606525    
       01724  236346516063    
       01725  212243256060    
       01726  606060606060           BCD 8                                                                        
       01727  606060606060    
       01730  606060606060    
       01731  606060606060    
       01732  606060606060    
       01733  606060606060    
       01734  606060606060    
       01735  606060606060    
       01736  265146446024           BCD 1FROM D                                                                  
       01737  516444600333    PR2    BCD 1RUM 3.                                                                  
       01740  606023464770           BCD 5  COPY LOOP BEGINS AT LOCATION                                          
       01741  604346464760    
       01742  222527314562    
       01743  602163604346    
       01744  232163314645    
       01745  600102033360    PR3    BCD 1 123.                                                                   
       01746  606263215163           BCD 4 STARTING DRUM ADDRESS I                                                
       01747  314527602451    
       01750  644460212424    
       01751  512562626031    
       01752  626031456001    PR4TWO BCD 8S IN 1234.                                                              
       01753  020304336060    
       01754  606060606060    
       01755  606060606060    
       01756  606060606060    
       01757  606060606060    
       01760  606060606060    
       01761  606060606060    
       01762  664651246023           BCD 5WORD COUNT HAS BEEN COPIED INT                                          
       01763  466445636030    
       01764  216260222525    
       01765  456023464731    
       01766  252460314563    
       01767  006001020304    PR5    BCD 10 1234                                                                  
       01770  602145246031           BCD 4 AND ITS CHECK SUM INTO                                                 
       01771  636260233025    
       01772  234260626444    
       01773  603145634660    
       01774  010203043360    PR6    BCD  1234.                                                                   
       01775  606060606060    
       01776  606060606060    
       01777  606060606060    
       02000  606060606060    
       02001  606060606060    
       02002  606060606060    
       02003  606060606060    
       02004  606060606060    
       02005  606060606060    
       02006  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ENTRY CORRECTLY.              
       02007  636325444763    
       02010  626030216525    
       02011  602225254560    
       02012  442124256063    
       02013  466051252124    
       02014  606330316260    
       02015  254563517060    
       02016  234651512523    
       02017  634370336060    
       02020  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     175           0           0           0           0
 LIB       0           0           0           0           0
 COL     175           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      360                  
0NUMBER OF SYMBOLS,  DEF   217,DEFOP     0,UNDEF     0      
9            ORG 40                FORCE NEW RECORD                                       
1                       00050        ORG 40                FORCE NEW RECORD                                       
       00050  0 01303 0 01714        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00050        TXH 40                4444  FT  51                                           
                                         40                6357  FT  29                                           
                                         4O                7027  FT  36                                           
                                         40                6762  FT  43                                           
                                         40                1141  FT  45                                           
                                         40                 216  FT  47                                           
                                         40                 161  FT  56                                           
                                         40                 334  FT  56                                           
                                         4O                 107  FT  58                                           
                                         4O                 627  FT  60                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 1 01232        LXD ZERO,1                                                                   
       01307  0 50000 1 01452 D      CLA A,1                                                                      
       01310  0 40200 0 01235        SUB ERWORD                                                                   
       01311  0 10000 0 01427        TZE B                                                                        
       01312  1 77767 1 01313        TXI C,1,-9                                                                   
       01313  3 77646 1 01307 C      TXH D,1,-9*10                                                                
       01314  0 07400 4 00740        TSX PRINT,4                                                                  
       01315  0 01427 0 01317        HTR ER,0,ER+72                                                               
       01316  0 00000 0 01451        HTR E                                                                        
       01317  606060606060    ER     BCD 2                                                                        
       01320  606060606060    
       01321  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01322  464560462660    
       01323  255151465173    
       01324  606630312330    
       01325  603021626022    
       01326  252545604751    
       01327  314563252473    
       01330  603021626023    
       01331  216462252460    
       01332  243121274546    
       01333  626331236051           BCD  STIC RECORD NUMBER 40                                                   
       01334  252346512460    
       01335  456444222551    
       01336  600400606060    
       01337  606060606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  634660222560           BCD  TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O            
       01346  512521246031    
       01347  453360633031    
       01350  626051252346    
       01351  512460234644    
       01352  472151256260    
       01353  633025604346    
       01354  232163314645    
       01355  606346602160    
       01356  433162636046    
       01357  266001006047           BCD  F 10 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                        
       01360  466262312243    
       01361  256024516444    
       01362  605125212460    
       01363  262131436451    
       01364  256273602264    
       01365  636063302560    
       01366  622521512330    
       01367  606060606060    
       01370  606060606060    
       01371  302162602621           BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1452, 1452 PLUS 9 ETC.            
       01372  314325243360    
       01373  606330256025    
       01374  515146516260    
       01375  215125604331    
       01376  626325246031    
       01377  456001040502    
       01400  736001040502    
       01401  604743646260    
       01402  116025632333    
       01403  606047512562           BCD    PRESS START IF YOU WISH TO                                            
       01404  626062632151    
       01405  636031266070    
       01406  466460663162    
       01407  306063466060    
       01410  606060606060    
       01411  606060606060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  256263465125           BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                        
       01416  604421233031    
       01417  452560634660    
       01420  626321632560    
       01421  314560663031    
       01422  233060255151    
       01423  465160462323    
       01424  645151252433    
       01425  606060606060    
       01426  606060606060    
       01427  0 50000 1 01453 B      CLA A1TWO,1                                                                  
       01430  0 60100 0 01615        STO PR1TWO                                                                   
       01431  0 50000 1 01454        CLA A1TWO+1,1                                                                
       01432  0 60100 0 01616        STO PR1TWO+1                                                                 
       01433  0 50000 1 01455        CLA A2,1                                                                     
       01434  0 60100 0 01621        STO PR2                                                                      
       01435  0 50000 1 01456        CLA A3TWO,1                                                                  
       01436  0 60100 0 01636        STO PR3TWO                                                                   
       01437  0 50000 1 01457        CLA A3TWO+1,1                                                                
       01440  0 60100 0 01637        STO PR3TWO+1                                                                 
       01441  0 50000 1 01460        CLA A4TWO,1                                                                  
       01442  0 60100 0 01644        STO PR4TWO                                                                   
       01443  0 50000 1 01461        CLA A4TWO+1,1                                                                
       01444  0 60100 0 01645        STO PR4TWO+1                                                                 
       01445  0 50000 1 01462        CLA A5,1                                                                     
       01446  0 60100 0 01662        STO PR5                                                                      
       01447  0 07400 4 00740        TSX PRINT,4                                                                  
       01450  0 01715 0 01604        HTR PR,0,PR+73                                                               
       01451  0 02000 0 00221 E      TRA DIGRTN                                                                   
       01452 +004666000000    A      OCT 004666000000      SECTION II - BLOCK 5                                   
       01453  602631672346    A1TWO  BCD 2 FIXCON TABL                                                            
       01454  456063212243    
       01455  023360606060    A2     BCD 12.                                                                      
       01456  633146456004    A3TWO  BCD 2TION 4605.                                                              
       01457  060005336060    
       01460  603145600502    A4TWO  BCD 2 IN 5214.                                                               
       01461  010433606060    
       01462  266001606646    A5     BCD 1F 1 WO                                                                  
       01463 +001141000000           OCT 001141000000      SECTION II - BLOCK 4                                   
       01464  602631672346           BCD 2 FIXCON TABL                                                            
       01465  456063212243    
       01466  023360606060           BCD 12.                                                                      
       01467  633146456001           BCD 2TION 1060.                                                              
       01470  000600336060    
       01471  603145600104           BCD 2 IN 1401                                                                
       01472  000160606060    
       01473  266001606646           BCD 1F 1 WO                                                                  
       01474 +000627000000           OCT 000627000000      SECTION III - FT60                                     
       01475  602631672346           BCD 2 FIXCON TABL                                                            
       01476  456063212243    
       01477  023360606060           BCD 12.                                                                      
       01500  633146456006           BCD 2TION 610.                                                               
       01501  010033606060    
       01502  603145600101           BCD 2 IN 1143.                                                               
       01503  040333606060    
       01504  266001606646           BCD 1F 1 WO                                                                  
       01505 +000161000000           OCT 000161000000      SECTION III - FT56                                     
       01506  602330276321           BCD 2 CHGTAG TABL                                                            
       01507  276063212243    
       01510  033360606060           BCD 13.                                                                      
       01511  633146456001           BCD 2TION 141.                                                               
       01512  040133606060    
       01513  603145600201           BCD 2 IN 2172.                                                               
       01514  070233606060    
       01515  266002606646           BCD 1F 2 WO                                                                  
       01516 +007027000000           OCT 007027000000      SECTION II - BLOCK 3                                   
       01517  602646516521           BCD 2 FORVAL TABL                                                            
       01520  436063212243    
       01521  023360606060           BCD 12.                                                                      
       01522  633146456006           BCD 2TION 6776.                                                              
       01523  070706336060    
       01524  603145600607           BCD 2 IN 6706.                                                               
       01525  000633606060    
       01526  266002606646           BCD 1F 2 WO                                                                  
       01527 +006762000000           OCT 006762000000      SECTION II - BLOCK 3-C                                 
       01530  606362672346           BCD 2 TSXCOM TABL                                                            
       01531  446063212243    
       01532  033360606060           BCD 13.                                                                      
       01533  633146456006           BCD 2TION 6723.                                                              
       01534  070203336060    
       01535  603145600607           BCD 2 IN 6716.                                                               
       01536  010633606060    
       01537  266002606646           BCD 1F 2 WO                                                                  
       01540 +006357000000           OCT 006357000000      SECTION II - BLOCK2 - STATE B                          
       01541  602646516521           BCD 2 FORVAL TABL                                                            
       01542  436063212243    
       01543  023360606060           BCD 12.                                                                      
       01544  633146456006           BCD 2TION 6211.                                                              
       01545  020101336060    
       01546  603145600603           BCD 2 IN 6362.                                                               
       01547  060233606060    
       01550  266002606646           BCD 1F 2 WO                                                                  
       01551 +000107000000           OCT 000107000000      SECTION III - FT 58                                    
       01552  606351216263           BCD 2 TRASTO TABL                                                            
       01553  466063212243    
       01554  033360606060           BCD 13.                                                                      
       01555  633146456005           BCD 2TION 56.                                                                
       01556  063360606060    
       01557  603145600203           BCD 2 IN 2336.                                                               
       01560  030633606060    
       01561  266003606646           BCD 1F 3 WO                                                                  
       01562 +000334000000           OCT 000334000000      SECTION III                                            
       01563  606062672463           BCD 2  SXDTX TABL                                                            
       01564  676063212243    
       01565  013360606060           BCD 11.                                                                      
       01566  633146456003           BCD 2TION 306.                                                               
       01567  000633606060    
       01570  603145600202           BCD 2 IN 2214.                                                               
       01571  010433606060    
       01572  266002606646           BCD 1F 2 WO                                                                  
       01573 +000216000000           OCT 000216000000      SECTION II - BLOCK 5                                   
       01574  606021246321           BCD 2  ADTAG TABL                                                            
       01575  276063212243    
       01576  033360606060           BCD 13.                                                                      
       01577  633146456001           BCD 2TION 150.                                                               
       01600  050033606060    
       01601  603145600201           BCD 2 IN 217.                                                                
       01602  073360606060    
       01603  266004606646           BCD 1F 4 WO                                                                  
       01604  606060606060    PR     BCD 2                                                                        
       01605  606060606060    
       01606  233025234260           BCD 7CHECK SUM ERROR IN READING AN ENTRY OF THE                              
       01607  626444602551    
       01610  514651603145    
       01611  605125212431    
       01612  452760214560    
       01613  254563517060    
       01614  462660633025    
       01615  602631672346    PR1TWO BCD 2 FIXCON TABL                                                            
       01616  456063212243    
       01617  256026514644           BCD 2E FROM DRUM                                                             
       01620  602451644460    
       01621  023360606060    PR2    BCD 92.                                                                      
       01622  606060606060    
       01623  606060606060    
       01624  606060606060    
       01625  606060606060    
       01626  606060606060    
       01627  606060606060    
       01630  606060606060    
       01631  606060606060    
       01632  234647706043           BCD 4COPY LOOP BEGINS AT LOCA                                                
       01633  464647602225    
       01634  273145626021    
       01635  636043462321    
       01636  633146456001    PR3TWO BCD 2TION 1234.                                                              
       01637  020304336060    
       01640  626321516331           BCD 4STARTING DRUM ADDRESS IS                                                
       01641  452760245164    
       01642  446021242451    
       01643  256262603162    
       01644  603145600102    PR4TWO BCD 2 IN 1234.                                                               
       01645  030433606060    
       01646  606060606060           BCD 8                                                                        
       01647  606060606060    
       01650  606060606060    
       01651  606060606060    
       01652  606060606060    
       01653  606060606060    
       01654  606060606060    
       01655  606060606060    
       01656  633031626063           BCD 4THIS TABLE IS COMPOSED O                                                
       01657  212243256031    
       01660  626023464447    
       01661  466225246046    
       01662  266001606646    PR5    BCD 1F 1 WO                                                                  
       01663  512460254563           BCD  RD ENTRIES AND A CHECK SUM FOR EACH ENTRY.                              
       01664  513125626021    
       01665  452460216023    
       01666  302523426062    
       01667  644460264651    
       01670  602521233060    
       01671  254563517033    
       01672  606060606060    
       01673  606060606060    
       01674  606060606060    
       01675  606060606060           BCD 5                                                                        
       01676  606060606060    
       01677  606060606060    
       01700  606060606060    
       01701  606060606060    
       01702  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE ENTIRE TABLE CORREC            
       01703  636325444763    
       01704  626030216525    
       01705  602225254560    
       01706  442124256063    
       01707  466051252124    
       01710  606330256025    
       01711  456331512560    
       01712  632122432560    
       01713  234651512523    
       01714  634370336060           BCD 1TLY.                                                                    
       01715  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     130           0           0           0           0
 LIB       0           0           0           0           0
 COL     130           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      289                  
0NUMBER OF SYMBOLS,  DEF   213,DEFOP     0,UNDEF     0      
9            ORG 41                FORCE NEW RECORD                                       
1                       00051        ORG 41                FORCE NEW RECORD                                       
       00051  0 01303 0 01443        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00051        TXH 41                5560  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 2 00000        LXD 0,2               IR 2EQUALS 2 FOR STATE B, BCD IS SET UP                
       01307  3 00001 2 01322        TXH PRIN,2,1                                                                 
       01310  0 50000 0 01437        CLA A1                                                                       
       01311  0 60100 0 01336        STO PR1                                                                      
       01312  0 50000 0 01440        CLA A2                                                                       
       01313  0 60100 0 01400        STO PR2                                                                      
       01314  0 50000 0 01441        CLA A3                                                                       
       01315  0 60100 0 01403        STO PR3                                                                      
       01316  0 50000 0 01442        CLA A4                                                                       
       01317  0 60100 0 01411        STO PR4                                                                      
       01320  0 50000 0 01443        CLA A5                                                                       
       01321  0 60100 0 01416        STO PR5                                                                      
       01322  0 07400 4 00740 PRIN   TSX PRINT,4                                                                  
       01323  0 01437 0 01325        HTR PR,0,PR+74                                                               
       01324  0 02000 0 00221        TRA DIGRTN                                                                   
       01325  606060606060    PR     BCD 2                                                                        
       01326  606060606060    
       01327  233025234260           BCD 7CHECK SUM ERROR IN READING DRUM 1.  THE ST                              
       01330  626444602551    
       01331  514651603145    
       01332  605125212431    
       01333  452760245164    
       01334  446001336060    
       01335  633025606263    
       01336  216325602260    PR1    BCD 1ATE B                                                                   
       01337  234624314527           BCD  CODING USED BY SECTION II, BLOCK 2, HAS BEEN                            
       01340  606462252460    
       01341  227060622523    
       01342  633146456031    
       01343  317360224346    
       01344  234260027360    
       01345  302162602225    
       01346  254560606060    
       01347  606060606060    
       01350  606060606060    
       01351  606060606060           BCD 2                                                                        
       01352  606060606060    
       01353  512521246031           BCD  READ INTO LOCATIONS 5566 THROUGH 6565.  THE COMPUTED CHECK S            
       01354  456346604346    
       01355  232163314645    
       01356  626005050606    
       01357  606330514664    
       01360  273060060506    
       01361  053360606330    
       01362  256023464447    
       01363  646325246023    
       01364  302523426062    
       01365  644473604346           BCD  UM, LOCATION 5561, IS COMPARED TO THE PERMANENT                         
       01366  232163314645    
       01367  600505060173    
       01370  603162602346    
       01371  444721512524    
       01372  606346606330    
       01373  256047255144    
       01374  214525456360    
       01375  606060606060    
       01376  606060606060    
       01377  626321632560           BCD 1STATE                                                                   
       01400  226062644460    PR2    BCD 3B SUM IN LOCATION                                                       
       01401  314560434623    
       01402  216331464560    
       01403  050506023360    PR3    BCD 65562.  COPY LOOP BEGINS AT LOCATION                                     
       01404  602346477060    
       01405  434646476022    
       01406  252731456260    
       01407  216360434623    
       01410  216331464560    
       01411  050503043360    PR4    BCD 55534.  STARTING DRUM ADDRESS I                                          
       01412  606263215163    
       01413  314527602451    
       01414  644460212424    
       01415  512562626031    
       01416  626001000000    PR5    BCD 5S 1000.                                                                 
       01417  336060606060    
       01420  606060606060    
       01421  606060606060    
       01422  606060606060    
       01423  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS BLOCK OF PROGRAM C            
       01424  636325444763    
       01425  626030216525    
       01426  602225254560    
       01427  442124256063    
       01430  466051252124    
       01431  606330316260    
       01432  224346234260    
       01433  462660475146    
       01434  275121446023    
       01435  465151252363           BCD 2ORRECTLY.                                                               
       01436  437033606060    
       01437  216325602160    A1     BCD 1ATE A                                                                   
       01440  216062644460    A2     BCD 1A SUM                                                                   
       01441  050506033360    A3     BCD 15563.                                                                   
       01442  050505053360    A4     BCD 15555.                                                                   
       01443  626071255146    A5     BCD 1S ZERO                                                                  
       01444  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      43           0           0           0           0
 LIB       0           0           0           0           0
 COL      43           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      111                  
0NUMBER OF SYMBOLS,  DEF   208,DEFOP     0,UNDEF     0      
9            ORG 42                FORCE NEW RECORD                                       
1                       00052        ORG 42                FORCE NEW RECORD                                       
       00052  0 01303 0 01471        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00052        TXH 42                7760  FT  30                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 2 00000        LXD 0,2               IR2 EQUALS 2 FOR STATE B, BCD IS SETUP                 
       01307  3 00001 2 01322        TXH PRIN,2,1                                                                 
       01310  0 50000 0 01465        CLA A1                                                                       
       01311  0 60100 0 01336        STO PR1                                                                      
       01312  0 50000 0 01466        CLA A2                                                                       
       01313  0 60100 0 01363        STO PR2                                                                      
       01314  0 50000 0 01467        CLA A3                                                                       
       01315  0 60100 0 01424        STO PR3                                                                      
       01316  0 50000 0 01470        CLA A4                                                                       
       01317  0 60100 0 01427        STO PR4                                                                      
       01320  0 50000 0 01471        CLA A5                                                                       
       01321  0 60100 0 01442        STO PR5                                                                      
       01322  0 07400 4 00740 PRIN   TSX PRINT,4                                                                  
       01323  0 01465 0 01325        HTR PR,0,PR+96                                                               
       01324  0 02000 0 00221        TRA DIGRTN                                                                   
       01325  606060606060    PR     BCD 2                                                                        
       01326  606060606060    
       01327  233025234260           BCD 7CHECK SUM ERROR IN READING DRUM 1.  THE ST                              
       01330  626444602551    
       01331  514651603145    
       01332  605125212431    
       01333  452760245164    
       01334  446001336060    
       01335  633025606263    
       01336  216325602260    PR1    BCD 1ATE B                                                                   
       01337  234624314527           BCD  CODING USED BY SECTION II, BLOCK 2, HAS JUST                            
       01340  606462252460    
       01341  227060622523    
       01342  633146456031    
       01343  317360224346    
       01344  234260027360    
       01345  302162604164    
       01346  626360606060    
       01347  606060606060    
       01350  606060606060    
       01351  606060606060           BCD 2                                                                        
       01352  606060606060    
       01353  222525456066           BCD 8BEEN WRITTEN ON THE DRUM, BEGINNING AT LOCATION                         
       01354  513163632545    
       01355  604645606330    
       01356  256024516444    
       01357  736022252731    
       01360  454531452760    
       01361  216360434623    
       01362  216331464560    
       01363  010000003360    PR2    BCD 11000.                                                                   
       01364  606346606525           BCD   TO VERIFY THAT THIS HAS BEEN DONE CORRECTLY,                           
       01365  513126706063    
       01366  302163606330    
       01367  316260302162    
       01370  602225254560    
       01371  244645256023    
       01372  465151252363    
       01373  437073606060    
       01374  606060606060    
       01375  606060606060    
       01376  606060606060           BCD 1                                                                        
       01377  316360316260           BCD  IT IS READ BACK INTO 4566 THROUGH 5565.  THE COMPUTED CHECK             
       01400  512521246022    
       01401  212342603145    
       01402  634660040506    
       01403  066063305146    
       01404  642730600505    
       01405  060533606063    
       01406  302560234644    
       01407  476463252460    
       01410  233025234260    
       01411  626444736043           BCD  SUM, LOCATION 7773, IS COMPARED TO A PERMANENT                          
       01412  462321633146    
       01413  456007070703    
       01414  736031626023    
       01415  464447215125    
       01416  246063466021    
       01417  604725514421    
       01420  452545636060    
       01421  606060606060    
       01422  606060606060    
       01423  626321632560           BCD 1STATE                                                                   
       01424  226062644460    PR3    BCD 3B SUM IN LOCATION                                                       
       01425  314560434623    
       01426  216331464560    
       01427  070706033360    PR4    BCD 17763.                                                                   
       01430  606330256062           BCD   THE SUBROUTINE WHICH WRITES AND READS THE DRUM BEGINS AT 77            
       01431  642251466463    
       01432  314525606630    
       01433  312330606651    
       01434  316325626021    
       01435  452460512521    
       01436  246260633025    
       01437  602451644460    
       01440  222527314562    
       01441  602163600707    
       01442  030033606060    PR5    BCD 530.                                                                     
       01443  606060606060    
       01444  606060606060    
       01445  606060606060    
       01446  606060606060    
       01447  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO WRITE AND READ THIS BLOCK OF            
       01450  636325444763    
       01451  626030216525    
       01452  602225254560    
       01453  442124256063    
       01454  466066513163    
       01455  256021452460    
       01456  512521246063    
       01457  303162602243    
       01460  462342604626    
       01461  604751462751           BCD 4 PROGRAM CORRECTLY.                                                     
       01462  214460234651    
       01463  512523634370    
       01464  336060606060    
       01465  216325602160    A1     BCD 1ATE A                                                                   
       01466  712551463360    A2     BCD 1ZERO.                                                                   
       01467  216062644460    A3     BCD 1A SUM                                                                   
       01470  070706043360    A4     BCD 17764.                                                                   
       01471  030233606060    A5     BCD 132.                                                                     
       01472  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      47           0           0           0           0
 LIB       0           0           0           0           0
 COL      47           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      133                  
0NUMBER OF SYMBOLS,  DEF   208,DEFOP     0,UNDEF     0      
9            ORG 43                FORCE NEW RECORD                                       
1                       00053        ORG 43                FORCE NEW RECORD                                       
       00053  0 01303 0 01423        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00053        TXH 43                4006  FT  51                                           
                                         43                4007  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 50000 0 01235        CLA ERWORD            4007 IF ALPHA STATE, BCD NOT SET UP                    
       01307  0 40200 0 01325        SUB ALPHA             FOR ALPHA                                              
       01310 -0 12000 0 01317        TMI PRIN                                                                     
       01311  0 50000 0 01322        CLA A1                                                                       
       01312  0 60100 0 01335        STO PR1                                                                      
       01313  0 50000 0 01323        CLA A2                                                                       
       01314  0 60100 0 01336        STO PR2                                                                      
       01315  0 50000 0 01324        CLA A3                                                                       
       01316  0 60100 0 01337        STO PR3                                                                      
       01317  0 07400 4 00740 PRIN   TSX PRINT,4                                                                  
       01320  0 01424 0 01326        HTR PR,0,PR+62                                                               
       01321  0 02000 0 00221        TRA DIGRTN                                                                   
       01322  446002336060    A1     BCD 1M 2.                                                                    
       01323  633025602143    A2     BCD 1THE AL                                                                  
       01324  473021606263    A3     BCD 1PHA ST                                                                  
       01325 +004007000000    ALPHA  OCT 004007000000                                                             
       01326  606060606060    PR     BCD 2                                                                        
       01327  606060606060    
       01330  233025234260           BCD 5CHECK SUM ERROR IN READING DRU                                          
       01331  626444602551    
       01332  514651603145    
       01333  605125212431    
       01334  452760245164    
       01335  446001336060    PR1    BCD 1M 1.                                                                    
       01336  633025606022    PR2    BCD 1THE  B                                                                  
       01337  256321606263    PR3    BCD  ETA STATE CODING USED BY SECTION II, BLOCK 5, HAS BEEN READ             
       01340  216325602346    
       01341  243145276064    
       01342  622524602270    
       01343  606225236331    
       01344  464560313173    
       01345  602243462342    
       01346  600573603021    
       01347  626022252545    
       01350  605125212460    
       01351  606060606060           BCD 3                                                                        
       01352  606060606060    
       01353  606060606060    
       01354  314563466006           BCD  INTO 6226 THROUGH 7225, STARTING FROM DRUM ADDRESS 1751.  TH            
       01355  020206606330    
       01356  514664273060    
       01357  070202057360    
       01360  626321516331    
       01361  452760265146    
       01362  446024516444    
       01363  602124245125    
       01364  626260010705    
       01365  013360606330    
       01366  256024516444           BCD  E DRUM CHECK SUM IS IN 5202.                                            
       01367  602330252342    
       01370  606264446031    
       01371  626031456005    
       01372  020002336060    
       01373  606060606060    
       01374  606060606060    
       01375  606060606060    
       01376  606060606060    
       01377  606060606060    
       01400  633025602346           BCD  THE COMPUTED CHECK SUM IS IN 5203.  FIVE ATTEMPTS HAVE BEEN             
       01401  444764632524    
       01402  602330252342    
       01403  606264446031    
       01404  626031456005    
       01405  020003336060    
       01406  263165256021    
       01407  636325444763    
       01410  626030216525    
       01411  602225254560    
       01412  442124256063           BCD  MADE TO READ THIS BLOCK OF PROGRAM CORRECTLY                            
       01413  466051252124    
       01414  606330316260    
       01415  224346234260    
       01416  462660475146    
       01417  275121446023    
       01420  465151252363    
       01421  437060606060    
       01422  606060606060    
       01423  606060606060    
       01424  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      36           0           0           0           0
 LIB       0           0           0           0           0
 COL      36           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       96                  
0NUMBER OF SYMBOLS,  DEF   205,DEFOP     0,UNDEF     0      
9            ORG 44                FORCE NEW RECORD                                       
1                       00054        ORG 44                FORCE NEW RECORD                                       
       00054  0 01303 0 01441        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00054        TXH 44                6765  FT  36                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01237 0 01237        HTR MACHIN,0,MACHIN                                                          
       01306  0 50000 0 06762        CLA 3570              OCTAL 6762 - DEC HAS CONTENTS IR1                      
       01307  0 77100 0 00022        ARS 18                                                                       
       01310 -0 32000 0 01227        ANA ADDMSK                                                                   
       01311  0 60100 0 01257        STO ERAS                                                                     
       01312  0 50000 0 01415        CLA PR1                                                                      
       01313  0 40200 0 01257        SUB ERAS                                                                     
       01314  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01315  0 60200 0 01415        SLW PR1                                                                      
       01316 -0 50000 0 01414        CAL PR1-1                                                                    
       01317  0 56000 0 01415        LDQ PR1                                                                      
       01320  0 77100 0 00022        ARS 18                                                                       
       01321 -0 76300 0 00022        LGL 18                                                                       
       01322  0 60200 0 01414        SLW PR1-1                                                                    
       01323 -0 76300 0 00022        LGL 18                                                                       
       01324  0 56000 0 00717        LDQ BLANKS                                                                   
       01325 -0 76300 0 00022        LGL 18                                                                       
       01326  0 60200 0 01415        SLW PR1                                                                      
       01327  0 07400 4 00740        TSX PRINT,4                                                                  
       01330  0 01442 0 01332        HTR PR,0,PR+72                                                               
       01331  0 02000 0 00221        TRA DIGRTN                                                                   
       01332  606060606060    PR     BCD 2                                                                        
       01333  606060606060    
       01334  233025234260           BCD  CHECK SUM ERROR IN READING NAME TABLE FROM DRUM 3.                      
       01335  626444602551    
       01336  514651603145    
       01337  605125212431    
       01340  452760452144    
       01341  256063212243    
       01342  256026514644    
       01343  602451644460    
       01344  033360606060    
       01345  606060606060    
       01346  606060606060           BCD                                                                          
       01347  606060606060    
       01350  606060606060    
       01351  606060606060    
       01352  606060606060    
       01353  606060606060    
       01354  606060606060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  234647706043           BCD  COPY LOOP BEGINS AT LOCATION 6731.  STARTING DRUM ADDRESS IS            
       01361  464647602225    
       01362  273145626021    
       01363  636043462321    
       01364  633146456006    
       01365  070301336060    
       01366  626321516331    
       01367  452760245164    
       01370  446021242451    
       01371  256262603162    
       01372  603145600607           BCD   IN 6707.                                                               
       01373  000733606060    
       01374  606060606060    
       01375  606060606060    
       01376  606060606060    
       01377  606060606060    
       01400  606060606060    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  234644476463           BCD 9COMPUTED CHECK SUM IS IN 6771. DRUM CHECK SUM IS IN                     
       01405  252460233025    
       01406  234260626444    
       01407  603162603145    
       01410  600607070133    
       01411  602451644460    
       01412  233025234260    
       01413  626444603162    
       01414  603145606060    
       01415 +000000006771    PR1    OCT 000000006771                                                             
       01416  606060606060           BCD                                                                          
       01417  606060606060    
       01420  606060606060    
       01421  606060606060    
       01422  606060606060    
       01423  606060606060    
       01424  606060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.              
       01431  636325444763    
       01432  626030216525    
       01433  602225254560    
       01434  442124256063    
       01435  466051252124    
       01436  606330316260    
       01437  632122432560    
       01440  234651512523    
       01441  634370336060    
       01442  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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      109                  
0NUMBER OF SYMBOLS,  DEF   198,DEFOP     0,UNDEF     0      
9            ORG 45                FORCE NEW RECORD                                       
1                       00055        ORG 45                FORCE NEW RECORD                                       
       00055  0 01303 0 01447        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00055        TXH 45                1006  FT  45                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01450 0 01311        HTR PR,0,PR+95                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING TABLE IRV FROM DRUM 3.  EITHER TH            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760632122    
       01320  432560315165    
       01321  602651464460    
       01322  245164446003    
       01323  336060253163    
       01324  302551606330    
       01325  256066465124           BCD  E WORD COUNT, LOCATION 1007,                                            
       01326  602346644563    
       01327  736043462321    
       01330  633146456001    
       01331  000007736060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  244625626045           BCD  DOES NOT AGREE WITH ITS OWN CHECK SUM, LOCATION 1010, OR THE            
       01340  466360212751    
       01341  252560663163    
       01342  306031636260    
       01343  466645602330    
       01344  252342606264    
       01345  447360434623    
       01346  216331464560    
       01347  010001007360    
       01350  465160633025    
       01351  602346444764           BCD   COMPUTED CHECK SUM OF THE TABLE,                                       
       01352  632524602330    
       01353  252342606264    
       01354  446046266063    
       01355  302560632122    
       01356  432573606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  434623216331           BCD  LOCATION 1011, DOES NOT AGREE WITH THE DRUM CHECK SUM.  THE             
       01364  464560010001    
       01365  017360244625    
       01366  626045466360    
       01367  212751252560    
       01370  663163306063    
       01371  302560245164    
       01372  446023302523    
       01373  426062644433    
       01374  606063302560    
       01375  245164446023           BCD  DRUM CHECK SUM HAS BEEN COPIED                                          
       01376  302523426062    
       01377  644460302162    
       01400  602225254560    
       01401  234647312524    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  314563466043           BCD  INTO LOCATION  (435 PLUS WORD COUNT).  COPY LOOP BEGINS AT L            
       01410  462321633146    
       01411  456060740403    
       01412  056047436462    
       01413  606646512460    
       01414  234664456334    
       01415  336060234647    
       01416  706043464647    
       01417  602225273145    
       01420  626021636043    
       01421  462321633146           BCD  OCATION 752.  STARTING DRUM ADDRESS IS 1304.                            
       01422  456007050233    
       01423  606062632151    
       01424  633145276024    
       01425  516444602124    
       01426  245125626260    
       01427  316260010300    
       01430  043360606060    
       01431  606060606060    
       01432  606060606060    
       01433  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE WORD COUNT AND THE             
       01434  636325444763    
       01435  626030216525    
       01436  602225254560    
       01437  442124256063    
       01440  466051252124    
       01441  606330256066    
       01442  465124602346    
       01443  644563602145    
       01444  246063302560    
       01445  632122432560           BCD 3TABLE CORRECTLY.                                                        
       01446  234651512523    
       01447  634370336060    
       01450  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      23           0           0           0           0
 LIB       0           0           0           0           0
 COL      23           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      115                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 46                FORCE NEW RECORD                                       
1                       00056        ORG 46                FORCE NEW RECORD                                       
       00056  0 01303 0 01447        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00056        TXH 46                  72  FT  60                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01337        LDA A                                                                        
       01310  0 70000 0 01257        CPY ERAS              IR1 IN DEC-WILL SHOW WHERE CHECK SUM IS                
       01311  0 50000 0 01257        CLA ERAS              UNCOMPLIMENT                                           
       01312 -0 32000 0 01230        ANA DECMSK                                                                   
       01313  0 40200 0 01234        SUB PREFX1                                                                   
       01314  0 77100 0 00022        ARS 18                                                                       
       01315  0 60000 0 01257        STZ ERAS                                                                     
       01316  0 62100 0 01257        STA ERAS                                                                     
       01317  0 50000 0 01423        CLA PR1                                                                      
       01320  0 40200 0 01257        SUB ERAS                                                                     
       01321  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01322  0 60200 0 01423        SLW PR1                                                                      
       01323 -0 50000 0 01422        CAL PR1-1                                                                    
       01324  0 56000 0 01423        LDQ PR1                                                                      
       01325  0 77100 0 00014        ARS 12                                                                       
       01326 -0 76300 0 00014        LGL 12                                                                       
       01327  0 60200 0 01422        SLW PR1-1                                                                    
       01330 -0 76300 0 00030        LGL 24                                                                       
       01331  0 56000 0 00717        LDQ BLANKS                                                                   
       01332 -0 76300 0 00014        LGL 12                                                                       
       01333  0 60200 0 01423        SLW PR1                                                                      
       01334  0 07400 4 00740        TSX PRINT,4                                                                  
       01335  0 01450 0 01340        HTR PR,0,PR+72                                                               
       01336  0 02000 0 00221        TRA DIGRTN                                                                   
       01337  0 00000 0 02313 A      HTR81227                                                                     
       01340  606060606060    PR     BCD 2                                                                        
       01341  606060606060    
       01342  233025234260           BCD  CHECK SUM ERROR IN READING TSXCOM TABLE FROM DRUM 3.                    
       01343  626444602551    
       01344  514651603145    
       01345  605125212431    
       01346  452760636267    
       01347  234644606321    
       01350  224325602651    
       01351  464460245164    
       01352  446003336060    
       01353  606060606060    
       01354  606060606060           BCD                                                                          
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  606060606060    
       01364  606060606060    
       01365  606060606060    
       01366  234647706043           BCD  COPY LOOP BEGINS AT LOCATION 42.  STARTING DRUM ADDRESS IS I            
       01367  464647602225    
       01370  273145626021    
       01371  636043462321    
       01372  633146456004    
       01373  023360606263    
       01374  215163314527    
       01375  602451644460    
       01376  212424512562    
       01377  626031626031    
       01400  456001010500           BCD  N 1150.                                                                 
       01401  336060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  606060606060    
       01410  606060606060    
       01411  606060606060    
       01412  234644476463           BCD 9COMPUTED CHECK SUM IS IN 1226.  DRUM CHECK SUM IS IN                    
       01413  252460233025    
       01414  234260626444    
       01415  603162603145    
       01416  600102020633    
       01417  606024516444    
       01420  602330252342    
       01421  606264446031    
       01422  626031456060    
       01423 +000000001230    PR1    OCT 000000001230                                                             
       01424  606060606060           BCD                                                                          
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  606060606060    
       01434  606060606060    
       01435  606060606060    
       01436  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.              
       01437  636325444763    
       01440  626030216525    
       01441  602225254560    
       01442  442124256063    
       01443  466051252124    
       01444  606330316260    
       01445  632122432560    
       01446  234651512523    
       01447  634370336060    
       01450  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      44           0           0           0           0
 LIB       0           0           0           0           0
 COL      44           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      115                  
0NUMBER OF SYMBOLS,  DEF   199,DEFOP     0,UNDEF     0      
9            ORG 47                FORCE NEW RECORD                                       
1                       00057        ORG 47                FORCE NEW RECORD                                       
       00057  0 01303 0 01470        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00057        TXH 47                1I35  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01471 0 01311        HTR PR,0,PR+112                                                              
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING DOCARE TABLE FROM DRUM 1.  THIS T            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760244623    
       01320  215125606321    
       01321  224325602651    
       01322  464460245164    
       01323  446001336060    
       01324  633031626063    
       01325  212243256066           BCD  ABLE WAS WRITTEN AS A 1 WORD ENTRY AND A                                
       01326  216260665131    
       01327  636325456021    
       01330  626021600160    
       01331  664651246025    
       01332  456351706021    
       01333  452460216060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  233025234260           BCD  CHECK SUM OF THAT ENTRY BEGINNING AT 2 ON THE DRUM.  THE 1 W            
       01340  626444604626    
       01341  606330216360    
       01342  254563517060    
       01343  222527314545    
       01344  314527602163    
       01345  600260464560    
       01346  633025602451    
       01347  644433606063    
       01350  302560016066    
       01351  465124602545           BCD  ORD ENTRIES ARE COPIED BACKWARDS                                        
       01352  635131256260    
       01353  215125602346    
       01354  473125246022    
       01355  212342662151    
       01356  246260606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  314563466023           BCD  INTO CORES BEGINNING 4216.  THEIR CHECK SUMS ARE COPIED BACK            
       01364  465125626022    
       01365  252731454531    
       01366  452760040201    
       01367  063360606330    
       01370  253151602330    
       01371  252342606264    
       01372  446260215125    
       01373  602346473125    
       01374  246022212342    
       01375  662151246260           BCD  WARDS INTO CORES BEGINNING AT 4363.                                     
       01376  314563466023    
       01377  465125626022    
       01400  252731454531    
       01401  452760216360    
       01402  040306033360    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  216043462731           BCD  A LOGICAL SUM OF EACH OF THE RESULTING TABLES IS DONE.  CHEC            
       01410  232143606264    
       01411  446046266025    
       01412  212330604626    
       01413  606330256051    
       01414  256264436331    
       01415  452760632122    
       01416  432562603162    
       01417  602446452533    
       01420  606023302523    
       01421  426062644460           BCD  K SUM OF THE ENTRIES IS IN 105.                                         
       01422  462660633025    
       01423  602545635131    
       01424  256260316260    
       01425  314560010005    
       01426  336060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  233025234260           BCD  CHECK SUM OF THE CHECK SUMS IS IN 106.  THE COPY LOOP BEGINS            
       01434  626444604626    
       01435  606330256023    
       01436  302523426062    
       01437  644462603162    
       01440  603145600100    
       01441  063360606330    
       01442  256023464770    
       01443  604346464760    
       01444  222527314562    
       01445  602163604346           BCD   AT LOCATION 1102.                                                      
       01446  232163314645    
       01447  600101000233    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01460  636325444763    
       01461  626030216525    
       01462  602225254560    
       01463  442124256063    
       01464  466051252124    
       01465  606330316260    
       01466  512523465124    
       01467  602346515125    
       01470  236343703360    
       01471  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      24           0           0           0           0
 LIB       0           0           0           0           0
 COL      24           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      132                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 48                FORCE NEW RECORD                                       
1                       00060        ORG 48                FORCE NEW RECORD                                       
       00060  0 01303 0 01724        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00060        TXH 48                 341  FT 677                                           
                                         48                3143  FT  64                                           
                                         48                 103  FT  67                                           
                                         48                 160  FT  67                                           
                                         46                 263  FT  67                                           
                                         48                  64  FT  71                                           
                                         48                 256  FT  73                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 3 01232        LXD ZERO,3                                                                   
       01307  0 50000 1 01453 C1     CLA A,1                                                                      
       01310  0 40200 0 01235        SUB ERWORD                                                                   
       01311  0 10000 0 01427        TZE B                                                                        
       01312  1 77777 1 01313        TXI C,1,-1                                                                   
       01313  3 77636 1 01307 C      TXH C1,1,-14*7                                                               
       01314  0 07400 4 00740        TSX PRINT,4                                                                  
       01315  0 01427 0 01317        HTR ER,0,ER+72                                                               
       01316  0 00000 0 01452        HTR D                                                                        
       01317  606060606060    ER     BCD 2                                                                        
       01320  606060606060    
       01321  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01322  464560462660    
       01323  255151465173    
       01324  606630312330    
       01325  603021626022    
       01326  252545604751    
       01327  314563252473    
       01330  603021626023    
       01331  216462252460    
       01332  243121274546    
       01333  626331236051           BCD  STIC RECORD NUMBER 48                                                   
       01334  252346512460    
       01335  456444222551    
       01336  600410606060    
       01337  606060606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  634660222560           BCD  TO BE READ IN.  THIS RECORD COMPARES THE LOCATION TO A LIST             
       01346  512521246031    
       01347  453360606330    
       01350  316260512523    
       01351  465124602346    
       01352  444721512562    
       01353  606330256043    
       01354  462321633146    
       01355  456063466021    
       01356  604331626360    
       01357  462660076047           BCD  OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                        
       01360  466262312243    
       01361  256024516444    
       01362  605125212460    
       01363  262131436451    
       01364  256273602264    
       01365  636063302560    
       01366  622521512330    
       01367  606060606060    
       01370  606060606060    
       01371  302162602621           BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1471, 1471 PLUS 14, ET            
       01372  314325243360    
       01373  606330256025    
       01374  515146516260    
       01375  215125604331    
       01376  626325246031    
       01377  456001040701    
       01400  736001040701    
       01401  604743646260    
       01402  010473602563    
       01403  233360604751           BCD  C.  PRESS START IF YOU WISH TO                                          
       01404  256262606263    
       01405  215163603126    
       01406  607046646066    
       01407  316230606346    
       01410  606060606060    
       01411  606060606060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  512562634651           BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                       
       01416  256044212330    
       01417  314525606346    
       01420  606263216325    
       01421  603145606630    
       01422  312330602551    
       01423  514651604623    
       01424  236451512524    
       01425  336060606060    
       01426  606060606060    
       01427  0 50000 1 01454 B      CLA A+1,1                                                                    
       01430  0 60100 2 01623        STO PR1,2                                                                    
       01431  1 77777 2 01432        TXI B1,2,-1                                                                  
       01432  1 77777 1 01433 B1     TXI B2,1,-1                                                                  
       01433  3 77771 2 01427 B2     TXH B,2,-7                                                                   
       01434  0 50000 1 01454        CLA A+1,1                                                                    
       01435  0 60100 0 01647        STO PR2TWO                                                                   
       01436  0 50000 1 01455        CLA A+2,1                                                                    
       01437  0 60100 0 01650        STO PR2TWO+1                                                                 
       01440  0 50000 1 01456        CLA A+3,1                                                                    
       01441  0 60100 0 01655        STO PR3TWO                                                                   
       01442  0 50000 1 01457        CLA A+4,1                                                                    
       01443  0 60100 0 01656        STO PR3TWO+1                                                                 
       01444  0 50000 1 01460        CLA A+5,1                                                                    
       01445  0 60100 0 01673        STO PR4                                                                      
       01446  0 50000 1 01461        CLA A+6,1                                                                    
       01447  0 60100 0 01700        STO PR5                                                                      
       01450  0 07400 4 00740        TSX PRINT,4                                                                  
       01451  0 01725 0 01615        HTR PR,0,PR+72                                                               
       01452  0 02000 0 00221 D      TRA DIGRTN                                                                   
       01453 +000341000000    A      OCT 000341000000 IN SECTI0N IV - PART 3                                      
       01454  452760265125    A1     BCD 7NG FRET TABLE FROM DRUM 2.                                              
       01455  636063212243    
       01456  256026514644    
       01457  602451644460    
       01460  023360606060    
       01461  606060606060    
       01462  606060606060    
       01463  633146456003    A2TWO  BCD 2TION 300.                                                               
       01464  000033606060    
       01465  603145600500    A3TWO  BCD 2 IN 50.                                                                 
       01466  336060606060    
       01467  600506336060    A4     BCD 1 56.                                                                    
       01470  050533606060    A5     BCD 155.                                                                     
       01471 +003143000000           OCT 003143000000 IN SECTION IV - PART 2                                      
       01472  452760633126           BCD 7NG TIFRD TABLE FROM DRUM 1.                                             
       01473  512460632122    
       01474  432560265146    
       01475  446024516444    
       01476  600133606060    
       01477  606060606060    
       01500  606060606060    
       01501  633146456003           BCD 2TION 3066.                                                              
       01502  000606336060    
       01503  603145600401           BCD 2 IN 41.                                                                 
       01504  336060606060    
       01505  600102013360           BCD 1 121.                                                                   
       01506  010207336060           BCD 1127.                                                                    
       01507 +000263000000           OCT 000263000000 IN SECTION IV - PART 3                                      
       01510  452760635121           BCD 7NG TRA TABLE FROM DRUM 1.                                               
       01511  606321224325    
       01512  602651464460    
       01513  245164446001    
       01514  336060606060    
       01515  606060606060    
       01516  606060606060    
       01517  633146456002           BCD 2TION 230.                                                               
       01520  030033606060    
       01521  607125514633           BCD 2 ZERO.                                                                  
       01522  606060606060    
       01523  600506336060           BCD 1 56.                                                                    
       01524  050533606060           BCD 155.                                                                     
       01525 +000256000000           OCT 000256000000  IN SECTION IV - PART 6                                     
       01526  452760222243           BCD 7NG BBLIST TABLE FROM DRUM 3.                                            
       01527  316263606321    
       01530  224325602651    
       01531  464460245164    
       01532  446003336060    
       01533  606060606060    
       01534  606060606060    
       01535  633146456002           BCD 2TION 234.                                                               
       01536  030433606060    
       01537  603145600603           BCD 2 IN 63.                                                                 
       01540  336060606060    
       01541  600700336060           BCD 1 70.                                                                    
       01542  060733606060           BCD 167.                                                                     
       01543 +000160000000           OCT 000160000000      IN SECTION IV - PART 3                                 
       01544  452760622563           BCD 7NG SET TABLE FROM DRUM 3.                                               
       01545  606321224325    
       01546  602651464460    
       01547  245164446003    
       01550  336060606060    
       01551  606060606060    
       01552  606060606060    
       01553  633146456001           BCD 2TION 137.                                                               
       01554  030733606060    
       01555  603145600407           BCD 2 IN 47.                                                                 
       01556  336060606060    
       01557  600506336060           BCD 1 56.                                                                    
       01560  050533606060           BCD 155.                                                                     
       01561 +000103000000           OCT 000103000000      IN SECTION IV - PART 3                                 
       01562  452760622563           BCD 7NG SET TABLE FROM DRUM 3.                                               
       01563  606321224325    
       01564  602651464460    
       01565  245164446003    
       01566  336060606060    
       01567  606060606060    
       01570  606060606060    
       01571  633146456006           BCD 2TION 62.                                                                
       01572  023360606060    
       01573  603145600407           BCD 2 IN 47.                                                                 
       01574  336060606060    
       01575  600506336060           BCD 1 56.                                                                    
       01576  050533606060           BCD 155.                                                                     
       01577 +000064000000           OCT 000064000000 IN SECTION IV - PART 5                                      
       01600  452760244643           BCD 7NG DOLIST TABLE FROM DRUM 1.                                            
       01601  316263606321    
       01602  224325602651    
       01603  464460245164    
       01604  446001336060    
       01605  606060606060    
       01606  606060606060    
       01607  633146456004           BCD 2TION 42.                                                                
       01610  023360606060    
       01611  603145600306           BCD 2 IN 36.                                                                 
       01612  336060606060    
       01613  600307336060           BCD 1 37.                                                                    
       01614  040033606060           BCD 140.                                                                     
       01615  606060606060    PR     BCD 2                                                                        
       01616  606060606060    
       01617  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01620  626444602551    
       01621  514651603145    
       01622  605125212431    
       01623  452760265125    PR1    BCD 7NG FRET TABLE FROM DRUM 2.                                              
       01624  636063212243    
       01625  256026514644    
       01626  602451644460    
       01627  023360606060    
       01630  606060606060    
       01631  606060606060    
       01632  606060606060           BCD 9                                                                        
       01633  606060606060    
       01634  606060606060    
       01635  606060606060    
       01636  606060606060    
       01637  606060606060    
       01640  606060606060    
       01641  606060606060    
       01642  606060606060    
       01643  234647706043           BCD 4COPY LOOP BEGINS AT LOCA                                                
       01644  464647602225    
       01645  273145626021    
       01646  636043462321    
       01647  633146456003    PR2TWO BCD 2TION 3.                                                                 
       01650  336060606060    
       01651  626321516331           BCD 4STARTING DRUM ADDRESS IS                                                
       01652  452760245164    
       01653  446021242451    
       01654  256262603162    
       01655  603145600500    PR3TWO BCD   IN 50.                                                                 
       01656  336060606060    
       01657  606060606060    
       01660  606060606060    
       01661  606060606060    
       01662  606060606060    
       01663  606060606060    
       01664  606060606060    
       01665  606060606060    
       01666  606060606060    
       01667  234644476463           BCD 4COMPUTED CHECK SUM IS IN                                                
       01670  252460233025    
       01671  234260626444    
       01672  603162603145    
       01673  600506336060    PR4    BCD 1 56.                                                                    
       01674  606060245164           BCD 4   DRUM CHECK SUM IS IN                                                 
       01675  446023302523    
       01676  426062644460    
       01677  316260314560    
       01700  050533606060    PR5    BCD  55.                                                                     
       01701  606060606060    
       01702  606060606060    
       01703  606060606060    
       01704  606060606060    
       01705  606060606060    
       01706  606060606060    
       01707  606060606060    
       01710  606060606060    
       01711  606060606060    
       01712  606060606060           BCD 1                                                                        
       01713  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.              
       01714  636325444763    
       01715  626030216525    
       01716  602225254560    
       01717  442124256063    
       01720  466051252124    
       01721  606330316260    
       01722  632122432560    
       01723  234651512523    
       01724  634370336060    
       01725  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     108           0           0           0           0
 LIB       0           0           0           0           0
 COL     108           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      294                  
0NUMBER OF SYMBOLS,  DEF   215,DEFOP     0,UNDEF     0      
9            ORG 49                FORCE NEW RECORD                                       
1                       00061        ORG 49                FORCE NEW RECORD                                       
       00061  0 01303 0 01570        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00061        TXH 49                4570  FT  34                                           
                        11004 SUBORG SYN84612              THIS IS SUBORG+3                                       
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01345        LDA TAG                                                                      
       01310  0 70000 0 01345        CPY TAG                                                                      
       01311  0 50000 0 01345        CLA TAG               SAME INSTRUCTIONS AS                                   
       01312  0 76500 0 00011        LRS 9                 SECTION II - BLOCK 2 - 4527 THRO 4542                  
       01313  0 73400 6 00000        PAX 0,6                                                                      
 T     01314 -0 75400 0 00000        PXD                                                                          
       01315  0 76300 0 00011        LLS 9                 AT END OF TIX, ADDRESS OF AC HAS                       
       01316  0 60100 0 01346        STO SUBES1            DRUM ADDRESS OF FIRST WORD OF                          
       01317  0 76700 0 00001        ALS 1                 ENTRY AND IR 2 HAS  1 - 2 WORDS + SUM                  
       01320  0 60100 0 01347        STO SUBES2                                2 - 4 WORDS + SUM                  
       01321  0 50000 4 11004        CLA SUBORG,4                              3 - 6 WORDS + SUM                  
       01322  0 40000 0 01346        ADD SUBES1                                                                   
       01323  0 40000 0 01347 SUB030 ADD SUBES2                                                                   
       01324  2 00001 4 01323        TIX SUB030,4,1                                                               
       01325  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01326  0 60200 0 01257        SLW ERAS                                                                     
       01327  0 56000 0 01257        LDQ ERAS                                                                     
       01330 -0 76300 0 00014        LGL 12                SHIFT OUT FIRST 2 BLANKS                               
       01331 -0 50000 0 01406        CAL PR2                                                                      
       01332 -0 76300 0 00022        LGL 18                                                                       
       01333  0 60200 0 01406        SLW PR2                                                                      
       01334 -0 76300 0 00006        LGL 6                                                                        
       01335  0 56000 0 01407        LDQ PR3                                                                      
       01336 -0 76300 0 00036        LGL 30                                                                       
       01337  0 60200 0 01407        SLW PR3                                                                      
       01340  0 50000 2 01353        CLA A+1,2                                                                    
       01341  0 60100 0 01361        STO PR1                                                                      
       01342  0 07400 4 00740        TSX PRINT,4                                                                  
       01343  0 01571 0 01353        HTR PR,0,PR+142                                                              
       01344  0 02000 0 00221        TRA DIGRTN                                                                   
       01345  0 00000 0 07164 TAG    HTR83700                                                                     
       01346  0 00000 0 00000 SUBES1                                                                              
       01347  0 00000 0 00000 SUBES2                                                                              
       01350  452760216006           BCD 1NG A 6                                                                  
       01351  452760216004           BCD 1NG A 4                                                                  
       01352  452760216002    A      BCD 1NG A 2                                                                  
       01353  606060606060    PR     BCD 2                                                                        
       01354  606060606060    
       01355  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01356  626444602551    
       01357  514651603145    
       01360  605125212431    
       01361  452760216002    PR1    BCD 1NG A 2                                                                  
       01362  606646512460           BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.               
       01363  254563517060    
       01364  214524603163    
       01365  626023302523    
       01366  426062644460    
       01367  314560633025    
       01370  606321646063    
       01371  212243256046    
       01372  456024516444    
       01373  600433606060    
       01374  606060606060           BCD 5                                                                        
       01375  606060606060    
       01376  606060606060    
       01377  606060606060    
       01400  606060606060    
       01401  633025602451           BCD 5THE DRUM ADDRESS OF THE ENTRY                                           
       01402  644460212424    
       01403  512562626046    
       01404  266063302560    
       01405  254563517060    
       01406  606060316260    PR2    BCD 1   IS                                                                   
       01407  336060263160    PR3    BCD 1.  FI                                                                   
       01410  652560216363           BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                      
       01411  254447636260    
       01412  302165256022    
       01413  252545604421    
       01414  242560634660    
       01415  512521246060    
       01416  606060606060    
       01417  606060606060    
       01420  606060606060    
       01421  606060606060    
       01422  606060606060           BCD 3                                                                        
       01423  606060606060    
       01424  606060606060    
       01425  633025602545           BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                       
       01426  635170602346    
       01427  515125236343    
       01430  706026514644    
       01431  606330316260    
       01432  472151633123    
       01433  644321516021    
       01434  242451256262    
       01435  336060606060    
       01436  606060606060    
       01437  606060606060           BCD                                                                          
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060    
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060           BCD                                                                          
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060    
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  606060606060           BCD                                                                          
       01464  606060606060    
       01465  606060606060    
       01466  606060606060    
       01467  606060606060    
       01470  606060606060    
       01471  606060606060    
       01472  606060606060    
       01473  606060606060    
       01474  606060606060    
       01475  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01476  255160634660    
       01477  232143436031    
       01500  456063303162    
       01501  602431212745    
       01502  466263312360    
       01503  663163304664    
       01504  636024316263    
       01505  645122314527    
       01506  602346512562    
       01507  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01510  606646512462    
       01511  604626604425    
       01512  444651706060    
       01513  606060606060    
       01514  606060606060    
       01515  606060606060    
       01516  606060606060    
       01517  606060606060    
       01520  606060606060    
       01521  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES            
       01522  252545605125    
       01523  212460464563    
       01524  466024516444    
       01525  600473602425    
       01526  626351467031    
       01527  452760633025    
       01530  606321646063    
       01531  212243256025    
       01532  456351312562    
       01533  602145246063           BCD   AND THEIR CHECK SUMS.                                                  
       01534  302531516023    
       01535  302523426062    
       01536  644462336060    
       01537  606060606060    
       01540  606060606060    
       01541  606060606060    
       01542  606060606060    
       01543  606060606060    
       01544  606060606060    
       01545  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01546  606631434360    
       01547  222560512562    
       01550  634651252473    
       01551  602264636063    
       01552  302551256031    
       01553  626045466066    
       01554  217060634660    
       01555  234645263151    
       01556  446063302560    
       01557  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01560  626444602551    
       01561  514651604645    
       01562  606330256024    
       01563  516444336060    
       01564  606060606060    
       01565  606060606060    
       01566  606060606060    
       01567  606060606060    
       01570  606060606060    
       01571  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      67           0           0           0           0
 LIB       0           0           0           0           0
 COL      67           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      197                  
0NUMBER OF SYMBOLS,  DEF   206,DEFOP     0,UNDEF     0      
9            ORG 50                FORCE NEW RECORD                                       
1                       00062        ORG 50                FORCE NEW RECORD                                       
       00062  0 01303 0 01564        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00062        TXH 50                7751  FT  36                                           
                        14742 TAG    SYN86626                                                                     
                        17135 SUBORG SYN87773              THIS IS SUBORG + 3                                     
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 50000 0 14742        CLA TAG               SAME INSTRUCTIONS AS 7710 THRO 7723                    
       01307  0 76500 0 00011        LRS 9                 IN SECTION II - BLOCK 3 - INIT.                        
       01310  0 73400 6 00000        PAX 0,6                                                                      
 T     01311 -0 75400 0 00000        PXD                   AT END OF TIX, ADDRESS OF AC HAS                       
       01312  0 76300 0 00011        LLS 9                 DRUM ADDRESS OF FIRST WORD OF ENTRY                    
       01313  0 60100 0 01345        STO SUBES1                                                                   
       01314  0 76700 0 00001        ALS 1                 AND IR 2 HAS  1  - 2 WORDS + SUM                       
       01315  0 60100 0 01346        STO SUBES2                          2 - 4 WORDS + SUM                        
       01316  0 50000 4 17135        CLA SUBORG,4                       3 - 6 WORDS + SUM                         
       01317  0 40000 0 01345        ADD SUBES1                                                                   
       01320  0 40000 0 01346 SUB030 ADD SUBES2                                                                   
       01321  2 00001 4 01320        TIX SUB030,4,1                                                               
       01322  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01323  0 60200 0 01257        SLW ERAS                                                                     
       01324  0 56000 0 01257        LDQ ERAS                                                                     
       01325 -0 76300 0 00014        LGL 12                SHIFT OUT FIRST 2 BLANKS                               
       01326 -0 50000 0 01402        CAL PR2                                                                      
       01327 -0 76300 0 00022        LGL 18                                                                       
       01330  0 60200 0 01402        SLW PR2                                                                      
       01331 -0 76300 0 00006        LGL 6                                                                        
       01332  0 56000 0 01403        LDQ PR3                                                                      
       01333 -0 76300 0 00036        LGL 30                                                                       
       01334  0 60200 0 01403        SLW PR3                                                                      
       01335  0 50000 2 01345        CLA A+1,2                                                                    
       01336  0 60100 0 01355        STO PR1                                                                      
       01337  0 07400 4 00740        TSX PRINT,4                                                                  
       01340  0 01565 0 01347        HTR PR,0,PR+142                                                              
       01341  0 02000 0 00221        TRA DIGRTN                                                                   
       01342  452760216006           BCD 1NG A 6                                                                  
       01343  452760216004           BCD 1NG A 4                                                                  
       01344  452760216002    A      BCD 1NG A 2                                                                  
       01345  0 00000 0 00000 SUBES1                                                                              
       01346  0 00000 0 00000 SUBES2                                                                              
       01347  606060606060    PR     BCD 2                                                                        
       01350  606060606060    
       01351  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01352  626444602551    
       01353  514651603145    
       01354  605125212431    
       01355  452760216002    PR1    BCD 1NG A 2                                                                  
       01356  606646512460           BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.               
       01357  254563517060    
       01360  214524603163    
       01361  626023302523    
       01362  426062644460    
       01363  314560633025    
       01364  606321646063    
       01365  212243256046    
       01366  456024516444    
       01367  600433606060    
       01370  606060606060           BCD 5                                                                        
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  633025602451           BCD 5THE DRUM ADDRESS OF THE ENTRY                                           
       01376  644460212424    
       01377  512562626046    
       01400  266063302560    
       01401  254563517060    
       01402  606060316260    PR2    BCD 1   IS                                                                   
       01403  336060263160    PR3    BCD 1.  FI                                                                   
       01404  652560216363           BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                      
       01405  254447636260    
       01406  302165256022    
       01407  252545604421    
       01410  242560634660    
       01411  512521246060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  606060606060    
       01416  606060606060           BCD 3                                                                        
       01417  606060606060    
       01420  606060606060    
       01421  633025602545           BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                       
       01422  635170602346    
       01423  515125236343    
       01424  706026514644    
       01425  606330316260    
       01426  472151633123    
       01427  644321516021    
       01430  242451256262    
       01431  336060606060    
       01432  606060606060    
       01433  606060606060           BCD                                                                          
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060           BCD                                                                          
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060           BCD                                                                          
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  606060606060    
       01464  606060606060    
       01465  606060606060    
       01466  606060606060    
       01467  606060606060    
       01470  606060606060    
       01471  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01472  255160634660    
       01473  232143436031    
       01474  456063303162    
       01475  602431212745    
       01476  466263312360    
       01477  663163304664    
       01500  636024316263    
       01501  645122314527    
       01502  602346512562    
       01503  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01504  606646512462    
       01505  604626604425    
       01506  444651706060    
       01507  606060606060    
       01510  606060606060    
       01511  606060606060    
       01512  606060606060    
       01513  606060606060    
       01514  606060606060    
       01515  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES            
       01516  252545605125    
       01517  212460464563    
       01520  466024516444    
       01521  600473602425    
       01522  626351467031    
       01523  452760633025    
       01524  606321646063    
       01525  212243256025    
       01526  456351312562    
       01527  602145246063           BCD   AND THEIR CHECK SUMS.                                                  
       01530  302531516023    
       01531  302523426062    
       01532  644462336060    
       01533  606060606060    
       01534  606060606060    
       01535  606060606060    
       01536  606060606060    
       01537  606060606060    
       01540  606060606060    
       01541  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01542  606631434360    
       01543  222560512562    
       01544  634651252473    
       01545  602264636063    
       01546  302551256031    
       01547  626045466066    
       01550  217060634660    
       01551  234645263151    
       01552  446063302560    
       01553  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01554  626444602551    
       01555  514651604645    
       01556  606330256024    
       01557  516444336060    
       01560  606060606060    
       01561  606060606060    
       01562  606060606060    
       01563  606060606060    
       01564  606060606060    
       01565  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      64           0           0           0           0
 LIB       0           0           0           0           0
 COL      64           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      194                  
0NUMBER OF SYMBOLS,  DEF   206,DEFOP     0,UNDEF     0      
9            ORG 51                FORCE NEW RECORD                                       
1                       00063        ORG 51                FORCE NEW RECORD                                       
       00063  0 01303 0 01604        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00063        TXH 51               11231  FT 445                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01357        LDA ADSBTG                                                                   
       01310  0 70000 0 01356        CPY SUBTAG                                                                   
       01311  0 50000 0 01356        CLA SUBTAG            MOSTLY SAME INSTRUCTIONS AS 1153 THRO                  
       01312  0 76500 0 00011        LRS 9                 1166 IN SECTION II, BLOCK 4                            
       01313  0 73400 6 00000        PAX 0,6                                                                      
 T     01314 -0 75400 0 00000        PXD                                                                          
       01315  0 76300 0 00011        LLS 9                                                                        
       01316  0 60100 0 01360        STO SUBES1                                                                   
       01317  0 76700 0 00001        ALS 1                                                                        
       01320  0 60100 0 01361        STO SUBES2                                                                   
       01321 -0 75400 4 00000        PXD 0,4               MODIFY ADDRESS TO BE SAME                              
       01322  0 77100 0 00022        ARS 18                AS SUBORG+3,4                                          
       01323  0 60100 0 01257        STO ERAS                                                                     
       01324  0 50000 0 01363        CLA ADSBRG                                                                   
       01325  0 40200 0 01257        SUB ERAS                                                                     
       01326  0 62100 0 01257        STA ERAS                                                                     
       01327  0 76200 0 00304        RDR 4                                                                        
       01330  0 46000 0 01257        LDA ERAS                                                                     
       01331  0 70000 0 01362        CPY SUBORG                                                                   
       01332  0 50000 0 01362        CLA SUBORG            ATEND OF TIX, AC ADDRESS IS                            
       01333  0 40000 0 01360        ADD SUBES1            ADDRESS OF ENTRY ON DRUM AND                           
       01334  0 40000 0 01361 SUB030 ADD SUBES2            IR2 CONTAINS  1 - 2 WORDS + CHECK SUM,                 
       01335  2 00001 4 01334        TIX SUB030,4,1        2 - 4 WORDS + SUM, OR  3 - 6 WORDS + SUM               
       01336  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01337  0 60200 0 01257        SLW ERAS                                                                     
       01340  0 56000 0 01257        LDQ ERAS                                                                     
       01341 -0 76300 0 00014        LGL 12                SHIFT OUT FIRST 2 BLANKS                               
       01342 -0 50000 0 01422        CAL PR2                                                                      
       01343 -0 76300 0 00022        LGL 18                                                                       
       01344  0 60200 0 01422        SLW PR2                                                                      
       01345 -0 76300 0 00006        LGL 6                                                                        
       01346  0 56000 0 01423        LDQ PR3                                                                      
       01347 -0 76300 0 00036        LGL 30                                                                       
       01350  0 60200 0 01423        SLW PR3                                                                      
       01351  0 50000 2 01367        CLA A+1,2                                                                    
       01352  0 60100 0 01375        STO PR1                                                                      
       01353  0 07400 4 00740        TSX PRINT,4                                                                  
       01354  0 01605 0 01367        HTR PR,0,PR+142                                                              
       01355  0 02000 0 00221        TRA DIGRTN                                                                   
       01356  0 00000 0 00000 SUBTAG                                                                              
       01357 +000000001237    ADSBTG OCT 000000001237                                                             
       01360  0 00000 0 00000 SUBES1                                                                              
       01361  0 00000 0 00000 SUBES2                                                                              
       01362  0 00000 0 00000 SUBORG                                                                              
       01363 +000000001235    ADSBRG OCT 000000001235                                                             
       01364  452760216006           BCD 1NG A 6                                                                  
       01365  452760216004           BCD 1NG A 4                                                                  
       01366  452760216002    A      BCD 1NG A 2                                                                  
       01367  606060606060    PR     BCD 2                                                                        
       01370  606060606060    
       01371  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01372  626444602551    
       01373  514651603145    
       01374  605125212431    
       01375  452760216002    PR1    BCD 1NG A 2                                                                  
       01376  606646512460           BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.               
       01377  254563517060    
       01400  214524603163    
       01401  626023302523    
       01402  426062644460    
       01403  314560633025    
       01404  606321646063    
       01405  212243256046    
       01406  456024516444    
       01407  600433606060    
       01410  606060606060           BCD 5                                                                        
       01411  606060606060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  633025602451           BCD 5THE DRUM ADDRESS OF THE ENTRY                                           
       01416  644460212424    
       01417  512562626046    
       01420  266063302560    
       01421  254563517060    
       01422  606060316260    PR2    BCD 1   IS                                                                   
       01423  336060263160    PR3    BCD 1.  FI                                                                   
       01424  652560216363           BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                      
       01425  254447636260    
       01426  302165256022    
       01427  252545604421    
       01430  242560634660    
       01431  512521246060    
       01432  606060606060    
       01433  606060606060    
       01434  606060606060    
       01435  606060606060    
       01436  606060606060           BCD 3                                                                        
       01437  606060606060    
       01440  606060606060    
       01441  633025602545           BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                       
       01442  635170602346    
       01443  515125236343    
       01444  706026514644    
       01445  606330316260    
       01446  472151633123    
       01447  644321516021    
       01450  242451256262    
       01451  336060606060    
       01452  606060606060    
       01453  606060606060           BCD                                                                          
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060    
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  606060606060    
       01464  606060606060    
       01465  606060606060           BCD                                                                          
       01466  606060606060    
       01467  606060606060    
       01470  606060606060    
       01471  606060606060    
       01472  606060606060    
       01473  606060606060    
       01474  606060606060    
       01475  606060606060    
       01476  606060606060    
       01477  606060606060           BCD                                                                          
       01500  606060606060    
       01501  606060606060    
       01502  606060606060    
       01503  606060606060    
       01504  606060606060    
       01505  606060606060    
       01506  606060606060    
       01507  606060606060    
       01510  606060606060    
       01511  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01512  255160634660    
       01513  232143436031    
       01514  456063303162    
       01515  602431212745    
       01516  466263312360    
       01517  663163304664    
       01520  636024316263    
       01521  645122314527    
       01522  602346512562    
       01523  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01524  606646512462    
       01525  604626604425    
       01526  444651706060    
       01527  606060606060    
       01530  606060606060    
       01531  606060606060    
       01532  606060606060    
       01533  606060606060    
       01534  606060606060    
       01535  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES            
       01536  252545605125    
       01537  212460464563    
       01540  466024516444    
       01541  600473602425    
       01542  626351467031    
       01543  452760633025    
       01544  606321646063    
       01545  212243256025    
       01546  456351312562    
       01547  602145246063           BCD   AND THEIR CHECK SUMS.                                                  
       01550  302531516023    
       01551  302523426062    
       01552  644462336060    
       01553  606060606060    
       01554  606060606060    
       01555  606060606060    
       01556  606060606060    
       01557  606060606060    
       01560  606060606060    
       01561  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01562  606631434360    
       01563  222560512562    
       01564  634651252473    
       01565  602264636063    
       01566  302551256031    
       01567  626045466066    
       01570  217060634660    
       01571  234645263151    
       01572  446063302560    
       01573  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01574  626444602551    
       01575  514651604645    
       01576  606330256024    
       01577  516444336060    
       01600  606060606060    
       01601  606060606060    
       01602  606060606060    
       01603  606060606060    
       01604  606060606060    
       01605  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      78           0           0           0           0
 LIB       0           0           0           0           0
 COL      78           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      208                  
0NUMBER OF SYMBOLS,  DEF   208,DEFOP     0,UNDEF     0      
9            ORG 52                FORCE NEW RECORD                                       
1                       00064        ORG 52                FORCE NEW RECORD                                       
       00064  0 01303 0 01564        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00064        TXH 52                4307  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
                        04331 SUBTAG SYN 2265              4331 OCTAL                                             
                        04327 SUBORG SYN 2263              4327 OCTAL - THIS IS SUBORG + 3                        
       01306  0 50000 0 04331        CLA SUBTAG            SAME AS INSTRUCTIONS 4246 THRO                         
       01307  0 76500 0 00011        LRS 9                 4261 IN SECTION II                                     
       01310  0 73400 6 00000        PAX 0,6                                                                      
 T     01311 -0 75400 0 00000        PXD                   AT END OF TIX, AC ADDRESS HAS                          
       01312  0 76300 0 00011        LLS 9                 DRUM ADDRESS OF ENTRY AND                              
       01313  0 60100 0 01342        STO SUBES1            IR 2 EQUALS  1 FOR 2 WORD + CHECKSUM                   
       01314  0 76700 0 00001        ALS 1                              2 FOR 4 WORD + SUM                        
       01315  0 60100 0 01343        STO SUBES2                         3 FOR 6 WORD + SUM                        
       01316  0 50000 4 04327        CLA SUBORG,4                                                                 
       01317  0 40000 0 01342        ADD SUBES1                                                                   
       01320  0 40000 0 01343 SUB030 ADD SUBES2                                                                   
       01321  2 00001 4 01320        TIX SUB030,4,1                                                               
       01322  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01323  0 60200 0 01257        SLW ERAS                                                                     
       01324  0 56000 0 01257        LDQ ERAS                                                                     
       01325 -0 76300 0 00014        LGL 12                SHIFT 0UT FIRST 2 BLANKS                               
       01326 -0 50000 0 01402        CAL PR2                                                                      
       01327 -0 76300 0 00022        LGL 18                                                                       
       01330  0 60200 0 01402        SLW PR2                                                                      
       01331 -0 76300 0 00006        LGL 6                                                                        
       01332  0 56000 0 01403        LDQ PR3                                                                      
       01333 -0 76300 0 00036        LGL 30                                                                       
       01334  0 60200 0 01403        SLW PR3                                                                      
       01335  0 50000 2 01347        CLA A+1,2                                                                    
       01336  0 60100 0 01355        STO PR1                                                                      
       01337  0 07400 4 00740        TSX PRINT,4                                                                  
       01340  0 01565 0 01347        HTR PR,0,PR+142                                                              
       01341  0 02000 0 00221        TRA DIGRTN                                                                   
       01342  0 00000 0 00000 SUBES1                                                                              
       01343  0 00000 0 00000 SUBES2                                                                              
       01344  452760216006           BCD 1NG A 6                                                                  
       01345  452760216004           BCD 1NG A 4                                                                  
       01346  452760216002    A      BCD 1NG A 2                                                                  
       01347  606060606060    PR     BCD 2                                                                        
       01350  606060606060    
       01351  233025234260           BCD 4CHECK SUM ERROR IN READI                                                
       01352  626444602551    
       01353  514651603145    
       01354  605125212431    
       01355  452760216002    PR1    BCD 1NG A 2                                                                  
       01356  606646512460           BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.               
       01357  254563517060    
       01360  214524603163    
       01361  626023302523    
       01362  426062644460    
       01363  314560633025    
       01364  606321646063    
       01365  212243256046    
       01366  456024516444    
       01367  600433606060    
       01370  606060606060           BCD 5                                                                        
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  633025602451           BCD 5THE DRUM ADDRESS OF THE ENTRY                                           
       01376  644460212424    
       01377  512562626046    
       01400  266063302560    
       01401  254563517060    
       01402  606060316260    PR2    BCD 1   IS                                                                   
       01403  336060263160    PR3    BCD 1.  FI                                                                   
       01404  652560216363           BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                      
       01405  254447636260    
       01406  302165256022    
       01407  252545604421    
       01410  242560634660    
       01411  512521246060    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  606060606060    
       01416  606060606060           BCD 3                                                                        
       01417  606060606060    
       01420  606060606060    
       01421  633025602545           BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                       
       01422  635170602346    
       01423  515125236343    
       01424  706026514644    
       01425  606330316260    
       01426  472151633123    
       01427  644321516021    
       01430  242451256262    
       01431  336060606060    
       01432  606060606060    
       01433  606060606060           BCD                                                                          
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060           BCD                                                                          
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060           BCD                                                                          
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  606060606060    
       01464  606060606060    
       01465  606060606060    
       01466  606060606060    
       01467  606060606060    
       01470  606060606060    
       01471  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01472  255160634660    
       01473  232143436031    
       01474  456063303162    
       01475  602431212745    
       01476  466263312360    
       01477  663163304664    
       01500  636024316263    
       01501  645122314527    
       01502  602346512562    
       01503  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01504  606646512462    
       01505  604626604425    
       01506  444651706060    
       01507  606060606060    
       01510  606060606060    
       01511  606060606060    
       01512  606060606060    
       01513  606060606060    
       01514  606060606060    
       01515  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES            
       01516  252545605125    
       01517  212460464563    
       01520  466024516444    
       01521  600473602425    
       01522  626351467031    
       01523  452760633025    
       01524  606321646063    
       01525  212243256025    
       01526  456351312562    
       01527  602145246063           BCD   AND THEIR CHECK SUMS.                                                  
       01530  302531516023    
       01531  302523426062    
       01532  644462336060    
       01533  606060606060    
       01534  606060606060    
       01535  606060606060    
       01536  606060606060    
       01537  606060606060    
       01540  606060606060    
       01541  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01542  606631434360    
       01543  222560512562    
       01544  634651252473    
       01545  602264636063    
       01546  302551256031    
       01547  626045466066    
       01550  217060634660    
       01551  234645263151    
       01552  446063302560    
       01553  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01554  626444602551    
       01555  514651604645    
       01556  606330256024    
       01557  516444336060    
       01560  606060606060    
       01561  606060606060    
       01562  606060606060    
       01563  606060606060    
       01564  606060606060    
       01565  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      64           0           0           0           0
 LIB       0           0           0           0           0
 COL      64           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      194                  
0NUMBER OF SYMBOLS,  DEF   206,DEFOP     0,UNDEF     0      
9            ORG 53                FORCE NEW RECORD                                       
1                       00065        ORG 53                FORCE NEW RECORD                                       
       00065  0 01303 0 02746        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00065        TXH 53                 150  FT  75                                           
       01304  0 76200 0 00304        RDR 4                                                                        
       01305  0 46000 0 02136        LDA D273              THIS IS THA ACL WITH ADDRESS OF                        
       01306  0 70000 0 02136        CPY D273              DRUM CHECK SUM IN CORES                                
       01307  0 50000 0 02136        CLA D273                                                                     
       01310  0 62100 0 01311        STA GETSUM                                                                   
 A     01311  0 50000 0 00000 GETSUM CLA                                                                          
       01312  0 60100 0 02137        STO DRMSUM            HAVE ACTUAL DRUM CHECK SUM                             
       01313  0 76200 0 00304        RDR 4                                                                        
       01314  0 46000 0 02140        LDA D307              HAVE COMPUTED CHECK SUM FROM                           
       01315  0 70000 0 02140        CPY D307              PERMANENT LOCATION                                     
       01316  0 76200 0 00304        RDR 4                                                                        
       01317  0 46000 0 02141        LDA D313              HAVE DRUM SELECT AND                                   
       01320  0 70000 0 02141        CPY D313              INITIAL DRUM ADDRESS                                   
       01321 -0 76000 0 00355        SLT8141               TURN OFF SENSE LIGHT 1                                 
       01322  0 76100 0 00000        NOP                                                                          
       01323  0 50000 0 01234        CLA PREFX1                                                                   
       01324  0 40200 0 02142        SUB MEM4K                                                                    
       01325 -0 10000 0 01327        TNZ LX                                                                       
       01326  0 76000 0 00215        PSE8141               TURN ON SENSE LIGHT 1, MEMORY IS 4K                    
       01327 -0 53400 2 00000 LX     LXD 0,2               IR2 WAS SAVED IN DEC LOC ZERO                          
       01330 -0 75400 2 00000        PXD 0,2                                                                      
       01331  0 40200 0 01234        SUB PREFX1                                                                   
       01332 -0 32000 0 01230        ANA DECMSK                                                                   
       01333  0 53400 2 02135        LXA TAB,2                                                                    
       01334  0 34000 2 02135 CAS    CAS TAB,2                                                                    
       01335  0 02000 0 01337        TRA TIXT                                                                     
       01336  0 02000 0 01655        TRA HAVE                                                                     
       01337  2 00005 2 01334 TIXT   TIX CAS,2,5                                                                  
       01340  0 07400 4 00740        TSX PRINT,4           CANNOT IDENTIFY TABLE  VERRRY BAD                      
       01341  0 01655 0 01343        HTR ER,0,ER+202                                                              
       01342  0 00000 0 00221        HTR DIGRTN                                                                   
       01343  606060606060    ER     BCD 2                                                                        
       01344  606060606060    
       01345  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01346  464560462660    
       01347  255151465173    
       01350  606630312330    
       01351  603021626022    
       01352  252545604751    
       01353  314563252473    
       01354  603021626023    
       01355  216462252460    
       01356  243121274546    
       01357  626331236051           BCD  STIC RECORD NUMBER 53                                                   
       01360  252346512460    
       01361  456444222551    
       01362  600503606060    
       01363  606060606060    
       01364  606060606060    
       01365  606060606060    
       01366  606060606060    
       01367  606060606060    
       01370  606060606060    
       01371  634660222560           BCD  TO BE READ IN.  THIS RECORD COMPARES THE 2S COMPLIMENT OF IN            
       01372  512521246031    
       01373  453360606330    
       01374  316260512523    
       01375  465124602346    
       01376  444721512562    
       01377  606330256002    
       01400  626023464447    
       01401  433144254563    
       01402  604626603145    
       01403  242567605125           BCD  DEX REGISTER 2 TO A LIST OF 4 TABLE STOPS,                              
       01404  273162632551    
       01405  600260634660    
       01406  216043316263    
       01407  604626600460    
       01410  632122432560    
       01411  626346476273    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  226463604546           BCD  BUT NO MATCH HAS BEEN FOUND.                                            
       01416  604421632330    
       01417  603021626022    
       01420  252545602646    
       01421  644524336060    
       01422  606060606060    
       01423  606060606060    
       01424  606060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060           BCD                                                                          
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  606060606060    
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  633025602346           BCD  THE CONTENTS OF IR 2 WERE SAVED IN THE DECREMENT OF LOCATION            
       01442  456325456362    
       01443  604626603151    
       01444  600260662551    
       01445  256062216525    
       01446  246031456063    
       01447  302560242523    
       01450  512544254563    
       01451  604626604346    
       01452  232163314645    
       01453  607125514633           BCD   ZERO.                                                                  
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060    
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  606060606060    
       01464  606060606060    
       01465  633031626024           BCD  THIS DECREMENT SHOULD EQUAL ....                                        
       01466  252351254425    
       01467  456360623046    
       01470  644324602550    
       01471  642143603333    
       01472  333360606060    
       01473  606060606060    
       01474  606060606060    
       01475  606060606060    
       01476  606060606060    
       01477  606060606060           BCD                                                                          
       01500  606060606060    
       01501  606060606060    
       01502  606060606060    
       01503  606060606060    
       01504  606060606060    
       01505  606060606060    
       01506  606060606060    
       01507  606060606060    
       01510  606060606060    
       01511  606060606060           BCD                   77744   STAG TABLE                                     
       01512  606060606060    
       01513  606060606007    
       01514  070704046060    
       01515  606263212760    
       01516  632122432560    
       01517  606060606060    
       01520  606060606060    
       01521  606060606060    
       01522  606060606060    
       01523  606060606060           BCD                                                                          
       01524  606060606060    
       01525  606060606060    
       01526  606060606060    
       01527  606060606060    
       01530  606060606060    
       01531  606060606060    
       01532  606060606060    
       01533  606060606060    
       01534  606060606060    
       01535  606060606060           BCD                   77733   SUCC TABLE                                     
       01536  606060606060    
       01537  606060606007    
       01540  070703036060    
       01541  606264232360    
       01542  632122432560    
       01543  606060606060    
       01544  606060606060    
       01545  606060606060    
       01546  606060606060    
       01547  606060606060           BCD                                                                          
       01550  606060606060    
       01551  606060606060    
       01552  606060606060    
       01553  606060606060    
       01554  606060606060    
       01555  606060606060    
       01556  606060606060    
       01557  606060606060    
       01560  606060606060    
       01561  606060606060           BCD                   77721   PRED TABLE                                     
       01562  606060606060    
       01563  606060606007    
       01564  070702016060    
       01565  604751252460    
       01566  632122432560    
       01567  606060606060    
       01570  606060606060    
       01571  606060606060    
       01572  606060606060    
       01573  606060606060           BCD                                                                          
       01574  606060606060    
       01575  606060606060    
       01576  606060606060    
       01577  606060606060    
       01600  606060606060    
       01601  606060606060    
       01602  606060606060    
       01603  606060606060    
       01604  606060606060    
       01605  606060606060           BCD                   77707   BBB TABLE                                      
       01606  606060606060    
       01607  606060606007    
       01610  070700076060    
       01611  602222226063    
       01612  212243256060    
       01613  606060606060    
       01614  606060606060    
       01615  606060606060    
       01616  606060606060    
       01617  606060606060           BCD                                                                          
       01620  606060606060    
       01621  606060606060    
       01622  606060606060    
       01623  606060606060    
       01624  606060606060    
       01625  606060606060    
       01626  606060606060    
       01627  606060606060    
       01630  606060606060    
       01631  512562626062           BCD PRESS START IF YOU WISH TO RESTORE MACHINE TO CONDITION IN WH            
       01632  632151636031    
       01633  266070466460    
       01634  663162306063    
       01635  466051256263    
       01636  465125604421    
       01637  233031452560    
       01640  634660234645    
       01641  243163314645    
       01642  603145606630    
       01643  312330602551           BCD  ICH ERROR OCCURRED.                                                     
       01644  514651604623    
       01645  236451512524    
       01646  336060606060    
       01647  606060606060    
       01650  606060606060    
       01651  606060606060    
       01652  606060606060    
       01653  606060606060    
       01654  606060606060    
       01655  0 50000 2 02136 HAVE   CLA TAB+1,2           BCD NAME OF TABLE                                      
       01656  0 60100 0 02162        STO PR1                                                                      
       01657  0 50000 2 02141        CLA TAB+4,2           BCD LINE ABOUT SIZE OF TABLE ENTRIES                   
       01660  0 60100 0 02101        STO PRTAB                                                                    
       01661  0 76000 0 00141        SLN 1                                                                        
       01662  0 02000 0 01664        TRA MEM8K                                                                    
       01663  2 00001 2 01664        TIX MEM8K,2,1                                                                
       01664  0 50000 2 02137 MEM8K  CLA TAB+2,2           THIS IS ADDRESS OF 1ST WORD IN                         
       01665  0 60100 0 02143        STO BUFADR            BUFFER FOR WHATEVER K                                  
       01666  0 50000 0 02136        CLA D273              SUBTRACT ADDRESS OF 1ST WORO IN                        
       01667 -0 32000 0 01227        ANA ADDMSK            BUFFER FROM ADDRESS OF DRUM CHECK SUM                  
       01670  0 40200 0 02143        SUB BUFADR                                                                   
       01671  0 60100 0 02144        STO WDC               NOW HAVE ACTUAL WORD COUNT                             
       01672  0 07400 4 00730        TSX OCTBCD,4          CONVERT TO BCD AND STORE IN COMMENT                    
       01673  0 60200 0 01257        SLW ERAS                                                                     
       01674  0 56000 0 01257        LDQ ERAS                                                                     
       01675 -0 76300 0 00014        LGL 12                                                                       
       01676 -0 50000 0 02327        CAL PR6                                                                      
       01677 -0 76300 0 00022        LGL 18                                                                       
       01700  0 60200 0 02327        SLW PR6                                                                      
       01701 -0 76300 0 00006        LGL 6                                                                        
       01702  0 56000 0 02330        LDQ PR7                                                                      
       01703 -0 76300 0 00036        LGL 30                                                                       
       01704  0 60200 0 02330        SLW PR7                                                                      
       01705  0 50000 0 02143        CLA BUFADR            CONVERT ADDRESS OF 1ST WORD OF                         
       01706  0 07400 4 00730        TSX OCTBCD,4          CORE BUFFER AND STORE IN COMMENT                       
       01707  0 60200 0 01257        SLW ERAS                                                                     
       01710  0 56000 0 01257        LDQ ERAS                                                                     
       01711 -0 50000 0 02221        CAL ADMEM                                                                    
       01712 -0 76300 0 00022        LGL 18                                                                       
       01713  0 60200 0 02221        SLW ADMEM                                                                    
       01714 -0 76300 0 00022        LGL 18                                                                       
       01715  0 56000 0 00717        LDQ BLANKS                                                                   
       01716 -0 76300 0 00022        LGL 18                                                                       
       01717  0 60200 0 02222        SLW ADMEM+1                                                                  
       01720  0 50000 0 02141        CLA D313              FIND NUMBER OF DRUM                                    
       01721  0 76700 0 00007        ALS 7                                                                        
       01722 -0 73400 1 00000        PDX 0,1                                                                      
       01723  0 50000 1 02110        CLA DRM,1             BCD TABLE                                              
       01724  0 60100 0 02171        STO PR4                                                                      
       01725  0 50000 0 02141        CLA D313                                                                     
       01726 -0 32000 0 02146        ANA DRUMSK            ADD WORD COUNT TO ADDRESS OF                           
       01727  0 62100 0 02145        STA DRMADR            1ST WORD ON DRUM,  SPLIT DRUM                          
       01730  0 40000 0 02144        ADD WDC               IF BITS CAN BE MOVED INTO DECREMENT                    
       01731  0 76700 0 00007        ALS 7                                                                        
       01732 -0 73400 2 00000        PDX 0,2                                                                      
       01733 -3 00000 2 01743        TXL ISDR4,2,0                                                                
       01734  1 00001 1 01735        TXI SPLIT,1,1                                                                
       01735 -0 50000 1 02110 SPLIT  CAL DRM,1             NEXT BCD WORD FROM TABLE INTO                          
       01736  0 56000 0 00717        LDQ BLANKS            COMMENT                                                
       01737 -0 76300 0 00006        LGL 6                                                                        
       01740  0 60200 0 02202        SLW PR5                                                                      
       01741  0 50000 0 02147        CLA PRSPLT            EXPAND FIRST COMMENT TO SHOW                           
       01742  0 60100 0 02075        STO TSX1              SPLIT BUFFER                                           
       01743 -3 00002 1 01746 ISDR4  TXL GETLDA,1,2        IFF BUFFER ON DRUM 4, IT IS CLOBBERED                  
       01744  0 50000 0 02150        CLA PRALL             PRINT SAME                                             
       01745  0 60100 0 02103        STO TSX2                                                                     
       01746  0 50000 0 02145 GETLDA CLA DRMADR            CONVERT ADDRESS OF 1ST WORD ON                         
       01747  0 07400 4 00730        TSX OCTBCD,4          THE DRUM AND STORE IN COMMENT                          
       01750  0 60200 0 01257        SLW ERAS                                                                     
       01751  0 56000 0 01257        LDQ ERAS                                                                     
       01752 -0 76300 0 00014        LGL 12                                                                       
       01753 -0 50000 0 02167        CAL PR2                                                                      
       01754 -0 76300 0 00014        LGL 12                                                                       
       01755  0 60200 0 02167        SLW PR2                                                                      
       01756 -0 76300 0 00014        LGL 12                                                                       
       01757  0 56000 0 02170        LDQ PR3                                                                      
       01760 -0 76300 0 00030        LGL 24                                                                       
       01761  0 60200 0 02170        SLW PR3                                                                      
       01762  0 50000 0 02136        CLA D273              CONVERT AND STORE ADDRESS IN CORES                     
       01763  0 07400 4 00730        TSX OCTBCD,4          OF DRUM CHECK SUM                                      
       01764  0 60200 0 02420        SLW PR9                                                                      
       01765  0 56000 0 02140        LDQ D307              CONVERT ALL OF 36 BIT WORD TO PRINT                    
       01766 -0 76300 0 00017        LGL 15                COMPUTED CHECK SUM                                     
       01767  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01770  0 60200 0 01257        SLW ERAS                                                                     
       01771  0 56000 0 01257        LDQ ERAS                                                                     
 T     01772 -0 75400 0 00000        PXD                                                                          
       01773 -0 76300 0 00006        LGL 6                                                                        
       01774  0 60200 0 01260        SLW ERAS+1            IE, STORE 00000B                                       
 T     01775 -0 75400 0 00000        PXD                                                                          
       01776 -0 76300 0 00006        LGL 6                                                                        
       01777  0 76700 0 00006        ALS 6                                                                        
       02000  0 40000 0 01260        ADD ERAS+1                                                                   
       02001 -0 76300 0 00030        LGL 24                                                                       
       02002  0 60200 0 02376        SLW PR8                                                                      
       02003  0 56000 0 02140        LDQ D307                                                                     
       02004 -0 76300 0 00017        LGL 15                                                                       
 T     02005 -0 75400 0 00000        PXD                                                                          
       02006 -0 76300 0 00014        LGL 12                                                                       
       02007  0 07400 4 00730        TSX OCTBCD,4                                                                 
       02010  0 60200 0 01257        SLW ERAS                                                                     
       02011  0 56000 0 01257        LDQ ERAS                                                                     
       02012 -0 76300 0 00022        LGL 18                                                                       
       02013  0 76700 0 00006        ALS 6                                                                        
       02014  0 40000 0 01260        ADD ERAS+1                                                                   
       02015 -0 76300 0 00006        LGL 6                                                                        
       02016  0 76700 0 00006        ALS 6                                                                        
       02017  0 40000 0 01260        ADD ERAS+1                                                                   
       02020 -0 76300 0 00014        LGL 12                                                                       
       02021  0 60200 0 02377        SLW PR8+1                                                                    
       02022  0 56000 0 02140        LDQ D307                                                                     
       02023 -0 76300 0 00033        LGL 27                                                                       
 T     02024 -0 75400 0 00000        PXD                                                                          
       02025 -0 76300 0 00011        LGL 9                                                                        
       02026  0 07400 4 00730        TSX OCTBCD,4                                                                 
       02027  0 60200 0 01257        SLW ERAS                                                                     
       02030  0 56000 0 01257        LDQ ERAS                                                                     
       02031 -0 77300 0 00022        RQL 18                                                                       
       02032 -0 76300 0 00022        LGL 18                                                                       
       02033  0 56000 0 00717        LDQ BLANKS                                                                   
       02034 -0 76300 0 00022        LGL 18                                                                       
       02035  0 60200 0 02400        SLW PR8+2                                                                    
       02036  0 56000 0 02137        LDQ DRMSUM            CONVERT AND STORE ALL OF 36 BIT                        
 T     02037 -0 75400 0 00000        PXD                   DRUM CHECK SUM                                         
       02040 -0 76300 0 00003        LGL 3                                                                        
       02041  0 76700 0 00006        ALS 6                                                                        
       02042 -0 60200 0 02421        ORS PR10                                                                     
       02043 -0 76300 0 00017        LGL 15                                                                       
       02044  0 07400 4 00730        TSX OCTBCD,4                                                                 
       02045  0 60200 0 01257        SLW ERAS                                                                     
       02046  0 56000 0 01257        LDQ ERAS                                                                     
       02047 -0 77300 0 00006        RQL 6                                                                        
       02050 -0 60000 0 02422        STQ PR10+1                                                                   
       02051  0 56000 0 02137        LDQ DRMSUM                                                                   
       02052 -0 76300 0 00022        LGL 18                                                                       
 T     02053 -0 75400 0 00000        PXD                                                                          
       02054 -0 76300 0 00017        LGL 15                                                                       
       02055 -0 60000 0 01261        STQ ERAS+2                                                                   
       02056  0 07400 4 00730        TSX OCTBCD,4                                                                 
       02057  0 60200 0 01257        SLW ERAS                                                                     
       02060  0 56000 0 01257        LDQ ERAS                                                                     
       02061 -0 76300 0 00014        LGL 12                                                                       
       02062  0 76700 0 00006        ALS 6                                                                        
       02063  0 40000 0 01260        ADD ERAS+1                                                                   
       02064 -0 76300 0 00030        LGL 24                                                                       
       02065  0 60200 0 02423        SLW PR10+2                                                                   
       02066  0 56000 0 01261        LDQ ERAS+2                                                                   
 T     02067 -0 75400 0 00000        PXD                                                                          
       02070 -0 76300 0 00003        LGL 3                                                                        
       02071  0 56000 0 00717        LDQ BLANKS                                                                   
       02072 -0 76300 0 00036        LGL 30                                                                       
       02073  0 60200 0 02424        SLW PR10+3                                                                   
       02074  0 07400 4 00740        TSX PRINT,4                                                                  
       02075  0 02177 0 02151 TSX1   HTR PR,0,PR+22                                                               
       02076  0 07400 4 00740        TSX PRINT,4                                                                  
       02077  0 02223 0 02211        HTR PRCR,0,PRCR+10                                                           
       02100  0 07400 4 00740        TSX PRINT,4                                                                  
       02101  0 00000 0 00000 PRTAB                                                                               
       02102  0 07400 4 00740        TSX PRINT,4                                                                  
       02103  0 02603 0 02315 TSX2   HTR PRSZ,0,PRSZND                                                            
       02104  0 02000 0 00221        TRA DIGRTN                                                                   
       02105  245164446004           BCD 1DRUM 4                                                                  
       02106  245164446003           BCD 1DRUM 3                                                                  
       02107  245164446002           BCD 1DRUM 2                                                                  
       02110  245164446001    DRM    BCD 1DRUM 1                                                                  
       02111  0 00042 0 00000 STIR   HTR80,0,34            STAG  DEC HAS IR2 C0MPLEMENTED                         
       02112  606263212760           BCD 1 STAG            IF TABLE STAG  IR 2 IS 77744                           
       02113  0 00000 0 12217        HTR85263              BUFFER ADDRESS FIRST WORD 8K                           
       02114  0 00000 0 11705        HTR85061              DITTO 4K                                               
       02115  0 02251 0 02223        HTR PRA,0,PRA+22                                                             
       02116  0 00055 0 00000        HTR80,0,45            SUCC  IR2 IS 77733                                     
       02117  606264232360           BCD 1 SUCC                                                                   
       02120  0 00000 0 40536        HTR816734             8K                                                     
       02121  0 00000 0 16603        HTR87555              4K                                                     
       02122  0 02265 0 02251        HTR PRB,0,PRB+12                                                             
       02123  0 00071 0 00000        HTR80,0,57            PRED  IR2 IS 77721                                     
       02124  604751252460           BCD 1 PRED                                                                   
       02125  0 00000 0 36472        HTR815674             8K                                                     
       02126  0 00000 0 16251        HTR87337              4K                                                     
       02127  0 02301 0 02265        HTR PRC,0,PRC+12                                                             
       02130  0 00107 0 00000        HTR80,0,71            BBB  IR2 IS 77707                                      
       02131  606022222260           BCD 1  BBB                                                                   
       02132  0 00000 0 30365        HTR812533             8K                                                     
       02133  0 00000 0 14452        HTR86442              4K                                                     
       02134  0 02315 0 02301        HTR PRD,0,PRD+12                                                             
       02135  0 00000 0 00024 TAB    HTR TAB-STIR                                                                 
       02136  0 00000 0 00421 D273   HTR8273               COPY ACL WITH ADDRESS 0F DRUM SUM IN CORES             
       02137  0 00000 0 00000 DRMSUM                       DRUM SUM FROM ADDRESS FOUND ABOVE                      
       02140  0 00000 0 00463 D307   HTR8307               COMPUTED SUM PICKED UP FROM 307 AND STORED             
       02141  0 00000 0 00471 D313   HTR8313               DRUM SELECT AND INITIAL ADDRESS FROM 313               
       02142 +010000000000    MEM4K  OCT 010000000000                                                             
       02143  0 00000 0 00000 BUFADR                       CORE ADDRESS 0F 1ST WORD OF TABLE                      
       02144  0 00000 0 00000 WDC                          ACTUAL WORD COUNT STORED HERE                          
       02145  0 00000 0 00000 DRMADR                       D313 ANA 3777 IS ADDRESS 1ST WORD ON DRUM              
       02146  0 00000 0 07301 DRUMSK HTR83777                                                                     
       02147  0 02211 0 02151 PRSPLT HTR PR,0,PR+32                                                               
       02150  0 02747 0 02315 PRALL  HTR PRSZ,0,X                                                                 
       02151  606060606060    PR     BCD 2                                                                        
       02152  606060606060    
       02153  233025234260           BCD 7CHECK SUM ERROR IN READING A BUFFER OF THE                              
       02154  626444602551    
       02155  514651603145    
       02156  605125212431    
       02157  452760216022    
       02160  642626255160    
       02161  462660633025    
       02162  606263212760    PR1    BCD 1 STAG                                                                   
       02163  632122432573           BCD 4TABLE, BEGINNING AT ADDR                                                
       02164  602225273145    
       02165  453145276021    
       02166  636021242451    
       02167  606025626260    PR2    BCD 1  ESS            CHANGED TO ESS 12                                      
       02170  604645606060    PR3    BCD 1 ON              CHANGED TO 34 0N                                       
       02171  245164446001    PR4    BCD 6DRUM 1                                                                  
       02172  606060606060    
       02173  606060606060    
       02174  606060606060    
       02175  606060606060    
       02176  606060606060    
       02177  214524602346           BCD 3AND CONTINUED ON D                                                      
       02200  456331456425    
       02201  246046456024    
       02202  516444600233    PR5    BCD 7RUM 2.                                                                  
       02203  606060606060    
       02204  606060606060    
       02205  606060606060    
       02206  606060606060    
       02207  606060606060    
       02210  606060606060    
       02211  606060606060    PRCR   BCD 2                                                                        
       02212  606060606060    
       02213  314560234651           BCD 6IN CORES, THE BUFFER BEGINS AT LOCAT                                    
       02214  256273606330    
       02215  256022642626    
       02216  255160222527    
       02217  314562602163    
       02220  604346232163    
       02221  606060314645    ADMEM  BCD 2   ION           C+ANGED TO ION 12345                                   
       02222  606060606060    
       02223  606060606060    PRA    BCD 2                                                                        
       02224  606060606060    
       02225  633025606263           BCD  THE STAG TABLE HAS A 4 BIT ENTRY FOR EACH TAGGED INSTRUCTION            
       02226  212760632122    
       02227  432560302162    
       02230  602160046022    
       02231  316360254563    
       02232  517060264651    
       02233  602521233060    
       02234  632127272524    
       02235  603145626351    
       02236  642363314645    
       02237  602346444731           BCD   COMPILED.  EACH STAG WORD HOLDS 9 ENTRIES.                             
       02240  432524336060    
       02241  252123306062    
       02242  632127606646    
       02243  512460304643    
       02244  246260116025    
       02245  456351312562    
       02246  336060606060    
       02247  606060606060    
       02250  606060606060    
       02251  606060606060    PRB    BCD 2                                                                        
       02252  606060606060    
       02253  633025606264           BCD  THE SUCC TABLE HAS 1 WORD ENTRIES.                                      
       02254  232360632122    
       02255  432560302162    
       02256  600160664651    
       02257  246025456351    
       02260  312562336060    
       02261  606060606060    
       02262  606060606060    
       02263  606060606060    
       02264  606060606060    
       02265  606060606060    PRC    BCD 2                                                                        
       02266  606060606060    
       02267  633025604751           BCD  THE PRED TABLE HAS 1 WORD ENTRIES.                                      
       02270  252460632122    
       02271  432560302162    
       02272  600160664651    
       02273  246025456351    
       02274  312562336060    
       02275  606060606060    
       02276  606060606060    
       02277  606060606060    
       02300  606060606060    
       02301  606060606060    PRD    BCD 2                                                                        
       02302  606060606060    
       02303  633025602222           BCD  THE BBB TABLE HAS 6 WORD ENTRIES.                                       
       02304  226063212243    
       02305  256030216260    
       02306  066066465124    
       02307  602545635131    
       02310  256233606060    
       02311  606060606060    
       02312  606060606060    
       02313  606060606060    
       02314  606060606060    
       02315  606060606060    PRSZ   BCD 2                                                                        
       02316  606060606060    
       02317  633025606321           BCD 8THE TABLE WAS WRITTEN ON THE DRUM FROM A BUFFER                         
       02320  224325606621    
       02321  626066513163    
       02322  632545604645    
       02323  606330256024    
       02324  516444602651    
       02325  464460216022    
       02326  642626255160    
       02327  606060462660    PR6    BCD 1   OF            (+ANGED TO OF 123                                      
       02330  606646512460    PR7    BCD 1 WORD            CHANGED TO 4 WORD                                      
       02331  626046236321           BCD  S OCTAL.                                                                
       02332  433360606060    
       02333  606060606060    
       02334  606060606060    
       02335  606060606060    
       02336  606060606060    
       02337  606060606060    
       02340  606060606060    
       02341  606060606060    
       02342  606060606060    
       02343  252123306022           BCD  EACH BUFFER IS FOLLOWED BY ITS CHECK SUM.                               
       02344  642626255160    
       02345  316260264643    
       02346  434666252460    
       02347  227060316362    
       02350  602330252342    
       02351  606264443360    
       02352  606060606060    
       02353  606060606060    
       02354  606060606060    
       02355  606060606060           BCD                                                                          
       02356  606060606060    
       02357  606060606060    
       02360  606060606060    
       02361  606060606060    
       02362  606060606060    
       02363  606060606060    
       02364  606060606060    
       02365  606060606060    
       02366  606060606060    
       02367  633025602346           BCD 7THE COMPUTED CHECK SUM IN LOCATION 307 IS                               
       02370  444764632524    
       02371  602330252342    
       02372  606264446031    
       02373  456043462321    
       02374  633146456003    
       02375  000760316260    
       02376  006000000000    PR8    BCD  0 00000 0 00000                                                         
       02377  006000600000    
       02400  000000606060    
       02401  606060606060    
       02402  606060606060    
       02403  606060606060    
       02404  606060606060    
       02405  606060606060    
       02406  606060606060    
       02407  606060606060    
       02410  606060606060           BCD 3                                                                        
       02411  606060606060    
       02412  606060606060    
       02413  633025602451           BCD 5THE DRUM CHECK SUM IN LOCATION                                          
       02414  644460233025    
       02415  234260626444    
       02416  603145604346    
       02417  232163314645    
       02420  600102030405    PR9    BCD 1 12345                                                                  
       02421  603162600060    PR10   BCD   IS 0                                                                   
       02422  606060606060    
       02423  606060606060    
       02424  606060606060    
       02425  606060606060    
       02426  606060606060    
       02427  606060606060    
       02430  606060606060    
       02431  606060606060    
       02432  606060606060    
       02433  606060606060           BCD 4                                                                        
       02434  606060606060    
       02435  606060606060    
       02436  606060606060    
       02437  606060606060           BCD                                                                          
       02440  606060606060    
       02441  606060606060    
       02442  606060606060    
       02443  606060606060    
       02444  606060606060    
       02445  606060606060    
       02446  606060606060    
       02447  606060606060    
       02450  606060606060    
       02451  606060606060           BCD                                                                          
       02452  606060606060    
       02453  606060606060    
       02454  606060606060    
       02455  606060606060    
       02456  606060606060    
       02457  606060606060    
       02460  606060606060    
       02461  606060606060    
       02462  606060606060    
       02463  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS SECTION OF THE TAB            
       02464  636325444763    
       02465  626030216525    
       02466  602225254560    
       02467  442124256063    
       02470  466051252124    
       02471  606330316260    
       02472  622523633146    
       02473  456046266063    
       02474  302560632122    
       02475  432560234651           BCD  LE CORRECTLY FROM THE DRUM.                                             
       02476  512523634370    
       02477  602651464460    
       02500  633025602451    
       02501  644433606060    
       02502  606060606060    
       02503  606060606060    
       02504  606060606060    
       02505  606060606060    
       02506  606060606060    
       02507  606060606060           BCD                                                                          
       02510  606060606060    
       02511  606060606060    
       02512  606060606060    
       02513  606060606060    
       02514  606060606060    
       02515  606060606060    
       02516  606060606060    
       02517  606060606060    
       02520  606060606060    
       02521  606060606060           BCD                                                                          
       02522  606060606060    
       02523  606060606060    
       02524  606060606060    
       02525  606060606060    
       02526  606060606060    
       02527  606060606060    
       02530  606060606060    
       02531  606060606060    
       02532  606060606060    
       02533  606060606060           BCD                                                                          
       02534  606060606060    
       02535  606060606060    
       02536  606060606060    
       02537  606060606060    
       02540  606060606060    
       02541  606060606060    
       02542  606060606060    
       02543  606060606060    
       02544  606060606060    
       02545  606060606060           BCD                                                                          
       02546  606060606060    
       02547  606060606060    
       02550  606060606060    
       02551  606060606060    
       02552  606060606060    
       02553  606060606060    
       02554  606060606060    
       02555  606060606060    
       02556  606060606060    
       02557  454663256040           BCD  NOTE - IF THE CHECK SUM DISCREPANCY IS LARGE, IT MAY INDICAT            
       02560  603126606330    
       02561  256023302523    
       02562  426062644460    
       02563  243162235125    
       02564  472145237060    
       02565  316260432151    
       02566  272573603163    
       02567  604421706031    
       02570  452431232163    
       02571  256021604721           BCD  E A PART OF THE PROGRAM CANNOT BE REACHED.                              
       02572  516360462660    
       02573  633025604751    
       02574  462751214460    
       02575  232145454663    
       02576  602225605125    
       02577  212330252433    
       02600  606060606060    
       02601  606060606060    
       02602  606060606060    
       02603  606060606060    PRSZND BCD                                                                          
       02604  606060606060    
       02605  606060606060    
       02606  606060606060    
       02607  606060606060    
       02610  606060606060    
       02611  606060606060    
       02612  606060606060    
       02613  606060606060    
       02614  606060606060    
       02615  606060606060           BCD                                                                          
       02616  606060606060    
       02617  606060606060    
       02620  606060606060    
       02621  606060606060    
       02622  606060606060    
       02623  606060606060    
       02624  606060606060    
       02625  606060606060    
       02626  606060606060    
       02627  606060606060           BCD                                                                          
       02630  606060606060    
       02631  606060606060    
       02632  606060606060    
       02633  606060606060    
       02634  606060606060    
       02635  606060606060    
       02636  606060606060    
       02637  606060606060    
       02640  606060606060    
       02641  606060606060           BCD                                                                          
       02642  606060606060    
       02643  606060606060    
       02644  606060606060    
       02645  606060606060    
       02646  606060606060    
       02647  606060606060    
       02650  606060606060    
       02651  606060606060    
       02652  606060606060    
       02653  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       02654  255160634660    
       02655  232143436031    
       02656  456063303162    
       02657  602431212745    
       02660  466263312360    
       02661  663163304664    
       02662  636024316263    
       02663  645122314527    
       02664  602346512562    
       02665  736002000410           BCD  , 2048 WORDS OF MEMORY HAVE BEEN WRITTEN                                
       02666  606646512462    
       02667  604626604425    
       02670  444651706030    
       02671  216525602225    
       02672  254560665131    
       02673  636325456060    
       02674  606060606060    
       02675  606060606060    
       02676  606060606060    
       02677  464560634660           BCD  ON TO DRUM 4, DESTROYING THE TABLES AND THEIR CHECK SUMS.               
       02700  245164446004    
       02701  736024256263    
       02702  514670314527    
       02703  606330256063    
       02704  212243256260    
       02705  214524606330    
       02706  253151602330    
       02707  252342606264    
       02710  446233606060    
       02711  606060606060           BCD                                                                          
       02712  606060606060    
       02713  606060606060    
       02714  606060606060    
       02715  606060606060    
       02716  606060606060    
       02717  606060606060    
       02720  606060606060    
       02721  606060606060    
       02722  606060606060    
       02723  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       02724  606631434360    
       02725  222560512562    
       02726  634651252473    
       02727  602264636063    
       02730  302551256031    
       02731  626045466066    
       02732  217060634660    
       02733  234645263151    
       02734  446063302560    
       02735  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       02736  626444602551    
       02737  514651604645    
       02740  606330256024    
       02741  516444336060    
       02742  606060606060    
       02743  606060606060    
       02744  606060606060    
       02745  606060606060    
       02746  606060606060    
       02747  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     302           0           0           0           0
 LIB       0           0           0           0           0
 COL     302           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      818                  
0NUMBER OF SYMBOLS,  DEF   242,DEFOP     0,UNDEF     0      
9            ORG 54                FORCE NEW RECORD                                       
1                       00066        ORG 54                FORCE NEW RECORD                                       
       00066  0 01303 0 01552        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00066        TXH 54                 222  FT  94                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01553 0 01311        HTR PR,0,PR+162                                                              
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760633025    
       01320  606646512460    
       01321  234664456360    
       01322  462660633025    
       01323  602531264546    
       01324  606321224325    
       01325  602651464460           BCD   FROM DRUM 4.                                                           
       01326  245164446004    
       01327  336060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025602451           BCD  THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C            
       01340  644460212424    
       01341  512562626046    
       01342  266063303162    
       01343  602545635170    
       01344  603162600273    
       01345  602145246031    
       01346  636031626023    
       01347  464731252460    
       01350  314563466023    
       01351  465125604346           BCD  ORE LOCATION 165.                                                       
       01352  232163314645    
       01353  600106053360    
       01354  606060606060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  316362602330           BCD  ITS CHECK SUM IS COPIED FROM 3 INTO 223.  THE COPY LOOP BEGI            
       01364  252342606264    
       01365  446031626023    
       01366  464731252460    
       01367  265146446003    
       01370  603145634660    
       01371  020203336060    
       01372  633025602346    
       01373  477060434646    
       01374  476022252731    
       01375  456260216360           BCD  NS AT 210.                                                              
       01376  020100336060    
       01377  606060606060    
       01400  606060606060    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL            
       01410  636325444763    
       01411  626030216525    
       01412  602225254560    
       01413  442124256063    
       01414  466051252124    
       01415  606330316260    
       01416  464525602545    
       01417  635170602346    
       01420  515125236343    
       01421  703360606060           BCD  Y.                                                                      
       01422  606060606060    
       01423  606060606060    
       01424  606060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  606060606060           BCD                                                                          
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060           BCD                                                                          
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01460  255160634660    
       01461  232143436031    
       01462  456063303162    
       01463  602431212745    
       01464  466263312360    
       01465  663163304664    
       01466  636024316263    
       01467  645122314527    
       01470  602346512562    
       01471  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01472  606646512462    
       01473  604626604425    
       01474  444651706060    
       01475  606060606060    
       01476  606060606060    
       01477  606060606060    
       01500  606060606060    
       01501  606060606060    
       01502  606060606060    
       01503  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,            
       01504  252545605125    
       01505  212460464563    
       01506  466024516444    
       01507  600473602425    
       01510  626351467031    
       01511  452760633025    
       01512  602531264546    
       01513  606646512460    
       01514  234664456373    
       01515  603163626023           BCD   ITS CHECK SUM, AND THE TABLE.                                          
       01516  302523426062    
       01517  644473602145    
       01520  246063302560    
       01521  632122432533    
       01522  606060606060    
       01523  606060606060    
       01524  606060606060    
       01525  606060606060    
       01526  606060606060    
       01527  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01530  606631434360    
       01531  222560512562    
       01532  634651252473    
       01533  602264636063    
       01534  302551256031    
       01535  626045466066    
       01536  217060634660    
       01537  234645263151    
       01540  446063302560    
       01541  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01542  626444602551    
       01543  514651604645    
       01544  606330256024    
       01545  516444336060    
       01546  606060606060    
       01547  606060606060    
       01550  606060606060    
       01551  606060606060    
       01552  606060606060    
       01553  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      29           0           0           0           0
 LIB       0           0           0           0           0
 COL      29           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      182                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 55                FORCE NEW RECORD                                       
1                       00067        ORG 55                FORCE NEW RECORD                                       
       00067  0 01303 0 01552        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00067        TXH 55                 222  FT 107                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01553 0 01311        HTR PR,0,PR+162                                                              
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760633025    
       01320  606646512460    
       01321  234664456360    
       01322  462660633025    
       01323  602531264546    
       01324  606321224325    
       01325  602651464460           BCD   FROM DRUM 4.                                                           
       01326  245164446004    
       01327  336060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025602451           BCD  THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C            
       01340  644460212424    
       01341  512562626046    
       01342  266063303162    
       01343  602545635170    
       01344  603162600273    
       01345  602145246031    
       01346  636031626023    
       01347  464731252460    
       01350  314563466023    
       01351  465125604346           BCD  ORE LOCATION 2112.                                                      
       01352  232163314645    
       01353  600201010233    
       01354  606060606060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  316362602330           BCD  ITS CHECK SUM IS COPIED FROM 3 INTO 533.  THE COPY LOOP BEGI            
       01364  252342606264    
       01365  446031626023    
       01366  464731252460    
       01367  265146446003    
       01370  603145634660    
       01371  050303336060    
       01372  633025602346    
       01373  477060434646    
       01374  476022252731    
       01375  456260216360           BCD  NS AT 210.                                                              
       01376  020100336060    
       01377  606060606060    
       01400  606060606060    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL            
       01410  636325444763    
       01411  626030216525    
       01412  602225254560    
       01413  442124256063    
       01414  466051252124    
       01415  606330316260    
       01416  464525602545    
       01417  635170602346    
       01420  515125236343    
       01421  703360606060           BCD  Y.                                                                      
       01422  606060606060    
       01423  606060606060    
       01424  606060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  606060606060           BCD                                                                          
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060           BCD                                                                          
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01460  255160634660    
       01461  232143436031    
       01462  456063303162    
       01463  602431212745    
       01464  466263312360    
       01465  663163304664    
       01466  636024316263    
       01467  645122314527    
       01470  602346512562    
       01471  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01472  606646512462    
       01473  604626604425    
       01474  444651706060    
       01475  606060606060    
       01476  606060606060    
       01477  606060606060    
       01500  606060606060    
       01501  606060606060    
       01502  606060606060    
       01503  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,            
       01504  252545605125    
       01505  212460464563    
       01506  466024516444    
       01507  600473602425    
       01510  626351467031    
       01511  452760633025    
       01512  602531264546    
       01513  606646512460    
       01514  234664456373    
       01515  603163626023           BCD   ITS CHECK SUM, AND THE TABLE.                                          
       01516  302523426062    
       01517  644473602145    
       01520  246063302560    
       01521  632122432533    
       01522  606060606060    
       01523  606060606060    
       01524  606060606060    
       01525  606060606060    
       01526  606060606060    
       01527  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01530  606631434360    
       01531  222560512562    
       01532  634651252473    
       01533  602264636063    
       01534  302551256031    
       01535  626045466066    
       01536  217060634660    
       01537  234645263151    
       01540  446063302560    
       01541  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01542  626444602551    
       01543  514651604645    
       01544  606330256024    
       01545  516444336060    
       01546  606060606060    
       01547  606060606060    
       01550  606060606060    
       01551  606060606060    
       01552  606060606060    
       01553  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      29           0           0           0           0
 LIB       0           0           0           0           0
 COL      29           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      182                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 56                FORCE NEW RECORD                                       
1                       00070        ORG 56                FORCE NEW RECORD                                       
       00070  0 01303 0 01626        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00070        TXH 56                 241  FT 107                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                 165 OCTAL, CONTAINS WORD COUNT                         
       01307  0 46000 0 01340        LDA A                                                                        
       01310  0 70000 0 01257        CPY ERAS                                                                     
       01311  0 50000 0 01257        CLA ERAS                                                                     
       01312  0 77100 0 00022        ARS 18                                                                       
       01313  0 60100 0 01271        STO ERAS+10                                                                  
       01314  0 07400 4 00676        TSX BINDEC,4                                                                 
       01315  0 60200 0 01257        SLW ERAS                                                                     
       01316  0 56000 0 01257        LDQ ERAS                                                                     
       01317 -0 50000 0 01404        CAL PR2                                                                      
       01320 -0 77300 0 00006        RQL 6                                                                        
       01321 -0 76300 0 00036        LGL 30                                                                       
       01322  0 60200 0 01404        SLW PR2                                                                      
       01323  0 50000 0 01337        CLA TEIFNO                                                                   
       01324  0 40200 0 01271        SUB ERAS+10                                                                  
       01325  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01326  0 60200 0 01257        SLW ERAS                                                                     
       01327  0 56000 0 01257        LDQ ERAS                                                                     
       01330 -0 76300 0 00014        LGL 12                                                                       
       01331 -0 50000 0 01402        CAL PR1                                                                      
       01332 -0 76300 0 00030        LGL 24                                                                       
       01333  0 60200 0 01402        SLW PR1                                                                      
       01334  0 07400 4 00740        TSX PRINT,4                                                                  
       01335  0 01627 0 01341        HTR PR,0,PR+182                                                              
       01336  0 02000 0 00221        TRA DIGRTN                                                                   
       01337 +000000002112    TEIFNO OCT 00000002112                                                              
       01340  0 00000 0 00245 A      HTR8165                                                                      
       01341  606060606060    PR     BCD 2                                                                        
       01342  606060606060    
       01343  233025234260           BCD  CHECK SUM ERROR IN READING THE EIFNO TABLE FROM DRUM 4.                 
       01344  626444602551    
       01345  514651603145    
       01346  605125212431    
       01347  452760633025    
       01350  602531264546    
       01351  606321224325    
       01352  602651464460    
       01353  245164446004    
       01354  336060606060    
       01355  606060606060           BCD                                                                          
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  606060606060    
       01364  606060606060    
       01365  606060606060    
       01366  606060606060    
       01367  633025602451           BCD  THE DRUM ADDRESS OF THE FIRST ENTRY IS 4.  THE TABLE IS COPI            
       01370  644460212424    
       01371  512562626046    
       01372  266063302560    
       01373  263151626360    
       01374  254563517060    
       01375  316260043360    
       01376  606330256063    
       01377  212243256031    
       01400  626023464731    
       01401  252460314563           BCD 1ED INT                                                                  
       01402  606060604660    PR1    BCD 1    O                                                                   
       01403  602145246031           BCD 1 AND I                                                                  
       01404  606060606062    PR2    BCD 1     S                                                                  
       01405  606646512462           BCD 6 WORDS LONG.                                                            
       01406  604346452733    
       01407  606060606060    
       01410  606060606060    
       01411  606060606060    
       01412  606060606060    
       01413  633025602451           BCD  THE DRUM CHECK SUM IS IN 533.  THE COMPUTED CHECK SUM IS NOT            
       01414  644460233025    
       01415  234260626444    
       01416  603162603145    
       01417  600503033360    
       01420  606330256023    
       01421  464447646325    
       01422  246023302523    
       01423  426062644460    
       01424  316260454663    
       01425  606263465125           BCD   STORED, THEREFORE IT IS NOT AVAILABLE.                                 
       01426  247360633025    
       01427  512526465125    
       01430  603163603162    
       01431  604546636021    
       01432  652131432122    
       01433  432533606060    
       01434  606060606060    
       01435  606060606060    
       01436  606060606060    
       01437  633025602346           BCD  THE COPY LOOP BEGINS AT LOCATION 223.                                   
       01440  477060434646    
       01441  476022252731    
       01442  456260216360    
       01443  434623216331    
       01444  464560020203    
       01445  336060606060    
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060           BCD                                                                          
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060    
       01460  606060606060    
       01461  606060606060    
       01462  606060606060    
       01463  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE EIFNO TABLE CORRECT            
       01464  636325444763    
       01465  626030216525    
       01466  602225254560    
       01467  442124256063    
       01470  466051252124    
       01471  606330256025    
       01472  312645466063    
       01473  212243256023    
       01474  465151252363    
       01475  437033606060           BCD  LY.                                                                     
       01476  606060606060    
       01477  606060606060    
       01500  606060606060    
       01501  606060606060    
       01502  606060606060    
       01503  606060606060    
       01504  606060606060    
       01505  606060606060    
       01506  606060606060    
       01507  606060606060           BCD                                                                          
       01510  606060606060    
       01511  606060606060    
       01512  606060606060    
       01513  606060606060    
       01514  606060606060    
       01515  606060606060    
       01516  606060606060    
       01517  606060606060    
       01520  606060606060    
       01521  606060606060           BCD                                                                          
       01522  606060606060    
       01523  606060606060    
       01524  606060606060    
       01525  606060606060    
       01526  606060606060    
       01527  606060606060    
       01530  606060606060    
       01531  606060606060    
       01532  606060606060    
       01533  314560465124           BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES            
       01534  255160634660    
       01535  232143436031    
       01536  456063303162    
       01537  602431212745    
       01540  466263312360    
       01541  663163304664    
       01542  636024316263    
       01543  645122314527    
       01544  602346512562    
       01545  736002000410           BCD  , 2048 WORDS OF MEMORY                                                  
       01546  606646512462    
       01547  604626604425    
       01550  444651706060    
       01551  606060606060    
       01552  606060606060    
       01553  606060606060    
       01554  606060606060    
       01555  606060606060    
       01556  606060606060    
       01557  302165256022           BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,            
       01560  252545605125    
       01561  212460464563    
       01562  466024516444    
       01563  600473602425    
       01564  626351467031    
       01565  452760633025    
       01566  602531264546    
       01567  606646512460    
       01570  234664456373    
       01571  606330256063           BCD   THE TABLE, AND ITS CHECK SUM.                                          
       01572  212243257360    
       01573  214524603163    
       01574  626023302523    
       01575  426062644433    
       01576  606060606060    
       01577  606060606060    
       01600  606060606060    
       01601  606060606060    
       01602  606060606060    
       01603  442544465170           BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE             
       01604  606631434360    
       01605  222560512562    
       01606  634651252473    
       01607  602264636063    
       01610  302551256031    
       01611  626045466066    
       01612  217060634660    
       01613  234645263151    
       01614  446063302560    
       01615  233025234260           BCD  CHECK SUM ERROR ON THE DRUM.                                            
       01616  626444602551    
       01617  514651604645    
       01620  606330256024    
       01621  516444336060    
       01622  606060606060    
       01623  606060606060    
       01624  606060606060    
       01625  606060606060    
       01626  606060606060    
       01627  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      59           0           0           0           0
 LIB       0           0           0           0           0
 COL      59           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      226                  
0NUMBER OF SYMBOLS,  DEF   201,DEFOP     0,UNDEF     0      
9            ORG 57                FORCE NEW RECORD                                       
1                       00071        ORG 57                FORCE NEW RECORD                                       
       00071  0 01303 0 01437        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00071        TXH 57                1274  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01322        LDA A                                                                        
       01310  0 70000 0 01257        CPY ERAS                                                                     
       01311  0 50200 0 01323        CLS OTA               FORM LOCATION OF FIRST WORD IN TABLE                   
       01312  0 40000 0 01257        ADD ERAS                                                                     
       01313  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01314  0 56000 0 00717        LDQ BLANKS                                                                   
       01315 -0 76300 0 00006        LGL 6                                                                        
       01316  0 60200 0 01363        SLW PR1                                                                      
       01317  0 07400 4 00740        TSX PRINT,4                                                                  
       01320  0 01440 0 01324        HTR PR,0,PR+76                                                               
       01321  0 02000 0 00221        TRA DIGRTN                                                                   
       01322  0 00000 0 02350 A      HTR81256              LOCATION 0F WORD COUNT OF FLOCON TABLE                 
 T     01323 -0 75400 0 12515 OTA    PXD85453              ADDRESS OF LAST TABLE ENTRY PLUS ONE.                  
       01324  606060606060    PR     BCD 2                                                                        
       01325  606060606060    
       01326  233025234260           BCD  CHECK SUM ERROR IN READING FLOCON TABLE FROM DRUM 2.  COPY L            
       01327  626444602551    
       01330  514651603145    
       01331  605125212431    
       01332  452760264346    
       01333  234645606321    
       01334  224325602651    
       01335  464460245164    
       01336  446002336060    
       01337  234647706043    
       01340  464647602225           BCD  OOP BEGINS AT LOCATION 1250.                                            
       01341  273145626021    
       01342  636043462321    
       01343  633146456001    
       01344  020500336060    
       01345  606060606060    
       01346  606060606060    
       01347  606060606060    
       01350  606060606060    
       01351  606060606060    
       01352  626321516331           BCD 9STARTING DRUM ADDRESS IS IN 551.   THE TABLE BEGINS AT                  
       01353  452760245164    
       01354  446021242451    
       01355  256262603162    
       01356  603145600505    
       01357  013360606063    
       01360  302560632122    
       01361  432560222527    
       01362  314562602163    
       01363  600102030460    PR1    BCD 1 1234                                                                   
       01364  214524602346           BCD  AND CONSISTS OF BLOCKS OF FIFTY WORDS,                                  
       01365  456231626362    
       01366  604626602243    
       01367  462342626046    
       01370  266026312663    
       01371  706066465124    
       01372  627360606060    
       01373  606060606060    
       01374  606060606060    
       01375  606060606060    
       01376  252123306022           BCD  EACH BLOCK PRECEDED BY ITS OWN CHECK SUM.  CHECK SUMMING IS             
       01377  434623426047    
       01400  512523252425    
       01401  246022706031    
       01402  636260466645    
       01403  602330252342    
       01404  606264443360    
       01405  602330252342    
       01406  606264444431    
       01407  452760316260    
       01410  244645256022           BCD  DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMENT.                           
       01411  706021242440    
       01412  214524402321    
       01413  515170404346    
       01414  273123214360    
       01415  214524602346    
       01416  444743254425    
       01417  456333606060    
       01420  606060606060    
       01421  606060606060    
       01422  316360316260           BCD  IT IS NOT STORED.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE             
       01423  454663606263    
       01424  465125243360    
       01425  602631652560    
       01426  216363254447    
       01427  636260302165    
       01430  256022252545    
       01431  604421242560    
       01432  634660512521    
       01433  246063302560    
       01434  254563315125           BCD 4ENTIRE TABLE CORRECTLY.                                                 
       01435  606321224325    
       01436  602346515125    
       01437  236343703360    
       01440  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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      107                  
0NUMBER OF SYMBOLS,  DEF   200,DEFOP     0,UNDEF     0      
9            ORG 58                FORCE NEW RECORD                                       
1                       00072        ORG 58                FORCE NEW RECORD                                       
       00072  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00072        TXH 58                1345  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01421 0 01311        HTR PR,0,PR+72                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING DIM1 TABLE FROM DRUM 3.  COPY LOO            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760243144    
       01320  016063212243    
       01321  256026514644    
       01322  602451644460    
       01323  033360602346    
       01324  477060434646    
       01325  476022252731           BCD  P BEGINS AT LOCATION 1316.  STARTING DRUM                               
       01326  456260216360    
       01327  434623216331    
       01330  464560010301    
       01331  063360606263    
       01332  215163314527    
       01333  602451644460    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  212424512562           BCD  ADDRESS IS IN 614.  THE TABLE IS COMPOSED OF TWO WORD ENTRIE            
       01340  626031626031    
       01341  456006010433    
       01342  606063302560    
       01343  632122432560    
       01344  316260234644    
       01345  474662252460    
       01346  462660636646    
       01347  606646512460    
       01350  254563513125    
       01351  627360252123           BCD  S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                            
       01352  306025456351    
       01353  706026464343    
       01354  466625246022    
       01355  706031636260    
       01356  466645602330    
       01357  252342606264    
       01360  443360606060    
       01361  606060606060    
       01362  606060606060    
       01363  233025234260           BCD  CHECK SUMMING IS DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMEN            
       01364  626444443145    
       01365  276031626024    
       01366  464525602270    
       01367  602124244021    
       01370  452440232151    
       01371  517040434627    
       01372  312321436021    
       01373  452460234644    
       01374  474325442545    
       01375  633360603163           BCD  T.  IT IS NOT STORED.  FIVE ATTEMPTS                                    
       01376  603162604546    
       01377  636062634651    
       01400  252433606026    
       01401  316525602163    
       01402  632544476362    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  302165256022           BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                      
       01410  252545604421    
       01411  242560634660    
       01412  512521246063    
       01413  302560254563    
       01414  315125606321    
       01415  224325602346    
       01416  515125236343    
       01417  703360606060    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       92                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 59                FORCE NEW RECORD                                       
1                       00073        ORG 59                FORCE NEW RECORD                                       
       00073  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00073        TXH 59                1377  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01421 0 01311        HTR PR,0,PR+72                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING DIM2 TABLE FROM DRUM 3.  COPY LOO            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760243144    
       01320  026063212243    
       01321  256026514644    
       01322  602451644460    
       01323  033360602346    
       01324  477060434646    
       01325  476022252731           BCD  P BEGINS AT LOCATION 1350.  STARTING DRUM                               
       01326  456260216360    
       01327  434623216331    
       01330  464560010305    
       01331  003360606263    
       01332  215163314527    
       01333  602451644460    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  212424512562           BCD  ADDRESS IS IN 621.  THE TABLE IS COMPOSED OF TWO WORD ENTRIE            
       01340  626031626031    
       01341  456006020133    
       01342  606063302560    
       01343  632122432560    
       01344  316260234644    
       01345  474662252460    
       01346  462660636646    
       01347  606646512460    
       01350  254563513125    
       01351  627360252123           BCD  S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                            
       01352  306025456351    
       01353  706026464343    
       01354  466625246022    
       01355  706031636260    
       01356  466645602330    
       01357  252342606264    
       01360  443360606060    
       01361  606060606060    
       01362  606060606060    
       01363  233025234260           BCD  CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE            
       01364  626444443145    
       01365  276031626024    
       01366  464525602270    
       01367  602145602124    
       01370  244021452440    
       01371  232151517040    
       01372  434627312321    
       01373  436021452460    
       01374  234644474325    
       01375  442545633360           BCD  MENT.  IT IS NOT STORED.  FIVE ATTEMPTS                                 
       01376  603163603162    
       01377  604546636062    
       01400  634651252433    
       01401  606026316525    
       01402  602163632544    
       01403  476362606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  302165256022           BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                      
       01410  252545604421    
       01411  242560634660    
       01412  512521246063    
       01413  302560254563    
       01414  315125606321    
       01415  224325602346    
       01416  515125236343    
       01417  703360606060    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       92                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 60                FORCE NEW RECORD                                       
1                       00074        ORG 60                FORCE NEW RECORD                                       
       00074  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00074        TXH 60                1444  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01421 0 01311        HTR PR,0,PR+72                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  233025234260           BCD  CHECK SUM ERROR IN READING DIM3 TABLE FROM DRUM 3.  COPY LOO            
       01314  626444602551    
       01315  514651603145    
       01316  605125212431    
       01317  452760243144    
       01320  036063212243    
       01321  256026514644    
       01322  602451644460    
       01323  033360602346    
       01324  477060434646    
       01325  476022252731           BCD  P BEGINS AT LOCATION 1413.  STARTING DRUM                               
       01326  456260216360    
       01327  434623216331    
       01330  464560010401    
       01331  033360606263    
       01332  215163314527    
       01333  602451644460    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  212424512562           BCD  ADDRESS IS IN 626.  THE TABLE IS COMPOSED OF THREE WORD ENTR            
       01340  626031626031    
       01341  456006020633    
       01342  606063302560    
       01343  632122432560    
       01344  316260234644    
       01345  474662252460    
       01346  462660633051    
       01347  252560664651    
       01350  246025456351    
       01351  312562736025           BCD  IES, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                          
       01352  212330602545    
       01353  635170602646    
       01354  434346662524    
       01355  602270603163    
       01356  626046664560    
       01357  233025234260    
       01360  626444336060    
       01361  606060606060    
       01362  606060606060    
       01363  233025234260           BCD  CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE            
       01364  626444443145    
       01365  276031626024    
       01366  464525602270    
       01367  602145602124    
       01370  244021452440    
       01371  232151517040    
       01372  434627312321    
       01373  436021452460    
       01374  234644474325    
       01375  442545633360           BCD  MENT.  IT IS NOT STORED.  FIVE ATTEMPTS                                 
       01376  603163603162    
       01377  604546636062    
       01400  634651252433    
       01401  606026316525    
       01402  602163632544    
       01403  476362606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  302165256022           BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                      
       01410  252545604421    
       01411  242560634660    
       01412  512521246063    
       01413  302560254563    
       01414  315125606321    
       01415  224325602346    
       01416  515125236343    
       01417  703360606060    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       92                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 61                FORCE NEW RECORD                                       
1                       00075        ORG 61                FORCE NEW RECORD                                       
       00075  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00075        TXH 61                1031  FT  24                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TIFGO TABLE, TAPE 2, FILE 5, RECORD 6.            
       01314  302523426031    
       01315  456051252124    
       01316  314527606331    
       01317  262746606321    
       01320  224325736063    
       01321  214725600273    
       01322  602631432560    
       01323  057360512523    
       01324  465124600633    
       01325  606023464770           BCD    COPY LOOP BEGINS AT LOCATION 771.                                     
       01326  604346464760    
       01327  222527314562    
       01330  602163604346    
       01331  232163314645    
       01332  600707013360    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 62                FORCE NEW RECORD                                       
1                       00076        ORG 62                FORCE NEW RECORD                                       
       00076  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00076        TXH 62                1221  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING A CIT RECORD FROM TAPE 3.  COPY LOOP B            
       01314  302523426031    
       01315  456051252124    
       01316  314527602160    
       01317  233163605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560033360    
       01323  602346477060    
       01324  434646476022    
       01325  252731456260           BCD  EGINS AT LOCATION 1173.                                                 
       01326  216360434623    
       01327  216331464560    
       01330  010107033360    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 63                FORCE NEW RECORD                                       
1                       00077        ORG 63                FORCE NEW RECORD                                       
       00077  0 01303 0 01422        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00077        TXH 63                7720  FT  21                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01423 0 01311        HTR PR,0,PR+74                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING A RECORD FROM TAPE 2.  THIS RECORD IS             
       01314  302523426031    
       01315  456051252124    
       01316  314527602160    
       01317  512523465124    
       01320  602651464460    
       01321  632147256002    
       01322  336060633031    
       01323  626051252346    
       01324  512460316260    
       01325  216063212243           BCD  A TABLE ASSEMBLED BY SECTION 1 PRIME                                    
       01326  256021626225    
       01327  442243252460    
       01330  227060622523    
       01331  633146456001    
       01332  604751314425    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  265146446025           BCD  FROM ENTRIES ON TAPE 3 INTO A BUFFER AND WRITTEN ON TAPE 2.             
       01340  456351312562    
       01341  604645606321    
       01342  472560036031    
       01343  456346602160    
       01344  226426262551    
       01345  602145246066    
       01346  513163632545    
       01347  604645606321    
       01350  472560023360    
       01351  606264225146           BCD   SUBROUTINE WHICH WRITES THE TAPE BEGINS AT                             
       01352  646331452560    
       01353  663031233060    
       01354  665131632562    
       01355  606330256063    
       01356  214725602225    
       01357  273145626021    
       01360  636060606060    
       01361  606060606060    
       01362  606060606060    
       01363  434623216331           BCD  LOCATION 7656.  THE RECORD HAS BEEN READ BACK INTO LOCATION             
       01364  464560070605    
       01365  063360606330    
       01366  256051252346    
       01367  512460302162    
       01370  602225254560    
       01371  512521246022    
       01372  212342603145    
       01373  634660434623    
       01374  216331464560    
       01375  070603026021           BCD  7632 AND THE RTT INSTRUCTION HAS FAILED                                 
       01376  452460633025    
       01377  605163636031    
       01400  456263516423    
       01401  633146456030    
       01402  216260262131    
       01403  432524606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  252123306063           BCD  EACH TIME.  FIVE ATTEMPTS HAVE BEEN MADE TO WRITE THIS RECOR            
       01410  314425336060    
       01411  263165256021    
       01412  636325444763    
       01413  626030216525    
       01414  602225254560    
       01415  442124256063    
       01416  466066513163    
       01417  256063303162    
       01420  605125234651    
       01421  246023465151           BCD 2D CORRECTLY.                                                            
       01422  252363437033    
       01423  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      21           0           0           0           0
 LIB       0           0           0           0           0
 COL      21           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       94                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 64                FORCE NEW RECORD                                       
1                       00100        ORG 64                FORCE NEW RECORD                                       
       00100  0 01303 0 01422        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00100        TXH 64                7627  FT  21                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01423 0 01311        HTR PR,0,PR+74                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING A RECORD FROM TAPE 4.  THIS RECORD IS             
       01314  302523426031    
       01315  456051252124    
       01316  314527602160    
       01317  512523465124    
       01320  602651464460    
       01321  632147256004    
       01322  336060633031    
       01323  626051252346    
       01324  512460316260    
       01325  216063212243           BCD  A TABLE IDENTIFICATION WORD AND AN ENTRY                                
       01326  256031242545    
       01327  633126312321    
       01330  633146456066    
       01331  465124602145    
       01332  246021456025    
       01333  456351706060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  442124256022           BCD  MADE BY SECTION 1 ON TAPE 4.  SECTION 1 PRIME IS ATTEMPTING             
       01340  706062252363    
       01341  314645600160    
       01342  464560632147    
       01343  256004336060    
       01344  622523633146    
       01345  456001604751    
       01346  314425603162    
       01347  602163632544    
       01350  476331452760    
       01351  634660476463           BCD  TO PUT ALL THE SIMILAR ENTRIES INTO ONE                                 
       01352  602143436063    
       01353  302560623144    
       01354  314321516025    
       01355  456351312562    
       01356  603145634660    
       01357  464525606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  226426262551           BCD  BUFFER BEFORE WRITING THE TABLE ON TAPE 2.  COPY LOOP BEGINS            
       01364  602225264651    
       01365  256066513163    
       01366  314527606330    
       01367  256063212243    
       01370  256046456063    
       01371  214725600233    
       01372  606023464770    
       01373  604346464760    
       01374  222527314562    
       01375  602163604346           BCD   AT LOCATION 7550.  RECORD IDENTIFICATION                               
       01376  232163314645    
       01377  600705050033    
       01400  606051252346    
       01401  512460312425    
       01402  456331263123    
       01403  216331464560    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  316260216360           BCD  IS AT 7631.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECOR            
       01410  070603013360    
       01411  602631652560    
       01412  216363254447    
       01413  636260302165    
       01414  256022252545    
       01415  604421242560    
       01416  634660512521    
       01417  246063303162    
       01420  605125234651    
       01421  246023465151           BCD 2D CORRECTLY.                                                            
       01422  252363437033    
       01423  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      21           0           0           0           0
 LIB       0           0           0           0           0
 COL      21           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       94                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 65                FORCE NEW RECORD                                       
1                       00101        ORG 65                FORCE NEW RECORD                                       
       00101  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00101        TXH 65                  61  FT  47                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING 2 WORD RECORD FROM TAPE 2, FILE 7.  CO            
       01314  302523426031    
       01315  456051252124    
       01316  314527600260    
       01317  664651246051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600273    
       01323  602631432560    
       01324  073360602346    
       01325  477060434646           BCD  PY LOOP IS AT LOCATION 30.                                              
       01326  476031626021    
       01327  636043462321    
       01330  633146456003    
       01331  003360606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 66                FORCE NEW RECORD                                       
1                       00102        ORG 66                FORCE NEW RECORD                                       
       00102  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00102        TXH 66                 116  FT  53                                           
                                         66                 132  FT  53                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 1.  COPY LOOP            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560037360    
       01322  263143256001    
       01323  336060234647    
       01324  706043464647    
       01325  603162602163           BCD   IS AT LOCATION 51.                                                     
       01326  604346232163    
       01327  314645600501    
       01330  336060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       53                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 67                FORCE NEW RECORD                                       
1                       00103        ORG 67                FORCE NEW RECORD                                       
       00103  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00103        TXH 67                4026  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2, FILE 6.  COPY LOOP            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560027360    
       01322  263143256006    
       01323  336060234647    
       01324  706043464647    
       01325  603162602163           BCD   IS AT LOCATION 4012.                                                   
       01326  604346232163    
       01327  314645600400    
       01330  010233606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 68                FORCE NEW RECORD                                       
1                       00104        ORG 68                FORCE NEW RECORD                                       
       00104  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00104        TXH 68                4054  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TAGTAG RECORD FROM TAPE 4, FILE 2.  CO            
       01314  302523426031    
       01315  456051252124    
       01316  314527606321    
       01317  276321276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600473    
       01323  602631432560    
       01324  023360602346    
       01325  477060434646           BCD  PY LOOP IS AT LOCATION 4027.                                            
       01326  476031626021    
       01327  636043462321    
       01330  633146456004    
       01331  000207336060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 69                FORCE NEW RECORD                                       
1                       00105        ORG 69                FORCE NEW RECORD                                       
       00105  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00105        TXH 69                4155  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1.  COP            
       01314  302523426031    
       01315  456051252124    
       01316  314527602446    
       01317  632127605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560037360    
       01323  263143256001    
       01324  336060234647    
       01325  706043464647           BCD  Y LOOP IS AT LOCATION 4116.                                             
       01326  603162602163    
       01327  604346232163    
       01330  314645600401    
       01331  010633606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 70                FORCE NEW RECORD                                       
1                       00106        ORG 70                FORCE NEW RECORD                                       
       00106  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00106        TXH 70                6744  FT  41                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314523465151           BCD  INCORRECT RECORD TAPE 2, FILE 7.  RECORD IS 2 WORDS, EACH IS            
       01314  252363605125    
       01315  234651246063    
       01316  214725600273    
       01317  602631432560    
       01320  073360605125    
       01321  234651246031    
       01322  626002606646    
       01323  512462736025    
       01324  212330603162    
       01325  605125234651           BCD   RECORD COUNT OF FILE 6.  RECORD HAS BEEN                               
       01326  246023466445    
       01327  636046266026    
       01330  314325600633    
       01331  606051252346    
       01332  512460302162    
       01333  602225254560    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512521246006           BCD  READ 6 TIMES AND FAILED EACH TIME TO FIND THE WORDS EQUAL.              
       01340  606331442562    
       01341  602145246026    
       01342  213143252460    
       01343  252123306063    
       01344  314425606346    
       01345  602631452460    
       01346  633025606646    
       01347  512462602550    
       01350  642143336060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 71                FORCE NEW RECORD                                       
1                       00107        ORG 71                FORCE NEW RECORD                                       
       00107  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00107        TXH 71                6767  FT  39                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 2, FILE 6.  COP            
       01314  302523426031    
       01315  456051252124    
       01316  314527602446    
       01317  632127605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560027360    
       01323  263143256006    
       01324  336060234647    
       01325  706043464647           BCD  Y LOOP IS AT LOCATION 6730.                                             
       01326  603162602163    
       01327  604346232163    
       01330  314645600607    
       01331  030033606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 72                FORCE NEW RECORD                                       
1                       00110        ORG 72                FORCE NEW RECORD                                       
       00110  0 01303 0 01413        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00110        TXH 72                7070  FT  36                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01414 0 01311        HTR PR,0,PR+67                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1.  REC            
       01314  302523426031    
       01315  456051252124    
       01316  314527602446    
       01317  632127605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560037360    
       01323  263143256001    
       01324  336060512523    
       01325  465124602346           BCD  ORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                                
       01326  456321314562    
       01327  602160456444    
       01330  222551604626    
       01331  601160664651    
       01332  246025456351    
       01333  312562336060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD             
       01340  464647602163    
       01341  604346232163    
       01342  314645600700    
       01343  040360512521    
       01344  246260464543    
       01345  706026315162    
       01346  636021452460    
       01347  622523464524    
       01350  606646512460    
       01351  462660252123           BCD  OF EACH ENTRY, COPY AT LOCATION 7054 COPIES                             
       01352  306025456351    
       01353  707360234647    
       01354  706021636043    
       01355  462321633146    
       01356  456007000504    
       01357  602346473125    
       01360  626060606060    
       01361  606060606060    
       01362  606060606060    
       01363  466330255160           BCD  OTHER 7 WORDS INTO ERASABLE STORAGE AND RETURNS TO 7043 FOR             
       01364  076066465124    
       01365  626031456346    
       01366  602551216221    
       01367  224325606263    
       01370  465121272560    
       01371  214524605125    
       01372  636451456260    
       01373  634660070004    
       01374  036026465160    
       01375  452567636025           BCD  NEXT ENTRY.  FIVE ATTEMPTS HAVE BEEN MADE                               
       01376  456351703360    
       01377  602631652560    
       01400  216363254447    
       01401  636260302165    
       01402  256022252545    
       01403  604421242560    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  634660512521           BCD 5TO READ THIS RECORD CORRECTLY.                                          
       01410  246063303162    
       01411  605125234651    
       01412  246023465151    
       01413  252363437033    
       01414  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       87                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 73                FORCE NEW RECORD                                       
1                       00111        ORG 73                FORCE NEW RECORD                                       
       00111  0 01303 0 01554        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00111        TXH 73                7123  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306 -0 53400 4 01232        LXD ZERO,4                                                                   
       01307  0 50000 0 07125        CLA 3669              7125 OCTAL                                             
       01310  0 34000 4 01514 C      CAS TABLE,4                                                                  
       01311  0 02000 0 01313        TRA A                                                                        
       01312  0 02000 0 01454        TRA HAVE                                                                     
       01313  1 00003 4 01314 A      TXI B,4,3                                                                    
       01314 -3 00017 4 01310 B      TXL C,4,15                                                                   
       01315  0 07400 4 00740        TSX PRINT,4                                                                  
       01316  0 01454 0 01320        HTR ER,0,ER+92                                                               
       01317  0 00000 0 01472        HTR D                                                                        
       01320  606060606060    ER     BCD 2                                                                        
       01321  606060606060    
       01322  434623216331           BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO            
       01323  464560462660    
       01324  255151465173    
       01325  606630312330    
       01326  603021626022    
       01327  252545604751    
       01330  314563252473    
       01331  603021626023    
       01332  216462252460    
       01333  243121274546    
       01334  626331236051           BCD  STIC RECORD NUMBER 73                                                   
       01335  252346512460    
       01336  456444222551    
       01337  600703606060    
       01340  606060606060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  606060606060    
       01346  634660222560           BCD  TO BE READ IN.  THIS RECORD COMPARES THE IDENTIFICATION WORD            
       01347  512521246031    
       01350  453360606330    
       01351  316260512523    
       01352  465124602346    
       01353  444721512562    
       01354  606330256031    
       01355  242545633126    
       01356  312321633146    
       01357  456066465124    
       01360  604626602160           BCD   OF A TAPE RECORD, LOCATION 7125, TO A LIST                             
       01361  632147256051    
       01362  252346512473    
       01363  604346232163    
       01364  314645600701    
       01365  020573606346    
       01366  602160433162    
       01367  636060606060    
       01370  606060606060    
       01371  606060606060    
       01372  462660066047           BCD  OF 6 POSSIBLE TAPE IDENTIFICATION WORDS, BUT THE SEARCH HAS             
       01373  466262312243    
       01374  256063214725    
       01375  603124254563    
       01376  312631232163    
       01377  314645606646    
       01400  512462736022    
       01401  646360633025    
       01402  606225215123    
       01403  306030216260    
       01404  262131432524           BCD  FAILED.  TABLE IDENTIFICATION WORDS                                     
       01405  336060632122    
       01406  432560312425    
       01407  456331263123    
       01410  216331464560    
       01411  664651246260    
       01412  606060606060    
       01413  606060606060    
       01414  606060606060    
       01415  606060606060    
       01416  215125603145           BCD  ARE IN 1463, 1463 PLUS 3, ETC.  PRESS START IF YOU WISH TO R            
       01417  600104060373    
       01420  600104060360    
       01421  474364626003    
       01422  736025632333    
       01423  606047512562    
       01424  626062632151    
       01425  636031266070    
       01426  466460663162    
       01427  306063466051    
       01430  256263465125           BCD  ESTORE MACHINE TO CONDITION IN WHICH                                    
       01431  604421233031    
       01432  452560634660    
       01433  234645243163    
       01434  314645603145    
       01435  606630312330    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  255151465160           BCD  ERROR OCCURRED.                                                         
       01443  462323645151    
       01444  252433606060    
       01445  606060606060    
       01446  606060606060    
       01447  606060606060    
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  0 56000 4 01512 HAVE   LDQ TABLE-2,4                                                                
       01455 -0 50000 0 01522        CAL PR1                                                                      
       01456 -0 76300 0 00014        LGL 12                                                                       
       01457  0 60200 0 01522        SLW PR1                                                                      
       01460 -0 76300 0 00030        LGL 24                                                                       
       01461  0 56000 0 01523        LDQ PR2                                                                      
       01462 -0 76300 0 00014        LGL 12                                                                       
       01463  0 60200 0 01523        SLW PR2                                                                      
       01464 -0 50000 4 01513        CAL TABLE-1,4                                                                
       01465  0 56000 0 01531        LDQ PR3                                                                      
       01466 -0 76300 0 00030        LGL 24                                                                       
       01467  0 60200 0 01531        SLW PR3                                                                      
       01470  0 07400 4 00740        TSX PRINT,4                                                                  
       01471  0 01555 0 01515        HTR PR,0,PR+32                                                               
       01472  0 02000 0 00221 D      TRA DIGRTN                                                                   
       01473  264651652143           BCD 1FORVAL                                                                  
       01474  606060606011           BCD 1     9           NUMBER OF RECORD IN FILE 5                             
       01475  0 00000 0 00006        HTR 6                 IDENTIFICATION IN RECORD                               
       01476  264651652151           BCD 1FORVAR                                                                  
       01477  606060600100           BCD 1    10                                                                  
       01500  0 00000 0 00005        HTR 5                                                                        
       01501  264651632127           BCD 1FORTAG                                                                  
       01502  606060600101           BCD 1    11                                                                  
       01503  0 00000 0 00004        HTR 4                                                                        
       01504  606351212460           BCD 1 TRAD                                                                   
       01505  606060606007           BCD 1     7                                                                  
       01506  0 00000 0 00003        HTR 3                                                                        
       01507  606331262746           BCD 1 TIFGO                                                                  
       01510  606060606006           BCD 1     6                                                                  
       01511  0 00000 0 00002        HTR 2                                                                        
       01512  606324466060           BCD 1 TDO                                                                    
       01513  606060606010           BCD 1     8                                                                  
       01514  0 00000 0 00001 TABLE  HTR 1                                                                        
       01515  606060606060    PR     BCD 2                                                                        
       01516  606060606060    
       01517  632147256023           BCD 3TAPE CHECK IN READ                                                      
       01520  302523426031    
       01521  456051252124    
       01522  606031452760    PR1    BCD 1  ING                                                                   
       01523  605160606060    PR2    BCD 1 R                                                                      
       01524  252346512473           BCD 5ECORD, TAPE 2, FILE 5, RECORD                                           
       01525  606321472560    
       01526  027360263143    
       01527  256005736051    
       01530  252346512460    
       01531  336060236060    PR3    BCD 1.  C                                                                    
       01532  464770604346           BCD 9OPY LOOP IS AT LOCATION 7066.                                           
       01533  464760316260    
       01534  216360434623    
       01535  216331464560    
       01536  070006063360    
       01537  606060606060    
       01540  606060606060    
       01541  606060606060    
       01542  606060606060    
       01543  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01544  636325444763    
       01545  626030216525    
       01546  602225254560    
       01547  442124256063    
       01550  466051252124    
       01551  606330316260    
       01552  512523465124    
       01553  602346515125    
       01554  236343703360    
       01555  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      70           0           0           0           0
 LIB       0           0           0           0           0
 COL      70           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      184                  
0NUMBER OF SYMBOLS,  DEF   207,DEFOP     0,UNDEF     0      
9            ORG 74                FORCE NEW RECORD                                       
1                       00112        ORG 74                FORCE NEW RECORD                                       
       00112  0 01303 0 01425        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00112        TXH 74                  74  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01426 0 01311        HTR PR,0,PR+77                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  ERROR CHECKING IS            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560023360    
       01322  602551514651    
       01323  602330252342    
       01324  314527603162    
       01325  602163604346           BCD   AT LOCATION 64, BUT THERE ARE                                          
       01326  232163314645    
       01327  600604736022    
       01330  646360633025    
       01331  512560215125    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  036023464770           BCD  3 COPY LOOPS WHICH USE THIS CHECKING.  LOCATION 30 TO READ T            
       01340  604346464762    
       01341  606630312330    
       01342  606462256063    
       01343  303162602330    
       01344  252342314527    
       01345  336060434623    
       01346  216331464560    
       01347  030060634660    
       01350  512521246063    
       01351  302560016066           BCD  HE 1 WORD RECORD IN FILE 7,                                             
       01352  465124605125    
       01353  234651246031    
       01354  456026314325    
       01355  600773606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  434623216331           BCD  LOCATION 43 TO READ FORTAG, THE 11TH RECORD IN FILE 5, OR LO            
       01364  464560040360    
       01365  634660512521    
       01366  246026465163    
       01367  212773606330    
       01370  256001016330    
       01371  605125234651    
       01372  246031456026    
       01373  314325600573    
       01374  604651604346    
       01375  232163314645           BCD  CATION 557 TO READ A 1 WORD                                             
       01376  600505076063    
       01377  466051252124    
       01400  602160016066    
       01401  465124606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  512523465124           BCD  RECORD IN FILE 3.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS            
       01410  603145602631    
       01411  432560033360    
       01412  602631652560    
       01413  216363254447    
       01414  636260302165    
       01415  256022252545    
       01416  604421242560    
       01417  634660512521    
       01420  246063303162    
       01421  605125234651           BCD 5 RECORD CORRECTLY.                                                      
       01422  246023465151    
       01423  252363437033    
       01424  606060606060    
       01425  606060606060    
       01426  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      21           0           0           0           0
 LIB       0           0           0           0           0
 COL      21           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       97                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 75                FORCE NEW RECORD                                       
1                       00113        ORG 75                FORCE NEW RECORD                                       
       00113  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00113        TXH 75                 350  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO            
       01314  302523426031    
       01315  456051252124    
       01316  314527606331    
       01317  262746605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560027360    
       01323  263143256005    
       01324  736051252346    
       01325  512460063360           BCD  RD 6.  COPY LOOP IS AT LOCATION 324.                                    
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456003020433    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 76                FORCE NEW RECORD                                       
1                       00114        ORG 76                FORCE NEW RECORD                                       
       00114  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00114        TXH 76                 375  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR            
       01314  302523426031    
       01315  456051252124    
       01316  314527606351    
       01317  212460512523    
       01320  465124602651    
       01321  464460632147    
       01322  256002736026    
       01323  314325600573    
       01324  605125234651    
       01325  246007336060           BCD  D 7.  COPY LOOP IS AT LOCATION 352.                                     
       01326  234647706043    
       01327  464647603162    
       01330  602163604346    
       01331  232163314645    
       01332  600305023360    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 77                FORCE NEW RECORD                                       
1                       00115        ORG 77                FORCE NEW RECORD                                       
       00115  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00115        TXH 77                 410  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING THE FIRST WORD OF FILE 1, TAPE 4.  COP            
       01314  302523426031    
       01315  456051252124    
       01316  314527606330    
       01317  256026315162    
       01320  636066465124    
       01321  604626602631    
       01322  432560017360    
       01323  632147256004    
       01324  336060234647    
       01325  706043464647           BCD  Y LOOP IS AT LOCATION 401.                                              
       01326  603162602163    
       01327  604346232163    
       01330  314645600400    
       01331  013360606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE WORD CORRECTLY            
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  464525606646    
       01347  512460234651    
       01350  512523634370    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 78                FORCE NEW RECORD                                       
1                       00116        ORG 78                FORCE NEW RECORD                                       
       00116  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00116        TXH 78                 430  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC            
       01314  302523426031    
       01315  456051252124    
       01316  314527606351    
       01317  214325656051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600473    
       01323  602631432560    
       01324  017360512523    
       01325  465124600133           BCD  ORD 1.  COPY LOOP IS AT LOCATION 400.                                   
       01326  606023464770    
       01327  604346464760    
       01330  316260216360    
       01331  434623216331    
       01332  464560040000    
       01333  336060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 79                FORCE NEW RECORD                                       
1                       00117        ORG 79                FORCE NEW RECORD                                       
       00117  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00117        TXH 79                 446  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC            
       01314  302523426031    
       01315  456051252124    
       01316  314527606351    
       01317  214325656051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600473    
       01323  602631432560    
       01324  017360512523    
       01325  465124600233           BCD  ORD 2.  COPY LOOP IS AT LOCATION 432.                                   
       01326  606023464770    
       01327  604346464760    
       01330  316260216360    
       01331  434623216331    
       01332  464560040302    
       01333  336060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 80                FORCE NEW RECORD                                       
1                       00120        ORG 80                FORCE NEW RECORD                                       
       00120  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00120        TXH 80                 510  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT RECORD FROM TAPE 2. FILE 2.  COPY             
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  636051252346    
       01320  512460265146    
       01321  446063214725    
       01322  600233602631    
       01323  432560023360    
       01324  602346477060    
       01325  434646476031           BCD  LOOP IS AT LOCATION 506.                                                
       01326  626021636043    
       01327  462321633146    
       01330  456005000633    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 81                FORCE NEW RECORD                                       
1                       00121        ORG 81                FORCE NEW RECORD                                       
       00121  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00121        TXH 81                 520  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING COMPDO RECORD FROM TAPE 4, FILE 2.  CO            
       01314  302523426031    
       01315  456051252124    
       01316  314527602346    
       01317  444724466051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600473    
       01323  602631432560    
       01324  023360602346    
       01325  477060434646           BCD  PY LOOP IS AT LOCATION 516.                                             
       01326  476031626021    
       01327  636043462321    
       01330  633146456005    
       01331  010633606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 82                FORCE NEW RECORD                                       
1                       00122        ORG 82                FORCE NEW RECORD                                       
       00122  0 01303 0 01353        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00122        TXH 82                 674  FT  60                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01354 0 01311        HTR PR,0,PR+35                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING A RECORD FROM THE TIFGO FILE.  THIS IS            
       01314  302523426031    
       01315  456051252124    
       01316  314527602160    
       01317  512523465124    
       01320  602651464460    
       01321  633025606331    
       01322  262746602631    
       01323  432533606063    
       01324  303162603162    
       01325  606330256010           BCD   THE 8TH FILE OF TAPE 2.  COPY LOOP IS AT                               
       01326  633060263143    
       01327  256046266063    
       01330  214725600233    
       01331  606023464770    
       01332  604346464760    
       01333  316260216360    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434623216331           BCD  LOCATION 654.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS REC            
       01340  464560060504    
       01341  336060263165    
       01342  256021636325    
       01343  444763626030    
       01344  216525602225    
       01345  254560442124    
       01346  256063466051    
       01347  252124606330    
       01350  316260512523    
       01351  465124602346           BCD 3ORD CORRECTLY.                                                          
       01352  515125236343    
       01353  703360606060    
       01354  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       55                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 83                FORCE NEW RECORD                                       
1                       00123        ORG 83                FORCE NEW RECORD                                       
       00123  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00123        TXH 83                 720  FT  60                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING A RECORD FROM TAPE 3, FILE 1.  THIS FI            
       01314  302523426031    
       01315  456051252124    
       01316  314527602160    
       01317  512523465124    
       01320  602651464460    
       01321  632147256003    
       01322  736026314325    
       01323  600133606063    
       01324  303162602631    
       01325  432560316260           BCD  LE IS A MERGE OF THE COMPAIL AND COMPDO FILES.                          
       01326  216044255127    
       01327  256046266063    
       01330  302560234644    
       01331  472131436021    
       01332  452460234644    
       01333  472446602631    
       01334  432562336060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP IS AT LOCATION 700.  FIVE ATTEMPTS HAVE BEEN MADE             
       01340  464647603162    
       01341  602163604346    
       01342  232163314645    
       01343  600700003360    
       01344  602631652560    
       01345  216363254447    
       01346  636260302165    
       01347  256022252545    
       01350  604421242560    
       01351  634660512521           BCD 5TO READ THIS RECORD CORRECTLY.                                          
       01352  246063303162    
       01353  605125234651    
       01354  246023465151    
       01355  252363437033    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 84                FORCE NEW RECORD                                       
1                       00124        ORG 84                FORCE NEW RECORD                                       
       00124  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00124        TXH 84                 303  FT  73                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP            
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  636051252346    
       01320  512473606321    
       01321  472560047360    
       01322  263143256001    
       01323  336060234647    
       01324  706043464647    
       01325  603162602163           BCD   IS AT LOCATION 265.                                                    
       01326  604346232163    
       01327  314645600206    
       01330  053360606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 85                FORCE NEW RECORD                                       
1                       00125        ORG 85                FORCE NEW RECORD                                       
       00125  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00125        TXH 85                 350  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP            
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  636051252346    
       01320  512473606321    
       01321  472560047360    
       01322  263143256001    
       01323  336060234647    
       01324  706043464647    
       01325  603162602163           BCD   IS AT LOCATION 327.                                                    
       01326  604346232163    
       01327  314645600302    
       01330  073360606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 86                FORCE NEW RECORD                                       
1                       00126        ORG 86                FORCE NEW RECORD                                       
       00126  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00126        TXH 86                 517  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO            
       01314  302523426031    
       01315  456051252124    
       01316  314527606331    
       01317  262746605125    
       01320  234651246026    
       01321  514644606321    
       01322  472560027360    
       01323  263143256005    
       01324  736051252346    
       01325  512460063360           BCD  RD 6.  COPY LOOP IS AT LOCATION 522.                                    
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456005020233    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 87                FORCE NEW RECORD                                       
1                       00127        ORG 87                FORCE NEW RECORD                                       
       00127  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00127        TXH 87                 553  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR            
       01314  302523426031    
       01315  456051252124    
       01316  314527606351    
       01317  212460512523    
       01320  465124602651    
       01321  464460632147    
       01322  256002736026    
       01323  314325600573    
       01324  605125234651    
       01325  246007336060           BCD  D 7.  COPY LOOP IS AT LOCATION 556.                                     
       01326  234647706043    
       01327  464647603162    
       01330  602163604346    
       01331  232163314645    
       01332  600505063360    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 88                FORCE NEW RECORD                                       
1                       00130        ORG 88                FORCE NEW RECORD                                       
       00130  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00130        TXH 88                 716  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING FRET RECORD FROM TAPE 2, FILE 5, RECOR            
       01314  302523426031    
       01315  456051252124    
       01316  314527602651    
       01317  256360512523    
       01320  465124602651    
       01321  464460632147    
       01322  256002736026    
       01323  314325600573    
       01324  605125234651    
       01325  246001023360           BCD  D 12.  COPY LOOP IS AT LOCATION 721.                                    
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456007020133    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 89                FORCE NEW RECORD                                       
1                       00131        ORG 89                FORCE NEW RECORD                                       
       00131  0 01303 0 01352        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00131        TXH 89                IO23  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01353 0 01313        HTR PR,0,PR+32                                                               
       01310  0 50000 0 01233        CLA DECONE            SET CONTROL FOR BST                                    
       01311  0 62200 0 00000        STD 0                                                                        
       01312  0 02000 0 00221        TRA DIGRTN                                                                   
       01313  606060606060    PR     BCD 2                                                                        
       01314  606060606060    
       01315  632147256023           BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP            
       01316  302523426031    
       01317  456051252124    
       01320  314527602331    
       01321  636051252346    
       01322  512473606321    
       01323  472560047360    
       01324  263143256001    
       01325  336060234647    
       01326  706043464647    
       01327  603162602163           BCD   IS AT LOCATION 1026.                                                   
       01330  604346232163    
       01331  314645600100    
       01332  020633606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  606060606060    
       01340  606060606060    
       01341  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01342  636325444763    
       01343  626030216525    
       01344  602225254560    
       01345  442124256063    
       01346  466051252124    
       01347  606330316260    
       01350  512523465124    
       01351  602346515125    
       01352  236343703360    
       01353  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       54                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 90                FORCE NEW RECORD                                       
1                       00132        ORG 90                FORCE NEW RECORD                                       
       00132  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00132        TXH 90                1175  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING DOTAG RECORD, TAPE 2, FILE 6.  COPY LO            
       01314  302523426031    
       01315  456051252124    
       01316  314527602446    
       01317  632127605125    
       01320  234651247360    
       01321  632147256002    
       01322  736026314325    
       01323  600633606023    
       01324  464770604346    
       01325  464760316260           BCD  OP IS AT LOCATION 1200.                                                 
       01326  216360434623    
       01327  216331464560    
       01330  010200003360    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 91                FORCE NEW RECORD                                       
1                       00133        ORG 91                FORCE NEW RECORD                                       
       00133  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00133        TXH 91                 327  FT  86                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560023360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 330.                                                            
       01326  456003030033    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 92                FORCE NEW RECORD                                       
1                       00134        ORG 92                FORCE NEW RECORD                                       
       00134  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00134        TXH 92                 437  FT  84                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560033360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 325.                                                            
       01326  456003020533    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 93                FORCE NEW RECORD                                       
1                       00135        ORG 93                FORCE NEW RECORD                                       
       00135  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00135        TXH 93                1240  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 3.  COPY LOOP            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560037360    
       01322  263143256003    
       01323  336060234647    
       01324  706043464647    
       01325  603162602163           BCD   IS AT LOCATION 1241.                                                   
       01326  604346232163    
       01327  314645600102    
       01330  040133606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 94                FORCE NEW RECORD                                       
1                       00136        ORG 94                FORCE NEW RECORD                                       
       00136  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00136        TXH 94                3540  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560043360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 3534.                                                           
       01326  456003050304    
       01327  336060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 95                FORCE NEW RECORD                                       
1                       00137        ORG 95                FORCE NEW RECORD                                       
       00137  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00137        TXH 95                4453  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560043360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 4421.                                                           
       01326  456004040201    
       01327  336060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 96                FORCE NEW RECORD                                       
1                       00140        ORG 96                FORCE NEW RECORD                                       
       00140  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00140        TXH 96                  46  FT  90                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560033360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 32.                                                             
       01326  456003023360    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 95                FORCE NEW RECORD                                       
1                       00137        ORG 95                FORCE NEW RECORD                                       
       00137  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00137        TXH 95                4453  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560043360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 4421.                                                           
       01326  456004040201    
       01327  336060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 96                FORCE NEW RECORD                                       
1                       00140        ORG 96                FORCE NEW RECORD                                       
       00140  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00140        TXH 96                  46  FT  90                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560033360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 32.                                                             
       01326  456003023360    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 97                FORCE NEW RECORD                                       
1                       00141        ORG 97                FORCE NEW RECORD                                       
       00141  0 01303 0 01353        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00141        TXH 97                 330  FT  90                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01354 0 01311        HTR PR,0,PR+35                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560023360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 304 AND READS FROM FILE 3,                                      
       01326  456003000460    
       01327  214524605125    
       01330  212462602651    
       01331  464460263143    
       01332  256003736060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  047360057360           BCD  4, 5, 7, 9 OR 10.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS            
       01340  077360116046    
       01341  516001003360    
       01342  602631652560    
       01343  216363254447    
       01344  636260302165    
       01345  256022252545    
       01346  604421242560    
       01347  634660512521    
       01350  246063303162    
       01351  605125234651           BCD 3 RECORD CORRECTLY.                                                      
       01352  246023465151    
       01353  252363437033    
       01354  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       55                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 98                FORCE NEW RECORD                                       
1                       00142        ORG 98                FORCE NEW RECORD                                       
       00142  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00142        TXH 98                 141  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING SUBROUTINE DEFINITION TABLE FROM TAPE             
       01314  302523426031    
       01315  456051252124    
       01316  314527606264    
       01317  225146646331    
       01320  452560242526    
       01321  314531633146    
       01322  456063212243    
       01323  256026514644    
       01324  606321472560    
       01325  027360512523           BCD  2, RECORD 2, FILE 5.                                                    
       01326  465124600273    
       01327  602631432560    
       01330  053360606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP IS AT LOCATION 135.  FIVE ATTEMPTS HAVE BEEN MADE             
       01340  464647603162    
       01341  602163604346    
       01342  232163314645    
       01343  600103053360    
       01344  602631652560    
       01345  216363254447    
       01346  636260302165    
       01347  256022252545    
       01350  604421242560    
       01351  634660512521           BCD 5TO READ THIS RECORD CORRECTLY.                                          
       01352  246063303162    
       01353  605125234651    
       01354  246023465151    
       01355  252363437033    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 99                FORCE NEW RECORD                                       
1                       00143        ORG 99                FORCE NEW RECORD                                       
       00143  0 01303 0 01343        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00143        TXH 99                 356  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01344 0 01311        HTR PR,0,PR+27                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT TABLE, TAPE 3.  COPY LOOP IS AT LO            
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  636063212243    
       01320  257360632147    
       01321  256003336060    
       01322  234647706043    
       01323  464647603162    
       01324  602163604346    
       01325  232163314645           BCD  CATION 352.  FIVE ATTEMPTS HAVE BEEN MADE TO                            
       01326  600305023360    
       01327  602631652560    
       01330  216363254447    
       01331  636260302165    
       01332  256022252545    
       01333  604421242560    
       01334  634660606060    
       01335  606060606060    
       01336  606060606060    
       01337  512521246063           BCD 5READ THIS RECORD CORRECTLY.                                             
       01340  303162605125    
       01341  234651246023    
       01342  465151252363    
       01343  437033606060    
       01344  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       47                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 100               FORCE NEW RECORD                                       
1                       00144        ORG 100               FORCE NEW RECORD                                       
       00144  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00144        TXH 100                562  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING OP TABLE FROM TAPE 2, FILE 6.  COPY LO            
       01314  302523426031    
       01315  456051252124    
       01316  314527604647    
       01317  606321224325    
       01320  602651464460    
       01321  632147256002    
       01322  736026314325    
       01323  600633606023    
       01324  464770604346    
       01325  464760316260           BCD  OP IS AT LOCATION 556.                                                  
       01326  216360434623    
       01327  216331464560    
       01330  050506336060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 101               FORCE NEW RECORD                                       
1                       00145        ORG 101               FORCE NEW RECORD                                       
       00145  0 01303 0 01343        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00145        TXH 101                765  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01344 0 01311        HTR PR,0,PR+27                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT TABLE, TAPE 3.  COPY LOOP IS AT LO            
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  636063212243    
       01320  257360632147    
       01321  256003336060    
       01322  234647706043    
       01323  464647603162    
       01324  602163604346    
       01325  232163314645           BCD  CATION 761.  FIVE ATTEMPTS HAVE BEEN MADE TO                            
       01326  600706013360    
       01327  602631652560    
       01330  216363254447    
       01331  636260302165    
       01332  256022252545    
       01333  604421242560    
       01334  634660606060    
       01335  606060606060    
       01336  606060606060    
       01337  512521246063           BCD 5READ THIS RECORD CORRECTLY.                                             
       01340  303162605125    
       01341  234651246023    
       01342  465151252363    
       01343  437033606060    
       01344  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       47                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 102               FORCE NEW RECORD                                       
1                       00146        ORG 102               FORCE NEW RECORD                                       
       00146  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00146        TXH 102               1135  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING HOLARG TABLE FROM TAPE 2, RECORD 4, FI            
       01314  302523426031    
       01315  456051252124    
       01316  314527603046    
       01317  432151276063    
       01320  212243256026    
       01321  514644606321    
       01322  472560027360    
       01323  512523465124    
       01324  600473602631    
       01325  432560053360           BCD  LE 5.  COPY LOOP IS AT LOCATION 1131.                                   
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456001010301    
       01333  336060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 103               FORCE NEW RECORD                                       
1                       00147        ORG 103               FORCE NEW RECORD                                       
       00147  0 01303 0 01362        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00147        TXH 103                245  FT   9                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01363 0 01311        HTR PR,0,PR+42                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560023360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 220.  FIVE ATTEMPTS HAVE BEEN MADE                              
       01326  456002020033    
       01327  606026316525    
       01330  602163632544    
       01331  476362603021    
       01332  652560222525    
       01333  456044212425    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  634660512521           BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P            
       01340  246063303162    
       01341  605125234651    
       01342  246023465151    
       01343  252363437033    
       01344  606047514627    
       01345  512144602321    
       01346  454546636023    
       01347  464563314564    
       01350  256063466047    
       01351  514623256262           BCD  ROCESS LISTING TAPES FOR OUTPUT.                                        
       01352  604331626331    
       01353  452760632147    
       01354  256260264651    
       01355  604664634764    
       01356  633360606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       62                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 104               FORCE NEW RECORD                                       
1                       00150        ORG 104               FORCE NEW RECORD                                       
       00150  0 01303 0 01362        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00150        TXH 104                264  FT   7                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01363 0 01311        HTR PR,0,PR+42                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560023360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 265.  FIVE ATTEMPTS HAVE BEEN MADE                              
       01326  456002060533    
       01327  606026316525    
       01330  602163632544    
       01331  476362603021    
       01332  652560222525    
       01333  456044212425    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  634660512521           BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P            
       01340  246063303162    
       01341  605125234651    
       01342  246023465151    
       01343  252363437033    
       01344  606047514627    
       01345  512144602321    
       01346  454546636023    
       01347  464563314564    
       01350  256063466047    
       01351  514623256262           BCD  ROCESS LISTING TAPES FOR OUTPUT.                                        
       01352  604331626331    
       01353  452760632147    
       01354  256260264651    
       01355  604664634764    
       01356  633360606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       62                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 105               FORCE NEW RECORD                                       
1                       00151        ORG 105               FORCE NEW RECORD                                       
       00151  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00151        TXH 105               3730  FT  115                                          
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING TAPE RECORD OF CARD IMAGE FROM TAPE 3.            
       01314  302523426031    
       01315  456051252124    
       01316  314527606321    
       01317  472560512523    
       01320  465124604626    
       01321  602321512460    
       01322  314421272560    
       01323  265146446063    
       01324  214725600333    
       01325  606023464770           BCD    COPY LOOP IS AT LOCATION 3655.                                        
       01326  604346464760    
       01327  316260216360    
       01330  434623216331    
       01331  464560030605    
       01332  053360606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633031626062           BCD  THIS STOP MAY ALSO BE DUE TO AN INCORRECT RECORD WHICH CONTA            
       01340  634647604421    
       01341  706021436246    
       01342  602225602464    
       01343  256063466021    
       01344  456031452346    
       01345  515125236360    
       01346  512523465124    
       01347  606630312330    
       01350  602346456321    
       01351  314562604446           BCD  INS MORE THAN 25 WORDS.                                                 
       01352  512560633021    
       01353  456002056066    
       01354  465124623360    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01364  636325444763    
       01365  626030216525    
       01366  602225254560    
       01367  442124256063    
       01370  466051252124    
       01371  606330316260    
       01372  512523465124    
       01373  602346515125    
       01374  236343703360    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 106               FORCE NEW RECORD                                       
1                       00152        ORG 106               FORCE NEW RECORD                                       
       00152  0 01303 0 01362        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00152        TXH 106                311  FT   9                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01363 0 01311        HTR PR,0,PR+42                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246026    
       01320  514644606321    
       01321  472560033360    
       01322  602346477060    
       01323  434646476031    
       01324  626021636043    
       01325  462321633146           BCD  OCATION 263.  FIVE ATTEMPTS HAVE BEEN MADE                              
       01326  456002060333    
       01327  606026316525    
       01330  602163632544    
       01331  476362603021    
       01332  652560222525    
       01333  456044212425    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  634660512521           BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P            
       01340  246063303162    
       01341  605125234651    
       01342  246023465151    
       01343  252363437033    
       01344  606047514627    
       01345  512144602321    
       01346  454546636023    
       01347  464563314564    
       01350  256063466047    
       01351  514623256262           BCD  ROCESS LISTING TAPES FOR OUTPUT.                                        
       01352  604331626331    
       01353  452760632147    
       01354  256260264651    
       01355  604664634764    
       01356  633360606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       62                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 107               FORCE NEW RECORD                                       
1                       00153        ORG 107               FORCE NEW RECORD                                       
       00153  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00153        TXH 107                410  FT  96                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING COMMON TABLE FROM TAPE 2, RECORD 3, FI,           
       01314  302523426031    
       01315  456051252124    
       01316  314527602346    
       01317  444446456063    
       01320  212243256026    
       01321  514644606321    
       01322  472560027360    
       01323  512523465124    
       01324  600373602631    
       01325  432560053360           BCD  LE 5.  COPY LOOP IS AT LOCATION 404.                                    
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456004000433    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 108               FORCE NEW RECORD                                       
1                       00154        ORG 108               FORCE NEW RECORD                                       
       00154  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00154        TXH 108                460  FT  98                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING SUBDEF TABLE FROM TAPE 2, RECORD 2, FI            
       01314  302523426031    
       01315  456051252124    
       01316  314527606264    
       01317  222425266063    
       01320  212243256026    
       01321  514644606321    
       01322  472560027360    
       01323  512523465124    
       01324  600273602631    
       01325  432560053360           BCD  LE 5.  COPY LOOP IS AT LOCATION 454.                                    
       01326  602346477060    
       01327  434646476031    
       01330  626021636043    
       01331  462321633146    
       01332  456004050433    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 109               FORCE NEW RECORD                                       
1                       00155        ORG 109               FORCE NEW RECORD                                       
       00155  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00155        TXH 109                223  FT 113                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING CIT, TAPE 4, IN THE SECOND PASS OF CIT            
       01314  302523426031    
       01315  456051252124    
       01316  314527602331    
       01317  637360632147    
       01320  256004736031    
       01321  456063302560    
       01322  622523464524    
       01323  604721626260    
       01324  462660233163    
       01325  606321472560           BCD   TAPE RECORD.  COPY LOOP IS AT LOCATION 217.                            
       01326  512523465124    
       01327  336060234647    
       01330  706043464647    
       01331  603162602163    
       01332  604346232163    
       01333  314645600201    
       01334  073360606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 110               FORCE NEW RECORD                                       
1                       00156        ORG 110               FORCE NEW RECORD                                       
       00156  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00156        TXH 110                255  FT 103                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256023           BCD  TAPE CHECK IN READING RECORD OF COMPILED INSTRUCTIONS FROM T            
       01314  302523426031    
       01315  456051252124    
       01316  314527605125    
       01317  234651246046    
       01320  266023464447    
       01321  314325246031    
       01322  456263516423    
       01323  633146456260    
       01324  265146446063    
       01325  214725600433           BCD  APE 4.  COPY LOOP IS AT LOCATION 251.                                   
       01326  606023464770    
       01327  604346464760    
       01330  316260216360    
       01331  434623216331    
       01332  464560020501    
       01333  336060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263165256021           BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.             
       01340  636325444763    
       01341  626030216525    
       01342  602225254560    
       01343  442124256063    
       01344  466051252124    
       01345  606330316260    
       01346  512523465124    
       01347  602346515125    
       01350  236343703360    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 111               FORCE NEW RECORD                                       
1                       00157        ORG 111               FORCE NEW RECORD                                       
       00157  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00157        TXH 111               1OO1  FT  24                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01421 0 01311        HTR PR,0,PR+72                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256002           BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO TABLE, FILE            
       01314  603162604546    
       01315  636023465151    
       01316  252363437060    
       01317  474662316331    
       01320  464525246063    
       01321  466051252124    
       01322  606331262746    
       01323  606321224325    
       01324  736026314325    
       01325  600573605125           BCD   5, RECORD 6.  THE FORTAG TABLE, RECORD 11,                             
       01326  234651246006    
       01327  336060633025    
       01330  602646516321    
       01331  276063212243    
       01332  257360512523    
       01333  465124600101    
       01334  736060606060    
       01335  606060606060    
       01336  606060606060    
       01337  302162604164           BCD  HAS JUST BEEN WRITTEN ON TAPE 2.  BEGINNING AT LOCATION 764,            
       01340  626360222525    
       01341  456066513163    
       01342  632545604645    
       01343  606321472560    
       01344  023360602225    
       01345  273145453145    
       01346  276021636043    
       01347  462321633146    
       01350  456007060473    
       01351  606231676022           BCD   SIX BST INSTRUCTIONS ARE GIVEN                                         
       01352  626360314562    
       01353  635164236331    
       01354  464562602151    
       01355  256027316525    
       01356  456060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  222526465125           BCD  BEFORE THE RDS.  THE CPY AT 775 SHOWS THAT THIS RECORD IS NO            
       01364  606330256051    
       01365  246233606063    
       01366  302560234770    
       01367  602163600707    
       01370  056062304666    
       01371  626063302163    
       01372  606330316260    
       01373  512523465124    
       01374  603162604546    
       01375  636063312627           BCD  T TIFGO (IDENTIFICATION WORD IN 7745).                                  
       01376  466074312425    
       01377  456331263123    
       01400  216331464560    
       01401  664651246031    
       01402  456007070405    
       01403  343360606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  633025605125           BCD  THE RECORD IDENTIFICATION OF THE TAPE IS IN 7747.                       
       01410  234651246031    
       01411  242545633126    
       01412  312321633146    
       01413  456046266063    
       01414  302560632147    
       01415  256031626031    
       01416  456007070407    
       01417  336060606060    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       92                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 112               FORCE NEW RECORD                                       
1                       00160        ORG 112               FORCE NEW RECORD                                       
       00160  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00160        TXH 112                123  FT  53                                           
                                         1I2                I24  FT  53                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  254524604626           BCD  END OF RECORD NOT PROPERLY REACHED, TAPE 3, FILE 1.  TEST WO            
       01314  605125234651    
       01315  246045466360    
       01316  475146472551    
       01317  437060512521    
       01320  233025247360    
       01321  632147256003    
       01322  736026314325    
       01323  600133606063    
       01324  256263606646    
       01325  512460314560           BCD  RD IN RECORD SHOWS THAT COPY AT                                         
       01326  512523465124    
       01327  606230466662    
       01330  606330216360    
       01331  234647706021    
       01332  636060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434623216331           BCD 8LOCATION 122 SHOULD CAUSE END OF RECORD SKIP.                           
       01340  464560010202    
       01341  606230466443    
       01342  246023216462    
       01343  256025452460    
       01344  462660512523    
       01345  465124606242    
       01346  314733606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 113               FORCE NEW RECORD                                       
1                       00161        ORG 113               FORCE NEW RECORD                                       
       00161  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00161        TXH 113               6736  FT  41                                           
                                         113               6737  FT  41                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  255151465160           BCD  ERROR IN READING THE SINGLE 2 WORD RECORD FROM TAPE 2, FILE             
       01314  314560512521    
       01315  243145276063    
       01316  302560623145    
       01317  274325600260    
       01320  664651246051    
       01321  252346512460    
       01322  265146446063    
       01323  214725600273    
       01324  602631432560    
       01325  073360606321           BCD  7.  TAPE SHOULD BE POSITIONED AFTER                                     
       01326  472560623046    
       01327  644324602225    
       01330  604746623163    
       01331  314645252460    
       01332  212663255160    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263143256044           BCD  FILE MARK, FILE 7.  BEGINNING AT 6730, TWO BST S ARE GIVEN,             
       01340  215142736026    
       01341  314325600733    
       01342  606022252731    
       01343  454531452760    
       01344  216360060703    
       01345  007360636646    
       01346  602262636062    
       01347  602151256027    
       01350  316525457360    
       01351  633025456021           BCD  THEN AN RTB AND THREE CPY S.                                            
       01352  456051632260    
       01353  214524606330    
       01354  512525602347    
       01355  706062336060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  234647706021           BCD  COPY AT LOCATION 6735 SHOULD CAUSE END OF RECORD SKIP.                  
       01364  636043462321    
       01365  633146456006    
       01366  070305606230    
       01367  466443246023    
       01370  216462256025    
       01371  452460462660    
       01372  512523465124    
       01373  606242314733    
       01374  606060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       73                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 114               FORCE NEW RECORD                                       
1                       00162        ORG 114               FORCE NEW RECORD                                       
       00162  0 01303 0 01373        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00162        TXH 114               7112  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01374 0 01311        HTR PR,0,PR+51                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256002           BCD  TAPE 2 IS NOT POSITIONED CORRECTLY TO READ RECORD FROM FILE             
       01314  603162604546    
       01315  636047466231    
       01316  633146452524    
       01317  602346515125    
       01320  236343706063    
       01321  466051252124    
       01322  605125234651    
       01323  246026514644    
       01324  602631432560    
       01325  053360602346           BCD  5.  COPY LOOP AT LOCATION 7060 READS                                    
       01326  477060434646    
       01327  476021636043    
       01330  462321633146    
       01331  456007000600    
       01332  605125212462    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512523465124           BCD  RECORDS 6 THROUGH 11 AND HAS FOUND THAT IDENTIFICATION OF RE            
       01340  626006606330    
       01341  514664273060    
       01342  010160214524    
       01343  603021626026    
       01344  466445246063    
       01345  302163603124    
       01346  254563312631    
       01347  232163314645    
       01350  604626605125    
       01351  234651247360           BCD  CORD, LOCATION 7127,                                                    
       01352  434623216331    
       01353  464560070102    
       01354  077360606060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  244625626045           BCD 9DOES NOT MATCH EXPECTED IDENTIFICATION, LOCATION 7125.                  
       01364  466360442163    
       01365  233060256747    
       01366  252363252460    
       01367  312425456331    
       01370  263123216331    
       01371  464573604346    
       01372  232163314645    
       01373  600701020533    
       01374  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       71                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 115               FORCE NEW RECORD                                       
1                       00163        ORG 115               FORCE NEW RECORD                                       
       00163  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00163        TXH 115                 51  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01421 0 01311        HTR PR,0,PR+72                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256002           BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ FORTAG, FILE 5, R            
       01314  603162604546    
       01315  636023465151    
       01316  252363437060    
       01317  474662316331    
       01320  464525246063    
       01321  466051252124    
       01322  602646516321    
       01323  277360263143    
       01324  256005736051    
       01325  252346512460           BCD  ECORD 11.  ROUTINE AT LOCATION 31                                       
       01326  010133606051    
       01327  466463314525    
       01330  602163604346    
       01331  232163314645    
       01332  600301606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512521246260           BCD  READS THE 1 WORD RECORD OF FILE 7 WHICH IS RECORD COUNT OF F            
       01340  633025600160    
       01341  664651246051    
       01342  252346512460    
       01343  462660263143    
       01344  256007606630    
       01345  312330603162    
       01346  605125234651    
       01347  246023466445    
       01350  636046266026    
       01351  314325600633           BCD  ILE 6.  7 IS ADDED TO THIS COUNT AND                                    
       01352  606007603162    
       01353  602124242524    
       01354  606346606330    
       01355  316260234664    
       01356  456360214524    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  633025606321           BCD  THE TAPE IS BACKSPACED OVER FILE 6, FILE MARK AND THE LAST 4            
       01364  472560316260    
       01365  222123426247    
       01366  212325246046    
       01367  652551602631    
       01370  432560067360    
       01371  263143256044    
       01372  215142602145    
       01373  246063302560    
       01374  432162636004    
       01375  605125234651           BCD   RECORDS IN FILE 5.  RECORD IDENTIFICATION                              
       01376  246260314560    
       01377  263143256005    
       01400  336060512523    
       01401  465124603124    
       01402  254563312631    
       01403  232163314645    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  314560434623           BCD  IN LOCATION 2326 SHOWS THAT THIS IS NOT FORTAG RECORD.                  
       01410  216331464560    
       01411  020302066062    
       01412  304666626063    
       01413  302163606330    
       01414  316260316260    
       01415  454663602646    
       01416  516321276051    
       01417  252346512433    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       92                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 116               FORCE NEW RECORD                                       
1                       00164        ORG 116               FORCE NEW RECORD                                       
       00164  0 01303 0 01375        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00164        TXH 116                331  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01376 0 01311        HTR PR,0,PR+53                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256002           BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO RECORD.  RD            
       01314  603162604546    
       01315  636023465151    
       01316  252363437060    
       01317  474662316331    
       01320  464525246063    
       01321  466051252124    
       01322  606331262746    
       01323  605125234651    
       01324  243360605124    
       01325  626043464647           BCD  S LOOP AT LOCATION 30 HAS SPACED TAPE 2                                 
       01326  602163604346    
       01327  232163314645    
       01330  600300603021    
       01331  626062472123    
       01332  252460632147    
       01333  256002606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  264651662151           BCD  FORWARD FROM BEGINNING OF 3RD FILE TO BEGINNING OF TIFGO, FI            
       01340  246026514644    
       01341  602225273145    
       01342  453145276046    
       01343  266003512460    
       01344  263143256063    
       01345  466022252731    
       01346  454531452760    
       01347  462660633126    
       01350  274673602631    
       01351  432560057360           BCD  LE 5, RECORD 6.  IDENTIFICATION WORD                                    
       01352  512523465124    
       01353  600633606031    
       01354  242545633126    
       01355  312321633146    
       01356  456066465124    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  462660512523           BCD  OF RECORD IN LOCATION 5471, SHOWS THAT THIS IS NOT TIFGO REC            
       01364  465124603145    
       01365  604346232163    
       01366  314645600504    
       01367  070173606230    
       01370  466662606330    
       01371  216360633031    
       01372  626031626045    
       01373  466360633126    
       01374  274660512523    
       01375  465124336060           BCD 1ORD.                                                                    
       01376  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       73                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 117               FORCE NEW RECORD                                       
1                       00165        ORG 117               FORCE NEW RECORD                                       
       00165  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00165        TXH 117                357  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632147256002           BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TRAD, FILE 5, REC            
       01314  603162604546    
       01315  636023465151    
       01316  252363437060    
       01317  474662316331    
       01320  464525246063    
       01321  466051252124    
       01322  606351212473    
       01323  602631432560    
       01324  057360512523    
       01325  465124600733           BCD  ORD 7.  RECORD 6, TIFGO, HAS                                            
       01326  606051252346    
       01327  512460067360    
       01330  633126274673    
       01331  603021626060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  416462636022           BCD  JUST BEEN READ SUCCESSFULLY, BUT IDENTIFICATION WORD, LOCATI            
       01340  252545605125    
       01341  212460626423    
       01342  232562622664    
       01343  434370736022    
       01344  646360312425    
       01345  456331263123    
       01346  216331464560    
       01347  664651247360    
       01350  434623216331    
       01351  464560060706           BCD  ON 6766, SHOWS THAT NEXT RECORD IS NOT TRAD.                            
       01352  067360623046    
       01353  666260633021    
       01354  636045256763    
       01355  605125234651    
       01356  246031626045    
       01357  466360635121    
       01360  243360606060    
       01361  606060606060    
       01362  606060606060    
       01363  234647706043           BCD  COPY LOOP IS AT LOCATION 352.                                           
       01364  464647603162    
       01365  602163604346    
       01366  232163314645    
       01367  600305023360    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 118               FORCE NEW RECORD                                       
1                       00166        ORG 118               FORCE NEW RECORD                                       
       00166  0 01303 0 01430        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00166        TXH 118                524  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01431 0 01311        HTR PR,0,PR+80                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262131436451           BCD  FAILURE TO READ CORRECT RECORD FROM TAPE 2, FILE 5.  TAPE SH            
       01314  256063466051    
       01315  252124602346    
       01316  515125236360    
       01317  512523465124    
       01320  602651464460    
       01321  632147256002    
       01322  736026314325    
       01323  600533606063    
       01324  214725606230    
       01325  466443246022           BCD  OULD BE POSITIONED TO READ RECORD 6, TIFGO,                             
       01326  256047466231    
       01327  633146452524    
       01330  606346605125    
       01331  212460512523    
       01332  465124600673    
       01333  606331262746    
       01334  736060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512523465124           BCD  RECORD 7, TRAD, OR RECORD 12, FRET.  ONE OF THE ROUTINES WHI            
       01340  600773606351    
       01341  212473604651    
       01342  605125234651    
       01343  246001027360    
       01344  265125633360    
       01345  604645256046    
       01346  266063302560    
       01347  514664633145    
       01350  256260663031    
       01351  233060646225           BCD  CH USES INFORMATION FROM THESE RECORDS HAS                              
       01352  626031452646    
       01353  514421633146    
       01354  456026514644    
       01355  606330256225    
       01356  605125234651    
       01357  246260302162    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  264664452460           BCD  FOUND THAT THE IDENTIFICATION OF THE RECORD DOES NOT MATCH T            
       01364  633021636063    
       01365  302560312425    
       01366  456331263123    
       01367  216331464560    
       01370  462660633025    
       01371  605125234651    
       01372  246024462562    
       01373  604546636044    
       01374  216323306063    
       01375  302560256747           BCD  HE EXPECTED IDENTIFICATION.  THE ROUTINE                                
       01376  252363252460    
       01377  312425456331    
       01400  263123216331    
       01401  464533606063    
       01402  302560514664    
       01403  633145256060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  512521243145           BCD  READING A PARTICULAR RECORD IS AT LOCATION 435 FOR TIFGO, LO            
       01410  276021604721    
       01411  516331236443    
       01412  215160512523    
       01413  465124603162    
       01414  602163604346    
       01415  232163314645    
       01416  600403056026    
       01417  465160633126    
       01420  274673604346    
       01421  232163314645           BCD 8CATION 525 FOR TRAD, OR LOCATION 643 FOR FRET.                          
       01422  600502056026    
       01423  465160635121    
       01424  247360465160    
       01425  434623216331    
       01426  464560060403    
       01427  602646516026    
       01430  512563336060    
       01431  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      21           0           0           0           0
 LIB       0           0           0           0           0
 COL      21           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      100                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 119               FORCE NEW RECORD                                       
1                       00167        ORG 119               FORCE NEW RECORD                                       
       00167  0 01303 0 01442        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00167        TXH 119                314  FT  90                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01344        LDA AA                                                                       
       01310  0 70000 0 01257        CPY ERAS                                                                     
       01311 -0 75400 0 00000        PXD 0,0                                                                      
       01312  0 56000 0 01257        LDQ ERAS                                                                     
       01313 -0 76300 0 00003        LGL 3                 FIRST OCTAL NUMBER INTO COMMENT                        
       01314 -0 60200 0 01363        ORS A                                                                        
       01315 -0 76300 0 00017        LGL 15                                                                       
       01316  0 07400 4 00730        TSX OCTBCD,4                                                                 
       01317  0 60200 0 01364        SLW B                 B 23456                                                
       01320  0 56000 0 01257        LDQ ERAS              FIX TAG FIELD                                          
       01321 -0 77300 0 00022        RQL 18                                                                       
       01322 -0 50000 0 00717        CAL BLANKS                                                                   
       01323  0 76700 0 00003        ALS 3                                                                        
       01324 -0 76300 0 00003        LGL 3                                                                        
       01325  0 60200 0 01365        SLW C                                                                        
       01326  0 50000 0 01257        CLA ERAS                                                                     
       01327  0 07400 4 00730        TSX OCTBCD,4          B 89101112                                             
       01330  0 60200 0 01366        SLW D                                                                        
       01331  0 56000 0 01366        LDQ D                                                                        
       01332 -0 50000 0 01365        CAL C                                                                        
       01333 -0 76300 0 00030        LGL 24                8788910                                                
       01334  0 60200 0 01365        SLW C                                                                        
       01335 -0 76300 0 00014        LGL 12                                                                       
       01336  0 56000 0 00717        LDQ BLANKS                                                                   
       01337 -0 76300 0 00030        LGL 24                                                                       
       01340  0 60200 0 01366        SLW D                 11128888                                               
       01341  0 07400 4 00740        TSX PRINT,4                                                                  
       01342  0 01443 0 01345        HTR PR,0,PR+62                                                               
       01343  0 02000 0 00221        TRA DIGRTN                                                                   
       01344  0 00000 0 01144 AA     HTR8612                                                                      
       01345  606060606060    PR     BCD 2                                                                        
       01346  606060606060    
       01347  632147256002           BCD  TAPE 2 IS NOT CORRECTLY POSITIONED.  CURRENT FILE 5 RECORD I            
       01350  603162604546    
       01351  636023465151    
       01352  252363437060    
       01353  474662316331    
       01354  464525243360    
       01355  602364515125    
       01356  456360263143    
       01357  256005605125    
       01360  234651246031    
       01361  242545633126           BCD 2DENTIFICATIO                                                            
       01362  312321633146    
       01363  456031626000         A BCD 1N IS 0                                                                  
 A     01364  0 00000 0 00000      B HTR                                                                          
 A     01365  0 00000 0 00000      C HTR                                                                          
       01366  606060606060         D BCD 5                                                                        
       01367  606060606060    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  214524602446           BCD  AND DOES NOT MATCH EXPECTED RECORD IDENTIFICATION WHICH WAS             
       01374  256260454663    
       01375  604421632330    
       01376  602567472523    
       01377  632524605125    
       01400  234651246031    
       01401  242545633126    
       01402  312321633146    
       01403  456066303123    
       01404  306066216260    
       01405  314560633025           BCD  IN THE ACCUMULATOR AND IS NOT STORED.                                   
       01406  602123236444    
       01407  644321634651    
       01410  602145246031    
       01411  626045466360    
       01412  626346512524    
       01413  336060606060    
       01414  606060606060    
       01415  606060606060    
       01416  606060606060    
       01417  633031626062           BCD  THIS SUBROUTINE BEGINS AT 304 AND IS USED TO READ IN ANY OF             
       01420  642251466463    
       01421  314525602225    
       01422  273145626021    
       01423  636003000460    
       01424  214524603162    
       01425  606462252460    
       01426  634660512521    
       01427  246031456021    
       01430  457060462660    
       01431  633025605125           BCD  THE RECORDS IN FILE 5, TAPE 2.                                          
       01432  234651246260    
       01433  314560263143    
       01434  256005736063    
       01435  214725600233    
       01436  606060606060    
       01437  606060606060    
       01440  606060606060    
       01441  606060606060    
       01442  606060606060    
       01443  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      51           0           0           0           0
 LIB       0           0           0           0           0
 COL      51           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      110                  
0NUMBER OF SYMBOLS,  DEF   202,DEFOP     0,UNDEF     0      
9            ORG 120               FORCE NEW RECORD                                       
1                       00170        ORG 120               FORCE NEW RECORD                                       
       00170  0 01303 0 01330        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00170        TXH 120                 36  FT  53                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01331 0 01311        HTR PR,0,PR+16                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF RECORD, TAPE 4.  COPY LOOP AT LOCATION 30 IS SP            
       01314  254524604626    
       01315  605125234651    
       01316  247360632147    
       01317  256004336060    
       01320  234647706043    
       01321  464647602163    
       01322  604346232163    
       01323  314645600300    
       01324  603162606247    
       01325  212331452760           BCD 4ACING OVER FIRST FILE.                                                  
       01326  466525516026    
       01327  315162636026    
       01330  314325336060    
       01331  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       36                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 121               FORCE NEW RECORD                                       
1                       00171        ORG 121               FORCE NEW RECORD                                       
       00171  0 01303 0 01331        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00171        TXH 121               4417  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01332 0 01311        HTR PR,0,PR+17                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF RECORD, TAPE 4.  COPY LOOP AT LOCATION 4413 IS             
       01314  254524604626    
       01315  605125234651    
       01316  247360632147    
       01317  256004336060    
       01320  234647706043    
       01321  464647602163    
       01322  604346232163    
       01323  314645600404    
       01324  010360316260    
       01325  215151214527           BCD 5ARRANGED TO FIND END OF FILE.                                           
       01326  252460634660    
       01327  263145246025    
       01330  452460462660    
       01331  263143253360    
       01332  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       37                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 122               FORCE NEW RECORD                                       
1                       00172        ORG 122               FORCE NEW RECORD                                       
       00172  0 01303 0 01353        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00172        TXH 122               7053  FT  36                                           
                                         122               7057  FT  36                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01354 0 01311        HTR PR,0,PR+35                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF RECORD READING DOTAG RECORD FROM TAPE 3, FILE 1            
       01314  254524604626    
       01315  605125234651    
       01316  246051252124    
       01317  314527602446    
       01320  632127605125    
       01321  234651246026    
       01322  514644606321    
       01323  472560037360    
       01324  263143256001    
       01325  336060512523           BCD  .  RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                          
       01326  465124602346    
       01327  456321314562    
       01330  602160456444    
       01331  222551604626    
       01332  601160664651    
       01333  246025456351    
       01334  312562336060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD             
       01340  464647602163    
       01341  604346232163    
       01342  314645600700    
       01343  040360512521    
       01344  246260464543    
       01345  706026315162    
       01346  636021452460    
       01347  622523464524    
       01350  606646512460    
       01351  462660252123           BCD 3OF EACH ENTRY.                                                          
       01352  306025456351    
       01353  703360606060    
       01354  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       56                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 123               FORCE NEW RECORD                                       
1                       00173        ORG 123               FORCE NEW RECORD                                       
       00173  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00173        TXH 123               7250  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF RECORD TAPE 2, FILE 5.  COPY AT LOCATION 7245 S            
       01314  254524604626    
       01315  605125234651    
       01316  246063214725    
       01317  600273602631    
       01320  432560053360    
       01321  602346477060    
       01322  216360434623    
       01323  216331464560    
       01324  070204056062    
       01325  304664432460           BCD  HOULD TRANSFER TO                                                       
       01326  635121456226    
       01327  255160634660    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  512462602163           BCD  RDS AT LOCATION 7244, OR CAUSE FILE SKIP AT END OF FILE 5.              
       01340  604346232163    
       01341  314645600702    
       01342  040473604651    
       01343  602321646225    
       01344  602631432560    
       01345  624231476021    
       01346  636025452460    
       01347  462660263143    
       01350  256005336060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 124               FORCE NEW RECORD                                       
1                       00174        ORG 124               FORCE NEW RECORD                                       
       00174  0 01303 0 01377        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00174        TXH 124                 62  FT  53                                           
                                         124                 63  FT  53                                           
                                         124                 66  FT  53                                           
                                         124                 67  FT  53                                           
                                         124                 72  FT  53                                           
                                         124                 73  FT  53                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01400 0 01311        HTR PR,0,PR+55                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF RECORD OR FALSE END OF FILE IN READING, TAPE 3,            
       01314  254524604626    
       01315  605125234651    
       01316  246046516026    
       01317  214362256025    
       01320  452460462660    
       01321  263143256031    
       01322  456051252124    
       01323  314527736063    
       01324  214725600373    
       01325  602631432560           BCD   FILE 1, FROM VARIABLE LENGTH RECORD WHICH                              
       01326  017360265146    
       01327  446065215131    
       01330  212243256043    
       01331  254527633060    
       01332  512523465124    
       01333  606630312330    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  623046644324           BCD  SHOULD HAVE BEEN WRITTEN AS A SERIES OF 4 WORD ENTRIES.  COP            
       01340  603021652560    
       01341  222525456066    
       01342  513163632545    
       01343  602162602160    
       01344  622551312562    
       01345  604626600460    
       01346  664651246025    
       01347  456351312562    
       01350  336060234647    
       01351  706043464647           BCD  Y LOOP AT LOCATION 53 READS                                             
       01352  602163604346    
       01353  232163314645    
       01354  600503605125    
       01355  212462606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  046066465124           BCD  4 WORDS AT A TIME AND CHECKS AGAINST THIS IN READING 2ND, 3R            
       01364  626021636021    
       01365  606331442560    
       01366  214524602330    
       01367  252342626021    
       01370  272131456263    
       01371  606330316260    
       01372  314560512521    
       01373  243145276002    
       01374  452473600351    
       01375  246021452460           BCD 3D AND 4TH WORD.                                                         
       01376  046330606646    
       01377  512433606060    
       01400  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      24           0           0           0           0
 LIB       0           0           0           0           0
 COL      24           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       80                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 125               FORCE NEW RECORD                                       
1                       00175        ORG 125               FORCE NEW RECORD                                       
       00175  0 01303 0 01367        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00175        TXH 125               7075  FT  27                                           
                                         125               7076  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01370 0 01311        HTR PR,0,PR+47                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE OR FALSE END OF RECORD IN READING RECORD F            
       01314  254524604626    
       01315  602631432560    
       01316  465160262143    
       01317  622560254524    
       01320  604626605125    
       01321  234651246031    
       01322  456051252124    
       01323  314527605125    
       01324  234651246026    
       01325  514644606321           BCD  ROM TAPE 2, FILE 5.  RECORDS IN THIS FILE                               
       01326  472560027360    
       01327  263143256005    
       01330  336060512523    
       01331  465124626031    
       01332  456063303162    
       01333  602631432560    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  215125604431           BCD  ARE MINIMUM 2 WORDS, IDENTIFICATION WORD AND WORD COUNT.  CO            
       01340  453144644460    
       01341  026066465124    
       01342  627360312425    
       01343  456331263123    
       01344  216331464560    
       01345  664651246021    
       01346  452460664651    
       01347  246023466445    
       01350  633360602346    
       01351  477060434646           BCD  PY LOOP AT LOCATION 7070 DOES NOT ATTEMPT                               
       01352  476021636043    
       01353  462321633146    
       01354  456007000700    
       01355  602446256260    
       01356  454663602163    
       01357  632544476360    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  634660512521           BCD 5TO READ MORE THAN 2 WORDS.                                              
       01364  246044465125    
       01365  606330214560    
       01366  026066465124    
       01367  623360606060    
       01370  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       68                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 126               FORCE NEW RECORD                                       
1                       00176        ORG 126               FORCE NEW RECORD                                       
       00176  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00176        TXH 126               7563  FT  21                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING A RECORD FROM TAPE 4.  COPY LOO            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276021    
       01320  605125234651    
       01321  246026514644    
       01322  606321472560    
       01323  043360602346    
       01324  477060434646    
       01325  476022252731           BCD  P BEGINS AT LOCATION 7552.                                              
       01326  456260216360    
       01327  434623216331    
       01330  464560070505    
       01331  023360606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025602346           BCD  THE COPY AT LOCATION 7561 IS AT LEAST THE SECOND ONE GIVEN A            
       01340  477060216360    
       01341  434623216331    
       01342  464560070506    
       01343  016031626021    
       01344  636043252162    
       01345  636063302560    
       01346  622523464524    
       01347  604645256027    
       01350  316525456021    
       01351  452460316260           BCD  ND IS PROGRAMMED TO FIND                                                
       01352  475146275121    
       01353  444425246063    
       01354  466026314524    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  214560254524           BCD  AN END OF RECORD SKIP.                                                  
       01364  604626605125    
       01365  234651246062    
       01366  423147336060    
       01367  606060606060    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 127               FORCE NEW RECORD                                       
1                       00177        ORG 127               FORCE NEW RECORD                                       
       00177  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00177        TXH 127               7555  FT  21                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING THE FIRST WORD OF A RECORD FROM            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  302560263151    
       01321  626360664651    
       01322  246046266021    
       01323  605125234651    
       01324  246026514644    
       01325  606321472560           BCD   TAPE 4.  COPY LOOP IS AT LOCATION 7552.                                
       01326  043360602346    
       01327  477060434646    
       01330  476031626021    
       01331  636043462321    
       01332  633146456007    
       01333  050502336060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025602346           BCD  THE COPY AT LOCATION 7553 DOES NOT ATTEMPT TO READ MORE THAN            
       01340  477060216360    
       01341  434623216331    
       01342  464560070505    
       01343  036024462562    
       01344  604546636021    
       01345  636325444763    
       01346  606346605125    
       01347  212460444651    
       01350  256063302145    
       01351  606330256031           BCD   THE IDENTIFICATION WORD OF THESE RECORDS,                              
       01352  242545633126    
       01353  312321633146    
       01354  456066465124    
       01355  604626606330    
       01356  256225605125    
       01357  234651246273    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  663031233060           BCD  WHICH ARE AT LEAST TWO WORDS LONG.                                      
       01364  215125602163    
       01365  604325216263    
       01366  606366466066    
       01367  465124626043    
       01370  464527336060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 128               FORCE NEW RECORD                                       
1                       00200        ORG 128               FORCE NEW RECORD                                       
       00200  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00200        TXH 128               4035  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TAGTAG RECORD FROM TAPE 4, FILE            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  212763212760    
       01321  512523465124    
       01322  602651464460    
       01323  632147256004    
       01324  736026314325    
       01325  600233606023           BCD   2.  COPY LOOP IS AT LOCATION 4027.                                     
       01326  464770604346    
       01327  464760316260    
       01330  216360434623    
       01331  216331464560    
       01332  040002073360    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706021           BCD  COPY AT 4033 IS PROGRAMMED TO FIND END OF RECORD SKIP.                  
       01340  636004000303    
       01341  603162604751    
       01342  462751214444    
       01343  252460634660    
       01344  263145246025    
       01345  452460462660    
       01346  512523465124    
       01347  606242314733    
       01350  606060606060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 129               FORCE NEW RECORD                                       
1                       00201        ORG 129               FORCE NEW RECORD                                       
       00201  0 01303 0 01342        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00201        TXH 129               4161  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01343 0 01311        HTR PR,0,PR+26                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE             
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276024    
       01320  466321276051    
       01321  252346512460    
       01322  265146446063    
       01323  214725600373    
       01324  602631432560    
       01325  013360602346           BCD  1.  COPY LOOP AT LOCATION 4157 SHOULD CAUSE                             
       01326  477060434646    
       01327  476021636043    
       01330  462321633146    
       01331  456004010507    
       01332  606230466443    
       01333  246023216462    
       01334  256060606060    
       01335  606060606060    
       01336  606060606060    
       01337  254524604626           BCD 4END OF RECORD SKIP.                                                     
       01340  605125234651    
       01341  246062423147    
       01342  336060606060    
       01343  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       46                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 130               FORCE NEW RECORD                                       
1                       00202        ORG 130               FORCE NEW RECORD                                       
       00202  0 01303 0 01353        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00202        TXH 130               7052  FT  36                                           
                                         I30               7056  FT  36                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01354 0 01311        HTR PR,0,PR+35                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE             
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276024    
       01320  466321276051    
       01321  252346512460    
       01322  265146446063    
       01323  214725600373    
       01324  602631432560    
       01325  013360605125           BCD  1.  RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                         
       01326  234651246023    
       01327  464563213145    
       01330  626021604564    
       01331  442225516046    
       01332  266011606646    
       01333  512460254563    
       01334  513125623360    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP AT LOCATION 7043 ONLY READS FIRST AND SECOND WORD             
       01340  464647602163    
       01341  604346232163    
       01342  314645600700    
       01343  040360464543    
       01344  706051252124    
       01345  626026315162    
       01346  636021452460    
       01347  622523464524    
       01350  606646512460    
       01351  462660252123           BCD 3OF EACH ENTRY.                                                          
       01352  306025456351    
       01353  703360606060    
       01354  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       56                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 131               FORCE NEW RECORD                                       
1                       00203        ORG 131               FORCE NEW RECORD                                       
       00203  0 01303 0 01375        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00203        TXH 131               7103  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01376 0 01311        HTR PR,0,PR+53                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5.  RE            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600273    
       01323  602631432560    
       01324  053360605125    
       01325  234651246260           BCD  CORDS IN THIS FILE ARE MINIMUM 2 WORDS,                                 
       01326  314560633031    
       01327  626026314325    
       01330  602151256044    
       01331  314531446444    
       01332  600260664651    
       01333  246273606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  312425456331           BCD  IDENTIFICATION AND WORD COUNT.  COPY AT LOCATION 7101 IS AT             
       01340  263123216331    
       01341  464560214524    
       01342  606646512460    
       01343  234664456333    
       01344  606023464770    
       01345  602163604346    
       01346  232163314645    
       01347  600701000160    
       01350  316260216360    
       01351  432521626360           BCD  LEAST THIRD COPY GIVEN, AND IS PROGRAMMED                               
       01352  633031512460    
       01353  234647706027    
       01354  316525457360    
       01355  214524603162    
       01356  604751462751    
       01357  214444252460    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  634660263145           BCD  TO FIND END OF RECORD SKIP.  COPY LOOP BEGINS AT LOCATION 70            
       01364  246025452460    
       01365  462660512523    
       01366  465124606242    
       01367  314733606023    
       01370  464770604346    
       01371  464760222527    
       01372  314562602163    
       01373  604346232163    
       01374  314645600700    
       01375  070033606060           BCD 170.                                                                     
       01376  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       73                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 132               FORCE NEW RECORD                                       
1                       00204        ORG 132               FORCE NEW RECORD                                       
       00204  0 01303 0 01367        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00204        TXH 132               7135  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01370 0 01311        HTR PR,0,PR+47                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5, REC            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600273    
       01323  602631432560    
       01324  057360512523    
       01325  465124601033           BCD  ORD 8.  COPY LOOP IS GENERAL                                            
       01326  606023464770    
       01327  604346464760    
       01330  316260272545    
       01331  255121436060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  626422514664           BCD  SUBROUTINE AT LOCATION 7060.  COPY AT LOCATION 7133 IS PROGR            
       01340  633145256021    
       01341  636043462321    
       01342  633146456007    
       01343  000600336060    
       01344  234647706021    
       01345  636043462321    
       01346  633146456007    
       01347  010303603162    
       01350  604751462751    
       01351  214444252460           BCD  AMMED TO FIND END OF RECORD SKIP                                        
       01352  634660263145    
       01353  246025452460    
       01354  462660512523    
       01355  465124606242    
       01356  314760606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  264651606330           BCD 5FOR THIS SPECIFIC RECORD.                                               
       01364  316260624725    
       01365  233126312360    
       01366  512523465124    
       01367  336060606060    
       01370  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       67                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 133               FORCE NEW RECORD                                       
1                       00205        ORG 133               FORCE NEW RECORD                                       
       00205  0 01303 0 01356        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00205        TXH 133                 60  FT  56                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01357 0 01311        HTR PR,0,PR+38                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING FORTAG RECORD TAPE 2, FILE 5, R            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276026    
       01320  465163212760    
       01321  512523465124    
       01322  606321472560    
       01323  027360263143    
       01324  256005736051    
       01325  252346512460           BCD  ECORD 11.  THERE ARE 14 RECORDS                                         
       01326  010133606063    
       01327  302551256021    
       01330  512560010460    
       01331  512523465124    
       01332  626060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314560633031           BCD  IN THIS FILE.  COPY LOOP IS AT LOCATION 43.  COPY AT LOCATIO            
       01340  626026314325    
       01341  336060234647    
       01342  706043464647    
       01343  603162602163    
       01344  604346232163    
       01345  314645600403    
       01346  336060234647    
       01347  706021636043    
       01350  462321633146    
       01351  456005066062           BCD 6N 56 SHOULD FIND END OF RECORD SKIP.                                    
       01352  304664432460    
       01353  263145246025    
       01354  452460462660    
       01355  512523465124    
       01356  606242314733    
       01357  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       58                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 134               FORCE NEW RECORD                                       
1                       00206        ORG 134               FORCE NEW RECORD                                       
       00206  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00206        TXH 134                340  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TIFGO FROM TAPE 2, FILE 5, RECO            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  312627466026    
       01321  514644606321    
       01322  472560027360    
       01323  263143256005    
       01324  736051252346    
       01325  512460063360           BCD  RD 6.  THERE ARE 14 RECORDS IN THIS FILE.                               
       01326  606330255125    
       01327  602151256001    
       01330  046051252346    
       01331  512462603145    
       01332  606330316260    
       01333  263143253360    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706021           BCD  COPY AT LOCATION 336 SHOULD FIND END OF RECORD SKIP.                    
       01340  636043462321    
       01341  633146456003    
       01342  030660623046    
       01343  644324602631    
       01344  452460254524    
       01345  604626605125    
       01346  234651246062    
       01347  423147336060    
       01350  606060606060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 135               FORCE NEW RECORD                                       
1                       00207        ORG 135               FORCE NEW RECORD                                       
       00207  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00207        TXH 135                366  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TRAD RECORD TAPE 2, FILE 5, REC            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  512124605125    
       01321  234651246063    
       01322  214725600273    
       01323  602631432560    
       01324  057360512523    
       01325  465124600733           BCD  ORD 7.  THERE ARE 14 RECORDS                                            
       01326  606063302551    
       01327  256021512560    
       01330  010460512523    
       01331  465124626060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314560633031           BCD  IN THIS FILE.  COPY LOOP IS AT LOCATION 352.  COPY AT LOCATI            
       01340  626026314325    
       01341  336060234647    
       01342  706043464647    
       01343  603162602163    
       01344  604346232163    
       01345  314645600305    
       01346  023360602346    
       01347  477060216360    
       01350  434623216331    
       01351  464560030604           BCD 7ON 364 SHOULD FIND END OF RECORD SKIP.                                  
       01352  606230466443    
       01353  246026314524    
       01354  602545246046    
       01355  266051252346    
       01356  512460624231    
       01357  473360606060    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 136               FORCE NEW RECORD                                       
1                       00210        ORG 136               FORCE NEW RECORD                                       
       00210  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00210        TXH 136                417  FT  58                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TRALEV RECORD FROM TAPE 4, FILE            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  512143256560    
       01321  512523465124    
       01322  602651464460    
       01323  632147256004    
       01324  736026314325    
       01325  600173605125           BCD   1, RECORD 1.  COPY LOOP IS AT LOCATION 401.                            
       01326  234651246001    
       01327  336060234647    
       01330  706043464647    
       01331  603162602163    
       01332  604346232163    
       01333  314645600400    
       01334  013360606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706021           BCD 9COPY AT LOCATION 415 SHOULD FIND END OF RECORD SKIP.                    
       01340  636043462321    
       01341  633146456004    
       01342  010560623046    
       01343  644324602631    
       01344  452460254524    
       01345  604626605125    
       01346  234651246062    
       01347  423147336060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 137               FORCE NEW RECORD                                       
1                       00211        ORG 137               FORCE NEW RECORD                                       
       00211  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00211        TXH 137                454  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TIFGO RECORD FROM TAPE 2, FILE             
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  312627466051    
       01321  252346512460    
       01322  265146446063    
       01323  214725600273    
       01324  602631432560    
       01325  057360512523           BCD 85, RECORD 6.  COPY LOOP IS AT LOCATION 447.                             
       01326  465124600633    
       01327  606023464770    
       01330  604346464760    
       01331  316260216360    
       01332  434623216331    
       01333  464560040407    
       01334  336060606060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 138               FORCE NEW RECORD                                       
1                       00212        ORG 138               FORCE NEW RECORD                                       
       00212  0 01303 0 01334        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00212        TXH 138                534  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01335 0 01311        HTR PR,0,PR+20                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TRAD RECORD FROM TAPE 2, FILE 5            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  512124605125    
       01321  234651246026    
       01322  514644606321    
       01323  472560027360    
       01324  263143256005    
       01325  736051252346           BCD 8, RECORD 7.  COPY LOOP IS AT LOCATION 530.                              
       01326  512460073360    
       01327  602346477060    
       01330  434646476031    
       01331  626021636043    
       01332  462321633146    
       01333  456005030033    
       01334  606060606060    
       01335  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       40                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 139               FORCE NEW RECORD                                       
1                       00213        ORG 139               FORCE NEW RECORD                                       
       00213  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00213        TXH 139                336  FT  86                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, WHICH SHOUL            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600373    
       01323  606630312330    
       01324  606230466443    
       01325  246030216525           BCD  D HAVE BEEN POSITIONED AFTER FILE MARK                                  
       01326  602225254560    
       01327  474662316331    
       01330  464525246021    
       01331  266325516026    
       01332  314325604421    
       01333  514260606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  216360633025           BCD  AT THE END OF THE 8TH FILE.  COPY LOOP IS AT LOCATION 325.              
       01340  602545246046    
       01341  266063302560    
       01342  106330602631    
       01343  432533606023    
       01344  464770604346    
       01345  464760316260    
       01346  216360434623    
       01347  216331464560    
       01350  030205336060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 140               FORCE NEW RECORD                                       
1                       00214        ORG 140               FORCE NEW RECORD                                       
       00214  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00214        TXH 140               1211  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,X                                                                   
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3.  TH            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600373    
       01323  602631432560    
       01324  033360606330    
       01325  256225602151           BCD  ESE ARE 15 WORD RECORDS AND                                             
       01326  256001056066    
       01327  465124605125    
       01330  234651246260    
       01331  214524606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025512560           BCD  THERE IS AN END OF FILE MARK.  COPY LOOP IS AT LOCATION 1172            
       01340  316260214560    
       01341  254524604626    
       01342  602631432560    
       01343  442151423360    
       01344  602346477060    
       01345  434646476031    
       01346  626021636043    
       01347  462321633146    
       01350  456001010702    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 141               FORCE NEW RECORD                                       
1                       00215        ORG 141               FORCE NEW RECORD                                       
       00215  0 01303 0 01344        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00215        TXH 141               1221  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01345 0 01311        HTR PR,0,PR+28                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3.  TH            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600373    
       01323  602631432560    
       01324  033360606330    
       01325  316260263143           BCD  IS FILE DOES NOT HAVE A FILE MARK AT THE END.                           
       01326  256024462562    
       01327  604546636030    
       01330  216525602160    
       01331  263143256044    
       01332  215142602163    
       01333  606330256025    
       01334  452433606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD 6COPY LOOP IS AT LOCATION 1172.                                          
       01340  464647603162    
       01341  602163604346    
       01342  232163314645    
       01343  600101070233    
       01344  606060606060    
       01345  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       48                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 142               FORCE NEW RECORD                                       
1                       00216        ORG 142               FORCE NEW RECORD                                       
       00216  0 01303 0 01374        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00216        TXH 142                37  FT  90                                            
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01375 0 01311        HTR PR,0,PR+52                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING CIT RECORD FROM TAPE 3, WHICH S            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276023    
       01320  316360512523    
       01321  465124602651    
       01322  464460632147    
       01323  256003736066    
       01324  303123306062    
       01325  304664432460           BCD  HOULD HAVE BEEN POSITIONED AFTER FILE MARK.                             
       01326  302165256022    
       01327  252545604746    
       01330  623163314645    
       01331  252460212663    
       01332  255160263143    
       01333  256044215142    
       01334  336060606060    
       01335  606060606060    
       01336  606060606060    
       01337  234647706043           BCD  COPY LOOP BEGINS AT LOCATION 30 WITH 2 BST INSTRUCTIONS.  CO            
       01340  464647602225    
       01341  273145626021    
       01342  636043462321    
       01343  633146456003    
       01344  006066316330    
       01345  600260226263    
       01346  603145626351    
       01347  642363314645    
       01350  623360602346    
       01351  477060216360           BCD  PY AT 35 IS PROGRAMMED                                                  
       01352  030560316260    
       01353  475146275121    
       01354  444425246060    
       01355  606060606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  634660263145           BCD  TO FIND END OF RECORD SKIP.                                             
       01364  246025452460    
       01365  462660512523    
       01366  465124606242    
       01367  314733606060    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       72                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 143               FORCE NEW RECORD                                       
1                       00217        ORG 143               FORCE NEW RECORD                                       
       00217  0 01303 0 01362        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00217        TXH 143                321  FT  90                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01363 0 01311        HTR PR,0,PR+42                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING A RECORD FROM TAPE 2.  COPY LOO            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276021    
       01320  605125234651    
       01321  246026514644    
       01322  606321472560    
       01323  023360602346    
       01324  477060434646    
       01325  476031626021           BCD  P IS AT LOCATION 305 AND READS FROM                                     
       01326  636043462321    
       01327  633146456003    
       01330  000560214524    
       01331  605125212462    
       01332  602651464460    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  263143256003           BCD  FILE 3, 4, 5, 7, 9 OR 10.  COPY AT LOCATION 317 IS PROGRAMME            
       01340  736004736005    
       01341  736007736011    
       01342  604651600100    
       01343  336060234647    
       01344  706021636043    
       01345  462321633146    
       01346  456003010760    
       01347  316260475146    
       01350  275121444425    
       01351  246063466026           BCD  D TO FIND END OF RECORD SKIP.                                           
       01352  314524602545    
       01353  246046266051    
       01354  252346512460    
       01355  624231473360    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       62                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 144               FORCE NEW RECORD                                       
1                       00220        ORG 144               FORCE NEW RECORD                                       
       00220  0 01303 0 01332        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00220        TXH 144               1341  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01333 0 01311        HTR PR,0,PR+18                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 2, F            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600273    
       01323  605125234651    
       01324  246002736026    
       01325  314325600533           BCD 6ILE 5.  COPY LOOP IS AT LOCATION 135.                                   
       01326  606023464770    
       01327  604346464760    
       01330  316260216360    
       01331  434623216331    
       01332  464560010305    
       01333  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       38                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 145               FORCE NEW RECORD                                       
1                       00221        ORG 145               FORCE NEW RECORD                                       
       00221  0 01303 0 01333        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00221        TXH 145               1347  FT  92                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01334 0 01311        HTR PR,0,PR+19                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 4, F            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276051    
       01320  252346512460    
       01321  265146446063    
       01322  214725600273    
       01323  605125234651    
       01324  246004736026    
       01325  314325600533           BCD 7ILE 5.  COPY LOOP IS AT LOCATION 1131.                                  
       01326  606023464770    
       01327  604346464760    
       01330  316260216360    
       01331  434623216331    
       01332  464560010103    
       01333  013360606060    
       01334  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 146               FORCE NEW RECORD                                       
1                       00222        ORG 146               FORCE NEW RECORD                                       
       00222  0 01303 0 01350        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00222        TXH 146               3672  FT  115                                          
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01351 0 01311        HTR PR,0,PR+32                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING TAPE RECORD OF CARD IMAGE FROM             
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  214725605125    
       01321  234651246046    
       01322  266023215124    
       01323  603144212725    
       01324  602651464460    
       01325  632147256003           BCD  TAPE 3.  COPY AT LOCATION 3670 SHOULD                                   
       01326  336060234647    
       01327  706021636043    
       01330  462321633146    
       01331  456003060700    
       01332  606230466443    
       01333  246060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  232164622560           BCD  CAUSE END OF RECORD SKIP.  COPY LOOP IS AT LOCATION 3655.               
       01340  254524604626    
       01341  605125234651    
       01342  246062423147    
       01343  336060234647    
       01344  706043464647    
       01345  603162602163    
       01346  604346232163    
       01347  314645600306    
       01350  050533606060    
       01351  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 147               FORCE NEW RECORD                                       
1                       00223        ORG 147               FORCE NEW RECORD                                       
       00223  0 01303 0 01351        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00223        TXH 147                427  FT  96                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01352 0 01311        HTR PR,0,PR+33                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING THE COMMON RECORD FROM TAPE 2,             
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276063    
       01320  302560234644    
       01321  444645605125    
       01322  234651246026    
       01323  514644606321    
       01324  472560027360    
       01325  512523465124           BCD  RECORD 3, FILE 5.  COPY LOOP IS AT LOCATION 404.                        
       01326  600373602631    
       01327  432560053360    
       01330  602346477060    
       01331  434646476031    
       01332  626021636043    
       01333  462321633146    
       01334  456004000433    
       01335  606060606060    
       01336  606060606060    
       01337  234647706021           BCD  COPY AT LOCATION 414 IS PROGRAMMED TO FIND END OF RECORD SKI            
       01340  636043462321    
       01341  633146456004    
       01342  010460316260    
       01343  475146275121    
       01344  444425246063    
       01345  466026314524    
       01346  602545246046    
       01347  266051252346    
       01350  512460624231    
       01351  473360606060           BCD 1P.                                                                      
       01352  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       53                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 148               FORCE NEW RECORD                                       
1                       00224        ORG 148               FORCE NEW RECORD                                       
       00224  0 01303 0 01352        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00224        TXH 148                624  FT  98                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01353 0 01311        HTR PR,0,PR+34                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262143622560           BCD  FALSE END OF FILE IN READING SUBDEF TABLE FROM TAPE 2, RECOR            
       01314  254524604626    
       01315  602631432560    
       01316  314560512521    
       01317  243145276062    
       01320  642224252660    
       01321  632122432560    
       01322  265146446063    
       01323  214725600273    
       01324  605125234651    
       01325  246002736026           BCD  D 2, FILE 5.  COPY LOOP IS AT                                           
       01326  314325600533    
       01327  606023464770    
       01330  604346464760    
       01331  316260216360    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434623216331           BCD  LOCATION 454.  COPY AT 464 IS PROGRAMMED TO FIND END OF RECO            
       01340  464560040504    
       01341  336060234647    
       01342  706021636004    
       01343  060460316260    
       01344  475146275121    
       01345  444425246063    
       01346  466026314524    
       01347  602545246046    
       01350  266051252346    
       01351  512460624231           BCD 2RD SKIP.                                                                
       01352  473360606060    
       01353  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       54                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 149               FORCE NEW RECORD                                       
1                       00225        ORG 149               FORCE NEW RECORD                                       
       00225  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00225        TXH 149               6004  FT  32                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  216062642262           BCD  A SUBSCRIPT COMBINATION, AT LEAST 1 INDEX OF WHICH IS UNDER             
       01314  235131476360    
       01315  234644223145    
       01316  216331464573    
       01317  602163604325    
       01320  216263600160    
       01321  314524256760    
       01322  462660663031    
       01323  233060316260    
       01324  644524255160    
       01325  234645635146           BCD  CONTROL OF A DO, IS BEING EXAMINED.                                     
       01326  436046266021    
       01327  602446736031    
       01330  626022253145    
       01331  276025672144    
       01332  314525243360    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  216062642262           BCD  A SUBSCRIPT HAS BEEN FOUND WITHOUT SUCH AN INDEX.  THE LOGIC            
       01340  235131476360    
       01341  302162602225    
       01342  254560264664    
       01343  452460663163    
       01344  304664636062    
       01345  642330602145    
       01346  603145242567    
       01347  336060633025    
       01350  604346273123    
       01351  604626606330           BCD 7 OF THE PROGRAM MAKES THIS IMPOSSIBLE.                                  
       01352  256047514627    
       01353  512144604421    
       01354  422562606330    
       01355  316260314447    
       01356  466262312243    
       01357  253360606060    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 150               FORCE NEW RECORD                                       
1                       00226        ORG 150               FORCE NEW RECORD                                       
       00226  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00226        TXH 150               6710  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  514664633145           BCD  ROUTINE AT LOCATION 6711 SHOULD BE ABLE TO CONTINUE ANALYSIS            
       01314  256021636043    
       01315  462321633146    
       01316  456006070101    
       01317  606230466443    
       01320  246022256021    
       01321  224325606346    
       01322  602346456331    
       01323  456425602145    
       01324  214370623162    
       01325  604626604525           BCD   OF NEXT DO IN NEST.  CURRENT LEVEL FOR AN                              
       01326  676360244660    
       01327  314560452562    
       01330  633360602364    
       01331  515125456360    
       01332  432565254360    
       01333  264651602145    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314545255160           BCD  INNER DO HAS BEEN REDUCED TO 1.  LOGIC OF THE PROGRAM MAKES             
       01340  244660302162    
       01341  602225254560    
       01342  512524642325    
       01343  246063466001    
       01344  336060434627    
       01345  312360462660    
       01346  633025604751    
       01347  462751214460    
       01350  442142256260    
       01351  633031626031           BCD 5THIS IMPOSSIBLE.                                                        
       01352  444746626231    
       01353  224325336060    
       01354  606060606060    
       01355  606060606060    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 151               FORCE NEW RECORD                                       
1                       00227        ORG 151               FORCE NEW RECORD                                       
       00227  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00227        TXH 151               6373  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  216024466045           BCD  A DO NESTED WITHIN ANOTHER DO HAS BEEN FOUND TO HAVE A LEVEL            
       01314  256263252460    
       01315  663163303145    
       01316  602145466330    
       01317  255160244660    
       01320  302162602225    
       01321  254560264664    
       01322  452460634660    
       01323  302165256021    
       01324  604325652543    
       01325  602162623127           BCD   ASSIGNMENT LESS THAN OR EQUAL TO 1.                                    
       01326  454425456360    
       01327  432562626063    
       01330  302145604651    
       01331  602550642143    
       01332  606346600133    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  633025604346           BCD  THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. THE LEVEL CO            
       01340  273123604626    
       01341  606330256047    
       01342  514627512144    
       01343  604421422562    
       01344  606330316260    
       01345  314447466262    
       01346  312243253360    
       01347  633025604325    
       01350  652543602346    
       01351  644563603162           BCD 5UNT IS IN INDEX REGISTER 2.                                             
       01352  603145603145    
       01353  242567605125    
       01354  273162632551    
       01355  600233606060    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 152               FORCE NEW RECORD                                       
1                       00230        ORG 152               FORCE NEW RECORD                                       
       00230  0 01303 0 01366        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00230        TXH 152               6376  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01367 0 01311        HTR PR,0,PR+46                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314524256760           BCD  INDEX REGISTER 1 HAS BEEN INCREMENTED BEYOND THE MAXIMUM SET            
       01314  512527316263    
       01315  255160016030    
       01316  216260222525    
       01317  456031452351    
       01320  254425456325    
       01321  246022257046    
       01322  452460633025    
       01323  604421673144    
       01324  644460622563    
       01325  633145276047           BCD  TING PERMISSABLE IN THIS SECTION OF PROGRAM,                            
       01326  255144316262    
       01327  212243256031    
       01330  456063303162    
       01331  606225236331    
       01332  464560462660    
       01333  475146275121    
       01334  447360606060    
       01335  606060606060    
       01336  606060606060    
       01337  242562473163           BCD  DESPITE A TEST IN THE ROUTINE WHICH PREVENTS THIS.  PROGRAM             
       01340  256021606325    
       01341  626360314560    
       01342  633025605146    
       01343  646331452560    
       01344  663031233060    
       01345  475125652545    
       01346  636260633031    
       01347  623360604751    
       01350  462751214460    
       01351  623046644324           BCD  SHOULD BE ABLE TO OBTAIN DOTAG ENTRY                                    
       01352  602225602122    
       01353  432560634660    
       01354  462263213145    
       01355  602446632127    
       01356  602545635170    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  264651604525           BCD 4FOR NEXT OUTER DO.                                                      
       01364  676360466463    
       01365  255160244633    
       01366  606060606060    
       01367  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       66                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 153               FORCE NEW RECORD                                       
1                       00231        ORG 153               FORCE NEW RECORD                                       
       00231  0 01303 0 01400        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00231        TXH 153               5742  FT  27                                           
                                         153               5763  FT  27                                           
                                         153               5764  FT  27                                           
                        06306 TIFX   SYN 3270              6306 OCTAL                                             
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 50000 0 06306        CLA TIFX              CURRENT INDEX TO TIFGO ENTRIES                         
       01307  0 77100 0 00022        ARS 18                                                                       
       01310  0 62100 0 01400        STA TIFGO                                                                    
       01311  0 50000 0 01377        CLA TIFZ              ADDRESS OF TIFGO BUFFER, THIS IS NOW                   
       01312  0 40200 0 01400        SUB TIFGO             CN DRUM 4                                              
       01313  0 62100 0 01340        STA A                                                                        
       01314  0 76200 0 00304        RDR 4                                                                        
       01315  0 46000 0 01340        LDA A                                                                        
       01316  0 70000 0 01400        CPY TIFGO             INTERNAL NUMBER OF TIFGO IN DECREMENT                  
       01317  0 50000 0 01400        CLA TIFGO                                                                    
       01320  0 77100 0 00022        ARS 18                GET EXTERNAL STATEMENT NUMBER                          
       01321  0 07400 4 00613        TSX EXBETA,4                                                                 
       01322  0 60200 0 01400        SLW TIFGO              123 FROM ABOVE INTO COMMENT                           
       01323 -0 50000 0 01350        CAL COMA                                                                     
       01324  0 77100 0 00022        ARS 18                                                                       
       01325  0 56000 0 01400        LDQ TIFGO                                                                    
       01326 -0 76300 0 00022        LGL 18                                                                       
       01327  0 60200 0 01350        SLW COMA                                                                     
       01330 -0 76300 0 00022        LGL 18                45 FROM ABOVE INTO REST OF COMMENT                     
       01331  0 56000 0 01351        LDQ COMB                                                                     
       01332 -0 77300 0 00022        RQL 18                SHIFT 2 CHARACTERS OUT OF MQ                           
       01333 -0 76300 0 00022        LGL 18                                                                       
       01334  0 60200 0 01351        SLW COMB                                                                     
       01335  0 07400 4 00740        TSX PRINT,4                                                                  
       01336  0 01377 0 01341        HTR PR,0,PR+30                                                               
       01337  0 02000 0 00221        TRA DIGRTN                                                                   
       01340  0 00000 0 00000 A                                                                                   
       01341  606060606060    PR     BCD 2                                                                        
       01342  606060606060    
       01343  633025603126           BCD 5THE IF OR GO TO STATEMENT NUMB                                          
       01344  604651602746    
       01345  606346606263    
       01346  216325442545    
       01347  636045644422    
       01350  255160606060    COMA   BCD 1ER                                                                      
       01351  606060603021    COMB   BCD 1    HA                                                                  
       01352  626022252545           BCD  S BEEN ASSIGNED A CLASSIFICATION HIGHER THAN 6.                         
       01353  602162623127    
       01354  452524602160    
       01355  234321626231    
       01356  263123216331    
       01357  464560303127    
       01360  302551606330    
       01361  214560063360    
       01362  606060606060    
       01363  606060606060    
       01364  606060606060           BCD 3                                                                        
       01365  606060606060    
       01366  606060606060    
       01367  633025604346           BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
       01370  273123604626    
       01371  606330256047    
       01372  514627512144    
       01373  604421422562    
       01374  606330316260    
       01375  314447466262    
       01376  312243253360    
       01377  0 00000 0 03670 TIFZ   HTR 1976              3670 OCTAL                                             
       01400  0 00000 0 00000 TIFGO  HTR 0                                                                        
       01401  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      48           0           0           0           0
 LIB       0           0           0           0           0
 COL      48           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       79                  
0NUMBER OF SYMBOLS,  DEF   203,DEFOP     0,UNDEF     0      
9            ORG 154               FORCE NEW RECORD                                       
1                       00232        ORG 154               FORCE NEW RECORD                                       
       00232  0 01303 0 01360        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00232        TXH 154               5773  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01361 0 01311        HTR PR,0,PR+40                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  234645632545           BCD  CONTENTS OF DOIND (LOCATION 5230) DO NOT MATCH CONTENTS OF E            
       01314  636260462660    
       01315  244631452460    
       01316  744346232163    
       01317  314645600502    
       01320  030034602446    
       01321  604546636044    
       01322  216323306023    
       01323  464563254563    
       01324  626046266025    
       01325  316330255160           BCD  ITHER TAG2+1,2  (LOCATION 3650),  TAG2+2,2  OR                          
       01326  632127022001    
       01327  730260607443    
       01330  462321633146    
       01331  456003060500    
       01332  347360606321    
       01333  270220027302    
       01334  606046516060    
       01335  606060606060    
       01336  606060606060    
       01337  632127022003           BCD  TAG2+3,2.  LOGIC OF PROGRAM MAKES THIS IMPOSSIBLE.  SUBROUTI            
       01340  730233606043    
       01341  462731236046    
       01342  266047514627    
       01343  512144604421    
       01344  422562606330    
       01345  316260314447    
       01346  466262312243    
       01347  253360606264    
       01350  225146646331    
       01351  452560663031           BCD 8NE WHICH CANNOT FIND MATCH IS AT LOCATION 4204.                         
       01352  233060232145    
       01353  454663602631    
       01354  452460442163    
       01355  233060316260    
       01356  216360434623    
       01357  216331464560    
       01360  040200043360    
       01361  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       60                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 155               FORCE NEW RECORD                                       
1                       00233        ORG 155               FORCE NEW RECORD                                       
       00233  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00233        TXH 155               6353  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632122432560           BCD  TABLE SEARCH FAILURE.  LOGIC OF PROGRAM MAKES THIS IMPOSSIBL            
       01314  622521512330    
       01315  602621314364    
       01316  512533606043    
       01317  462731236046    
       01320  266047514627    
       01321  512144604421    
       01322  422562606330    
       01323  316260314447    
       01324  466262312243    
       01325  253360606264           BCD  E.  SUBROUTINE AT LOCATION 6277 COMPILES                                
       01326  225146646331    
       01327  452560216360    
       01330  434623216331    
       01331  464560060207    
       01332  076023464447    
       01333  314325626060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  215127644425           BCD  ARGUMENT (LOCATION 5243) WHICH SUBROUTINE AT LOCATION 6354 I            
       01340  456360744346    
       01341  232163314645    
       01342  600502040334    
       01343  606630312330    
       01344  606264225146    
       01345  646331452560    
       01346  216360434623    
       01347  216331464560    
       01350  060305046031    
       01351  626064452122           BCD 7S UNABLE TO MATCH IN A BLOCK OF CONSTANTS.                              
       01352  432560634660    
       01353  442163233060    
       01354  314560216022    
       01355  434623426046    
       01356  266023464562    
       01357  632145636233    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 156               FORCE NEW RECORD                                       
1                       00234        ORG 156               FORCE NEW RECORD                                       
       00234  0 01303 0 01351        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00234        TXH 156               7110  FT  43                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01352 0 01311        HTR PR,0,PR+33                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  632122432560           BCD  TABLE BEGINNING AT LOCATION 6400 HAS BEEN ORDERED BY ROUTINE            
       01314  222527314545    
       01315  314527602163    
       01316  604346232163    
       01317  314645600604    
       01320  000060302162    
       01321  602225254560    
       01322  465124255125    
       01323  246022706051    
       01324  466463314525    
       01325  602163604346           BCD   AT LOCATION 7053.                                                      
       01326  232163314645    
       01327  600700050333    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  232162603145           BCD  CAS INSTRUCTION AT LOCATION 7105 SHOWS THAT TABLE IS OUT OF             
       01340  626351642363    
       01341  314645602163    
       01342  604346232163    
       01343  314645600701    
       01344  000560623046    
       01345  666260633021    
       01346  636063212243    
       01347  256031626046    
       01350  646360462660    
       01351  465124255133           BCD 1ORDER.                                                                  
       01352  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       53                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 157               FORCE NEW RECORD                                       
1                       00235        ORG 157               FORCE NEW RECORD                                       
       00235  0 01303 0 01414        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00235        TXH 157                354  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01415 0 01311        HTR PR,0,PR+68                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  454660254563           BCD  NO ENTRY IN TIFRED TABLE FOR A VARIABLE FROM AN ASSIGNED GO             
       01314  517060314560    
       01315  633126512524    
       01316  606321224325    
       01317  602646516021    
       01320  606521513121    
       01321  224325602651    
       01322  464460214560    
       01323  216262312745    
       01324  252460274660    
       01325  634660626321           BCD  TO STATEMENT IN THE COMPILED INSTRUCTIONS.                              
       01326  632544254563    
       01327  603145606330    
       01330  256023464447    
       01331  314325246031    
       01332  456263516423    
       01333  633146456233    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434627312360           BCD  LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.  STOP MAY BE DUE            
       01340  462660633025    
       01341  604751462751    
       01342  214460442142    
       01343  256260633031    
       01344  626031444746    
       01345  626231224325    
       01346  336060626346    
       01347  476044217060    
       01350  222560246425    
       01351  606346602551           BCD   TO ERROR BY SUBROUTINE AT LOCATION 435 IN THE                          
       01352  514651602270    
       01353  606264225146    
       01354  646331452560    
       01355  216360434623    
       01356  216331464560    
       01357  040305603145    
       01360  606330256060    
       01361  606060606060    
       01362  606060606060    
       01363  475125653146           BCD  PREVIOUS FORTRAN RECORD, WHICH ACCUMULATES ASSIGNED GO TO EN            
       01364  646260264651    
       01365  635121456051    
       01366  252346512473    
       01367  606630312330    
       01370  602123236444    
       01371  644321632562    
       01372  602162623127    
       01373  452524602746    
       01374  606346602545    
       01375  635131256260           BCD  TRIES AS IT READS TAPE 2 AND WRITES                                     
       01376  216260316360    
       01377  512521246260    
       01400  632147256002    
       01401  602145246066    
       01402  513163256260    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  633025446021           BCD 6THEM AS THE TIFRED TABLE ON DRUM 1.                                     
       01410  626063302560    
       01411  633126512524    
       01412  606321224325    
       01413  604645602451    
       01414  644460013360    
       01415  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       88                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 158               FORCE NEW RECORD                                       
1                       00236        ORG 158               FORCE NEW RECORD                                       
       00236  0 01303 0 01360        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00236        TXH 158                711  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01361 0 01311        HTR PR,0,PR+40                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD  MISCOMPILED ENTRY IN FRET TABLE, TAPE 2, FILE 5, RECORD 12.             
       01314  473143252460    
       01315  254563517060    
       01316  314560265125    
       01317  636063212243    
       01320  257360632147    
       01321  256002736026    
       01322  314325600573    
       01323  605125234651    
       01324  246001023360    
       01325  604321626360           BCD   LAST WORD OF RECORD INTRODUCES                                         
       01326  664651246046    
       01327  266051252346    
       01330  512460314563    
       01331  514624642325    
       01332  626060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  452566606263           BCD  NEW STATEMENT NUMBER, BUT NO ENTRIES FOLLOW WHICH WOULD GIVE            
       01340  216325442545    
       01341  636045644422    
       01342  255173602264    
       01343  636045466025    
       01344  456351312562    
       01345  602646434346    
       01346  666066303123    
       01347  306066466443    
       01350  246027316525    
       01351  602651255064           BCD 8 FREQUENCY INFORMATION ABOUT THE STATEMENT.                             
       01352  254523706031    
       01353  452646514421    
       01354  633146456021    
       01355  224664636063    
       01356  302560626321    
       01357  632544254563    
       01360  336060606060    
       01361  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       60                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 159               FORCE NEW RECORD                                       
1                       00237        ORG 159               FORCE NEW RECORD                                       
       00237  0 01303 0 01370        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00237        TXH 159                556  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01371 0 01311        HTR PR,0,PR+48                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD  MISCOMPILED ENTRY IN CIT TABLE.  THE TYPE OF STATEMENT A IF             
       01314  473143252460    
       01315  254563517060    
       01316  314560233163    
       01317  606321224325    
       01320  336060633025    
       01321  606370472560    
       01322  462660626321    
       01323  632544254563    
       01324  602160312660    
       01325  742534604501           BCD  (E) N1, N2, N3                                                          
       01326  736045027360    
       01327  450360606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  316260635121           BCD  IS TRANSLATED TO TZE, TPL AND TRA.  A TZE HAS BEEN FOUND IN             
       01340  456243216325    
       01341  246063466063    
       01342  712573606347    
       01343  436021452460    
       01344  635121336060    
       01345  216063712560    
       01346  302162602225    
       01347  254560264664    
       01350  452460314560    
       01351  632122432560           BCD  TABLE OF COMPILED INSTRUCTIONS,                                         
       01352  462660234644    
       01353  473143252460    
       01354  314562635164    
       01355  236331464562    
       01356  736060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  663031233060           BCD 6WHICH IS NOT IN THIS SEQUENCE.                                          
       01364  316260454663    
       01365  603145606330    
       01366  316260622550    
       01367  642545232533    
       01370  606060606060    
       01371  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      18           0           0           0           0
 LIB       0           0           0           0           0
 COL      18           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       68                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 160               FORCE NEW RECORD                                       
1                       00240        ORG 160               FORCE NEW RECORD                                       
       00240  0 01303 0 01317        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00240        TXH 160               3001  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01320 0 01311        HTR PR,0,PR+7                                                                
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD 5MISCOMPILED GO TO STATEMENT.                                            
       01314  473143252460    
       01315  274660634660    
       01316  626321632544    
       01317  254563336060    
       01320  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      14           0           0           0           0
 LIB       0           0           0           0           0
 COL      14           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       27                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 161               FORCE NEW RECORD                                       
1                       00241        ORG 161               FORCE NEW RECORD                                       
       00241  0 01303 0 01317        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00241        TXH 161               3253  FT  88                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01320 0 01311        HTR PR,0,PR+7                                                                
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD 5MISCOMPILED IF STATEMENT.                                               
       01314  473143252460    
       01315  312660626321    
       01316  632544254563    
       01317  336060606060    
       01320  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      14           0           0           0           0
 LIB       0           0           0           0           0
 COL      14           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       27                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 162               FORCE NEW RECORD                                       
1                       00242        ORG 162               FORCE NEW RECORD                                       
       00242  0 01303 0 01331        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00242        TXH 162                345  FT   5                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01332 0 01311        HTR PR,0,PR+17                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD  MISCOMPILED NAME.  IMPOSSIBLE BCD CHARACTER AS THE FIRST CHA            
       01314  473143252460    
       01315  452144253360    
       01316  603144474662    
       01317  623122432560    
       01320  222324602330    
       01321  215121236325    
       01322  516021626063    
       01323  302560263151    
       01324  626360233021    
       01325  512123632551           BCD 5RACTER IN A SYMBOLIC ADDRESS.                                           
       01326  603145602160    
       01327  627044224643    
       01330  312360212424    
       01331  512562623360    
       01332  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       37                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 163               FORCE NEW RECORD                                       
1                       00243        ORG 163               FORCE NEW RECORD                                       
       00243  0 01303 0 01316        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00243        TXH 163                443  FT 103                                           
                                          163                520  FT 113                                          
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01317 0 01311        HTR PR,0,PR+6                                                                
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD 4MISCOMPILED SYNONYM.                                                    
       01314  473143252460    
       01315  627045464570    
       01316  443360606060    
       01317  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       27                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 164               FORCE NEW RECORD                                       
1                       00244        ORG 164               FORCE NEW RECORD                                       
       00244  0 01303 0 01324        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00244        TXH 164                252  FT 105                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01325 0 01311        HTR PR,0,PR+12                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD  MISCOMPILED NAME.  FORSUB ENTRY NOT IN SYMBOL TABLE.                    
       01314  473143252460    
       01315  452144253360    
       01316  602646516264    
       01317  226025456351    
       01320  706045466360    
       01321  314560627044    
       01322  224643606321    
       01323  224325336060    
       01324  606060606060    
       01325  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      14           0           0           0           0
 LIB       0           0           0           0           0
 COL      14           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       32                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 165               FORCE NEW RECORD                                       
1                       00245        ORG 165               FORCE NEW RECORD                                       
       00245  0 01303 0 01323        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00245        TXH 165                312  FT 113                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01324 0 01311        HTR PR,0,PR+11                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  443162234644           BCD 9MISCOMPILED NAME. VARIABLE NAME NOT IN SYMBOL TABLE.                    
       01314  473143252460    
       01315  452144253360    
       01316  652151312122    
       01317  432560452144    
       01320  256045466360    
       01321  314560627044    
       01322  224643606321    
       01323  224325336060    
       01324  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      14           0           0           0           0
 LIB       0           0           0           0           0
 COL      14           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       31                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 166               FORCE NEW RECORD                                       
1                       00246        ORG 166               FORCE NEW RECORD                                       
       00246  0 01303 0 01332        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00246        TXH 166                661  FT  75                                           
                                         166               1022  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01333 0 01311        HTR PR,0,PR+18                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314524256760           BCD  INDEX REGISTER FOR CURRENT TAG HAS NOT BEEN CHOSEN.  LOGIC O            
       01314  512527316263    
       01315  255160264651    
       01316  602364515125    
       01317  456360632127    
       01320  603021626045    
       01321  466360222525    
       01322  456023304662    
       01323  254533606043    
       01324  462731236046    
       01325  266047514627           BCD 6F PROGRAM MAKES THIS IMPOSSIBLE.                                        
       01326  512144604421    
       01327  422562606330    
       01330  316260314447    
       01331  466262312243    
       01332  253360606060    
       01333  0 00000 0 00000 X                                                                                   
 A                      00000        END                                      -,                                  
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       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 167               FORCE NEW RECORD                                       
1                       00247        ORG 167               FORCE NEW RECORD                                       
       00247  0 01303 0 01355        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00247        TXH 167                301  FT  67                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01356 0 01311        HTR PR,0,PR+37                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  626422514664           BCD  SUBROUTINE AT LOCATION 276 HAS ATTEMPTED TO READ ANOTHER BUF            
       01314  633145256021    
       01315  636043462321    
       01316  633146456002    
       01317  070660302162    
       01320  602163632544    
       01321  476325246063    
       01322  466051252124    
       01323  602145466330    
       01324  255160226426    
       01325  262551604626           BCD  FER OF THE FRET TABLE ON DRUM 2.  A PREVIOUS                            
       01326  606330256026    
       01327  512563606321    
       01330  224325604645    
       01331  602451644460    
       01332  023360602160    
       01333  475125653146    
       01334  646260606060    
       01335  606060606060    
       01336  606060606060    
       01337  472162626063           BCD  PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHOW THAT ALL             
       01340  305146642730    
       01341  606330316260    
       01342  514664633145    
       01343  256030216260    
       01344  622563602160    
       01345  623127452143    
       01346  606346606230    
       01347  466660633021    
       01350  636021434360    
       01351  265125636025           BCD 5FRET ENTRIES ARE IN CORE.                                               
       01352  456351312562    
       01353  602151256031    
       01354  456023465125    
       01355  336060606060    
       01356  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       57                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 168               FORCE NEW RECORD                                       
1                       00250        ORG 168               FORCE NEW RECORD                                       
       00250  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00250        TXH 168               3064  FT  64                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  626422514664           BCD  SUBROUTINE AT LOCATION 3064 HAS ATTEMPTED TO READ ANOTHER BU            
       01314  633145256021    
       01315  636043462321    
       01316  633146456003    
       01317  000604603021    
       01320  626021636325    
       01321  444763252460    
       01322  634660512521    
       01323  246021454663    
       01324  302551602264    
       01325  262625516046           BCD  FFER OF THE TIFRD TABLE FROM DRUM 1.                                    
       01326  266063302560    
       01327  633126512460    
       01330  632122432560    
       01331  265146446024    
       01332  516444600133    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  216047512565           BCD  A PREVIOUS PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHO            
       01340  314664626047    
       01341  216262606330    
       01342  514664273060    
       01343  633031626051    
       01344  466463314525    
       01345  603021626062    
       01346  256360216062    
       01347  312745214360    
       01350  634660623046    
       01351  666063302163           BCD 7W THAT ALL TIFRD ENTRIES ARE IN CORE.                                   
       01352  602143436063    
       01353  312651246025    
       01354  456351312562    
       01355  602151256031    
       01356  456023465125    
       01357  336060606060    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 169               FORCE NEW RECORD                                       
1                       00251        ORG 169               FORCE NEW RECORD                                       
       00251  0 01303 0 01327        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00251        TXH 169                762  FT  75                                           
                                         169               1634  FT  75                                           
                                         169               1777  FT  75                                           
                                         169               4031  FT  75                                           
                                         169               4303  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01330 0 01311        HTR PR,0,PR+15                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  472551446463           BCD  PERMUTATION NUMBER MATCH NOT FOUND.  LOGIC OF PROGRAM MAKES             
       01314  216331464560    
       01315  456444222551    
       01316  604421632330    
       01317  604546636026    
       01320  466445243360    
       01321  604346273123    
       01322  604626604751    
       01323  462751214460    
       01324  442142256260    
       01325  633031626031           BCD 3THIS IMPOSSIBLE.                                                        
       01326  444746626231    
       01327  224325336060    
       01330  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      19           0           0           0           0
 LIB       0           0           0           0           0
 COL      19           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 170               FORCE NEW RECORD                                       
1                       00252        ORG 170               FORCE NEW RECORD                                       
       00252  0 01303 0 01416        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00252        TXH 170               1307  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01417 0 01311        HTR PR,0,PR+70                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  255151465160           BCD  ERROR IN COMPUTING CHECK SUM OF FLOCON TABLE.  THIS TABLE CO            
       01314  314560234644    
       01315  476463314527    
       01316  602330252342    
       01317  606264446046    
       01320  266026434623    
       01321  464560632122    
       01322  432533606063    
       01323  303162606321    
       01324  224325602346    
       01325  456231626362           BCD  NSISTS OF BLOCKS OF FIFTY WORDS, EACH BLOCK                             
       01326  604626602243    
       01327  462342626046    
       01330  266026312663    
       01331  706066465124    
       01332  627360252123    
       01333  306022434623    
       01334  426060606060    
       01335  606060606060    
       01336  606060606060    
       01337  475125232524           BCD  PRECEDED BY ITS OWN CHECK SUM.  THE ACL INSTRUCTION AT LOCAT            
       01340  252460227060    
       01341  316362604666    
       01342  456023302523    
       01343  426062644433    
       01344  606063302560    
       01345  212343603145    
       01346  626351642363    
       01347  314645602163    
       01350  604346232163    
       01351  314645600102           BCD  ION 1261 HAS PICKED UP THE CHECK SUM OF                                 
       01352  060160302162    
       01353  604731234225    
       01354  246064476063    
       01355  302560233025    
       01356  234260626444    
       01357  604626606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  633025604525           BCD  THE NEXT BLOCK AND THE TNX INSTRUCTION AT 1263 SHOWS THAT TH            
       01364  676360224346    
       01365  234260214524    
       01366  606330256063    
       01367  456760314562    
       01370  635164236331    
       01371  464560216360    
       01372  010206036062    
       01373  304666626063    
       01374  302163606330    
       01375  255125602151           BCD  ERE ARE NO ENTRIES IN THE BLOCK.                                        
       01376  256045466025    
       01377  456351312562    
       01400  603145606330    
       01401  256022434623    
       01402  423360606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  633025604346           BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
       01410  273123604626    
       01411  606330256047    
       01412  514627512144    
       01413  604421422562    
       01414  606330316260    
       01415  314447466262    
       01416  312243253360    
       01417  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       90                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 171               FORCE NEW RECORD                                       
1                       00253        ORG 171               FORCE NEW RECORD                                       
       00253  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00253        TXH 171               1076  FT  45                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR            
       01314  312243256063    
       01315  512145622625    
       01316  516063466026    
       01317  315162636031    
       01320  456263516423    
       01321  633146456026    
       01322  464343466631    
       01323  452760232162    
       01324  603145626351    
       01325  642363314645           BCD  UCTION AT LOCATION 1075.  TLQ INSTRUCTION                               
       01326  602163604346    
       01327  232163314645    
       01330  600100070533    
       01331  606063435060    
       01332  314562635164    
       01333  236331464560    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  216360434623           BCD  AT LOCATION 1073 HAS JUST PROVED THAT WORD FROM LOCATION 140            
       01340  216331464560    
       01341  010007036030    
       01342  216260416462    
       01343  636047514665    
       01344  252460633021    
       01345  636066465124    
       01346  602651464460    
       01347  434623216331    
       01350  464560010400    
       01351  066031626043           BCD 76 IS LESS THAN WORD IN LOCATION 1410.                                   
       01352  256262606330    
       01353  214560664651    
       01354  246031456043    
       01355  462321633146    
       01356  456001040100    
       01357  336060606060    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 172               FORCE NEW RECORD                                       
1                       00254        ORG 172               FORCE NEW RECORD                                       
       00254  0 01303 0 01357        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00254        TXH 172               4623  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01360 0 01311        HTR PR,0,PR+39                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR            
       01314  312243256063    
       01315  512145622625    
       01316  516063466026    
       01317  315162636031    
       01320  456263516423    
       01321  633146456026    
       01322  464343466631    
       01323  452760232162    
       01324  603145626351    
       01325  642363314645           BCD  UCTION AT LOCATION 4622.  TLQ INSTRUCTION                               
       01326  602163604346    
       01327  232163314645    
       01330  600406020233    
       01331  606063435060    
       01332  314562635164    
       01333  236331464560    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  216360434623           BCD  AT LOCATION 4620 HAS JUST PROVED THAT WORD FROM LOCATION 524            
       01340  216331464560    
       01341  040602006030    
       01342  216260416462    
       01343  636047514665    
       01344  252460633021    
       01345  636066465124    
       01346  602651464460    
       01347  434623216331    
       01350  464560050204    
       01351  036031626043           BCD 73 IS LESS THAN WORD IN LOCATION 5246.                                   
       01352  256262606330    
       01353  214560664651    
       01354  246031456043    
       01355  462321633146    
       01356  456005020406    
       01357  336060606060    
       01360  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       59                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 173               FORCE NEW RECORD                                       
1                       00255        ORG 173               FORCE NEW RECORD                                       
       00255  0 01303 0 01333        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00255        TXH 173               5232  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01334 0 01311        HTR PR,0,PR+19                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE ERROR RETURN FROM SUBROUTINE AT LOCATION 5566.  L            
       01314  312243256025    
       01315  515146516051    
       01316  256364514560    
       01317  265146446062    
       01320  642251466463    
       01321  314525602163    
       01322  604346232163    
       01323  314645600505    
       01324  060633606043    
       01325  462731236046           BCD 7OGIC OF PROGRAM MAKES THIS IMPOSSIBLE.                                  
       01326  266047514627    
       01327  512144604421    
       01330  422562606330    
       01331  316260314447    
       01332  466262312243    
       01333  253360606060    
       01334  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 174               FORCE NEW RECORD                                       
1                       00256        ORG 174               FORCE NEW RECORD                                       
       00256  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00256        TXH 174               4124  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600401           BCD  ION 4122 WHICH COMPARES                                                 
       01326  020260663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 175               FORCE NEW RECORD                                       
1                       00257        ORG 175               FORCE NEW RECORD                                       
       00257  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00257        TXH 175               4157  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600401           BCD  ION 4155 WHICH COMPARES                                                 
       01326  050560663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 176               FORCE NEW RECORD                                       
1                       00260        ORG 176               FORCE NEW RECORD                                       
       00260  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00260        TXH 176               4405  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600404           BCD  ION 4403 WHICH COMPARES                                                 
       01326  000360663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 177               FORCE NEW RECORD                                       
1                       00261        ORG 177               FORCE NEW RECORD                                       
       00261  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00261        TXH 177               4533  FT  51                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600405           BCD  ION 4531 WHICH COMPARES                                                 
       01326  030160663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 178               FORCE NEW RECORD                                       
1                       00262        ORG 178               FORCE NEW RECORD                                       
       00262  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00262        TXH 178               5721  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600507           BCD  ION 5717 WHICH COMPARES                                                 
       01326  010760663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 179               FORCE NEW RECORD                                       
1                       00263        ORG 179               FORCE NEW RECORD                                       
       00263  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00263        TXH 179               6253  FT  32                                           
                                         179               6256  FT  32                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600602           BCD  ION 6251 OR 6254. ROUTINE ANALYSES DIFFERENT                            
       01326  050160465160    
       01327  060205043360    
       01330  514664633145    
       01331  256021452143    
       01332  706225626024    
       01333  312626255125    
       01334  456360606060    
       01335  606060606060    
       01336  606060606060    
       01337  626422622351           BCD 9SUBSCRIPTS AFTER DUPLICATES HAVE BEEN ELIMINATED.                       
       01340  314763626021    
       01341  266325516024    
       01342  644743312321    
       01343  632562603021    
       01344  652560222525    
       01345  456025433144    
       01346  314521632524    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      17           0           0           0           0
 LIB       0           0           0           0           0
 COL      17           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       52                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 180               FORCE NEW RECORD                                       
1                       00264        ORG 180               FORCE NEW RECORD                                       
       00264  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00264        TXH 180               6635  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600606           BCD  ION 6633 WHICH COMPARES                                                 
       01326  030360663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 181               FORCE NEW RECORD                                       
1                       00265        ORG 181               FORCE NEW RECORD                                       
       00265  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00265        TXH 181               7023  FT  27                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600700           BCD  ION 7021 WHICH COMPARES                                                 
       01326  020160663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS                        
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  606060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 182               FORCE NEW RECORD                                       
1                       00266        ORG 182               FORCE NEW RECORD                                       
       00266  0 01303 0 01347        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00266        TXH 182               7073  FT  39                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01350 0 01311        HTR PR,0,PR+31                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  314447466262           BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT            
       01314  312243256025    
       01315  506421433163    
       01316  706023464524    
       01317  316331464560    
       01320  212663255160    
       01321  232162603145    
       01322  626351642363    
       01323  314645602163    
       01324  604346232163    
       01325  314645600700           BCD  ION 7071 WHICH COMPARES                                                 
       01326  070160663031    
       01327  233060234644    
       01330  472151256260    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  314563255145           BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                       
       01340  214360264651    
       01341  446443216045    
       01342  644422255162    
       01343  604626602431    
       01344  262625512545    
       01345  636062632163    
       01346  254425456362    
       01347  336060606060    
       01350  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       51                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 183               FORCE NEW RECORD                                       
1                       00267        ORG 183               FORCE NEW RECORD                                       
       00267  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00267        TXH 183                425  FT  73                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  243165316231           BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 421 HAVE NOT BEE            
       01314  464560314562    
       01315  635164236331    
       01316  464562602225    
       01317  273145453145    
       01320  276021636043    
       01321  462321633146    
       01322  456004020160    
       01323  302165256045    
       01324  466360222525    
       01325  456025672523           BCD  N EXECUTED.                                                             
       01326  646325243360    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434627312360           BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                             
       01340  462660633025    
       01341  604751462751    
       01342  214460442142    
       01343  256260633031    
       01344  626031444746    
       01345  626231224325    
       01346  336060606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       50                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 184               FORCE NEW RECORD                                       
1                       00270        ORG 184               FORCE NEW RECORD                                       
       00270  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00270        TXH 184                510  FT  73                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  243165316231           BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 501 HAVE NOT BEE            
       01314  464560314562    
       01315  635164236331    
       01316  464562602225    
       01317  273145453145    
       01320  276021636043    
       01321  462321633146    
       01322  456005000160    
       01323  302165256045    
       01324  466360222525    
       01325  456025672523           BCD  N EXECUTED.                                                             
       01326  646325243360    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434627312360           BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                             
       01340  462660633025    
       01341  604751462751    
       01342  214460442142    
       01343  256260633031    
       01344  626031444746    
       01345  626231224325    
       01346  336060606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       50                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 185               FORCE NEW RECORD                                       
1                       00271        ORG 185               FORCE NEW RECORD                                       
       00271  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00271        TXH 185               1234  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  243165316231           BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1226 HAVE NOT BE            
       01314  464560314562    
       01315  635164236331    
       01316  464562602225    
       01317  273145453145    
       01320  276021636043    
       01321  462321633146    
       01322  456001020206    
       01323  603021652560    
       01324  454663602225    
       01325  254560256725           BCD  EN EXECUTED.                                                            
       01326  236463252433    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434627312360           BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                             
       01340  462660633025    
       01341  604751462751    
       01342  214460442142    
       01343  256260633031    
       01344  626031444746    
       01345  626231224325    
       01346  336060606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       50                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 186               FORCE NEW RECORD                                       
1                       00272        ORG 186               FORCE NEW RECORD                                       
       00272  0 01303 0 01346        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00272        TXH 186               1261  FT  62                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01347 0 01311        HTR PR,0,PR+30                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  243165316231           BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1253 HAVE NOT BE            
       01314  464560314562    
       01315  635164236331    
       01316  464562602225    
       01317  273145453145    
       01320  276021636043    
       01321  462321633146    
       01322  456001020503    
       01323  603021652560    
       01324  454663602225    
       01325  254560256725           BCD  EN EXECUTED.                                                            
       01326  236463252433    
       01327  606060606060    
       01330  606060606060    
       01331  606060606060    
       01332  606060606060    
       01333  606060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  434627312360           BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                             
       01340  462660633025    
       01341  604751462751    
       01342  214460442142    
       01343  256260633031    
       01344  626031444746    
       01345  626231224325    
       01346  336060606060    
       01347  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
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       50                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 187               FORCE NEW RECORD                                       
1                       00273        ORG 187               FORCE NEW RECORD                                       
       00273  0 01303 0 01325        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00273        TXH 187               2230  FT  75                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01326 0 01311        HTR PR,0,PR+13                                                               
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  243165312425           BCD  DIVIDE CHECK.  LOGIC OF PROGRAM IS SUCH THAT THIS IS IMPOSSI            
       01314  602330252342    
       01315  336060434627    
       01316  312360462660    
       01317  475146275121    
       01320  446031626062    
       01321  642330606330    
       01322  216360633031    
       01323  626031626031    
       01324  444746626231    
       01325  224325336060           BCD 1BLE.                                                                    
       01326  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       33                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 188               FORCE NEW RECORD                                       
1                       00274        ORG 188               FORCE NEW RECORD                                       
       00274  0 01303 0 01472        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00274        TXH 188                377  FT  56                                           
                                         188                424  FT  56                                           
                                         188                613  FT  56                                           
                                         188                654  FT  56                                           
                                         I88               1000  FT  56                                           
                                         188               1115  FT  56                                           
                                         I88               1320  FT  56                                           
                                         188               1531  FT  56                                           
                                         188               1767  FT  56                                           
                                         188               7143  FT  56                                           
                                         I88                132  FT  60                                           
                                         188                173  FT  60                                           
                                         168                227  FT  60                                           
                                         188                252  FT  60                                           
                                         188                334  FT  60                                           
                                         188                423  FT  60                                           
                                         188                442  FT  60                                           
                                         I8B                521  FT  60                                           
                                         188                544  FT  60                                           
                                         188                305  FT  60                                           
                                         188                363  FT  60                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01244 0 01237        HTR MACHIN,0,MACHIN+5                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01473 0 01311        HTR PR,0,PR+114                                                              
       01310  0 02000 0 00221        TRA DIGRTN                                                                   
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  262131436451           BCD  FAILURE OF CAS INSTRUCTION OR INDEX REGISTERS IN EXAMINING 4            
       01314  256046266023    
       01315  216260314562    
       01316  635164236331    
       01317  464560465160    
       01320  314524256760    
       01321  512527316263    
       01322  255162603145    
       01323  602567214431    
       01324  453145276004    
       01325  606646512460           BCD   WORD ENTRY FROM ONE OF THE RECORDS LISTED.                             
       01326  254563517060    
       01327  265146446046    
       01330  452560462660    
       01331  633025605125    
       01332  234651246260    
       01333  433162632524    
       01334  336060606060    
       01335  606060606060    
       01336  606060606060    
       01337  254563517060           BCD  ENTRY IS SHOWN TO BE GREATER THAN 4 WORDS.  LOGIC OF THE PRO            
       01340  316260623046    
       01341  664560634660    
       01342  222560275125    
       01343  216325516063    
       01344  302145600460    
       01345  664651246233    
       01346  606043462731    
       01347  236046266063    
       01350  302560475146    
       01351  275121446044           BCD  GRAM MAKES THIS IMPOSSIBLE.                                             
       01352  214225626063    
       01353  303162603144    
       01354  474662623122    
       01355  432533606060    
       01356  606060606060    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    
       01362  606060606060    
       01363  606060606060           BCD 2                                                                        
       01364  606060606060    
       01365  233163605125           BCD  CIT RECORD, TAPE 2, FILE 2                                              
       01366  234651247360    
       01367  632147256002    
       01370  736026314325    
       01371  600260606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  606060606060    
       01376  606060606060    
       01377  606060606060           BCD                                                                          
       01400  606060606060    
       01401  606060606060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  606060606060    
       01410  606060606060    
       01411  234644472446           BCD  COMPDO RECORD, TAPE 4, FILE 2                                           
       01412  605125234651    
       01413  247360632147    
       01414  256004736026    
       01415  314325600260    
       01416  606060606060    
       01417  606060606060    
       01420  606060606060    
       01421  606060606060    
       01422  606060606060    
       01423  606060606060           BCD                                                                          
       01424  606060606060    
       01425  606060606060    
       01426  606060606060    
       01427  606060606060    
       01430  606060606060    
       01431  606060606060    
       01432  606060606060    
       01433  606060606060    
       01434  606060606060    
       01435  244626314322           BCD  DOFILB RECORD, TAPE 2, FILE 8                                           
       01436  605125234651    
       01437  247360632147    
       01440  256002736026    
       01441  314325601060    
       01442  606060606060    
       01443  606060606060    
       01444  606060606060    
       01445  606060606060    
       01446  606060606060    
       01447  606060606060           BCD                                                                          
       01450  606060606060    
       01451  606060606060    
       01452  606060606060    
       01453  606060606060    
       01454  606060606060    
       01455  606060606060    
       01456  606060606060    
       01457  606060606060    
       01460  606060606060    
       01461  442551272524           BCD  MERGED COMPAIL AND COMPDO RECORDS, TAPE 3, FILE 1                       
       01462  602346444721    
       01463  314360214524    
       01464  602346444724    
       01465  466051252346    
       01466  512462736063    
       01467  214725600373    
       01470  602631432560    
       01471  016060606060    
       01472  606060606060    
       01473  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      45           0           0           0           0
 LIB       0           0           0           0           0
 COL      45           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      154                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 189               FORCE NEW RECORD                                       
1                       00275        ORG 189               FORCE NEW RECORD                                       
       00275  0 01303 0 01420        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00275        TXH 189               6063  FT  32                                           
                                         189               6475  FT  32                                           
                                         189               5273  FT  34                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 76200 0 00304        RDR 4                                                                        
       01307  0 46000 0 01320        LDA A                                                                        
       01310  0 70000 0 00527        CPY ALFBET                                                                   
       01311  0 70000 0 00530        CPY SYM                                                                      
       01312  0 07400 4 00740        TSX PRINT,4                                                                  
       01313  0 01361 0 01321        HTR PR,0,PR+32                                                               
       01314  0 07400 4 00505        TSX FX4PR,4                                                                  
       01315  0 07400 4 00740        TSX PRINT,4                                                                  
       01316  0 01421 0 01361        HTR PR1,0,PR1+32                                                             
       01317  0 02000 0 00272        TRA SPEND                                                                    
       01320  0 00000 0 00037 A      HTR831                                                                       
       01321  606060606060    PR     BCD 2                                                                        
       01322  606060606060    
       01323  214560314563           BCD  AN INTERMEDIATE CORE TABLE IS FULL.  THE SUBSCRIPT COMBINATI            
       01324  255144252431    
       01325  216325602346    
       01326  512560632122    
       01327  432560316260    
       01330  266443433360    
       01331  606330256062    
       01332  642262235131    
       01333  476360234644    
       01334  223145216331    
       01335  464562602145           BCD  ONS AND FLOW STRUCTURE                                                  
       01336  246026434666    
       01337  606263516423    
       01340  636451256060    
       01341  606060606060    
       01342  606060606060    
       01343  606060606060    
       01344  606060606060    
       01345  606060606060    
       01346  606060606060    
       01347  215125606346           BCD  ARE TOO COMPLEX WITHIN A DO NEST.  THE STATEMENT                        
       01350  466023464447    
       01351  432567606631    
       01352  633031456021    
       01353  602446604525    
       01354  626333606063    
       01355  302560626321    
       01356  632544254563    
       01357  606060606060    
       01360  606060606060    
       01361  606060606060    PR1    BCD 2                                                                        
       01362  606060606060    
       01363  316260633025           BCD  IS THE OUTERMOST DO OF THE NEST WHICH HAS CAUSED THE OVERFLO            
       01364  604664632551    
       01365  444662636024    
       01366  466046266063    
       01367  302560452562    
       01370  636066303123    
       01371  306030216260    
       01372  232164622524    
       01373  606330256046    
       01374  652551264346    
       01375  663360605125           BCD  W.  REWRITE NEST AND SIMPLIFY                                   -,      
       01376  665131632560    
       01377  452562636021    
       01400  452460623144    
       01401  474331267060    
       01402  606060606060    
       01403  606060606060    
       01404  606060606060    
       01405  606060606060    
       01406  606060606060    
       01407  626422622351           BCD  SUBSCRIPT COMBINATIONS OR FLOW STRUCTURE.                               
       01410  314763602346    
       01411  442231452163    
       01412  314645626046    
       01413  516026434666    
       01414  606263516423    
       01415  636451253360    
       01416  606060606060    
       01417  606060606060    
       01420  606060606060    
       01421  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      30           0           0           0           0
 LIB       0           0           0           0           0
 COL      30           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       94                  
0NUMBER OF SYMBOLS,  DEF   199,DEFOP     0,UNDEF     0      
9            ORG 190               FORCE NEW RECORD                                       
1                       00276        ORG 190               FORCE NEW RECORD                                       
       00276  0 01303 0 01523        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00276        TXH 190               7620  FT  21                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 50000 0 01227        CLA ADDMSK            PUT AWAY TABLE IDENTIFICATION WORD                     
                        16531 IDWD   SYN87513              TABLE IDENTIFICATION AT LOC 7513                       
       01307 -0 32000 0 16531        ANA IDWD                                                                     
       01310  0 60100 0 01257        STO ERAS                                                                     
       01311  0 53400 1 01232        LXA ZERO,1                                                                   
 M     01312  0 50000 1 01464 SEARCH CLA TBLWD,1           TABLE SEARCH                                           
       01313  0 40200 0 01257        SUB ERAS                                                                     
       01314  0 10000 0 01441        TZE PACK                                                                     
       01315  1 77776 1 01316        TXI A,1,-2                                                                   
 M     01316  3 77740 1 01312 A      TXH SEARCH,1,-32                                                             
       01317  0 07400 4 00740        TSX PRINT,4                                                                  
       01320  0 01441 0 01323        HTR ER,0,ER+78                                                               
       01321  0 00000 0 01322        HTR E                                                                        
       01322  0 02000 0 00221 E      TRA DIGRTN                                                                   
       01323  606060606060    ER     BCD 2                                                                        
       01324  606060606060    
       01325  216063212243           BCD  A TABLE COMPILED BY SECTION 1 PRIME HAS EXCEEDED THE BUFFER             
       01326  256023464447    
       01327  314325246022    
       01330  706062252363    
       01331  314645600160    
       01332  475131442560    
       01333  302162602567    
       01334  232525242524    
       01335  606330256022    
       01336  642626255160    
       01337  623171253360           BCD  SIZE.  THIS DIAGNOSTIC RECORD COMPARES                                  
       01340  606330316260    
       01341  243121274546    
       01342  626331236051    
       01343  252346512460    
       01344  234644472151    
       01345  256260606060    
       01346  606060606060    
       01347  606060606060    
       01350  606060606060    
       01351  633025606321           BCD  THE TABLE IDENTIFICATION WORD IN THE ADDRESS OF 7513 TO A LI            
       01352  224325603124    
       01353  254563312631    
       01354  232163314645    
       01355  606646512460    
       01356  314560633025    
       01357  602124245125    
       01360  626260462660    
       01361  070501036063    
       01362  466021604331    
       01363  626360462660           BCD  ST OF 16 POSSIBLE TABLES.                                               
       01364  010660474662    
       01365  623122432560    
       01366  632122432562    
       01367  336060606060    
       01370  606060606060    
       01371  606060606060    
       01372  606060606060    
       01373  606060606060    
       01374  606060606060    
       01375  633025606225           BCD  THE SEARCH HAS FAILED.  THE ALLOWED TABLE IDENTIFICATION NUM            
       01376  215123306030    
       01377  216260262131    
       01400  432524336060    
       01401  633025602143    
       01402  434666252460    
       01403  632122432560    
       01404  312425456331    
       01405  263123216331    
       01406  464560456444    
       01407  222551626021           BCD  BERS ARE IN LOCATIONS 1464,                                             
       01410  512560314560    
       01411  434623216331    
       01412  464562600104    
       01413  060473606060    
       01414  606060606060    
       01415  606060606060    
       01416  606060606060    
       01417  606060606060    
       01420  606060606060    
       01421  010406046047           BCD  1464 PLUS 2, ETC.  PRESS START IF YOU WISH TO RESTORE MACHIN            
       01422  436462600273    
       01423  602563233360    
       01424  604751256262    
       01425  606263215163    
       01426  603126607046    
       01427  646066316230    
       01430  606346605125    
       01431  626346512560    
       01432  442123303145    
       01433  256063466062           BCD 6E TO STATE IN WHICH ERROR OCCURRED.                                     
       01434  632163256031    
       01435  456066303123    
       01436  306025515146    
       01437  516046232364    
       01440  515125243360    
       01441 -0 50000 1 01465 PACK   CAL TBLWD+1,1                                                                
       01442  0 60200 0 01450        SLW PR1                                                                      
       01443  0 07400 4 00740        TSX PRINT,4                                                                  
       01444  0 01464 0 01446        HTR PR,0,PR+14                                                               
       01445  0 02000 0 00272        TRA SPEND                                                                    
       01446  606060606060    PR     BCD 2                                                                        
       01447  606060606060    
       01450  606060606060    PR1    BCD 1                                                                        
       01451  606321224325           BCD   TABLE HAS EXCEEDED THE BUFFER SIZE.  REWRITE SOURCE PROGRAM            
       01452  603021626025    
       01453  672325252425    
       01454  246063302560    
       01455  226426262551    
       01456  606231712533    
       01457  606051256651    
       01460  316325606246    
       01461  645123256047    
       01462  514627512144    
       01463  336060606060           BCD 1.                                                                       
       01464  0 00000 0 00017 TBLWD  HTR 15                                                                       
       01465  636263464762           BCD 1TSTOPS                                                                  
       01466  0 00000 0 00016        HTR 14                                                                       
       01467  454645256723           BCD 1NONEXC                                                                  
       01470  0 00000 0 00015        HTR 13                                                                       
       01471  304643215127           BCD 1HOLARG                                                                  
       01472  0 00000 0 00014        HTR 12                                                                       
       01473  234644444645           BCD 1COMMON                                                                  
       01474  0 00000 0 00013        HTR 11                                                                       
       01475  626422215127           BCD 1SUBARG                                                                  
       01476  0 00000 0 00012        HTR 10                                                                       
       01477  264651442163           BCD 1FORMAT                                                                  
       01500  0 00000 0 00011        HTR 9                                                                        
       01501  234346626422           BCD 1CLOSUB                                                                  
       01502  0 00000 0 00010        HTR 8                                                                        
       01503  255064316360           BCD 1EQUIT                                                                   
       01504  0 00000 0 00007        HTR 7                                                                        
       01505  265125636060           BCD 1FRET                                                                    
       01506  0 00000 0 00006        HTR 6                                                                        
       01507  264651652143           BCD 1FORVAL                                                                  
       01510  0 00000 0 00005        HTR 5                                                                        
       01511  264651652151           BCD 1FORVAR                                                                  
       01512  0 00000 0 00004        HTR 4                                                                        
       01513  264651632127           BCD 1FORTAG                                                                  
       01514  0 00000 0 00003        HTR 3                                                                        
       01515  635121246060           BCD 1TRAD                                                                    
       01516  0 00000 0 00002        HTR 2                                                                        
       01517  633126274660           BCD 1TIFGO                                                                   
       01520  0 00000 0 00001        HTR 1                                                                        
       01521  632446606060           BCD 1TDO                                                                     
       01522  0 00000 0 00000        HTR 0                                                                        
       01523  632531264546           BCD 1TEIFNO                                                                  
       01524  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
                              SEARCH 01312,00120
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      73           0           0           0           0
 LIB       0           0           0           0           0
 COL      73           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      161                  
0NUMBER OF SYMBOLS,  DEF   205,DEFOP     0,UNDEF     0      
9            ORG 191               FORCE NEW RECORD                                       
1                       00277        ORG 191               FORCE NEW RECORD                                       
       00277  0 01303 0 01336        HTR X-1,0,LOCREC      CARD FOR DE                                            
                        01303        ORG LOCREC                                                                   
 TD    01303  3 00000 0 00277        TXH 191               1160  FT  22                                           
       01304  0 07400 4 00740        TSX PRINT,4                                                                  
       01305  0 01252 0 01244        HTR SOURCE,0,SOURCE+6                                                        
       01306  0 07400 4 00740        TSX PRINT,4                                                                  
       01307  0 01337 0 01311        HTR PR,0,PR+22                                                               
       01310  0 02000 0 00272        TRA SPEND                                                                    
       01311  606060606060    PR     BCD 2                                                                        
       01312  606060606060    
       01313  454660314562           BCD  NO INSTRUCTIONS WERE COMPILED.  CORRECT SOURCE PROGRAM TO HA            
       01314  635164236331    
       01315  464562606625    
       01316  512560234644    
       01317  473143252433    
       01320  606023465151    
       01321  252363606246    
       01322  645123256047    
       01323  514627512144    
       01324  606346603021    
       01325  652560216360           BCD  VE AT LEAST ONE EXECUTABLE STATEMENT.                                   
       01326  432521626360    
       01327  464525602567    
       01330  252364632122    
       01331  432560626321    
       01332  632544254563    
       01333  336060606060    
       01334  606060606060    
       01335  606060606060    
       01336  606060606060    
       01337  0 00000 0 00000 X                                                                                   
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      15           0           0           0           0
 LIB       0           0           0           0           0
 COL      15           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       42                  
0NUMBER OF SYMBOLS,  DEF   197,DEFOP     0,UNDEF     0      
9            ORG 192               FORCE NEW RECORD