                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 052/052 ------           
                                         RA000 COMPUTES RELATIVE ADDRESS.                             4F10910     
       02437 -0 63400 4 01100 RA000  SXD RAXR4,4                   SAVE THE C(XR4) FOR RETURN.        4F10911     
       02440  0 60000 0 01147        STZ EPS                       CLEAR EPSILON (WORKING STORAGE).   4F10912     
       02441  0 50000 0 01125        CLA DIMSAV                    EXAMINE THE                        4F10913     
       02442  0 73400 4 01132  ED2   PAX E+4,4                     DIMENSION COUNT, AND               4F10914     
       02443 -3 00002 4 02445        TXL ED1,4,2                   IF 3 DIMENSION,                    4F10915     
       02444  0 40000 0 01407        ADD L(1)                      INCREASE IT 1.                     4F10916     
       02445  0 40100 0 02442 ED1    ADM ED2                       THEN SET                           4F10917     
       02446  0 62100 0 02447        STA ED3                       ED3 ADDRESS TO                     4F10918     
       02447  0 50000 4 00000  ED3   CLA **,4                      EXAMINE SUCCESSIVE                 4F10919     
       02450  0 56000 0 01454        LDQ D1                        SUBSCRIPT                          4F10920     
       02451  0 10000 0 02454        TZE ED4                       VARIABLES, AND                     4F10921     
       02452 -0 60000 0 01147        STQ EPS                       ACCORDINGLY SET                    4F10922     
       02453  0 56000 0 01406        LDQ L(0)                      EPSILON AND                        4F10923     
       02454 -0 60000 4 01147  ED4   STQ EPS,4                     EPSILON SUB I                      4F10924     
       02455  2 00001 4 02447        TIX ED3,4,1                   TO 1 OR TO 0. WHEN DONE,           4F10925     
       02456  0 50000 0 01454        CLA D1                        IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926     
       02457  0 53400 4 01125        LXA DIMSAV,4                  AND GO SUBTRACT ADDEND 1.          4F10927     
       02460 -3 00001 4 02511        TXL 1D1,4,1                   IF 2 OR 3 DIMENSION, THEN          4F10928     
       02461  0 56000 0 01141        LDQ E+11                      PICKUP ADDENDS 1 AND 2,            4F10929     
       02462  0 60000 0 01141        STZ E+11                      CLEAR E+11, AND                    4F10930     
       02463 -0 62000 0 01141        SLQ E+11                      RESTORE ADDEND 1 TO E+11.          4F10931     
       02464 -0 76300 0 00022        LGL 18                        ADJUST AND PLACE                   4F10932     
       02465 -0 60000 0 01361        STQ N2                        ADDEND 2 IN N2.                    4F10933     
       02466  0 56000 0 01134        LDQ E+6                       AND, IF 2 DIMENSION                4F10934     
       02467  0 50000 0 01146        CLA EPS-1                     PICKUP EPSILON SUB 1,              4F10935     
       02470 -3 00002 4 02503        TXL 2D1,4,2                   AND GO SUBTRACT ADDEND 2.          4F10936     
       02471  0 40200 0 01142        SUB E+12                      IF 3 DIMENSION, SET GTAG           4F10937     
       02472  0 60100 0 01351        STO GTAG                      TO EPSILON SUB 1 - ADDEND 3.       4F10938     
       02473  0 56000 0 01136        LDQ E+8                       PICKUP DIMESNIONS 1 AND 2.         4F10939     
       02474  0 60000 0 01136        STZ E+8                       CLEAR E+8, AND                     4F10940     
       02475 -0 62000 0 01136        SLQ E+8                       RESTORE DIMENSION 1 TO E+8.        4F10941     
       02476 -0 76300 0 00022        LGL 18                        ADJUST, AND MULTIPLY               4F10942     
       02477  0 20000 0 01351        MPY GTAG                      DIMENSION 2 TIMES GTAG.            4F10943     
       02500  0 76700 0 00021        ALS 17                        THEN ADD                           4F10944     
       02501  0 40000 0 01145        ADD EPS-2                     EPSILON SUB 2                      4F10945     
       02502  0 56000 0 01136        LDQ E+8                       TO THE PRODUCT, AND                4F10946     
       02503  0 40200 0 01361 2D1    SUB N2                        SUBTRACT ADDEND 2.                 4F10947     
       02504  0 60100 0 01351        STO GTAG                      MULTIPLY                           4F10948     
       02505  0 20000 0 01351        MPY GTAG                      THE RESULT                         4F10949     
       02506  0 76700 0 00021        ALS 17                        TIMES                              4F10950     
       02507  0 40000 4 01147        ADD EPS,4                     DIMENSION 1, AND ADD IN EPSILON    4F10951     
       02510  0 40000 0 01147        ADD EPS                       SUB I AND EPSILON.                 4F10952     
       02511  0 40200 0 01141  1D1   SUB E+11                      SUBTRACT ADDEND 1,                 4F10953     
       02512  0 60100 0 01351        STO GTAG                      AND PLACE THE RESULT               4F10954     
       02513 -0 50000 0 01126        CAL E                         IN THE DECREMENT OF GTAG,          4F10955     
       02514  0 77100 0 00030        ARS 24                        WITH 1-TAUTAG                      4F10956     
       02515  0 62100 0 01351        STA GTAG                      IN THE ADDRESS.                    4F10957     
       02516 -0 53400 4 01100        LXD RAXR4,4                   RESTORE THE C(XR4), AND            4F10958     
       02517  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F10959     
                                          END OF PROGRAM RAD00.                                       4F10960     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961     
                                                                                                      4F10962     
                                         RDRX,4 CALLS=DIAG. CALLER=DRTABS.                            4F10963     
