采用at89c2051制作的智能時(shí)鐘培訓(xùn)資料-文庫吧在線文庫
【正文】 ***************** key_data equ 08htimers equ key_data+1t_30ms equ timers+1t_20ms equ t_30ms+1t_1s equ t_20ms+1k1_data equ t_1s+1k2_data equ k1_data+1stat_work equ k2_data+1stat_led equ stat_work+1t_1ms equ stat_led+1t_20m equ t_1ms+1 beep equ t_20mal1 equ beep+1al2 equ beep+2al3 equ beep+3al4 equ beep+4al5 equ beep+5al6 equ beep+6al7 equ beep+7al8 equ beep+8ret_timer equ al8+1。3c90+30d=3cb0hw_adj_dat equ 50dkey_da equ 00000110b。ajmp t0reti 。************************************** start: call clr_ramMOV SP,sp_data 。*************************************time_24:mov a,houracall bcd_8mov led2,ajnz tim4mov led2,blk_ledtim4:mov led3,bjb fl_500ms,tim1mov a,badd a,10dmov led3,a tim1: acall led_mintime_12_end:ret。acall timer_1ms。************************************。6db 11001000B。4.db 01111101B。l=22ddB 10101011B。delay。r3=gs2。*************************************************************clr_ram:MOV R7,78h 。mov w_adj,w_adj_datsetb eajmp adj_w。sec to ledmov led1,blk_ledmov led2,blk_ledmov led3,dot_ledmov a,secacall bcd_8add a,10dmov led4,amov led5,b led_jmp_5_end: retend。**********dec arl amov r0,al1_hadd a,r0mov r0,amov a,r0acall bcd_8mov led2,ajnz ld2mov led2,blk_ledld2: mov a,badd a,10dmov led3,a。 led secmov led2,blk_ledmov led3,dot_ledmov a,secacall bcd_8add a,10dmov led4,amov led5,bjb fl_250ms ,lk1mov led4,blk_ledmov led5,blk_led lk1: ajmp led_jmp_5_endled_k1_2: 。********************* mov a,minacall bcd_8add a,10dmov led4,amov led5,bretled_mon:mov a,monjnz lj5inc monmov a,mon lj5:acall bcd_8mov led2,ajnz lj2mov led2,blk_ledlj2: mov led3,b。!!!!!!!!!!!!!!!!!!!!!!mov sec,00hinc min。*******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。am 4_aldb 07d,15d, 013d,40d, 13d,45d, 14d,15d。************************************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 。li jie 39。**************************************************mov a,r7dec amov r0,al1add a,r0mov r0,amov a,r0mov c,cpl canl c,fl_250mscpl cmov beep_f,c acall beep_out al_ch: clr cmov a,r1subb a,r6mov r1,adjnz r7,al_ch_1al_out_end:retbeep_out:jb ha_f,ba1mov beep,secsetb ha_f ba1:mov a,beepadd a,beep_tmov b,60ddiv abmov a,seccjne a,b,beep_out_endsetb beep_fsetb ha_overclr ha_fbeep_out_end:rettimer_int:MOV T_1S,TIMER_nomov beep_t,15dmov year ,01dmov mon , 011dmov day , 06dmov hour ,13dmov min , 00dmov sec , 00dmov r7,16mov dptr ,al_ascmov r0,al1_hal_read:clr amovc a,a+dptrmov r0,ainc r0inc dptrdjnz r7,al_readret。 led day,monacall led_monjb fl_250ms ,lk5mov led2,blk_ledmov led3,blk_led lk5: ajmp led_jmp_5_endled_k5_2: 。acall key_bordclr amov k1_data,amov k2_data,amov key_data,amov frist,aretend。(a=1,0)ret。 timer_12 and date to ledacall time_12jnb fl_3s ,lk1acall date_led lk1:ajmp led_jmp_5_endled_k1_2: 。MOV R0,A 。r4r5/r7=r3mul_2:D457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OV RETD
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1