source: rtems/c/src/lib/libbsp/i386/ts_386ex/clock/rtc.c @ 2ec8160

4.104.114.84.95
Last change on this file since 2ec8160 was e61df10, checked in by Joel Sherrill <joel.sherrill@…>, on 09/04/03 at 18:51:28

2003-09-04 Joel Sherrill <joel@…>

  • clock/ckinit.c, clock/rtc.c, console/console.c, include/bsp.h, include/coverhd.h, network/ne2000.c, start/80386ex.h, start/80386ex.inc, start/macros.inc, start/start.S, startup/bspstart.c, startup/linkcmds, startup/setvec.c, timer/timer.c, timer/timerisr.S, tools/debug_ada/init.c, tools/debug_c/init.c, tools/debug_c/serial_gdb.c, tools/debug_c/system.h, tools/network_ada/listener/init.c, tools/network_ada/tcprelay/init.c, tools/ts_1325_ada/init.c: URL for license changed.
  • Property mode set to 100644
File size: 8.8 KB
Line 
1/*-------------------------------------------------------------------------+
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.rtems.com/license/LICENSE.
29| **************************************************************************
30|
31|  $Id$
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+--------------------------------------------------------------------------*/
84static inline rtems_unsigned8
85bcd(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+--------------------------------------------------------------------------*/
104static inline rtems_unsigned32
105ytos(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+--------------------------------------------------------------------------*/
118static inline rtems_unsigned32
119mtos(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+--------------------------------------------------------------------------*/
137static inline rtems_unsigned8
138rtcin(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+--------------------------------------------------------------------------*/
158void
159init_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+--------------------------------------------------------------------------*/
186long int
187rtc_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
Note: See TracBrowser for help on using the repository browser.