FILTER6:
MOV 	A,7FH					
MOV 	B,#3
M1jL 	AB
MOV 	DPTR,#2000H				
ADD 	A,DDL					
MOV 	DPL,A
MOV 	A, R6					
MOVX	@DPTR,A
INC 		DPTR
MOV 	A, R2
MOVX	@DPTR,A
INC 		DPTR
MOV	A,R3
MOVX	@DPTR,A
MOV 	A,7FH					
INC A
CJNE 	A,#15,FSA1
CLR 	A						
FSA1: 
MOV 	7FH,A
MOV 	R0,#15
INC 		DPTR
FSA2:
MOV 	A, DPL
CJNE 	A,#30H,FSA3
MOV 	DPL,#0					
FSA3:
MOVX 	A,@DPTR
MOV 	R7,A
INC		DPTR					
MOVX 	A,@DPTR
MOV 	R4,A
INC		DPTR					
MOVX 	A,@DP'TR
MOV 	R5,A
INC 		DPTR
CLR 	3AH						
MOV	A,R6						
MOV	C,ACC.7
MOV	38H,C					
XRL		A,R7
JNB		ACC.7,LOOP6
CPL		3AH						
MOV	A,R6
MOV	C,ACC.6					
MOV	ACC.7,C
MOV	R6,A
MOV	A,R7
MOV	C,ACC.6
MOV	ACC.7,C
MOV	R7,A
CLR		C					
MOV	A,R6
SUBB	A,R7
JZ		LOOP7
CLR		PSW.5					
CLR		39H					
JB		ACC.7,LOOP10
CJNE	R4,#0,LOOP11
CJNE	R5,#0,LOOP11
LOOP7:
JB		3AH,LOOP13
MOV	A,R3						
ADD		A,R5
MOV	R3,A
MOV	A,R2
ADDC	A,R4
MOV	R2,A
JNC		LOOP9
SETB	39H						
CLR		C
LOOP8:
CLR		PSW.5
LCALL	FSDT
LOOP9:
CJNE	R2,#0,FAB
CJNE	R3,#0,FAB
MOV	R4,#41H					
RET
FAB:
MOV	A,R6
MOV	C,38H
MOV	ACC.7,C
XCH		A,R4						
MOV	R6,A
RET
LOO10:
CJNE	R2,#0,LOOP12
CJNE	R3,#0, LOOP12
MOV	A ,R7
MOV	R6,A
SJMP	LOOP7					
LOOP11:
CPL		PSW.5					
LOOP12:
CLR		C						
LCALL	FSDT
SJMP	LOOP6
LOOP13:
MOV	A,R3						
CLR		C
SUBB	A,R5
MOV	R3,A
MOV	A,R2
SUBB	A,R4
MOV	R2,A
JNC		LOOP14
CLR		A						
CLR		C						
SUBB	A,R3
MOV	R3,A
CLR		A
SUBB	A,R2
MOV	R2,A
CPL		38H						
LOOP14:
SETB	C
SJMP	LOOP8
MOV 	A, R4					
MOV 	R6,A
DJNZ 	R0,FSA2
MOV 	C, A.7					
DEC 	A						
DEC 	A
DEC 	A
DEC		A
MOV 	A.7,C					
MOV 	R4,A
MOV	A,R4						
MOV	@R1,A
INC		R1
MOV	A,R2
MOV	@R1,A
INC		R1						
MOV	A,R3
MOV	@R1,A
DEC		R1						
DEC		R1
RET					



