org 100h

jmp start

mess1    db  'Even elements in default order: $'
mess2    db  'Odd elements in reverse order: $'
strClose    db   'Press any key to exit$'
nextLine        db      '', 13, 10, '$'
spaceLine       db      ' ', '$'
array   db  9, 2, 7, 63, 55, 8, 6, 3, 10, 4, 21, 30, 45, 99, 50, 111
size    =   $ - array         ; ðàçìåð ìàññèâà

start:
        mov   ah, 9
        mov   dx, mess1
        int   21h

        mov   si, array             ; SI = óêàçàòåëü íà ìàññèâ
        mov   cx, size              ; CX = äëèíà ìàññèâà/öèêëà
        xor   ax, ax                ; î÷èùàåì ÀÕ (ñþäà áóäåì ÷èòàòü)
        xor   bx, bx                ; î÷èùàåì ÂÕ (çäåñü áóäåò ñóììà)
        mov   bp, 0

cycle1:
        lodsb                      ; áåð¸ì â AL î÷åðåäíîé áàéò èç SI

        test  ax, 1
        jz    isEven

        push  ax
        inc   bp

        loop  cycle1

prep:
        mov      ah, $09
        mov      dx, nextLine
        int      21h

        mov     ah, $09
        mov     dx, mess2
        int     21h

        mov   cx, bp

cycle2:
        pop   ax

        mov   bx, 10                ; ñèñòåìà ñ÷èñëåíèÿ 10-òè÷íàÿ
        call  hex2asc              ; çîâ¸ì ôóíêöèþ âûâîäà ÷èñåë íà ýêðàí!

        mov      ah, $09
        mov      dx, spaceLine
        int      21h

        xor     ax, ax

        loop  cycle2
        jmp   exit


isEven:

        mov   bx, 10                ; ñèñòåìà ñ÷èñëåíèÿ 10-òè÷íàÿ

        call  hex2asc              ; çîâ¸ì ôóíêöèþ âûâîäà ÷èñåë íà ýêðàí!

        mov      ah, $09
        mov      dx, spaceLine
        int      21h

        xor     ax, ax

        loop  cycle1                ; ìîòàåì öèêë ÑÕ-ðàç
        jmp   prep

exit:
        mov      ah, $09
        mov      dx, nextLine
        int      21h

        mov     ah, $09
        mov     dx, strClose
        int     21h

        mov     ah, $08
        int     21h
        ret                  ; íà âûõîä!




hex2asc:                 ; Ôóíêöèÿ ïåðåâîäèò ÷èñëà â ñèìâîëû
        pusha                 ; Âõîä:  ÀÕ = ÷èñëî, BX = ñèñòåìà ñ÷èñëåíèÿ
        xor   cx, cx           ; Âûõîä: íà ýêðàíå
isDiv:
        xor   dx, dx
        div   bx
        push  dx
        inc   cx
        or    ax, ax
        jnz   isDiv
isOut:
        pop   ax
        cmp   al, 9
        jle   noHex
        add   al, 7
noHex:
        add   al, 30h
        int   29h
        loop  isOut
        popa
ret