*DECK NP$CDD
          IDENT  NP$CDD 
          ENTRY  NP$CDD 
          B1=1
          LIST   F
          TITLE  NP$CDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT   CONVERT INTEGER TO DECIMAL DISPLAY CODE.
 NP$CDD   SPACE  4,10 
***       NP$CDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
* 
*         HOLLERITH = NP$CDD (INTEGER)
* 
*         XX = NP$CDD(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 
  
  
 NP$CDD   SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCDD= 
          JP     NP$CDDX     RETURN, RESULT IN X6 
  
          END