浮点数取整操作.txt

单片机浮点数运算子程序

FINT:   CLR  F0
	INC  R0
	MOV  A,@R0
	MOV  R2,A
	INC  R0
	MOV  A,@R0
	MOV  R3,A
	DEC  R0
	DEC  R0
	MOV  A,@R0
	MOV  C,A.7
	MOV  3CH,C  ;取出符号位
	CLR  A.7
	JNB  A.6,FIN1
	MOV  R2,#0
	MOV  R3,#0
	RET
FIN1:   CJNE A,#17,FIN2
FIN2:	JC   FIN3
	SETB F0     ;溢出
	MOV  R2,#0FFH
	MOV  R3,#0FFH
	RET
FIN3:	CJNE A,#16,FIN4
	RET
FIN4:   CLR  C      ;阶码大于0，小于16
	XCH  A,R2
	RRC  A
	XCH  A,R2
	XCH  A,R3
	RRC  A
	XCH  A,R3
	INC  A       ;阶码加1
	SJMP FIN3