FPDI:
MOV 	A,R4				
JZ  		OV3					
CPL 		A
INC		A
MOV 	R4,A					
MOV 	A,R0
JNZ 		D1
AJMP 	G0					
D1:
ACALL  DP					
JZ  		OV3
JC  		OV3					
ORL		09H,#80H
ORL		0DH,#80H			
FPD3:
ACALL 	EXT					
MOV 	R0,#19H				
ACALL 	SUB0
XCH 	A,R5
SUBB 	A,R1					
JC  		D2
INC 		R4					
CJNE 	R4,#0,D3
OV3:
LJMP 	0FFFFH				
D2:
ACALL 	ADD0
ADDC 	A,R1					
LOOP2:
ACALL 	ADD2
RLC 	A					
JC 		D4				
ACALL 	SUB0
SUBB 	A,R1
JNC  	D3					
ACALL 	ADD0
ADDC 	A,R1					
SJMP 	D3
D4:
ACALL 	SUB0
SUBB 	A,R1
CLR  	C
D3:
DJNZ 	R0,D5				
MOV 	R5,1DH
MOV	R6,1EH
MOV 	R7,1FH				
JC  		COM3
ACALL 
INC		3					
COM3:	
JBC 		7EH,DON3
ANL 	0DH,#7FH				
DON3:
RET
D5:
CPL 		C					
CPL 		RS1
ACALL 	H0					
CPL 		RS1
SJMP 	LOOP2