51单片机倒计时报警器程序

MOV MIN,#0 ;分初始化
MOV HOUR,#0 ;时初始化
MOV MSEC,#0 ;毫秒初始化
MOV TH0,#0DAH ;T0置初值
MOV TL0,#64H
MOV TMOD,#01H
SETB ET0 ;允许T0申请中断
JZ MM ; 为零则继续判断分钟
LJMP CLOCK2 ;不为零则继续计时
MM: MOV A,MIN ;判断分钟是否为零
JZ SS ; 为零则继续判断秒
CJNE A,#01,CLOCK2 ;判断分位是否为1，不为1则蜂鸣器流水灯工作在模式一
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
MOV A,B
CLR P2.7
MOV P0,#0F7H
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
;显示秒
MOV A,SEC
MOV B,#10
DIV AB
CLR P2.7
MOV P0,#0FBH
SETB P2.7
CLR P2.7
CLR P2.3
MOV A,MIN;
CJNE A,#60,J3 ;分满60清0
MOV MIN,#0
LJMP J3
J3: JB K3,A1
LCALL DISPLAY1
LJMP J3
S4: LCALL DELAY
JB K4,A1
AK4:INC HOUR
LJMP HERE
DIS1: LCALL DISPLAY1 ;调用显示1
LJMP HERE
;******************************************
;显示控制子程序
;当定时超过一小时时，数码管显示时-分-秒
DISPLAY1:
;显示秒
LJMP CLOCK3 ;判断分位是否为1，不为1则蜂鸣器流水灯工作在模式二
SS: MOV A,SEC ;判断秒是否为零
JZ SSE ;为零则继续判断毫秒
LJMP CLOCK3
SSE: MOV A,MSEC ;判断毫秒是否为零
JZ RUN ;为零则结束计时
LJMP CLOCK3 ;不为零则工作在模式二
CLOCK2:DEC MSEC ;毫秒减1，蜂鸣器流水灯模式一
MOV A,MSEC
CJNE A,#0FFH,LOOP ;判断毫秒减到0之后是否再减1
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
MOV A,B
CLR P2.7
MOV P0,#0F7H
SETB P2.7
CLR P2.7
MOV R4,#0 ;对R4进行赋初值0
ORG 00H
LJMP START ;上电，跳向主程序
ORG 0BH ;T0的中断入口
LJMP IT0P ;跳转到中端服务程序
ORG 0030H
START:
MOV DPTR,#TABLE
MOV SEC,#0 ;秒初始化
K1 BIT P3.4 ;启动按键控制位
K2 BIT P3.5 ;秒钟控制位
K3 BIT P3.6 ;分钟控制位
K4 BIT P3.7 ;快速计时控制位
SEC EQU R0 ;进行宏定义
MIN EQU R1
HOUR EQU R2
MSEC EQU R3
SETB EA ;总中断允许
MOV P1,#0FEH ;P1口进行初始化
A1: LCALL DISPLAY1 ;调用显示程序1
JNB K1,S1 ;判断k1是否为0；为0则转移到s1程序
JNB K2,S2 ;判断k2是否为0；为0则转移到s2程序
MOV P1,A;
MOV A,SEC
CJNE A,#0FFH,LOOP ;判断秒减到0之后是否再减1
MOV SEC,#59 ;是，装入初值59
DEC MIN ;分减1
MOV A,MIN
CJNE A,#0FFH,LOOP ;判断分减到0之后是否再减1
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
;显示分
MOV A,MIN
MOV B,#10
DIV AB
CLR P2.7
MOV P0,#0FBH
RET
IT0P:CLR TR0 ;中断服务程序
MOV TH0,#0DAH
MOV TL0,#64H
LCALL CLOCK
SETB TR0
RETI
CLOCK: ;判断计时是否结束
MOV A,HOUR ;判断小时是否为零
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
;显示小时
MOV A,HOUR
AK1:SETB TR0 ;启动T0
LJMP HERE; ；原地跳转
S2: LCALL DELAY ;调用延时
JB K2,A1 ;k2为1则转移到A1
AK2:INC SEC ;秒增1
CLR P2.3
MOV A,SEC
CJNE A,#60,J2 ;秒不满60跳转到J2
MOVC A,@A+DPTR
MOV P0,A ;写入位选信号
SETB P2.6 ;锁存位选信号
LCALL DELAY
CLR P2.6
MOV A,B
CLR P2.7
MOV P0,#0DFH
SETB P2.7
CLR P2.7
CLR P2.6
MOV SEC,#0 ;秒满60清0
LJMP J2;
J2: JB K2,A1; ；k2为1跳转到A1
LCALL DISPLAY1; ；调用显示程序1
LJMP J2;
S3: LCALL DELAY ;调用延时
JB K3,A1
AK3:INC MIN
MOV A,B
CLR P2.7
MOV P0,#0FDH
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
SETB P2.3
;延时子程序，时间大约为
;*******************************************************************
DELAY: MOV R7,#5 ;延时
DEL1:MOV R6,#100
DEL2:DJNZ R6,DEL2
DJNZ R7,DEL1
CLR P2.3
MOV A,HOUR
CJNE A,#24,J4 ;时满24清0
MOV HOUR,#0
LJMP J4
J4: JB K4,A1
LCALL DISPLAY1
LJMP J4
HERE: MOV A,HOUR
JNZ DIS1
LCALL DISPLAY2 ;调用显示2
RET
;当定时低于一小时时，数码管显示分-秒-毫秒
DISPLAY2:
;显示毫秒
MOV A,MSEC
MOV B,#10
DIV AB
CLR P2.7
MOV P0,#0EFH
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
;显示分
MOV A,MIN
MOV B,#10
DIV AB
CLR P2.7
MOV P0,#0FEH
MOV B,#10
DIV AB
CLR P2.7
MOV P0,#0FEH
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
SETB P2.7
CLR P2.7
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
LCALL DELAY
CLR P2.6
MOV A,B
CLR P2.7
MOV P0,#0FDH
MOV MSEC,#99 ;是，装入初值99
DEC SEC ;秒减1
MOV A,P1 ; 八个二极管灯以1秒为单位，循环右移
RL A;
CLR P2.3 ;蜂鸣器以秒为单位蜂鸣
CLR P2.6
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6