采用at89c2051制作的智能時鐘培訓資料(編輯修改稿)
2025-04-29 00:22 本頁面
【文章內(nèi)容簡介】 －→R3）DV51: MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV F0,CCLR CSUBB A,R7ANL C,/F0JC DV52MOV R4,ADV52: CPL CMOV A,R3RLC AMOV R3,ADJNZ R6,DV51MOV A,R4 。；四舍五入ADD A,0。R4JC DV53SUBB A,R7JC DV54DV53: INC R3DV54: CLR OVRET。*************************************************************clr_ram:MOV R7,78h 。MOV R0,0bH 。CLR A 。CR: INC R0 。MOV @R0,A 。djnz r7,cr 。CLR RAMret。************** INT_CTRLint_t0:setb et1MOV TMOD,00010001b 。mov w_adj,w_adj_datsetb eajmp adj_w。**********************************************al_led:mov r0,al1_hmov a,stat_workdec arl aadd a,r0mov r0,amov a,@r0acall bcd_8mov led2,ajnz al_1mov led2,blk_ledal_1:mov a,badd a,10dmov led3,ainc r0mov a,@r0acall bcd_8add a,10dmov led4,amov led5,bal_led_end:ret。********************************set_clk_al:jnb set_clk_f,see1call set_clockclr set_clk_fsjmp see2see1:jnb set_al4_f,see2call set_al4clr set_al4_fsee2: ret 。*********************************proc led_t_dled_t_d:mov dptr,led_ord_3mov b,02hmul abjmp @a+dptrled_ord_3: ajmp led_k0_2ajmp led_k1_2ajmp led_k2_2ajmp led_k3_2ajmp led_k4_2led_k0_2: 。 timer_12 and date to ledacall time_12jnb fl_3s ,lk1acall date_led lk1:ajmp led_jmp_5_endled_k1_2: 。 timer_12 to ledacall time_12ajmp led_jmp_5_endled_k2_2: 。timer_24and date to led acall time_24jnb fl_3s ,lk2acall date_led lk2:ajmp led_jmp_5_endled_k3_2: 。timer_24to ledacall time_24ajmp led_jmp_5_endled_k4_2: 。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。****************************************proc set_al4set_al4:mov k1_data,01dmov k2_data,01dclr set_over acall led_alacall key_bordcall sf_keymov key_data,0mov frist,0set_al41:call clockcall week_autoacall led_alacall key_bordcall key_delacall key_aljnb set_over,set_al41 clr amov k1_data,amov k2_data,amov key_data,amov frist,aretend。**************************************proc key_alkey_al:mov a,key_datajz key_al_endcjne a,01d,k2_alinc k1_data 。(19)mov a,k1_datacjne a,19d,key_al_endmov k1_data,01dsjmp key_al_endk2_al:mov a,k1_datacjne a,018d,ke2setb set_oversjmp key_al_endke2: mov r0,al1_hdec aadd a,r0mov r0,ainc @r0acall jj_bitmov b,24djnz ke3 mov b,60dke3:mov a,@r0div abmov a,bmov @r0,akey_al_end:retend jj_bit:mov a,k1_datamov b,02ddiv abmov a,b 。(a=1,0)ret。********************************* led_out1:mov led2,00hmov led3,u_ledmov led4,t_ledmov led5,blk_ledmov led1,blk_ledret。********************************led_al:mov a,k1_datacjne a,017d,lo1acall beep_timer sjmp led_al_endlo1: cjne a,18d,ld1acall led_out1sjmp led_al_endld1: inc amov b,02ddiv ab。**********mov led1,a。**********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。************************************ inc r0mov a,@r0acall bcd_8add a,10dmov led4,amov led5,b。***************************flash bitjb fl_250ms,led_al_endacall jj_bitjnz led_al_emov led4,blk_ledmov led5,blk_ledsjmp led_al_endled_al_e:mov led2,blk_ledmov led3,blk_ledled_al_end:acall ledret。***************************************proc set_clockset_clock:mov k1_data,01dmov k2_data,01dclr set_over call led_clcall key_bordcall sf_keymov key_data,0mov frist,0set_al41:call clockacall week_autocall al_outacall led_clacall key_bordcall key_delacall key_cljnb set_
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1