超强多功能电子钟程序 作者： 时间：2016-11-29 来源：网络 加入技术交流群 扫码加入和技术大咖面对面交流海量资料库查询 收藏 <a href='https://ad.eepw.com.cn/www/delivery/ck.php?n=a635e61e&cb=INSERT_RANDOM_NUMBER_HERE' target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=88&cb=INSERT_RANDOM_NUMBER_HERE&n=a635e61e' border='0' alt='' /></a> <a href='https://ad.eepw.com.cn/www/delivery/ck.php?n=a576c0a2&cb=INSERT_RANDOM_NUMBER_HERE' target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=87&cb=INSERT_RANDOM_NUMBER_HERE&n=a576c0a2' border='0' alt='' /></a> ;************************;秒表存储功能;************************SAVETIME: MOV R4,3AHMOV A, 3BHCJNE A,#0AH,SAVEMIDRETSAVEMID: INC R4MOV 3AH,R4MOV 3BH,R4CJNE R4,#01H,SAVE1MOV R0,#80HLJMP SAVE10SAVE1: CJNE R4,#02H,SAVE2MOV R0,#88HLJMP SAVE10SAVE2: CJNE R4,#03H,SAVE3MOV R0,#90HLJMP SAVE10SAVE3: CJNE R4,#04H,SAVE4MOV R0,#98HLJMP SAVE10SAVE4: CJNE R4,#05H,SAVE5MOV R0,#0A0HLJMP SAVE10SAVE5: CJNE R4,#06H,SAVE6MOV R0,#0A8HLJMP SAVE10SAVE6: CJNE R4,#07H,SAVE7MOV R0,#0B0HLJMP SAVE10SAVE7: CJNE R4,#08H,SAVE8MOV R0,#0B8HLJMP SAVE10SAVE8: CJNE R4,#09H,SAVE9MOV R0,#0C0HLJMP SAVE10SAVE9: CJNE R4,#0AH,SAVE10MOV R0,#0C8HSAVE10: MOV @R0,40HINC R0MOV @R0,41HINC R0MOV @R0,42HINC R0MOV @R0,43HINC R0MOV @R0,44HINC R0MOV @R0,45HINC R0MOV @R0,46HINC R0MOV @R0,47HRET;****************************;蜂鸣器程序，查询是否全部为0;***************************BUZZER: PUSH ACCPUSH BPUSH PSWMOV R4,#00HMOV R6,#7FHBUZZTURN: MOV A,#8HADD A,R6MOV R0,AMOV R6,AMOV A,@R0 CJNE A,NUMBER_H2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_G2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_F2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_E2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_D2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_C2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_B2,BUZZER_1DEC R0MOV A,@R0 CJNE A,NUMBER_A2,BUZZER_1 MOV 3AH,R4CLR BUZZMOV 39H,#1BUZZER_1: INC R4CJNE R4,#0AH,BUZZTURNBUZZER_2:MOV A,NUMBER_A ;时十位CJNE A,#0H,RETURN3MOV A,NUMBER_B ;时个位CJNE A,#0H,RETURN3MOV A,NUMBER_C ;分十位CJNE A,#0H,RETURN3MOV A,NUMBER_D ;分个位CJNE A,#0H,RETURN3MOV A,NUMBER_E ;秒十位CJNE A,#0H,RETURN3MOV A,NUMBER_F ;秒个位CJNE A,#0H,RETURN3MOV A,NUMBER_G ;秒十分位CJNE A,#0H,RETURN3MOV A,NUMBER_H ;秒百分位CJNE A,#0H,RETURN3CLR BUZZ ;开蜂鸣器CLR TR0 ;关计数器0CLR EX0 ;关外部中断0 MOV 39H,#0 CLR P3.7POP PSWPOP BPOP ACCHERE: LJMP MAIN0 RETURN3:POP PSWPOP BPOP ACCRET ;**********************************;整点报时;**********************************RING: PUSH ACCPUSH BPUSH PSWMOV A,NUMBER_C6 ;分十位CJNE A,#0H,RINGOUTMOV A,NUMBER_D6 ;分个位CJNE A,#0H,RINGOUTMOV A,NUMBER_E6 ;秒十位CJNE A,#0H,RINGOUTMOV A,NUMBER_F6 ;秒个位CJNE A,#0H,RINGOUTMOV A,NUMBER_G6 ;秒十分位CJNE A,#0H,RINGOUTMOV A,NUMBER_H6 ;秒百分位CJNE A,#0H,RINGOUTCLR BUZZMOV 3EH, #1RINGOUT: MOV A,3EHCJNE A,#1,RING_OUTMOV A,NUMBER_E6 ;秒十位CJNE A,#1H,RING_OUTSETB BUZZMOV 3EH, #0RING_OUT:POP PSWPOP BPOP ACCRET;**********************************;闹钟程序;**********************************ALARMCLOCK:PUSH ACCPUSH BPUSH PSW;SETB 20H.1JNB 20H.1,ALARM_OUT1 ;启动闹钟标志位0关，1开MOV R0,#0D0HMOV A,@R0 ;时十位CJNE A,NUMBER_A6,ALARM_OUTMOV R0,#0D1HMOV A,@R0 ;时个位CJNE A,NUMBER_B6,ALARM_OUTMOV R0,#0D2HMOV A,@R0 ;分十位CJNE A,NUMBER_C6,ALARM_OUTMOV R0,#0D3HMOV A,@R0 ;分个位CJNE A,NUMBER_D6,ALARM_OUTMOV R0,#0D4HMOV A,@R0 ;秒十位CJNE A,NUMBER_E6,ALARM_OUTMOV R0,#0D5HMOV A,@R0 ;秒个位CJNE A,NUMBER_F6,ALARM_OUTMOV R0,#0D6HMOV A,@R0 ;秒十分位CJNE A,NUMBER_G6,ALARM_OUTMOV R0,#0D7HMOV A,@R0 ;秒百分位CJNE A,NUMBER_H6,ALARM_OUTCLR BUZZSETB 20H.2ALARM_OUT:JNB 20H.2,ALARM_OUT1 ;关闹钟铃声标志MOV R0,#0D3H ;分个位MOV A,@R0INC ACJNE A,NUMBER_D6,ALARM_OUT1MOV R0,#0D4HMOV A,@R0 ;秒十位CJNE A,NUMBER_E6,ALARM_OUT1MOV R0,#0D5HMOV A,@R0 ;秒个位CJNE A,NUMBER_F6,ALARM_OUT1MOV R0,#0D6HMOV A,@R0 ;秒十分位CJNE A,NUMBER_G6,ALARM_OUT1MOV R0,#0D7HMOV A,@R0 ;秒百分位CJNE A,NUMBER_H6,ALARM_OUT1SETB BUZZCLR 20H.2 ;关闹钟铃声标志ALARM_OUT1:POP PSWPOP BPOP ACCRET;**********************************;闹钟赋初值程序;**********************************ALARMC: PUSH ACCPUSH BPUSH PSWJB 20H.0,ALARMCOUT ;判断是否可以改变定时的时间，0可以，1不可以MOV R2,#09HMOV R1,#0D0HSETB 20H.0 ;判断是否可以改变定时的时间，0可以，1不可以ALARMCOUT:POP PSWPOP BPOP ACCRET;**********************************;更改闹钟时间程序;**********************************ACKCHANGE:PUSH ACCPUSH BPUSH PSWMOV R2,#09HMOV R1,#0D0HMOV R0,#0D0HBACK_2: MOV @R0,#0AH ;D0~D8是存储闹钟空间,只能在初始化时清0INC R0CJNE R0,#0D8H,BACK_2;CLR 20H.0POP PSWPOP BPOP ACCRET;**********************************;启动/关闭闹钟;**********************************ACKSTART: PUSH ACCPUSH BPUSH PSWMOV A,4BH ; RL A MOV 4BH,AJNB ACC.1,ACK_OUT ;查询，A最低位为0时暂停计时，为1继续计时SETB 20H.1 ;启动闹钟标志位0关，1开SETB P3.4LJMP ACKOUTACK_OUT: CLR 20H.1 ;启动闹钟标志位0关，1开CLR P3.4ACKOUT: POP PSWPOP BPOP ACCRET;**********************************;显示程序;**********************************DISPLAY: PUSH ACCPUSH BPUSH PSWMOV R3,#0FEHMOV A,39HCJNE A,#5,YU_0MOV R0,#37HLJMP DISPLAY_AYU_0: CJNE A,#1,YU_1MOV R4,3AHINC R4CJNE R4,#01H,SAVE_1MOV R0,#87HLJMP DISPLAY_ASAVE_1: CJNE R4,#02H,SAVE_2MOV R0,#8FHLJMP DISPLAY_ASAVE_2: CJNE R4,#03H,SAVE_3MOV R0,#97HLJMP DISPLAY_ASAVE_3: CJNE R4,#04H,SAVE_4MOV R0,#9FHLJMP DISPLAY_ASAVE_4: CJNE R4,#05H,SAVE_5MOV R0,#0A7HLJMP DISPLAY_ASAVE_5: CJNE R4,#06H,SAVE_6MOV R0,#0AFHLJMP DISPLAY_ASAVE_6: CJNE R4,#07H,SAVE_7MOV R0,#0B7HLJMP DISPLAY_ASAVE_7: CJNE R4,#08H,SAVE_8MOV R0,#0BFHLJMP DISPLAY_ASAVE_8: CJNE R4,#09H,SAVE_9MOV R0,#0C7HLJMP DISPLAY_ASAVE_9: CJNE R4,#0AH,YU_1MOV R0,#0CFH ;动态显示初始化，使r0指向缓冲区首地址LJMP DISPLAY_AYU_1: CJNE A,#2,YU_2MOV R0,#0D7HLJMP DISPLAY_AYU_2: CJNE A,#3,YU_3MOV R0,#0DFHLJMP DISPLAY_AYU_3: CJNE A,#4,YU_4MOV R0,#0EFHLJMP DISPLAY_AYU_4: MOV R0,#47HDISPLAY_A:MOV DPTR,#TABLEMOV A,@R0MOVC A,@A+DPTR MOV P2,R3 MOV P0,A ACALL DELAYDISDEC R0MOV A,R3JNB ACC.7,LD1RL AMOV R3,ALJMP DISPLAY_ALD1: POP PSWPOP BPOP ACCRET; *********************;查表程序;*********************TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0F7H,0FEH,0BFH,0FFH; 0 1 2 3 4 5 6 7 8 9 A B C DRET DELAYDIS: MOV R7,#250 ;04HDELDIS: DJNZ R7,DELDISRET;************************************;计分器选择程序A/B;************************************SCOREAB: PUSH ACCPUSH BPUSH PSWMOV A,4CH ; RL A MOV 4CH,AJNB ACC.1,SCO_B ;查询，调整分数SETB 20H.3SETB P3.1CLR P3.7 ;计分器标志位,甲A调整LJMP SCOOUT SCO_B:CLR 20H.3 ;计分器标志位,乙B调整SETB P3.7CLR P3.1SCOOUT: POP PSWPOP BPOP ACCRET;************************************;计分器分数调整：加1;************************************SCOREINC: PUSH ACCPUSH BPUSH PSWJNB 20H.3,INCB ;计分器标志位,0时乙B调整MOV R0,#0DAH ;1时甲A乙B调整LJMP SCOMID_0INCB: MOV R0,#0DFHSCOMID_0: MOV A,@R0INC AMOV @R0,ACJNE A,#0AH,INCAB_0MOV A,#0MOV @R0,ADEC R0MOV A,@R0CJNE A,#0DH,SCOYUMOV A,#0SCOYU: INC AMOV @R0,ACJNE A,#0AH,INCAB_0MOV A,#0MOV @R0,ADEC R0MOV A,@R0CJNE A,#0DH,SCOWEIMOV A,#0SCOWEI: INC AMOV @R0,AINCAB_0: POP PSWPOP BPOP ACCRET;************************************;计分器分数调整：减1;************************************SCOREDEC: PUSH ACCPUSH BPUSH PSWSETB PSW.3CLR PSW.4JNB 20H.3,DECB ;计分器标志位,0时乙B调整MOV R0,#0DAH ;1时甲A乙B调整LJMP SCOMID_1DECB: MOV R0,#0DFH ;个位SCOMID_1: MOV A,@R0DEC AMOV @R0,ACJNE A,#0FFH,DECAB_5MOV R1,#0DEHMOV A,@R1CJNE A,#00H,DECABPENGMOV R1,#0DDHMOV A,@R1CJNE A,#0DH,DECAB_1MOV A,#0MOV @R0,ALJMP DECAB_5DECABPENG:CJNE A,#0DH,DECAB_1MOV A,#0MOV @R0,ALJMP DECAB_5LJMP DECAB_2 DECAB_1: MOV A,#9DECAB_2: MOV @R0,ADEC R0 ;十位MOV A,@R0DEC AMOV @R0,ACJNE A,#0FFH,DECAB_6MOV R1,#0DDHMOV A,@R1CJNE A,#00H,DECAB_YUMOV A,#0DHMOV @R0,ALJMP DECAB_5DECAB_6: CJNE A,#00H,DECAB_5MOV R1,#0DDHMOV A,@R1CJNE A,#0DH,DECAB_YUMOV A,#0DHMOV @R0,ALJMP DECAB_5DECAB_YU: CJNE A,#0DH,DECAB_3MOV A,#0DHLJMP DECAB_4DECAB_3: MOV A,#9DECAB_4: MOV @R0,ADEC R0 ;百位MOV A,@R0DEC AMOV @R0,ACJNE A,#00H,DECAB_5MOV A,#0DHMOV @R0,ADECAB_5: CLR PSW.3CLR PSW.4POP PSWPOP BPOP ACCRET 上一页 1 2 3 下一页
加入技术交流群
评论