16组可调时钟程序.doc

ORG 0000HAJMP MAINORG 001BHLJMP SERVEMAIN:mov p1,#0ffh MOV TMOD,#10H ;设置中断 MOV 20H,#14H CLR A MOV 30H,A MOV 31H,A MOV 32H,A SETB ET1 SETB EA MOV TH1,#3CH MOV TL1,#0B0H SETB TR1 LCALL XIANSHI: LCALL JIANPAN ;调用键盘 ACALL XIAN ;调用显示 SJMP SHI ;显示程序XIAN: MOV P0,#0FFH ;显示初始化 MOV P2,#0FFH MOV R0,#30H MOV R1,#33HHUAN: MOV A,R0 ;缓存程序 SWAP A ANL A,#0FH MOV R1,A INC R1 MOV A,R0 ANL A,#0FH MOV R1,A INC R0 INC R1 CJNE R0,#33H,HUAN MOV R0,#33H MOV A,#0dFHL1: MOV P2,A ;显示程序 MOV DPTR,#TAB MOV A,R0 MOVC A,A+DPTR ACALL DIAN MOV P0,A MOV A,P2 RR A INC R0 MOV R1,#0FfH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV P0,#0FFH MOV P2,#0FFH CJNE R0,#39H, L1 mov r0,#00h RETDIAN: CJNE R0,#34H,L2 ;打点 CLR ACC.7L2: CJNE R0,#36H,L3 CLR ACC.7L3: RETTAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88h,83h,0c6h,0a1h,86h,8eh;键盘程序JIANPAN:LCALLKEY;调用查询程序，对按键状态查询JNZK1LCALLDELAYLJMP RETURNK1:LCALLDELAY;延时确定按键是否真的被按下LCALLKEYJNZK2LJMP RETURNK2: MOV R3,#0EFH;扫描的初始列MOV R4,#00H;列序号K3:MOVP3,R3;逐列扫描JBP3.3,L6movA,#00HLJMPLKL6:JBP3.2,L4MOVA,#04HLJMPLKL4:JBP3.1,L5MOVA,#08HLJMPLKL5:JBP3.0,NEXTMOVA,#0CHLJMPLKNEXT:INCR4;修改列号JNBP3.7,RETURNMOVA,P3RLAMOVR3,ALJMPK3LK: ADDA,R4 JnB TR1,ZM ;判断是不是进入设置状态 CJNE A,#0FH,RETURN ;判断是否输入为设置键 CPL TR1 MOV R0,#33HK8:LCALL DELAY ;等待放开设置键 mov 39h,r0 lcall xian1 mov r0,39hLCALLKEYJNZK8ZM2: LCALLKEY;调用查询程序，对按键状态查询JNZK11LCALLDELAY mov 39h,r0 lcall xian1 mov r0,39hSJMPZM2K11:LCALLDELAY;延时确定按键是否真的被按下LCALLKEYJNZK2SJMPZM2ZM: CJNE A,#0FH,ZM1 ;设置是否结束 ，没输入设置键跳到zm1ZM3: MOV R0,#30H MOV R1,#33HZM4: MOV A,R1 SWAP A INC R1 ADD A,R1 MOV r0,a INC R1 INC R0 CJNE R0,#33H,ZM4 ljmp k4ZM1: MOV R0,A INC R0K5:LCALL DELAY mov 39h,r0 lcall xian1 mov r0,39hLCALLKEYJNZK5 CJNE R0,#39H,ZM2 LCALL ZM3K4:LCALL DELAY lcall xian1LCALLKEYJNZK4 CPL TR1 LJMP RETURNRETURN:RETKEY:MOVP3,#0F0H;查询是否有按键按下MOVA,P3CPLAANLA,#0f0HRETDELAY: MOVR6,#64HL7:MOVR7,#13HL8:NOPNOPNOPDJNZR7,L8DJNZR6,L7 RETxian1: MOV R0,#33H MOV A,#0DFHL12: MOV P2,A ;显示程序 MOV DPTR,#TAB MOV A,R0 MOVC A,A+DPTR ACALL DIAN MOV P0,A MOV A,P2 RR A INC R0 MOV R1,#0FFH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV R1,#0FFH DJNZ R1,$ MOV P0,#0FFH MOV P2,#0FFH CJNE R0,#39H, L12 RETSERVE:PUSH PSW ;中断程序 PUSH ACC MOV TH1,#3CH MOV TL1,#0B0H DJNZ 20H,RETUNT MOV 20H,#14H MOV A,#01H ADD A,32H DA A MOV 32H,A CJNE A,#60H,RETUNT MOV 32H,#00H MOV A,#01H ADD A,31H DA A MOV 31H,A CJNE