*DECK C$FTENS 
          IDENT  C$FTENS
          TITLE  CBFTENS -  TABLE OF POWERS OF TENTHS 
          MACHINE  ANY
          COMMENT  TABLE OF POWERS OF TENTHS
          SPACE  4
**        CBFTENS -  TABLE OF POWERS OF TENTHS
* 
*         CONTAINS FLOATING POINT VALUES FROM 10'18 TO 10'-18 
* 
*         ENTRY C.FTENS+J HAS THE VALUE 10'(-J) 
* 
*         USED TO SCALE (I.E. MULTIPLY OR DIVIDE) BY A POWER OF 10, E.G.
* 
*         X1 = SOURCE  (E.G. PIC(9(5)V99 COMP-1)
*         PX1    X1 
*         NX1    X1 
*         SA2    =XC.FTENS+2       0.01 
*         FX6    X1*X2
*         UX6    X6,B7
*         LX6    X6,B7
*         SA6    DESTINATION  (E.G. PIC 9(6) COMP-1)
  
  
 FTENSTBL MICRO  1,,*C.FTENS* 
          ENTRY  C.FTENS
*CALL FTENSTBL
          SPACE  4
          END 
