float_math.txt

51单片机浮点数运算子程序及IEEE和51浮点数相互转换程序

这是本人使用的MSC-51 3字节和4字节浮点数计算程序，主要用于数据采集及上传，经过IEEE转换，在上位机直接显示，本人还有热电阻和热电偶温度查表计算程序，有需要可EMAIL：
 [e-mail]

; FLOATING PROGRAM 
;
;##########################################
;##########################################
;-----------------------------------------------
; IEEE754 FLOAT CONVERT TO 4 BYTES FLOAT
; INPUT: ((R0))((R0)+1)((R0)+2)((R0)+3) IEEE-754 FLOAT
; OUTPUT: R4 R5R6R7	4 BYTES FLOAT
;-----------------------------------------------
IEE_F:MOV	A,@R0
	JNZ	CON_0
	INC	R0
	MOV	A,@R0
	JNZ	CON_1
	INC	R0
	MOV	A,@R0
	JNZ	CON_2
	INC	R0
	MOV	A,@R0
	JNZ	CON_3
	MOV	R4,#0
	MOV	R5,#0
	MOV	R6,#0
	MOV	R7,#0
	DEC	R0
	DEC	R0
	DEC	R0
	RET
CON_3:DEC	R0
CON_2:DEC	R0
CON_1:DEC	R0
CON_0:CLR	FLAG_0
	INC	R0
	MOV	A,@R0
	RLC	A
	MOV	R5,A
	DEC	R0
	MOV	A,@R0
	RLC	A
	MOV	R4,A
	JNC	SA_IE
	SETB	FLAG_0
SA_IE: CLR	C
	MOV	A,R4
	SUBB	A,#7FH
	CLR	C
	INC	A
	MOV	C,ACC.7
	MOV	ACC.6,C
	MOV	C,FLAG_0
	MOV	ACC.7,C
	MOV	R4,A
	MOV	A,R5
	SETB	C
	RRC	A
	MOV	R5,A
	INC	R0
	INC	R0
	MOV	A,@R0
	MOV	R6,A
	INC	R0
	MOV	A,@R0
	MOV	R7,A
	DEC	R0
	DEC	R0
	DEC	R0
	RET
;---------------------------------------------
; 4 BYTES FLOAT CONVERT TO IEEE754 FLOAT
; INPUT: ((R0)) R2R3R4 4 BYTES FLOAT
; OUTPUT: ((R1)) ((R1)+1) ((R1)+2) ((R1)+3)
; IEEE-754 FLOAT
;---------------------------------------------
F_IEE:
	INC	R0
	MOV	A, @R0
	MOV	R2, A
	INC	R0
	MOV	A, @R0
	MOV	R3, A
	INC	R0
	MOV	A, @R0
	MOV	R4, A
	DEC	R0
	DEC	R0
	DEC	R0

	MOV	A,R2
	JZ	ZERO_IEE
	MOV	A,@R0
	MOV	C,ACC.7
	MOV	FLAG_0,C
	CLR	ACC.7
	MOV	C,ACC.6
	JC	F_FF
	DEC	A
	CLR	C
	ADD	A,#7FH
	LJMP	F_TR
F_FF:	CLR	C
	SUBB	A,#02H
F_TR:	MOV	C,FLAG_0
	RRC	A
	MOV	@R1,A
	INC	R1
	MOV	A,R2
	MOV	ACC.7,C
	MOV	@R1,A
	INC	R1
	MOV	A,R3
	MOV	@R1,A
	INC	R1
	MOV	A,R4
	MOV	@R1,A
FIEE_OFF:DEC R1
	DEC	R1
	DEC	R1
	RET
ZERO_IEE:MOV @R1,A
	INC	R1
	MOV	@R1,A
	INC	R1
	MOV	@R1,A
	INC	R1
	MOV	@R1,A
	SJMP	FIEE_OFF
