ASCII to HEX, HEX to Binary/Assembly 8086

data segment
    str1 db 11,?,11 dup(?)
    entr db 0ah,0dh,'$'
    str2 db '=$'
    ascii db '0123456789ABCDEF$'
data ends
code segment
    assume cs:code,ds:data
start:  mov ax,data
        mov ds,ax
        mov cx,0
        mov bx,0
        lea dx,str1
        mov ah,0ah
        int 21h
        mov cl,str1[1]
        mov si,2
        ;print the string from user
again:  mov dl,str1[si]
        mov ah,2
        int 21h
        inc si
        
        ;print the enter
        ;sub ax,ax
        ;mov dl,entr
        ;mov ah,2
        ;int 21h
        ;print the =
        ;sub ax,ax
        ;mov dl,str2
        ;mov ah,2
        ;int 21h
        ;jmp pr_hex
        ;print the hex number
binary: mov al, bl
        ror al, cl
        and al, 01
        add al, 30h
        mov ah, 02h
        mov dl, al
        int 21h
        loop binary
pr_hex: mov dh,al
        mov cl,4
        shr dh,cl
        mov cl,al
        and cl,0fh
        mov bl,dh
        mov dl,ascii[bx]
        mov ah,2
        int 21h
        mov bx,0
        mov bl,cl
        mov dl,ascii[bx]
        mov ah,2
        int 21h
        loop again
        mov ah,4ch
        int 21h
    code ends
end start

binary: mov al, bl    ;bl = 00, из 13ой строки. Наверное, в al надо занести символ.
                ror al, cl       ;крутим 00, cl раз равное кол-ву прочтенных байт, из 17ой строки? Зачем? Предположим в al 42h (B), тогда надо крутить 8 раза и после каждого поворота выводить на экран CF+30h
                and al, 01      ;al так и остается 00
                add al, 30h
                mov ah, 02h
                mov dl, al
                int 21h
                loop binary     ;повторяем процедуру cl раз, только смысл повторять по кол-ву прочтенных байт?