even or odd

data segment
num DB 5,9,20,25,79,0  
even db ?
odd db ?
data ends
code segment
assume code:cs,ds:data
start :
mov ax,data
mov ds,ax
lea si,num
mov bl , 0h
mov bh, 0h
mov cl , [si]
inc si
up: mov al,[si]
ror al,1
jc go
inc bl
jmp next
go: inc bh
next: inc si
  dec cl
   jnz up
   mov even,bl
   mov odd,bh
    mov AH,4CH
    INT 21H
code ends
end start