Transmitter FM stereo kontroll 51 MCU jagħmlu BH1415F
Deskrizzjoni: 1, jikkontrollaw użu MCS51, jużaw l-iżgħar disinn sistema ta 'applikazzjoni, iċ-ċirkwit estern hija sempliċi ħafna! Disinn buttuna 16, inti tista 'tikkontrolla 80.0 ~ medda ta' frekwenzi 109.9MHz;
2,4 figuri anodu komuni LED frekwenza wiri;
Features: 1, jista 'jiġi stabbilit b'mod indipendenti mitt, għaxra, daqsxejn, il-frekwenza tal-punt deċimali;
2, il-presets Frekwenza ta 'trasmissjoni;
Istruzzjonijiet trasmettitur stereo band; 3, kontrolli mono / stereo;
-------------------------------------------------- -------------------------------------
; ***************************;
; CNC FM kontrollur;
; ***************************;
;
; 26H-29H punt deċimali display, a bit, għaxar, mitt numru tal-kodiċi BCD, data kontroll ta 'frekwenza kwittanza 24H-25H (hexadeċimali)
;
CONBITL EQU 21H; byte kontroll ta 'frekwenza 8 baxxa
CONBITH EQU 22H; byte kontroll ta 'frekwenza għolja tmien
KEYWORD EQU 23H; Meta l-ħażna valur ewlieni scanning port P1
;
;
ORG 0000H; programm indirizz bidu
LJMP START; eżekuzzjoni START trasferiment
ORG 0003H;
RETI; ma jinterrompux programm
ORG 000BH;
RETI; ma jinterrompux programm
ORG 0013H;
RETI; ma jinterrompux programm
ORG 001BH;
RETI; ma jinterrompux programm
ORG 0023H;
RETI; ma jinterrompux programm
ORG 002BH;
RETI; ma jinterrompux programm
;
; Proċedura inizjalizzazzjoni
CLEARMEN: MOV R0, # 20H; ċirkolazzjoni 20H-29H kklerjati
MOV R1, # 0AH;
CLEARLOOP: MOV @ R0, # 00H;
INC R0;
DJNZ R1, CLEARLOOP;
MOV P0, # 0FFH; erba 'portijiet stabbiliti
MOV P1, # 0FFH;
MOV P2, # 0FFH;
MOV P3, # 0FFH;
Azzjonijiet BH3.0 pprojbiti; CLR P1415
CLR P3.1;
CLR P3.2;
LCALL KEYFUN15; mod ta 'trasmissjoni stereo dar, stereo open indikatur transmitter
CLEAR1: PCON MOV, # 00H; reġistru kontroll huwa mnaddaf
MOV 29H, # 00H; jiffissa l-valur inizjali ta '88MHZ (murija bħala 088.0)
MOV 28H, # 08H;
MOV 27H, # 08H;
MOV 26H, # 00H;
LCALL DISPUPDAT; jikteb chip BH1415 (modifikata frekwenzi ta 'trażmissjoni)
Prospetti subroutine; RET
;
; Main
START: LCALL CLEARMEN; qawwa fuq inizjalizzazzjoni
MAIN: KEYWORK LCALL; tinvestiga subroutine prinċipali
DISPLAY LCALL; LED ħin display
AJMP MAIN; tittrasferixxi ċiklu MAIN
NOP; tqandil żball PC
NOP;
AJMP START; ri-initialize
;
; 4 * 4 matrix scanning ewlieni Kontroll ta 'rutina
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: DL10MS LCALL; ipproċessar debounce
MOV A, P1;
ANL A, # 0F0H;
CJNE A, # 0F0H, KEYCHE;
KEYOUT: RET; interferenza, il-prospetti subroutine
KEYCHE: MOV A, P1;
KEYWORD MOV, A;
CJLOOP: DISPLAY LCALL;
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, KEYWORD;
JZ KEYOK; 0 (ugwali) dawran KEYOK
Firxa, flimkien ma 'numru ta' tabella ta 'referenza; INC R7
CJNE R7, # 10H, CHEKEYLOOP;
RET;
;
KEYOK: MOV A, R7;
MOV B, A; B fis
RL A; xellug
ADD A, B; żżid (muftieħ biex jittrattaw JMP 3 istruzzjoni 3-byte)
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; qabża għall-funzjonalità ewlieni 15th tal-programm
RET; ritorn żball trasferiment bil-kwantità
;
;-Numru muftieħ li jikkorrispondi għall-tabella valur port P1 (waqt li tagħfas żewġ ċwievet huma operazzjoni invalidi)
KEYTAB: DB 0EEH, 0DEH, 0BEH, 7EH, 0EDH, 0DDH, 0BDH, 7DH
DB 0EBH, 0DBH, 0BBH, 7BH, 0E7H, 0D7H, 0B7H, 77H, 0FFH, 0FFH
;
; No 0 funzjonalità ewlieni tal-programm
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; Returns
;
; Il-funzjonalità ewlieni 1st tal-programm
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; Returns
;
; Il-programm funzjoni ewlenija 2nd
KEYFUN02: INC 27H; ċifri wieħed plus 1
MOV A, 27H;
CLR C;
CJNE A, # 0AH, FUN02; tiddetermina jekk inqas minn 10
FUN02: JC FUN02OUT; inqas minn 10 dawriet FUN02OUT
MOV 27H, # 00H; ikbar minn jew ugwali għal 10 jkun meħlus biex 0
FUN02OUT: LCALL DISPUPDAT; miktub chip kontroll (frekwenza trasmissjoni modifikata)
RET;
;
; Il-funzjonalità ewlieni 3rd tal-programm
KEYFUN03: INC 26H; ċifri wieħed plus 1
MOV A, 26H;
CLR C;
CJNE A, # 0AH, FUN03; sentenza ma jkunx inqas minn 10
FUN03: JC FUN03OUT; inqas minn 10 dawriet FUN03OUT
MOV 26H, # 00H; ikbar minn jew ugwali għal 10 jkun meħlus biex 0
FUN03OUT: LCALL DISPUPDAT; miktub chip kontroll (frekwenza trasmissjoni modifikata)
RET; Returns
;
; 04 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN04: MOV 29H, # 01H; Frekwenza ta 'trasmissjoni 109.0MHZ predeterminata
28H MOV, # 00H
27H MOV, # 09H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 05 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN05: MOV 29H, # 01H; Frekwenza ta 'trasmissjoni 108.0MHZ predeterminata
28H MOV, # 00H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 06 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN06: MOV 29H, # 01H; Frekwenza ta 'trasmissjoni 105.0MHZ predeterminata
28H MOV, # 00H
27H MOV, # 05H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; Il-funzjonalità ewlieni 7th tal-programm (frekwenza Preset ċwievet)
KEYFUN07: MOV 29H, # 01H; Frekwenza ta 'trasmissjoni 100.0MHZ predeterminata
28H MOV, # 00H
27H MOV, # 00H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 08 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN08: MOV 29H, # 00H; 98.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 09H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 09 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN09: MOV 29H, # 00H; 96.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 09H
27H MOV, # 06H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; Il-funzjonalità ewlieni 10th tal-programm (frekwenza Preset ċwievet)
KEYFUN10: MOV 29H, # 00H; 94.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 09H
27H MOV, # 04H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 11 programmi funzjonali ewlenin (frekwenza ċwievet issettjati minn qabel)
KEYFUN11: MOV 29H, # 00H; 92.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 09H
27H MOV, # 02H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; Il-funzjonalità ewlieni 12th tal-programm (frekwenza Preset ċwievet)
KEYFUN12: MOV 29H, # 00H; 90.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 09H
27H MOV, # 00H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; Il-funzjonalità ewlieni 13th tal-programm (frekwenza Preset ċwievet)
KEYFUN13: MOV 29H, # 00H; 88.0MHZ frekwenza trasmissjoni predeterminata
28H MOV, # 08H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; Il-funzjonalità ewlieni 14th tal-programm (frekwenza Preset ċwievet); predeterminata 87.0MHZ frekwenza trasmissjoni
KEYFUN14: 29H MOV, # 00H
28H MOV, # 08H
27H MOV, # 07H
26H MOV, # 08H
LCALL DISPUPDAT; chip kontroll miktub (frekwenza trasmissjoni modifikata)
RET
;
; 15 programmi funzjonali ewlenin (stereo / mono ewlieni setting)
KEYFUN15: CPL 03H;
JNB 03H, MONO;
CLR P3.3;
LCALL PUTBIT;
RET; Returns
MON SETB P3.3;
LCALL PUTBIT;
RET; Returns
;
; Il-BCD li hexadecimal, u ħamsa kontroll kodiċi sinteżi opcode, ikteb ċippa kontroll
DISPUPDAT: LCALL BCDB;
LCALL CONCOMMAND;
LCALL PUTBIT; kliem kontroll jibagħtu lill BH1415
RET; Returns
;
; Il-BCD li programm hexadecimal
BCDB: CONBITL MOV, # 00H; kontroll kelma li 0
CONBITH MOV, # 00H; kontroll kelma li 0
CONBITL MOV, 26H; postijiet deċimali jikkontrollaw kelma fil-8 baxxa
Ċifri wieħed mill-operazzjonijiet 27; MOV A, 10H
MOV B, # 10;
LCALL MULLOOP; subroutine multiplikazzjoni intunazzjoni
28 għaxar figuri operazzjoni multiplikazzjoni; MOV A, 100H
MOV B, # 100;
LCALL MULLOOP; subroutine multiplikazzjoni intunazzjoni
MOV A, 29H;
JNZ ADD3E8; mijiet ċifra hija ADD3E8 dawran (plus operazzjonijiet 1000)
RET; mijiet ċifra hija ħruġ 0
ADD3E8: CLR C; bandiera binarja ċara
Baxx 0-bit aġent li jżid; MOV A, # 8E8H
ADD A, CONBITL; jakkumulaw
CONBITL MOV, A; back CONBITL
MOV A, # 03H; għolja tmien Addition
ADDC A, CONBITH;
CONBITH MOV, A; back CONBITH
RET; Returns
;
; Multiplikazzjoni u l-proċess akkumulazzjoni (sa erba 'informazzjoni display kodiċi BCD f'numru binarju)
MULLOOP: MUL AB; multiplikazzjoni
Bandiera carry ċara; CLR C
ADD A, CONBITL; plot mal CONBITL żżid 8 baxxa
CONBITL MOV, A; back CONBITL
MOV A, CONBITH;
ADDC A, B; integrat fil-għoli 8-bit akkumulatur bil CONBITH
CONBITH MOV, A; back CONBITH
RET; Returns
;
; Data Kontroll tal-frekwenza u ħamsa sinteżi kodiċi kontroll kontroll kelma BH1415
CONCOMMAND: ANL CONBITH, # 07H;
MOV A, 20H;
ORL A, CONBITH;
MOV CONBITH, A;
RET; Returns
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Programm Display;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Komuni anodu display LED, P0 taqsima output port ta 'kodiċi, P2 output port kelma scanning
DISPLAY: MOV R1, # 26H; juri l-ewwel indirizz
MOV R5, # 0FEH; Ħalli kelma scanning
PLAY: MOV A, R5; f'A
MOV P2, A; P2 output port
MOV A, @ R1; jġibu data wiri
MOV DPTR, # TAB; tieħu l-ewwel tabella tal-kodiċi segment indirizz
MOVC A, @ A + DPTR; Segment investigazzjoni
MOV P0, A; mill output P0
MOV A, R5; taqra l-kelma skanjata
JB ACC.1, PLAY1; minn għaxart (LED), l-punt deċimali mhix murija
CLR P0.7; għaxar, punt deċimali display kienet
PLAY1: LCALL DL1MS; mixgħula millisekonda
INC R1; tipponta lejn il-data display jmiss
JNB ACC.3, ENDOUT; kienet l-LED raba ', il-ħruġ
RL A, minflok, ħalla
MOV R5, A; back R5
SETB P0.7; Off informazzjoni
PLAY AJMP; ċiklu PLAY trasferiment
ENDOUT: MOV P2, # 0FFH; Show truf off output display
MOV P0, # 0FFH;
RET; Returns
;
; 0-9 tat-Taqsima stopwatch Shenyang
TAB: DB 0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H, 0FFH, 0FFH
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ibgħat kontroll subroutine byte;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
PUTBIT: MOV A, CONBITL; t'isfel kelma kontroll 8-bit f'A
SETB P3.2; BH1415 Enable (write)
LCALL PUT; tibgħat tmien
Għolja tmien kelma kontroll fis A; MOV A, CONBITH
LCALL PUT; tibgħat tmien
CLR P3.2; BH1415 jiktbu b'diżabilità
CLR P3.0; reset
CLR P3.1; reset
RET; Returns
;
; Subroutine jittrasmettu Byte
PUT: MOV R3, # 8; tibgħat tmien kontroll
CLR C; Qing C
PUT1: RRC A; Wettaq dritt (li jibda Baxx)
MOV P3.0, Ċ; baxxa għall-port P3.0
NOP; jittardja 4 mikrosekondi
NOP;
NOP;
NOP;
SETB P3.1; data lukkett (rising edge data lukkett)
NOP; jittardja 4 mikrosekondi
NOP;
NOP;
NOP;
CLR P3.1;
DJNZ R3, PUT1; bits 8 mhumiex lesti turn PUT1 rikorrenza tiegħu
8 aħħar lest; RET
;
; 513 dewmien mikrosekonda subroutine
DL513: MOV R3, # 0FFH
DL513LOOP: DJNZ R3, DL513LOOP
RET
;
; 1 dewmien millisekonda subroutine (dwal LED użat)
DL1MS: MOV R4, # 02H
DL1MSLOOP: LCALL DL513
DJNZ R4, DL1MSLOOP
RET
;
; 10 dewmien ms subroutine (eliminazzjoni jitter minn)
DL10MS: MOV R6, # 0AH
DL10MSLOOP: LCALL DL1MS
DJNZ R6, DL10MSLOOP
RET
;
;
END
prodotti oħra tagħna:
