Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.compchd +++| CTEXT COMPCHD - CONVERT TWO HEX DIGITS TO DISPLAY CODE.
00002 M01S00002.compchd +++| CHD SPACE 4,10
00003 M01S00003.compchd +++| IF -DEF,QUAL$,1
00004 M01S00004.compchd +++| QUAL COMPCHD
| Line S00005 Modification History |
M01 (Added by) | compchd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M01S00006.compchd +++| CHD SPACE 4,10
00008 M01S00007.compchd +++|*** CHD - CONVERT TWO HEX DIGITS TO DISPLAY CODE.
00009 M01S00008.compchd +++|* P. D. HAAS. 86/07/01.
00010 M01S00009.compchd +++| CHD SPACE 4,10
00011 M01S00010.compchd +++|* ASSEMBLY CONSTANTS.
00012 M01S00011.compchd +++|
00013 M01S00012.compchd +++|
00014 M01S00013.compchd +++| CA DEFC T3 CONVERSION ADDRESS
00015 M01S00014.compchd +++| CHD SPACE 4,10
00016 M01S00015.compchd +++|*** CHD CONVERTS TWO HEX DIGITS TO DISPLAY CODE.
00017 M01S00016.compchd +++|*
00018 M01S00017.compchd +++|* ENTRY (A) = HEX DATA RIGHT JUSTIFIED.
00019 M01S00018.compchd +++|* (CA) = ADDRESS TO STORE CONVERSION.
00020 M01S00019.compchd +++|*
00021 M01S00020.compchd +++|* EXIT (CA) = CONVERSION ADDRESS ADVANCED.
00022 M01S00021.compchd +++|* (T0) = TWO HEX DIGITS JUST CONVERTED.
00023 M01S00022.compchd +++|
00024 M01S00023.compchd +++|
00025 M01S00024.compchd +++| CHD SUBR ENTRY/EXIT
00026 M01S00025.compchd +++| LPC 377
00027 M01S00026.compchd +++| STD T0
00028 M01S00027.compchd +++| SHN -4 EXTRACT LEADING DIGIT
00029 M01S00028.compchd +++| SBN 9D
00030 M01S00029.compchd +++| MJN CHD1 IF DIGIT .LT. 9
00031 M01S00030.compchd +++| NJN CHD2 IF DIGIT .GT. 9
00032 M01S00031.compchd +++| CHD1 ADN 1R0+9D
00033 M01S00032.compchd +++| CHD2 SHN 6 SAVE CONVERTED DIGIT
00034 M01S00033.compchd +++| STI CA
00035 M01S00034.compchd +++| LDD T0 EXTRACT LOWER DIGIT
00036 M01S00035.compchd +++| LPN 17
00037 M01S00036.compchd +++| SBN 9D
00038 M01S00037.compchd +++| MJN CHD3 IF DIGIT .LT. 9
00039 M01S00038.compchd +++| NJN CHD4 IF DIGIT .GT. 9
00040 M01S00039.compchd +++| CHD3 ADN 1R0+9D
00041 M01S00040.compchd +++| CHD4 RAI CA APPEND TO CONVERSION
00042 M01S00041.compchd +++| AOD CA
00043 M01S00042.compchd +++| UJN CHDX RETURN
00044 M01S00043.compchd +++| SPACE 4,10
00045 M01S00044.compchd +++| QUAL$ IF -DEF,QUAL$
00046 M01S00045.compchd +++| QUAL *
00047 M01S00046.compchd +++| CHD EQU /COMPCHD/CHD
00048 M01S00047.compchd +++| QUAL$ ENDIF
00049 M01S00048.compchd +++| ENDX