Common COMPCDD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcdd +++|          CTEXT  COMPCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00002  M00S00002.compcdd +++| COMPCDD  SPACE  4,10
00003  M00S00003.compcdd +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compcdd +++|          QUAL   COMPCDD
00005  M00S00005.compcdd +++|*COMMENT  COMPCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compcdd +++| COMPCDD  SPACE  4,10
00009  M00S00008.compcdd +++|***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00010  M00S00009.compcdd +++|*         P. D. FARRELL.     81/10/09.
00011  M00S00010.compcdd +++| COMPCDD  SPACE  4,15
00012  M00S00011.compcdd +++|***            *CDD* CONVERTS A BINARY CONSTANT TO UP TO TWO
00013  M00S00012.compcdd +++|*         DECIMAL DIGITS OF DISPLAY CODE (00 TO 99D) WITH
00014  M00S00013.compcdd +++|*         LEADING ZEROES.
00015  M00S00014.compcdd +++|*
00016  M00S00015.compcdd +++|*         ENTRY  (A) = CONSTANT TO BE CONVERTED.
00017  M00S00016.compcdd +++|*
00018  M00S00017.compcdd +++|*         EXIT   (A) = CONVERSION IF NO RANGE ERROR.
00019  M00S00018.compcdd +++|*                    = 2R** IF RANGE ERROR.
00020  M00S00019.compcdd +++|
00021  M00S00020.compcdd +++|
00022  M00S00021.compcdd +++| CDD3     LDC    2R**        SET (A) = RANGE ERROR
00023  M00S00022.compcdd +++|*         UJN    CDDX        RETURN
00024  M00S00023.compcdd +++|
00025  M00S00024.compcdd +++|*         CDD - ENTRY/EXIT.
00026  M00S00025.compcdd +++|
00027  M00S00026.compcdd +++| CDD      SUBR               ENTRY/EXIT
00028  M00S00027.compcdd +++|          MJN    CDD3        IF NEGATIVE VALUE
00029  M00S00028.compcdd +++|          STD    T0          SAVE CONSTANT
00030  M00S00029.compcdd +++|          SBK    100D        CHECK RANGE
00031  M00S00030.compcdd +++|          PJN    CDD3        IF RANGE ERROR
00032  M00S00031.compcdd +++|          LDC    2R00+10D    INITIALIZE ASSEMBLY
00033  M00S00032.compcdd +++|          STM    CDDA
00034  M00S00033.compcdd +++| CDD1     LCN    10D         SUBTRACT 10D
00035  M00S00034.compcdd +++|          RAD    T0
00036  M00S00035.compcdd +++|          MJN    CDD2        IF .LT. 10D REMAINING
00037  M00S00036.compcdd +++|          LDD    HN          ADVANCE TENS DIGIT
00038  M00S00037.compcdd +++|          RAM    CDDA
00039  M00S00038.compcdd +++|          UJN    CDD1        LOOP FOR ALL MULTIPLES OF 10D
00040  M00S00039.compcdd +++|
00041  M00S00040.compcdd +++| CDD2     ADC    2R00+10D    ASSEMBLE TENS AND ONES DIGITS
00042  M00S00041.compcdd +++| CDDA     EQU    *-1
00043  M00S00042.compcdd +++|          UJP    CDDX        RETURN
00044  M00S00043.compcdd +++| COMPCDD  SPACE  4,10
00045  M00S00044.compcdd +++| QUAL$    IF     -DEF,QUAL$
00046  M00S00045.compcdd +++|          QUAL   *
00047  M00S00046.compcdd +++| CDD      EQU    /COMPCDD/CDD
00048  M00S00047.compcdd +++| QUAL$    ENDIF
00049  M00S00048.compcdd +++|          ENDX