秒表计时器

秒 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 计时器 COUNT EQU 51H ;定义小数点第一位，各位为COUNT+1，以此类推 KEY_ZERO EQU P3.7 ;定义清零键 KEY_B_S EQU P3.6 ;定义开始和暂停键 ORG 0000H AJMP MAIN ORG 000BH LJMP TIME ORG 0100H MAIN: MOV SP, #60H ;初始化堆栈 MOV TMOD,#01H MOV TH0,#03CH ;初始化定时器0的溢出时间为50Ms MOV TL0,#0B0H CLR F0 ;KEY_B_S没按 MOV R0,#2 MOV COUNT, #00H MOV COUNT+1,#00H MOV COUNT+2,#00H MOV COUNT+3,#00H SETB EA ;启动全局中断 SETB ET0 ;启动定时器 MAIN1: LCALL DISP JB KEY_ZERO,L1 ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP JNB KEY_ZERO,$ AJMP ZERO L1: JB KEY_B_S,EXIT ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP ACALL DISP JNB KEY_B_S,$ AJMP B_S ZERO: CLR TR0 ;定时器清零 MOV TH0,#03CH MOV TL0,#0B0H MOV COUNT,#00H MOV COUNT+1,#00H MOV COUNT+2,#00H MOV COUNT+3,#00H AJMP EXIT B_S: JB F0,STOP ;第一次按，启动 SETB TR0 SETB F0 AJMP EXIT STOP: CLR TR0 ;第二次按，停止 MOV TH0,#03CH MOV TL0,#0B0H CLR F0 EXIT: AJMP MAIN1 TIME: CLR ET0 ;关闭定中断 CLR TR0 ;关闭定时器 MOV TH0,#03CH MOV TL0,#0B0H DJNZ R0,TIME2 MOV R0,#2 INC COUNT MOV A,COUNT CJNE A,#10,TIME2 ;十分位满10进1 CPL P1.0 INC COUNT+1 MOV COUNT,#00H MOV A,COUNT+1 CJNE A,#10,TIME2 ;个位满10进1 CLR P1.1 INC COUNT+2 MOV COUNT+1,#00H MOV A,COUNT+2 CJNE A,#10,TIME2;十位满10进1 INC COUNT+3 MOV COUNT+2,#00H MOV A,COUNT+3 CJNE A,#10,TIME2;百位满10进1 MOV COUNT+3,#00H TIME2: SETB TR0 SETB ET0 RETI DISP: SETB P2.6 ;开通段选 CLR P2.7 MOV DPTR,#TAB1 MOV A,COUNT MOVC A,@A+DPTR MOV P0,A SETB P2.7 ;点亮十分位 CLR P2.6 MOV R6,#00H MOV DPTR,#TAB2 MOV A,R6 MOVC A,@A+DPTR MOV P0,A LCALL DEL2ms INC R6 ;********************************** ;************************************** SETB P2.6 ;开通段选 CLR P2.7 MOV DPTR,#TAB1 MOV A,COUNT+1 MOVC A,@A+DPTR MOV P0,A SETB P0.7 SETB P2.7 ;点亮个位 CLR P2.6 MOV DPTR,#TAB2 MOV A,R6 MOVC A,@A+DPTR MOV P0,A LCALL DEL2ms INC R6 ;********************************** ;*********************************** SETB P2.6 ;开通段选 CLR P2.7 MOV DPTR,#TAB1 MOV A,COUNT+2 MOVC A,@A+DPTR MOV P0,A SETB P2.7 ;点亮十位 CLR P2.6 MOV DPTR,#TAB2 MOV A,R6 MOVC A,@A+DPTR MOV P0,A LCALL DEL2ms INC R6 ;********************************************** ;*********************************************** SETB P2.6 ;开通段选 CLR P2.7 MOV DPTR,#TAB1 MOV A,COUNT+3 MOVC A,@A+DPTR MOV P0,A SETB P2.7 ;点亮百位 CLR P2.6 MOV DPTR,#TAB2 MOV A,R6 MOVC A,@A+DPTR MOV P0,A LCALL DEL2ms MOV R6,#00H RET ;****************************** ;********************************* ; 延时程序 DEL2ms: MOV R3,#1 LOOP: MOV R4,#10 LOOP1: MOV R5,#100 DJNZ R5,$ DJNZ R4,LOOP1 DJNZ R3,LOOP RET OPEN_LED: TAB1: DB 03FH,006H,05BH,04FH,066H,06DH,07DH,007H,07FH,06FH ;0 1 2 3 4 5 6 7 8 9 TAB2: DB 11011111B,11101111B,11110111B,11111011B ;十分位;个位;十位;百位 END