;==========================================
; 2 BYTE MUL
; 0.R2R3 * 0.R4R5→0.R2R3R7
;------------------------------------------
D2_MUL: MOV	A, R3
	MOV	B, R5
	MUL	AB
	MOV	R7, B
	MOV	A, R3
	MOV	B, R4
	MUL	AB
	ADD	A, R7
	MOV	R7, A
	CLR	A
	ADDC	A, B
	MOV	R3, A
	MOV	A, R2
	MOV	B, R5
	MUL	AB
	ADD	A, R7
	MOV	A, R3
	ADDC	A, B
	MOV	R3, A
	MOV	PSW.5, c
	MOV	A, R2
	MOV	B, R4
	MUL	AB
	ADD	A, R3
	MOV	R3, A
	CLR	A
	ADDC	A, B
	MOV	C, PSW.5
	ADDC	A, #0
	MOV	R2, A
	RET

;------------------------------
; 2 BYTE DIV
; 0.R2R3R7R6 / 0.R4R5→0.R2R3
; INPUT 0.R2R3  < 0.R4R5
;------------------------------
D2_DIV: MOV	A, R1
	PUSH	ACC
	MOV	B, #10H
A2O:	CLR	C
	MOV	A, R6
	RLC	A
	MOV	R6, A
	MOV	A, R7
	RLC	A
	MOV	R7, A
	MOV	A, R3
	RLC	A
	MOV	R3, A
	XCH	A, R2
	RLC	A
	XCH	A, R2
	MOV	PSW.5, C
	CLR	C
	SUBB	A, R5
	MOV	R1, A	
	MOV	A, R2
	SUBB	A, R4
	JB	PSW.5, A2S
	JC	A2R
A2S:	MOV	R2, A
	MOV	A, R1
	MOV	R3, A
	INC	R6
A2R:	DJNZ	B, A2O
	POP	ACC
	MOV	R1, A
	MOV	A, R7
	MOV	R2, A
	MOV	A, R6
	MOV	R3, A
	RET

;--------------------------------------
; 3 BYTE FLOAT LOAD
; ((R0))→R6,((R0)+1)→R2,((R0)+2)→R3
; ((R1))→R7,((R1)+1)→R4,((R0)+2)→R5
;--------------------------------------
F3_MLD: MOV	A, @R0
	MOV	R6, A
	INC	R0
	MOV	A, @R0
	MOV	R2, A
	INC	R0
	MOV	A, @R0
	MOV	R3, A
	DEC	R0
	DEC	R0
	MOV	A, @R1
	MOV	R7, A
	INC	R1
	MOV	A, @R1
	MOV	R4, A
	INC	R1
	MOV	A, @R1
	MOV	R5, A
	DEC	R1
	DEC	R1
	RET

;--------------------------------------
; 3 BYTE FLOAT STANDED
;--------------------------------------
F3_SDT: JC	M3A
	MOV	C, FLAG39
	JB	PSW.5, M3B
	MOV	A, R2
	RRC	A
	MOV	R2, A
	MOV	A, R3
	RRC	A
	MOV	R3, A
	INC	R6
	RET
M3B:	MOV	A, R4
	RRC	A
	MOV	R4, A
	MOV	A, R5
	RRC	A
	MOV	R5, A
	INC	R7
	RET
M3A:	MOV	A, R2
	JNZ	M3C
	CJNE	R3, #0, M3D
	MOV	R6, #41H
M3E:	RET
M3C:	JB	ACC.7, M3E
M3D:	MOV	C, PSW.5
	MOV	A, R3
	RLC	A
	MOV	R3, A
	MOV	A, R2
	RLC	A
	MOV	R2, A
	CLR	PSW.5
	DEC	R6
	SJMP	M3A
	RET

;--------------------------------------
; 3 BYTE FLOAT ADD OR SUB 
; R6R2R3 + R7R4R5→R4R2R3
; R6R2R3 - R7R4R5→R4R2R3
; FLAG3A = 0 ADD FLAG3A = 1 SUB
;--------------------------------------
F3_ABP: MOV	A, R6
	MOV	C, ACC.7
	MOV	FLAG38, C
	XRL	A, R7
	JNB	ACC.7, SQ
	CPL	FLAG3A
	MOV	A, R6
	MOV	C, ACC.6
	MOV	ACC.7, C
	MOV	R6, A
	MOV	A, R7
	MOV	C, ACC.6
	MOV	ACC.7, C
	MOV	R7, A
