51 MCU stjórna hljómtæki FM sendandi gerir BH1415F
Description: 1, stjórnað neyslu MCS51, með minnstu forrit kerfi hönnun, ytri hringrás er mjög einfalt! 16 hnappinn hönnun, þú getur stjórnað 80.0 ~ 109.9MHz tíðnisviðsins
2,4 stafa sameiginlegt rafskautaverksmiðju LED sýna tíðni;
Features: 1, er hægt að stilla sjálfstætt hundrað, tíu, svolítið, tíðni kommu;
2, tíðni Sendispólurnar forstilla;
3, mónó / hljómtæki eftirlit; band hljómtæki sendandi leiðbeiningar;
-------------------------------------------------- -------------------------------------
; ***************************;
, CNC FM stjórnandi;
; ***************************;
;
, 26H-29H aukastaf sýna, svolítið, tíu, hundrað BCD kenninúmer, 24H-25H útskrift tíðni stjórna gögn (sextánskur)
;
CONBITL Equ 21H; tíðni stjórna bæti lágu 8
CONBITH Equ 22H; tíðni stjórna bæti hár átta
LEITARORÐ Equ 23H; Þegar geyma lykill gildi P1 höfn skönnun
;
;
ORG 0000H; program byrja netfang
LJMP START, flytja START framkvæmd
ORG 0003H;
RETI; ekki trufla forritið
ORG 000BH;
RETI; ekki trufla forritið
ORG 0013H;
RETI; ekki trufla forritið
ORG 001BH;
RETI; ekki trufla forritið
ORG 0023H;
RETI; ekki trufla forritið
ORG 002BH;
RETI; ekki trufla forritið
;
; Frumstilling málsmeðferð
CLEARMEN: MOV R0, # 20H; 20H-29H hringrás hreinsaðar
MOV R1, # 0AH;
CLEARLOOP: MOV @ R0, # 00H;
INC R0;
DJNZ R1, CLEARLOOP;
MOV P0, # 0FFH, en fjórar hafnir sett
MOV P1, # 0FFH;
MOV P2, # 0FFH;
MOV P3, # 0FFH;
CLR P3.0; BH1415 bönnuð aðgerðir
CLR P3.1;
CLR P3.2;
LCALL KEYFUN15, heimili hljómtæki sending háttur, opið hljómtæki sendandi vísir
CLEAR1: MOV PCON, # 00H; stjórna skrá er bjartur
MOV 29H, # 00H; setja Stofnverð 88MHZ (sýnt sem 088.0)
MOV 28H, # 08H;
MOV 27H, # 08H;
MOV 26H, # 00H;
LCALL DISPUPDAT; skrifar BH1415 flís (breytt tíðni sending)
RET; subroutine skilar
;
, Main
START: LCALL CLEARMEN; vald á frumstilling
MAIN: LCALL KEYWORK; rannsaka lykill subroutine
LCALL DISPLAY, LED sýna sinn
AJMP MAIN, flytja MAIN hringrás
NOP, PC villa meðhöndlun
NOP;
AJMP START, aftur frumstilla
;
, 4 * 4 fylki lykill skönnun venja stöðva
KEYWORK: MOV P1, # 0FFH;
CLR P1.0;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.0;
CLR P1.1;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.1;
CLR P1.2;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.2;
CLR P1.3;
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.3;
RET;
KEYCON: LCALL DL10MS; debounce vinnslu
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCHE;
KEYOUT: ret; truflunum, subroutine skilar
KEYCHE: MOV A, P1;
MOV LEITARORÐ, 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, LEITARORÐ;
JZ KEYOK; 0 (jöfn) snúa KEYOK
INC R7, svið, auk fjölda líta upp töflu
CJNE R7, # 10H, CHEKEYLOOP;
RET;
;
KEYOK: MOV A, R7;
MOV B, A, B inn
RL A; vinstri
ADD A, B, bæta (lykill til að takast á við JMP 3 með 3-bæti námsárangur)
MOV DPTR, # KEYFUNTAB;
JMP @ 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; hoppa til 15th lykill virkni áætlunarinnar
RET, magnflutning villa aftur
;
, Lykillinn númer samsvarar P1 Gáttin borð (með því að ýta tveir lyklar eru ógild aðgerð)
KEYTAB: DB 0EEH, 0DEH, 0BEH, 7EH, 0EDH, 0DDH, 0BDH, 7DH
DB 0EBH, 0DBH, 0BBH, 7BH, 0E7H, 0D7H, 0B7H, 77H, 0FFH, 0FFH
;
, Nei 0 lykill virkni áætlunarinnar
KEYFUN00: INC 29H;
MOV A, 29H;
CLR 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; Gefur
;
, The 1st lykill virkni áætlunarinnar
KEYFUN01: INC 28H;
MOV A, 28H;
CLR 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;
JZ F001OUT;
MOV A, 28H;
XRL A, # 09H;
JZ F001OUT;
MOV 28H, # 08H;
F001OUT: LCALL DISPUPDAT;
Ret; Gefur
;
, The 2nd lykill virka program
KEYFUN02: INC 27H; einn tölustafur auk 1
MOV A, 27H;
CLR C;
CJNE A, # 0AH, FUN02; ákveða hvort minna en 10
FUN02: JC FUN02OUT; minna en 10 snýr FUN02OUT
MOV 27H, # 00H; stærra en eða jafnt og 10 er hreinsuð í 0
FUN02OUT: LCALL DISPUPDAT; skrifa stjórna flís (breytt sending tíðni)
RET;
;
, The 3rd lykill virkni áætlunarinnar
KEYFUN03: INC 26H; einn tölustafur auk 1
MOV A, 26H;
CLR C;
CJNE A, # 0AH, FUN03, dómur er ekki minna en 10
FUN03: JC FUN03OUT; minna en 10 snýr FUN03OUT
MOV 26H, # 00H; stærra en eða jafnt og 10 er hreinsuð í 0
FUN03OUT: LCALL DISPUPDAT; skrifa stjórna flís (breytt sending tíðni)
Ret; Gefur
;
, 04 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN04: MOV 29H, # 01H; Forstillta 109.0MHZ senditíðni
MOV 28H, # 00H
MOV 27H, # 09H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 05 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN05: MOV 29H, # 01H; Forstillta 108.0MHZ senditíðni
MOV 28H, # 00H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 06 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN06: MOV 29H, # 01H; Forstillta 105.0MHZ senditíðni
MOV 28H, # 00H
MOV 27H, # 05H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, The 7th lykill virkni af the program (tíðni Forstillta takka)
KEYFUN07: MOV 29H, # 01H; Forstillta 100.0MHZ senditíðni
MOV 28H, # 00H
MOV 27H, # 00H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 08 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN08: MOV 29H, # 00H; Forstillta sending tíðni 98.0MHZ
MOV 28H, # 09H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 09 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN09: MOV 29H, # 00H; Forstillta sending tíðni 96.0MHZ
MOV 28H, # 09H
MOV 27H, # 06H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, The 10th lykill virkni af the program (tíðni Forstillta takka)
KEYFUN10: MOV 29H, # 00H; Forstillta sending tíðni 94.0MHZ
MOV 28H, # 09H
MOV 27H, # 04H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 11 helstu hagnýtur forrit (tíðni Forstillta tökkum)
KEYFUN11: MOV 29H, # 00H; Forstillta sending tíðni 92.0MHZ
MOV 28H, # 09H
MOV 27H, # 02H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, The 12th lykill virkni af the program (tíðni Forstillta takka)
KEYFUN12: MOV 29H, # 00H; Forstillta sending tíðni 90.0MHZ
MOV 28H, # 09H
MOV 27H, # 00H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, The 13th lykill virkni af the program (tíðni Forstillta takka)
KEYFUN13: MOV 29H, # 00H; Forstillta sending tíðni 88.0MHZ
MOV 28H, # 08H
MOV 27H, # 08H
MOV 26H, # 00H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, The 14th lykill virkni af the program (tíðni Forstillta tökkum), Forstillta sending tíðni 87.0MHZ
KEYFUN14: MOV 29H, # 00H
MOV 28H, # 08H
MOV 27H, # 07H
MOV 26H, # 08H
LCALL DISPUPDAT, ritlist stjórna flís (breytt sending tíðni)
RET
;
, 15 helstu hagnýtur forrit (hljómtæki / mónó stilling lykill)
KEYFUN15: CPL 03H;
JNB 03H, MONO;
CLR P3.3;
LCALL PUTBIT;
Ret; Gefur
MÁN SETB P3.3;
LCALL PUTBIT;
Ret; Gefur
;
, The BCD að sextánskur, og fimm stjórna númer myndun opcode, skrifa stjórna flís
DISPUPDAT: LCALL BCDB;
LCALL CONCOMMAND;
LCALL PUTBIT; senda stjórn orð til BH1415
Ret; Gefur
;
, The BCD til sextánskur program
BCDB: MOV CONBITL, # 00H; Control orð til 0
MOV CONBITH, # 00H; Control orð til 0
MOV CONBITL, 26H; aukastafi stjórna orð í litlum 8
MOV A, 27H; einn tölustafur eftir 10 rekstri
MOV B, # 10;
LCALL MULLOOP; lag margföldun subroutine
MOV A, 28H; 100 tíu stafa margföldun aðgerð
MOV B, # 100;
LCALL MULLOOP; lag margföldun subroutine
MOV A, 29H;
JNZ ADD3E8; hundruð stafa er snúa ADD3E8 (plús 1000 aðgerðir)
Ret; hundruð stafa er 0 hætta
ADD3E8: CLR C; skýr tvöfaldur merkja
MOV A, # 0E8H; lágu 8-bita naðra
Bæta við, CONBITL; safnast
MOV CONBITL, A; baka CONBITL
MOV A, # 03H, hár átta Viðbót
ADDC A, CONBITH;
MOV CONBITH, A; baka CONBITH
Ret; Gefur
;
, Margföldun og uppsöfnun ferli (til fjórum aukastaf sýna BCD kóða inn tvöfaldur númer)
MULLOOP: MUL AB; margföldun
Ljóst bera fána; CLR C
Bæta við, CONBITL; samsæri með CONBITL bæta lágt 8
MOV CONBITL, A; baka CONBITL
MOV A, CONBITH;
ADDC A, B, felldar inn í hár 8-bita rafgeymisins með CONBITH
MOV CONBITH, A; baka CONBITH
Ret; Gefur
;
, Tíðni eftirlits gögn og fimm númer myndun stjórna BH1415 stjórna orð
CONCOMMAND: ANL CONBITH, # 07H;
MOV A, 20H;
ORL A, CONBITH;
MOV CONBITH, A;
Ret; Gefur
;
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;
,, Display program;;
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;
, Algengar rafskautaverksmiðju LED skjá, P0 höfn framleiðsla hluta af kóða, P2 höfn framleiðsla Skönnun orð
DISPLAY: MOV R1, # 26H; birtir fyrstu tölu
MOV R5, # 0FEH; Let skönnun orð
PLAY: MOV A, R5; í A
MOV P2, A; P2 höfn framleiðsla
MOV A, @ R1; ná birta gögn
MOV DPTR, # TAB, taka fyrstu tölu starfsþátta töflu númer
MOVC A, @ A + DPTR; rannsókn Segment
MOV P0, A, frá P0 framleiðsla
MOV A, R5; les skönnuðu orð
JB ACC.1, PLAY1, en tíu (LED), kommu sést ekki
CLR P0.7, var tíu ára, sýna kommu
PLAY1: LCALL DL1MS; kveikt í millisekúndu
INC R1; benda á næsta sýna gögn
JNB ACC.3, ENDOUT, var fjórða LED, brottför
RL A heldur skilið eftir
MOV R5, A; baka R5
SETB P0.7; Off aukastaf
AJMP PLAY, flytja PLAY hringrás
ENDOUT: MOV P2, # 0FFH; Sýna endar burt sýna framleiðsla
MOV P0, # 0FFH;
Ret; Gefur
;
, 0-9 Shenyang kafla skeiðklukku
TAB: DB 0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H, 0FFH, 0FFH
;
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;
,, Senda stjórn bæti subroutine;;
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;
;
PUTBIT: MOV A, CONBITL; lægra 8-bita stjórn orð í A
SETB P3.2; BH1415 Virkja (skrifa)
LCALL PUT, senda átta
MOV A, CONBITH, hár átta stjórna orð í A
LCALL PUT, senda átta
CLR P3.2; BH1415 skrifa fatlaður
CLR P3.0; endurstilla
CLR P3.1; endurstilla
Ret; Gefur
;
, Byte flutningshraða subroutine
Setja: MOV R3, # 8, senda átta stjórn
CLR C; Qing C
PUT1: RRC A; Bera rétt (byrjar lágt)
MOV P3.0, C; lágt til P3.0 höfn
NOP, tefja 4 míkrósekúndur
NOP;
NOP;
NOP;
SETB P3.1; latch gögn (hækkandi brún latch gögn)
NOP, tefja 4 míkrósekúndur
NOP;
NOP;
NOP;
CLR P3.1;
DJNZ R3, PUT1; 8 bits eru ekki hættir hans neita PUT1 endurkomu
8 lokið endir; RET
;
, 513 microsecond töf subroutine
DL513: MOV R3, # 0FFH
DL513LOOP: DJNZ R3, DL513LOOP
RET
;
, 1 millísekúnda töf subroutine (LED ljós notuð)
DL1MS: MOV R4, # 02H
DL1MSLOOP: LCALL DL513
DJNZ R4, DL1MSLOOP
RET
;
, 10 MS töf subroutine (Flökt brotthvarf fyrir tilstilli)
DL10MS: MOV R6, # 0AH
DL10MSLOOP: LCALL DL1MS
DJNZ R6, DL10MSLOOP
RET
;
;
END
önnur varan okkar:
