data    segment
data    ends
;*************************
code    segment
    assume    cs:code,ds:data,es:data
main    proc
start:
    mov    ax,data
    mov    ds,ax
    mov    es,ax
    call    decibin
    mov    ah,02
    mov    dl,0ah
    int    21h
    mov    ah,02
    mov    dl,0dh
    int    21h
    call    binihex
exit:
    mov    ah,4ch
    int    21h
main    endp
;-------------------------------
decibin    proc    near    uses ax dx    
    mov    bx,0
newchar:
    mov    ah,1h
    int    21h
    sub    al,30h
    jl    dib_re
    cmp    al,9
    jg    dib_re
    cbw            

    xchg    ax,bx
    mov    cx,10

    mul    cx
    xchg    ax,bx

    add    bx,ax    
    jmp    newchar
dib_re:
    ret
decibin    endp
;-------------------------------
binihex    proc    near    uses    ax cx dx
    mov    ch,4
rotate:
    mov    cl,4
    rol    bx,cl
    mov    al,bl
    and    al,0fh
    add    al,30h
    cmp    al,3ah
    jl    print
    add    al,7h
print:
    mov    dl,al
    mov    ah,2
    int    21h
    dec    ch
    jnz    rotate
    ret
binihex    endp
;----------------------------------
code    ends
;-------------------------------
    end    start