.Model small
.Data

.Stack  100h
.Code
    Main proc
        Mov ax,@data
        Mov ds,ax 
        
         Mov ah,1
         int 21h 
         mov bl,al
          
         
         MOv CX,8  
         mov ah,2
        Innhiphan:
         shl bl,1  
         JC In1
         mov dl,'0'
         int 21h
          
        jmp Lap 
         In1:
         Mov dl,'1'
         int 21h
         
         Lap:
         Loop Innhiphan
         
          
          Mov ah,4ch
          Int 21h
      Main endp
    End Main