                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 055/055 ------           
       02660  0 60200 0 01365        SLW RESIDU                    TO RESUDU, AND                     4F11072     
       02661 -0 53400 4 01724        LXD CHCTR,4                   RESET CHARACTER COUNTER            4F11073     
       02662  1 00001 4 02663        TXI SS0018,4,1                TO BEGIN PROCESSING                4F11074     
       02663 -0 63400 4 01724 SS0018 SXD CHCTR,4                   SUBSCRIPT MULTIPLIER.              4F11075     
       02664  0 50200 0 02776  SBX   CLS SBC6                      TEST FOR                           4F11076     
       02665 -0 12000 0 02667        TMI SBX1                      PREVIOUS MULTIPLIER.               4F11077     
       02666  0 07400 4 03400        TSX DIAG,4                  * DOUBLE MULTIPLIER FOR SUBSCRIPT.   4F11078     
       02667  0 60100 0 02776  SBX1  STO SBC6                      RESET MULTIPLIER SWITCH.           4F11079     
       02670  0 50000 0 01331        CLA FIRSTC                    TEST                               4F11080     
       02671  0 40200 0 01373        SUB L(10)                     MULTIPLIER                         4F11081     
       02672 -0 12000 0 02674        TMI SBX2                      FOR CONSTANT.                      4F11082     
       02673  0 07400 4 03400        TSX DIAG,4                  * SUBS-MULTIPLER NOT A CONSTANT.     4F11083     
       02674  0 50000 0 01370  SBX2  CLA SYMBOL                    ADJUST MULTIPLIER                  4F11084     
       02675  0 77100 2 00052        ARS 42,2                      TO LOW ORDER POSITION.             4F11085     
       02676 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG,                   4F11086     
       02677  0 60200 4 01137        SLW E+9,4                     AND STORE MULTIPLIER.              4F11087     
       02700  0 60000 4 01145        STZ E+15,4                    SET ADDEND = 0.                    4F11088     
       02701  0 53400 3 01414 SS003  LXA L(6),3                    SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089     
       02702  0 60000 0 01370        STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11090     
       02703  0 07400 4 01707 SS004  TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F11091     
       02704  0 53400 4 02652 SS0045 LXA CTESTX,4                  COMPARE CHARACTER                  4F11092     
       02705  0 34000 4 01406 SS005  CAS CTEST,4                   TO ALL                             4F11093     
 D     02706  1 00000 0 02710        TXI SS006,0                   PUNCTUATION.                       4F11094     
       02707  0 02000 4 02733        TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11095     
       02710  2 00001 4 02705 SS006  TIX SS005,4,1                 IF NOT FOUND TO BE PUNCTUATION,    4F11096     
       02711 -3 00005 1 02713        TXL SS008,1,5                 IF 1ST CHARACTER OF VARIABLE OR    4F11097     
       02712  0 60100 0 01331        STO FIRSTC                    ADDEND, SAVE FOR LATER TEST.       4F11098     
       02713  0 76700 2 00044 SS008  ALS 36,2                      POSITION EACH CHARACTER. BUT       4F11099     
       02714 -3 00000 1 02720 SS009  TXL STOP49,1,0              * ON 7TH CHARACTER, GO TO STOP.      4F11100     
       02715 -0 60200 0 01370        ORS SYMBOL                    BUILD SYMBOL.                      4F11101     
       02716  1 00006 2 02717        TXI SS007,2,6                 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102     
       02717  1 77777 1 02703 SS007  TXI SS004,1,-1                UPDAT FOR ANOTHER CHAR COLLECTED.  4F11103     
       02720  0 07400 4 03400 STOP49 TSX DIAG,4                  * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104     
                                         SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN=                4F11105     
 D     02721  1 00000 0 02722        TXI ISC,0                     ENK (ILLEGAL IN LIST SUBSCRIPT).   4F11106     
       02722  0 07400 4 03400  ISC   TSX DIAG,4                  * (   (ILLEGAL IN LIST SUBSCRIPT).   4F11107     
 D     02723  1 00000 0 02772        TXI SBC,0                     ,                                  4F11108     
 D     02724  1 00000 0 02770        TXI SBR,0                     )                                  4F11109     
 D     02725  1 00000 0 02722        TXI ISC,0                     =   (ILLEGAL IN LIST SUBSCRIPT).   4F11110     
       02726  1 00000 0 02733 SBS2   TXI SBM,0,**                  - ,,SUBSCRIPT ELEMENT COUNTER,     4F11111     
 D     02727  1 00000 0 02722        TXI ISC,0                     /   (ILLEGAL IN LIST SUBSCRIPT).   4F11112     
       02730  1 00000 0 02722 SXR1   TXI ISC,0,**                  .   (ILLEGAL IN LIST SUBSCRIPT).   4F11113     
       02731  1 00000 0 02734 SXR2   TXI SBP,0,**                  +                                  4F11114     
       02732  1 00000 0 02664 SXR4   TXI SBX,0,**                  *                                  4F11115     
                        02733 SUBTR  BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   4F11116     
       02733 -0 76000 0 00003  SBM   SSM                           MINUS ADDEND.                      4F11117     
       02734  0 76000 0 00000  SBP   CLM                           PLUS ADDEND.                       4F11118     
       02735 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG, AND               4F11119     
       02736  0 60100 4 01145        STO E+15,4                    STORE SIGN OF ADDEND.              4F11120     
       02737  0 50200 0 02777        CLS SBC8                      TEST SWITCH                        4F11121     
       02740 -0 12000 0 02742        TMI SBP1                      FOR PREVIOUS ADDEND.               4F11122     
       02741  0 07400 4 03400        TSX DIAG,4                  * DOUBLE ADDEND FOR SUBSCRIPT,       4F11123     
       02742  0 60100 0 02777  SBP1  STO SBC8                      RESET ADDEND SWITCH.               4F11124     
       02743  0 07400 1 03241        TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11125     
