Перевод BIN -> HEX

[Piar]

Добрый день! Пользователи форума!
Возникла проблема при написании программы на Ассемблере точнее творческий кризис!
Если кто может дополните код!
Суть программы состоит в переводе из двоичной системы счисления в шестнадцатеричную!

.model small
.stack 100h
.data
    msg1 db "Vvedite bin >> $"
    msg2 db 10,13,">>:HEX:>> $"
    mas db 12,0,12 dup (?) 
    bin db 16,0,16 dup (?)
    hex db "0123456789ABCDEF"
.code
start:
    mov ax,@data
    mov ds,ax
    lea dx,msg1
    call out_msg
    lea dx,mas
    mov ah,0ah
    int 21h
	xor cx,cx
    mov di,dx
    inc di
    mov byte ptr cl,[di]
    inc di
go1:                                
    mov byte ptr al,[di]
    sub al,30h
    shl al,4
    mov [di],al
    inc di
    loop go1
    
; до этого места программа сформировала в дампе вот такое вот 
; например мы ввели 1100d => 31 31 00 00h => 10 10 00 00 (это то 
; что получилось в цикле)
; как многие заметили мы пытаемся вывести "С" в шестнадцатеричной 
; так как вводили 1100b 
; прошу помочь превратить из   10 10 00 00 => 1 1 0 0 (и тут наступил 
; кризис)

    mov ah,4ch
    int 21h
out_msg:
    push ax
    mov ah,09h
    int 21h
    pop ax
    ret

end start

Спасибо Большое за внимание!!

[Goodwin98]

А если сделать так

    xor bx,bx
go1:                                
    mov byte ptr al,[di]
    sub al,30h
    or bl,al
    shl bx,1
    inc di
    loop go1
    shr bx,1
    
    lea dx,hex
    add dx,bl; теперь в dx аддрес символа

[Piar]

Сообщение от Goodwin98

А если сделать так

    xor bx,bx
go1:                                
    mov byte ptr al,[di]
    sub al,30h
    or bl,al
    shl bx,1
    inc di
    loop go1
    shr bx,1
    
    lea dx,hex
    add dx,bl; теперь в dx аддрес символа

ТЫ гений!!!! де ты был раньше!!! ОГРОМНОЕ спасибо!!!!