OutBin proc
 
    mov bx,ax
        mov cx,16
ob1:
        shl bx,1
        jc ob2
        
        mov dl,'0'
        jmp ob3
        
ob2:
        mov dl,'1'
ob3:
        mov ah,2
        int 21h
        loop ob1
    
OutBin endp