Вот. Делаю такое в первый раз. Все работает. Нельзя ли ее упростить? Лучше раскритикуйте, но не молчите :-)

cseg segment byte
assume cs:cseg,ds:cseg
.286
org 100h
start:


; Конвертор ASCII слова в HEX-значение (1 байт)
start1:
; Вход - AX
; выход - AH

mov ax, 3030h


call ascii2hex

int 20h

;----- вот, собственно процедура ----------

ascii2hex:
push bx
push cx
push dx
mov bl,ah ;Разделяем ASCII символы. Помещаем первый символ в BL
mov dl,al ;а второй - в DL...
cmp bl,40h ;сравним, т.к. ASCII символы букв начинаются с 41h

jg bolshe ;ага, это у нас буква - переходим к ее обработке
cmp bl,30h
jl er_name
sub bl,30h ;если это цифра - отнимаем 30h, т.к. ASCII цифры начин. на 30h
cmp bl,09h
jg er_name ;все эти навороты с проверками - для исключения ложного конвертирования всякой ASCII дряни
mov ch,bl ;полученное число заносим в CH
jmp ed ;и переходим к обработке второго ASCII символа

bolshe:
cmp bl,46h
jg er_name
sub bl,37h ;Мучаем еще первый символ, если он буква - преобразуем в число
mov ch,bl ;полученное число заносим в CH
;Усе, с первым ASCII разобрались полностью, нюхаем далее...
ed: ;Начинаем обработку второго символа
cmp dl,40h ;И делаем это точно также, как и с первым
jg bolshe1
cmp dl,30h
jl er_name
sub dl,30h
cmp dl,09h
jg er_name
mov cl,dl
jmp ec

bolshe1: ;И также мучаем. Единственная разница
cmp dl,46h
jg er_name
sub dl,37h ;в том, что вместо CH мы заполняем CL
mov cl,dl ; Теперь у нас в CX число вида 070A
; А надо что-то типа 007A :-)
ec:
mov al,ch ; сохраняем старшее число в AL для умножения
mov bl,10h ; сюды пишем множитель
mul bl ;умножаем на 16 - и получаем перевернутые полубайты в AX
add al,cl ;а второе число просто прибавляем - и получаем точный рез-тат

rest:
pop dx
pop cx
pop bx
retn

er_name:
mov ah,09h
lea dx,er_name_mes
int 21h
jmp rest

er_name_mes db '-говняный ASCII-код! $'

cseg ends
end start

Код

mov al,ch; сохраняем старшее число в AL для умножения mov bl,10h; сюды пишем множитель mul bl;умножаем на 16 - и получаем перевернутые полубайты в AX add al,cl;а второе число просто прибавляем - и получаем точный рез-тат

лучше так:

Код

mov al,ch; сохраняем старшее число в AL для умножения shl al,4; сдвигаем на 4 бита or al,cl;а второе число просто логически прибавляем - и получаем точный рез-тат

остольное подправить мона, но я спросоня

Проверку первого и второго полубайта лучше все-же сделать в цикле, а не дублировать код. Или написать подпрограмму проверки символа и звать ее два раза. Например:

Цитата

; Считаем, что в ax - два символа, шестнадцатеричное представление байта - например, "A7". ; "7" в AL, "A" - в AH pusha ; сохраняем все регистры кроме сегментных одной командой mov bx,ax ; Храним символы в BX xor  dx,dx ; Результат будет в DX mov cx,2 ; 2 символа - 2 шага цикла @@CheckRangeAndConvert:   mov  al,bl   mov  ah,'0' Базовый символ для вычитания   ; Проверяем диапазон   cmp  al,'0'   jb    @@ErrorFormat   cmp  al,'9'   jbe  @@FormatOK   mov  ah,'A'-10 Базовый символ для вычитания   ; Проверяем диапазон ['A'..'F']   cmp  al,'A'   jb    @@ErrorFormat   cmp  al,'F'   jbe  @@FormatOK   mov  ah,'a'-10 Базовый символ для вычитания   ; Проверяем диапазон ['a'..'f']   cmp  al,'a'   jb    @@ErrorFormat   cmp  al,'f'   ja    @@ErrorFormat @@FormatOK:   ; Теперь у нас может быть:   ; 1. AL = '0'..'9' и AH='0'   ; 2. AL = 'A'..'F' и AH='A'-10   ; 3. AL = 'a'..'f' и AH='a'-10   ; Вычитая из AL AH получим соответствие: "0..9" - > 0..9, "A(a)..F(f)" - > 10..15   sub  al,ah ; Приводим символ к числу, ему соответствующему   ; Учитываем в накопителе (DX) полученный полубайт   ...   mov  bl,bh ; Следующий символ (второй)   loop @@CheckRangeAndConvert ; Что-то делаем с результатом ... @@ErrorFormat: popa ; восстанавливаем все регистры, кроме сегментных