Common COMPC2D

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compc2d +++|          CTEXT  COMPC2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.
00002  M00S00002.compc2d +++| C2D      SPACE  4
00003  M00S00003.compc2d +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compc2d +++|          QUAL   COMPC2D

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compc2d +++| C2D      SPACE  4
00008  M00S00007.compc2d +++|***       C2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.
00009  M00S00008.compc2d +++|*         G. R. MANSFIELD.  70/08/30.
00010  M00S00009.compc2d +++| C2D      SPACE  4
00011  M00S00010.compc2d +++|***              C2D CONVERTS 2 OCTAL DIGITS TO DISPLAY CODE.
00012  M00S00011.compc2d +++|*
00013  M00S00012.compc2d +++|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00014  M00S00013.compc2d +++|*
00015  M00S00014.compc2d +++|*         EXIT   (A) = CONVERSION.
00016  M00S00015.compc2d +++|*
00017  M00S00016.compc2d +++|*         USES   T0.
00018  M00S00017.compc2d +++|*
00019  M00S00018.compc2d +++|*         CALLS  NONE.
00020  M00S00019.compc2d +++|
00021  M00S00020.compc2d +++|
00022  M00S00021.compc2d +++| C2D      SUBR               ENTRY/EXIT
00023  M00S00022.compc2d +++|          LPN    77          UNPACK
00024  M00S00023.compc2d +++|          STD    T0
00025  M00S00024.compc2d +++|          SHN    3
00026  M00S00025.compc2d +++|          LMD    T0
00027  M00S00026.compc2d +++|          SCN    70
00028  M00S00027.compc2d +++|          ADC    2R00        CONVERT
00029  M00S00028.compc2d +++|          UJN    C2DX        RETURN
00030  M00S00029.compc2d +++|          SPACE  4
00031  M00S00030.compc2d +++| QUAL$    IF     -DEF,QUAL$
00032  M00S00031.compc2d +++|          QUAL   *
00033  M00S00032.compc2d +++| C2D      EQU    /COMPC2D/C2D
00034  M00S00033.compc2d +++| QUAL$    ENDIF
00035  M00S00034.compc2d +++|          ENDX