COMPC2D 
COMMON
          CTEXT  COMPC2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.
 C2D      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPC2D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 C2D      SPACE  4
***       C2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE. 
*         G. R. MANSFIELD.  70/08/30. 
 C2D      SPACE  4
***              C2D CONVERTS 2 OCTAL DIGITS TO DISPLAY CODE. 
* 
*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
* 
*         EXIT   (A) = CONVERSION.
* 
*         USES   T0.
* 
*         CALLS  NONE.
  
  
 C2D      SUBR               ENTRY/EXIT 
          LPN    77          UNPACK 
          STD    T0 
          SHN    3
          LMD    T0 
          SCN    70 
          ADC    2R00        CONVERT
          UJN    C2DX        RETURN 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 C2D      EQU    /COMPC2D/C2D 
 QUAL$    ENDIF 
          ENDX
