*DECK XCDD
          IDENT  XCDD 
          ENTRY  XCDD 
          B1=1
          LIST   F
          TITLE  XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT   CONVERT INTEGER TO DECIMAL DISPLAY CODE.
 XCDD     SPACE  4,10 
***       XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
* 
*         HOLLERITH = XCDD (INTEGER)
* 
*         XX = XCDD(YY);     ( SYMPL CALL ) 
* 
*         ENTRY - YY, AN ITEM THAT CONTAINS THE INTEGER TO BE CONVERTED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XCDD     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCDD= 
          JP     XCDDX       RETURN, RESULT IN X6 
 
          END