采用at89c2051制作的智能時鐘培訓(xùn)資料(存儲版)
【正文】 *****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。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。pm 4_al31 / 31。**********************************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。**********clr ha_over 。********************* mov a,dayjnz lj4inc daymov a,day lj4:acall bcd_8mov led4,ajnz lj3mov led4,blk_led lj3: mov led5,bret。 led min,houracall led_hourjb fl_250ms ,lk2mov led4,blk_ledmov led5,blk_led lk2: ajmp led_jmp_5_endled_k2_2: 。************************************ inc r0mov a,r0acall bcd_8add a,10dmov led4,amov led5,b。****************************************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。**********************************************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。MOV R0,0bH 。*******jb mon=2 ******MOV A,MONCJNE A,02D,WEEK_1SJMP WEEK_2WEEK_1:JC WEEK_2week_3: mov a,r3mov b,07div abmov a,bsjmp week_4WEEK_2:。********************************timer_1ms:mov t_1ms,030hr2_1: djnz t_1ms , r2_1 rettimer_20ms:mov t_20m,050dr2_2: call clockcall leddjnz t_20m , r2_2 call week_autocall al_outret。h=23dDB 10101110B。5.db 01111111B。7db 11101111B。 bafhcdeg led_asc:db 11101110B。acall timer_1ms。*********************************** led_min:mov a,minacall bcd_8jb fl_500ms ,tim2add a,10dtim2: mov led4,amov led5,bret。call int_t0call timer_intcall timer_20msSTAR_BI:call clock call week_autocall al_outCALL KEY_bordcall key_del call set_clk_alcall key_jmp call rebackcall led_jmpsjmp star_bi 。ORG 0013H reti 。********************************************************* blk_led equ 20d dot_led equ 21d f_led equ 22d n_led equ 23d u_led equ 24d t_led equ 25d b_led equ 26d d_led equ 27doRG 0000H。************************************************** sec equ 23hmin equ sec+1hhour equ min+1hday equ hour+1hmon equ day+1hyear equ mon+1hw_adj equ year+1h week equ w_adj+1h。按下K1鍵依次進入8路定時調(diào)整狀態(tài)：時、分。星期位顯示：“H”表示：打開當前定時輸出；“L” 表示：關(guān)閉當前定時輸出。 8路定時輸出（可關(guān)/開控制）采用AT89C2051制作的智能時鐘一、智能電子鐘的功能 全日歷計時?！ ?路定時時間查詢 按下K1鍵依此顯示8路定時時間。 設(shè)置定時時間 按下K1鍵3S后，進入設(shè)置菜單。*********************************
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1