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
jnz match
lea dx,mess2
jmp short disp
match:
lea dx,mess1
disp:
mov ah,09
int 21h
ret
main endp

prognam ends
end start