Здравствуйте, Flawless!
Смотрите, изучайте. Будет непонятно, спрашивайте...
[code h=200]S SEGMENT STACK
DW 64 DUP(?)
S ENDS

D SEGMENT ; сегмент данных
; ДИРЕКТИВЫ ОПИСАНИЯ ДАННЫХ
A DW 1234,2345,3456,4567,5678,6789,8901,9012,10234,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 IsOrder1 ;проверяем, результат в флаге С

;передаем параметры через стек
PUSH COUNT ;передаем количество
PUSH OFFSET A ;смещение массива
CALL IsOrder2 ;проверяем, результат в флаге С

RET
Start ENDP

;адрес массива в SI
;его длина
;результат в флаге С=1 - неупорядочен, С=0 - упорядочен по возрастанию
IsOrder1 PROC
XOR DX, DX ;предыдущее значение
LOOP1:
MOV AX, [SI] ;очередное слово массива
ADD SI, 2 ;адрес следующего слова
CMP AX, DX ;сравниваем с предыдущим
JB NO_ORDER2 ;если меньше, то неупорядочен!
MOV DX, AX ;сохраняем, как новый предыдущий
LOOP LOOP1 ;циклим по CX, пока не 0
CLC ;возвращаем признак упорядоченности
RET
NO_ORDER1:
STC ;неупорядочен!
RET
IsOrder1 ENDP

;параметры в стеке
;сначала передается дина массива
;затем адрес массива
;результат в флаге С=1 - неупорядочен, С=0 - упорядочен по возрастанию
IsOrder2 PROC
PUSH BP ;сохраним старое значение BP
MOV BP, SP ;будем адресовать стековый кадр
MOV SI, [BP+4] ;получим в стеке адрес массива
MOV CX, [BP+6] ;количество
XOR DX, DX ;дальше аналогично
LOOP2:
MOV AX, [SI]
CMP AX, DX
JB NO_ORDER2
MOV DX, AX
LOOP LOOP2
CLC
JMP IsOrder2_ret
NO_ORDER2:
STC
IsOrder2_ret:
POP BP ;восстановим старый BP
RET 4 ;при возврате удалим из стека 4 байта (2 слова)!
IsOrder2 ENDP

C ENDS
END Start[/code]