1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccdd +++|          CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00002  M01S00002.comccdd +++| CDD      SPACE  4
00003  M01S00003.comccdd +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccdd +++|          QUAL   COMCCDD
00005  M01S00005.comccdd +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccdd +++| CDD      SPACE  4
00009  M01S00008.comccdd +++|***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
00010  M01S00009.comccdd +++|*         G. R. MANSFIELD.  70/12/18.
00011  M01S00010.comccdd +++|*         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.
00012  M01S00011.comccdd +++| CDD      SPACE  4
00013  M01S00012.comccdd +++|***              CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
00014  M01S00013.comccdd +++|*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL
00015  M01S00014.comccdd +++|*         AND IS RIGHT AND LEFT JUSTIFIED.
00016  M01S00015.comccdd +++|*
00017  M01S00016.comccdd +++|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
00018  M01S00017.comccdd +++|*                (B1) = 1.
00019  M01S00018.comccdd +++|*
00020  M01S00019.comccdd +++|*         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.
00021  M01S00020.comccdd +++|*                (X4) = DPC CONVERSION LEFT JUSTIFIED.
00022  M01S00021.comccdd +++|*                (B2) = 6*COUNT OF DIGITS CONVERTED.
00023  M01S00022.comccdd +++|*
00024  M01S00023.comccdd +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00025  M01S00024.comccdd +++|*                B - 2, 3, 4.
00026  M01S00025.comccdd +++|*                A - 2, 3, 4.
00027  M01S00026.comccdd +++|*
00028  M01S00027.comccdd +++|*         CALLS  NONE.
00029  M01S00028.comccdd +++|
00030  M01S00029.comccdd +++|
00031  M01S00030.comccdd +++| CDD1     DX6    X1*X2       COMPUTE QUOTIENT
00032  M01S00031.comccdd +++|          FX1    X1*X2
00033  M01S00032.comccdd +++|          UX7    X1          CHECK QUOTIENT
00034  M01S00033.comccdd +++|          LX4    -6          SHIFT ASSEMBLY
00035  M01S00034.comccdd +++|          SB2    B2+B4
00036  M01S00035.comccdd +++|          FX6    X6*X3       EXTRACT REMAINDER DIGIT
00037  M01S00036.comccdd +++|          SX6    X6+B3       CONVERT DIGIT
00038  M01S00037.comccdd +++|          IX4    X6+X4
00039  M01S00038.comccdd +++|          NZ     X7,CDD1     LOOP TO ZERO QUOTIENT
00040  M01S00039.comccdd +++|          LX4    -6          LEFT JUSTIFY ASSEMBLY
00041  M01S00040.comccdd +++|          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY
00042  M01S00041.comccdd +++|
00043  M01S00042.comccdd +++| CDD      PS                 ENTRY/EXIT
00044  M01S00043.comccdd +++|          SA2    CDDA        =.1P48+1
00045  M01S00044.comccdd +++|          SA3    A2+B1       =10.P
00046  M01S00045.comccdd +++|          PX1    X1
00047  M01S00046.comccdd +++|          SB2    B0          CLEAR JUSTIFY COUNT
00048  M01S00047.comccdd +++|          SA4    A3+B1       =1H
00049  M01S00048.comccdd +++|          SB3    1R0-1R      (B3) = CONVERSION CONSTANT
00050  M01S00049.comccdd +++|          SB4    6           (B4) = SHIFT INCREMENT
00051  M01S00050.comccdd +++|          EQ     CDD1
00052  M01S00051.comccdd +++|
00053  M01S00052.comccdd +++| CDDA     CON    0.1P48+1
00054  M01S00053.comccdd +++|          CON    10.P
00055  M01S00054.comccdd +++|          CON    1H
00056  M01S00055.comccdd +++|          SPACE  4
00057  M01S00056.comccdd +++|          BASE   *
00058  M01S00057.comccdd +++| QUAL$    IF     -DEF,QUAL$
00059  M01S00058.comccdd +++|          QUAL   *
00060  M01S00059.comccdd +++| CDD      EQU    /COMCCDD/CDD
00061  M01S00060.comccdd +++| QUAL$    ENDIF
00062  M01S00061.comccdd +++|          ENDX