Вывести непарные по порядку элементы ассемблер

Программа должна считать строку, и вывести непарные по порядку элементы. Пробовал этот код, но работает коряво.

model small
.data
    ents      db "Enter string: $"  
    str     db 255,255,255 dup("$") 
    res db 10,13,"Result: $"    
.code
main    proc
    mov ax,@data
    mov ds,ax   
    mov dx,offset ents  
    mov ah,09h      
    int 21h         
    mov dx,offset str   
    mov ah,0a       
    int 21h         
    mov dx,offset res   
    mov ah,09h      
    int 21h         
        
mov ah,02h  
cycl:       
mov dl,str[bx]
        add bx,02
    int 21h 
        cmp str[bx],'$' 
        jne cycl    
mov ah,01h
        int 21h         
    ret
 
main endp
end main
code ends