51电子钟.doc

MS5 EQU 30H ;5ms定义单元SHI EQU 31H ;时单元定义FEN EQU 32H ;分单元定义MIAO EQU 33H ;秒单元定义BUF EQU 34H ;从34H开始连续存放时十位，时个位，一杠，分十位，分个位HH EQU 40H ;脑钟小时FF EQU 41H ;闹钟分MM EQU 42H ;闹钟秒DENG BIT P3.5 ;闹钟指示灯BIAOZ BIT P3.6 ;开关闹钟SPK BIT P3.7 ;蜂鸣器ALB EQU 20H.0 ;闹钟标志K1 EQU P1.0K2 EQU P1.1K3 EQU P1.2K4 EQU P1.3K5 EQU P1.4K6 EQU P1.5MOV SP,#60H;- ORG 00HAJMP MAIN ORG 0BH AJMP TIME0 MAIN:SETB DENG CLR ALBACALL CHUSHIACALL INTOLOOP:ACALL NAOPRO ACALL CONVACALL DISPLAYJB K6,LOOP1ACALL BIAOSJMP LOOPLOOP1:JB K1,LOOP2ACALL SETTIMESJMP LOOPLOOP2:JB K4,LOOPACALL SETNAOSJMP LOOP;-CHUSHI: ;设置初始时间MOV SHI,#11MOVFEN,#59MOV MIAO,#49MOV MS5,#0MOV HH,#12;闹钟初始值MOV FF,#0MOV MM,#0RET;-INTO:;定时器T0初始化MOV TMOD,#01HMOV TL0,#0B0HMOV TH0,#3CHMOV IE,#82HSETB TR0RET;-TIME0: ;中断服务PUSH ACCMOV TL0,#(65536-49980)MOD 256 ;考虑到软件因素 减少赋定时器为49980MOV TH0,#(65536-49980)/256INC MS5MOV A,MS5CJNE A,#20,TT1MOV MS5,#0INC MIAOMOV A,MIAOCJNE A,#60,TT1MOV MIAO,#0INC FENMOV A,FENCJNE A,#60,TT1MOV FEN,#0INC SHIMOV A,SHICJNE A,#24,TT1MOV SHI,#0MOV FEN,#0MOV MIAO,#0TT1:POP ACCRETI;-CONV: ;转换子程序MOV A,SHI ;转换小时 存到34 35HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF,AMOV A,BMOVC A,A+DPTRMOV BUF+1,AMOV A,FEN ;转换分 存到37 38HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF+3,AMOV A,BMOVC A,A+DPTRMOV BUF+4,AMOV A,MIAO ;转换秒 存到40 41HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF+6,AMOV A,BMOVC A,A+DPTRMOV BUF+7,AMOV BUF+2,#0BFH;第三个位置显示一杠MOV BUF+5,#0BFH ;第五个位置显示一杠RETTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;阳码表;-DISPLAY: ;显示子程序MOV R1,#BUFMOV A,#01HMOV R2,#8Dp1:MOV P2,APUSH ACCMOV A,R1MOV P0,AACALL DELAYPOP ACCRL AINC R1CJNE R1,#BUF+8,DYMOV R1,#BUFDY:DJNZ R2,Dp1RET;-BIAO:CPL ALB ;闹钟开关 CPL BIAOZBIAO1:ACALL CONVACALL DISPLAYJNB K6,BIAO1RET;-SETTIME:;设置时间CLR TR0TT:ACALL DISPLAY ;设置小时TS:JNB K1,TTTSS:ACALL DISPLAYSJNB K1,TFJNB K2,JIASJNB K3,JIANSJNB K5,QUESJMP TSSJIAS:INC SHI;加时子程序MOV A,SHICJNE A,#24,K2SMOV SHI,#0K2S:ACALL CONVACALL DISPLAYJNB K2,K2SSJMP TSSJIANS:DEC SHI ;减时子程序MOV A,SHICJNE A,#255,K3SMOV SHI,#23K3S:ACALL CONVACALL DISPLAYJNB K3,K3SSJMP TSSQUE:ACALL BZSETB TR0QQ:ACALL CONVACALL DISPLAYJNB K5,QQLJMP LOOP;-TM:ACALL DISPLAY;设置秒JNB K1,TMTMM:ACALL DISPLAYMJNB K1,TSJNB K2,JIAMJNB K3,JIANMJNB K5,QUEJMP TMMJIAM:INC MIAO ;加秒MOV A,MIAOCJNE A,#60,K2MMOV MIAO,#0K2M:ACALL CONVACALL DISPLAYJNB K2,K2MJMP TMMJIANM:DEC MIAO ;减秒MOV A,MIAOCJNE A,#255,K3MMOV MIAO,#59K3M:ACALL CONVACALL DISPLAYJNB K3,K3MJMP TMM;-TF:ACALL DISPLAY ;设置分钟JNB K1,TFTFF:ACALL DISPLAYFJNB K1,TMJNB K2,JIAFJNB K3,JIANFJNB K5,QUEJMP TFFJIAF:INC FEN ;加分钟MOV A,FENCJNE A,#60,K2FMOV FEN,#0K2F:ACALL CONVACALL DISPLAYJNB K2,K2FJMP TFFJIANF:DEC FEN ;减分钟MOV A,FENCJNE A,#255,K3FMOV FEN,#59K3F:ACALL CONVACALL DISPLAYJNB K3,K3FJMP TFF;-DISPLAYS: ;时闪子程序MOV R3,#20DISS:MOV R1,#BUF+2MOV A,#04HMOV R2,#6ACALL DP1DJNZ R3,DISSMOV R3,#20DIS2:MOV R1,#BUFMOV A,#01HMOV R2,#8ACALL DP1DJNZ R3,DIS2RETDISPLAYF: ;分闪子程序MOV R3,#20DISF:MOV R1,#BUF+5MOV A,#20HMOV R2,#6ACALL DP1DJNZ R3,DISFMOV R3,#20ACALL DIS2RETDISPLAYM: ;秒闪子程序MOV R3,#20DISM:MOV R1,#BUFMOV A,#01HMOV R2,#6ACALL DP1DJNZ R3,DISMMOV R3,#20ACALL DIS2RET;-SETNAO:;设置闹钟时间TTN:ACALL CONVNAOACALL DISPLAY ;闹设置小时TSN:JNB K4,TTNTSSN:ACALL DISPLAYSJNB K4,TFNJNB K2,JIASNJNB K3,JIANSNJNB K5,QUENSJMP TSSNJIASN:INC HH;闹加时子程序MOV A,HHCJNE A,#24,K2SNMOV HH,#0K2SN:ACALL CONVNAOACALL DISPLAYJNB K2,K2SNSJMP TSSNJIANSN:DEC HH ;闹减时子程序MOV A,HHCJNE A,#255,K3SNMOV HH,#23K3SN:ACALL CONVNAOACALL DISPLAYJNB K3,K3SNSJMP TSSNQUEN:ACALL BZSETB TR0LJMP LOOP;-TMN:ACALL CONVNAOACALL DISPLAY;闹设置秒JNB K4,TMNTMMN:ACALL DISPLAYMJNB K4,TSNJNB K2,JIAMNJNB K3,JIANMNJNB K5,QUENJMP TMMNJIAMN:INC MM ;闹加秒MOV A,MMCJNE A,#60,K2MNMOV MM,#0K2MN:ACALL CONVNAOACALL DISPLAYJNB K2,K2MNJMP TMMNJIANMN:DEC MM ;闹减秒MOV A,MMCJNE A,#255,K3MNMOV MM,#59K3MN:ACALL CONVNAOACALL DISPLAYJNB K3,K3MNJMP TMMN;-TFN:ACALL CONVNAOACALL DISPLAY ;闹设置分钟JNB K4,TFNTFFN:ACALL DISPLAYFJNB K4,TMNJNB K2,JIAFNJNB K3,JIANFNJNB K5,QUENJMP TFFNJIAFN:INC FF ;闹加分钟MOV A,FFCJNE A,#60,K2FNMOV FF,#0K2FN:ACALL CONVNAOACALL DISPLAYJNB K2,K2FNJMP TFFNJIANFN:DEC FF ;减分钟MOV A,FFCJNE A,#255,K3FNMOV FF,#59K3FN:ACALL CONVNAOACALL DISPLAYJNB K3,K3FNJMP TFFN;-NAOPRO: ;检查闹钟JB ALB,TI3RETTI3:MOV A,SHIMOV B,HHCJNE A,B,BKMOV A,FENMOV B,FFCJNE A,B,BKMOV A,MIAOMOV B,MMCJNE A,B,BKACALL TIMEOUTBK:RET;-CONVNAO: ;转换子程序MOV A,HH ;转换小时 存到34 35HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF,AMOV A,BMOVC A,A+DPTRMOV BUF+1,AMOV A,FF ;转换分 存到37 38HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF+3,AMOV A,BMOVC A,A+DPTRMOV BUF+4,AMOV A,MM ;转换秒 存到40 41HMOV B,#10DIV ABMOV DPTR,#TABMOVC A,A+DPTRMOV BUF+6,AMOV A,BMOVC A,A+DPTRMOV BUF+7,AMOV BUF+2,#10111111B;第三个位置显示一杠MOV BUF+5,#10111111B ;第五个位置显示一杠RET;-TIMEOUT: ;闹钟指示灯亮MOV R0,#30X4:MOV R3,#2X3:MOV R4,#10 X1:CPL DENGACALL CONVJB K5,X9SJMP X6X9:ACALL DISPLAYDJNZ R4,X1JB K5,X8SJMP X6X8:ACALL BZDJNZ R3,X3JB K5,X7SJMP X6X7:MOV R4,#95X2:CPL DENGACALL CONVJB K5,X10SJMP X6X10:ACALL DISP