1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 373/377 ------           
       00000  0 00000 0 00000              ORG 3641                                                               
                        07071        ORG 3641                                                                     
                                           MASTER RECORD CARD = FN055                                             
                                         ROUTINE T0 HANDLE ADDITIONAL SU8ROUTINES IF DESIRED          F3B12180    
       07071  2 00001 4 01306        TIX M13505,4,1        COMPARE H1D FOR-PRESENT SUBROUTINES        F3B12190    
       07072 -0 53400 4 02170        LXD L(0),4            COMPARE ADD IT, 0PEN-SUBS,=IN=H1D2S        F3B12200    
       07073  0 34000 4 07122  0P1   CAS M1D2,4            WITH CURRENT NAHE.-  ----, .- U.=.         F3B12210    
       07074  1 77777 4 07077        TXI 0P2,4,-1          N0T F0UND, GET-NEXT H1D2 ENTRY             F3B12220    
       07075  0 02000 0 07101        TRA 0P3               F0UND    .   ) ---) -.=. -=)=)             F3B12230    
       07076  1 77777 4 07077        TXI 0P2,4,-1          N0T F0UND, GET NEXT M1D2 ENTRY             F3B12240    
       07077  3 77776 4 07073  0P2   TXH 0P1,4,M1D2L       TEST FOR END OF.H1D2..=. -=)=).            F3B12250    
       07100  0 07400 4 00004        TSX 4,4               CURRENT SUB N0T IN-H1D2                    F3B12260    
       07101 -0 63400 4 02312  0P3   SXD CCELL,4           SAVE 1RC FOR LATER 8RANCH OF SAME INST.    F3B12270    
       07102  1 77776 1 07103        TXI 0P3+2,1,-2        INDEX T0 GET NEXT44-WORD-INSTR.U4 ,=S).    F3B12280    
       07103  0 07400 4 07137        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)-4 .-=). ====U=))N,    F3B12310    
       07106  0 02000 0 07172        TRA XDIM              OPEN SUB IS XDIM.--                        F3B12320    
       07107  0 02000 0 07173        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                   T0 ADDITIONAL 0PEN SUBS-HUST 8E=ORDER=     F3B12360    
 A     07113  0 00000 0 00000        HTR                   ED IN THE SAHE WAY AS-THE-ADDIT)0NAL=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 0PEN SUBROUTINES, AND          F3B12440    
                                         C0NSTANTS USED IN THE DISCRIMINATION PROCEDURE. --=          F3B12450    
       07122  672431446060     M1D2  BCD 1XDIM             0PEN SUB XDIH )  .  --.--,4--.             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                                               -- -.-= ==P=.  F3B12490    
 A     07126  0 00000 0 00000        HTR                                                              F3B12500    
 A     07127  0 00000 0 00000        HTR                                                              F3B12510    
 A     07130  0 00000 0 00000        HTR                                                             1C1IICI1I    
 A     07131  0 00000 0 00000        HTR                                                             1C1IICI1I    
 A     07132  0 00000 0 00000        HTR                                                              F3B12530    
 A     07133  0 00000 0 00000        HTR                                                              F3B12540    
 A     07134  0 00000 0 00000        HTR                                                              F3B12550    
 A     07135  0 00000 0 00000        HTR                                                              F3B12560    
                                         F0UR SUBROUTINES USED IN COMPILING 0PEN SUBROUTINES          F3B12570    
       07136  0 00000 0 00000                                                                                     
       07137 -0 63400 4 07232  TEST  SXD C,4               SAVE LINKAGE                               F3B12590    
       07140 -0 75400 1 00000        PXD 0,1               COMPARE CURRENT VALUE OF IR1 WITH          F3B12600    
       07141  0 34000 0 02305        CAS M1ALWN            2S COMPL. OF WORD COUNT. .=. ...=          F3B12620    
       07142  0 02000 4 00001        TRA 1,4                                     ..                   F3B12630    
       07143  0 07400 4 00341        TSX M10210,4        CURRENT RECORD EXHAUSTED                     F3B12640    
       07144  0 07400 4 00004        TSX 4,4               ST0P. N0 OF WDS. IN CUR REC EXCEEDS WD     F3B12650    
       07145  0 00000 0 00000                                                                                     
       07146 -0 53400 4 07232        LXD C,4               COUNTRE LINKAGE                            F3B12660    
       07147  0 02000 4 00001        TRA 1,4               RETURN                                     F3B12680    
