Delay1KTCYx(500);// Let the RTC Startup
Write_DS3232(Control,0x85);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Seconds,0x00);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Minutes,0x00);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Hours,0x12);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Day,0x01);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Date,0x01);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Month_Century,0x01);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Year,0x10);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
[B] Write_DS3232(Alarm1_seconds,0x80);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Alarm1_minutes,0x80);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Alarm1_hours,0x80);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Alarm1_day_date,0x80);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC
Write_DS3232(Control,0x05);
while(SSPCON2bits.ACKSTAT!=0);// wait for ack from RTC[/B]