.model small
.stack 100h
.data
    msg db 'vvod $'
    db 256 dup('?')

.code
        mov cx, 2
        cicl:
        mov ax,@data
        mov ds,ax
        mov ah,9
        mov dx,offset msg
        int 21h

        xor ax,ax
        mov ah,1h
        int 21h

        mov dl,al
        sub dl,30h
        cmp dl,9h
        jle M1
        sub dl,7h

        M1: shl dl,4
        int 21h
        sub al,30h
        cmp al,9h
        jle M2
        sub al,7h

        M2: add dl,al
        mov bl,dl
        mov ah,2h
        mov dl,0ah
        int 21h

        push cx
        mov cx,8
        M:
        xor dx,dx
        shl bl,1
        adc dl,30h
        mov ah,2h
        int 21h
        loop M
        pop cx

        mov ah,2h
        mov dl,0ah
        int 21h

        loop cicl
        mov ax,4c00h
        int 21h