Перевод цифровой информации из аscii в bcd?

[ALEX_RAS]

Помогите в переводе цифровой информации ( числа ) из аscii в bcd.

[rpy3uH]

в чём конкретно проблема?

[Sharaevsky_Vitaly]

Вот программа конвертирования цифровой информации (числа) из ASCII в неупакованное BCD-число...Для получения упакованного BCD-число ситуация несколько отличается...Пиши если надо получить упакованное...Программа писана для TASM под DOS...просмотри, может поможет...

.286

STK SEGMENT STACK
   DW 128 DUP (?)   ; резервирование 128 слов под стек
STK ENDS  


DATA SEGMENT PARA PUBLIC "DATA"

    ASCII_LINE  DB  "1", "8", "7", "3", "$"
    BCD_RESULT  DB  20 DUP (0)   ; резервирование 20-ти байт под результат (макс.20-разрядное число) 
 
DATA ENDS


CODE SEGMENT PARA PUBLIC "CODE"

ASSUME DS:DATA, SS:STK, CS:CODE

MAIN:

; инициализация сегментов
    MOV AX, DATA
    MOV DS, AX
    MOV ES, AX
    
;************************

    LEA SI, ASCII_LINE   ; SI = адрес начала строки ASCII-чисел
    LEA DI, BCD_RESULT   ; BI = адрес начала массива неупакованного BCD-числа
    
 CONVERT:   
    
    MOV AL, [SI]   ; АL = очередная ASCII-цифра
    CMP AL, "$"   ; проверка на символ "конец строки"
    JZ SHORT END_CONVERT   ; прекращаем выполнение программы если встретился символ конца строки
    
    SUB AL, 030h   ; AX = AX - 030H (перевод из ASCII-цифры в двоичное представление)
    XOR AH, AH   ; AH = 0
    XCHG AH, AL   ; мяняем местами старший и младший байты
    
    STOSW   ; пересылка слова из АХ в строку с адресом ES:DI (inc DI - автоматически)
    INC SI   ; переход к очередной ASCII-цифре
    JMP SHORT CONVERT 
    
 END_CONVERT:  
 
;************************       

CODE ENDS    
  END MAIN