Отправляет email-рассылки с помощью сервиса Sendsay

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 11.446 RSS
←   Ноябрь 2021   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 28-06-2000

Автор
Калашников О.А.

Статистика

11.446 подписчиков
0 за неделю
←   Все выпуски   →

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 благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное