*COMDECK  COMCCOD            CONVERT CONSTANT TO OCTAL DISPLAY CODE.     COMCCOD
 COD      CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.    COMCCOD
 COD      SPACE  4,10                                                    COMCCOD
          IF     -DEF,QUAL$,1                                            COMCCOD
          QUAL   COMCCOD                                                 COMCCOD
          BASE   D                                                       COMCCOD
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCOD
 COD      SPACE  4,10                                                    COMCCOD
***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.               COMCCOD
*                                                                        COMCCOD
*         G. R. MANSFIELD.   70/12/18.                                   COMCCOD
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
*                                                                        COMCCOD
*         COD CONVERTS AN INTEGER CONSTANT TO OCTAL DISPLAY CODE.        COMCCOD
 COD      SPACE  4,10                                                    COMCCOD
***       COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCOD
*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCOD
*         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCOD
*                                                                        COMCCOD
*         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCOD
*                (B1) = 1.                                               COMCCOD
*                                                                        COMCCOD
*         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCOD
*                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCOD
*                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCOD
*                                                                        COMCCOD
*         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCOD
*                B - 2, 3, 4.                                            COMCCOD
*                A - 4.                                                  COMCCOD
*                                                                        COMCCOD
*         CALLS  NONE.                                                   COMCCOD
                                                                         COMCCOD
                                                                         COMCCOD
 COD      SUBR               ENTRY/EXIT                                  COMCCOD
          SA4    CODA        =1H                                         COMCCOD
          SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD
          MX2    -3          (X2) = DIGIT MASK                           COMCCOD
          SB2    B0          CLEAR JUSTIFY COUNT                         COMCCOD
          SB4    1R0-1R      (B4) = CONVERSION COUNT                     COMCCOD
 COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD
          LX4    -6          SHIFT ASSEMBLY                              COMCCOD
          SB2    B2+B3                                                   COMCCOD
          SX3    X7+B4       CONVERT DIGIT                               COMCCOD
          AX1    3           SHIFT OFF DIGIT                             COMCCOD
          IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD
          NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD
          LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD
          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD
          EQ     CODX        RETURN                                      COMCCOD
                                                                         COMCCOD
 CODA     CON    1H                                                      COMCCOD
 COD      SPACE  4,10                                                    COMCCOD
          BASE   *                                                       COMCCOD
 QUAL$    IF     -DEF,QUAL$                                              COMCCOD
          QUAL   *                                                       COMCCOD
 COD      EQU    /COMCCOD/COD                                            COMCCOD
 COD=     EQU    /COMCCOD/COD 
 QUAL$    ENDIF                                                          COMCCOD
 COD      ENDX                                                           COMCCOD
