*DECK     XCDD    - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          IDENT  XCDD 
          B1=1
          LIST   F,X
          TITLE  XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT  CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
 XCDD     SPACE  4,8
**        XCDD  -  CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
* 
*         R. H. GOODELL.     76/06/22.
* 
*         SYMPL-CALLABLE ENTRY POINTS FOR INTERFACING TO THE
*         STANDARD COMPASS-CALLABLE ROUTINE.
 XCDD     SPACE  4,8
**        XCDD - CONVERSION RIGHT JUSTIFIED.
* 
*         FUNC XCDD (N) C (10). 
* 
*         ITEM N I.          INTEGER TO BE CONVERTED. 
  
  
 XCDD     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA1    X1+         FETCH N
          RJ     =XCDD       CONVERT
          JP     EXIT.       RETURN, RESULT IN X6 
 XCDDL    SPACE  4,8
**        XCDDL - CONVERSION LEFT JUSTIFIED.
* 
*         PROC XCDDL (N, M, L). 
* 
*         ITEM N I.          INTEGER TO BE CONVERTED. 
*         ITEM M C (10).     CONVERTED RESULT.
*         ITEM L I.          6 * NUMBER OF DIGITS IN (M). 
  
  
 XCDDL    SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH N
          RJ     =XCDD       CONVERT
          SA1    B7+B1       FETCH M AND L ADDRESSES
          SA2    A1+B1
          BX6    X4          (M) = LEFT JUSTIFIED RESULT
          SX7    B2          (L) = BIT COUNT OF SIGNIFICANT DIGITS
          SA6    X1 
          SA7    X2 
          JP     EXIT.       RETURN 
 CDD      SPACE  4,8
**        CDD  -  COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCCDD            CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
  
  
          ENTRY  CDD=                                                   000600
  
  
          END 
