Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comccdd +++| CTEXT COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00002 M00S00002.comccdd +++| CDD SPACE 4
00003 M00S00003.comccdd +++| IF -DEF,QUAL$,1
00004 M00S00004.comccdd +++| QUAL COMCCDD
00005 M00S00005.comccdd +++| BASE D
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.comccdd +++| CDD SPACE 4
00009 M00S00008.comccdd +++|*** CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00010 M00S00009.comccdd +++|* G. R. MANSFIELD. 70/12/18.
00011 M00S00010.comccdd +++|* ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.
00012 M00S00011.comccdd +++| CDD SPACE 4
00013 M00S00012.comccdd +++|*** CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
00014 M00S00013.comccdd +++|* LEADING ZERO SUPPRESSION. CONVERSION CONTAINS SPACE FILL
00015 M00S00014.comccdd +++|* AND IS RIGHT AND LEFT JUSTIFIED.
00016 M00S00015.comccdd +++|*
00017 M00S00016.comccdd +++|* ENTRY (X1) = NUMBER TO BE CONVERTED.
00018 M00S00017.comccdd +++|* (B1) = 1.
00019 M00S00018.comccdd +++|*
00020 M00S00019.comccdd +++|* EXIT (X6) = DPC CONVERSION RIGHT JUSTIFIED.
00021 M00S00020.comccdd +++|* (X4) = DPC CONVERSION LEFT JUSTIFIED.
00022 M00S00021.comccdd +++|* (B2) = 6*COUNT OF DIGITS CONVERTED.
00023 M00S00022.comccdd +++|*
00024 M00S00023.comccdd +++|* USES X - 1, 2, 3, 4, 6, 7.
00025 M00S00024.comccdd +++|* B - 2, 3, 4.
00026 M00S00025.comccdd +++|* A - 2, 3, 4.
00027 M00S00026.comccdd +++|*
00028 M00S00027.comccdd +++|* CALLS NONE.
00029 M00S00028.comccdd +++|
00030 M00S00029.comccdd +++|
00031 M00S00030.comccdd +++| CDD1 DX6 X1*X2 COMPUTE QUOTIENT
00032 M00S00031.comccdd +++| FX1 X1*X2
00033 M00S00032.comccdd +++| UX7 X1 CHECK QUOTIENT
00034 M00S00033.comccdd +++| LX4 -6 SHIFT ASSEMBLY
00035 M00S00034.comccdd +++| SB2 B2+B4
00036 M00S00035.comccdd +++| FX6 X6*X3 EXTRACT REMAINDER DIGIT
00037 M00S00036.comccdd +++| SX6 X6+B3 CONVERT DIGIT
00038 M00S00037.comccdd +++| IX4 X6+X4
00039 M00S00038.comccdd +++| NZ X7,CDD1 LOOP TO ZERO QUOTIENT
00040 M00S00039.comccdd +++| LX4 -6 LEFT JUSTIFY ASSEMBLY
00041 M00S00040.comccdd +++| LX6 X4,B2 RIGHT JUSTIFY ASSEMBLY
00042 M00S00041.comccdd +++|
00043 M00S00042.comccdd +++| CDD PS ENTRY/EXIT
00044 M00S00043.comccdd +++| SA2 CDDA =.1P48+1
00045 M00S00044.comccdd +++| SA3 A2+B1 =10.P
00046 M00S00045.comccdd +++| PX1 X1
00047 M00S00046.comccdd +++| SB2 B0 CLEAR JUSTIFY COUNT
00048 M00S00047.comccdd +++| SA4 A3+B1 =1H
00049 M00S00048.comccdd +++| SB3 1R0-1R (B3) = CONVERSION CONSTANT
00050 M00S00049.comccdd +++| SB4 6 (B4) = SHIFT INCREMENT
00051 M00S00050.comccdd +++| EQ CDD1
00052 M00S00051.comccdd +++|
00053 M00S00052.comccdd +++| CDDA CON 0.1P48+1
00054 M00S00053.comccdd +++| CON 10.P
00055 M00S00054.comccdd +++| CON 1H
00056 M00S00055.comccdd +++| SPACE 4
00057 M00S00056.comccdd +++| BASE *
00058 M00S00057.comccdd +++| QUAL$ IF -DEF,QUAL$
00059 M00S00058.comccdd +++| QUAL *
00060 M00S00059.comccdd +++| CDD EQU /COMCCDD/CDD
00061 M00S00060.comccdd +++| QUAL$ ENDIF
00062 M00S00061.comccdd +++| ENDX