*COMDECK  COMCCDD            CONVERT CONSTANT TO DECIMAL DISPLAY CODE.   COMCCDD
 CDD      CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.  COMCCDD
 CDD      SPACE  4,10                                                    COMCCDD
          IF     -DEF,QUAL$,1                                            COMCCDD
          QUAL   COMCCDD                                                 COMCCDD
          BASE   D                                                       COMCCDD
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCDD
 CDD      SPACE  4,10                                                    COMCCDD
***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.             COMCCDD
*                                                                        COMCCDD
*         G. R. MANSFIELD.   70/12/18.                                   COMCCDD
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
*                                                                        COMCCDD
*         CDD CONVERTS AN INTEGER CONSTANT TO DECIMAL DISPLAY CODE.      COMCCDD
 CDD      SPACE  4,10                                                    COMCCDD
***       CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCDD
*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCDD
*         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCDD
*                                                                        COMCCDD
*         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCDD
*                (B1) = 1.                                               COMCCDD
*                                                                        COMCCDD
*         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCDD
*                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCDD
*                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCDD
*                                                                        COMCCDD
*         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCDD
*                B - 2, 3, 4.                                            COMCCDD
*                A - 2, 3, 4.                                            COMCCDD
*                                                                        COMCCDD
*         CALLS  NONE.                                                   COMCCDD
                                                                         COMCCDD
                                                                         COMCCDD
 CDD1     DX6    X1*X2       COMPUTE QUOTIENT                            COMCCDD
          FX1    X1*X2                                                   COMCCDD
          UX7    X1          CHECK QUOTIENT                              COMCCDD
          LX4    -6          SHIFT ASSEMBLY                              COMCCDD
          SB2    B2+B4                                                   COMCCDD
          FX6    X6*X3       EXTRACT REMAINDER DIGIT                     COMCCDD
          SX6    X6+B3       CONVERT DIGIT                               COMCCDD
          IX4    X6+X4                                                   COMCCDD
          NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                       COMCCDD
          LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCDD
          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCDD
                                                                         COMCCDD
 CDD      SUBR               ENTRY/EXIT                                  COMCCDD
          SA2    CDDA        =.1P48+1                                    COMCCDD
          SA3    A2+B1       =10.P                                       COMCCDD
          PX1    X1                                                      COMCCDD
          SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD
          SA4    A3+B1       =1H                                         COMCCDD
          SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD
          SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD
          EQ     CDD1                                                    COMCCDD
                                                                         COMCCDD
 CDDA     CON    0.1P48+1                                                COMCCDD
          CON    10.P                                                    COMCCDD
          CON    1H                                                      COMCCDD
 CDD      SPACE  4,10                                                    COMCCDD
          BASE   *                                                       COMCCDD
 QUAL$    IF     -DEF,QUAL$                                              COMCCDD
          QUAL   *                                                       COMCCDD
 CDD      EQU    /COMCCDD/CDD                                            COMCCDD
 CDD=     EQU    /COMCCDD/CDD 
 QUAL$    ENDIF                                                          COMCCDD
 CDD      ENDX                                                           COMCCDD
