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: