*COMDECK NETXCOD
          SB1    1
          SA1    X1+
          RJ     COD
          JP     EXIT.       RETURN, RESULT IN X6 
 COD      SPACE  4,10 
**        *CALL  COMCCOD     AT THIS IDENT+1
*CALL     COMCCOD            CONVERT INTEGER TO OCTAL DISPLAY CODE. 
