datarea segment
   string1        db    'move the cursor backward.'
   string2        db    'move the currsor backward.'
  mess1          db    'match.',13 ,10 '$'
  mess2          db    'no match!',13,10, '$'
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

请问这个程序有什么问题啊,怎么运行不起啊