霍夫变换代码:从键盘输入2个字符串，比较它们是否相同，如果相同则显示输出“MATCH”，否则显示输出“NO MATCH”。

datarea segment
string1 db 25,0
mess1 db 26 dup(0)
string2 db 25,0
mess2 db 26 dup(0)
mat db 'match.',13,10,'$'
notmat db 'no match.!',13,10,'$'
input db 13,10,'please input the string',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 dx,input
mov ah,09h
int 21h

mov ah,0ah
lea dx,string1
int 21h

lea dx,input
mov ah,09h
int 21h

mov ah,0ah
lea dx,string2
int 21h

lea si,mess1
lea di,mess2
cld
mov cx,25
repz cmpsb
jz match
lea dx,notmat
jmp disp
match:
lea dx,mat
disp:
mov ah,09
int 21h
ret

main endp
prognam ends
end start