(完整版)基于单片机的万年历毕业论文

MOV IO,C NOP NOP NOP SETB SCLK NOP NOP NOP CLR SCLK NOP NOP

DJNZ R4,READ1 MOV R4,#8 READ2: CLR SCLK

NOP ;从1302中读出数据 NOP NOP MOV C,IO NOP NOP NOP NOP NOP RRC A

NOP NOP NOP NOP SETB SCLK NOP

DJNZ R4,READ2 MOV 31H,A CLR RST RET

;BCD码转换为10进制程序~~~~~ BCD_10: MOV A,R0 ANL A,#0FH

MOV R1,A ;高位×10， 加低位 MOV A,R0 SWAP A ANL A,#0FH MOV B,#10 MUL AB ADD A,R1 MOV R0,A RET

;查一年数据程序~~~~~~~~~~~~~~~~ CHECKMONTH:

LCALL BCD_10 ;农历和公历为同一年，

;NEW此时R2中的值为FFH时，R3有值，否则为0 NEW: NOP M1:

MOV A,R2 ;R2减一月天数 CLR C SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.6,SM11 MOV A,R2 CLR C SUBB A,#30 MOV R1,A SM11: JC SM12

MOV A,R1 ;R2减1月天数，够减 MOV R2,A ;转二月 AJMP M2 SM12:

CJNE R3,#00H,M13 ;R2减1月天数 LJMP Y1 ;不够减，判R3为0否 M13:

MOV A,R2 ;不为0，R3加到R2中 ADD A,R3 ;再让一月减 MOV R2,A ;还不够，则转Y1 MOV R3,#00H AJMP M1 M2:

CLR C ;R2减一月天数，够减 MOV A,R2 ;转三月 SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.5,M21 MOV A,R2 CLR C SUBB A,#30 MOV R1,A M21: JC M22

MOV A,R1 ;R2减2月天数，够减 MOV R2,A AJMP MM2 M22:

CJNE R3,#00H,M23 ;R2减2月天数 LJMP Y2 ;不够减，判，R3为0否 M23: