binary read input and write output

.model small
.stack 100h
.data

.code

main proc
    mov bx,0
    mov cl,1

    top:
    mov ah,1
    int 21h

    cmp al,0dh
    je end

    sub al,30h

    shl bx,cl
    or bl,al

    jmp top

    end:
    mov ah,2
    mov dl,0ah
    int 21h
    mov dl,0dh
    int 21h

    mov cl,1
    mov ch,0

    output:
    cmp ch,16
    je finish
    inc ch
    shl bx,cl
    jc one


    mov ah,2
    mov dl,30h
    int 21h
    jmp output

    one:
    mov ah,2
    mov dl,31h
        int 21h
        jmp output

    finish:
    mov ah,4ch
    int 21h


    main endp
end main