                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 335/339 ------           
       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 N0T ZER0,                 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              C0NSTANT 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 ERTXD2.                                 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 DECREHENT                    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 T0 CMPILE 2ND                     F2512660    
       05634  0 40200 0 05126        SUB L(1)              TXI SXD TIX IN                             F2512670    
       05635  0 60100 0 05245        STO ERTX01            BL0CK E, THE BLOCK                         F2512680    
       05636  0 60100 0 05246        STO ERTX02            NUMBER IS SET T0                           F2512690    
       05637 -0 53400 4 05250        LXD BLKNUM,4          APPEAR LIKE BLOCK C S0                     F2512700    
       05640  2 00002 4 05641        TIX RTX152,4,2        THATTHE SXD L0CATION 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            (JRE OF FIRST 3 INSTRUCTIONS.P             F2512760    
       05646  0 07400 4 06625        TSX CIL23,4           T)N((HDO4D91NG THREE ARE                   F2512770    
       05647  0 50000 0 05042        CLA L(TXI)                                                       F2512780    
       05650  0 60100 0 05177        STO CIL01             N0W 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        FR0M E                                     F2512820    
       05654 -0 63400 4 05250        SXD BLKNUM,4          T0 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 L0CATION 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 AN0                               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    
