Массивы. Как доработать код программы?

Question

[Muriam]

Есть код, где все отрицательные элементы массива заменяются нулями:

TITLE Prog3_2a 		;название программы
.MODEL small 		;отводим под стек и под данные по 64Кб
.STACK 100h 		        ;отмечаем начало сегмента стека
.DATA 			        ;отмечаем начало сегмента данных
A DW -5, 3, 9, -4, 5	        ;описание массива из 5 элементов

				
.CODE 			        ;отмечаем начало сегмента кодов
main PROC 	
mov AX, @data 		;копируем адрес 
mov DS, AX 		        ;сегмента данных
mov SI, OFFSET A	        ;заносим в SI начало массива А
mov CX, 4 		        ;в СХ заносим количество итераций
cld 			               ;устанавливаем прямой порядок обработки массива
mov AX, [SI] 	

L3:			
and AX, 8000h
cmp AX, 8000h
jnz L2			         ;проверка на знак, если отриц. то 
mov AX, 0
mov [SI], AX

L2: 			
inc SI 			           ;сдвигаемся по массиву к следующему 
inc SI 			           ;элементу
mov AX,[SI] 		           ;заносим в АХ текущий элемент массива

loop L3			           ;циклически повторяем все действия

mov AX,4C00h 	    	   ;выход 
int 21h 		                   ;из программы
main ENDP 	
END main

Как эту программу исправить, чтобы считалось количество положительных элементов массива?

Answer 1

[Lander]

TITLE Prog3_2a 		;название программы
.MODEL small 		;отводим под стек и под данные по 64Кб
.STACK 100h 		        ;отмечаем начало сегмента стека
.DATA 			        ;отмечаем начало сегмента данных
A DW -5, 3, 9, -4, 5	        ;описание массива из 5 элементов

        
.CODE 			        ;отмечаем начало сегмента кодов
main PROC 	
mov AX, @data 		;копируем адрес 
mov DS, AX 		        ;сегмента данных
mov SI, OFFSET A	        ;заносим в SI начало массива А
mov CX, 4 		        ;в СХ заносим количество итераций
cld 			               ;устанавливаем прямой порядок обработки массива
mov AX, [SI] 	
xor BX, BX

L3:			
and AX, 8000h
cmp AX, 8000h
jnz L2			         ;проверка на знак, если отриц. то 
mov AX, 0
mov [SI], AX
inc BX

L2: 			
inc SI 			           ;сдвигаемся по массиву к следующему 
inc SI 			           ;элементу
mov AX,[SI] 		           ;заносим в АХ текущий элемент массива

loop L3			           ;циклически повторяем все действия

;Тут в BX - количество положительных элементов массива (если 0 считать положительным)

mov AX,4C00h 	    	   ;выход 
int 21h 		                   ;из программы
main ENDP 	
END main

Comments

[Muriam]

эта программа считает количество отрицательных элементов, а нужно количество положительных

[Muriam]

Lander, подскажите, как это сделать.

[Lander]

Мария, Да, извините, немного подзабыл в каком случае cmp ставит zero flag. Давно дело было! :)
Ну тогда можно использовать такой вариант:

TITLE Prog3_2a 		;название программы
.MODEL small 		;отводим под стек и под данные по 64Кб
.STACK 100h 		        ;отмечаем начало сегмента стека
.DATA 			        ;отмечаем начало сегмента данных
A DW -5, 3, 9, -4, 5	        ;описание массива из 5 элементов

        
.CODE 			        ;отмечаем начало сегмента кодов
main PROC 	
mov AX, @data 		;копируем адрес 
mov DS, AX 		        ;сегмента данных
mov SI, OFFSET A	        ;заносим в SI начало массива А
mov CX, 4 		        ;в СХ заносим количество итераций
cld 			               ;устанавливаем прямой порядок обработки массива
mov AX, [SI] 	
xor BX, BX

L3:
inc BX			         ;Предполагаем что число положительное...			
and AX, 8000h
cmp AX, 8000h
jnz L2			         ;проверка на знак, если отриц. то 
mov AX, 0
mov [SI], AX
dec BX			         ;Ан нет. Ошиблись. Не положительное.

L2: 			
inc SI 			           ;сдвигаемся по массиву к следующему 
inc SI 			           ;элементу
mov AX,[SI] 		           ;заносим в АХ текущий элемент массива

loop L3			           ;циклически повторяем все действия

;Тут в BX - количество положительных элементов массива (если 0 считать положительным)

mov AX,4C00h 	    	   ;выход 
int 21h 		                   ;из программы
main ENDP 	
END main

[Muriam]

Lander, должно быть 3 шт положительных числа, а считается 2

[Muriam]

@usdglander
Поняла в чем ошибка.

код правильно считает, если в 11 строке кода, см ниже, количество итераций поставить 5

mov CX, 4           ;в СХ заносим количество итераций