1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccfd +++|          CTEXT  COMCCFD - CONSTANT TO F10.3 CONVERSION.
00002  M01S00002.comccfd +++|          SPACE  4
00003  M01S00003.comccfd +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccfd +++|          QUAL   COMCCFD
00005  M01S00005.comccfd +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1971.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccfd +++| CFD      SPACE  4
00009  M01S00008.comccfd +++|***       CFD - CONSTANT TO F10.3 DISPLAY CODE CONVERSION.
00010  M01S00009.comccfd +++|*         J.C. BOHNHOFF. 71/08/15.
00011  M01S00010.comccfd +++|*         ADAPTED FROM SUBROUTINE *RJA* IN CPUMTR.
00012  M01S00011.comccfd +++|          SPACE  4
00013  M01S00012.comccfd +++|***       *CFD* CONVERTS A 30 BIT INTEGER TO DISPLAY CODE IN *FORTRAN*
00014  M01S00013.comccfd +++|*         *F10.3* FORMAT.  THE VALUE RETURNED IS EQUAL TO THE INPUT
00015  M01S00014.comccfd +++|*         VALUE DIVIDED BY 1000D.  THE RESULT IS RETURNED BOTH LEFT
00016  M01S00015.comccfd +++|*         AND RIGHT JUSTIFIED AND LEADING ZEROS IN THE INTEGER PORTION
00017  M01S00016.comccfd +++|*         ARE SUPPRESSED.  IF THE 30 BIT NUMBER EXCEEDS 999999.999
00018  M01S00017.comccfd +++|*         (INPUT EXCEEDS 7346544777B) THE RESULT WILL BE **********.
00019  M01S00018.comccfd +++|*         AN INPUT VALUE GREATER THAN 30 BITS IS TRUNCATED TO THE
00020  M01S00019.comccfd +++|*         LOWER 30 BITS.
00021  M01S00020.comccfd +++|*
00022  M01S00021.comccfd +++|*         ENTRY  (X1)= INTEGER TO BE CONVERTED.
00023  M01S00022.comccfd +++|*                (B1)= 1.
00024  M01S00023.comccfd +++|*
00025  M01S00024.comccfd +++|*         EXIT   (X6)= CONVERSION RIGHT JUSTIFIED.
00026  M01S00025.comccfd +++|*                (X4)= CONVERSION LEFT JUSTIFIED.
00027  M01S00026.comccfd +++|*                (B3) = - (NUMBER OF BLANK CHARACTERS * 6).
00028  M01S00027.comccfd +++|*
00029  M01S00028.comccfd +++|*         USES   B - 2, 3, 4, 5.
00030  M01S00029.comccfd +++|*                A - 2, 3, 4.
00031  M01S00030.comccfd +++|*                X - 1, 2, 3, 4, 6, 7.
00032  M01S00031.comccfd +++|
00033  M01S00032.comccfd +++|
00034  M01S00033.comccfd +++| CFD3     SA4    CFDC        GET OVERFLOW CONVERSION
00035  M01S00034.comccfd +++|          SB3    B0
00036  M01S00035.comccfd +++|          BX6    X4
00037  M01S00036.comccfd +++| CFD      PS                 ENTRY/EXIT
00038  M01S00037.comccfd +++|          SA2    CFDA        =.1P48+1
00039  M01S00038.comccfd +++|          SA3    CFDB        =10.0P
00040  M01S00039.comccfd +++|          SA4    A2+B1
00041  M01S00040.comccfd +++|          MX6    -30
00042  M01S00041.comccfd +++|          SB5    6
00043  M01S00042.comccfd +++|          BX6    -X6*X1      DISCARD UPPER BITS
00044  M01S00043.comccfd +++|          SX7    1000
00045  M01S00044.comccfd +++|          IX4    X4-X6
00046  M01S00045.comccfd +++|          SB4    1R0-1R      (B4)= CONVERSION
00047  M01S00046.comccfd +++|          NG     X4,CFD3     IF INPUT .GT. 999999.999
00048  M01S00047.comccfd +++|          SA4    A3+B1       (X4)= BACKGROUND
00049  M01S00048.comccfd +++|          PX1    X6
00050  M01S00049.comccfd +++|          IX7    X6-X7
00051  M01S00050.comccfd +++|          SB2    -B5
00052  M01S00051.comccfd +++|          PL     X7,CFD1     IF INTEGER PRESENT
00053  M01S00052.comccfd +++|          SB4    B0
00054  M01S00053.comccfd +++|          SA4    A4+B1
00055  M01S00054.comccfd +++| CFD1     DX6    X2*X1       EXTRACT REMAINDER
00056  M01S00055.comccfd +++|          FX1    X2*X1
00057  M01S00056.comccfd +++|          UX7    X1          CHECK QUOTIENT
00058  M01S00057.comccfd +++|          LX4    -6          SHIFT ASSEMBLY
00059  M01S00058.comccfd +++|          SB2    B2+B5       ADVANCE SHIFT COUNT
00060  M01S00059.comccfd +++|          FX6    X3*X6       EXTRACT DIGIT
00061  M01S00060.comccfd +++|          SX6    X6+B4       CONVERT DIGIT
00062  M01S00061.comccfd +++|          IX4    X6+X4
00063  M01S00062.comccfd +++|          NZ     X7,CFD1     LOOP TO ZERO QUOTIENT
00064  M01S00063.comccfd +++|          SX3    1R.         INSERT DECIMAL POINT
00065  M01S00064.comccfd +++|          MX2    -18         FRACTION MASK
00066  M01S00065.comccfd +++|          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY
00067  M01S00066.comccfd +++|          SB2    B2+12       CALCULATE SHIFT TO LEFT JUSTIFY
00068  M01S00067.comccfd +++|          LX3    18
00069  M01S00068.comccfd +++|          BX1    -X2*X6      EXTRACT FRACTION
00070  M01S00069.comccfd +++|          SB3    6*5
00071  M01S00070.comccfd +++|          IX7    X1+X3       ADD DECIMAL POINT
00072  M01S00071.comccfd +++|          BX4    X2*X6       EXTRACT INTEGER
00073  M01S00072.comccfd +++|          LX4    6
00074  M01S00073.comccfd +++|          IX6    X4+X7       ADD INTEGER INTO RESULT
00075  M01S00074.comccfd +++|          LT     B2,B3,CFD2  LEFT JUSTIFY RESULT
00076  M01S00075.comccfd +++|          SB3    B2+
00077  M01S00076.comccfd +++| CFD2     SB3    B3-60
00078  M01S00077.comccfd +++|          AX4    X6,B3
00079  M01S00078.comccfd +++|          EQ     CFD         **RETURN
00080  M01S00079.comccfd +++|
00081  M01S00080.comccfd +++| CFDA     CON    0.1P48+1
00082  M01S00081.comccfd +++|          CON    7346544777B OVERFLOW BOUNDARY
00083  M01S00082.comccfd +++| CFDB     CON    10.0P
00084  M01S00083.comccfd +++|          CON    9L
00085  M01S00084.comccfd +++|          CON    9L     0000
00086  M01S00085.comccfd +++| CFDC     DATA   10R**********
00087  M01S00086.comccfd +++|          SPACE  4
00088  M01S00087.comccfd +++|          BASE   *
00089  M01S00088.comccfd +++| QUAL$    IF     -DEF,QUAL$
00090  M01S00089.comccfd +++|          QUAL   *
00091  M01S00090.comccfd +++| CFD      EQU    /COMCCFD/CFD
00092  M01S00091.comccfd +++| QUAL$    ENDIF
00093  M01S00092.comccfd +++|          ENDX