CCS C Software and Maintenance Offers
FAQFAQ   FAQForum Help   FAQOfficial CCS Support   SearchSearch  RegisterRegister 

ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

CCS does not monitor this forum on a regular basis.

Please do not post bug reports on this forum. Send them to support@ccsinfo.com

DS1338 RTC driver

 
Post new topic   Reply to topic    CCS Forum Index -> Code Library
View previous topic :: View next topic  
Author Message
Ttelmah



Joined: 11 Mar 2010
Posts: 19195

View user's profile Send private message

DS1338 RTC driver
PostPosted: Sat Apr 11, 2020 7:59 am     Reply with quote

Code:

//////////////////////////////////////////////////////////////////////////
////                               DS1338.C                           ////
////                     Driver for Real Time Clock                   ////
////                                                                  ////
////  rtc_init()                                   Call after power up////
////                                                                  ////
////  rtc_set_datetime(day,mth,year,dow,hour,min)  Set the date/time  ////
////                                                                  ////
////  rtc_get_date(day,mth,year,dow)               Get the date       ////
////                                                                  ////
////  rtc_get_time(hr,min,sec)                     Get the time       ////
////                                                                  ////
////  rtc_write_nvr(address,data)                  Write to NVR       ////
////                                                                  ////
////  data = rtc_read_nvr(address)                 Read from NVR      ////
////                                                                  ////
////  get_bcd(data)                              Convert data to BCD  ////
////                                                                  ////
////  rm_bcd(data)                               Convert data to int  ////
////                                                                  ////
#define DSADDR 0xD0
#define DSRDADDR 0xD1

#define DS1338_SEC      0
#define DS1338_MIN      1   
#define DS1338_HR       2
#define DS1338_DAY      3
#define DS1338_DATE     4
#define DS1338_MONTH    5
#define DS1338_YR       6
#define DS1338_CONTROL  7

unsigned int8 read_DS1338(unsigned int8 address)
{
   unsigned int8 result;

   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSADDR);
   i2c_write(I2CBUS, address);
   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSRDADDR);
   result = i2c_read(I2CBUS, 0);
   i2c_stop(I2CBUS);
   
   return(result);
}

void write_DS1338(unsigned int8 address, unsigned int8 data)
{
   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSADDR);
   i2c_write(I2CBUS, address);
   i2c_write(I2CBUS, data);
   i2c_stop(I2CBUS);
}

void rtc_init()
{
   unsigned int8 data;
   
   data = read_DS1338(DS1338_SEC);
   //if (bit_test(data,7)==0) //test if chip was alive
   //   rtc_live=TRUE;
     
   data &= 0x7F;
   
   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSADDR);
   i2c_write(I2CBUS, DS1338_SEC);
   i2c_write(I2CBUS, data);
   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSADDR);
   i2c_write(I2CBUS, DS1338_CONTROL); 
   i2c_write(I2CBUS, 0x10); //0x90 should give 1Hz 0xB0 does not reset OSC stopped flag
   i2c_stop(I2CBUS);
}

unsigned int8 get_bcd(unsigned int8 data)
{
   unsigned int8 nibh;
   unsigned int8 nibl;

   nibh=data/10;
   nibl=data-(nibh*10);

   return((nibh<<4)|nibl);
}

unsigned int8 rm_bcd(unsigned int8 data)
{
   unsigned int8 i;

   i=data;
   data=(i>>4)*10;
   data=data+(i&0x0F);

   return data;
}

void rtc_set_datetime(unsigned int8 day, unsigned int8 mth, unsigned int8 year, unsigned int8 dow, unsigned int8 hr, unsigned int8 min)
{
   i2c_start(I2CBUS);
   i2c_write(I2CBUS, DSADDR);
   i2c_write(I2CBUS, DS1338_SEC);
   i2c_write(I2CBUS, 0x00);
   i2c_write(I2CBUS, get_bcd(min));
   i2c_write(I2CBUS, get_bcd(hr));
   i2c_write(I2CBUS, get_bcd(dow));
   i2c_write(I2CBUS, get_bcd(day));
   i2c_write(I2CBUS, get_bcd(mth));
   i2c_write(I2CBUS, get_bcd(year));
   i2c_stop();
}

void rtc_get_date(unsigned int8 &date, unsigned int8 &mth, unsigned int8 &year, unsigned int8 &dow)
{
   date = rm_bcd(read_DS1338(DS1338_DATE));
   mth = rm_bcd(read_DS1338(DS1338_MONTH));
   year = rm_bcd(read_DS1338(DS1338_YR));
   dow = rm_bcd(read_DS1338(DS1338_DAY));
}

void rtc_get_time(unsigned int8 &hr, unsigned int8 &min, unsigned int8 &sec)
{
   hr = rm_bcd(read_DS1338(DS1338_HR));
   min = rm_bcd(read_DS1338(DS1338_MIN));
   sec = rm_bcd(read_DS1338(DS1338_SEC));
}

void rtc_write_nvr(unsigned int8 address, unsigned int8 data)
{
   write_DS1338(address, data);
}

unsigned int8 rtc_read_nvr(unsigned int8 address)
{
   return(read_DS1338(address));
}


Driver for the DS1338 RTC module. Just a slight 'tweak' of the other
drivers for the Maxim RTC's
ertansuluagac



Joined: 13 Jul 2017
Posts: 135
Location: IZMIR

View user's profile Send private message Send e-mail

PostPosted: Sat Apr 11, 2020 8:04 am     Reply with quote

ccs c already exists in the driver folder. It is not very different from it. I think they both work.
_________________
Es
Display posts from previous:   
Post new topic   Reply to topic    CCS Forum Index -> Code Library All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group