Subversion Repositories openrisc

/* ----------------------------------------------------------------------------

 *         ATMEL Microcontroller Software Support

 * ----------------------------------------------------------------------------

 * Copyright (c) 2008, Atmel Corporation

 *

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions are met:

 *

 * - Redistributions of source code must retain the above copyright notice,

 * this list of conditions and the disclaimer below.

 *

 * Atmel's name may not be used to endorse or promote products derived from

 * this software without specific prior written permission.

 *

 * DISCLAIMER: THIS SOFTWARE IS PROVIDED BY ATMEL "AS IS" AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF

 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT ARE

 * DISCLAIMED. IN NO EVENT SHALL ATMEL BE LIABLE FOR ANY DIRECT, INDIRECT,

 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT

 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,

 * OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,

 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 * ----------------------------------------------------------------------------

 */

#ifndef trace_LEVEL

        #define trace_LEVEL trace_INFO

#endif

//------------------------------------------------------------------------------

//         Headers

//------------------------------------------------------------------------------

#include "rtc.h"

#include <board.h>

#include <utility/assert.h>

#include <utility/trace.h>

//------------------------------------------------------------------------------

//         Exported functions

//------------------------------------------------------------------------------

//------------------------------------------------------------------------------

/// Sets the RTC in either 12- or 24-hour mode.

/// \param mode  Hour mode.

//------------------------------------------------------------------------------

void RTC_SetHourMode(unsigned int mode)

{

        SANITY_CHECK((mode & 0xFFFFFFFE) == 0);

    trace_LOG(trace_DEBUG, "-D- RTC_SetHourMode()\n\r");

        AT91C_BASE_RTC->RTC_MR = mode;

}

//------------------------------------------------------------------------------

/// Enables the selected interrupt sources of the RTC.

/// \param sources  Interrupt sources to enable.

//------------------------------------------------------------------------------

void RTC_EnableIt(unsigned int sources)

{

    SANITY_CHECK((sources & ~0x1F) == 0);

    trace_LOG(trace_DEBUG, "-D- RTC_EnableIt()\n\r");

    AT91C_BASE_RTC->RTC_IER = sources;

}

//------------------------------------------------------------------------------

/// Disables the selected interrupt sources of the RTC.

/// \param sources  Interrupt sources to disable.

//------------------------------------------------------------------------------

void RTC_DisableIt(unsigned int sources)

{

    SANITY_CHECK((sources & ~0x1F) == 0);

    trace_LOG(trace_DEBUG, "-D- RTC_DisableIt()\n\r");

    AT91C_BASE_RTC->RTC_IDR = sources;

}

//------------------------------------------------------------------------------

/// Sets the current time in the RTC.

/// \param hour  Current hour.

/// \param minute  Current minute.

/// \param second  Current second.

//------------------------------------------------------------------------------

void RTC_SetTime(unsigned char hour, unsigned char minute, unsigned char second)

{

        unsigned int time;

        SANITY_CHECK(hour < 24);

        SANITY_CHECK(minute < 60);

        SANITY_CHECK(second < 60);

    trace_LOG(trace_DEBUG, "-D- RTC_SetTime(%02d:%02d:%02d)\n\r", hour, minute, second);

        time = (second % 10) | ((second / 10) << 4)

                   | ((minute % 10) << 8) | ((minute / 10) << 12);

        // 12-hour mode

        if ((AT91C_BASE_RTC->RTC_MR & AT91C_RTC_HRMOD) == AT91C_RTC_HRMOD) {

                if (hour > 12) {

                        hour -= 12;

                        time |= AT91C_RTC_AMPM;

                }

        }

        time |= ((hour % 10) << 16) | ((hour / 10) << 20);

        // Set time

        AT91C_BASE_RTC->RTC_CR |= AT91C_RTC_UPDTIM;

        while ((AT91C_BASE_RTC->RTC_SR & AT91C_RTC_ACKUPD) != AT91C_RTC_ACKUPD);

        AT91C_BASE_RTC->RTC_SCCR = AT91C_RTC_ACKUPD;

        AT91C_BASE_RTC->RTC_TIMR = time;

        AT91C_BASE_RTC->RTC_CR &= ~AT91C_RTC_UPDTIM;

        SANITY_CHECK((AT91C_BASE_RTC->RTC_CR & AT91C_RTC_UPDTIM) != AT91C_RTC_UPDTIM);

}

