                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 086/086 ------           
       05154  0 34000 4 01406 CCOMP  CAS CTEST,4                  COMPARE CHARACTER WITH CONSTANTS.   4F12705     
 D     05155 -3 00000 0 05160        TXL BUILD,0                  IF EQUALITY IS FOUND ON SOME        4F12706     
       05156  0 02000 4 00000 CEXIT  TRA **,4                   * CONTROL CHAR, EXIT  TO  TRA LIST.   4F12707     
       05157  2 00001 4 05154        TIX CCOMP,4,1                CONTINUE THROUGH PUNCTUATION.       4F12708     
       05160 -0 53400 4 05637 BUILD  LXD CSJ,4                    BUILD A                             4F12709     
       05161  0 60100 4 07316        STO CHR,4                    SYMBOL                              4F12710     
       05162 -2 00001 4 05167        TNX LCT,4,1                  COMPOSED OF                         4F12711     
       05163  0 76700 2 00044        ALS 36,2                     SIX OR LESS CHARACTERS.             4F12712     
       05164 -0 63400 4 05637 CSZ    SXD CSJ,4                    SAVE SYMBOL CHARACTER COUNT,        4F12713     
       05165 -0 60200 0 07404        ORS SYM                      ALSO, SAVE EACH                     4F12714     
       05166  1 00006 2 05152        TXI NXC,2,6                  CHARACTER SEPARATELY.               4F12715     
       05167 -3 00044 2 05171 LCT    TXL LCS,2,36                 GO TO DIAGNOSTIC IF                 4F12716     
       05170  0 07400 4 03400        TSX DIAG,4                 * MORE THAN 6 CHARACTERS IN SYMBOL,   4F12717     
       05171  1 77777 4 05164 LCS    TXI CSZ,4,-1                 ADJUST COUNT, AND CONTINUE SCAN.    4F12718     
                                         END OF PROGRAM RSC.                                          4F12719     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4FI2720     
                                                                                                      4F12721     
                                         LISTR/ CONTROL TRANSFERS FOR LIST SCAN=                      4F12722     
 D     05172  1 00000 0 05547        TXI EMK,0                   * ENDMARK                            4F12723     
 D     05173  1 00000 0 05205        TXI LPR,0                   * (                                  4F12724     
 D     05174  1 00000 0 05413        TXI CMA,0                   * ,                                  4F12725     
 D     05175  1 00000 0 05377        TXI RPR,0                   * )                                  4F12726     
 D     05176  1 00000 0 05261        TXI EQS,0                   * *                                  4F12727     
 D     05177  1 00000 0 05200        TXI ILC,0                     - (ILLEGAL CHARACTER IN I/O LIST). 4F12728     
       05200  0 07400 4 03400 ILC    TSX DIAG,4                  * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729     
 D     05201  1 00000 0 05200        TXI ILC,0                     . (ILLEGAL CHARACTER IN I/O LIST). 4F12730     
 D     05202  1 00000 0 05200        TXI ILC,0                     + (ILLEGAL CHARACTER IN I/O LIST). 4F12731     
 D     05203  1 00000 0 05200        TXI ILC,0                     * (ILLEGAL CHARACTER IN I/O LIST). 4F12732     
       05204  0 00000 0 05204 LISTR  PZE LISTR                     INDEXING ADDRESS  FOR ABOVE LIST.  4F12733     
                                         *******                      *************************       4F12734     
                                                                                                      4F12735     
                                         LPR/  CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736     
                                         BSS.  USES=CMA,RSC,                                          4F12737     
                                         LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.     4F12738     
       05205 -0 50000 0 07404 LPR    CAL SYM                      TEST FOR SUBSCRIPT OR DO NEST.      4F12739     
       05206  0 10000 0 05230        TZE LPRD                     IF SUBSCRIPT, THEN                  4F12740     
       05207  0 07400 4 05624        TSX TYP,4                  * IF VARIABLE SYMBOL CONTAINS LESS    4F12741     
       05210  0 02000 4 00003        TRA 3,4                      THAN 6 CHARACTERS, ADD A BLANK,     4F12742     
 D     05211  1 00000 0 05416        TXI ERRC,0                 * ON CONSTANT RETURN, GO TO DIAG,     4F12743     
       05212 -0 50000 0 07404        CAL SYM                      MOVE SYMBOL                         4F12744     
       05213  0 60200 0 01130        SLW E+2                      INTO E+2, AND                       4F12745     
       05214  0 60200 0 07403        SLW SA                       COMPILE SYMBOLIC ADDRESS,           4F12746     
       05215  0 07400 4 02614        TSX SS000,4                * GO SCAN AND PROCESS SUBSCRIPT.      4F12747     
       05216  0 07400 4 02437        TSX RA000,4                * THEN GO COMPUTE RELATIVE ADDRESS.   4F12748     
       05217  0 07400 4 01707        TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER    4F12749     
       05220  0 34000 0 01377        CAS CLOS                                                         4F12750     
       05221  0 02000 0 05226        TRA *+5                                                          4F12751     
       05222  0 02000 0 05224        TRA *+2                                                          4F12752     
       05223  0 02000 0 05226        TRA *+3                                                          4F12753     
       05224  0 60000 0 07400        STZ DOLEV                                                        4F12754     
       05225  0 07400 4 01707        TSX C0190,4                                                      4F12755     
       05226  0 07400 4 03247        TSX TESTA0,4               * FOR EITHER COMMA OR ENDMARK.        4F12756     
 D     05227  1 00000 0 05421        TXI CMA7,0                 * AND CONTINUE BY USING PROGRAM CMA.  4F12757     
       05230 -0 50000 0 07400 LPRD   CAL DOLEV                    IF  THE BEGINNING OF A DO NEST,     4F12758     
