《MCS-51单片机应用开发实用子程序》配套源代码下载

				FINDF:
				MOV 	DPL,R1					
				MOV	DPH,R0
				MOV	A,R7
				MOV	B,A
				MOV	NCNT,R6					
				JZ		FINDF1					
				INC		NCNT
				FINDF1:							
				MOVX	A,@DPTR
				INC		DPTR
				MOV	R5,A
				MOVX	A,@DPTR
				INC		DPTR
				MOV	R6,A
				MOVX	A,@DPTR
				INC		DPTR
				MOV	R7,A
				LCALL	FCMP					
				JNZ		 FINDF2
				MOV	A,DPL
				CLR		C
				SUBB	A,#03H
				MOV	R1,A
				MOV	A,DPH
				SUBB	A,#00H
				MOV	R0,A
				CLR		A
				RET
				FINDF2:
				DJNZ   	B,FINDF1
				DJNZ   	NCNT,FINDF1
				MOV    	A,#0FFH
				RET