可调的实时时钟

1、;可调的实时时钟;TCOUNT EQU R1 ;用于中断计数SECOND EQU R2;用于秒计数MINIT EQUR3;分计数HOUR EQUR4;时计数COUNT EQUR5;调节时，分，秒的标志位INCR EQU P1A0;增加时间DECR EQU P1A1 ;减少时间SWITCH EQU P1A2用于时，分，秒调节的切换ORG 0000HAJMP MAINORG 000BHLJMP interrupt0;ORG 0040H;主函数;MAIN: ACALL INTIALMOV DPTR,#0003HMOV A,#80HMOVX DPTR,ALOOP:ACALL DISPLAY; ACAL

2、L TIMEADJUSTAJMPLOOP;动态显示显示程序;DISPLAY:MOV A,SECOND分解秒MOV B,#10DIV ABMOV DPTR,#TABLE送十位数MOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送段码MOV DPTR,#0001HMOV A,#11101111BMOVX DPTR,A;送位码ACALL DELAYMOV A,B;送个位数MOV DPTR,#TABLEMOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送段码MOV DPTR,#0001HMOV A,#11011111BMOVX DPTR,A;

3、送位码ACALL DELAYMOV A,MINIT 分解分MOV B,#10DIV ABMOV DPTR,#TABLE送十位数MOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送十位数送段码MOV DPTR,#0001HMOV A,#11111011BMOVX DPTR,A;送位码ACALL DELAYMOV A,B;送个位数MOV DPTR,#TABLEMOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送段码MOV DPTR,#0001HMOV A,#11110111BMOVX DPTR,A;送位码ACALL DELAYMOV A,

4、HOUR;分 解时MOV B,#10DIV ABMOV DPTR,#TABLE;送十位数MOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送十位数送段码MOV DPTR,#0001HMOV A,#11111110BMOVX DPTR,A;送位码ACALL DELAYMOV A,B;送个位数MOV DPTR,#TABLEMOVC A,A+DPTRMOV DPTR,#0000HMOVX DPTR,A;送段码MOV DPTR,#0001HMOV A,#11111101BMOVX DPTR,A;送位码ACALL DELAYRET;中断初始化子程序;INTIAL:MOV T

5、COUNT,#00HMOV SECOND,#59MOV MINIT,#59MOV HOUR,#23MOV COUNT,#00HMOV TMOD ,#01HMOV TH0,#3CHMOV TL0,#0B0HMOV IE,#82HSETB TR0RET;查表;TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;延时子函数;DELAY: MOV R7,#248DJNZ R7,$;MOV DPTR,#0000H;关闭段显示MOV A,#80HMOVX DPTR,AMOV DPTR,#0001H;关闭位显示MOV A,#11110101BMOVX DPTR

6、,A;拖尾效应处理;TIMEADJUST:JB SWITCH,JMP0 ;无按键按下则跳出结束，有按键按下则进入时间调整CLR TR0;有按键按下则关闭定时器，进入时间调整状态JNB SWITCH,$;松手检测INC COUNTJMP0:MOV A,COUNTCJNE A,#00,JMP1;不等于 0 则去判 1AJMP OVERJMP1:CJNE A,#01,JMP2;不等于 1 则去判 2JB INCR,JMPDEC1 ;无增加键按下则转去判断有无减少键按下JNB INCR,$INC SECONDMOV A,#60 ;此种判断一个数相等的方法，避免了 DJNZ指令的必须先减一在判零XRL

7、A,SECONDJNZ JMPDEC1MOV SECOND,#00JMPDEC1:JB DECR,OVERJNB DECR,$DEC SECONDMOV A,#0FFHXRL A,SECONDJNZ OVERMOV SECOND,#59AJMP OVERJMP2:CJNE A,#02,JMP3JB INCR,JMPDEC2无增加键按下则转去判断有无减少键按下JNB INCR,$INC MINITMOV A,#60XRL A,MINITJNZ JMPDEC2MOV MINIT,#00JMPDEC2:JB DECR,OVERJNB DECR,$DEC MINITMOV A,#0FFHXRL A,M

8、INITJNZ OVERMOV MINIT,#59AJMP OVERJMP3:CJNE A,#03,OVER1JB INCR,JMPDEC3无增加键按下则转去判断有无减少键按下JNB INCR,$INC HOURMOV A,#24 XRL A,HOUR JNZ JMPDEC3 MOV HOUR,#00JMPDEC3:JB DECR,OVER JNB DECR,$ DEC HOUR MOV A,#0FFH XRL A,HOUR JNZ OVERMOV HOUR,#23 AJMP OVEROVER1:MOV COUNT,#00SETB TR0OVER:; RETRET;中断服务子程序;interrupt0:;PUSH ACC;PUSH PSWMOV TH0,#3CHMOV TL0,#0B0HINC TCOUNTMOV A,TCOUNTCJNE A,#20,NEXTMOV TCOUNT, #00HINC SECONDMOV A,SECONDCJNE A,#60,NEXTMOV SE