//------------------------------------------------------------------------------

/// Retrieves the current time as stored in the RTC in several variables.

/// \param pHour  If not null, current hour is stored in this variable.

/// \param pMinute  If not null, current minute is stored in this variable.

/// \param pSecond  If not null, current second is stored in this variable.

//------------------------------------------------------------------------------

void RTC_GetTime(

        unsigned char *pHour,

        unsigned char *pMinute,

        unsigned char *pSecond)

{

        unsigned int time;

        SANITY_CHECK(pHour || pMinute || pSecond);

    trace_LOG(trace_DEBUG, "-D- RTC_GetTime()\n\r");

        // Get current RTC time

        time = AT91C_BASE_RTC->RTC_TIMR;

        while (time != AT91C_BASE_RTC->RTC_TIMR) {

                time = AT91C_BASE_RTC->RTC_TIMR;

        }

        // Hour

        if (pHour) {

                *pHour = ((time & 0x00300000) >> 20) * 10

                                 + ((time & 0x000F0000) >> 16);

                if ((time & AT91C_RTC_AMPM) == AT91C_RTC_AMPM) {

                        *pHour += 12;

                }

        }

        // Minute

        if (pMinute) {

                *pMinute = ((time & 0x00007000) >> 12) * 10

                                   + ((time & 0x00000F00) >> 8);

        }

        // Second

        if (pSecond) {

                *pSecond = ((time & 0x00000070) >> 4) * 10

                                   + (time & 0x0000000F);

        }

}

//------------------------------------------------------------------------------

/// Sets a time alarm on the RTC. The match is performed only on the provided

/// variables; setting all pointers to 0 disables the time alarm.

/// Note: in AM/PM mode, the hour value must have bit #7 set for PM, cleared for

/// AM (as expected in the time registers).

/// \param pHour  If not null, the time alarm will hour-match this value.

/// \param pMinute  If not null, the time alarm will minute-match this value.

/// \param pSecond  If not null, the time alarm will second-match this value.

//------------------------------------------------------------------------------

void RTC_SetTimeAlarm(

        unsigned char *pHour,

        unsigned char *pMinute,

        unsigned char *pSecond)

{

        unsigned int alarm = 0;

    SANITY_CHECK(!pHour || ((*pHour & 0x80) == 0));

    SANITY_CHECK(!pMinute || (*pMinute < 60));

    SANITY_CHECK(!pSecond || (*pSecond < 60));

        trace_LOG(trace_DEBUG, "-D- RTC_SetTimeAlarm()\n\r");

        // Hour

        if (pHour) {

                alarm |= AT91C_RTC_HOUREN | ((*pHour / 10) << 20) | ((*pHour % 10) << 16);

        }

        // Minute

        if (pMinute) {

                alarm |= AT91C_RTC_MINEN | ((*pMinute / 10) << 12) | ((*pMinute % 10) << 8);

        }

        // Second

        if (pSecond) {

                alarm |= AT91C_RTC_SECEN | ((*pSecond / 10) << 4) | (*pSecond % 10);

        }

        AT91C_BASE_RTC->RTC_TIMALR = alarm;

}

//------------------------------------------------------------------------------

/// Retrieves the current year, month and day from the RTC. Month, day and week

/// values are numbered starting at 1.

/// \param pYear  Current year (optional).

/// \param pMonth  Current month (optional).

/// \param pDay  Current day (optional).

/// \param pWeek  Current day in current week (optional).

//------------------------------------------------------------------------------

