51 mikrokontroleur kontwòl stereo FM transmetè fè BH1415F
Deskripsyon: 1, pou kontwole, lè l sèvi avèk MCS51, lè l sèvi avèk pi piti desen an sistèm aplikasyon an, kous la ekstèn se trè senp! 16 konsepsyon bouton, ou ka kontwole 80.0 ~ ranje frekans 109.9MHz;
2,4 chif anodik komen ki ap dirije frekans ekspozisyon;
Features: 1, yo ka mete poukont yon santèn, dis, yon ti jan, frekans nan pwen an desimal;
2, transmèt preregle yo frekans;
3, kontwole Mono / Stéréo; stereo bann enstriksyon transmetè;
-------------------------------------------------- -------------------------------------
; ***************************;
; CNC FM kontwolè;
; ***************************;
;
; 26H-29H montre kote desimal, yon ti jan, dis, yon santèn nimewo kòd bk, done 24H-25H kontwòl frekans egzeyat (ekzadesimal)
;
CONBITL ek 21H; kontwòl frekans multiple ki ba 8
CONBITH ek 22H; frekans multiple kontwòl wo uit
Mo kle ek 23H; Lè estoke valè kle pò P1 optik
;
;
ORG 0000H, pwogram adrès kòmanse
LJMP START; transfere START ekzekisyon
ORG 0003H;
RETI; pa entèwonp pwogram
ORG 000BH;
RETI; pa entèwonp pwogram
ORG 0013H;
RETI; pa entèwonp pwogram
ORG 001BH;
RETI; pa entèwonp pwogram
ORG 0023H;
RETI; pa entèwonp pwogram
ORG 002BH;
RETI; pa entèwonp pwogram
;
; Inisyalizasyon pwosedi
CLEARMEN: MOV R0, # 20H; 20H-29H sikilasyon otorize
MOV R1, # 0AH;
CLEARLOOP: MOV @ R0, # 00H;
INC R0;
DJNZ R1, CLEARLOOP;
MOV P0, # 0FFH; kat pò mete
MOV P1, # 0FFH;
MOV P2, # 0FFH;
MOV P3, # 0FFH;
Aksyon BH3.0 entèdi; klr P1415
Klr P3.1;
Klr P3.2;
LCALL KEYFUN15; mòd transmisyon stereo lakay ou, louvri stereo transmetè endikatè
CLEAR1: MOV PCON, # 00H; se kontwòl enskri otorize
MOV 29H, # 00H; mete valè inisyal la nan 88MHZ (yo montre kòm 088.0)
MOV 28H, # 08H;
MOV 27H, # 08H;
MOV 26H, # 00H;
LCALL DISPUPDAT; ekri BH1415 chip (modifye frekans transmisyon)
Retounen woutin; RET
;
; Main
Kòmanse: LCALL CLEARMEN; pouvwa sou inisyalizasyon
MAIN: LCALL KEYWORK; mennen ankèt sou kle woutin
LCALL DISPLAY; ki ap dirije tan ekspozisyon
AJMP MAIN; transfere MAIN sik
Nop; manyen erè PC
Nop;
AJMP START; re-inisyalize
;
; 4 * 4 matris kle optik woutin chèk
KEYWORK: MOV P1, # 0FFH;
Klr P1.0;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.0;
Klr P1.1;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.1;
Klr P1.2;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.2;
Klr P1.3;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.3;
RET;
KEYCON: DL10MS LCALL; pwosesis debounce
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCHE;
KEYOUT: RET; entèferans, retounen yo woutin
KEYCHE: MOV A, P1;
MOV mo kle, A;
CJLOOP: LCALL DISPLAY;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, CJLOOP;
MOV R7, # 00H;
MOV DPTR, # KEYTAB;
CHEKEYLOOP: MOV A, R7;
MOVC A, @ A + DPTR;
XRL A, mo kle;
Je KEYOK; 0 (egal) vire KEYOK
INC R7; ranje, plis yon kantite tablo gade-up
CJNE R7, # 10H, CHEKEYLOOP;
RET;
;
KEYOK: MOV A, R7;
MOV B, A; B nan
RL A; kite
ADD A, B; ajoute (kle fè fas ak jan 3 pa enstriksyon 3-multiple)
MOV DPTR, # KEYFUNTAB;
Jan @ A + DPTR;
KEYFUNTAB: LJMP KEYFUN00;
LJMP KEYFUN01;
LJMP KEYFUN02;
LJMP KEYFUN03
LJMP KEYFUN04
LJMP KEYFUN05
LJMP KEYFUN06
LJMP KEYFUN07
LJMP KEYFUN08
LJMP KEYFUN09
LJMP KEYFUN10
LJMP KEYFUN11
LJMP KEYFUN12
LJMP KEYFUN13
LJMP KEYFUN14
LJMP KEYFUN15; Ale nan 15th kle fonksyonalite an nan pwogram nan
RET; retounen erè transfere esansyèl
;
; Nimewo kle a ki koresponn a P1 valè pò tab la (pandan y ap peze de kle yo se valab operasyon)
KEYTAB: DB 0EEH, 0DEH, 0BEH, 7EH, 0EDH, 0DDH, 0BDH, 7DH
DB 0EBH, 0DBH, 0BBH, 7BH, 0E7H, 0D7H, 0B7H, 77H, 0FFH, 0FFH
;
; No 0 kle fonksyonalite nan pwogram nan
KEYFUN00: INC 29H;
MOV A, 29H;
Klr C;
CJNE A, # 02H, FUN00;
FUN00: JC FUN00OUT;
MOV 29H, # 00H;
FUN00OUT: MOV A, 29H;
XRL A, # 01H;
JNZ F00OUT1;
MOV 28H, # 00H;
AJMP F00OUT;
F00OUT1: MOV 28H, # 08H;
F00OUT: LCALL DISPUPDAT;
RET; valè
;
; 1st kle fonksyonalite a nan pwogram nan
KEYFUN01: INC 28H;
MOV A, 28H;
Klr C;
CJNE A, # 0AH, FUN01;
FUN01: JC FUN01OUT;
MOV 28H, # 00H;
FUN01OUT: MOV A, 29H;
XRL A, # 01H;
JNZ F01OUT;
MOV 28H, # 00H;
AJMP F001OUT;
F01OUT: MOV A, 28H;
XRL A, # 08H;
Je F001OUT;
MOV A, 28H;
XRL A, # 09H;
Je F001OUT;
MOV 28H, # 08H;
F001OUT: LCALL DISPUPDAT;
RET; valè
;
; 2nd Pwogram nan fonksyon kle
KEYFUN02: INC 27H; chif sèl plis 1
MOV A, 27H;
Klr C;
CJNE A, # 0AH, FUN02; detèmine si mwens pase 10
FUN02: JC FUN02OUT; mwens pase 10 vire FUN02OUT
MOV 27H, # 00H; pi gran pase oswa egal a 10 se otorize 0
FUN02OUT: LCALL DISPUPDAT; ekri kontwòl chip (modifye frekans transmisyon)
RET;
;
; 3rd kle fonksyonalite a nan pwogram nan
KEYFUN03: INC 26H; chif sèl plis 1
MOV A, 26H;
Klr C;
CJNE A, # 0AH, FUN03; se pa pi piti pase 10 jijman
FUN03: JC FUN03OUT; mwens pase 10 vire FUN03OUT
MOV 26H, # 00H; pi gran pase oswa egal a 10 se otorize 0
FUN03OUT: LCALL DISPUPDAT; ekri kontwòl chip (modifye frekans transmisyon)
RET; valè
;
; 04 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN04: MOV 29H, # 01H; prereglaj frekans 109.0MHZ transmèt
MOV 28H, # 00H
MOV 27H, # 09H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 05 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN05: MOV 29H, # 01H; prereglaj frekans 108.0MHZ transmèt
MOV 28H, # 00H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 06 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN06: MOV 29H, # 01H; prereglaj frekans 105.0MHZ transmèt
MOV 28H, # 00H
MOV 27H, # 05H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 7th kle fonksyonalite a nan pwogram nan (frekans prereglaj kle)
KEYFUN07: MOV 29H, # 01H; prereglaj frekans 100.0MHZ transmèt
MOV 28H, # 00H
MOV 27H, # 00H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 08 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN08: MOV 29H, # 00H; 98.0MHZ prereglaj frekans transmisyon
MOV 28H, # 09H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 09 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN09: MOV 29H, # 00H; 96.0MHZ prereglaj frekans transmisyon
MOV 28H, # 09H
MOV 27H, # 06H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 10th kle fonksyonalite a nan pwogram nan (frekans prereglaj kle)
KEYFUN10: MOV 29H, # 00H; 94.0MHZ prereglaj frekans transmisyon
MOV 28H, # 09H
MOV 27H, # 04H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 11 pwogram kle fonksyonèl (frekans prereglaj kle)
KEYFUN11: MOV 29H, # 00H; 92.0MHZ prereglaj frekans transmisyon
MOV 28H, # 09H
MOV 27H, # 02H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 12th kle fonksyonalite a nan pwogram nan (frekans prereglaj kle)
KEYFUN12: MOV 29H, # 00H; 90.0MHZ prereglaj frekans transmisyon
MOV 28H, # 09H
MOV 27H, # 00H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 13th kle fonksyonalite a nan pwogram nan (frekans prereglaj kle)
KEYFUN13: MOV 29H, # 00H; 88.0MHZ prereglaj frekans transmisyon
MOV 28H, # 08H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 14th kle fonksyonalite a nan pwogram nan (frekans prereglaj kle); prereglaj transmisyon 87.0MHZ frekans
KEYFUN14: MOV 29H, # 00H
MOV 28H, # 08H
MOV 27H, # 07H
MOV 26H, # 08H
LCALL DISPUPDAT; kontwòl ekri chip (modifye frekans transmisyon)
RET
;
; 15 pwogram kle fonksyonèl (stereo / Mono anviwònman kle)
KEYFUN15: kaporal 03H;
JNB 03H, MONO;
Klr P3.3;
LCALL PUTBIT;
RET; valè
MON SETB P3.3;
LCALL PUTBIT;
RET; valè
;
; Bk a ekzadesimal, ak senk kontwòl Kòd opkod sentèz, ekri kontwòl chip
DISPUPDAT: LCALL BCDB;
LCALL CONCOMMAND;
LCALL PUTBIT; voye mo kontwòl BH1415
RET; valè
;
; Bk a nan pwogram ekzadesimal
BCDB: MOV CONBITL, # 00H; mo kontwòl 0
MOV CONBITH, # 00H; mo kontwòl 0
MOV CONBITL, 26H; kote desimal kontwole pawòl nan 8 a ki ba
MOV A, 27H; chif sèl pa operasyon 10
MOV B, # 10;
LCALL MULLOOP; woutin melodi miltiplikasyon
MOV A, 28H; 100 dis-chif operasyon miltiplikasyon
MOV B, # 100;
LCALL MULLOOP; woutin melodi miltiplikasyon
MOV A, 29H;
JNZ ADD3E8; dè santèn chif la se yon ADD3E8 vire (plis operasyon 1000)
RET; dè santèn chif se 0 sòti
ADD3E8: klr C; klè drapo binè
MOV A, # 0E8H; ba sèpan 8-ti jan
ADD A, CONBITL; akimile
MOV CONBITL, A; tounen CONBITL
MOV A, # 03H; segondè uit Adisyon
ADDC A, CONBITH;
MOV CONBITH, A; tounen CONBITH
RET; valè
;
; Miltiplikasyon ak pwosesis akimilasyon (a kat desimal ekspozisyon Kòd bk nan yon nimewo binè)
MULLOOP: MUL AB; miltiplikasyon
Klè drapo pote; klr C
ADD A, CONBITL; trase graf avèk CONBITL ajoute ba 8
MOV CONBITL, A; tounen CONBITL
MOV A, CONBITH;
ADDC A, B; entegre nan segondè aku nan 8-ti jan ak CONBITH
MOV CONBITH, A; tounen CONBITH
RET; valè
;
; Kontwòl Frekans done ak senk sentèz Kòd kontwòl mo kontwòl BH1415
CONCOMMAND: ANL CONBITH, # 07H;
MOV A, 20H;
ORL A, CONBITH;
MOV CONBITH, A;
RET; valè
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Montre pwogram;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Komen anodik ki ap dirije montre, P0 seksyon pwodiksyon pò nan kòd, P2 pwodiksyon pò pawòl optik
Ekspozisyon: MOV R1, # 26H; montre adrès la premye
MOV R5, # 0FEH; Kenbe pawòl optik
JWÈT: MOV A, R5; nan yon
MOV P2, A; P2 pwodiksyon pò
MOV A, @ R1; chache done ekspozisyon
MOV DPTR, # TAB; pran premye adrès segman tab la Kòd
MOVC A, @ A + DPTR; ankèt Segman
MOV P0, A; soti nan P0 pwodiksyon
MOV A, R5; li mo a analize
JB ACC.1, PLAY1; pase dis (ki ap dirije), pwen an desimal pa parèt
Klr P0.7; te dis, pwen desimal ekspozisyon
PLAY1: LCALL DL1MS; limen yon milisgond
INC R1; montre done yo montre pwochen
JNB ACC.3, ENDOUT; te katriyèm ki ap dirije, sòti nan
RL A; olye de sa, kite yon
MOV R5, A; tounen R5
SETB P0.7; desimal Off
AJMP JWÈT; transfere sik JWÈT
ENDOUT: MOV P2, # 0FFH; Montre fini nan pwodiksyon ekspozisyon
MOV P0, # 0FFH;
RET; valè
;
; 0-9 nan Shenyang Seksyon kronomètr
TAB: DB 0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H, 0FFH, 0FFH
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Voye kontwòl multiple woutin;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
PUTBIT: MOV A, CONBITL; pi ba mo kontwòl 8-ti jan nan yon
SETB P3.2; BH1415 Pèmèt (ekri)
LCALL METE; voye uit
MOV A, CONBITH; segondè mo kontwòl uit nan yon
LCALL METE; voye uit
Klr P3.2; BH1415 ekri andikape
Klr P3.0; Reyajiste
Klr P3.1; Reyajiste
RET; valè
;
; Okte emetè woutin
METE: MOV R3, # 8; voye wit kontwòl
Klr C; kin C
PUT1: RRC A; Pote dwa (kòmanse ba)
MOV P3.0, C; ba pò a P3.0
Nop; reta 4 mikro
Nop;
Nop;
Nop;
SETB P3.1; done Obtenir (k ap monte kwen done Obtenir)
Nop; reta 4 mikro
Nop;
Nop;
Nop;
Klr P3.1;
DJNZ R3, PUT1; 8 Bits yo pa fini l 'vire PUT1 repetition
8 fini fen; RET
;
; 513 mikrosgond reta woutin
DL513: MOV R3, # 0FFH
DL513LOOP: DJNZ R3, DL513LOOP
RET
;
; 1 milisgond reta woutin (ki ap dirije limyè itilize)
DL1MS: MOV R4, # 02H
DL1MSLOOP: LCALL DL513
DJNZ R4, DL1MSLOOP
RET
;
; 10 ms reta woutin (eliminasyon jig pa)
DL10MS: MOV R6, # 0AH
DL10MSLOOP: LCALL DL1MS
DJNZ R6, DL10MSLOOP
RET
;
;
FEN
lòt pwodwi nou an:
