通用规格化子程序.txt

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

FSDT:   JC   FS2
	MOV C,39H  ;右规格化
	JB  F0,FS1
	MOV A,R2
	RRC A
	MOV R2,A
	MOV A,R3
	RRC A
	MOV R3,A
	INC R6
	RET
FS1:    MOV A,R4
	RRC A
	MOV R4,A
	MOV A,R5
	RRC A
	MOV R5,A
	INC R7
	RET
FS2:	MOV A,R2  ;左规格化
	JNZ FS4
	CJNZ R3,#0,FS5
	MOV  R6,#41H  ;尾数等于0，41h送阶码
FS3:	RET
FS4:	JB A.7 FS3
FS5:	MOV C,F0    ;左移输入为f0
	MOV A,R3
	RLC A
	MOV R3,A
	MOV A,R2
	RLC A
	MOV R2,A
	CLR F0
	DEC R6
	SJMP FS2