sample.asm

汇编语言的实验报告

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