DATA SEGMENT
STR1 DB 'ABCDEFG$'
N EQU $-STR1
MESS DB 'NO MATCH!$'
DATA ENDS
DATA1 SEGMENT
STR2 DB 'ABCDEFG$'
M EQU $-STR2
DATA1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA1
BEGIN:MOV AX,DATA
MOV DS,AX
MOV AX,DATA1
MOV ES,AX
MOV AL,N
CMP AL,M
JNZ EXIT
LEA SI,STR1
LEA DI,STR2
MOV CL,N
MOV CH,0
CLD
REPE CMPSB
JNZ EXIT
LEA DX,STR1
JMP A1
EXIT: LEA DX,MESS
A1: MOV AH,9
INT 21H
MOV AH,4CH
INT 21H
CODE ENDS
END BEGIN