Работаю в TASM, не знаю что происходит, где то на 3 действии программа начинается заново и потом не заканчивается.
.386
dseg segment use16
array1 dw 40,10,50,5
dseg ends
cseg segment use16
assume cs:cseg, ds:dseg
m1:
mov cx,dseg
mov ds,cx
mov cx, 4 ;Счетчик
lea si,ds:array1
call Dure
xor bx,bx
inc si
inc si
loop Dure ; Повторяем пока CX не равно 0
mov ah, 4ch
int 21h
;Начало процедуры
Dure proc
m2:
cmp ds:[si], word ptr 20 ;Сравниваем текущее число с 20
jg short m3 ;если не подходит то прыгаем на m3
cmp ds:[si], word ptr -20 ;Сравниваем текущее число с -20
jl short m3 ;если не подходит то прыгаем на m3
mov bx,2730 ;отображаем в регистре bx если все верно
jmp short m4
m3:
mov bx,3549 ;отображаем в регистре bx если не подходит
m4:
ret
Dure endp
cseg ends
end m1
end m2
end m3
loop
в качестве параметра должна быть указана метка, расположенная, очевидно, после инициализации счетчика, а не имя процедуры.loop Dure
делаетjmp
на функцию. Аjmp
не кладет в стек адрес возврата. То есть вret
неизвестно, куда прыгнет управление