Фрагмент паскаля в асм

[Serge_Bliznykov]

to DEZ

так, исключительно для затравки (прошу на стиль внимания не обращать - там франкентштейн) ))
Внимание! компилировать в COM!

[.:DEZ:.]

Сообщение от Serge_Bliznykov

ну, у вас же написано непонятно что..
в ассемблере сначала указывается приёмник (куда пишем), потом - источник данных.
mov ax,[a]
что Вы берёте из [a], если там ничего нет?!

потом, если у Вас число a - до 10, то зачем Вы ему выделяете двойное слово? (dw)

процедуру преобразования строки в число я бы на вашем месте взял тут - http://www.programmersforum.ru/showp...57&postcount=9

хотя, конечно, у вас из двухзначных чисел может быть только 10 - можно эту строчку и отдельно отследить. я бы воспользовался универсальной процедурой. Это и удобнее и надёжнее.

дальше. не надо строить таблицу значений первых и последних цифр.
Ведь чтобы возвести двойку в степень a достаточно взять единичку и сдвинуть её влево ровно a раз (исключение - нулевая степень - её можно отследить отдельно.

Сори, опечатался, до 10 символов в числе) а как после преобразования из строки в число, получившееся значение занести в переменную?

[.:DEZ:.]

Сообщение от Serge_Bliznykov

to DEZ

так, исключительно для затравки (прошу на стиль внимания не обращать - там франкентштейн) ))
Внимание! компилировать в COM!

Спасибо, Serge_Bliznykov))

[Serge_Bliznykov]

а как после преобразования из строки в число, получившееся значение занести в переменную?

выделенная строка сохраняет результат в переменную uRezult

        lea dx, buf                             ;Записываем в DX адрес буфера
        call scan                               ;Считываем строку из консоли в буфер по адресу dx
        call convertStrToInt    ;Конвертируем введенную строку в uByte с провверкой, результат в al
        call newLine
        ;Конец ввода переменной А

        mov cl, al
        mov ax, 1
        shl ax, cl

; вывод результатов:
        
        lea dx, resultMessage               ;Записываем адрес сообщения "Result = " в DX
        call writeMessageFromDx ;Выводим это сообщение

        call convertIntToStr    ;Процедура преобразования числа в AX в строку символов, хранящаюся в buf
        mov uRezult, ax
        
        lea dx, buf                             ;Помещаем в DX адрес буфера
        add dl, 02h                             ;Указываем на начало строки в буфере

обратите внимание, я сдвиг переписал в соответствии с правильным уточнением f.hump - можно сдвигать сразу на нужное число разрядов и обойтись без проверки и дополнительного цикла. Это намного эффективнее (и, главное, красивее)!