SQ:	CLR	C
	MOV	A, R6
	SUBB	A, R7
	JZ	ST
	CLR	PSW.5
	CLR	FLAG39
	JB	ACC.7, SW
	CJNE	R4, #00H, SE
	CJNE	R5, #00H, SE
ST:	JB	FLAG3A, SY
	MOV	A, R3
	ADD	A, R5
	MOV	R3, A
	MOV	A, R2
	ADDC	A, R4
	MOV	R2, A
	JNC	SD
	SETB	FLAG39
	CLR	C
SF:	CLR	PSW.5
	LCALL	F3_SDT
SD:	MOV	A, R6
	MOV	C, FLAG38
	MOV	ACC.7, C
	XCH	A, R4
	MOV	R6, A
	RET
SW:	CJNE	R2, #00H, SF
	CJNE	R3, #00H, SF
	MOV	A, R7
	MOV	R6, A
	SJMP	ST
SE:	CPL	PSW.5
	CLR	C
	LCALL	F3_SDT
	SJMP	SQ
SY:	MOV	A, R3
	CLR	C
	SUBB	A, R5
	MOV	R3, A
	MOV	A, R2
	SUBB	A, R4
	MOV	R2, A
	JNC	SL
	CLR	A
	CLR	C
	SUBB	A, R3
	MOV	R3, A
	CLR	A
	SUBB	A, R2
	MOV	R2, A
	CPL	FLAG38
SL:	SETB	C
	SJMP	SF

;--------------------------------------
;3 BYTE FLOAT ADD
; ((R0))((R0)+1)((R0)+2) + ((R1))((R1)+1)
;     ((R1)+2)→R4R2R3
; FLAG3A = 0  
;--------------------------------------
F3_ADD: CLR	FLAG3A
	LCALL	F3_MLD
	LCALL	F3_ABP
	RET

;--------------------------------------
; 3 BYTE SUB
; ((R0))((R0)+1)((R0)+2) - 
; ((R1))((R1)+1)((R1)+2)→R4R2R3
; FLAG3A =  1
;--------------------------------------
F3_SUB: SETB	FLAG3A
	LCALL	F3_MLD
	LCALL	F3_ABP
	RET

;--------------------------------------
; 3 BYTE FLOAT MUL
; ((R0))((R0)+1)((R0)+2) * 
; ((R1))((R1)+1)((R1)+2)→R4R2R3
;--------------------------------------
F3_MUL: LCALL  F3_MLD
	MOV	A, R6
	XRL	A, R7
	MOV	C, ACC.7
	MOV	FLAG38, C
	LCALL	D2_MUL
	MOV	A, R7
	MOV	C, ACC.7
	MOV	PSW.5, C
	MOV	A, @R0
	ADD	A, @R1
	MOV	R6, A
	SETB	C
	LCALL	F3_SDT
	MOV	A, R6
	MOV	C, FLAG38
	MOV	ACC.7, C
	MOV	R4, A
	RET

;--------------------------------------
; 3 BYTE FLOAT DIV
; ((R0))((R0)+1)((R0)+2) / 
; ((R1))((R1)+1)((R1)+2)→R4(阶)R2R3
; C = 0 NORMAL ,C = 1 DIV BY 0
;--------------------------------------
F3_DIV: LCALL	F3_MLD
	MOV	A, R6
	XRL	A, R7
	MOV	C, ACC.7
	MOV	FLAG38, C
	CLR	A
	MOV	R6, A
	MOV	R7, A
	CJNE	R4, #00H, TY
	CJNE	R5, #00H, TY
	SETB	C
	RET
TY:	MOV	A, R3
	SUBB	A, R5
	MOV	A, R2
	SUBB	A, R4
	JC	TU
	CLR	PSW.5
	CLR	FLAG39
	LCALL	F3_SDT
	MOV	A, R7
	RRC	A
	MOV	R7, A
	CLR	C
	SJMP	TY
