浮点除法子程序.txt

来自「单片机浮点数运算子程序」· 文本 代码 · 共 73 行

FDIV:   LCALL  FMLD
	MOV  A,R6
	XRL  A,R7
	MOV  C,A.7
	MOV  38H,C
	CLR  A
	MOV  R6,A
	MOV  R7,A
	CJNE R4,#0,FD1
	CJNE R5,#0,FD1
	SETB C
	RET
FD1: 	MOV  A,R3
	SUBB A,R5
	MOV  A,R2
	SUBB A,R4
	JC   FD2
	CLR  F0
	CLR  39H
	LCALL FSDT
	MOV  A,R7
	RRC  A
	MOV  R7,A
	CLR  C
	SJMP FD1
FD2:    CLR  A
	XCH  A,R6
	PUSH A
	LCALL DDIV
	POP  A
	ADD  A,@R0
	CLR  C
	SUBB A,@R1
	MOV  C,38H
	MOV  A.7,C
	MOV  R4,A
	CLR  C
	RET
DDIV:   MOV  A,R1
	PUSH A
	MOV  B,#10H
DV1:    CLR  C
	MOV  A,R6
	CLR  A
	MOV  R6,A
	MOV  A,R7
	RLC  A
	MOV  R7,A
	MOV  R3,A
	XCH  A,R2
	RLC  A
	XCH  A,R2
	MOV  F0,C
	CLR  C
	SUBB A,R5
	MOV  R1,A
	MOV  A,R2
	SUBB A,R4
	JB   F0,DV2
	JC   DV3
DV2:	MOV  R2,A
	MOV  A,R1
	MOV  R3,A
	INC  R6
DV3:	DJNZ B,DV1
	POP  A
	MOV  R1,A
	MOV  A,R7
	MOV  R2,A
	MOV  A,R6
	MOV  R3,A
	RET