【正文】 清液晶屏，寫成空白 LCALL WRITE_COM MOV A,08 LCALL WRITE_COM MOV A,0CH LCALL WRITE_COM SETB EX1 RETI 成都工業(yè)學院 30 KEY:JB SCLK,NEXT1 。調(diào)時間 /日期子程序 JNB SCLK,$ INC A NEXT1: JB IO,NEXT2 JNB IO,$ DEC A 。調(diào)節(jié)狀態(tài)下的顯示字程序 NEXT2: CJNE R1,1,J LCALL MINTURN 。調(diào)分標志打開 ,調(diào)用調(diào)分子程序 J: CJNE R1,2,J1 LCALL HOUTURN 。調(diào)時標志打開 ,調(diào)用調(diào)時子程序 J1: CJNE R1,3,J2 LCALL WEETURN 。調(diào)周標志打開 ,調(diào)用調(diào)周子程序 J2: CJNE R1,4,J3 LCALL TIME_DAYTURN 。調(diào)日標志打開 ,調(diào)用調(diào)日子程序 J3: CJNE R1,5,J4 LCALL MONTURN 。調(diào)月標志打開 ,調(diào)用調(diào)月子程序 J4: CJNE R1,6,J5 LCALL YEATURN 。調(diào)年標志打開 ,調(diào)用調(diào)年子程序 J5: RET MINTURN:MOV R0,A ANL A,0FH 。調(diào)分子程序 CJNE A,0AH,MIN MOV A,R0 ADD A,6 MOV R0,A MIN: MOV A,R0 ANL A,0F0H 。超過六十分 ,分變?yōu)橐? CJNE A,60H,MIN1 MOV R0,00H MIN1: MOV A,R0 CJNE A,0FFH,MIN2 。小于一分 ,分變?yōu)槲迨? MOV R0,59H 成都工業(yè)學院 31 MIN2: MOV A,R0 ANL A,0FH CJNE A,0FH,MIN3 MOV A,R0 SUBB A,6H MOV R0,A MIN3: MOV A,R0 RET HOUTURN:MOV R0,A 。調(diào)時子程序 CJNE A,24H,HOU 。超過二十三點 ,時變?yōu)榱? MOV R0,00H HOU: MOV A,R0 CJNE A,0FFH,HOU1 。小于零點 ,時變?yōu)槎? MOV R0,23H HOU1: MOV A,R0 ANL A,0FH CJNE A,0AH,HOU2 MOV A,R0 ADD A,6H MOV R0,A HOU2: MOV A,R0 ANL A,0FH CJNE A,0FH,HOU3 MOV A,R0 SUBB A,6H MOV R0,A HOU3: MOV A,R0 RET WEETURN:MOV R0,A 。調(diào)周子程序 CJNE A,7H,WEE 。超過周七 ,周變?yōu)橐? MOV R0,00H WEE: MOV A,R0 成都工業(yè)學院 32 CJNE A,0FFH,WEE1 。小于周一 ,周變?yōu)槠? MOV R0,6H WEE1: MOV A,R0 RET TIME_DAYTURN:MOV R0,A MOV A,TIME_MONT 。判斷月大 /月小 SUBB A,2H JNZ NOTTWO MOV MONMAX,28H AJMP OK NOTTWO:MOV A,TIME_MONT SUBB A,4H JNZ JUDGE MOV MONMAX,30H AJMP OK JUDGE: MOV A,TIME_MONT SUBB A,6H JNZ JUDGE1 MOV MONMAX,30H AJMP OK JUDGE1:MOV A,TIME_MONT SUBB A,9H JNZ JUDGE2 MOV MONMAX,30H AJMP OK JUDGE2:MOV A,TIME_MONT SUBB A,11H JNZ JUDGE3 MOV MONMAX,30H AJMP OK JUDGE3:MOV MONMAX,31H OK: MOV A,R0 。調(diào)日子程序 成都工業(yè)學院 33 ANL A,0FH CJNE A,0AH,TIME_DAYDAY MOV A,R0 ADD A,6 MOV R0,A TIME_DAYDAY:MOV A,R0 。超過最大天 ,天變?yōu)橐? SUBB A,MONMAX MOV A,PSW ANL A,80H JNZ TIME_DAYDAY1 MOV R0,1H TIME_DAYDAY1:MOV A,R0 。小于一天 ,天變?yōu)樽畲筇? CJNE A,0H,TIME_DAYDAY2 MOV R0,MONMAX TIME_DAYDAY2:MOV A,R0 ANL A,0FH CJNE A,0FH,TIME_DAYDAY3 MOV A,R0 SUBB A,6H MOV R0,A TIME_DAYDAY3:MOV A,R0 RET MONTURN:MOV R0,A 。調(diào)月字子程序 CJNE A,13H,MON 。超過十二月 ,變?yōu)橐辉? MOV R0,1H MON: MOV A,R0 CJNE A,0H,MON1 。小于一月 ,變?yōu)槭? MOV R0,12H MON1: MOV A,R0 ANL A,0FH CJNE A,0AH,MON2 MOV A,R0 成都工業(yè)學院 34 ADD A,6H MOV R0,A MON2: MOV A,R0 ANL A,0FH CJNE A,0FH,MON3 MOV A,R0 SUBB A,6H MOV R0,A MON3: MOV A,R0 RET YEATURN:MOV R0,A 。調(diào)年子程序 CJNE A,9AH,YEA 。超過九九年 ,年變?yōu)榱懔隳? MOV R0,0H YEA: MOV A,R0 CJNE A,0FFH,YEA1 。小于零零年 ,年變?yōu)榫啪拍? MOV R0,99H YEA1: MOV A,R0 ANL A,0FH CJNE A,0AH,YEA2 MOV A,R0 ADD A,6H MOV R0,A YEA2: MOV A,R0 ANL A,0FH CJNE A,0FH,YEA3 MOV A,R0 SUBB A,6H MOV R0,A YEA3: MOV A,R0 RET 成都工業(yè)學院 35 。==========讀 1302 子程序 ================= RD_DS1302: MOV DS1302_ADDR,8DH 。讀 DS1302 中的年 LCALL READ 。調(diào)用讀 DS1302 子程序 MOV TIME_YEAR, DS1302_DATA 。把讀 ?000000000000000000000000000 MOV TIME_MONT, DS1302_DATA 。把讀出的月數(shù)據(jù)存入月寄存器中 MOV DS1302_ADDR,87H 。讀 DS1302 中的天 LCALL READ MOV TIME_DAY, DS1302_DATA 。把讀出的天數(shù)據(jù)存入天寄存器中 MOV DS1302_ADDR,85H 。讀 DS1302 中的小時 LCALL READ MOV HOUR, DS1302_DATA 。把讀出的天數(shù)據(jù)存入小時寄存器中 MOV DS1302_ADDR,83H 。讀 DS1302 中的分鐘 LCALL READ MOV MINTUE, DS1302_DATA 。把讀出的天數(shù)據(jù)存入分鐘寄存器中 MOV DS1302_ADDR,81H 。讀 DS1302 中的秒鐘 LCALL READ MOV SECOND, DS1302_DATA 。把讀出的天數(shù)據(jù)存入秒鐘寄存器中 RET 。===========寫 1302 子程序 ======================== RW_DS1302: MOV DS1302_ADDR, 8EH 。寫 DS1302 控制指令 MOV DS1302_DATA, 00H 。寫數(shù)據(jù)到 DS1302 的 8E 控制寄存器中 ,允許對其進行寫操作 LCALL WRITE 。調(diào)用寫 DS1302 子程序 MOV DS1302_ADDR, 8CH MOV DS1302_DATA, TIME_YEAR LCALL WRITE MOV DS1302_ADDR, 8AH MOV DS1302_DATA, WEEK_DATA LCALL WRITE MOV DS1302_ADDR, 88H MOV DS1302_DATA, TIME_MONT 成都工業(yè)學院 36 LCALL WRITE MOV DS1302_ADDR, 86H MOV DS1302_DATA, TIME_DAY LCALL WRITE MOV DS1302_ADDR, 84H MOV DS1302_DATA, HOUR LCALL WRITE MOV DS1302_ADDR, 82H MOV DS1302_DATA, MINTUE LCALL WRITE MOV DS1302_ADDR, 80H MOV DS1302_DATA, SECOND LCALL WRITE MOV DS1302_ADDR, 8EH MOV DS1302_DATA, 80H LCALL WRITE RET 。=========數(shù)據(jù)分離后送顯示緩存 ================== DATA_BUF: MOV R0,TIME_YEAR 。年數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV TIME_YEAR_HBUF,R1 MOV TIME_YEAR_LBUF,R2 MOV R0,TIME_MONT 。月數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV MONT_HBUF,R1 MOV MONT_LBUF,R2 MOV R0,TIME_DAY 。日數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV TIME_DAY_HBUF,R1 MOV TIME_DAY_LBUF,R2 MOV R0,WEEK_DATA 。星期數(shù)據(jù)分離，送顯示緩存 成都工業(yè)學院 37 LCALL DIVIDE MOV WEEK_DATA_HBUF,R1 MOV WEEK_DATA_LBUF,R2 MOV R0,HOUR 。小時數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV HOUR_HBUF,R1 MOV HOUR_LBUF,R2 MOV R0,MINTUE 。分鐘數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV MINTUE_HBUF,R1 MOV MINTUE_LBUF,R2 MOV R0,SECOND 。秒鐘數(shù)據(jù)分離，送顯示緩存 LCALL DIVIDE MOV SECOND_HBUF,R1 MOV SECOND_LBUF,R2 RET 。=========日歷顯示子程序 ========== DISPLAY: MOV A,81H 。設定年第 1位的顯示地址為第 1 行，第 1 列 LCALL WRITE_COM MOV A, 32H 。數(shù)字 2 的 ASCII 碼 LCALL WRITE_DATA MOV A,82H 。設定年第 2位的顯示地址為第 1 行，第 2 列 LCALL WRITE_COM