                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 334/338 ------           
       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 0R E.                                    F2511960    
       05526 -0 63400 2 05250        SXD BLKNUM,2          STORE BLOCK NUH8ER D.                      F2511970    
       05527 -0 53400 2 03650        LXD TAG2+1,2          BLOCK D C0NSIDERED.                        F2511980    
       05530  0 07400 4 06620        TSX NBITS,4           IS0LATE NBITS                              F2511990    
       05531  0 40000 0 05234        ADD N3IND             CHECK FOR VARIABLE DECREHENT.              F2512000    
       05532 -0 10000 0 05577        TNZ RTX130            DECREMENT IS VARIABLE.                     F2512010    
       05533  0 50000 0 03652        CLA TAG3              DECREMENT IS C0NSTANT.                     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          C0NSIDER 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            N0RMAL BLOCK D, N0 DUPES.                  F2512170    
       05553  0 76000 0 00001        LBT                                                              F2512180    
       05554  0 02000 0 05563        TRA RTX118            XX0 BLOCK D, 0R 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 0R LEFT POSIND.               F2512210    
       05557  0 07400 4 06447 RTX114 TSX CN3IJ,4           COMPUTE N3G                                F2512220    
       05560  0 40000 0 05245        ADD ERTX01            (MHJEMENT ADJUSTMENT                       F2512230    
       05561  0 60100 0 05245        STO ERTX01            FOR X0X                                    F2512240    
       05562  0 02000 0 05570        TRA RTX126            (MMES.                                     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    
