datarea segment
 string1 db 'Move the cursor backward.'
 string2 db 'Move the cursor backward.'
 mess1   db 'Match.'
 mess2   db 'No match!'
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
      je match
      lea dx,mess2
      jmp short disp
match:
      lea dx,mess1
disp:
      mov ah,08
      int 21h
      ret
main    endp
prognam ends
        end start