Помогите...нужно чтобы в этом коде выводило наибольший четный элемент...

[andrey1177]

;== FASM code =======================
org 100h
jmp start

mes0   db   13,10,'ARRAY.....:  $'
mes1   db   13,10,'SORTED....:  $'
mes2   db   13,10,'MIN.UNEVEN:  $'
buff   db   16 dup(0)
fName  db   'array.txt',0

start:
;------ Заполняем буфер данными -------------------------------------
       mov   dx,mes0             ;
       call  message             ;
       mov   cx,16               ; всего элементов
       mov   di,buff             ;
       mov   ah,1                ;
@1:    int   21h                 ;
       stosb                     ; запись в ES:DI
       loop  @1                  ;

;------ Cортировка прямым выбором -----------------------------------
       mov   dx,mes1             ;
       call  message             ;
       mov   di,buff             ; DI = указатель на массив
       mov   cx,16               ; CX = его длина
a0:    mov   bx,buff+16          ; BX = макс.индекс в проходе
       mov   al,byte[di]         ; AL = значение первого элемента
a1:    dec   bx                  ; уменьшаем индекс..
       cmp   al,byte[bx]         ; сравниваем первый с последним
       jbe   a2                  ; пропускаем, если первый меньше последнего
       xchg  al,byte[bx]         ; иначе: меняем их местами
a2:    cmp   bx,di               ;
       jnz   a1                  ; проход закончился?
       stosb                     ; перезапись элемента
       loop  a0                  ; мотаем СХ-раз..

;------ Выводим отсортированный массив на экран ---------------------
       mov   cx,16               ; всего
       mov   si,buff             ; адрес
print: lodsb                     ; читаем из SI
       int   29h                 ; выводим на консоль
       loop  print               ; на повтор..

;------ Выводим на экран наименьший/нечётный элемент ----------------
       mov   dx,mes2             ;
       call  message             ;
       mov   cx,16               ;
       mov   si,buff             ;
@5:    lodsb                     ; читаем байт
       test  al,1                ; у нечётных мл.бит = 1
       jnz   stop                ; закончить, если не нуль
       loop  @5                  ; сл.элемент..
stop:  int   29h                 ; выводим найденый эл.на экран

;------ Запись массива в файл ---------------------------------------
       mov   ah,3Ch              ; создать файл!
       mov   cx,20h              ; атрибут
       mov   dx,fName            ;
       int   21h                 ;
       xchg  bx,ax               ; отправляем дескриптор в BX
       mov   ah,40h              ; запись в файл!
       mov   cx,16               ; кол-во байт для записи
       mov   dx,buff             ; буфер с данными
       int   21h                 ;
       mov   ah,3Eh              ; закрыть файл!
       int   21h                 ;

exit:  xor   ax,ax               ; выход..
       int   16h                 ;
       int   20h                 ;

;ннннннннннннннннн П Р О Ц Е Д У Р Ы нннннннннннннннннннннннннннннннннннн
;------------------------------------------------------------------------
message:                      ;
      mov   ah,9              ; вывод строки на экран
      int   21h               ;
ret

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

наименьший/нечётный элемент
'MIN.UNEVEN: $'

на английском "нечётный" - это "ODD"

andrey1177, а Вы не пробовали разобраться в выложенном Вами (судя по всему - чужом) коде?
Или Вам не надо разбираться, Вам сдать нужно?

[andrey1177]

ну да нужно здать...и очень нужна помощь

[Serge_Bliznykov]

так, в порядке бреда (концепции)
ошибок наверняка море.
Но идею можно развить и отладить код до рабочего состояния

mes2   db   13,10,'MAX EVEN:  $'
mes_no_even db ' ERROR! NO EVEN IN ARRAY!$'
maxeven db 1

.....

;------ Выводим на экран наибольший чётный элемент ----------------
       mov   dx,mes2             ;
       call  message             ;
       mov   cx,16               ;
       mov   si,buff             ;
@5:    lodsb                     ; читаем байт
       test  al,1                ; у нечётных мл.бит = 1
       jnz   next_element   ; если нечётное - то переход на следующий элемент цикла
       mov maxeven, al     ; запоминаем чётное
next_element:
       loop  @5                  ; сл.элемент..

       mov al, maxeven
       test  al,1                ; у нечётных мл.бит = 1
       jnz   no_even_mess ; если нечётное - то сообщение об ошибке
       int   29h                 ; выводим найденый эл.на экран
       jmp  continue2
no_even_mess:
       mov   dx,mes_no_even
       call  message             
       
continue2:

........

[andrey1177]

спасибо)