*DECK YCDZ                         17MAR81
          IDENT  YCDZ 
          TITLE  YCDZ - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          ENTRY  YCDZ 
          SPACE  4,10 
**        YCDZ - CONVERT INTEGER VALUE TO DECIMAL DISPLAY CODE STRING.
* 
*         YCDZ CALLS CDD= TO CONVERT AN INTEGER VALUE TO A DISPLAY CODE 
*         CHARACTER STRING OF A SPECIFIED LENGTH. 
* 
*         XX = YCDZ(YY,NO);     (SYMPL CALL)
* 
*         ENTRY  YY = CONTAINS INTEGER TO BE CONVERTED. 
*                NO = CONTAINS NUMBER OF CHARACTERS IN RESULT.
* 
*         EXIT   XX = DISPLAY-CODED DECIMAL NUMBERS, LEFT JUSTIFIED BY
*                     "NO" CHARACTERS.
* 
*         CALLS  CDD=.
* 
*         USES   A - 1 2 3. 
*                B - 1 5. 
*                X - 1 2 3 4 5 6. 
          SPACE  4,10 
 YCDZ     SUBR               ENTRY/EXIT 
          SB1    1           CONSTANT 1 
          SA2    A1+B1       READ ADDRESS OF SECOND PARAMETER 
          SA1    X1          READ 1ST PARAMETER (YY)
          SA3    X2          READ 2D PARAMETER (NO) 
          BX6    X3 
          SA6    NO          SAVE 2D PARAMETER
          RJ     =XCDZ       CONVERT VALUE
          SA3    NO          GET CHARACTER COUNT
          SX4    6
          IX5    X3*X4       FORM SHIFT COUNT 
          SX4    60D
          IX3    X4-X5
          SB5    X3 
          LX6    B5,X6       LEFT-JUSTIFY RESULT
          EQ     YCDZX       RETURN (RESULT IN X6)
  
 NO       BSS    1
          END 
