5.3.2二进制浮点数右规.txt

来自「MCS－51单片机应用开发实用子程序.zip」· 文本 代码 · 共 29 行

FLTRRN: 
MOV 	A,R3 
ORL 	A,R4 			
JNZ 	RLN1
MOV 	R2,#0C1H			
RET 
RLN1: 
MOV 	A,R3
JB 		ACC.7,RLN2		
CLR 	C 				
LCALL 	RL1
SJMP 	RLN 			
RLN2: 
CLR 	OV 				
RET
MOV 	A,R3 			
RRC 	A 				
MOV 	R3,A
MOV 	A,R4
RRC 	A
MOV 	R4,A
INC 		R2 				
CLR 	OV 				
CJNE 	R2,#40H,RR1E		
MOV 	R2,#3FH 			
SETB 	OV
RR1E: 
RET