OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [i386/] [ts_386ex/] [clock/] [rtc.c] - Blame information for rev 173

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback 
/*-------------------------------------------------------------------------+
2 
| rtc.c v1.1 - PC386 BSP - 1997/08/07
3 
+--------------------------------------------------------------------------+
4 
| This file contains the real time clock manipulation package for the
5 
| PC386 board.
6 
+--------------------------------------------------------------------------+
7 
| (C) Copyright 1997 -
8 
| - NavIST Group - Real-Time Distributed Systems and Industrial Automation
9 
|
10 
| http://pandora.ist.utl.pt
11 
|
12 
| Instituto Superior Tecnico * Lisboa * PORTUGAL
13 
+--------------------------------------------------------------------------+
14 
| Disclaimer:
15 
|
16 
| This file is provided "AS IS" without warranty of any kind, either
17 
| expressed or implied.
18 
+--------------------------------------------------------------------------+
19 
| This code is based on:
20 
|   rtc.c,v 1.4 1995/12/19 20:07:15 joel Exp - go32 BSP
21 
| With the following copyright notice:
22 
| **************************************************************************
23 
| *  COPYRIGHT (c) 1989-1999.
24 
| *  On-Line Applications Research Corporation (OAR).
25 
| *
26 
| *  The license and distribution terms for this file may be
27 
| *  found in found in the file LICENSE in this distribution or at
28 
| *  http://www.OARcorp.com/rtems/license.html.
29 
| **************************************************************************
30 
|
31 
|  $Id: rtc.c,v 1.2 2001-09-27 11:59:50 chris Exp $
32 
+--------------------------------------------------------------------------*/
33 
 
34 
 
35 
#include <string.h>
36 
 
37 
#include <bsp.h>
38 
 
39 
/*-------------------------------------------------------------------------+
40 
| Constants
41 
+--------------------------------------------------------------------------*/
42 
#define IO_RTC         0x70  /* RTC                                    */
43 
 
44 
#define RTC_SEC        0x00  /* seconds                                */
45 
#define RTC_SECALRM    0x01  /* seconds alarm                          */
46 
#define RTC_MIN        0x02  /* minutes                                */
47 
#define RTC_MINALRM    0x03  /* minutes alarm                          */
48 
#define RTC_HRS        0x04  /* hours                                  */
49 
#define RTC_HRSALRM    0x05  /* hours alarm                            */
50 
#define RTC_WDAY       0x06  /* week day                               */
51 
#define RTC_DAY        0x07  /* day of month                           */
52 
#define RTC_MONTH      0x08  /* month of year                          */
53 
#define RTC_YEAR       0x09  /* month of year                          */
54 
#define RTC_STATUSA    0x0a  /* status register A                      */
55 
#define  RTCSA_TUP     0x80  /* time update, don't look now            */
56 
 
57 
#define RTC_STATUSB    0x0b  /* status register B                      */
58 
 
59 
#define RTC_INTR       0x0c  /* status register C (R) interrupt source */
60 
#define  RTCIR_UPDATE  0x10  /* update intr                            */
61 
#define  RTCIR_ALARM   0x20  /* alarm intr                             */
62 
#define  RTCIR_PERIOD  0x40  /* periodic intr                          */
63 
#define  RTCIR_INT     0x80  /* interrupt output signal                */
64 
 
65 
#define RTC_STATUSD    0x0d  /* status register D (R) Lost Power       */
66 
#define  RTCSD_PWR     0x80  /* clock lost power                       */
67 
 
68 
#define RTC_DIAG       0x0e  /* status register E - bios diagnostic    */
69 
#define RTCDG_BITS     "\020\010clock_battery\007ROM_cksum\006config_unit\005memory_size\004fixed_disk\003invalid_time"
70 
 
71 
#define RTC_CENTURY    0x32  /* current century - increment in Dec99   */
72 
 
73 
 
74 
/*-------------------------------------------------------------------------+
75 
| Auxiliary Functions
76 
+--------------------------------------------------------------------------*/
77 
/*-------------------------------------------------------------------------+
78 
|         Function: bcd
79 
|      Description: Convert 2 digit number to its BCD representation.
80 
| Global Variables: None.
81 
|        Arguments: i - Number to convert.
82 
|          Returns: BCD representation of number.
83 
+--------------------------------------------------------------------------*/
84 
static inline rtems_unsigned8
85 
bcd(rtems_unsigned8 i)
86 
{
87 
  return ((i / 16) * 10 + (i % 16));
88 
} /* bcd */
89 
 
90 
#define QUICK_READ  /* Quick read of the RTC: don't return number of seconds. */
91 
 
92 
#ifndef QUICK_READ
93 
 
94 
#define SECS_PER_DAY      (24 * 60 * 60)
95 
#define SECS_PER_REG_YEAR (365 * SECS_PER_DAY)
96 
 
97 
/*-------------------------------------------------------------------------+
98 
|         Function: ytos
99 
|      Description: Convert years to seconds (since 1970).
100 
| Global Variables: None.
101 
|        Arguments: y - year to convert (1970 <= y <= 2100).
102 
|          Returns: number of seconds since 1970.
103 
+--------------------------------------------------------------------------*/
104 
static inline rtems_unsigned32
105 
ytos(rtems_unsigned16 y)
106 
{                                       /* v NUM LEAP YEARS v */
107 
  return ((y - 1970) * SECS_PER_REG_YEAR + (y - 1970 + 1) / 4 * SECS_PER_DAY);
108 
} /* ytos */
109 
 
