Дан вектор X(x1,x2,.,x10). Найти количество и сумму нечетных отрицательных элементов вектора - Assembler - Ответ 7708859

model   tiny
.code
%nolist
;include    mac.inc
%list
n   equ 10
org 100h
start:  lea dx,dbArray
    mov ah,9
    int 21h
    call    randomize
    mov cx,n    
    lea di,dbData
    xor si,si
    xor dx,dx
    cld
@@01:   call    generator
;   mov ax,cx
;   sub ax,7
    stosb
    and ax,0ffh
    or  al,al   
    jns @@02
    push    ax
    shr ax,1
    pop ax
    jnc @@02
    add si,ax
    inc dx
@@02:   call    outInt
    loop    @@01
    push    dx
    push    si
    lea dx,dbSumma
    mov ah,9
    int 21h
    pop ax
    call    outInt
    lea dx,dbCount
    mov ah,9
    int 21h
    pop ax
    call    outInt
    xor ax,ax
    int 16h
    ret
generator:
;   rand    100
    call    rand
    push    ax
;   rand    100 
    call    rand
    pop bx
    sub ax,bx
    ret
outInt: push    di
    push    si
    push    dx
    push    cx
    push    bx
    cbw
    mov bl,' '
    or  ax,ax
    jns @@03
    mov bl,'-'
    not ax
    inc ax
@@03:   mov si,10
    xor cx,cx
@@04:   xor dx,dx
    div si
    or  dl,'0'
    push    dx
    inc cx
    or  ax,ax
    jnz @@04
@@05:   push    bx
    inc cx
    mov bl,' '
    cmp cx,6
    jnz @@05
@@06:   pop ax
    int 29h
    loop    @@06
    pop bx
    pop cx
    pop dx
    pop si
    pop di
    ret
randomize:
    xor ax,ax
    int 1ah
    add cx,dx
    mov r_c,cx
    ret
rand:   push    dx
    mov ax,r_c
    mul word ptr r_a
    div word ptr r_b
    mov r_c,dx
    mov ax,dx
    pop dx
    ret
dbArray db  10,13,'Array:$'
dbSumma db  10,13,'Summa:$'
dbCount db  10,13,'Count:$'
r_A dw  579Bh
r_B dw  7FFFh
r_C dw  ?
dbData  db  n dup(?)
    end start