                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 110/110 ------           
       04455  0 60200 0 01141        SLW E+11                                                         4F13993     
       04456  0 07400 4 00450        TSX SIG1IX,4          GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.  4F13994     
       04457  0 76700 0 00017        ALS 15                POSITION SIGMA TAG.                        4F13995     
       04460 -0 60200 0 01126        ORS E                 ADD SIGMA TAG TO I-TAU TAGS IN E.          4F13996     
       04461 -0 53400 4 04503        LXD SSIR4,4           RELOAD CALLING TAG.                        4F13997     
       04462  0 02000 4 00001        TRA 1,4               RETURN TO CALLER +1.                       4F13998     
                                                                                                      4F13999     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000     
                                                                                                      4F14001     
                                         ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.                    4F14002     
                                         ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION  4F14003     
                                         ARITHMETIC.                                                  4F14004     
                                         ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS,     4F14005     
       04463  0 60100 0 01103 ROYCNV STO N                        SAVE DECIMAL DIGIT IN N.            4F14006     
       04464 -0 63400 4 04467        SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14007     
       04465  0 60000 0 01100        STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14008     
       04466  0 50000 0 04505        CLA CM1                      PICK UP SWITCH CONTROL.             4F14009     
       04467  1 00000 0 04474 EXIT   TXI IN2,0,**                 AND GO SET SWITCH.                  4F14010     
                                         DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS.             4F14011     
       04470  0 60000 0 01103 DECPNT STZ N                        CLEAR N (NO INTEGER).               4F14012     
       04471 -0 63400 4 04467        SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14013     
       04472  0 60000 0 01100        STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14014     
       04473 -0 50000 0 04505 NC7    CAL CM1                      PICK UP SWITCH CONTROL.             4F14015     
       04474  0 63000 0 04515 IN2    STP CM2                      SET SWITCHES CM2, AND               4F14016     
       04475  0 63000 0 04527        STP CM3                      CM3.                                4F14017     
       04476  0 14000 0 04477        TOV NC5                      TURN OFF OV TRIGGER.                4F14018     
       04477  0 07400 4 01707 NC5    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14019     
       04500  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B, AND THEN       4F14020     
       04501  0 34000 0 01423        CAS L(H)                     COMPARE IT WITH H.                  4F14021     
 D     04502  1 00000 0 04504        TXI NC1,0                    IF H, GO TO HEXIT,                  4F14022     
 D     04503  1 00000 0 04650 SSIR4  TXI HEXIT,0                  IF NOT H, CONTINUE                  4F14023     
       04504  0 34000 0 01373 NC1    CAS TEN                      AND COMPARE WITH TEN.               4F14024     
 D     04505 -3 00000 0 04521 CM1    TXL NC2,0                    CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025     
       04506 -0 75400 0 00000        PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14026     
       04507  0 60100 0 01102        STO H                        CHARACTER IS NUMERIC SO HOLD IT.    4F14027     
       04510  0 50000 0 01103        CLA N                        MULTIPLY THE PREVIOUS               4F14028     
       04511  0 76700 0 00002        ALS 2                        PARTIAL RESULT (OR ZERO)            4F14029     
       04512  0 40000 0 01103        ADD N                        BY 10,                              4F14030     
       04513  0 76700 0 00001        ALS 1                        AND ADD IN                          4F14031     
       04514  0 40000 0 01102        ADD H                        THE CURRENT DIGIT.                  4F14032     
 D     04515  3 00000 0 04536 CM2    TXH NC3,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14Q33     
       04516  0 14000 0 04544        TOV NC4                      TEST OVERFLOW, AND                  4F14034     
       04517  0 60100 0 01103        STO N                        IF NONE, SAVE NEW PARTIAL RESULT.   4F14035     
 D     04520  1 00000 0 04477        TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14036     
       04521  0 34000 0 01403 NC2    CAS POINT                    COMPARE NON-NUMERIC WITH A POINT.   4F14037     
 D     04522  1 00000 0 04527        TXI CM3,0                    IF GREATER THAN 27, GO OUT.         4F14038     
 D     04523  1 00000 0 04473        TXI NC7,0                    IF POINT, GO BACK AND SET SWITCH.   4F14039     
       04524  0 34000 0 04657        CAS L(E)                     IF LESS THAN 27, COMPARE WITH E.    4F14040     
 D     04525  1 00000 0 04527        TXI CM3,0                    IF GREATER THAN 21, GO OUT.         4F14041     
 D     04526  1 00000 0 04546        TXI EC1,0                    IF E, GO TO EXPONENT ROUTINE.       4F14042     
 D     04527  3 00000 0 04605 CM3    TXH FN4,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14043     
       04530  0 50000 0 01103        CLA N                        PICK UP CONVERTED CONSTANT, AND     4F14044     
       04531  0 76700 0 00022 MS9506 ALS 18                       STORE IN THE                        4F14045     
       04532  0 60100 0 01347        STO G                        DECREMENT OF G, AND                 4F14046     
