【文章內(nèi)容簡介】 PY1 2 3 4 5 6 7a b c d e f g8dpdpVCC9DS18abfcgdeDPY1 2 3 4 5 6 7a b c d e f g8dpdpVCC9DS19VCC12J1 CON23.6v制作單片機 AT89S52 的萬年歷 17 附錄 3 程序 3． 1 主程序 sec11 equ 10h sec12 equ 11h min11 equ 12h min12 equ 13h hour11 equ 14h hour12 equ 15h day11 equ 16h day12 equ 17h month11 equ 18h month12 equ 19h year11 equ 1ah year12 equ 1bh year13 equ 1ch year14 equ 1dh TEMP EQU 1EH N_DAY EQU 1FH shu2 equ 20h adress2 equ 21h ADRESS1 EQU 23H SHU1 EQU 24H SHU3 EQU 25H TEMP11 EQU 26H TEMP12 EQU 27H N_DAY11 EQU 28H N_DAY12 EQU 29H N_MONTH11 EQU 2AH N_MONTH12 EQU 2BH N_MONTH EQU 2CH huan equ 2dh SCLK bit 90h io bit 91h RST bit 92h sec data 60h min data 61h hour data 62h date data 63h month data 64h day data 65h year1 DATA 66H year2 data 67h int_min equ 68h int_hour equ 69h int_date equ 6ah int_month equ 6bh int_year1 equ 6ch int_day equ 6dh start_year EQU 01。 定義查詢表起始年份 , 01199 表示 19012099 年 。以下三單元為需轉換的公歷日期是子程序的入口數(shù)據(jù) time_year DATA 66h time_month DATA 64h 。BIT7 表示世紀 , 為 1 表示 19 世紀 ,為 0 表示 20 世紀 time_date DATA 63h 。以 下三單元存轉換后農(nóng)歷日期與入口單元重疊 , 如要保留入口信息 ,請重定義出口地址 CONvert_yeAr DATA 33h CONvert_mONth DATA 34h 。BIT7 為 1 表示閏月 CONvert_dAte DATA 35h temp_Byte1 DATA 37h temp_Byte2 DATA 38h temp_Byte3 DATA 39h temp_Byte4 DATA 3Ah temp_Byte5 DATA 3Bh time_week DATA 65h 。星期天出口 公歷轉農(nóng) 歷子程序 0000h mov p0,0ffh mov 6eh,00hmov int_min,59h mov int_hour,23h mov int_date,12h mov int_month,11h mov int_year1,04h mov int_day,07h mov temp,00h mov year2,20h MOV SP,74H DS1302 讀寫程序 制作單片機 AT89S52 的萬年歷 18 lcall init start: mov 70h,hour mov 71h,min mov day,time_week mov r0,sec mov r7,7 setb lcall rwrtc lcall kEY LCALL CONvert lcall GetWeek LCALL TRUN 。LCALL DINGSHI LCALL DISP1 LCALL DISP3 ljmp start rwrtc: mov b,10000001b jb ,rwrtc1 mov b,10000000b rwrtc1:clr sclk nop setb rst mov r6,8 mov a,b rwrtc2:clr sclk rrc a mov io,c nop setb sclk djnz r6,rwrtc2 mov r6,8 jnb ,rwrtc4 rwrtc3:clr sclk nop mov c,io rrc a setb sclk djnz r6,rwrtc3 mov @r0,a sjmp rwrtc6 rwrtc4:mov a,@r0 rwrtc5:clr sclk rrc a mov io,c nop setb sclk djnz r6,rwrtc5 rwrtc6:inc r0 mov a,b add a,02h mov b,a clr rst nop clr sclk djnz r7,rwrtc1 RET WRRTC: CLR SCLK NOP SETB RST NOP NOP MOV R7,2 WRRTC1: MOV R6,8 MOV A,@R0 CLR C wrrtc2: CLR SCLK RRC A MOV IO,C nop SETB SCLK DJNZ R6,WRRTC2 INC R0 djnz r7,wrrtc1 clr rst nop clr sclk ret init: CLR SCLK CLR RST MOV SEC,10001110b MOV MIN,00000000b MOV R0,SEC LCALL wrrtc MOV SEC,10010000b MOV MIN,10100101b MOV R0,SEC LCALL wrrtc 制作單片機 AT89S52 的萬年歷 19 MOV R0,SEC MOV SEC,10000000b MOV MIN,00000000b lcall writer_f lcall writer_sh lcall writer_date lcall writer_yue lcall writer_nian ret writer_f:LCALL wrrtc mov r0,sec mov sec,82h mov min,int_min lcall wrrtc ret writer_sh:mov sec,10000100b mov min,int_hour mov r0,sec lcall wrrtc ret writer_yue:mov sec,88h mov min,int_month mov r0,sec lcall wrrtc ret writer_nian:mov sec,8ch mov min,int_year1 mov r0,sec lcall wrrtc ret writer_date:mov sec,86h mov min,int_date mov r0,sec lcall wrrtc RET BCD 轉換 TRUN: MOV A,SEC MOV B,10H DIV AB MOV SEC12,A MOV SEC11,B MOV A,MIN MOV B,10H DIV AB MOV MIN12,A MOV MIN11,B MOV A,HOUR MOV B,10H DIV AB MOV HOUR12,A MOV HOUR11,B MOV A,date MOV B,10H DIV AB MOV DAY12,a MOV DAY11,b MOV A,MONTH MOV B,10H DIV AB MOV MONTH12,A MOV MONTH11,B MOV A,year1 MOV B,10H DIV AB MOV YEAR12,A MOV YEAR11,B MOV A,YEAr2 MOV B,10H DIV AB MOV YEAR14,A MOV YEAR13,b MOV A,35h MOV B,10H DIV AB MOV N_DAY12,A MOV N_day11,B MOV A,34h MOV B,10H DIV AB MOV N_MONTH12,A MOV N_MONTH11,B MOV A,TEMP MOV B,10H 制作單片機 AT89S52 的萬年歷 20 DIV AB MOV TEMP12,A MOV TEMP11,B RET 延時程序 DEALY:MOV R5,01h DEL1: MOV R2,07dH DEL2:NOP NOP DJNZ R2,DEL2 DJNZ R5,DEL1 RET 顯示程序 DENG:MOV P2,0FFH MOV A,00H MOV SBUF,A JNB TI,$ CLR TI MOV P2,ADRESS2 MOV A,SHU2 MOV SBUF,A JNB TI,$ CLR TI MOV A,00H MOV SBUF,A JNB TI,$ CLR TI LCALL DEALY MOV P2,0FFH RET DENG1:MOV P2,0FFH MOV A,SHU1 MOV SBUF,A JNB TI,$