左规格化子程序.txt

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

NORM:   MOV  A,@R0
        MOV  C,A.7
	MOV  F0,C   ;保存数的符号位
	INC  R0
	MOV  C,A.6  ;扩展阶码为双符号位
	MOV  A.7,C
NORM1:  MOV  A,@R0
	INC  R0
	JNZ  NORM3
	MOV  A,@R0
	JNZ  NORM4
	DEC  R0       ;尾数为0
	DEC  R0
	MOV  A,#40H   ;置阶码为最小值40H
NORM2:  MOV  C,F0
	MOV  A.7,C
	MOV  @R,A
	RET
NORM3:  JB  A.7,NORM5
NORM4:  CLR  C       ;尾数左移一位
	MOV A,@R0
	RLC  A
	MOV  @R0,A
	DEC  R0
	MOV  A,@R0
	RLC  A
	MOV  @R0,A
	INC  R0
	DEC  R2      ;阶码减1
	CJNE R2,#0C0H,NORM3  ;判断阶码是否太小
NORM5:  DEC  R0               ;是规格化数
	DEC  R0
	MOV  A,R2
	SJMP NORM2