                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 054/054 ------           
       02600  0 76100 0 00000 NOP    NOP                           IF NUMERIC,                        4F11018     
       02601  0 60100 0 01102        STO SR6WRK+1                  SAVE DIGIT, AND                    4F11019     
       02602  0 50000 0 01101        CLA SR6WRK                    MULTIPLY PREVIOUS PARTIAL          4F11020     
       02603  0 76700 0 00002        ALS 2                         RESULT BY 10,                      4F11021     
       02604  0 40000 0 01101        ADD SR6WRK                    AND ADD IN                         4F11022     
       02605  0 76700 0 00001        ALS 1                         CURRENT DIGIT, SAVING              4F11023     
       02606  0 40000 0 01102        ADD SR6WRK+1                  NEW PARTIAL RESULT.                4F11024     
       02607  0 60100 0 01101        STO SR6WRK                    THEN ADJUST COUNT, AND             4F11025     
       02610  2 00001 2 02571 SR6DC4 TIX SR6DC2,2,1                WHEN 6 CHARS HAVE BEEN TREATED,    4F11026     
       02611  0 50000 0 01101        CLA SR6WRK                    LEAVE OUTPUT IN AC,                4F11027     
       02612 -0 53400 2 02574        LXD SR6XR2,2                  RESTORE THE C(XR2), AND            4F11028     
       02613  0 02000 1 00001 TRA    TRA 1,1                     * EXIT TO MAIN ROUTINE.              4F11029     
                                          END OF PROGRAM SR6DC1.                                      4F11030     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031     
                                                                                                      4F11032     
                                         SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033     
                                         CALLERS=ARITH,LPR,C0200.                                     4F11034     
                                         SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES.  4F11035     
       02614 -0 63400 2 02731 SS000  SXD SXR2,2                    SAVE C(XR2),                       4F11036     
       02615 -0 63400 1 02730        SXD SXR1,1                    SAVE C(XR1),                       4F11037     
       02616 -0 63400 4 02732        SXD SXR4,4                    SAVE C(XR4), AND                   4F11038     
       02617  0 60000 0 01100        STZ DIMCTR                    SET DIMCTR = 0.                    4F11039     
       02620  0 53400 4 01414        LXA L(6),4                    INITIALIZE                         4F11040     
       02621 -0 63400 4 02726        SXD SBS2,4                    FOR EACH SUBSCRIPT MEMBER.         4F11041     
       02622 -0 50000 0 00422        CAL TXHOP                     PICK UP TXH OP, AND                4F11042     
       02623  0 63000 0 02776        STP SBC6                      SET OP                             4F11043     
       02624  0 63000 0 02777        STP SBC8                      SWITCHES.                          4F11044     
       02625 -0 50000 0 00415        CAL TXLOP                     PICK UP TXL OP, AND                4F11045     
       02626  0 63000 0 03014        STP SBC4                      SET OP SWITCH.                     4F11046     
       02627  0 53400 3 01413 SS001  LXA L(5),3                    SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047     
       02630  0 60000 0 01370        STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11048     
       02631  0 07400 4 01707        TSX C0190,4                 * GET FIRST NON BLANK CHAR IN THE AC.4F11049     
       02632  0 34000 0 01417        CAS L(9)                      COMPARE IT WITH 9.                 4F11050     
 D     02633  1 00000 0 02704        TXI SS0045,0                  RETURN TO EXPLICIT CODING.         4F11051     
       02634  0 76100 0 00000        NOP                           IF NUMERIC,                        4F11052     
       02635  0 60100 0 01331        STO FIRSTC                    SAVE RIGHT-ADJUSTED DIGIT, AND     4F11053     
       02636  0 76700 2 00044 SS0012 ALS 36,2                      LEFT-ADJUST DIGIT TO               4F11054     
       02637 -0 60200 0 01370        ORS SYMBOL                    BUILD SYMBOL.                      4F11055     
       02640  1 00006 2 02641        TXI SS0013,2,6                UPDATE SHIFT DECREMENT, AND        4F11056     
       02641  1 77777 1 02642 SS0013 TXI SS0014,1,-1               UPDATE COUNT OF CHARS COLLECTED.   4F11057     
       02642  0 07400 4 01707 SS0014 TSX C0190,4                 * GET NEXT NB CHARACTER IN THE AC.   4F11058     
       02643  0 53400 4 02652        LXA CTESTX,4                  SET XR4 = NO. OF PUNCTUATION MARKS.4F11059     
       02644  0 34000 4 01406 SS0015 CAS CTEST,4                   TEST THIS CHARACTER AGAINTT        4F11060     
 D     02645  1 00000 0 02647        TXI SS0016,0                  ALL PUNCTUATION.                   4F11061     
       02646  0 02000 4 02733        TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11062     
       02647  2 00001 6 02644 SS0016 TIX SS0015,6,1                IF NOT FOUND TO BE PUNCTUATION,    4F11063     
       02650  0 34000 0 01417        CAS L(9)                      TEST FOR NUMERIC                   4F11064     
 D     02651  1 00000 0 02655        TXI SS0017,0                  AND IF                             4F11065     
       02652  0 76100 0 00012 CTESTX NOP CTEST-ENDMK               FOUND TO BE NUMERIC                4F11066     
       02653  3 00000 1 02636        TXH SS0012,1,0                CONTINUE BUILDING SYMBOL. BUT IF   4F11067     
 D     02654  1 00000 0 02720        TXI STOP49,0                  SEVENTH CHAR, GO TO DIAGNOSTIC.    4F11068     
       02655  0 07400 1 03242 SS0017 TSX TESTFX+1,1              * GO TEST FOR FIXED POINT VARIABLE.  4F11069     
       02656  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070     
       02657 -0 76300 0 00036        LGL 30                        RESTORE FIXED POINT VARIABLE       4F11071     
