Untitled

.STACK 100H
 
 .DATA
    PROMPT     DB  0DH,0AH,'Enter three initials : $'
    ASTERISKS  DB  '***********',0DH,0AH,'$'
    NEXT_LINE  DB  0DH,0AH,"$"
 
 .CODE
   MAIN PROC
     MOV AX, @DATA             
     MOV DS, AX
 
     MOV AH, 2                   
     MOV DL, "?"
     INT 21H
 
     LEA DX, PROMPT           
     MOV AH, 9
     INT 21H
 
     MOV AH, 1                    
     INT 21H
 
     MOV BL, AL                 
 
     INT 21H                     
 
     MOV BH, AL             
 
     INT 21H                    
 
     MOV CL, AL                   
 
     LEA DX, NEXT_LINE           
     MOV AH, 9
     INT 21H
     INT 21H
 
     LEA DX, ASTERISKS           
     MOV AH, 9                                           
 
     INT 21H                      
     INT 21H
     INT 21H
     INT 21H
     INT 21H
 
     MOV ASTERISKS+4, BL         
     MOV ASTERISKS+5, BH          
     MOV ASTERISKS+6, CL
 
     INT 21H                     
 
     MOV ASTERISKS+4, "*"        
     MOV ASTERISKS+5, "*"        
     MOV ASTERISKS+6, "*"
 
     INT 21H                      
     INT 21H
     INT 21H
     INT 21H
     INT 21H
 
     MOV AH, 2                     
     MOV DL, 7H
     INT 21H
 
     MOV AH, 4CH                 
     INT 21H
   MAIN ENDP
 END MAIN