s_seg segment para stack
  db 100 dup ("?")
  
  s_seg ends
  
  d_seg segment
  
  string db "my name --------------*$"
 
    d_seg ends
  
  c_seg segment
  assume cs:c_seg , ds:d_seg , ss:s_seg
  
         main proc
         mov ax,d_seg
         mov ds,ax
         
         mov al,"*"
         lea di,string
         mov cx,21
  up:    scasb
         jnz change
         dec di
         mov byte ptr [di],"e"
         loop up
         jmp print
change:  jmp up

print:
         lea dx,string
         mov ah,9
         int 21h
         mov ah,4ch
         int 21h
         
         main endp
         c_seg ends
         end main