Common COMCHXB

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comchxb +++|          CTEXT  COMCHXB - HEX DISPLAY CODE TO BINARY CONVERSION.
00002  M01S00002.comchxb +++| COMCHXB  SPACE  4,10
00003  M01S00003.comchxb +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comchxb +++|          QUAL   COMCHXB
00005  M01S00005.comchxb +++|

Line S00006 Modification History
`M01` (Added by)	`comchxb`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1977.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comchxb +++| COMCHXB  SPACE  4,10
00009  M01S00008.comchxb +++|***       HXB - HEXADECIMAL DISPLAY CODE TO BINARY CONVERSION.
00010  M01S00009.comchxb +++|*         P. D. FARRELL.     77/02/16.
00011  M01S00010.comchxb +++| COMCHXB  SPACE  4,10
00012  M01S00011.comchxb +++|***              HXB CONVERTS ONE WORD OF HEXADECIMAL DISPLAY
00013  M01S00012.comchxb +++|*         CODE DIGITS TO A BINARY VALUE.  LEADING AND TRAILING
00014  M01S00013.comchxb +++|*         SPACES ARE IGNORED.  IF A CHARACTER OTHER THAN 0-9
00015  M01S00014.comchxb +++|*         OR A-F IS DETECTED WITHIN THE DIGIT STRING AN ERROR
00016  M01S00015.comchxb +++|*         IS RETURNED.
00017  M01S00016.comchxb +++|*
00018  M01S00017.comchxb +++|*         ENTRY  (X5) = WORD TO BE CONVERTED.
00019  M01S00018.comchxb +++|*
00020  M01S00019.comchxb +++|*         EXIT   (X6) = CONVERTED HEXADECIMAL DIGITS.
00021  M01S00020.comchxb +++|*                (X4) = NONZERO IF ERROR DETECTED.
00022  M01S00021.comchxb +++|*
00023  M01S00022.comchxb +++|*         USES   X - 2, 3, 4, 5, 6.
00024  M01S00023.comchxb +++|*                B - 3, 4, 5.
00025  M01S00024.comchxb +++|
00026  M01S00025.comchxb +++|
00027  M01S00026.comchxb +++| HXB      PS                 ENTRY/EXIT
00028  M01S00027.comchxb +++|          SB3    -1RG        (B3) = -1RG
00029  M01S00028.comchxb +++|          MX4    -6          (X4) = DIGIT MASK
00030  M01S00029.comchxb +++|          BX6    X6-X6       CLEAR ASSEMBLY
00031  M01S00030.comchxb +++|          SB4    -1R0        (B4) = -1R0
00032  M01S00031.comchxb +++|          SB5    -1R         (B5) = -1R
00033  M01S00032.comchxb +++|
00034  M01S00033.comchxb +++|*         BYPASS LEADING SPACES.
00035  M01S00034.comchxb +++|
00036  M01S00035.comchxb +++| HXB1     ZR     X5,HXB4     IF ZERO WORD
00037  M01S00036.comchxb +++|          LX5    6           EXTRACT UPPER DIGIT
00038  M01S00037.comchxb +++|          BX2    -X4*X5      (X2) = DISPLAY CODE DIGIT
00039  M01S00038.comchxb +++|          SX3    X2+B5
00040  M01S00039.comchxb +++|          BX5    X4*X5       CLEAR DIGIT
00041  M01S00040.comchxb +++|          ZR     X3,HXB1     IF LEADING SPACE, LOOP
00042  M01S00041.comchxb +++|
00043  M01S00042.comchxb +++|*         CONVERT DIGITS TO TRAILING SPACE.
00044  M01S00043.comchxb +++|
00045  M01S00044.comchxb +++| HXB2     SX3    X2+B5       CHECK DIGIT
00046  M01S00045.comchxb +++|          LX5    6
00047  M01S00046.comchxb +++|          ZR     X3,HXB4     IF TRAILING SPACE
00048  M01S00047.comchxb +++|          SX3    X2+B3
00049  M01S00048.comchxb +++|          NG     X3,HXB3     IF A-F
00050  M01S00049.comchxb +++|          SX3    X2+B4
00051  M01S00050.comchxb +++|          NG     X3,HXB      IF G-0, RETURN ERROR
00052  M01S00051.comchxb +++|          SX3    X2-1R9-1
00053  M01S00052.comchxb +++|          PL     X3,HXB      IF .GT. 9, RETURN ERROR
00054  M01S00053.comchxb +++|          SX2    X2-1R0+1RA-0#A  BIAS FOR 0-9 CONVERSION
00055  M01S00054.comchxb +++| HXB3     SX2    X2-1RA+0#A  CONVERT DIGIT
00056  M01S00055.comchxb +++|          LX6    4           ADD TO ASSEMBLY
00057  M01S00056.comchxb +++|          BX6    X6+X2
00058  M01S00057.comchxb +++|          BX2    -X4*X5      EXTRACT NEXT DIGIT
00059  M01S00058.comchxb +++|          BX5    X4*X5       CLEAR DIGIT
00060  M01S00059.comchxb +++|          NZ     X2,HXB2     IF NOT END OF WORD
00061  M01S00060.comchxb +++| HXB4     BX4    X4-X4       RETURN NO ERROR
00062  M01S00061.comchxb +++|          JP     HXB
00063  M01S00062.comchxb +++| COMCHXB  SPACE  4,10
00064  M01S00063.comchxb +++| QUAL$    IF     -DEF,QUAL$
00065  M01S00064.comchxb +++|          QUAL   *
00066  M01S00065.comchxb +++| HXB      EQU    /COMCHXB/HXB
00067  M01S00066.comchxb +++| QUAL$    ENDIF
00068  M01S00067.comchxb +++|          ENDX