汇编语言代码_字符串的匹配

DATA SEGMENT
mess1 db 'Enter keyword:','$'
mess2 db 'Enter Sentence:','$'
mess3 db 'No match!',13,10,'$'
mess4 db 'Match at location:','$'
mess5 db 'H of the sentence.',13,10,'$'
change db 13,10,'$'
    sen1 label byte
    max1 db 14
    act1 db ?
    stokn1 db 14 dup(?)    
    sen2 label byte
    max2 db 100
    act2 db ?
    stokn2 db 100 dup(?) 
DATA ENDS

CODE SEGMENT
main proc far
    assume cs:code,ds:data,es:data
START:
    mov ax,data
    mov ds,ax
    mov es,ax
    lea dx,mess1
    mov ah,09h
    int 21h
    lea dx,sen1
    mov ah,0ah
    int 21h