                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 365/369 ------           
                                         *************************************************************F2528610    
                                         PREFACE TQ OR0 EXAHINES 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               C0NSTANT 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)            0RIGIN 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 ST0RING 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 C0NSTANT.                             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 FIXC0N,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                                                   (C5200NT)   
       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 EXAHINES A BLOCK OF C0NSTANTS AND COMPILES ONE IF2529010    
                                         INSTRUCTION FOR EACH.  THE CALLER INDICATES THE FIRST C0NSTANF2529020    
                                         BY A REFERENCE IN THE ACCUHULAT0R, AND IND)CATES THE NUHBER 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 L0CIND            TEST T0 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 S0,                       F2529130    
       07302  0 60100 0 05222        STO L0CIND            PLACE A IN  . .. --.                       F2529140    
