                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 323/327 ------           
       04436  0 02000 0 04445        TRA CN1IJ8            BY 2 AND RETURN.                           F2505890    
       04437  0 20000 0 03642 CN1IJ4 MPY WRKSC+4           S3,                                        F2505900    
       04440  0 40200 0 05127        SUB L(2)              COMPUTE                                    F2505910    
       04441  0 76500 0 00022        LRS 18                (2C3N1-2)D1D2 THEN                         F2505920    
       04442  0 20000 0 03644        MPY WRKSC+6           GO TO CN1IJ8 T0 DIVIDE                     F2505930    
       04443  0 76500 0 00022        LRS 18                DIVIDE BY 2 AND                            F2505940    
       04444  0 20000 0 03645        MPY WRKSC+7           RETURN.                                    F2503950    
       04445  0 77100 0 00001 CN1IJ8 ARS 1                 DIVIDE BY 2,  RESULT IS (C1N1-1)           F2505960    
       04446  0 02000 4 00001        TRA 1,4               0R (C2N1-1)D1 0R (C3N1-1)D1D2..-           F2505970    
                                         *************************************************************F2505980    
                                         CXIJ COMPUTES GN3X.  WHEN THE ROUTINE CXIJ+2 IS CALLED,      F2505990    
                                         GQ IS COMPUTED, Q BEING WHATEVER PARAHETER IS LEFT IN THE ACCF2506000    
                                         BY THE CALLER.                                            . -F2506010    
       04447  0 50000 2 01103 CXIJ   CLA DOTAGZ+5,2                                                   F2506020    
       04450 -0 32000 0 05141        ANA ADMSK             IS0LATE X QUANTITY.                        F2506030    
       04451  0 60100 0 05247        STO ERTX03                                                       F2506040    
       04452  3 00001 1 04455        TXH CXIJ+6,1,1        S2 0R S1.                                  F2506050    
       04453  0 56000 0 03642        LDQ WRKSC+4           S3, LOAD C3.                               F2506060    
       04454  0 02000 0 04461        TRA CXIJ2                                                        F2506070    
       04455 -3 00002 1 04460        TXL CXIJ1,1,2         S2.                                        F2506080    
       04456  0 56000 0 03636        LDQ WRKSC             S1, LOAD C1.                               F2506090    
       04457  0 02000 0 04461        TRA CXIJ2                                                        F2506100    
       04460  0 56000 0 03640 CXIJ1  LDQ WRKSC+2           S2, LOAD C2.                               F2506110    
       04461  0 20000 0 05247 CXIJ2  MPY ERTX03                                                       F2506120    
       04462  3 00002 1 04470        TXH CXIJ4,1,2         IF S1, FINISHED.                           F2506130    
       04463  0 76500 0 00022        LRS 18                                                           F2506140    
       04464  0 20000 0 03644        MPY WRKSC+6           CX TIMES D1.                               F2506150    
       04465  3 00001 1 04470        TXH CXIJ4,1,1         IF S2, FINISHED.                           F2506160    
       04466  0 76500 0 00022        LRS 18                                                           F2506170    
       04467  0 20000 0 03645        MPY WRKSC+7           CXD1 TIMES D2.                             F2506180    
       04470  0 76300 0 00021 CXIJ4  LLS 17                                                           F2506190    
       04471  0 02000 4 00001        TRA 1,4               IN ACC. AND RETURN.                        F2506200    
                                         *************************************************************F2506210    
                                         CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS N0T YETF2306220    
                                         KN0WN, BUT IS KN0WN T0 BE THE TEST FOR A GIVEN DO.  THE . )-)F2506230    
                                         ADDRESS WORD IS FILLED IN WITH)THAT DOTAG ALPHA-BETA AND THE F2306240    
                                         L0CATION OF THE SXD IS STORED IN THAT DQTAG S0 THAT A TABLE (F2506250    
                                         (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN-THEF2506260    
                                         PROPER ADDRESS DURING MERGE.                       .---...).4F2506270    
       04472 -0 63400 4 05245 CSXD   SXD ERTX01,4          ROUTINE FOR                                F2506280    
       04473  0 07400 4 06224        TSX CILV,4            COMPILING AN                               F2506290    
       04474  0 50000 0 05133        CLA L(0)              SXD INSTRUCTION                            F2506300    
       04475  0 60100 0 05201        STO CIL03             WHERE THE                                  F2506310    
       04476  0 60100 0 05200        STO CIL02                                                        F2506320    
       04477 -0 53400 4 05250        LXD BLKNUM,4                                                     F2506330    
       04500 -3 00002 4 04503        TXL CSXD4,4,2         BLOCKS B,C.                                F2506340    
 M     04501 -0 53400 4 03650        LXD TAG21,4           BLOCKS D,E, LOAD S2 INDEX.                 F2506350    
       04502  0 02000 0 04504        TRA CSXD4+1                                                      F2506360    
       04503 -0 53400 4 03647 CSXD4  LXD TAG2,4            BLOCKS B,C, LOAD S1 INDEX.                 F2506370    
       04504  0 50000 4 01076        CLA DOTAGZ,4          FOR BL0CKS B,C, FILL IN                    F2506380    
       04505 -0 32000 0 05071        ANA N0PRET            SYH80LIC ADDRESS OF SXD                    F2506390    
       04506  0 60100 0 05200        STO CIL02             FR0H WD1 OF S1 DOTAG.                      F2506400    
       04507  0 50000 0 03652        CLA TAG3              N0T KN0WN.                                 F2506410    
       04510  0 62100 0 05201        STA CIL03             --) .--.--                                 F2506420    
