Common COMCCDD

Library Member Format: MODIFY

Source

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