                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 057/057 ------           
       03031  0 60100 0 01125        STO DIMSAV                    THE CONTENTS OF DIMCTR             4F11180     
       03032  0 76700 0 00041        ALS 33                        POSITION AND                       4F11181     
       03033  0 60100 0 01126        STO E                         STORE I TAG.                       4F11182     
       03034  0 50000 0 01141        CLA E+11                      MOVE SUBSCRIPT ADDENDS             4F11183     
       03035  0 60100 0 01142        STO E+12                      INTO POSITION                      4F11184     
       03036  0 50000 0 01137        CLA E+9                       FOR FOLLOWING                      4F11185     
       03037  0 60100 0 01141        STO E+11                      PROGRAM.                           4F11186     
       03040  0 50000 0 01410        CLA L(2)                      EXAMINE DIMCTR                     4F11187     
       03041  0 34000 0 01100        CAS DIMCTR                    TO DETERMINE                       4F11188     
 D     03042  1 00000 0 03174        TXI 1D0000,0                  WHETHER DIMESNION OF               4F11189     
 D     03043  1 00000 0 03131        TXI 2D0000,0                  VARIABLE IS 1, 2, OR 3.            4F11190     
       03044  0 53400 4 01414 3D0000 LXA L(6),4                    PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191     
       03045  0 56000 4 01137 3D0001 LDQ E+9,4                     CONVERT THEM FROM BCD TO BINARY    4F11192     
       03046  0 07400 1 02566        TSX SR6DC1,1                * IN E+3,5,7, AND                    4F11193     
       03047  0 60100 4 01137        STO E+9,4                     STORE BACK IN E+3,5,7,             4F11194     
       03050  2 00002 4 03045        TIX 3D0001,4,2                WHEN DONE, PREPARE                 4F11195     
       03051  0 53400 4 01411        LXA L(3),4                    TO PICK UP 3 ADDENDS.              4F11196     
       03052  0 50000 4 01144 3D0002 CLA E+14,4                    CONVERT ADDENS (BCD TO BINARY)=    4F11197     
       03053  0 60200 0 01347        SLW G                         STRIP OFF                          4F11198     
       03054  0 56000 0 01347        LDQ G                         SIGN.                              4F11199     
       03055  0 07400 1 02566        TSX SR6DC1,1                * CONVERT ADDENDS IN E+11,12,13,     4F11200     
       03056  0 56000 4 01144        LDQ E+14,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11201     
       03057  0 16200 0 03061        TQP 3D0040                    IF PLUS--SKIP NEXT,                4F11202     
       03060 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11203     
       03061  0 60100 4 01144 3D0040 STO E+14,4                    AND STORE BACK INTO E+11,12,13,    4F11204     
       03062  2 00001 4 03052        TIX 3D0002,4,1                WHEN DONE,                         4F11205     
       03063  0 07400 4 02005        TSX DIM3SR,4                * GO SEARCH DIM3 TABLE,              4F11206     
       03064  0 07400 4 03400        TSX DIAG,4                  * --ERROR...NOT ON DRUM,             4F11207     
       03065  0 50000 0 01131 3D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11208     
       03066  0 76700 0 00022        ALS 18                        PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209     
       03067  0 40000 0 01133        ADD E+5                       AND STORE THEM                     4F11210     
       03070  0 60100 0 01131        STO E+3                       IN E+3.                            4F11211     
       03071  0 50000 0 01132        CLA E+4                       MOVE SUBSCRIPT 1                   4F11212     
       03072  0 60100 0 01133        STO E+5                       TO E+5.                            4F11213     
       03073  0 50000 0 01135        CLA E+7                       AND MOVE                           4F11214     
       03074  0 76700 0 00022        ALS 18                        COEFFICIENT 3                      4F11215     
       03075  0 60100 0 01132        STO E+4                       INTO E+4.                          4F11216     
       03076  0 50000 0 01136        CLA E+8                       MOVE SUBSCRIPT 3 INTO E+7,         4F11217     
       03077  0 60100 0 01135        STO E+7                       NEXT SUBSCRIPT 2 IN E+6.           4F11218     
       03100  0 50000 0 01101        CLA D12                       MOVE DIMESIONS 1 AND 2             4F11219     
       03101  0 60100 0 01136        STO E+8                       INTO E+8.                          4F11220     
       03102 -0 50000 0 01141        CAL E+11                      PACK TOGETHER                      4F11221     
       03103  0 76700 0 00022        ALS 18                        ADDENDS 1 AND 2                    4F11222     
       03104 -0 50100 0 01142        ORA E+12                      AND                                4F11223     
       03105  0 60200 0 01141        SLW E+11                      STORE THEM IN E+11.                4F11224     
       03106 -0 50000 0 01143        CAL E+13                      MOVE                               4F11225     
       03107  0 76700 0 00022        ALS 18                        ADDEND 3                           4F11226     
       03110  0 60200 0 01142        SLW E+12                      INTO E+12.                         4F11227     
       03111  0 07400 4 00443        TSX TAU3IX,4                * GO SEARCH TAU3 TABLE.              4F11228     
       03112  0 76700 0 00030        ALS 24                        POSITION TAU3 TAG, AND             4F11229     
       03113 -0 60200 0 01126        ORS E                         PLACE TAU3 TAG IN TAG WORD.        4F11230     
       03114 -0 50000 0 01135        CAL E+7                       COMBINE                            4F11231     
       03115 -0 50100 0 01134        ORA E+6                       SUBSCRIPTS 3,2, AND 1,             4F11232     
       03116 -0 50100 0 01133 3D0340 ORA E+5                       AND IF THEY ARE ALL ZERO,          4F11233     
