WMmail.ru - сервис почтовых рассылок

понедельник, 1 ноября 2021 г.

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

Subscribe.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
Оцените пожалуйста мое решение smile

Код
 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
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Старший модератор):

Доброго времени суток!

Оцените пожалуйста мое решение


Для начинающего не плохо.
smile

Но пару советов таки дам.
  1. Код [Assembler]
    mov dx,offset mes1 	mov ah,9h 	int 21h 	xor bx,bx 	call vvod 	push bx

    кроме mov dx,offset mes1 и push bx, все остальное можно запихнуть в подпрограмму.
  2. Код [Assembler]
    mov dx,0ah 	mov ah,2h 	int 21h

    перевод строки ненужен, просто в само сообщение в начало строки поставьте 10,13,.
  3. Код [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 процессор, после модели).
  4. Код [Assembler]
    add bl,al z2: 	cmp cx,1 	je z3 	call sdvig 	loop z1

    чтобы не "городить" такое, сдигать нужно перед суммированинм.
  5. выходные параметры подпрограммы нужно передавать либо в АХ, либо в 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

Комментариев нет:

Отправить комментарий