                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 333/337 ------           
       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 C0NSTANT.                     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          M0VE 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, 0R 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            IS0LATE                                    F2511670    
       05471  0 07400 4 06620        TSX NBITS,4           NBITS INTO N1N2N3.                         F2511680    
       05472  0 40000 0 05234        ADD N3IND                                                        112II721    
       05473 -0 10000 0 05523        TNZ RTX100            DECREMENT IS VARIABLE, TSX BCDE.           F2511700    
       05474  0 50000 0 03652        CLA TAG3              DECREMENT IS C0NSTANT.                     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             N0 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 ADJUSTHENT                         F2511880    
