Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.compcdd +++| CTEXT COMPCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00002 M01S00002.compcdd +++| COMPCDD SPACE 4,10
00003 M01S00003.compcdd +++| IF -DEF,QUAL$,1
00004 M01S00004.compcdd +++| QUAL COMPCDD
00005 M01S00005.compcdd +++|*COMMENT COMPCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
| Line S00006 Modification History |
M01 (Added by) | compcdd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M01S00007.compcdd +++| COMPCDD SPACE 4,10
00009 M01S00008.compcdd +++|*** CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00010 M01S00009.compcdd +++|* P. D. FARRELL. 81/10/09.
00011 M01S00010.compcdd +++| COMPCDD SPACE 4,15
00012 M01S00011.compcdd +++|*** *CDD* CONVERTS A BINARY CONSTANT TO UP TO TWO
00013 M01S00012.compcdd +++|* DECIMAL DIGITS OF DISPLAY CODE (00 TO 99D) WITH
00014 M01S00013.compcdd +++|* LEADING ZEROES.
00015 M01S00014.compcdd +++|*
00016 M01S00015.compcdd +++|* ENTRY (A) = CONSTANT TO BE CONVERTED.
00017 M01S00016.compcdd +++|*
00018 M01S00017.compcdd +++|* EXIT (A) = CONVERSION IF NO RANGE ERROR.
00019 M01S00018.compcdd +++|* = 2R** IF RANGE ERROR.
00020 M01S00019.compcdd +++|
00021 M01S00020.compcdd +++|
00022 M01S00021.compcdd +++| CDD3 LDC 2R** SET (A) = RANGE ERROR
00023 M01S00022.compcdd +++|* UJN CDDX RETURN
00024 M01S00023.compcdd +++|
00025 M01S00024.compcdd +++|* CDD - ENTRY/EXIT.
00026 M01S00025.compcdd +++|
00027 M01S00026.compcdd +++| CDD SUBR ENTRY/EXIT
00028 M01S00027.compcdd +++| MJN CDD3 IF NEGATIVE VALUE
00029 M01S00028.compcdd +++| STD T0 SAVE CONSTANT
00030 M01S00029.compcdd +++| SBK 100D CHECK RANGE
00031 M01S00030.compcdd +++| PJN CDD3 IF RANGE ERROR
00032 M01S00031.compcdd +++| LDC 2R00+10D INITIALIZE ASSEMBLY
00033 M01S00032.compcdd +++| STM CDDA
00034 M01S00033.compcdd +++| CDD1 LCN 10D SUBTRACT 10D
00035 M01S00034.compcdd +++| RAD T0
00036 M01S00035.compcdd +++| MJN CDD2 IF .LT. 10D REMAINING
00037 M01S00036.compcdd +++| LDD HN ADVANCE TENS DIGIT
00038 M01S00037.compcdd +++| RAM CDDA
00039 M01S00038.compcdd +++| UJN CDD1 LOOP FOR ALL MULTIPLES OF 10D
00040 M01S00039.compcdd +++|
00041 M01S00040.compcdd +++| CDD2 ADC 2R00+10D ASSEMBLE TENS AND ONES DIGITS
00042 M01S00041.compcdd +++| CDDA EQU *-1
00043 M01S00042.compcdd +++| UJP CDDX RETURN
00044 M01S00043.compcdd +++| COMPCDD SPACE 4,10
00045 M01S00044.compcdd +++| QUAL$ IF -DEF,QUAL$
00046 M01S00045.compcdd +++| QUAL *
00047 M01S00046.compcdd +++| CDD EQU /COMPCDD/CDD
00048 M01S00047.compcdd +++| QUAL$ ENDIF
00049 M01S00048.compcdd +++| ENDX