.model small
.stack 256
.data
   a db ? , '$'
   bd db 'A'


.code
   begin:
   mov ax,@data
   mov ds,ax
   
   mov ah,1
   int 21h
   mov a,al
   
   cmp a, 'A'
   jnge endwhile_
   cmp a,'Z'
   jnle endwhile_
   
      
      
            
   TOP:
      cmp dl,a
      je endwhile_
      MOV   AH,2      
      MOV   DL,bd
      INT   21h
      inc bd      
      
      
      LOOP   TOP   
   

   endwhile_:
   mov ah,4ch
   int 21h
   end begin