برنامه اسمبلی تبدیل عدد دسیمال به هگز

call getNum           
call chkRes
ret

getNum proc   
    mov ah,9
    mov dx,offset[msg1]
    int 21h    
    mov di,offset[num]
    mov bx,1   
    next:
    mov ah,8
    int 21h
    cmp al,13
    je en
    cmp al,'0'
    jl next
    cmp al,'9'
    jg next
    mov ah,2
    mov dl,al
    int 21h    
    mov ah,0
    sub al,48
    dec bx
    jnz s
    mov [di],ax
    jmp next
    s:
    push ax
    mov ax,[di]
    mov bx,10
    mul bx
    mov [di],ax
    pop ax
    add [di],ax    
    jmp next
    en:        
    ret
getNum endp

chkRes proc   
    mov ah,9
    mov dx,offset[msg2]
    int 21h
    mov di,offset[num]
    mov ax,[di]
    mov bx,16
    mov cx,0   
    r:
    cmp ax,0
    je er
    mov dx,0
    div bx   
    cmp dx,9
    jg c
    add dx,48
    b:
    push dx
    inc cx
    jmp r
    er:  
    mov ah,2
    pop dx
    int 21h
    loop er
    ret  
    c:
    add dx,55
    jmp b
chkRes endp

ret
num dw 0
msg1 db 'Enter number: $'
msg2 db 10,13,'HEX: $'