MOV BYTECNT,#1
LCALL SENDDATA
RET
RCV8025: MOV SLVADR, #64H ;接收8025的CLOCK,CALENDAR
MOV SUBADR, #00H
MOV BYTECNT,#7
MOV 32H,A
MOV A,41H
ANL A,#0F0H
RR A
RR A
RR A
RR A
MOV 33H,A
MOV A, 42H
ANL A,#0F0H
RR A
RR A
RR A
RR A
MOV 3CH,A
RET
SEND8025: ACALL LOAD8025 ;发送CLOCK(00:00:00),CALENDAR(00:01:01),WEEKLY(0)
RR A
RR A
RR A
RR A
MOV 31H,A
MOV A, 41H
ANL A, #7FH
MOV 41H, A
ANL A,#0FH
RET
STOP: CLR SDA ;STOP 子程序
NOP
SETB SCL
NOP
NOP
NOP
NOP
NOP
SETB SDA
NOP
NOP
NOP
RR A
MOV 35H,A
MOV A,43H
ANL A, #07H
MOV 43H,A
ANL A,#0FH
MOV 36H,A
MOV A,44H
RR A
MOV 38H,A
MOV A,45H