*DECK C$ITENS 
          IDENT  C$ITENS
          TITLE  CBITENS -  TABLE OF INTEGER POWERS OF 10 
          COMMENT  TABLE OF INTEGER POWERS OF 10
          SPACE  4
**        C.ITENS -  TABLE OF INTEGER POWERS OF 10
* 
*         SA1    =X_C.ITENS-1+I    GETS 10'I
  
  
          ENTRY  C.ITENS
 C.ITENS  CON    10 
          CON    100
          CON    1000 
          CON    10000
          CON    100000 
          CON    1000000
          CON    10000000 
          CON    100000000
          CON    1000000000 
          CON    10000000000
          CON    100000000000 
          CON    1000000000000
          CON    10000000000000 
          CON    100000000000000
          CON    1000000000000000 
          CON    10000000000000000
          END 
