【正文】 R SETB MOV A,88HLCALL WBYTEMOV A,34HLCALL WBYTELCALL XIANLJMP JIAN0RET。調(diào)年TIAON:CLR ZHUAN2SETB ZHUAN1LCALL XIANJNB ,NIANZJNB ,NIANJLJMP JIAN0NIANZ:LCALL DELAYJNB ,NIANZ1LJMP JIAN0NIANZ1:LCALL XIANJNB ,NIANZ1MOV A,36HADD A,1DA AMOV 36H,ALJMP NIANZ2NIANJ:LCALL DELAYJNB ,NIANJ1LJMP JIAN0NIANJ1:LCALL XIANJNB ,NIANJ1MOV A,36HMOV B,10HDIV ABMOV 66H,BMOV B,10MUL ABADD A,66HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 36H,ACJNE A,96H,NIANZ2MOV 36H,99HNIANZ2:MOV A,36HANL A,0FHMOV 4AH,AMOV A,36HSWAP AANL A,0FHMOV 4BH,ASETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,8CHLCALL WBYTEMOV A,36HLCALL WBYTELCALL XIANLJMP JIAN0RET。調(diào)星期TIAOX:CLR ZHUAN1SETB ZHUAN7LCALL XIANJNB ,XQZJNB ,XQJLJMP JIAN0XQZ:LCALL DELAYJNB ,XQZ1LJMP JIAN0XQZ1:LCALL XIANJNB ,XQZ1MOV A,35HADD A,1DA AMOV 35H,ACJNE A,08H,XQZ2MOV 35H,01HLJMP XQZ2XQJ:LCALL DELAYJNB ,XQJ1LJMP JIAN0XQJ1:LCALL XIANJNB ,XQJ1MOV A,35HMOV B,10HDIV ABMOV 67H,BMOV B,10MUL ABADD A,67HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 35H,ACJNE A,00H,XQZ2MOV 35H,07HXQZ2:SETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,8AHLCALL WBYTEMOV A,35HLCALL WBYTELCALL XIANLJMP JIAN0RET。時(shí)鐘程序RILI:CLR NOPCLR NOPSETB 。啟動連續(xù)讀MOV A,0BFH 。設(shè)多字節(jié)讀命令MOV R1,8 WRITE1:CLR RRC A 。右移位 NOPMOV ,C 。寫一位到DS1302SETB 。寫上升沿有效DJNZ R1,WRITE1 。循環(huán)送8位MOV R0,30H 。數(shù)據(jù)存放首地址MOV R2,8READ0:MOV R3,8 。讀一個(gè)字節(jié)8位READ1:CLR 。讀下降沿有效NOPMOV C,SETB RRC ADJNZ R3,READ1 。循環(huán)讀8位MOV @R0,A 。存入30H開始的單元INC R0DJNZ R2,READ0 。循環(huán)讀8位CLR 。停止傳送MOV A,35H 。星期與年存放數(shù)據(jù)交換XCH A,36HMOV 35H,AMOV R3,6MOV R0,30HMOV R1,40HLOOP:MOV A,@R0 。分離ANL A,0FHMOV @R1,A 。底4位放到40H開始的單元INC R1MOV A,@R0 SWAP AANL A,0FH MOV @R1,A 。高4位放到41HINC R0 INC R1 。后面依次放DJNZ R3,LOOP 。放到年為止MOV 38H,36H 。放星期到38HMOV 4CH,00HMOV 4DH,02HRET。顯示程序XIAN:MOV DPTR,TAB 。設(shè)置函數(shù)表指針MOV P3,08H 。片選年第4位MOV P0,5BH 。年千位為2LCALL DELAY 。延時(shí)顯示MOV P3,09H 。片選年第3位MOV P0,3FH 。年百位為0LCALL DELAY 。延時(shí)顯示MOV P3,0AH 。片選年第2位MOV A,4BH 。取年十位數(shù)據(jù)MOVC A,@A+DPTR。取顯示的數(shù)型碼 MOV P0,A 。顯示年十位數(shù)據(jù)LCALL DELAYMOV P3,0BH 。片選年第1位JNB ZHUAN1,XIA1JNB ZHUAN,XIA1MOV P0,00HLJMP XIA2XIA1:MOV A,4AH 。取年個(gè)位數(shù)據(jù)MOVC A,@A+DPTR。取顯示的數(shù)型碼MOV P0,A 。顯示年個(gè)位數(shù)據(jù)XIA2:LCALL DELAYMOV P3,0CH 。片選月十位MOV A,49H 。取月十位數(shù)據(jù)JNZ XIA3 。判消隱MOV P0,00H 。為0則消隱LJMP XIA4XIA3:MOVC A,@A+DPTR 。取顯示數(shù)型碼 MOV P0,AXIA4:LCALL DELAYMOV P3,0DH 。片選月個(gè)位JNB ZHUAN2,XIA5JNB ZHUAN,XIA5MOV P0,00H LJMP XIA6 。閃爍跳過顯示XIA5:MOV A,48H 。取月個(gè)位數(shù)據(jù)MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA6:LCALL DELAYMOV P3,0EH 。片選日十位MOV A,47H 。取日十位數(shù)據(jù)JNZ XIA7 。判消隱MOV P0,00H 。為0則消隱LJMP XIA8XIA7:MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA8:LCALL DELAYMOV P3,0FH 。片選日個(gè)位JNB ZHUAN3,XIA9JNB ZHUAN,XIA9MOV P0,00HLJMP XIA10 。閃爍跳過顯示XIA9:MOV A,46H 。取日個(gè)位數(shù)據(jù)MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,A XIA10:LCALL DELAYMOV P3,10H 。片選時(shí)十位MOV A,45H 。取時(shí)十位數(shù)據(jù)JNZ XIA11 。判消隱MOV P0,00H 。為0則消隱LJMP XIA12 XIA11:MOVC A,@A+DPTR。取顯示數(shù)型碼MOV P0,AXIA12:LCALL DELAYMOV P3,11H 。片選時(shí)個(gè)位JNB ZHUAN4,XIA13JNB ZHUAN,XIA13MOV P0,00H LJMP XIA14 。閃爍跳過顯示XIA13:MOV A,44H 。取時(shí)個(gè)位數(shù)據(jù)MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA14:LCALL DELAY MOV P3,12H 。片選分十位MOV A,43H 。取分十位數(shù)據(jù)CJNE A,00H,LP1SETB BUZZER4LP1:JNZ XIA15 。判消隱MOV P0,00H 。為0則消隱LJMP XIA16XIA15:MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA16:LCALL DELAYMOV P3,13H 。片選分個(gè)位JNB ZHUAN5,XIA17JNB ZHUAN,XIA17MOV P0,00HLJMP XIA18 。閃爍跳過顯示XIA17:MOV A,42H。取分個(gè)位數(shù)據(jù)CJNE A,00H,LP2SETB BUZZER3LP2:MOVC A,@A+DPTR。取顯示數(shù)型碼MOV P0,AXIA18:LCALL DELAYMOV P3,14H 。片選秒十位MOV A,41H 。取秒十位數(shù)據(jù)CJNE A,00H,LP3SETB BUZZER2LP3:JNZ XIA19 。判消隱MOV P0,00H 。為0則消隱LJMP XIA20XIA19:MOVC A,@A+DPTR。取顯示數(shù)型碼MOV P0,AXIA20:LCALL DELAYMOV P3,15H 。片選秒個(gè)位JNB ZHUAN6,XIA21JNB ZHUAN,XIA21MOV P0,00H LJMP XIA22 。閃爍跳過顯示XIA21:MOV A,40H 。取秒個(gè)位數(shù)據(jù)CJNE A,00H,LP4SETB BUZZER1LP4:MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA22:LCALL DELAYMOV P3,16H 。片選星期位JNB ZHUAN7,XIA23JNB ZHUAN,XIA23MOV P0,00H LJMP XIA24 。閃爍跳過顯示XIA23:MOV A,38H 。取星期位數(shù)據(jù)MOVC A,@A+DPTR 。取顯示數(shù)型碼MOV P0,AXIA24:LCALL DELAYRET。時(shí)鐘寫WBYTE: MOV R1,08H 。寫一個(gè)字節(jié)8位WBYTE2:CLR RRC A 。右移位MOV ,C 。寫一位到DS1302SETB 。寫上升沿有效DJNZ R1,WBYTE2 。循環(huán)送8位RET 。整點(diǎn)報(bào)時(shí)BAOSHI:JNB BUZZER1,REJNB BUZZER2,REJNB BUZZER3,REJNB BUZZER4,REBUZZER:MOV R6,02H 。控制音長CPL LCALL DELAY ?？刂埔粽{(diào)DJNZ R6,BUZZERCLR BUZZER1CLR BUZZER2CLR BUZZER3CLR BUZZER4RE:RET。延時(shí)程序DELAY:MOV R4,02HDELAY1:MOV R5,0FAHDL1:NOPNOPDJNZ R5,DL1DJNZ R4,DELAY1RET。數(shù)型碼TAB:DB 3FH,06H,5BH,4FH,66HDB 6DH,7DH,07H,7FH,6FHEND46 /