【正文】 送初始化值到液晶屏顯示 LCALL D18B20_INIT 。初始化 DS18B20 LCALL Set1302 。設(shè)置 DS1302 參數(shù) MAIN: JB DONE, SEL 。標(biāo)志位 DONE 為 1 時進(jìn)入調(diào)整模式 LCALL DISPLAY CLR FLAG 。清時鐘停止的標(biāo)志位 LCALL SETKEY 。掃描 SET 功能鍵 AJMP MAINSEL: LCALL KEYDONE 。調(diào)用調(diào)整模式 AJMP MAIN 。返回再查詢。***************調(diào)整模式選擇子程序*******************KEYDONE: JB FLAG, SELA 。時鐘是否停止,是停止跳 SELA LCALL SHUT_WP 。關(guān)閉寫保護(hù) LCALL READ_TIME 。讀時鐘:秒 分 鐘 日 月 星期 年 數(shù)據(jù) LCALL SHUT_CLOCK 。停止時鐘計時 LCALL START_WP 。開寫保護(hù) SETB FLAG 。關(guān)閉時鐘標(biāo)志38SELA: LCALL SETKEY MOV A,COUNT DEC A CLR C RLC A MOV DPTR,FUN JMP @A+DPTR 。修改對象的散轉(zhuǎn)FUN: AJMP SEC AJMP MIN AJMP HOU AJMP WEEKS AJMP DAYS AJMP MON AJMP YEARS AJMP FULL。****************調(diào)整秒的操作***********SEC: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整分的操作***********MIN: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整時的操作***********HOU: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整星期的操作**********39WEEKS: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整日的操作***********DAYS: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整月的操作***********MON: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。****************調(diào)整年的操作***********YEARS: LCALL OUTKEY LCALL UPKEY LCALL DOWNKEY LCALL ST_COUNT AJMP OUT_KEYDONE。**************SET 鍵按 8 次跳出**********FULL: MOV COUNT,00H CLR DONE AJMP OUT_KEYDONEOUT_KEYDONE: LCALL Set1302 RET。*******子程序模式選擇按鍵 SET***********SETKEY: CALL DELAY_BY_R6 。100ms MOV R6,20040 CALL DELAY_BY_R6 。100ms MOV R6,200 CALL DELAY_BY_R6 。100ms MOV R6,200 CALL DELAY_BY_R6 。100ms MOV R6,200 CALL DELAY_BY_R6 。100ms SETB SETS 。端口寫 1 JB SETS,LA LCALL DELAY INC COUNT 。有按下,COUNT 加 1 SETB DONE 。開啟 DONE 標(biāo)志位,進(jìn)入調(diào)整模式LA: RET。************子程序退出鍵掃描******************OUTKEY: JB OUT,LB MOV COUNT,00H CLR DONELB: RET。***********子程序升序按鍵掃描**************UPKEY: SETB UP 。端口寫 1 JNB UP,SS1 。查詢 UP 鍵,沒按下跳出加 1 模式 AJMP OUT_ADD SS1: LCALL DELAY MOV A ,COUNT CLR C RLC A MOV DPTR,ADD_FUN 。送跳轉(zhuǎn)的表頭 JMP @A+DPTRADD_FUN: AJMP OUT_ADD 。退出加 1 模式 AJMP SEC_ADD 。跳轉(zhuǎn)到秒的加 1 AJMP MIN_ADD 。跳轉(zhuǎn)到分的加 1 AJMP HOU_ADD 。跳轉(zhuǎn)到時的加 1 AJMP WEEKS_ADD 。跳轉(zhuǎn)到星期的加 141 AJMP DAYS_ADD 。跳轉(zhuǎn)到日的加 1 AJMP MON_ADD 。跳轉(zhuǎn)到月的加 1 AJMP YEARS_ADD 。跳轉(zhuǎn)到年的加 1SEC_ADD: MOV A,SECOND ADD A,01H DA A MOV SECOND,A CJNE A,60H,EX01 MOV SECOND,00HEX01: AJMP OUT_ADDMIN_ADD: MOV A,MINUTE ADD A,01H DA A MOV MINUTE,A CJNE A,60H,EX02 MOV MINUTE,00HEX02: AJMP OUT_ADDHOU_ADD: MOV A,HOUR ADD A,01H DA A MOV HOUR,A CJNE A,24H,EX03 MOV HOUR,00HEX03: AJMP OUT_ADDWEEKS_ADD:MOV A,WEEK ADD A,01H MOV WEEK,A DA A CJNE A,08H,EX04 MOV WEEK,01HEX04: AJMP OUT_ADDDAYS_ADD: MOV A,DATE ADD A,01H42 DA A MOV DATE,A CJNE A,32H,EX05 MOV DATE,01HEX05: AJMP OUT_ADDMON_ADD: MOV A,MONTH ADD A,01H DA A MOV MONTH,A CJNE A,13H,EX06 MOV MONTH,01HEX06: AJMP OUT_ADDYEARS_ADD:MOV A,YEAR ADD A,01H DA A MOV YEAR,A CJNE A,99H,EX07 MOV YEAR,01HEX07: AJMP OUT_ADDOUT_ADD: RET 。退出加 1 模式。***********子程序降序按鍵掃描**************DOWNKEY: SETB DOWN 。端口寫 1 JNB DOWN,SS2 。查詢 DOWN 鍵,沒按下的跳出 AJMP OUT_DECSS2: LCALL DELAY 。DOWN 鍵有按下,調(diào)用 COUNT,再散轉(zhuǎn) MOV A ,COUNT CLR C RLC A MOV DPTR,DEC_FUN 。送跳轉(zhuǎn)的表頭 JMP @A+DPTRDEC_FUN: AJMP OUT_DEC 。退出減 1 模式 AJMP SEC_DEC 。跳轉(zhuǎn)到秒的減 1 AJMP MIN_DEC 。跳轉(zhuǎn)到分的減 143 AJMP HOU_DEC 。跳轉(zhuǎn)到時的減 1 AJMP WEEKS_DEC 。跳轉(zhuǎn)到星期的減 1 AJMP DAYS_DEC 。跳轉(zhuǎn)到日的減 1 AJMP MON_DEC 。跳轉(zhuǎn)到月的減 1 AJMP YEARS_DEC 。跳轉(zhuǎn)到年的減 1SEC_DEC: 。秒位的減 1 MOV A,SECOND ANL A,0FH 。取秒的個位 JZ JA1 。個位為 0 順序執(zhí)行 DEC SECOND 。個位不是 0 的就自減 1 AJMP EX8JA1: MOV A,SECOND 。個位是 0 的運(yùn)用 BCD 碼的加法運(yùn)算 ADD A,0FFH 。減去一個數(shù)等于加上這個數(shù)的負(fù)數(shù)的補(bǔ)碼 CLR C SUBB A,06H MOV SECOND,A CJNE A,0F9H,EX8 。溢出范圍的置它們?yōu)?59H MOV SECOND,59HEX8: AJMP OUT_DECMIN_DEC: 。分位的減 1 MOV A,MINUTE ANL A,0FH JZ JA2