*DECK     XCOD    - CONVERT INTEGER TO OCTAL DISPLAY CODE.
          IDENT  XCOD 
          B1=1
          LIST   F,X
          TITLE  XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
          COMMENT  CONVERT INTEGER TO OCTAL DISPLAY CODE. 
 XCOD     SPACE  4,8
**        XCOD  -  CONVERT INTEGER TO OCTAL DISPLAY CODE. 
* 
*         R. H. GOODELL.     76/06/23.
* 
*         SYMPL-CALLABLE ENTRY POINTS FOR INTERFACING TO THE
*         STANDARD COMPASS-CALLABLE ROUTINE.
 XCOD     SPACE  4,8
**        XCOD - CONVERSION RIGHT JUSTIFIED.
* 
*         FUNC XCOD (N) C (10). 
* 
*         ITEM N I.          INTEGER TO BE CONVERTED. 
  
  
 XCOD     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA1    X1+         FETCH N
          RJ     =XCOD       CONVERT
          JP     EXIT.       RETURN, RESULT IN X6 
 XCODL    SPACE  4,8
**        XCODL - CONVERSION LEFT JUSTIFIED.
* 
*         PROC XCODL (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). 
  
  
 XCODL    SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH N
          RJ     =XCOD       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 
 COD      SPACE  4,8
**        COD  -  COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCCOD            CONVERT INTEGER TO OCTAL DISPLAY CODE. 
  
  
          ENTRY  COD=                                                   000620
  
  
          END 
