Сортировка массива пузырьковым методом

[Maksgreatman]

Здравствуйте! Помогите выполнить задачу:
Написать программу сортировки массива пузырьковым методом, элементы массива ввести с клавиатуры (количество элементов 12), отсортированный массив записать в файл. На экран вывести сумму парных элементов.
Вот код:

org 100h
jmp start

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

start:

       mov   dx,mes0            
       call  message             
       mov   cx,12               
       mov   di,buff             
       mov   ah,1                
@1:    int   21h                 
       stosb                     
       loop  @1                  


       mov   dx,mes1             
       call  message            
sort:  mov   si,buff           
       mov   di,si               
       mov   cx,12              
       xor   bx,bx               
next:  lodsw                    
       cmp   ah,al              
       jae   miss                
       xchg  ah,al               
       inc   bx                 
miss:  stosw                    
       dec   si                  
       dec   di                  
       loop  next               
       or    bx,bx                     
     jnz   sort                


       mov   cx,12               
       mov   si,buff             
print: lodsb                     
       int   29h                 
       loop  print               


       mov   ah,3Ch            
       mov   cx,20h             
     mov   dx,fName    
        int   21h               
       xchg  bx,ax           
       mov   ah,40h         
       mov   cx,12           
       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)
Модератор

[R71MT]

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

Вот код:

И что в нём не работает? Какие именно проблемы?

[Maksgreatman]

не знаю как вывести сумму парных елементов

[R71MT]

..а что есть "парные элементы"? Пример привести сможешь?
Пусть массив у тебя вот-это сообщение. Какие буквы в нём будут относиться к парным элементам?

[Maksgreatman]

Ой извините!
вывести сумму четных элементов

[R71MT]

..ну ты молодец! Даже задание озвучить толком не можешь.
У чётных чисел значение нулевого бита равно нулю, у нечётных - единице.
Биты считаются справа-налево:

  100 = 0110 0100
  101 = 0110 0101
  102 = 0110 0110
  103 = 0110 0111

[Serge_Bliznykov]

дополню ответ.
вот так выглядит проверка младшего бита числа в AL:

        test al,1
        jz even         ; переход, если число чётное
odd:    ...
even:   ...

[Maksgreatman]

Извините за наглость но я ассемблер не шарю
Если вам не трудно допишите код вывода суммы четных элементов в тот код
что вместе с заданием )
Просто очень надо.

[R71MT]

но я ассемблер не шарю

Ты ассемблер не шаришь, но задания сдаёшь и получаешь диплом. Преподу твоему по-барабану, он зарплату получает и больше не хочет ничего знать. В итоге - уровень знаний студентов ниже плинтуса, и виновато в этом сообщество форумов, участники которых подкидывают готовые решения студентам. Куда катится мир..

org 100h
       push start                   ;
       ret                          ; на EntryPoint..
       xor   ax,ax                  ;
       int   16h                    ;
       ret                          ; выход в дос!

mes0   db    13,10,' Array..: $'     ;
mes1   db    13,10,' Sorted.: $'     ;
mes2   db    13,10,' Even...: $'     ;
buff   db    13,0,16 dup('$')       ; буфер 12 байт
fName  db    'array.txt',0          ;

start: mov   dx,mes0           ;
       call  message           ;
       call  saveString        ; создаём массив

       call  sortArray         ; сортируем его

       mov   dx,mes1           ;
       call  message           ;
       mov   dx,buff+3         ; выводим отсортированный
       call  message           ;

       mov   dx,mes2           ;
       call  message           ;
       call  printEven         ; выводим чётные

       call  createFile        ; создаём файл
       jmp   $$+4              ; уходим на начало файла!

;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
message:                       ; мессага
       mov   ah,9              ;
       int   21h               ;
       ret                     ;
;---------------------------------------------------------------
saveString:                    ;
       mov   ah,0Ah            ; fn.0Ah - ввод строки в буфер
       mov   dx,buff           ;
       int   21h               ;
       ret                     ;
;---------------------------------------------------------------
sortArray:                     ; сортируем пузырьком
       mov   si,buff+2         ;
       mov   di,si             ;
       xor   bx,bx             ;
       xor   cx,cx             ;
       mov   cl,[buff+1]       ;
next:  lodsw                   ;
       cmp   ah,al             ;
       jae   miss              ;
       xchg  ah,al             ;
       inc   bx                ;
miss:  stosw                   ;
       dec   si                ;
       dec   di                ;
       loop  next              ;
       or    bx,bx             ;
       jnz   sortArray         ;
       ret                     ;
;---------------------------------------------------------------
printEven:                     ; выводим чётные
       mov   si,buff+2         ;
       xor   cx,cx             ;
       mov   cl,[buff+1]       ;
@@2:   lodsb                   ;
       test  al,1              ; проверка младшего бита!
       jnz   fuck              ;
       int   29h               ;
fuck:  loop  @@2               ;
       ret                     ;
;---------------------------------------------------------------
createFile:                    ; создаём файл
       mov   ah,3Ch            ;
       mov   cx,20h            ;
       mov   dx,fName          ;
       int   21h               ;
       xchg  bx,ax             ;
       mov   ah,40h            ; запись в него
       xor   cx,cx             ;
       mov   cl,[buff+1]       ;
       mov   dx,buff+3         ;
       int   21h               ;
       mov   ah,3Eh            ; close File.
       int   21h               ;
       ret                     ;

[Serge_Bliznykov]

R71MT, ему сумму чётных надо...