*COMDECK  CDZ 
          IDENT  CDZ
          TITLE  CDZ - CONVERT TO DECIMAL DISPLAY CODE. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  CDZ
  
  
          COMMENT  CONVERT TO DECIMAL DISPLAY CODE. 
          COMMENT  COPYRIGHT CONTROL DATA CORP. 1979. 
          SPACE  4,10 
*** 
*         CDZ   - CONVERT TO DECIMAL DISPLAY CODE.
* 
*         J. G. CLARK        79/12/17.
          SPACE  4,10 
***       CDZ - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
*         G. R. MANSFIELD.  70/12/18. 
*         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.
 CDZ      SPACE  4
***              CDZ CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
*         LEADING ZEROS. CONVERSION CONTAINS DISPLAY CODE ZERO FILL 
*         AND IS RIGHT AND LEFT JUSTIFIED.
* 
*         ENTRY  (X1) = NUMBER TO BE CONVERTED. 
*                (B1) = 1.
* 
*         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED. 
*                (X4) = DPC CONVERSION LEFT JUSTIFIED.
*                (B2) = 6*COUNT OF DIGITS CONVERTED.
* 
*         USES   X - 1, 2, 3, 4, 6, 7.
*                B - 2, 3.
*                A - 2, 3, 4. 
* 
*         CALLS  NONE.
  
  
 CDZ1     DX6    X1*X2       COMPUTE QUOTIENT 
          FX1    X1*X2
          LX4    -6 
          UX7    X1          CHECK QUOTIENT 
          FX6    X6*X3       EXTRACT REMAINDER DIGIT
          SB2    B2+B3
          SX6    X6          CLEAR EXPONENT 
          IX4    X6+X4
          NZ     X7,CDZ1     LOOP TO ZERO QUOTIENT
          LX4    -6          LEFT JUSTIFY ASSEMBLY
          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY 
  
 CDZ      PS                 ENTRY/EXIT 
          SA2    CDZA        =.1P48+1 
          SA3    A2+B1       =10.P
          PX1    X1 
          SB2    B0          CLEAR JUSTIFY COUNT
          SB3    6           SET SHIFT COUNT
          SA4    A3+B1       =10H0000000000 
          EQ     CDZ1 
  
 CDZA     CON    0.1P48+1 
          CON    10.P 
          CON    10H0000000000
  
  
          END 
