?? 15.3.3算術(shù)均值濾波.txt
字號:
FILTER4:
MOV R6,#40H
MOV R2,#00H
MOV R3,#00H
MOV A,COUNT
PUSH ACC
MOV R0,#DATA
LOOP:
MOV 36H,R6
MOV 37H,R2
MOV 38H,R3
MOV A,@R0
MOV R3,A
INC R0
MOV R1,#MED1
CLR 3AH
INTF:
MOV R6,#10H
SETB C
CLR PSW.5
FSDT:
JC LOOP2
MOV C,39H
JB PSW.5,LOOP1
MOV A,R2
RRC A
MOV R2,A
MOV A,R3
RRC A
MOV R3,A
INC R6
LOOP1:
MOV A,R4
RRC A
MOV R4,A
MOV A,R5
RRC A
MOV R5,A
INC R7
LOOP2:
MOV A,R2
JNZ LOOP4
CJNE R3,#0,LOOP5
MOV R6,#41H
LOOP3:
RET
LOOP4:
JB ACC.7,LOOP3
LOOP5:
MOV C,PSW.5
MOV A,R3
RLC A
MOV R3,A
MOV A,R2
RLC A
MOV R2,A
CLR PSW.5
DEC R6
SJMP LOOP2
MOV A,R6
MOV C,3CH
MOV ACC.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
MOV A,@R1
MOV R7,A
INC R1
MOV A,@R1
MOV R4,A
INC R1
MOV A,@R1
MOV R5,A
DEC R1
DEC R1
MOV R6,36H
MOV R2,37H
MOV R3,38H
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 COUNT,LOOP
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
POP ACC
MOV R2,#00H
MOV R3,A
MOV A,#MED2
XCH A,R1
MOV R0,A
CLR 3CH
LCALL INTF
FDIV:
INC R0
MOV A,@R0
INC R0
ORL A,@R0
DEC R0
DEC R0
JNZ DIV1
MOV @R0,#41H
CLR OV
RET
DIV1:
INC R1
MOV A,@R1
INC R1
ORL A,@R1
DEC R1
DEC R1
JNZ DIV2
SETB OV
RET
DIV2:
LCALL MVR0
MOV A,@R0
XRL A,@R1
RLC A
MOV 1FH,C
LCALL MVR1
LCALL DIV3
LJMP MOV0
DIV3:
CLR C
MOV A,R4
SUBB A,R7
MOV A,R3
SUBB A,R6
JC DIV4
LCALL RR1
SJMP DIV3
DIV4:
CLR A
XCH A,R0
PUSH ACC
CLR A
XCH A,R1
PUSH ACC
MOV A,R2
PUSH ACC
MOV B,#10H
DIV5:
CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R0
RLC A
MOV R0,A
MOV A,R4
RLC A
MOV R4,A
XCH A,R3
RLC A
XCH A,R3
MOV F0,C
CLR C
SUBB A,R7
MOV R2,A
MOV A,R3
SUBB A,R6
ANL C,/F0
JC DIV6
MOV R3,A
MOV A,R2
MOV R4,A
INC R1
DIV6:
DJNZ B,DIV5
MOV A,R6
CLR C
RRC A
SUBB A,R3
CLR A
ADDC A,R1
MOV R4,A
CLR A
ADDC A,R0
MOV R3,A
POP ACC
MOV R2,A
POP ACC
MOV R1,A
POP ACC
MOV R0,A
MOV A,R2
CLR C
SUBB A,R5
LCALL MD
LJMP RLN
MOV A,R0
MOV R1,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
DATA EQU 20H
MED1 EQU 30H
MED2 EQU 33H
COUNT EQU 38H
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -