datarea segment                 
   string1 db   'Move the cursor backward.'
   string2 db   'Move the cursor backward.' 
   mess1   db   'Match.',13,10,'$'
   mess2   db   'No match!',13,10,'$'
datarea ends 

prognam segment                 
 main proc far
      assume cs:prognam,ds:datarea,es:datarea
 start:

       push ds                  
       sub ax,ax	
       push ax	

       mov   ax,datarea	
       mov   ds,ax	
       mov   es,ax	

       lea si,string1
       lea di,string2
       cld
       mov   cx,25
       repz   cmpsb
       jz   match
       lea   dx,mess2
       jmp   short disp
match:
       lea   dx,mess1
disp:
       mov ah,09
       int 21h
       ret	
main   endp	
prognam   ends	
end   start