51單片機數(shù)字鐘匯編程序

1、secequ32h;秒即時時間偽指令minequ31h;分hourequ30h ;時dayequ35h;eimonequ34h;月yearequ33h;年min_1equ41h;分定時器1路、開存儲單元hour_1equ42h ;時day_1equ43h ;mon_1equ44h;year_1equ45h ;min_11equ40h;分 定時器1路、關存儲單元hour_11equ46h;時day_11equ47h;eimon_11equ48h;月year_11equ49h ;年org0000humpmainorg0003h ;中斷轉換顯示年月日、into （sb4鍵）ljmpwb0orgooo

2、bh；計數(shù)卞斷to、方式1umpttoorg0013hljmpwb1;調整時間.定時、inti （sbo鍵）；主程序org0030hmain: movyear,#02;初始化付值movmon,#05movda£#01movhour,#00movmin,#00movsec,#00clr40h ；定時單元1路清零clr41hclr42hclr43hclr44hclr45hclr46hclr 47hclr48hclr49h；-開中斷movtmod,#01h ;計數(shù)、模式 1、tomovtlo,#oboh ;100sm 計數(shù)定時movtho,#3ch ;clr p3.0mov20h,#oah

3、 ;10 次*100smsetbpto；t0為最高級setbtro；允許計數(shù)setbeto;允許to中斷setbexo;允許into中斷setbexi;允許int1屮斷setbea ;開總中斷顯示、定時器啟動判斷l(xiāng)oop:mov rl,#30h;存儲單元mov r4,#01h;位選通mov r3,#03h;三纟ft顯示next:mov azr1 ;mov b,#10 ;將存儲單元轉換成兩高低兩組的bcd碼divabswap aorla,bmovp0,a;輸出mov p2,r4inc r1 ;下一單元mova,r4;rla ;位移movr4,alcall de5sm ;延吋 0.5smdjnzr

4、3,next ;全掃描顯示一偏；判斷定時輸出（只編寫了一路）cjne r7,#88h,loop ;是8則開,否則、定時已關、轉；開mova,yearcjne azyear_1,loop_1;年比較，不等轉關mova,moncjne azmon_1zloop_1mov a, daycjne a,day_1,loop_1mov a,hourcjne a,hour_1,loop_1mov a,mincjnea,min_1,loop_1cplp3.0；關loop 1:mova,yearcjnea,year_11, loop;年比較mova,moncjnea,mon_11,loopmova, daycj

5、nea,day_11,loopmova,hourcjnea,hour_11zloopmova,mincjnea,min_11,loopcplp3.0ljmploop；-年刀日顯示中斷子程序wbo:pushpswpushaccpushbpush01hpush02hpush03hpush04hmovr2,#0ffh;中斷掃描次數(shù)turn: movr1,#33hmovr4,#01hmovr3,#03hnext_1:mova,r1movb,#10divabswapaorla,bmovp0,amovp2,r4incr1rlamovr4zalcall de5smdjnzr3,next_1djnzr2jur

6、n ;反復顯示一定時間后返回pop04hpop03hpop02hpop01hpopbpopaccpop pswreti；一計數(shù)中斷服務子程序tto: pushpswpushaccpushbpush06hmovth0,#3ch;fi 裝計數(shù)movtlo,#obh;djnz20h,out；轉到屮斷跳出pop程序mov20h,#0ah;重裝：100*10=1000；-進位程序inc secmovr6,sec;cjner6,#60,out;比較movsec,#oo ;incminmovr6,mincjner6,#60,outmovmin,#00inchourmovr6,h0urcjner6,#25,o

7、utmovhour, #00incdaymovr5,moncjner5,#1,mon_22;是否1月、不是轉2月movr5,daycjner5,#32,out;本刀是否益出incmonmovday#lljmpoutout:pop06hpopbpopaccpoppswretimon_22:movr5,moncjner5,#2,mon_33;是否2月、不是轉3月mova,year ;判斷是否瑞年movb,#4divabmova,bjnzmovcjneout_1;不是則轉（a不為零則轉）r5,dayr5,#30,out;如是瑞年、判斷是否到29天inc monmovljmpout_1:movcjne

8、incmovljmpmon_33:day；#1outr5,dayr5,#29,out ;平年二月判斷monday#1outmovcjnemovcjneincmovumpr5,monr5,#3,mon_44r5qayr5,#32,outmonday#1outmon_44:movcjnemovcjner5zmonr5,#4,mon_55r5,dayr5,#31,outinc monmovljmpmon_55:day；#1outmovcjnemovr5,monr5,#5,mon_66r5,daycjne r5,#32,outinc monmovljmpmon_66:da；#1outmovcjnemo

9、vcjner5,monr5,#6zmon_77r5zdayr5,#31,outinc monmovumpmon 77:da#1outmovr5,moncjner5,#7,mon_88movr5,daycjner5,#32,l1inc monmovdax#1li:ljmpoutmon_88:movr5,moncjner5，#8,mon_99movr5,daycjner5,#32,l2inc monmovda£#1l2:ljmpoutmon_99:movr5,moncjner5,#9zmon_00movr5,daycjner5,#31,l3inc monmovday#ll3:ljmp o