void RTC_GetDate(

    unsigned short *pYear,

    unsigned char *pMonth,

    unsigned char *pDay,

    unsigned char *pWeek)

{

    unsigned int date;

    // Get current date (multiple reads are necessary to insure a stable value)

    do {

        date = AT91C_BASE_RTC->RTC_CALR;

    }

    while (date != AT91C_BASE_RTC->RTC_CALR);

    // Retrieve year

    if (pYear) {

        *pYear = (((date  >> 4) & 0x7) * 1000)

                 + ((date & 0xF) * 100)

                 + (((date >> 12) & 0xF) * 10)

                 + ((date >> 8) & 0xF);

    }

    // Retrieve month

    if (pMonth) {

        *pMonth = (((date >> 20) & 1) * 10) + ((date >> 16) & 0xF);

    }

    // Retrieve day

    if (pDay) {

        *pDay = (((date >> 28) & 0x3) * 10) + ((date >> 24) & 0xF);

    }

    // Retrieve week

    if (pWeek) {

        *pWeek = ((date >> 21) & 0x7);

    }

}

//------------------------------------------------------------------------------

/// Sets the current year, month and day in the RTC. Month, day and week values

/// must be numbered starting from 1.

/// \param year  Current year.

/// \param month  Current month.

/// \param day  Current day.

/// \param week  Day number in current week.

//------------------------------------------------------------------------------

void RTC_SetDate(

    unsigned short year,

    unsigned char month,

    unsigned char day,

    unsigned char week)

{

    unsigned int date;

    SANITY_CHECK((year >= 1900) && (year <= 2099));

    SANITY_CHECK((month >= 1) && (month <= 12));

    SANITY_CHECK((day >= 1) && (day <= 31));

    SANITY_CHECK((week >= 1) && (week <= 7));

    // Convert values to date register value

    date = ((year / 100) % 10)

           | ((year / 1000) << 4)

           | ((year % 10) << 8)

           | (((year / 10) % 10) << 12)

           | ((month % 10) << 16)

           | ((month / 10) << 20)

           | (week << 21)

           | ((day % 10) << 24)

           | ((day / 10) << 28);

    // Update calendar register

    AT91C_BASE_RTC->RTC_CR |= AT91C_RTC_UPDCAL;

    while ((AT91C_BASE_RTC->RTC_SR & AT91C_RTC_ACKUPD) != AT91C_RTC_ACKUPD);

    AT91C_BASE_RTC->RTC_SCCR = AT91C_RTC_ACKUPD;

    AT91C_BASE_RTC->RTC_CALR = date;

    AT91C_BASE_RTC->RTC_CR &= ~AT91C_RTC_UPDCAL;

}

//------------------------------------------------------------------------------

/// Sets a date alarm in the RTC. The alarm will match only the provided values;

/// passing a null-pointer disables the corresponding field match.

/// \param pMonth  If not null, the RTC alarm will month-match this value.

/// \param pDay  If not null, the RTC alarm will day-match this value.

//------------------------------------------------------------------------------

void RTC_SetDateAlarm(unsigned char *pMonth, unsigned char *pDay)

{

    unsigned int alarm = 0;

    SANITY_CHECK(!pMonth || ((*pMonth >= 1) && (*pMonth <= 12)));

    SANITY_CHECK(!pDay || ((*pDay >= 1) && (*pDay <= 31)));

    trace_LOG(trace_DEBUG, "-D- RTC_SetDateAlarm()\n\r");

    // Compute alarm field value

    if (pMonth) {

        alarm |= AT91C_RTC_MONTHEN | ((*pMonth / 10) << 20) | ((*pMonth % 10) << 16);

    }

    if (pDay) {

        alarm |= AT91C_RTC_DATEEN | ((*pDay / 10) << 28) | ((*pDay % 10) << 24);

    }

    // Set alarm

    AT91C_BASE_RTC->RTC_CALALR = alarm;

}