【正文】 setb al1_f sjmp reback_endka1: mov a,ret_timeradd a,05dmov b,60ddiv abmov a,seccjne a,b,reback_endclr al1_fmov stat_work,00dreback_end:retkey_jmp:mov a,key_datajz key_jmp_end mov ret_timer,seccjne a,01d,kk1mov a,stat_workinc a 。k2_keyjnz kk2mov a,stat_ledinc acjne a,05d,kka2mov a,00dkka2:mov stat_led,asjmp key_jmp_endkk2:acall all1cpl amov r0,akey_jmp_end:retall1:mov r0,al1mov a,stat_workdec aadd a,r0mov r0,amov a,r0retled_jmp:。mov stat_work,01d。*************************************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。*************************************date_led:mov a,monacall bcd_8mov led2,ajnz da1mov led2,blk_ledda1: mov a,badd a,10dmov led3,amov a,dayacall bcd_8mov led4,ajnz da2mov led4,blk_ledda2: mov led5,bdate_led_end:ret。 D_8=BCD。****************************************LED: mov p1,0mov dptr,led_asc。acall timer_1ms。acall timer_1mssetb led_1。*************************led3 led_led3:mov a,led3movc a,a+dptrmov p1,aclr led_3acall timer_1mssetb led_3。*************************led5 led_led5:mov a,led5movc a,a+dptrmov p1,aclr led_5acall timer_1mssetb led_5。************************************。0db 10001000B。2db 11001101B。4db 01101101B。6db 11001000B。8db 11101101B。0. =10ddb 10011000B。2.db 11011101B。4.db 01111101B。6.db 11011000B。8.db 11111101B。BLACK=20dDB 00010000B。l=22ddB 10101011B。u=24dDB 00100111B。b=26ddB 10001111B。 bafhcdeg。delay。gs1=week=mod([5/4]*year+mon_asc(mon)+day1)/7。 gs2=week=mod([5/4]*year+mon_asc(mon)+day)/7week_auto:mov a,YEARmov b,05mul abmov r4,bmov r5,amov r7,04call mul_2MOV DPTR,MON_ASCMOV A,MONdec aMOVC A,A+DPTRADD A,r3。r3=gs2。*****jb year=4N ******mov a,yearmov b,04div abmov a,bjnz week_3mov a,r3dec amov b,07div abmov a,b week_4:MOV WEEK,ajnz week_endmov week,07hweek_end: RETMON_ASC:DB 6d, 2d, 2d, 5d, 0d, 3d, 5d, 1d, 4d, 6d, 2d, 4d 。r4r5/r7=r3mul_2:D457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OV RETDV50: MOV R6,8 。；四舍五入ADD A,0。*************************************************************clr_ram:MOV R7,78h 。CLR A 。MOV R0,A 。CLR RAMret。mov w_adj,w_adj_datsetb eajmp adj_w。********************************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 。 timer_12 and date to ledacall time_12jnb fl_3s ,lk1acall date_led lk1:ajmp led_jmp_5_endled_k1_2: 。timer_24and date to led acall time_24jnb fl_3s ,lk2acall date_led lk2:ajmp led_jmp_5_endled_k3_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 key_alkey_al:mov a,key_datajz key_al_endcjne a,01d,k2_alinc k1_data 。(a=1,0)ret。********************************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。**********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。***************************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。acall