7.1.6浮点符号函数.txt

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

FLTSGN: 
INC 		R0 				
MOV 	A,@R0
INC 		R0
ORL 	A,@R0
DEC 	R0
DEC 	R0
JNZ 		SGN
RET 					
SGN: 
MOV 	A,@R0 			
RLC 	A 				
MOV 	A,#1 			
JNC 		SGN1 			
MOV 	A,#0FFH 			
SGN1: 
RET