51单片机电子时钟

table:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h ;数字0—9 del1ms:mov r7,#10 ;1ms延时子程序del1: mov r6,#50del2:djnz r6,del2djnz r7,del1retdel20ms:mov r5,#40 ;20ms延时子程序del3: mov r4,#250del4: djnz r4,del4djnz r5,del3retkeysan:jnb p3.4,key0 ;秒、分、时选择jnb p3.2,key1 ;秒、分、时加1按钮jnb p3.3,key4 ;秒、分、时减1按钮sjmp keyoutkey0: lcall del20ms ;20ms延时消抖jb p3.4,keyout ;按下按键就往下，否则返回jnb p3.4,$ ;等待按键放开clr ea ;关定时器中断inc 36h ;36h为秒、分、时选择计数单元mov a,36hcjne a,#4,keyoutmov 36h,#00 ;清36h，位下次做准备setb easjmp keyoutkey1: lcall del20ms ;20ms延时消抖jb p3.2,keyout ;按下按键就往下，否则返回主程序clr ea ;关定时器中断jnb p3.2,$ ;等待按键放开mov a,36h cjne a,#3,key2inc 33h ;第三次为时加1mov a,33hcjne a,#24,keyoutmov 33h,#00setb easjmp keyoutkey2:mov a,36hcjne a,#2,key3inc 32hmov a,32hcjne a,#60,keyoutmov 32h,#00setb easjmp keyoutkey3:inc 31hmov a,31hcjne a,#60,keyoutmov 31h,#00setb easjmp keyoutkeyout:retkey4: lcall del20msjb p3.3,keyoutclr eajnb p3.3,$mov a,36hcjne a,#3,key5dec 33h ;时减1mov a,33hcjne a,#24,keyoutmov 33h,#23setb easjmp keyoutkey5:mov a,36hcjne a,#2,key6dec 32h ;分减1mov a,32hcjne a,#60,keyoutmov 32h,#59setb easjmp keyoutkey6:dec 31h ;秒减1mov a,31hcjne a,#60,keyoutmov 31h,#59setb easjmp keyoutend