Common COMPCHD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compchd +++|          CTEXT  COMPCHD - CONVERT TWO HEX DIGITS TO DISPLAY CODE.
00002  M00S00002.compchd +++| CHD      SPACE  4,10
00003  M00S00003.compchd +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compchd +++|          QUAL   COMPCHD

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1986.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compchd +++| CHD      SPACE  4,10
00008  M00S00007.compchd +++|***       CHD - CONVERT TWO HEX DIGITS TO DISPLAY CODE.
00009  M00S00008.compchd +++|*         P. D. HAAS.       86/07/01.
00010  M00S00009.compchd +++| CHD      SPACE  4,10
00011  M00S00010.compchd +++|*         ASSEMBLY CONSTANTS.
00012  M00S00011.compchd +++|
00013  M00S00012.compchd +++|
00014  M00S00013.compchd +++| CA       DEFC   T3          CONVERSION ADDRESS
00015  M00S00014.compchd +++| CHD      SPACE  4,10
00016  M00S00015.compchd +++|***              CHD CONVERTS TWO HEX DIGITS TO DISPLAY CODE.
00017  M00S00016.compchd +++|*
00018  M00S00017.compchd +++|*         ENTRY  (A) = HEX DATA RIGHT JUSTIFIED.
00019  M00S00018.compchd +++|*                (CA) = ADDRESS TO STORE CONVERSION.
00020  M00S00019.compchd +++|*
00021  M00S00020.compchd +++|*         EXIT   (CA) = CONVERSION ADDRESS ADVANCED.
00022  M00S00021.compchd +++|*                (T0) = TWO HEX DIGITS JUST CONVERTED.
00023  M00S00022.compchd +++|
00024  M00S00023.compchd +++|
00025  M00S00024.compchd +++| CHD      SUBR               ENTRY/EXIT
00026  M00S00025.compchd +++|          LPC    377
00027  M00S00026.compchd +++|          STD    T0
00028  M00S00027.compchd +++|          SHN    -4          EXTRACT LEADING DIGIT
00029  M00S00028.compchd +++|          SBN    9D
00030  M00S00029.compchd +++|          MJN    CHD1        IF DIGIT .LT. 9
00031  M00S00030.compchd +++|          NJN    CHD2        IF DIGIT .GT. 9
00032  M00S00031.compchd +++| CHD1     ADN    1R0+9D
00033  M00S00032.compchd +++| CHD2     SHN    6           SAVE CONVERTED DIGIT
00034  M00S00033.compchd +++|          STI    CA
00035  M00S00034.compchd +++|          LDD    T0          EXTRACT LOWER DIGIT
00036  M00S00035.compchd +++|          LPN    17
00037  M00S00036.compchd +++|          SBN    9D
00038  M00S00037.compchd +++|          MJN    CHD3        IF DIGIT .LT. 9
00039  M00S00038.compchd +++|          NJN    CHD4        IF DIGIT .GT. 9
00040  M00S00039.compchd +++| CHD3     ADN    1R0+9D
00041  M00S00040.compchd +++| CHD4     RAI    CA          APPEND TO CONVERSION
00042  M00S00041.compchd +++|          AOD    CA
00043  M00S00042.compchd +++|          UJN    CHDX        RETURN
00044  M00S00043.compchd +++|          SPACE  4,10
00045  M00S00044.compchd +++| QUAL$    IF     -DEF,QUAL$
00046  M00S00045.compchd +++|          QUAL   *
00047  M00S00046.compchd +++| CHD      EQU    /COMPCHD/CHD
00048  M00S00047.compchd +++| QUAL$    ENDIF
00049  M00S00048.compchd +++|          ENDX