noname1.asm

51单片机写的程控滤波器

mov 32h,#20
mov 31h,#3
MOV 32H,#3
mov 22h,#00010000b
LJMP GAOTONG
;ljmp JINZHENGGT
DITONG:
    JNB 13H,DITONGEND
    MOV 44H,#00H     ;低通选择0模式
    MOV P1,44H
    CLR P3.6         ;P3.6接373的OE非端
    MOV DPTR,#TABA
    MOV A,31H
    MOVC A,@A+DPTR
    MOV 41H,A
    MOV 40H,#01H ;送选择频值
LL0:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LL1
    MOV 42H,#00H
    AJMP LL11
LL1:
    MOV 42H,#10H
LL11:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LL2
    MOV 43H,#00H
    AJMP LL12
LL2:
    MOV 43H,#20H
LL12:
    MOV A,40H
    ORL A,42H
    ORL A,43H
    MOV 44H,A
    MOV P1,A
    CLR P3.6
    MOV A,40H
    CJNE A,#03H,LL3
    AJMP LL4
LL3:
    INC 40H
    LJMP LL0
LL4:;送Q值0
    MOV 44H,#04H
LL5:
    MOV P1,44H
    CLR P3.6
    MOV A,44H
    CJNE A,#7,LL6
    AJMP DITONGEND
LL6:
    INC 44H
    AJMP LL5
DITONGEND:
    RET
JINZHENGDT: ;P2.5接C,P2.4接B,P2.3接A
   JNB 13H,ZL0
   AJMP ZL1
ZL0:
   LJMP JINZHENGDTEND

ZL1:;0,125K
   MOV A,31H
   CJNE A,#1,ZL2;0
   CLR P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL2:;1,250K
   CJNE A,#2,ZL3;1
   CLR P2.5
   CLR P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL3:
   CJNE A,#3,ZL4
   CLR P2.5
   CLR P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL4:;2,500K
   CJNE A,#4,ZL5;
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL5:
   CJNE A,#5,ZL6
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL6:
   CJNE A,#6,ZL7
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL7:
   CJNE A,#7,ZL8
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL8:;3,1M
   CJNE A,#8,ZL9
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL9:
   CJNE A,#9,ZL10
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL10:
   CJNE A,#10,ZL11
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL11:
   CJNE A,#11,ZL12
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL12:
   CJNE A,#12,ZL13
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL13:
   CJNE A,#13,ZL14
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL14:
   CJNE A,#14,ZL15
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL15:
   CJNE A,#15,ZL16
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGDTEND
ZL16:;4,3.5MHZ
   CJNE A,#16,ZL17
   SETB P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL17:
   CJNE A,#17,ZL18
   SETB P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL18:
   CJNE A,#18,ZL19
   SETB P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL19:
   CJNE A,#19,ZL20
   SETB P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGDTEND
ZL20:
   SETB P2.5
   CLR P2.4
   CLR P2.3
JINZHENGDTEND:
   RET
GAOTONG:
    JNB 14H,LLL00
    AJMP LLL000
LLL00:
    LJMP GAOTONGEND
LLL000:
    MOV 44H,#20H     ;高通选择3模式
    MOV P1,44H
    CLR P3.6         ;P3.6接373的OE非端
    MOV DPTR,#TABB
    MOV A,32H
    MOVC A,@A+DPTR
    MOV 41H,A
    MOV 40H,#01H ;送选择频值
LLL0:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LLL1
    MOV 42H,#00H
    AJMP LLL11
LLL1:
    MOV 42H,#10H
LLL11:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LLL2
    MOV 43H,#00H
    AJMP LLL112
LLL2:
    MOV 43H,#20H
LLL112:
    MOV A,40H
    ORL A,42H
    ORL A,43H
    MOV 44H,A
    MOV P1,A
    CLR P3.6
    MOV A,40H
    CJNE A,#03H,LLL3
    AJMP LLL4
LLL3:
    INC 40H
    LJMP LLL0
LLL4: ;送Q值29
    MOV 41H,#29
    MOV 40H,#04H
    MOV A,41H
LLL5:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LLL6
    MOV 42H,#00H
    AJMP LLL61
LLL6:
    MOV 42H,#10H
LLL61:
    MOV A,41H
    RRC A
    MOV 41H,A
    JC LLL7
    MOV 43H,#00H
    AJMP LLL71
LLL7:
    MOV 43H,#20H
LLL71:
    MOV A,40H
    ORL A,42H
    ORL A,43H
    MOV 44H,A
    MOV P1,A
    CLR P3.6
    MOV A,40H
    CJNE A,#07H,LLL8
    AJMP GAOTONGEND
LLL8:
    INC 40H
    LJMP LLL5
GAOTONGEND:
    RET
JINZHENGGT:
   JNB 14H,ZZL0
   AJMP ZZL1
ZZL0:
   LJMP JINZHENGGTEND

ZZL1:;0,125K
   MOV A,32H
   CJNE A,#1,ZZL2
   CLR P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL2:
   CJNE A,#2,ZZL3
   CLR P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL3:
   CJNE A,#3,ZZL4
   CLR P2.5
   CLR P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL4:;1,250K
   CJNE A,#4,ZZL5;
   CLR P2.5
   CLR P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL5:
   CJNE A,#5,ZZL6
   CLR P2.5
   CLR P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL6:
   CJNE A,#6,ZZL7
   CLR P2.5
   CLR P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL7:;2,500K
   CJNE A,#7,ZZL8
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL8:
   CJNE A,#8,ZZL9
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL9:
   CJNE A,#9,ZZL10
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL10:
   CJNE A,#10,ZZL11
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL11:
   CJNE A,#11,ZZL12
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL12:
   CJNE A,#12,ZZL13
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL13:
   CJNE A,#13,ZZL14
   CLR P2.5
   SETB P2.4
   CLR P2.3
   LJMP JINZHENGGTEND
ZZL14:;3,1M
   CJNE A,#14,ZZL15
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL15:
   CJNE A,#15,ZZL16
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL16:
   CJNE A,#16,ZZL17
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL17:
   CJNE A,#17,ZZL18
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL18:
   CJNE A,#18,ZZL19
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL19:
   CJNE A,#19,ZZL20
   CLR P2.5
   SETB P2.4
   SETB P2.3
   LJMP JINZHENGGTEND
ZZL20:
   CLR P2.5
   SETB P2.4
   SETB P2.3
JINZHENGGTEND:
   RET
;低通表
TABA:DB 0,25,25,8,25,15,8,3,25,20,15,11,8,6,3,1,19,16,14,12,10
;高通表
TABB:DB 0,62,18,3,18,9,3,24,18,13,9,6,3,1,24,21,18,15,13,11,9