6.2.2浮点数顺序查找.txt

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