DSUB:         				
MOV    	A,R6
CPL    	ACC.7				
MOV    	R6,A
DADD:
MOV	A,R3
MOV	 C,ACC.7
MOV	SR0,C
XRL		A,R6
MOV	C,ACC.7
MOV	A,R3
CLR		ACC.7
MOV	R3,A
MOV	A,R6
CLR 		ACC.7
MOV	R6,A
JC		DAB2
NADD:								
MOV    	A,R4
ADD    	A,R7
MOV    	R4,A
MOV    	A,R3
ADDC   	A,R6
MOV    	R3,A
MOV    	A,R3
JB     	ACC.7,DABE
DAB1:
MOV 	C,SR0
MOV	ACC.7,C
MOV	R3,A
CLR		OV							
RET
DABE:
SETB   	OV
RET
DAB2:
LCALL 	 NSUB						
MOV	A,R3
JNB		ACC.7,DAB1
LCALL  	CMPT
CPL    	SR0
SJMP   	DAB1
RET