                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 111/111 ------           
       04533  0 07400 4 00417        TSX FXCNIX,4               * GO MAKE FIXCON ENTRY.               4F14047     
       04534 -0 50100 0 01517        ORA FIXVAR                   CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048     
 D     04535  1 00000 0 04636        TXI EXITR,0                  GO TAKE EXITR.                      4F14049     
       04536  0 14000 0 04543 NC3    TOV NC8                      IF THERE WAS NO OVERFLOW,           4F14050     
       04537  0 60100 0 01103        STO N                        SAVE PARTIAL RESULT, AND            4F14051     
       04540  0 50200 0 01407        CLS L(1)                     SUBTRACT 1 FROM DOE                 4F14052     
       04541  0 40000 0 01100 NC9    ADD DOE                      TO ADJUST EXPONENT                  4F14053     
       04542  0 60100 0 01100        STO DOE                      IN FINAL RESULT.                    4F14054     
 D     04543  1 00000 0 04477 NC8    TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14055     
       04544  0 50000 0 01407 NC4    CLA L(1)                     ADD 1 TO DOE ,                      4F14056     
 D     04545  1 00000 0 04541        TXI NC9,0                    IF THERE WAS INTEGER OVERFLOW.      4F14057     
       04546  0 07400 4 01707 EC1    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14058     
       04547  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B, AND            4F14059     
       04550  0 60000 0 01101        STZ EKE                      CLEAR EKE (EXPLICIT EXPONENT).      4F14060     
       04551  0 34000 0 01401        CAS 11Z                      COMPARE CHARACTER WITH A DASH.      4F14061     
 D     04552  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 32, GO OUT.         4F14062     
 D     04553  1 00000 0 04561        TXI EC3,0                    IF A DASH, SET EKE MINUS.           4F14063     
       04554  0 34000 0 01404        CAS 12Z                      IF LESS THAN 32, COMPARE WITH PLUS. 4F14064     
 D     04555  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 16, GO OUT.         4F14065     
 D     04556  1 00000 0 04566        TXI EC6,0                    IF PLUS, GO EXAMINE NEXT CHAR.      4F14066     
       04557  0 34000 0 01420        CAS MINUS                    IF LESS THAN 16,COMPARE WITH MINUS. 4F14067     
 D     04560  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 12, GO OUT.         4F14068     
       04561  0 50200 0 01101 EC3    CLS EKE                      IF MINUS, SET EKE TO -0.            4F14069     
       04562  0 34000 0 01373        CAS TEN                      COMPARE WITH TEN.                   4F14070     
 D     04563  1 00000 0 04602        TXI FN5,0                    IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071     
       04564 -0 75400 0 00000 EC4    PXD ,0                       CLEAR ACC,                          4F14072     
       04565  0 60100 0 01101 EC5    STO EKE                      SAVE PARTIAL RESULT(OR 0)IN EKE.    4F14073     
       04566  0 07400 4 01707 EC6    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14074     
       04567  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B,                4F14075     
       04570  0 34000 0 01373        CAS TEN                      AND COMPARE WITH TEN.               4F14076     
 D     04571  1 00000 0 04602        TXI FN5,0                    CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077     
       04572 -0 75400 0 00000        PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14078     
       04573  0 60100 0 01102        STO H                        CHARACTER IS NUMERIC, SO HOLD IT.   4F14079     
       04574  0 50000 0 01101        CLA EKE                      MULTIPLY THE PREVIOUS               4F14080     
       04575  0 76700 0 00002        ALS 2                        PARTIAL RESULT (OR ZERO)            4F14081     
       04576  0 40000 0 01101        ADD EKE                      BY 10,                              4F14082     
       04577  0 76700 0 00001        ALS 1                        AND ADD IN                          4F14083     
       04600  0 36100 0 01102        ACL H                        THE CURRENT DIGIT.                  4F14084     
 D     04601  1 00000 0 04565        TXI EC5,0                    CONTINUE UNTIL NON-NUMERIC IS MET.  4F14085     
       04602  0 50000 0 01101 FN5    CLA EKE                      COMBINE EXPLICIT EXPONENT           4F14086     
       04603  0 40000 0 01100        ADD DOE                      WITH IMPLICIT EXPONENT,             4F14087     
       04604  0 60100 0 01100        STO DOE                      AND SAVE IN DOE.                    4F14088     
       04605  0 50000 0 01103 FN4    CLA N                        IF N CONTAINS ZERO, TAKE            4F14089     
       04606  0 10000 0 04633        TZE MS9500                   FLO PT CONSTANT RETURN.             4F14090     
       04607  0 62100 0 04652        STA K1                       PUT INTEGER INTO FLO PT WORD,       4F14091     
       04610  0 77100 0 00017        ARS 15                       ADJUST, AND                         4F14092     
       04611  0 10000 0 04613        TZE FN1                      IF MORE THAN 15 BITS IN LENGTH      4F14093     
       04612 -0 50100 0 04653        ORA K2                       AFFIX CORRECT EXPONENT.             4F14094     
       04613  0 30000 0 04652 FN1    FAD K1                       THEN FLOATING ADD THE RESULT        4F14095     
       04614 -0 77300 0 00010        RQL 8                        OF INTEGER CONVERSION, AND          4F14096     
       04615  0 76000 0 00010        RND                          ROUND --TO OBTAIN                   4F14097     
       04616 -0 50100 0 04654        ORA K3                       NORMALIZED RESULT.                  4F14098     
       04617  0 53400 1 01100        LXA DOE,1                    EXAMINE THE C(DOE), AND             4F14099     
       04620 -3 00000 1 04633        TXL MS9500,1,0               IF ZERO, TAKE FLO PT RETURN.        4F14100     
