задача под Masm32

[duk0077]

Подскажите пожалуйста, где ошибка, точнее скорее всего она в процедуре печати, но каким образом её исправить, не знаю. Дан массив Z dw 30 DUP(?) нужно последний положительный элемент в нём занулить.

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤
include \masm32\include\masm32rt.inc
; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤


.data
z dw 30 DUP(?)
.code

start:

; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\

call zapolnenie
call pech
call main
call pech
inkey
exit

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

zapolnenie proc
cls ;чистим экран
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0
mov ax,cx ;загружаем в акамулятор счётчик для умножения
mov si,16 ;подготавливаем множитель для сдвига
mul si ;вычисляем сдвиг
mov [z+ax],cx ;заполняем массив
inc cx ;инкрементируем счётчик
.ENDW ;заканчиваем цикл
ret

zapolnenie endp

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

pech proc
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0(бежим по масиву)
mov ax,cx ;загружаем в акамулятор счётчик для умножения
mov si,16 ;подготавливаем множитель для сдвига
mul si ;вычисляем сдвиг
mov bx,[z+ax] ;закидываем элемент массива в регистр для печати
print str$(bx),13,10 ;печатаем элемент
inc cx ;инкрементируем счётчик
.ENDW ;заканчиваем цикл
ret

pech endp


; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

main proc
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0(бежим по масиву)
mov ax,cx ;загружаем в акамулятор счётчик для умножения
mov si,16 ;подготавливаем множитель для сдвига
mul si ;вычисляем сдвиг
.IF ([z+ax]>0) ;если элемент положительный
mov bx,ax ;сохраняем индекс(смещение)
.ENDIf
inc cx ;инкрементируем счётчик
.ENDW
mov [z+bx],0 ;обнуляем последний положительный элемент за счёт сохранённого сдвига
ret

main endp

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

end start

[HmL]

print str$(bx),13,10 ;печатаем элемент

Нужно передавать 32-х разрядный регистр. Старшие биты необходимо обнулить.
Регистр ecx необходимо сохранить перед вызовом процедуры, поскольку она его "портит".

mov [z+ax],cx ;заполняем массив

Происходит выход за пределы массива.

[duk0077]

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

Регистр ecx необходимо сохранить перед вызовом процедуры, поскольку она его "портит".
.

А насчёт "портит", можно поточнее, каким образом?

[HmL]

С процедурой print я не знаком, но как и некоторые другие процедуры она записывает некоторые данные в регистр ecx, что приводит к тому, что цикл будет выполняться бесконечное количество раз или больше заданного.
Это все можно увидеть в отладчике.

[duk0077]

Огромное спасибо, я просто за масм только вчера вечером сел, и не очень ещё освоился, а не подскажешь, почему могут не работать прерывания?
Исправил евх и сх, всё равно где-то косяк

pech proc
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0(бежим по масиву)
mov ax,cx ;загружаем в акамулятор счётчик для умножения
mov si,16 ;подготавливаем множитель для сдвига
mul si ;вычисляем сдвиг
mov ebx,0
mov bx,[z+ax] ;закидываем элемент массива в регистр для печати
mov dx,cx
print str$(ebx),13,10 ;печатаем элемент
mov cx,dx
inc cx ;инкрементируем счётчик
.ENDW ;заканчиваем цикл
ret

[HmL]

Вот рабочий пример.

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤
include \masm32\include\masm32rt.inc
; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

.data
z dw 30 DUP(?) 
.code

start:

; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\

call zapolnenie
call pech
call main
call pech
inkey
exit

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

zapolnenie proc
xor edi, edi
cls ;чистим экран
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0
mov [z+edi],cx ;заполняем массив
add edi, 2
inc cx ;инкрементируем счётчик
.ENDW ;заканчиваем цикл
ret

zapolnenie endp

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

pech proc
xor edi, edi
xor ebx, ebx
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0(бежим по масиву)
mov bx,[z+edi] ;закидываем элемент массива в регистр для печати
add edi, 2
push ecx
print str$(ebx),13,10 ;печатаем элемент
pop ecx
inc cx ;инкрементируем счётчик
.ENDW ;заканчиваем цикл
ret

pech endp


; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

main proc
xor edi, edi
mov cx,0 ;инициализируем счётчик
.WHILE (cx!=29) ;пускаем цикл пока счётчки не будет равен 0(бежим по масиву)
.IF ([z+edi]>0) ;если элемент положительный
mov ebx,edi ;сохраняем индекс(смещение)
.ENDIf
add edi, 2
inc cx ;инкрементируем счётчик
.ENDW
mov [z+ebx],0 ;обнуляем последний положительный элемент за счёт сохранённого сдвига
ret

main endp

; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤

end start

Я убрал из процедур main и pech инструкции

mov ax,cx
mov si,16
mul si

поскольку не понял их назначения.

[duk0077]

погоди, а как тогда у тебя смещение по массиву идёт? ну точнее я понимаю что вычисляется смещение add edi, 2, но разве следующая от предыдущей ячейки массива в 2 байтах?
И какой тут смысл несут ксоры?

[HmL]

У вас выделяется массив на 30 элементов. Размер каждого элемента будет 2 байта. Следовательно, для доступа к следующему элементу массива необходимо увеличить индекс на 2.

И какой тут смысл несут ксоры?

Обнуление индекса массива. И обнуление регистра ebx, для корректной работы процедуры print.

[duk0077]

Спасибо огромное за всё