采用at89c2051制作的智能時(shí)鐘培訓(xùn)資料-資料下載頁
2025-04-02 00:22本頁面
【正文】 ovc a,@a+dptrjb fl_500ms ,iu1add a,10d iu1: mov led3,a。*************************************** min to ledacall led_mintime_24_end:retasc_12:db 11d,2d,21d,1d,21d,2d,21d,3d,21d,4d,21d,5d,21d,6d,21d,7ddb 21d,8d,21d,9d,11d,0d,11d,1ddb 1d,2d,0d,1d,0d,2d,0d,3d,0d,4d,0d,5d,0d,6d,0d,7d,0d,8d,0d,9ddb 1d,0,1d,1dclock:。********************************mov a,sec cjne a,60d,clock_end。!!!!!!!!!!!!!!!!!!!!!!mov sec,00hinc min。**********clr ha_over 。mov a,mincjne a,60d,clock_endmov min,00hinc hourmov a,hourcjne a,24d,clock_endmov hour,00hmov a,monxrl a,02djnz mm_1mov dptr,year_dmov a, yearmovc a,@a+dptrsjmp mm_2mm_1:mov a,mondec a mov dptr,mou_12movc a,@a+dptrmm_2:mov b,ainc binc day 。***************day+1mov a,daycjne a ,b ,clck_endsjmp clck1clck_end:jc clock_endclck1:mov day,01hinc monmov a,moncjne a,13d ,clock_endmov mon,01dinc yearmov a,yearcjne a,100d ,clock_endmov year,00d clock_end:call fl_outretmou_12: db 31d, 28d, 31d, 30d, 31d,30ddb 31d, 31d, 30d,31d, 30d,31dyear_d:db 29d, 28d, 28d, 28d, 29d, 28d , 28d, 28d, 29d, 28d db 28d, 28d, 29d, 28d, 28d, 28d , 29d, 28d, 28d, 28d db 29d, 28d, 28d, 28d, 29d, 28d , 28d, 28d, 29d, 28d db 28d, 28d, 29d, 28d, 28d, 28d , 29d, 28d, 28d, 28d db 39。li jie 39。***************************************t1:push apush pswpush bclr fl_ms_fdjnz t_1s ,t1_endclr fl_s_finc seccall adj_w。********************************t1_end:pop bpop pswpop aretiadj_w:clr tr1mov a,T_L_100msadd a, w_adj 。*******have 5 ordermov tl1 ,amov a,T_H_100msaddc a, 00hmov th1,a mov t_1s,timer_nosetb tr1retfl_out: jb fl_ms_f ,fl_out_endsetb fl_ms_fmov a,t_1smov b,02ddiv abmov a,bjnz to_d1cpl fl_250msto_d1: mov a,t_1smov b,04ddiv abmov a,bjnz to_d2cpl fl_500msto_d2: fl_out_end:call sec_outretsec_out:jb fl_s_f ,sec_out_endsetb fl_s_fmov a,secmov b,07djnb fl_3s,za1 mov b,02dza1:div abmov a,bjnz sec_out_endcpl fl_3s sec_out_end:ret。**********************************key_del:mov a,key_datajnz kl_12mov a,fristjnz kl_13retkl_13:mov key_data,fristmov frist,0clr key_over jmp sf_beepkl_12: jnb key_over,kl11mov a,t_30msadd a,03mov b,60ddiv abmov a,seccjne a,b,key_del_endclr key_over jmp set_keykl11:mov t_30ms,secsetb key_overkey_del_end:call sf_acjne a,key_da,sfg_12clr key_over jmp sf_beepsfg_12:mov frist,key_datamov key_data,0ret。**************************************** key_bord:acall re_kmov a,key_datajz key_bord1_end。acall psf_key0key_bord1_end:setb key_fretset_key:mov a,key_datacjne a,01h,set_cc1setb set_al4_fsjmp sf23set_cc1:cjne a,02h,sf23setb set_clk_fsf23:ret。************************************sf_key:call clockcall week_autocall al_outsetb key_fcall ledcall sf_acjne a,key_da,sf_keycall sf_beepretsf_beep:clr beep_fcall timer_20mssetb beep_fret 。********************************re_k: mov key_data,00hmov p1,00hmov a,p3orl a,01111111bmov p3,aclr key_fmov a,p3setb key_fmov p1,0ffhanl a ,00000110bcjne a,00000110b,you_keyre_k_end: retyou_key:call timer_20ms。call ledmov p1,00hmov a,p3orl a,01111111bmov p3,aclr key_fmov a,p3setb key_fmov p1,0ffhanl a ,key_dacjne a,key_da,you_key1ret。sjmp re_k_end you_key1:jb ,key_kbmov key_data,02hkey_kb: jb ,sf_key0mov key_data,01hsf_key0:retsf_a:mov p1,00hmov a,p3orl a,01111111bmov p3,aclr key_fmov a,p3setb key_f anl a ,key_daretal_asc:db 06d,40d, 06d,50d, 07d,00d, 07d,10d。am 4_aldb 07d,15d, 013d,40d, 13d,45d, 14d,15d。pm 4_al31 / 3
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1