51 MCU rialú steirió tarchuradóra FM dhéanamh BH1415F
Cur síos: 1, rialú ag baint úsáide MCS51, ag baint úsáide as an dearadh córas iarratais lú, is é an ciorcad seachtrach an-simplí! Dearadh cnaipe 16, is féidir leat a rialú 80.0 ~ raon minicíocht 109.9MHz;
2,4 dhigit anóid coitianta stiúir minicíocht taispeáint;
Gnéithe: 1 féidir, a shocrú go neamhspleách céad, deich, le beagán, minicíocht an pointe deachúil ar;
2, na réamhshocruithe minicíocht tarchuir;
3, rialuithe Mona / steirió; treoracha tarchuradóra steirió banna;
-------------------------------------------------- -------------------------------------
; ***************************;
= CNC FM rialtóir;
; ***************************;
;
= 26H-29H ionad deachúlach taispeáint, le beagán, deich, céad líon cód BCD, sonraí 24H-25H rialú minicíocht urscaoileadh (heicsidheachúlach)
;
CONBITL EQU 21H; beart rialaithe minicíocht 8 íseal
CONBITH EQU 22H; minicíocht beart rialaithe ard ocht
Eochairfhocal EQU 23H; Nuair luach eochair scanadh calafort P1 stóráil
;
;
Org 0000H; clár seoladh tosaigh
LJMP START; aistriú a fhorghníomhú TÚS
Org 0003H;
Reti; nach clár Idirbhriseadh
Org 000BH;
Reti; nach clár Idirbhriseadh
Org 0013H;
Reti; nach clár Idirbhriseadh
Org 001BH;
Reti; nach clár Idirbhriseadh
Org 0023H;
Reti; nach clár Idirbhriseadh
Org 002BH;
Reti; nach clár Idirbhriseadh
;
; Initialization imeachta
CLEARMEN: MOV R0, # 20H = 20H-29H scaipeadh imréitithe
MOV R1, # 0AH;
CLEARLOOP: MOV @ R0, # 00H;
INC R0;
DJNZ R1, CLEARLOOP;
MOV P0, # 0FFH; ceithre chalafort atá leagtha
MOV P1, # 0FFH;
MOV P2, # 0FFH;
MOV P3, # 0FFH;
Gníomhartha toirmiscthe BH3.0; CLR P1415
CLR P3.1;
CLR P3.2;
LCALL KEYFUN15; modh tarchuir steirió bhaile, táscaire tarchuradóra steirió oscailte
CLEAR1: PCON MOV, # 00H = Tá clár rialaithe glanta
MOV 29H, # 00H; a leagtar ar an luach tosaigh na 88MHZ (léirithe mar 088.0)
MOV 28H, # 08H;
MOV 27H, # 08H;
MOV 26H, # 00H;
LCALL DISPUPDAT; scríobhann BH1415 sliseanna (modhnaithe minicíochtaí tarchuir)
Tuairisceáin subroutine; RET
;
; Príomh
TÚS: LCALL CLEARMEN; cumhacht ar initialization
PRÍOMH: LCALL KEYWORK; imscrúdú eochair subroutine
Taispeáin LCALL = am taispeáint faoi stiúir
AJMP MAIN; aistriú timthriall MAIN
NOP = earráid ríomhaire a láimhseáil
NOP;
AJMP TOSAITHE; ath-thúsú
;
= 4 4 * eochair maitrís scanadh seiceáil rialta
KEYWORK: MOV P1, # 0FFH;
CLR P1.0;
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.0;
CLR P1.1;
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.1;
CLR P1.2;
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.2;
CLR P1.3;
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, KEYCON;
SETB P1.3;
RET;
KEYCON: DL10MS LCALL; próiseáil debounce
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, KEYCHE;
KEYOUT: RET; cur isteach, na tuairisceáin subroutine
KEYCHE: A MOV, P1;
Eochairfhocal MOV, A;
CJLOOP: DISPLAY LCALL;
MOV A, P1;
A iarraidh go A, # 0F0H;
CJNE A, # 0F0H, CJLOOP;
MOV R7, # 00H;
MOV DPTR, # KEYTAB;
CHEKEYLOOP: A MOV, R7;
MOVC A, @ A + DPTR;
XRL A, eochairfhocal;
JZ KEYOK; 0 (comhionann) cas KEYOK
INC R7; raon, chomh maith le líon na n-tábla breathnú suas
CJNE R7, # 10H, CHEKEYLOOP;
RET;
;
KEYOK: A MOV, R7;
MOV B, A; B isteach
RL A; fhág
ADD A, B; cur (eochair chun déileáil le JMP 3 3 ag teagasc-beart)
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; léim go dtí an fheidhmiúlacht lárnach 15th an chláir
RET = earráid aistrithe mórchóir ar ais
;
= (Tá fad an cnaipe dhá eochracha oibriú neamhbhailí) An líon eochair a fhreagraíonn do na P1 tábla luach calafoirt
KEYTAB: SS 0EEH, 0DEH, 0BEH, 7EH, 0EDH, 0DDH, 0BDH, 7DH
DB 0EBH, 0DBH, 0BBH, 7BH, 0E7H, 0D7H, 0B7H, 77H, 0FFH, 0FFH
;
= Feidhmiúlacht eochair Uimh 0 an chláir
KEYFUN00: INC 29H;
MOV A, 29H;
CLR C;
CJNE A, # 02H, FUN00;
FUN00: JC FUN00OUT;
MOV 29H, # 00H;
FUN00OUT: A MOV, 29H;
XRL A, # 01H;
JNZ F00OUT1;
MOV 28H, # 00H;
AJMP F00OUT;
F00OUT1: MOV 28H, # 08H;
F00OUT: LCALL DISPUPDAT;
Tuairisceáin; RET
;
; An fheidhmiúlacht lárnach 1st an chláir
KEYFUN01: INC 28H;
MOV A, 28H;
CLR C;
CJNE A, # 0AH, FUN01;
FUN01: JC FUN01OUT;
MOV 28H, # 00H;
FUN01OUT: A MOV, 29H;
XRL A, # 01H;
JNZ F01OUT;
MOV 28H, # 00H;
AJMP F001OUT;
F01OUT: A MOV, 28H;
XRL A, # 08H;
JZ F001OUT;
MOV A, 28H;
XRL A, # 09H;
JZ F001OUT;
MOV 28H, # 08H;
F001OUT: LCALL DISPUPDAT;
Tuairisceáin; RET
;
= Clár fheidhm lárnach 2nd
KEYFUN02: INC 27H; dhigit aonair móide 1
MOV A, 27H;
CLR C;
CJNE A, # 0AH, FUN02; a chinneadh cé acu níos lú ná 10
FUN02: JC FUN02OUT; níos lú ná 10 casadh FUN02OUT
MOV 27H, # 00H; níos mó ná nó cothrom le 10 0 glanta go
FUN02OUT: LCALL DISPUPDAT; scríobh sliseanna rialú (minicíocht tarchuir modhnaithe)
RET;
;
; An fheidhmiúlacht lárnach 3rd an chláir
KEYFUN03: INC 26H; dhigit aonair móide 1
MOV A, 26H;
CLR C;
CJNE A, # 0AH, FUN03; nach bhfuil breithiúnas lú ná 10
FUN03: JC FUN03OUT; níos lú ná 10 casadh FUN03OUT
MOV 26H, # 00H; níos mó ná nó cothrom le 10 0 glanta go
FUN03OUT: LCALL DISPUPDAT; scríobh sliseanna rialú (minicíocht tarchuir modhnaithe)
Tuairisceáin; RET
;
= 04 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN04: MOV 29H, # 01H; réamhshocraithe minicíocht tarchuir 109.0MHZ
28H MOV, # 00H
27H MOV, # 09H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 05 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN05: MOV 29H, # 01H; réamhshocraithe minicíocht tarchuir 108.0MHZ
28H MOV, # 00H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 06 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN06: MOV 29H, # 01H; réamhshocraithe minicíocht tarchuir 105.0MHZ
28H MOV, # 00H
27H MOV, # 05H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
; An fheidhmiúlacht lárnach 7th an chláir (eochracha minicíocht réamhshocraithe)
KEYFUN07: MOV 29H, # 01H; réamhshocraithe minicíocht tarchuir 100.0MHZ
28H MOV, # 00H
27H MOV, # 00H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 08 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN08: MOV 29H, # 00H = 98.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 09H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 09 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN09: MOV 29H, # 00H = 96.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 09H
27H MOV, # 06H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
; An fheidhmiúlacht lárnach 10th an chláir (eochracha minicíocht réamhshocraithe)
KEYFUN10: MOV 29H, # 00H = 94.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 09H
27H MOV, # 04H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 11 cláir feidhme eochair (minicíocht eochracha réamhshocraithe)
KEYFUN11: MOV 29H, # 00H = 92.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 09H
27H MOV, # 02H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
; An fheidhmiúlacht lárnach 12th an chláir (eochracha minicíocht réamhshocraithe)
KEYFUN12: MOV 29H, # 00H = 90.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 09H
27H MOV, # 00H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
; An fheidhmiúlacht lárnach 13th an chláir (eochracha minicíocht réamhshocraithe)
KEYFUN13: MOV 29H, # 00H = 88.0MHZ minicíocht tarchuir réamhshocraithe
28H MOV, # 08H
27H MOV, # 08H
26H MOV, # 00H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
; An fheidhmiúlacht lárnach 14th an chláir (eochracha minicíocht réamhshocraithe); réamhshocraithe 87.0MHZ minicíocht tarchuir
KEYFUN14: 29H MOV, # 00H
28H MOV, # 08H
27H MOV, # 07H
26H MOV, # 08H
LCALL DISPUPDAT; sliseanna rialú scríbhinn (minicíocht tarchuir modhnaithe)
RET
;
= 15 cláir feidhme eochair (eochair leagan steirió / Mona)
KEYFUN15: CPL 03H;
JNB 03H, Mona;
CLR P3.3;
LCALL PUTBIT;
Tuairisceáin; RET
MON SETB P3.3;
LCALL PUTBIT;
Tuairisceáin; RET
;
; An BCD le heicsidheachúlach, agus cúig cód rialú opcode sintéise, scríobh sliseanna rialaithe
DISPUPDAT: LCALL BCDB;
LCALL CONCOMMAND;
LCALL PUTBIT; focail rialaithe a sheoladh chuig BH1415
Tuairisceáin; RET
;
= An BCD chun clár heicsidheachúlach
BCDB: CONBITL MOV, # 00H = focal rialaithe 0
CONBITH MOV, # 00H = focal rialaithe 0
CONBITL MOV, 26H; rialú deachúil focal isteach sa 8 íseal
MOV A, 27H; dhigit aonair ag oibríochtaí 10
MOV B, # 10;
LCALL MULLOOP; iolrú tune subroutine
MOV A, 28H; 100 deich-dhigit oibriú iolraithe
MOV B, # 100;
LCALL MULLOOP; iolrú tune subroutine
MOV A, 29H;
Is céadta dhigit de ADD3E8 cas (móide oibríochtaí 3); JNZ ADD8E1000
Tá na céadta dhigit de Stáit Aontaithe 0 scoir; RET
ADD3E8: CLR C; bratach soiléir dénártha
MOV A, # 0E8H = adder 8-beagán íseal
ADD A, CONBITL; charnadh
CONBITL MOV, A; CONBITL ais
MOV A, # 03H; ard ocht Suimiú
ADDC A, CONBITH;
CONBITH MOV, A; CONBITH ais
Tuairisceáin; RET
;
; Iolrú agus an próiseas carnadh (le ceithre dheachúlach taispeáint Cód BCD i roinnt dénártha)
MULLOOP: MUL AB; iolrú
Bratach sheoladh Glan; CLR C
ADD A, CONBITL; plota le CONBITL cur 8 íseal
CONBITL MOV, A; CONBITL ais
MOV A, CONBITH;
ADDC A, B; lánpháirtiú i accumulator ard 8-giotán le CONBITH
CONBITH MOV, A; CONBITH ais
Tuairisceáin; RET
;
= Sonraí maidir le rialú Minicíocht agus cúig sintéise cód rialaithe focal rialaithe BH1415
CONCOMMAND: a iarraidh go CONBITH, # 07H;
MOV A, 20H;
ORL A, CONBITH;
MOV CONBITH, A;
Tuairisceáin; RET
;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = Clár Taispeáin;;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= Coiteann anóid taispeáint LED, P0 alt aschur calafoirt de chód, P2 aschur calafoirt focal scanadh
Taispeáin: MOV R1, # 26H; léiríonn an chéad seoladh
MOV R5, # 0FEH = Lig scanadh focal
PLAY: A MOV, R5; isteach ar
MOV P2, A; aschur calafoirt P2
MOV A, @ R1; shonraí taispeáint beir
MOV DPTR, # CMT; a chur ar an chéad tábla Cód seoladh deighleog
MOVC A, @ A + DPTR; Deighleog imscrúdaithe
MOV P0, A; ó aschur P0
MOV A, R5; léann an focal scanta
JB ACC.1, PLAY1 = ná deich (LED), nach bhfuil an pointe deachúil ar taispeáint
CLR P0.7; bhí deich, pointe deachúil taispeáint
PLAY1: LCALL DL1MS; lit millisecond
INC R1; dírithe ar na sonraí ar taispeáint chugainn
Bhí an ceathrú stiúir, imeacht; JNB ACC.3, ENDOUT
RL A; ina ionad sin, d'fhág
MOV R5, A; ais R5
SETB P0.7; dheachúlach Lasmuigh
PLAY AJMP; timthriall PLAY aistrithe
ENDOUT: MOV P2, # 0FFH = Taispeáin chríochnaíonn as aschur taispeáint
MOV P0, # 0FFH;
Tuairisceáin; RET
;
= 0 9-Alt Shenyang stopwatch
CMT: SS 0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H, 0FFH, 0FFH
;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = Seol rialú subroutine beart;;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
;
PUTBIT: A MOV, CONBITL; ísle 8-giotán focal rialaithe isteach le
SETB P3.2; BH1415 Cumasaigh (scríobh)
LCALL CHUR; sheoladh ocht
MOV A, CONBITH; ard ocht focal rialaithe isteach le
LCALL CHUR; sheoladh ocht
CLR P3.2; BH1415 scríobh faoi mhíchumas
CLR P3.0; athshocrú
CLR P3.1; athshocrú
Tuairisceáin; RET
;
= Subroutine Tarchuirfidh Beart
CHUR: MOV R3, # 8; sheoladh ocht rialú
CLR C; Qing C
PUT1: RRC A; Déan ceart (ag tosú íseal)
MOV P3.0, C; íseal leis an gcalafort P3.0
NOP; moill 4 microseconds
NOP;
NOP;
NOP;
SETB P3.1 = shonraí latch (imeall ag ardú sonraí latch)
NOP; moill 4 microseconds
NOP;
NOP;
NOP;
CLR P3.1;
DJNZ R3, PUT1; ní áirítear giotáin 8 críochnaithe a sheal PUT1 atarlú
8 deireadh críochnaithe; RET
;
= 513 subroutine mhoill microsecond
DL513: MOV R3, # 0FFH
DL513LOOP: DJNZ R3, DL513LOOP
RET
;
= 1 subroutine mhoill millisecond (soilse LED a úsáidtear)
DL1MS: MOV R4, # 02H
DL1MSLOOP: LCALL DL513
DJNZ R4, DL1MSLOOP
RET
;
= 10 subroutine ms mhoill (Giodam deireadh a chur le)
DL10MS: MOV R6, # 0AH
DL10MSLOOP: LCALL DL1MS
DJNZ R6, DL10MSLOOP
RET
;
;
END
Ár táirge eile:
