Проверка числа на четность

@flatra · Регистрация: 03.11.2012

Author24 — интернет-сервис помощи студентам

почему у меня не переходит по метке четности тоесть Evenn?у меня он идет линейно. В чем может быть оишбка?

Assembler

X dw 5429h
Y dw 7844h
Z dw 0AD43h
Q dw 5622h
L dw 0h
M dw 0h
R dw 0h
.code   *
main:   
    mov ax,@data    
    mov ds,ax   
    xor ax,ax   
;...
mov bx,0h
mov cx,4h
one:
mov ax, [bx]
add ax,1h
mov [bx],ax
add bx,2h
add L,ax
loop one
mov ax, L
mov bx,X
and ax,X
mov dx,ax
mov ax,L
and ax,Y
sub dx,ax
mov M,dx
call adddiv;вызов процедуры
jmp STe
jmp exit
adddiv:
mov AX, 921Bh
cmp M,AX
JNe MRe
jmp BRe
MRe:
mov BX, 12B9h
mov dx,0h
mov ax,M
mov cx,2h
idiv cx
sub ax,BX
mov R,ax
ret
BRe:
mov ax,Q
mov cx,2h
div cx
mov dx,ax
mov ax,M
sub ax,dx
mov R,ax
STe:
test  ax,R
jnp Odd    ;нечетное, переход на метку Odd
jp Evenn   ;четное, переход на метку Even
Odd:
mov ax, R
sub R,1
mov ax,R
Evenn:
mov ax,R
or R,009Fh
mov ax,R
ret
exit:

Добавлено через 38 секунд
считал все на калькуляторе проверял число четное

@Mikl___ · 07.04.2015, 12:43

flatra,
jp/jnp переход если числ единиц в регистре AL четное, то есть AL=01100101₂=101₁₀ - число нечетное, но переход будет, на четность проверяется есть ли единица в последнем разряде, то есть так

Assembler

1 2	test X,1 jnz X_нечетное_число

@flatra · 07.04.2015, 12:49 **[ТС]**

Мне надо проверить значение R тоесть будет так

Assembler

1
2
3

test X,1
jnz X
jz ?

@Mikl___ · 07.04.2015, 12:57

flatra,

Assembler

test X,1
jnz label
<-- если мы здесь, значит число X четное
...
label:<-- а если мы окажемся здесь, значит X нечетное

@flatra · 07.04.2015, 13:11 **[ТС]**

Assembler

test R,1
jnz label1    
mov ax, R
sub R,1
mov ax,R
label1:
mov ax,R
or R,009Fh
mov ax,R
ret

все точно так же линейно идет

@Mikl___ · 07.04.2015, 13:22

flatra, перед label нужен jmp на общую часть программы иначе ты сперва обрабатываешь число как нечетное, а затем как четное, как выглядит задание для твоей программы на человеческом языке?

@flatra · 07.04.2015, 13:33 **[ТС]**

получили значение R
Если R четное,
то переход к АДР1
(R or 009F)
иначе переход к АДР2
(R-1)

Добавлено через 4 минуты
Дано: X=5429 Y=7844 Z=AD43 Q=5622
(расположены в памяти один за другим без знака)
В цикле каждое из X, Y, Z, Q увеличить на единицу и все сложить
(результат X', Y', Z', Q' и L)
Вычислить
M=(L & X')-(L & Y')
M>=921B переход к п/п 1
(R=M/2-12B9)
M<921B переход к п/п 2
(R=M-Q'/2)
и потом на четность

Добавлено через 28 секунд
до четности все правильно написано

@Mikl___ · 07.04.2015, 13:42

Код

'
M=(L & X')-(L & Y')
cmp M,921B
jae label1
R=M-Q'/2
'
jmp проверка_на_четность
label1: R=M/2-12B9
проверка_на_четность:
test X,1
jnz label2
что-то делаем с четным Х
jmp exit
label2: что-то делаем с нечетным Х
exit:

@flatra · 08.04.2015, 08:40 **[ТС]**

label1: R=M/2-12B9 я же это значение R рассчитывал на метке MRe:

Добавлено через 10 минут
проверьте правильно ли сейчас написал

Assembler

 call adddiv;вызов процедуры
adddiv:
mov AX, 921Bh
cmp M,AX
jae label1
mov ax,Q
mov cx,2h
div cx
mov dx,ax
mov ax,M
sub ax,dx
mov R,ax
label1:
mov BX, 12B9h
mov dx,0h
mov ax,M
mov cx,2h
idiv cx
sub ax,BX
mov R,ax
STe:
test R,1
jnz label2
mov ax,R
or R,009Fh
mov ax,R
jmp exit
label2:   
mov ax, R
sub R,1
mov ax,R
exit:

Добавлено через 5 минут
21 строчку я удалил, перед 13 стрчокой дописал jmp label1

Добавлено через 18 часов 34 минуты
почему у меня циклится в строке div cx;

Assembler

jae label1; переход, если больше или равно
mov ax,Q;
mov cx,2h;
div cx;
mov dx,ax;
mov ax,M;
sub ax,dx
mov R,ax

@Mikl___ · 08.04.2015, 08:55

на два нужно вот так делить shr Q,1

@Mikl___ Ушел с форума 16339 / 7658 / 1076 Регистрация: 11.11.2010 Сообщений: 13,704
	07.04.2015, 13:22	6
	flatra, перед label нужен jmp на общую часть программы иначе ты сперва обрабатываешь число как нечетное, а затем как четное, как выглядит задание для твоей программы на человеческом языке? 0

@flatra 0 / 0 / 1 Регистрация: 03.11.2012 Сообщений: 390
	07.04.2015, 13:33 [ТС]	7
	получили значение R Если R четное, то переход к АДР1 (R or 009F) иначе переход к АДР2 (R-1) Добавлено через 4 минуты Дано: X=5429 Y=7844 Z=AD43 Q=5622 (расположены в памяти один за другим без знака) В цикле каждое из X, Y, Z, Q увеличить на единицу и все сложить (результат X', Y', Z', Q' и L) Вычислить M=(L & X')-(L & Y') M>=921B переход к п/п 1 (R=M/2-12B9) M<921B переход к п/п 2 (R=M-Q'/2) и потом на четность Добавлено через 28 секунд до четности все правильно написано 0

@Mikl___ Ушел с форума 16339 / 7658 / 1076 Регистрация: 11.11.2010 Сообщений: 13,704
	08.04.2015, 08:55	10
	на два нужно вот так делить shr Q,1 0