采用at89c2051制作的智能時(shí)鐘培訓(xùn)資料(文件)
【正文】 led5,b。**************************************proc key_clkey_cl:mov a,key_datajz key_al_endcjne a,01d,k2_alinc k1_data 。 led min,houracall led_hourjb fl_250ms ,lk2mov led4,blk_ledmov led5,blk_led lk2: ajmp led_jmp_5_endled_k2_2: 。 led yearmov led2,2dmov led3,0dmov a,yearacall bcd_8mov led4,amov led5,bjb fl_250ms ,lk6mov led4,blk_ledmov led5,blk_led lk6: ajmp led_jmp_5_endled_k6_2: 。********************* mov a,dayjnz lj4inc daymov a,day lj4:acall bcd_8mov led4,ajnz lj3mov led4,blk_led lj3: mov led5,bret。************************************beep_timer:mov led1,blk_ledmov led2,b_ledmov led3,blk_ledmov a,beep_tacall bcd_8mov led4,amov led5,bjb fl_250ms,ft1mov led4,blk_ledmov led5,blk_ledft1:rettime_12:mov dptr,asc_12mov a,hourrl amovc a,a+dptrmov led2,ajnz iu2mov led2,blk_led iu2: inc dptrmov a,hourrl amovc a,a+dptrjb fl_500ms ,iu1add a,10d iu1: mov led3,a。**********clr ha_over 。**********************************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。********************************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。pm 4_al31 / 31。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。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。********************************t1_end:pop bpop pswpop aretiadj_w:clr tr1mov a,T_L_100msadd a, w_adj 。***************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。********************************mov a,sec cjne a,60d,clock_end。min houral_l:mov a,r0mov b,r1cjne a,b ,al_chinc r0dec r1djnz r6 ,al_l 。led outacall led_out1led_jmp_5_end:mov led1,weekacall ledretendled_hour:mov a,houracall bcd_8mov led2,ajnz lj1mov led2,blk_led lj1: mov a,badd a,10dmov led3,a。led day,monacall led_monjb fl_250ms ,lk4mov led4,blk_ledmov led5,blk_led lk4: ajmp led_jmp_5_endled_k4_2: 。******************************** mov r0,secmov a,k1_datadec aadd a,r0mov r0,ainc r0mov a,r0div abmov a,bmov r0,akey_al_end:retend asc_h:db 60d,60d,24d,32d,13d,100d,100dproc led_clled_cl:mov dptr,led_ord_3mov a,k1_datadec amov b,02hmul abjmp a+dptrled_ord_3: ajmp led_k0_2ajmp led_k1_2ajmp led_k2_2ajmp led_k3_2ajmp led_k4_2ajmp led_k5_2ajmp led_k6
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1