org 0000h ajmp main org 000bh ljmp inti0 org 0030hmain: mov ie,#82h mov tmod,#01h mov th0,#4ch mov tl0,#00h mov 31h,#00 mov 32h,#00 mov 33h,#00 mov sp,#60h setb tr0loop:lcall display lcall keyer ajmp loopdisplay: mov a,31h ;秒显示 mov b,#10 div ab mov 20h,a mov 21h,bdisp1: mov a,20h ;秒十位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.0 lcall del1ms setb p2.0disp2: mov a,21h ;秒个位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.1 lcall del1ms setb p2.1disp3: mov a,32h ;分显示 mov b,#10 div ab mov 22h,a mov 23h,bdisp4: mov a,22h ;分十位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.6 lcall del1ms setb p2.6 disp5: mov a,23h ;分个位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.7 lcall del1ms setb p2.7disp6: mov a,33h ;时显示 mov b,#10 div ab mov 24h,a mov 25h,bdisp7: mov a,24h ;时十位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.4 lcall del1ms setb p2.4disp8: mov a,25h ;时个位显示 mov dptr,#table movc a,@a+dptr mov p0,a clr p2.5 lcall del1ms setb p2.5 retinti0:push acc push psw clr ea mov th0,4ch mov tl0,#00h inc 3ah mov a,3ah cjne a,#40,out mov 3ah,#00 cpl p2.2 inc 31h ;秒加1 mov a,31h cjne a,#60,out mov 31h,#00 inc 32h ;分加1 mov a,32h cjne a,#60,out mov 32h,#00 inc 33h ;时加1 mov a,33h cjne a,#24,out mov 33h,#00out:setb ea pop psw pop acc retitable: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90hdel1ms: mov r7,#10del1:mov r6,#50del2:djnz r6,del2 djnz r7,del1 retdel20ms:mov r5,#40del3:mov r4,#250del4:djnz r4,del4 djnz r5,del3 retkeyer:jnb p3.2,key1 ;分加1按钮 jnb p3.3,key2 ;时加1按钮 sjmp keyoutkey1:lcall del20ms jb p3.2,keyout jnb p3.2,$ inc 32h ;分加1 mov a,32h cjne a,#60,keyout mov 32h,#00 sjmp keyoutkey2:lcall del20ms jb p3.3,keyout jnb p3.3,$ inc 33h ;时加1 mov a,33h cjne a,#24,keyout mov 33h,#00 sjmp keyoutkeyout:retend
-电子元器件采购网(www.ruidan.com)是本土元器件目录分销商,采用“小批量、现货、样品”销售模式,致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储,拥有自营库存超过50,000种,提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。