Здравствуйте, Flawless!
[code h=200];Найти последний положительный элемент массива из 10 целых со знаком типа слово

S SEGMENT STACK
DW 64 DUP(?)
S ENDS
D SEGMENT ; сегмент данных
; ДИРЕКТИВЫ ОПИСАНИЯ ДАННЫХ
A DW -1234,2345,-3456,4567,5678,-6789,-8901,9012,0,-15234
COUNT EQU ($-A)/2 ; (текущий адрес($) - A) - длина массива в байтах
; поделив на 2 получим число слов в массиве
D ENDS
.186
C SEGMENT
ASSUME SS:S,CS:C,DS:D
Start PROC FAR
; Выполнение соглашений DOS и настройка регистра DS
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,D ; D - непосредственный операнд, в сегментный регистр
MOV DS,AX ; напрямую не пересылается!!!
;передаем параметры через регистры
LEA SI, A ;адрес массива в SI
MOV CX, COUNT ;его длина
CALL LastPositive1 ;проверяем, результат в регистре AX и С=0, С=1, если все отриц
;передаем параметры через стек
PUSH COUNT ;передаем количество
PUSH OFFSET A ;смещение массива
CALL LastPositive2 ;проверяем, результат в регистре AX и С=0, С=1, если все отриц
RET
Start ENDP
;адрес массива в SI
;его длина
;результат в регистре AX и С=0, С=1, если все отриц
LastPositive1 PROC
MOV DX, -1 ;предыдущее значение (=-1 -> положительных нет)
LOOP1:
MOV AX, [SI] ;очередное слово массива
ADD SI, 2 ;адрес следующего слова
TEST AX, AX
JLE NEXT1 ;если меньше или равно, то обходим
MOV DX, AX ;сохраняем, как последнего положительного
NEXT1:
LOOP LOOP1 ;циклим по CX, пока не 0
MOV AX, DX ;результат в AX, AX=-1 если нет положительных чисел
RET
LastPositive1 ENDP
;параметры в стеке
;сначала передается дина массива
;затем адрес массива
;результат в регистре AX, если все отриц, то AX=-1
LastPositive2 PROC
PUSH BP ;сохраним старое значение BP
MOV BP, SP ;будем адресовать стековый кадр
MOV SI, [BP+4] ;получим в стеке адрес массива
MOV CX, [BP+6] ;количество
LOOP2:
MOV AX, [SI] ;очередное слово массива
ADD SI, 2 ;адрес следующего слова
TEST AX, AX
JLE NEXT2 ;если меньше или равно, то обходим
MOV DX, AX ;сохраняем, как последнего положительного
NEXT2:
LOOP LOOP2 ;циклим по CX, пока не 0
MOV AX, DX ;результат в AX, AX=-1 если нет положительных чисел
POP BP ;восстановим старый BP
RET 4 ;при возврате удалим из стека 4 байта (2 слова)!
LastPositive2 ENDP
C ENDS
END Start[/code]