SDODIV:	
MOV	21H,R0				
MOV	A, R0
ADD		A, R3
DEC		A					
MOV	R0, A
MOV	A,@R0
ANL		A, #80H				
MOV	R6, A
JZ		NEG1				
NEG0:		
MOV	R0,21H				
MOV	22H, R3
ACALL	NEGTUN
NEG1:		
MOV	24H,R1				
MOV	A, R1
ADD		A, R2
DEC		A					
MOV	R1, A
MOV	A,@R1
ANL		A, #80H				
MOV	R7, A
JZ		ZERO
MOV	R0,24H				
MOV	22H, R2
ACALL	NEGTUN
ZERO:		
MOV	A, 24H
ADD		A, R2
MOV	R0, A			
MOV	A, R3
CLR		C					
SUBB	A, R2
MOV	R2, A
JZ		DODIV				
LP:			
MOV	@R0,#00H				
INC		R0
DJNZ	R2, LP
DDODIV:	
MOV	A,R6					
XRL		A, R7
MOV	23H, A
MOV	R0, 21H
MOV	R1, 24H
ACALL	DODIV				
JNB		1FH, RETURN
NEG2:		
MOV	22H,R3				
ACALL	NEGTUN
MOV	R0, 21H
RETURN:	
RET							
NEGTUN:						
SETB	C					
LP:			
MOV	A,@R0
CPL		A					
ADDC	A, #00H
MOV	@R0, A
INC		R0					
DJNZ	22H, LP
RET