*COMDECK XCDD 
          IDENT  XCDD 
          ENTRY  XCDD 
          SYSCOM B1 
          TITLE  XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XCDD     SPACE  4,10 
***       XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
* 
*         HOLLERITH = XCDD (INTEGER)
* 
*         XX = XCDD(YY);           (*SYMPL* CALL) 
* 
*         ENTRY  (YY) =  THE INTEGER TO BE CONVERTED. 
* 
*         EXIT   XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         USES   X - 1. 
*                A - 1. 
*                B - 1. 
* 
*         CALLS  COD. 
  
  
 XCDD     SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCDD= 
          EQ     XCDDX       RETURN, RESULT IN X6 
  
          END 
