Common COMPC2D

1 Modification

Source

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

Line S00005 Modification History
`M01` (Added by)	`compc2d`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compc2d +++| C2D      SPACE  4
00008  M01S00007.compc2d +++|***       C2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.
00009  M01S00008.compc2d +++|*         G. R. MANSFIELD.  70/08/30.
00010  M01S00009.compc2d +++| C2D      SPACE  4
00011  M01S00010.compc2d +++|***              C2D CONVERTS 2 OCTAL DIGITS TO DISPLAY CODE.
00012  M01S00011.compc2d +++|*
00013  M01S00012.compc2d +++|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00014  M01S00013.compc2d +++|*
00015  M01S00014.compc2d +++|*         EXIT   (A) = CONVERSION.
00016  M01S00015.compc2d +++|*
00017  M01S00016.compc2d +++|*         USES   T0.
00018  M01S00017.compc2d +++|*
00019  M01S00018.compc2d +++|*         CALLS  NONE.
00020  M01S00019.compc2d +++|
00021  M01S00020.compc2d +++|
00022  M01S00021.compc2d +++| C2D      SUBR               ENTRY/EXIT
00023  M01S00022.compc2d +++|          LPN    77          UNPACK
00024  M01S00023.compc2d +++|          STD    T0
00025  M01S00024.compc2d +++|          SHN    3
00026  M01S00025.compc2d +++|          LMD    T0
00027  M01S00026.compc2d +++|          SCN    70
00028  M01S00027.compc2d +++|          ADC    2R00        CONVERT
00029  M01S00028.compc2d +++|          UJN    C2DX        RETURN
00030  M01S00029.compc2d +++|          SPACE  4
00031  M01S00030.compc2d +++| QUAL$    IF     -DEF,QUAL$
00032  M01S00031.compc2d +++|          QUAL   *
00033  M01S00032.compc2d +++| C2D      EQU    /COMPC2D/C2D
00034  M01S00033.compc2d +++| QUAL$    ENDIF
00035  M01S00034.compc2d +++|          ENDX