DATA SEGMENT
STR DB 80 DUP(?)
AIM DB ?
STR1 DB 'FIND!$'
STR2 DB 'NO FIND!$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
LEA DI,STR
MOV CX,0
AGAIN: MOV AH,1
INT 21H
CMP AL,0DH
JZ DONE
MOV [DI],AL
INC DL
INC CX
JMP AGAIN
DONE: MOV AH,1
INT 21H
MOV AIM,AL
MOV DL ,0AH
MOV AH,2
INT 21H
LEA SI,STR
CLD
CYCLE:LODSB
CMP AL,AIM
JNE NEXT
LEA DX,STR1
MOV AH,09H
INT 21H
JMP DONE1
NEXT:LOOP CYCLE
LEA DX,STR2
MOV AH,09H
INT 21H
DONE1:MOV AH,4CH
INT 21H
CODE ENDS
END START