Binary to decimal

include 'EMU8086.INC'
.model small
.stack 100h
.code
main proc
    mov bx,0
    mov ah,1

    for1:
    int 21h

    cmp al,13
    je end_for1

    sub al,48
    shl bx,1
    or bl,al
    jmp for1

    end_for1:
    printn

    mov ah,2
    add bl,48
    mov dl,bl
    int 21h

    main endp
end main