7.1.6浮点符号函数.txt

来自「这是MCS51的数学计算程序库」· 文本 代码 · 共 18 行

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