Fasm sum of odd and even

org 100h

mov cx, 5
print_array:
        mov di, cx

        mov bh, [array + di - 1]
        add bh, '0'

        mov dl, bh
        mov ah, 2h
        int 21h

        loop print_array

mov cx, 5
mov bx, 0

calc_sum:
        mov ax, 0

        mov di, cx
        mov al, [array + di - 1]

        mov dl, 2
        div dl

        cmp ah, 0
        je even

        add bh, [array + di - 1]
        jmp loop_end
even:
        add bl, [array + di - 1]

loop_end:
        loop calc_sum

        add bh, '0'
        add bl, '0'

        mov dx, sum_of_even
        mov ah, 9h
        int 21h

        mov dl, bl
        mov ah, 2h
        int 21h

        mov dx, sum_of_odd
        mov ah, 9h
        int 21h

        mov dl, bh
        mov ah, 2h
        int 21h

        mov ah, 8h
        int 21h

        ret

array db 1, 2, 3, 4, 5
sum_of_even db 13, 10, 'sum of even:', 13, 10, '$'
sum_of_odd db 13, 10, 'sum of odd:', 13, 10, '$'