                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 056/056 ------           
       02744  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126     
       02745 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG, AND               4F11127     
       02746  0 50200 0 02776        CLS SBC6                      TEST SWITCH                        4F11128     
       02747  0 12000 0 02754        TPL SBP2                      FOR PREVIOUS MULTIPLIER.           4F11129     
       02750  0 50000 0 01407        CLA L(1)                      IF NONE,                           4F11130     
       02751  0 60100 4 01137        STO E+9,4                     SET MULTIPLIER                     4F11131     
 D     02752  1 00000 0 02755        TXI SBP4,0                    TO 1, AND CONTINUE.                4F11132     
       02753  0 50200 0 02776  SBC1  CLS SBC6                      RESET MULTIPLIER                   4F11133     
       02754  0 60100 0 02776 SBP2   STO SBC6                      OP SWITCH.                         4F11134     
       02755 -0 50000 0 01370 SBP4   CAL SYMBOL                    IF VARIABLE SUBSCRIPT.             4F11135     
       02756  3 00044 2 02762        TXH SBP41,2,36                ADD A BLANK                        4F11136     
       02757 -0 50000 0 01430        CAL BLANK                     IF LESS                            4F11137     
       02760  0 76700 2 00044        ALS 36,2                      THAN 6                             4F11138     
       02761 -0 50100 0 01370        ORA SYMBOL                    CHARACTERS, AND                    4F11139     
       02762  0 60200 4 01140  SBP41 SLW E+10,4                    PLACE IN E-REGION.                 4F11140     
       02763  0 07400 1 03241        TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11141     
       02764  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142     
       02765  0 50000 0 02777        CLA SBC8                      IF THERE IS AN ADDEND,             4F11143     
       02766 -0 12000 0 02701        TMI SS003                     GO COLLECT, OTHERWISE              4F11144     
 D     02767  1 00000 0 03012        TXI SBC7,0                    GO UPDATE STORING TAG.             4F11145     
       02770  0 50200 0 03014 SBR    CLS SBC4                      SET SWITCH                         4F11146     
       02771  0 60100 0 03014        STO SBC4                      FOR CLOSING PARENTHESIS.           4F11147     
       02772 -0 50000 0 01100 SBC    CAL DIMCTR                    UPDATE                             4F11148     
       02773  0 40000 0 01407        ADD L(1)                      DIMENSION COUNTER                  4F11149     
       02774  0 62100 0 01100        STA DIMCTR                    BY 1.                              4F11150     
       02775 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG.                   4F11151     
 D     02776  3 00000 0 02753 SBC6   TXH SBC1,0                    SWITCH-IF NO MULTIPLIER, AND       4F11152     
 D     02777  3 00000 0 03016 SBC8   TXH SBC2,0                    SWITCH-IF NO ADDEND, THEN          4F11153     
       03000  0 50000 0 01407        CLA L(1)                      SET                                4F11154     
       03001  0 60100 4 01137        STO E+9,4                     MULTIPLIER = 1.                    4F11155     
       03002  0 60000 4 01145        STZ E+15,4                    SET ADDEND = 0.                    4F11156     
       03003  0 50000 0 01331        CLA FIRSTC                    TEST FOR                           4F11157     
       03004  0 40200 0 01373        SUB L(10)                     CONSTANT OR VARIABLE.              4F11158     
       03005  0 12000 0 02755        TPL SBP4                      IF CONSTANT, THEN                  4F11159     
       03006  0 60000 4 01140        STZ E+10,4                    SET VARIABLE = 0.                  4F11160     
       03007 -0 50000 0 01370 SBC9   CAL SYMBOL                    ADJUST                             4F11161     
       03010  0 77100 2 00052        ARS 42,2                      CONSTANT                           4F11162     
       03011 -0 60200 4 01145        ORS E+15,4                    TO LOW ORDER POSITION.             4F11163     
       03012 -2 00002 4 03024 SBC7   TNX SBC3,4,2                  UPDATE STORING TAG                 4F11164     
       03013 -0 63400 4 02726        SXD SBS2,4                    BY -2, AND SAVE.                   4F11165     
 D     03014 -3 00000 0 02627 SBC4   TXL SS001,0                   SWITCH-REPEAT FOR NEXT SUB-COMB.   4F11166     
 D     03015  1 00000 0 03030        TXI SA000,0                   GO MAKE TABLE ENTRIES AND GET TAG. 4F11167     
       03016  0 50200 0 02777  SBC2  CLS SBC8                      RESET ADDEND                       4F11168     
       03017  0 60100 0 02777        STO SBC8                      OP SWITCH.                         4F11169     
       03020  0 50200 0 01373        CLS L(10)                     TEST                               4F11170     
       03021  0 40000 0 01331        ADD FIRSTC                    ADDEND                             4F11171     
       03022 -0 12000 0 03007        TMI SBC9                      FOR CONSTANT.                      4F11172     
       03023  0 07400 4 03400        TSX DIAG,4                  * SUBSCRIPT ADDEND NOT A CONSTANT.   4F11173     
       03024  0 50200 0 03014 SBC3   CLS SBC4                      AFTER SCANNING 3 SUBSCRIPTS.       4F11174     
       03025 -0 12000 0 03030        TMI SA000                     GO MAKE TABLE ENTRIES AND GET TAG. 4F11175     
       03026  0 07400 4 03400        TSX DIAG,4                  * GO TO DIAG - NO ) AFTER 3RD SUBS.  4F11176     
                                         CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE).           4F11177     
       03027 -0 63400 4 02732 CSA000 SXD SXR4,4                    SAVE C(XR4) FOR RETURN TO C0200.   4F11178     
       03030  0 50000 0 01100 SA000  CLA DIMCTR                    SAVE                               4F11179     