TU:	CLR	A
	XCH	A, R6
	PUSH	ACC
	LCALL	D2_DIV
	POP	ACC
	ADD	A, @R0
	CLR	C
	SUBB	A, @R1
	MOV	C, FLAG38
	MOV	ACC.7, C
	MOV	R4, A
	CLR	C
	RET

;-------------------------------
; 3BYTE FLOAT STORE
; R4R2R3 TO (R1)(R1+1)(R1+2)
;-------------------------------
F3_STR: MOV	A, R4
	MOV	@R1, A
	INC	R1
	MOV	A, R2
	MOV	@R1, A
	INC	R1
	MOV	A, R3
	MOV	@R1, A
	DEC	R1
	DEC	R1
	RET

;--------------------------------
; 3 BYTE FLOAT SQRT
; F0 = 0 NORMAL ,F0 = 1 ERROR
;--------------------------------
F3_SQRT:MOV	A, @R0
	JB	ACC.7, BV
	MOV	@R1, A
	INC	R0
	INC	R1
	MOV	A, @R0
	MOV	@R1, A
	INC	R0
	INC	R1
	MOV	A, @R0
	MOV	@R1, A
	DEC	R0
	DEC	R0
	DEC	R1
	DEC	R1
BM:	LCALL	F3_DIV
	MOV	R6, A
	MOV	A, @R1
	MOV	R7, A
	INC	R1
	MOV	A, @R1
	MOV	R4, A
	INC	R1
	MOV	A, @R1
	MOV	R5, A
	DEC	R1
	DEC	R1
	CLR	FLAG3A
	LCALL	F3_ABP
	DEC	R4
	CLR	PSW.5
	MOV	A, R4
	MOV	B, R7
	CJNE	A, B, BN
	MOV	A, R5
	SUBB	A, R3
	ANL	A, #0FCH
	MOV	R7, A
	MOV	A, R6
	SUBB	A, R2
	JNZ	BN
	CJNE	R7, #00H, BN
	SETB	PSW.5
BN:	LCALL	F3_STR
	JNB	PSW.5, BM
	RET
BV:	CLR	PSW.5
	RET

;------------------------------------
; 3 BYTE BIN TO 4 BYTE FLOAT 
; INPUT ADDRESS (R0),OUTPUT ADDRESS (R1)
;------------------------------------
F3_BTF:MOV	A, #10H
	MOV	R2, A
	MOV	A, @R0
	MOV	R3, A
	INC	R0
	MOV	A, @R0
	MOV	R4, A
	DEC	R0
	MOV	A, R3
	ORL	A, R4
	JNZ	FRLN1
	MOV	R2, A
	MOV	R3, A
	MOV	R4, A
	JMP	FRLN2
FRLN1:	MOV	A, R3
	JB	ACC.7, FRLN2
	LCALL	FRL1
	SJMP	FRLN1
FRLN2:	INC	R1
	INC	R1
	MOV	A, R4
	MOV	@R1, A
	DEC	R1
	MOV	A, R3
	MOV	@R1, A
	DEC	R1
	MOV	A, R2
	CLR	ACC.7
	CLR	ACC.6
	MOV	@R1, A
	RET

FRL1:	CLR	C
	MOV	A, R4
	RLC	A
	MOV	R4, A
	MOV	A, R3
	RLC	A
	MOV	R3, A
	DEC	R2
	MOV	A, R2
	XRL	A, #0C0H
	JNZ	FRL1E
	MOV	R2, A
	MOV	R3, A
	MOV	R4, A
FRL1E:	RET

;------------------------------------
; 3 BYTE FLOAT BIN TO DEC
; INPUT DATA: FLAG3E = 0 1 <= DATA < 10
; FLAG3E = 1 FLAG3F = 0 0.2 <= DATA < 2
; FLAG3E = 1 FLAG3F = 1 0.4 <= DATA < 4
;------------------------------------
F3_BTD: MOV	A, @R0
	MOV	C, ACC.7
	MOV	FLAG3C, C
	MOV	C, ACC.6
	MOV	ACC.7, C
	MOV	R6, A
	INC	R0
	MOV	A, @R0
	MOV	R2, A
	INC	R0
	MOV	A, @R0
	MOV	R3, A
	DEC	R0
	DEC	R0
	CJNE	R2, #00H, PA
	CJNE	R3, #00H, PA
	CLR	A
	MOV	@R1, A
	INC	R1
	MOV	@R1, A
	INC	R1
	MOV	@R1, A
	INC	R1
	MOV	@R1, A
	INC	R1
	MOV	@R1, A
	INC	R1
	MOV	@R1, A
