Деление регистра на регистр

@StepanKrab · Регистрация: 12.01.2017

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

Assembler

model small
.stack  100h    
.data        
len db  5          
len2 db 10     
masA    db  1,2,3,4,5,1,1,1,1,1
masB    db  2,2,1,3,2   
res db  5
res2 db    10
.code
 
c2:
mov ax,bl   
mov bx,len 
div bx  
mov res,al
jmp c3
 
c4: 
mov ax,dl
mov bx,len2 
div bx  
mov res2,al
jmp tata
 
next:
inc si   
cmp si,4
ja c2
jmp c1
 
next2:
inc si  
cmp si,9
ja c4
jmp c3
 
start:     
mov ax,@data    
mov ds,ax   
xor ax,ax
xor bx,bx
xor dx,dx 
xor si,si
 
c1:
add bl,masB[si]  
Call next
 
c3:
add dl,MasA[si]  
Call next2
 
tata:
 
 
exit:
mov ax,4c00h    
int 21h 
end start

Написал данную программу. Она должна находить среднее арефметическое каждого из двух массивов. Сумма массивов заноситься в регистры dl и bl в подпрограммах с1 и с3. Проверка условия на то надо ли делить сумму для получения среднего арефметического выполняется в подпрограммах next и next2 для каждого массива. Деление суммы на количество элементов происходит в подпрограммах с2 и с4. И тут возникает проблема-массивы masA и masB являются числами размером в байт(masB db 2,2,1,3,2 masA db 1,2,3,4,5,1,1,1,1,1) и длина len и len2 тоже (len db 5 len2 db 10). Поэтому заносить делимое нужно в регистр ax (так написано в методичке), но при созданиии файла формата obj выдаёт ошибку operand tipes do not match. Я так понимаю, ругается на несовместимость типов данных(типа как в c++ приравнять переменную типа double к переменной типа char), но ума не приложу как можно исправить эту ошибку при делении.

@Ethereal · 12.01.2017, 15:50

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

mov ax,dl
mov bx,len2
div bx

Команда div
делит двойное слово dx:ax на делитель, если делитель - слово, при этом частное в ax, остаток в dx
делит слово ax на делитель, если делитель - байт, при этом частное в al, остаток в ah

Добавлено через 1 минуту

Assembler

mov al, dl
mov ah, 0 ;старший байт делимого занулим
mov bl, len2
div bl

вот так ты поделишь байт dl на байт len2

Добавлено через 2 минуты
Кстати в начале твоей программы ни bl, ни dl никак не определяются и ты начинаешь ими, такими неопределенными, пользоваться.

@Kukuxumushu · 12.01.2017, 16:15

Предложу свой скромный вариант

Assembler

.model small
.data
masA db 1,2,3,4,5,1,1,1,1,1
lenA db $-offset masA
masB db 2,2,1,3,222
lenB db $-offset masB
resA db 0
resB db 0
.stack 100h
.code
start:
mov ax,@data
mov ds,ax
 
lea si,masA
mov cl,lenA
call Average
mov resA,al
 
lea si,masB
mov cl,lenB
call Average
mov resB,al
    
mov ax, 4c00h
int 21h
 
Average:
xor ch,ch
xor ax,ax
mov bl,cl
S1:add al,[si]
   adc ah,0
   inc si
   loop S1
div bl
ret
end

@StepanKrab · 12.01.2017, 16:49 **[ТС]**

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

Команда div
делит двойное слово dx:ax на делитель, если делитель - слово, при этом частное в ax, остаток в dx
делит слово ax на делитель, если делитель - байт, при этом частное в al, остаток в ah

Добавлено через 1 минуту
mov al, dl
mov ah, 0 ;старший байт делимого занулим
mov bl, len2
div bl
вот так ты поделишь байт dl на байт len2

Добавлено через 2 минуты
Кстати в начале твоей программы ни bl, ни dl никак не определяются и ты начинаешь ими, такими неопределенными, пользоваться.

Спасибо, всё заработало)

Assembler

model small
.stack  100h    
.data        
len db  5          
len2 db 10     
masA    db  1,2,3,4,5,1,1,1,1,1
masB    db  2,2,1,3,2   
res db  5
res2 db    10
.code
 
c2:
mov al, bl
mov ah, 0
mov dl, len
div dl
mov res,al
mov si, 0
jmp c3
 
c4:
mov ah, 0
mov bl, 0
mov al, 0
mov al, dl
mov bl, len2
div bl
mov res2,al
jmp tata
 
next:
inc si   
cmp si,4
ja c2
jmp c1
 
next2:
inc si  
cmp si,9
ja c4
jmp c3
 
start:     
mov ax,@data    
mov ds,ax   
xor ax,ax
xor bx,bx
xor dx,dx 
xor si,si
 
c1:
add bl,masB[si]  
Call next
 
c3:
add dl,MasA[si]  
Call next2
 
tata:
 
 
exit:
mov ax,4c00h    
int 21h 
end start

Вот финальная версия проги, может пригодиться тем кто темы просматривать будет, если не секрет как правильно обьявить используемые регистры в start?

	12.01.2017, 16:49