*COMDECK NETXCDD
          SB1    1
          SA1    X1+
          RJ     CDD
          JP     NP$XCDD     RETURN, RESULT IN X6 
 CDD      SPACE  4,10 
**        *CALL  COMCCDD     AT THIS IDENT+1
*CALL     COMCCDD            CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
