#include <stdio.h>
#include <at89c5131.h>

unsigned int i; //standard counter

unsigned char xdata rtc[] _at_ 0x2000; //variable which points to rtc memry block
unsigned char xdata rtc_dayOfMonth _at_ 0x2007;
unsigned char xdata rtc_month _at_ 0x2008;
unsigned char xdata rtc_year _at_ 0x2009;
unsigned char xdata rtc_hour _at_ 0x2004;
unsigned char xdata rtc_minute _at_ 0x2002;
unsigned char xdata rtc_second _at_ 0x2000;
unsigned char xdata rtc_A _at_ 0x200A;
unsigned char xdata rtc_B _at_ 0x200B;
unsigned char xdata rtc_C _at_ 0x200C;
unsigned char xdata rtc_D _at_ 0x200D;

unsigned char dayOfMonth;
unsigned char month;
unsigned char year;
unsigned char hour;
unsigned char minute;
unsigned char second;

unsigned char string_to_send1[] = "Current date: ";
unsigned char string_to_send2[] = "Current time: ";
unsigned char string_to_send3[] = "\r\n";
unsigned char datetime_decimal_buffer[10];

void main(){
   // <configure serial port for output>
   TMOD = 0x20; //T1 is mode2
   //TH1 = 256 - ((Crystal / 192) / Baud)
   //TH1 = 256 - ((24000000 / 192) / 9600) = 242.98 = 243 = f3h
   TH1 = 0xf3; //9600 baud
   PCON = PCON | 0x80; //PCON.7 = 1 (ORL PCON,#080h)
   SCON = 0x50; //8b, 1stop, 1start, REN enabled
   TCON =0x40; //=setb TR1=start T1.
   // </configure serial port for output>

   //set rtc data mode to binary,
   //24-hours mode,
   //disable daylight saving;
   //other options (like interrupt or square wave) - to 0
   //(B register = 00000110b = 6h)
   //
   rtc_B = 0x06;
   //

   while (1){
      //wait until rtc finishes to update the clock
      //
      while (rtc_A && 0x80) {}
      //

      //read data from rtc
      //
      dayOfMonth = rtc_dayOfMonth;
      month = rtc_month;
      year = rtc_year;
      hour = rtc_hour;
      minute = rtc_minute;
      second = rtc_second;
      //

      //echo "Current date" message to user
      //
      for (i=0; string_to_send1[i]>0; i++){
         SBUF = string_to_send1[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo day of the month
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)dayOfMonth);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo '.'
      //
      SBUF = '.';
      while (TI==0) {};
      TI = 0;
      //

      //echo month
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)month);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo '.'
      //
      SBUF = '.';
      while (TI==0) {};
      TI = 0;
      //

      //echo year
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)year);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //new line
      //
      for (i=0; string_to_send3[i]>0; i++){
         SBUF = string_to_send3[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo "Current time" message to user
      //
      for (i=0; string_to_send2[i]>0; i++){
         SBUF = string_to_send2[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo hour
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)hour);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo ':'
      //
      SBUF = ':';
      while (TI==0) {};
      TI = 0;
      //

      //echo minutes
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)minute);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //echo ':'
      //
      SBUF = ':';
      while (TI==0) {};
      TI = 0;
      //

      //echo seconds
      //
      sprintf(datetime_decimal_buffer, "%u", (unsigned int)second);
      for (i=0; datetime_decimal_buffer[i]>0; i++){
         SBUF = datetime_decimal_buffer[i];
         while (TI==0) {};
         TI = 0;
      }
      //

      //new line
      //
      for (i=0; string_to_send3[i]>0; i++){
         SBUF = string_to_send3[i];
         while (TI==0) {};
         TI = 0;
      }
      //
   }
}