10、utmon_00:mov cjnemovcjne inc momovr5,monr5,#10,mon_aar5,dayr5,#32,l4nday#1l4:ljmpoutmon_aa:movr5,moncjner5,#11,mon_bbmovr5,daycjner5,#31zl5inc monmovda£#1l5:ljmpoutmon_bb:movr5,daycjner5,#32,l6inc yearmov mon,#1mov da£#1l6: ljmp out；-校対時間、定時調整中斷wb1:push pswpushaccpushbpushoohmovp2,#00hshow

11、_1:mova,#01h;顯示 1movpo,amovp2,#0ff比三組數(shù)碼管都顯示1路lcall read ;調用讀pl 口鍵程序cjnea,01h,show_1;去抖后比較lcallde250sm ; 延時 250 秒cjnea,#ofbh,tttlljmpsb3_1tttl: cjnea,#ofeh,show_1ajmpshow 2；二組顯示show_2:mov a,#02h;顯示 2mov po,amov p2,#offh;lcall readcjnea,01h,show_2 ;去抖后比較lcall de25osm; 延吋 250 秒cjnea,#0fbh,t2;不等轉去判斷此時sb

12、3按了沒ump sb3_2t2:cjne a,#ofeh,show_2ajmp show_3；_三組顯示show_3:mov a,#03h; 顯示 3mov po,amovp2,#0ffh;位碼lcall readcjnea,01h,show_3;去抖后比較lcall de250sm;延時 250 秒cjnea,#0fbh,t3;不等轉去判斷此時sb3按了沒ljmp sb3_3t3:cjne a,#ofeh,show_3ajmpshow_4;即時年單元調時、顯示show 4:mova,year ;調出年單元movb,#10;bcd 轉換div abswapaorla,bmovpo,a;movp

13、2,#o1h;lcallreadlcallde250smcjnea,01h,show_4;去抖cjnea,#ofeh,key2_1 ;按 sb2 轉年調整ajmpmon_ch ;按sb1往下調月單元key2_1:cjnea,#ofdh,show_4lcall year_ad ;調用年調柴ajmpshow_4;mon_ch:mova,mon ;刀單元調整movb,#10div abswapaorla,bmovpo,a;movp2,#o2h;lcall readlcallde250smcjnea,01h,mon_ch ;左抖cjnea,#0feh,key2_2 ;按 sb2 轉月調整ljmpday

14、_ch ;按sb1往下調日單元key2_2:cjnea,#ofdhzmon_chlcall mon_ad ;調用月調整umpmon_ch ;day_ch:mova,day ; fl單元調整movb,#10div abswapaorla,bmovpo,a;movp2,#04h;lcall readlcall de250smcjne a,01h,day_ch ;去抖cjnea,#ofeh,key2_3 ;按 sb2 轉 lt調整ump 1hour_ch ;按sb1往下調吋單元key2_3:cjnea,#ofdh,day_chlcall day_ad ;調用 ii 調整ljmpday_chhour_

15、ch:mova,hour ;時單元調整movb,#10div abswapaorla,bmovpo,a;movp2,#o1h;lcall readlcallde25osmcjnea,01h,hour_ch ;去抖cjnea,#0feh,key2_4 ;按 sb2 轉時調整ajmpmin_ch ;按sb1往下調分單元key2_4:cjnea,#ofdh,hour_chlcallhour_ad;調用時調整ajmphour_ch ;min_ch:mova,min;分單元調整movb,#10div abswapaorla,bmovpo,a;movp2,#o2h;lcall readlcall de25

16、0smcjnea,01h,min_ch ;去抖cjnea,#0feh,key2_5 ;按 sb2 轉分調整ajmp sec_ch ;按sb1往下調秒單元key2_5:cjne a,#ofdh,min_chlcall min_ad;調用分調整ljmp min_ch;sec_ch:mova,sec ;秒單元調整mov b,#1odiv abswapaorla,bmovpo,a;movp2,#04h;lcallreadlcallde25osmcjnea,o1h,sec_ch 法抖cjnea,#0feh/key2_6 ;按 sb2 秒調整ljmpout_a ;按581跳出key2_6:cjnea,#o

17、fdh,sec_chclrsec;歸零umpsec_ch ;；按sb2定時器年單元加1子程序sb3_2:ljmpshow_2 ；二路沒編返回sb3_3:umpshow_3 ；三路沒編返回sb3_1:mova,year_1 ;調吋年單元movb,#10div abswapaorla,bmovpo,amovp2,#o1hlcall readlcall de250smcjnea,o1h,sb3_1cjnea,#0fbh,key2_7 ;按 sb2 轉年調整ljmpmon_111 ;按sb1往下調月單元key2_7:cjnea,#ofdh, sb3_1inc year_1路年單元加1movr5zyea