PL:	DEC	R1
	DEC	R1
	DEC	R1
	DEC	R1
	DEC	R1
	RET
PA:	MOV	@R1, #00H
	JB	FLAG3E, PB
	DEC	@R1
PB:	INC	R1
	MOV	@R1, #01H
	JNB	FLAG3E, PD
	INC	@R1
	JNB	FLAG3F, PD
	INC	@R1
PD:	MOV	A, R6
	CLR	C
	SUBB	A, @R1
	JZ	PX
	JNB	ACC.6, PE
PM:	DEC	@R1
	DEC	@R1
	DEC	@R1
	DEC	@R1
PZ:	MOV	A, R6
	CLR	C
	SUBB	A, @R1
	JZ	PY
	JB	ACC.6, PF
PQ:	JNB	FLAG3E, PG
	DEC	R6
	JNB	FLAG3F, PG
	DEC	R6
PG:	CJNE	R6, #00H, PH
	MOV	R6, #05H
	JNB	FLAG3E, PI
	MOV	R7, #01H
	JNB	FLAG3F, PJ
	INC	R7
PJ:	CLR	A
	CLR	C
PK:	XCH	A, R3
	RLC	A
	XCH	A, R3
	XCH	A, R2
	RLC	A
	XCH	A, R2
	RLC	A
	DJNZ	R7, PK
	DEC	R6
	MOV	@R1, A
	INC	R1
PI:	MOV	A, R3
	MOV	B, #0AH
	MUL	AB
	MOV	R3, A
	MOV	R7,B
	MOV	A, R2
	MOV	B, #0AH
	MUL	AB
	ADD	A, R7
	MOV	R2, A
	CLR	A
	ADDC	A, B
	MOV	@R1, A
	INC	R1
	DJNZ	R6, PI
	SJMP	PL
PX:	MOV	A, R2
	SUBB	A, #80H
	JC	PM
PE:	MOV	R5, #0CDH
	MOV	R4, #0CCH
	LCALL	D2_MUL
	MOV	A, R2
	JB	ACC.7, PN
	MOV	A, R7
	MOV	C, ACC.7
	ORL	C, ACC.6
	MOV	A, R3
	RLC	A
	MOV	R3, A
	MOV	A, R2
	RLC	A
	MOV	R2, A
	DEC	R6
PT:	MOV	A, R6
	ADD	A, #0FDH
	MOV	R6, A
	DEC	R1
	INC	@R1
	INC	R1
	SJMP	PD
TPS:	SJMP	PZ
PH:	MOV	A, R2
	RRC	A
	MOV	R2, A
	MOV	A, R3
	RRC	A
	MOV	R3, A
	INC	R6
	SJMP	PG
PY:	MOV	A, #0CBH
	CLR	C
	SUBB	A, R3
	MOV	A, #0CCH
	SUBB	A, R2
	JC	PQ
PF:	MOV	R4, #0A0H
	MOV	R5, #00H
	LCALL	D2_MUL
	MOV	A, R2
	JB	ACC.7, PR
	MOV	A, R7
	MOV	C, ACC.7
	ORL	C, ACC.6
	MOV	A, R3
	RLC	A
	MOV	R3, A
	MOV	A, R2
	RLC	A
	MOV	R2, A
	DEC	R6
PU:	MOV	A, R6
	ADD	A, #04H
	MOV	R6, A
	DEC	R1
	DEC	@R1
	INC	R1
	SJMP	TPS
PN:	MOV	A, R7
	JNB	ACC.7, PT
	MOV	A, R3
	ORL	A, #01H
	MOV	R3, A
	SJMP	PT
PR:	MOV	A, R7
	JNB	ACC.7, PU
	MOV	A, R3
	ORL	A, #01H
	MOV	R3, A