*COMDECK XCOD 
          IDENT  XCOD 
          ENTRY  XCOD 
          SYSCOM B1 
          TITLE  XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
          COMMENT CONVERT INTEGER TO OCTAL DISPLAY CODE.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XCOD     SPACE  4,10 
***       XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE. 
* 
*         HOLLERITH = XCOD (INTEGER)
* 
*         XX = XCOD(YY);           (*SYMPL* CALL) 
* 
*         ENTRY  (YY) = THE INTEGER TO BE CONVERTED.
* 
*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         USES   X - 1. 
*                A - 1. 
*                B - 1. 
* 
*         CALLS  COD. 
  
  
 XCOD     SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCOD= 
          EQ     XCODX       RETURN, RESULT IN X6 
  
          END 
