User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comccod

Common COMCCOD

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccod +++|          CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.
00002  M01S00002.comccod +++| COD      SPACE  4
00003  M01S00003.comccod +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccod +++|          QUAL   COMCCOD
00005  M01S00005.comccod +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comccod
M02 (Updated by) 281l803
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.comccod +++| COD      SPACE  4
00009  M01S00008.comccod +++|***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.
00010  M01S00009.comccod +++|*         G. R. MANSFIELD.  70/12/18.
00011  M01S00010.comccod +++|*         ADAPTED FROM SUBROUTINE *COD* IN *LIBEDIT*.
00012  M01S00011.comccod +++| COD      SPACE  4
00013  M01S00012.comccod +++|***              COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
00014  M01S00013.comccod +++|*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL
00015  M01S00014.comccod +++|*         AND IS RIGHT AND LEFT JUSTIFIED.
00016  M01S00015.comccod +++|*
00017  M01S00016.comccod +++|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
00018  M01S00017.comccod +++|*                (B1) = 1.
00019  M01S00018.comccod +++|*
00020  M01S00019.comccod +++|*         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.
00021  M01S00020.comccod +++|*                (X4) = DPC CONVERSION LEFT JUSTIFIED.
00022  M01S00021.comccod +++|*                (B2) = 6*COUNT OF DIGITS CONVERTED.
00023  M01S00022.comccod +++|*
00024  M01S00023.comccod +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00025  M01S00024.comccod +++|*                B - 2, 3, 4.
00026  M01S00025.comccod +++|*                A - 4.
00027  M01S00026.comccod +++|*
00028  M01S00027.comccod +++|*         CALLS  NONE.
00029  M01S00028.comccod +++|
00030  M01S00029.comccod +++|
00031  M01S00030.comccod +++| COD      PS                 ENTRY/EXIT
00032  M01S00031.comccod +++|          SA4    CODA        =1H
00033  M01S00032.comccod +++|          SB3    6           (B3) = SHIFT INCREMENT
00034  M01S00033.comccod +++|          MX2    -3          (X2) = DIGIT MASK
00035  M01S00034.comccod +++|          SB2    B0          CLEAR JUSTIFY COUNT
00036  M01S00035.comccod +++|          SB4    1R0-1R      (B4) = CONVERSION COUNT
00037  M01S00036.comccod +++| COD1     BX7    -X2*X1      EXTRACT DIGIT
00038  M01S00037.comccod +++|          LX4    -6          SHIFT ASSEMBLY
00039  M01S00038.comccod +++|          SB2    B2+B3
00040  M01S00039.comccod +++|          SX3    X7+B4       CONVERT DIGIT
00041  M01S00040.comccod +++|          AX1    3           SHIFT OFF DIGIT
00042  M01S00041.comccod +++|          IX4    X4+X3       ADD DIGIT TO ASSEMBLY
00043  M01S00042.comccod +++|          NZ     X1,COD1     LOOP TO ZERO DIGIT
00044  M01S00043.comccod +++|          LX4    -6          LEFT JUSTIFY ASSEMBLY
00045  M01S00044.comccod +++|          LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY
00046  M01S00045.comccod +++|          EQ     COD         RETURN
00047  M01S00046.comccod +++|
00048  M01S00047.comccod +++| CODA     CON    1H
00049  M01S00048.comccod +++|          SPACE  4
00050  M01S00049.comccod +++|          BASE   *
00051  M01S00050.comccod +++| QUAL$    IF     -DEF,QUAL$
00052  M01S00051.comccod +++|          QUAL   *
00053  M01S00052.comccod +++| COD      EQU    /COMCCOD/COD
00054  M01S00053.comccod +++| QUAL$    ENDIF
00055  M01S00054.comccod +++|          ENDX
cdc/nos2.source/opl.opl871/common/comccod.txt · Last modified: by 127.0.0.1