110 
 
111 
/*-------------------------------------------------------------------------+
112 
|         Function: mtos
113 
|      Description: Convert months to seconds since January.
114 
| Global Variables: None.
115 
|        Arguments: m - month to convert, leap - is this a month of a leap year.
116 
|          Returns: number of seconds since January.
117 
+--------------------------------------------------------------------------*/
118 
static inline rtems_unsigned32
119 
mtos(rtems_unsigned8 m, rtems_boolean leap)
120 
{
121 
  static rtems_unsigned16 daysMonth[] = { 0, 0, 31,  59,  90, 120, 151, 181,
122 
                                               212, 243, 273, 304, 334, 365 };
123 
    /* Days since beginning of year until beginning of month. */
124 
 
125 
  return ((daysMonth[m] + (leap ? 1 : 0)) * SECS_PER_DAY);
126 
} /* mtos */
127 
 
128 
#endif /* QUICK_READ */
129 
 
130 
/*-------------------------------------------------------------------------+
131 
|         Function: rtcin
132 
|      Description: Perform action on RTC and return its result.
133 
| Global Variables: None.
134 
|        Arguments: what - what to write to RTC port (what to do).
135 
|          Returns: result received from RTC port after action performed.
136 
+--------------------------------------------------------------------------*/
137 
static inline rtems_unsigned8
138 
rtcin(rtems_unsigned8 what)
139 
{
140 
    rtems_unsigned8 r;
141 
 
142 
    outport_byte(IO_RTC,   what);
143 
    inport_byte (IO_RTC+1, r);
144 
    return r;
145 
} /* rtcin */
146 
 
147 
 
148 
/*-------------------------------------------------------------------------+
149 
| Functions
150 
+--------------------------------------------------------------------------*/
151 
/*-------------------------------------------------------------------------+
152 
|         Function: init_rtc
153 
|      Description: Initialize real-time clock (RTC).
154 
| Global Variables: None.
155 
|        Arguments: None.
156 
|          Returns: Nothing.
157 
+--------------------------------------------------------------------------*/
158 
void
159 
init_rtc(void)
160 
{
161 
  rtems_unsigned8 s;
162 
 
163 
  /* initialize brain-dead battery powered clock */
164 
  outport_byte(IO_RTC,   RTC_STATUSA);
165 
  outport_byte(IO_RTC+1, 0x26);
166 
  outport_byte(IO_RTC,   RTC_STATUSB);
167 
  outport_byte(IO_RTC+1, 2);
168 
 
169 
  outport_byte(IO_RTC,   RTC_DIAG);
170 
  inport_byte (IO_RTC+1, s);
171 
  if (s)
172 
    printk("RTC BIOS diagnostic error %b\n", s);
173 
 
174 
  /* FIXME: This was last line's original version. How was it supposed to work?
175 
       printf("RTC BIOS diagnostic error %b\n", s, RTCDG_BITS); */
176 
} /* init_rtc */
177 
 
178 
 
179 
/*-------------------------------------------------------------------------+
180 
|         Function: rtc_read
181 
|      Description: Read present time from RTC and return it.
182 
| Global Variables: None.
183 
|        Arguments: tod - to return present time in 'rtems_time_of_day' format.
184 
|          Returns: number of seconds from 1970/01/01 corresponding to 'tod'.
185 
+--------------------------------------------------------------------------*/
186 
long int
187 
rtc_read(rtems_time_of_day *tod)
188 
{
189 
  rtems_unsigned8  sa;
190 
  rtems_unsigned32 sec = 0;
191 
 
192 
  memset(tod, 0, sizeof *tod); /* zero tod structure */
193 
 
194 
  /* do we have a realtime clock present? (otherwise we loop below) */
195 
  sa = rtcin(RTC_STATUSA);
196 
  if (sa == 0xff || sa == 0)
197 
    return -1;
198 
 
199 
  /* ready for a read? */
200 
  while ((sa&RTCSA_TUP) == RTCSA_TUP)
201 
    sa = rtcin(RTC_STATUSA);
202 
 
203 
  tod->year     = bcd(rtcin(RTC_YEAR)) + 1900;  /* year    */
204 
  if (tod->year < 1970) tod->year += 100;
205 
  tod->month    = bcd(rtcin(RTC_MONTH));        /* month   */
206 
  tod->day      = bcd(rtcin(RTC_DAY));          /* day     */
207 
  (void)          bcd(rtcin(RTC_WDAY));         /* weekday */
208 
  tod->hour     = bcd(rtcin(RTC_HRS));          /* hour    */
209 
  tod->minute   = bcd(rtcin(RTC_MIN));          /* minutes */
210 
  tod->second   = bcd(rtcin(RTC_SEC));          /* seconds */
211 
  tod->ticks    = 0;
212 
 
213 
#ifndef QUICK_READ  /* Quick read of the RTC: don't return number of seconds. */
214 
  sec =  ytos(tod->year);
215 
  sec += mtos(tod->month, (tod->year % 4) == 0);
216 
  sec += tod->day * SECS_PER_DAY;
217 
  sec += tod->hour * 60 * 60;                     /* hour    */
218 
  sec += tod->minute * 60;                        /* minutes */
219 
  sec += tod->second;                             /* seconds */
220 
#endif /* QUICK_READ */
221 
 
222 
  return (long int)sec;
223 
} /* rtc_read */
224 
 
225 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.