18、r_1cjner5,#o9,sb3_1;益出movyear_1,#oohajmpsb3_1;；刀單元加i子程序mon_111:mova,mon_1; 調時月單元顯示movb,#10div abswapaorla,bmovpo,amovp2/#02hlcall readlcallde25osmcjnea,01h,mon_111cjnea,#0fbh,key2_8 ;按 sb2 轉月調整ljmp day_111key2_8:cjnea,#ofdh,mon_111inc mon_1 ;1路月單元加1movr5,mon_1cjner5,#13,mon_111;益出movmon_1,#01hajmpmo

19、n.lll;轉到月顯；日單元加子程序day_111:mova,day_1;調時li單元顯示提示movb,#10div abswapaorla,bmovpo,amovp2,#04hlcallreadlcallde250smcjnea,01h,day_lllcjnea,#0fbh,key2_9 ;按 sb2 轉日調整ljmphour_111key2_9:cjnea,#ofdh,day_111inc day._1 組fl單元加1movr5zday_1cjner5,#32,day_111;益出movday_l,#01hajmpday_111;轉到日顯；按sb2時單元加1子程序hour_111:mova

20、,hour_1; 調時時單元顯示提示movb,#10div abswapaorla,bmovpo,amovp2,#o1hlcallreadlcall de250smcjnea,01h,hour_111cjnea,#0fbh,key2_10 ;按 sb2 轉吋調整umpmin_111key2_10:cjnea,#ofdh,hour_111inc hour_1movr5,hour_1cjner5,#24,hour_111;益出movhour_1,#oohajmphour_111;轉到時顯；分單元加1子程序min_111:mova,min_1; 調時分單元、并顯示提示movb,#10div absw

21、apaorl a,bmovpo,amovp2,#o2hlcallreadlcallde250smcjnea,01h,min_lllcjnea,#0fbh,key2l ;按sb2轉分調整ajmpoff_ch ;按583往下調定時：關單元key2_11:cjnea,#ofdh, min_111inc min_1 ；1路分單元加1movr5,min_1cjner5,#60,min_lll;益處movmin_l,#00hajmpmin_111;轉到分顯;年單元調整off_ch:mova,year_11 ;調時年單元movb,#10div abswapaorla,bmovpo,amovp2,#o1hlc

22、all readlcallde25osmcjnea,01h,off_chcjnea,#0fbh,key2_f7 ;按 sb2 轉年調整umpmon_off ;按sb1往下調刀單元key2_f7:cjnea,#ofdh,off_chinc year_11 ; 1路年單元加1movr5,year_11cjner5,#09,off_ch;益出movyear_11,#oohajmpoff_ch ;；-月單元加1子程序mon_off:mova,mon_11; 調時月單元顯示movb,#10div abswapaorla,bmovpo,amovp2,#o2hlcallreadlcallde25osmcjn

23、ea,01h,mon_offcjnea,#0fbh,key2_f8 ;按 sb2 轉月調整ljmpday_offkey2_f8:cjnea,#ofdh,mon_offinc mon_11 ;1路月單元加1movr5,mon_11cjner5,#13,mon_off;益出movmon_11z #01hajmpmon_off;轉到刀顯；日單元加1子程序day_off:mova,day_11; 調吋日單元顯示提示movb,#10div abswapaorlazbmovpo,amovp2,#04hlcall readlcallde25osmcjnea,01h,day_offcjnea,#0fbh,ke

24、y2_f9 ;按 sb2 轉 口調整ljmphour offkey2 f9:cjnea,#ofdh,day_offinc day_11 ;1組日單元加1movr5,day_11cjner5,#32,day_off;益出movday_llz#01hajmpday_off ;轉到口顯；按sb2時單元加1子程序hour_off:mova,hour_11; 調時時單元顯示提示movb,#10div abswapaorla,bmovpo,amovp2,#o1hlcallreadlcallde25osmcjnea,01h,hour_offcjnea,#0fbh,key2_f10 ;按 sb2 轉時調整lj

25、mpmin_offkey2_f1o:cjnea,#ofdh,hour_offinc hourjllmovr5,hour_11cjner5,#24,hour_off;益出movhour_11,#oohajmphour_off;轉到吋顯；-分單元加1子程序min_off:mova,min_11; 調時分單元、并顯示提示movb,#10div abswapaorla,bmovpo,amovp2,#o2hlcallreadlcallde250smcjnea,01h,min_offcjnea,#ofbh,key2_f11 ;按 sb2 轉分調整umpon_1 /sb3往下調定時：開與關key2_f11:cjnea,#ofdh, min_offinc min11 ；1路分單元加1movr5,min_11cjner5,#60,min_off;益處movmin_llz#00hljmpmin_off;轉到分顯開、關定時on_1: cjnea,#ofbh,min_offki:mova,#88hmovr7,amovpo,amovp2,#offh;三組都顯示開lcallreadlcallde25osmcjnea,01hzon_1法抖后比較cj