all1:movr0,#al1mova,stat_workdecaadda,r0movr0,amova,@r0ret
led_jmp:;**********************************;movstat_work,#01d;movstat_tw,#01d
mova,stat_workjnzled_al1mova,stat_ledacallled_t_dmovled1,weeksjmpled_jmp_endled_al1:acallall1movled1,#f_ledjnzle_t2movled1,#n_ledle_t2:jbfl_250ms,le_t4movled1,#blk_ledle_t4:acallal_ledled_jmp_end:acallledret;*************************************
time_24:mova,houracallbcd_8movled2,ajnztim4movled2,#blk_ledtim4:movled3,bjbfl_500ms,tim1mova,badda,#10dmovled3,atim1:acallled_mintime_12_end:ret;***********************************led_min:mova,minacallbcd_8jbfl_500ms,tim2adda,#10dtim2:movled4,amovled5,bret;*************************************
date_led:mova,monacallbcd_8movled2,ajnzda1movled2,#blk_ledda1:mova,badda,#10dmovled3,amova,dayacallbcd_8movled4,ajnzda2movled4,#blk_ledda2:movled5,bdate_led_end:ret
;bafhcdeg
;**********************************;delay;********************************timer_1ms:movt_1ms,#030hr2_1:djnzt_1ms,r2_1rettimer_20ms:movt_20m,#050dr2_2:callclockcallleddjnzt_20m,r2_2callweek_autocallal_outret;#############################################;ifmon<=2andyear=4Z(0,1,2,3...);gs1=>week=mod([5/4]*year+mon_asc(mon)+day-1)/7;else;gs2=>week=mod([5/4]*year+mon_asc(mon)+day)/7week_auto:mova,YEARmovb,#05mulabmovr4,bmovr5,amovr7,#04callmul_2
led_k4_2:;sectoledmovled1,#blk_ledmovled2,#blk_ledmovled3,#dot_ledmova,secacallbcd_8adda,#10dmovled4,amovled5,bled_jmp_5_end:retend
;****************************************procset_al4set_al4:movk1_data,#01dmovk2_data,#01dclrset_overacallled_alacallkey_bordcallsf_keymovkey_data,#0movfrist,#0set_al41:
callclockcallweek_autoacallled_alacallkey_bordcallkey_delacallkey_aljnbset_over,set_al41clramovk1_data,amovk2_data,amovkey_data,amovfrist,aretend;**************************************prockey_alkey_al:mova,key_datajzkey_al_endcjnea,#01d,k2_al
inck1_data;(1-9)mova,k1_datacjnea,#19d,key_al_endmovk1_data,#01dsjmpkey_al_endk2_al:mova,k1_datacjnea,#018d,ke2setbset_oversjmpkey_al_endke2:movr0,#al1_hdecaadda,r0movr0,ainc@r0acalljj_bitmovb,#24djnzke3movb,#60dke3:mova,@r0divabmova,bmov@r0,akey_al_end:retendjj_bit:mova,k1_datamovb,#02ddivabmova,b;(a=1,0)ret;*********************************led_out1:movled2,#00hmovled3,#u_ledmovled4,#t_ledmovled5,#blk_ledmovled1,#blk_ledret;********************************led_al:mova,k1_datacjnea,#017d,lo1acallbeep_timersjmpled_al_endlo1:cjnea,#18d,ld1acallled_out1sjmpled_al_endld1:incamovb,#02ddivab;**********movled1,a;**********decarlamovr0,#al1_hadda,r0movr0,amova,@r0acallbcd_8movled2,ajnzld2movled2,#blk_ledld2:mova,badda,#10dmovled3,a;************************************incr0mova,@r0acallbcd_8adda,#10dmovled4,amovled5,b
;***************************flashbitjbfl_250ms,led_al_endacalljj_bitjnzled_al_emovled4,#blk_ledmovled5,#blk_ledsjmpled_al_endled_al_e:movled2,#blk_ledmovled3,#blk_ledled_al_end:acallledret;***************************************procset_clockset_clock:movk1_data,#01dmovk2_data,#01dclrset_overcallled_clcallkey_bordcallsf_keymovkey_data,#0movfrist,#0set_al41:callclockacallweek_autocallal_outacallled_clacallkey_bordcallkey_delacallkey_cljnbset_over,set_al41;acallkey_bordclramovk1_data,amovk2_data,amovkey_data,amovfrist,aretend;**************************************prockey_clkey_cl:mova,key_datajzkey_al_endcjnea,#01d,k2_al
inck1_data;(1-8)mova,k1_datacjnea,#9d,key_al_endmovk1_data,#01dsjmpkey_al_endk2_al:mova,k1_datacjnea,#08d,ke2setbset_oversjmpkey_al_endke2:decamovdptr,#asc_hmovca,@a+dptrmovb,a;********************************movr0,#secmova,k1_datadecaadda,r0movr0,ainc@r0mova,@r0divabmova,bmov@r0,akey_al_end:retendasc_h:db60d,60d,24d,32d,13d,100d,100d
beep_out:jbha_f,ba1movbeep,secsetbha_fba1:mova,beepadda,beep_tmovb,#60ddivabmova,seccjnea,b,beep_out_endsetbbeep_fsetbha_overclrha_fbeep_out_end:rettimer_int:MOVT_1S,#TIMER_nomovbeep_t,#15dmovyear,#01dmovmon,#011dmovday,#06dmovhour,#13dmovmin,#00dmovsec,#00dmovr7,#16movdptr,#al_ascmovr0,#al1_hal_read:clramovca,@a+dptrmov@r0,aincr0incdptrdjnzr7,al_readret
;************************************beep_timer:movled1,#blk_ledmovled2,#b_ledmovled3,#blk_ledmova,beep_tacallbcd_8movled4,amovled5,bjbfl_250ms,ft1movled4,#blk_ledmovled5,#blk_ledft1:ret
time_12:movdptr,#asc_12mova,hourrlamovca,@a+dptrmovled2,ajnziu2movled2,#blk_lediu2:incdptrmova,hourrlamovca,@a+dptrjbfl_500ms,iu1adda,#10diu1:movled3,a;***************************************mintoledacallled_mintime_24_end:retasc_12:db11d,2d,21d,1d,21d,2d,21d,3d,21d,4d,21d,5d,21d,6d,21d,7ddb21d,8d,21d,9d,11d,0d,11d,1ddb1d,2d,0d,1d,0d,2d,0d,3d,0d,4d,0d,5d,0d,6d,0d,7d,0d,8d,0d,9ddb1d,0,1d,1d
clock:;********************************mova,seccjnea,#60d,clock_end;!!!!!!!!!!!!!!!!!!!!!!movsec,#00h
incmin;**********clrha_over;2001.5.6mova,mincjnea,#60d,clock_endmovmin,#00hinchourmova,hourcjnea,#24d,clock_endmovhour,#00hmova,monxrla,#02djnzmm_1movdptr,#year_dmova,yearmovca,@a+dptrsjmpmm_2mm_1:mova,mondecamovdptr,#mou_12movca,@a+dptrmm_2:movb,aincbincday;***************day+1mova,daycjnea,b,clck_endsjmpclck1clck_end:jcclock_endclck1:movday,#01hincmonmova,moncjnea,#13d,clock_endmovmon,#01d
incyearmova,yearcjnea,#100d,clock_endmovyear,#00dclock_end:callfl_outretmou_12:db31d,28d,31d,30d,31d,30ddb31d,31d,30d,31d,30d,31dyear_d:db29d,28d,28d,28d,29d,28d,28d,28d,29d,28ddb28d,28d,29d,28d,28d,28d,29d,28d,28d,28ddb29d,28d,28d,28d,29d,28d,28d,28d,29d,28ddb28d,28d,29d,28d,28d,28d,29d,28d,28d,28ddb'lijie2000.5.15';***************************************t1:pushapushpswpushbclrfl_ms_fdjnzt_1s,t1_endclrfl_s_fincseccalladj_w;********************************t1_end:popbpoppswpopareti
adj_w:clrtr1mova,#T_L_100msadda,w_adj;*******have5ordermovtl1,amova,#T_H_100msaddca,#00hmovth1,amovt_1s,#timer_nosetbtr1ret
sf_beep:
clrbeep_fcalltimer_20mssetbbeep_fret;********************************re_k:movkey_data,#00hmovp1,#00hmova,p3orla,#01111111bmovp3,aclrkey_fmova,p3setbkey_fmovp1,#0ffhanla,#00000110bcjnea,#00000110b,you_keyre_k_end:retyou_key:calltimer_20ms;callledmovp1,#00hmova,p3orla,#01111111bmovp3,aclrkey_fmova,p3setbkey_fmovp1,#0ffhanla,#key_dacjnea,#key_da,you_key1ret;sjmpre_k_endyou_key1:jbacc.1,key_kbmovkey_data,#02hkey_kb:jbacc.2,sf_key0movkey_data,#01hsf_key0:ret
sf_a:movp1,#00hmova,p3orla,#01111111bmovp3,aclrkey_fmova,p3setbkey_fanla,#key_daretal_asc:db06d,40d,06d,50d,07d,00d,07d,10d;am4_aldb07d,15d,013d,40d,13d,45d,14d,15d;pm4_al
下载烧写文件的方法：将鼠标移到烧写文件的超级键连处，点击鼠标的右键，选择“目标另存为（A）...”保存文件类型中不要选择“文本文件”，应该选择“所有文件”，这样就能获得*.hex文件了。
采用AT89C2051的智能时钟无货，停止邮购！
邮局汇款地址：邮编226200江苏省启东市江海中路511号水晶苑A1谢刚收