RFpro.ru: Ассемблер? Это просто! Учимся программировать

RFpro.ru: Ассемблер? Это просто! Учимся программировать

РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты в разделе Лысков Игорь Витальевич Статус: Мастер-Эксперт Рейтинг: 42 • повысить рейтинг » Evgen aka Chuma Статус: 6-й класс Рейтинг: 0 • повысить рейтинг » cain52 Статус: 3-й класс Рейтинг: 0 • повысить рейтинг » Assembler Номер выпуска: 1799 Дата выхода: 01.11.2021, 21:45 Администратор рассылки: Зенченко Константин Николаевич (Старший модератор) Подписчиков / экспертов: 8 / 25 Вопросов / ответов: 1 / 1 Консультация # 201565: Здравствуйте! У меня возникли сложности с таким вопросом: Вот такая задача: Требуется разработать программу вывода на экран двоичного содержимого двух регистров так, чтобы первоначальное содержимое регистров вводилось с клавиатуры в виде шестнадцатеричных чисел. Пример информации на экране: Введите содержимое регистра AX F46B Введит... Консультация # 201565: Здравствуйте! У меня возникли сложности с таким вопросом: Вот такая задача: Требуется разработать программу вывода на экран двоичного содержимого двух регистров так, чтобы первоначальное содержимое регистров вводилось с клавиатуры в виде шестнадцатеричных чисел. Пример информации на экране: Введите содержимое регистра AX F46B Введите содержимое регистра BX 5A0C (AX)=1111010001101011 (BX)=0101101000001100 Оцените пожалуйста мое решение Код model tiny code org 100h begin: mov dx,offset mes1 mov ah,9h int 21h xor bx,bx call vvod push bx mov dx,0ah mov ah,2h int 21h mov dx,offset mes2 mov ah,9h int 21h xor bx,bx call vvod pop ax xchg ax,bx push ax call vivod pop bx call vivod ret vvod proc mov cx,4 z1: mov ah,1 int 21h xor ah,ah cmp al,30h jb z1 cmp al,39h ja m1 sub al,30h add bl,al jmp z2 m1: cmp al,41h jb z1 cmp al,46h ja z1 sub al,37h add bl,al z2: cmp cx,1 je z3 call sdvig loop z1 z3: ret vvod endp sdvig proc push cx mov cx,4h aa1: shl bx,1h loop aa1 pop cx ret sdvig endp vivod proc mov cx,16 mov dx,0ah mov ah,2h int 21h metka: xor dx,dx rcl bx,1 adc dx,30h mov ah,02 int 21h loop metka ret vivod endp mes1 db 'Vvedite soderjimoe registra AX:=$' mes2 db 'Vvedite soderjimoe registra BX:=$' end begin Дата отправки: 27.10.2021, 21:33 Вопрос задал: kolyatimushev (Посетитель) Всего ответов: 1 Страница онлайн-консультации » Консультирует Зенченко Константин Николаевич (Старший модератор): Доброго времени суток! Цитата: kolyatimushev Оцените пожалуйста мое решение Для начинающего не плохо. Но пару советов таки дам. Код [Assembler] mov dx,offset mes1 mov ah,9h int 21h xor bx,bx call vvod push bx кроме mov dx,offset mes1 и push bx, все остальное можно запихнуть в подпрограмму. Код [Assembler] mov dx,0ah mov ah,2h int 21h перевод строки ненужен, просто в само сообщение в начало строки поставьте 10,13,. Код [Assembler] sdvig proc push cx mov cx,4h aa1: shl bx,1h loop aa1 pop cx ret sdvig endp О команде SHL BX,CL или SHL BX,4 слышали(для последней нужно разрешить .186 процессор, после модели). Код [Assembler] add bl,al z2: cmp cx,1 je z3 call sdvig loop z1 чтобы не "городить" такое, сдигать нужно перед суммированинм. выходные параметры подпрограммы нужно передавать либо в АХ, либо в DX : AX, как это делают ЯВУ, прывыкайте. Как пример(код ТАСМ): Код [Assembler] model tiny,pascal locals @@ code org 100h begin: call inputNum,offset dbInputAx,16 push ax call inputNum,offset dbInputBx,16 mov bx,ax pop ax call outputNum,ax,2,offset dbInputAx call outputNum,bx,2,offset dbInputBx xor ax,ax int 16h @@01: ret outputNum proc,a:word,b:word,c:word uses ax,bx,cx,dx mov ah,9 mov dx,c int 21h mov ax,a mov bx,b xor cx,cx @@02: xor dx,dx div bx push dx inc cx or ax,ax jnz @@02 @@03: pop ax cmp al,10 jb @@04 add al,7 @@04: add al,'0' int 29h loop @@03 ret outputNum endp dbInputAX db 10,13,'AX:=$' dbInputBX db 10,13,'BX:=$' inputNum proc,a:word,b:word uses bx,cx,dx @@00: mov ah,9 mov dx,a int 21h xor cx,cx mov bx,b @@01: xor ax,ax int 16h cmp al,13 jz @@03 mov ah,al cmp al,'0' jb @@01 cmp al,'9' jbe @@02 and ax,0DFDFh cmp al,'A' jb @@01 sub ah,7 @@02: sub ah,'0' cmp ah,bl jae @@01 push ax int 29h pop ax mov al,ah xor ah,ah xchg ax,cx xor dx,dx mul bx or dx,dx jnz @@00 add cx,ax jmp @@01 @@03: mov ax,cx ret inputNum endp end begin Удачи! Ответ отредактирован модератором Зенченко Константин Николаевич (Старший модератор) 01.11.2021, 15:18 Консультировал: Зенченко Константин Николаевич (Старший модератор) Дата отправки: 01.11.2021, 15:13 Рейтинг ответа: 0 поблагодарить эксперта Оценить выпуск | Задать вопрос экспертам главная страница  |  стать участником  |  получить консультацию техническая поддержка Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС!        Прошлые выпуски RFpro.ru: Ассемблер? Это просто! Учимся программировать RFpro.ru: Ассемблер? Это просто! Учимся программировать RFpro.ru: Ассемблер? Это просто! Учимся программировать Все выпуски рассылки

Если выпуск не отображается, вы можете прочесть его на сайте Это сообщение было отправлено на admin10383.deep@blogger.com потому, что вы подписались на рассылку comp.prog.assembler на subscribe.ru. Чтобы гарантировать получение писем от нас — добавьте наш адрес в адресную книгу. Вы можете отказаться от получения писем. Архив рассылки Поддержка подписчиков Это сообщение сформировано и выслано с помощью Sendsay.Ru