code    segment
        assume  cs:code
        org     100h
main    proc    far
l1:     mov     ah,00
        int     16h
        mov     bx,ax
        mov     dl,al
        mov     ah,2
        int     21h
        mov     dl,20h
        mov     ah,2
        int     21h
        mov     al,bh
        call    binidec
        mov     dl,20h
        mov     ah,2
        int     21h
        mov     al,bl
        call    binidec
        mov     dl,20h
        mov     ah,2
        int     21h
        mov     dl,0dh
        mov     ah,2
        int     21h
        mov     dl,0ah
        mov     ah,2
        int     21h
        cmp     bx,011bh
        jz      lend
        jmp     l1
lend:   mov     ax,4c00h
        int     21h
main    endp
binidec proc    near
        mov     ah,0
        mov     cl,10
        div     cl
        cmp     al,0
        jz      l2
        push    ax
        call    binidec
        pop     ax
l2:     and     ah,0fh
        add     ah,30h
        mov     dl,ah
        mov     ah,2
        int     21h
        ret
binidec endp
code    ends
end     main