Cacher is the code snippet organizer for pro developers

.MODEL SMALL
.STACK 100H
.DATA

     I DB 'INPUT: $' 
     O DB 'OUTPUT: $' 
     B DB '10101111$' 
     BB DB '10101111' 
     S DB '___$'
     VAR DB 30H
     
.CODE

MAIN PROC
     
    MOV AX,@DATA
    MOV DS,AX
    
    MOV AH,9
    LEA DX,I
    INT 21H
    
    LEA DX,B
    INT 21H   
     
    LEA DX,S
    INT 21H 
   
    LEA DX,O
    INT 21H 
    
    L_CMP:
    ADD VAR,1H 
    CMP VAR,39H
    JE EXIT
    
    MOV BL,BB   
    MOV AH,2
    OR BL,00000000B
    MOV DL,BL 
    INT 21H
    
    EXIT:
     
    MOV AH,4CH
    INT 21H
    
    MAIN ENDP

END MAIN