                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 077/077 ------           
                                         C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00.                 4F12228     
                                         C1500 PROCESSES EQUIVALENCE STATEMENTS.                      4F12229     
       04375  0 07400 4 01707 C1500  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12230     
       04376  0 07400 4 03275        TSX TESTE0,4                * CHARACTER SHOULD BE A LPARAN.      4F12231     
       04377  0 50000 0 01407 C1501  CLA L(1)                      INITIALIZE 1C                      4F12232     
       04400  0 60100 0 01106        STO 1C+1                      TO 1.                              4F12233     
       04401  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC AND      4F12234     
       04402  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE SYMBOL V.         4F12235     
       04403  0 56000 0 01112        LDQ 1G                        MOVE V                             4F12236     
       04404 -0 60000 0 01105        STQ 1C                        INTO 1C.                           4F12237     
       04405  0 34000 0 01375        CAS ALPAR                     EXAMINE CHARACTER LEFT IN THE AC,  4F12238     
 D     04406  1 00000 0 04416        TXI C1503,0                   AND IF                             4F12239     
 D     04407  1 00000 0 04411        TXI C1502,0                   CHARACTER IS A LEFT PARENTHESIS,   4F12240     
 D     04410  2 00000 0 04416        TIX C1503,0                   THEN                               4F12241     
       04411  0 07400 2 01654 C1502  TSX C0180X,2                * GO FORM BINARY EQUIV OF N.         4F12242     
       04412  0 07400 4 03301        TSX TESTF0,4                * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244     
       04413  0 50000 0 01112        CLA 1G                        PUT BIN EQUIV OF N                 4F12245     
       04414  0 60100 0 01106        STO 1C+1                      IN 1C+1.                           4F12246     
       04415  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN AC, AND      4F12247     
       04416  0 07400 4 03255 C1503  TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F12248     
       04417  0 10000 0 04423        TZE C1504                     IF COMMA, THEN                     4F12249     
       04420  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12250     
       04421  0 00000 0 00010        PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12251     
 D     04422  1 00000 0 04377        TXI C1501,0                   RETURN TO CONTINUE PROCESSING X.   4F12252     
       04423  0 50200 0 01106 C1504  CLS 1C+1                      MAKE SIGN OF N MINUS SINCE         4F12253     
       04424  0 60100 0 01106        STO 1C+1                      THIS IS LAST ITEM.                 4F12254     
       04425  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12255     
       04426  0 00000 0 00010        PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12256     
       04427  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC, AND     4F12257     
       04430  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12258     
       04431 -0 10000 0 04375        TNZ C1500                     IF ENDMARK, THEN                   4F12259     
 D     04432  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12260     
                                          END OF PROGRAM C1500.                                       4F12261     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262     
                                                                                                      4F12263     
                                         C1600/ CALLS=C0190,TEST..,GIF,BSS.                           4F12264     
                                         C1600 PROCESSES CONTINUE STATEMENTS.                         4F12265     
       04433  0 07400 4 01707 C1600  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12266     
       04434  0 07400 4 03271        TSX TESTD0,4                * CHARACTER SHOULD BE AN ENDMARK.    4F12267     
       04435  0 07400 4 02375        TSX GIF,4                   * GET INTERNAL FORMULA NUMBER, AND   4F12268     
       04436  0 07400 2 05674        TSX BSS,2                   * GO COMPILE= IFN BSS 0.             4F12269     
 D     04437  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12270     
                                          END OF PROGRAM C1500.                                       4F12271     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272     
                                                                                                      4F12273     
                                         C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.    4F12274     
                                         C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.          4F12275     
       04440 -0 50000 0 00422 C3500  CAL TXHOP                                                        4F12276     
       04441  0 63000 0 04454        STP C3003                                                        4F12277     
       04442 -0 53400 4 00030 C3000  LXD EIFNO,4                   EXAMINE INTERNAL FORMULA NO., AND  4F12278     
       04443 -3 00001 4 04445        TXL *+2,4,1                   IF NOT THE 1ST STATEMENT, THEN     4F12279     
       04444  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO DIAGNOSTIC.          4F12280     
       04445  0 50000 0 01121        CLA ARGCNT                    SET ARGCNT TO INDICATE TO LATER    4F12281     
       04446  0 76000 0 00003        SSP                           RETURN THAT THERE WAS A PRECEEDING 4F12282     
