e8bec67be84d1ce3fcd573d55540775c77e1e7c3
[linux-2.6.git] / arch / sh / boards / sh03 / rtc.c
1 /*
2  * linux/arch/sh/boards/sh03/rtc.c -- CTP/PCI-SH03 on-chip RTC support
3  *
4  *  Copyright (C) 2004  Saito.K & Jeanne(ksaito@interface.co.jp)
5  *
6  */
7
8 #include <linux/init.h>
9 #include <linux/kernel.h>
10 #include <linux/sched.h>
11 #include <linux/time.h>
12 #include <asm/io.h>
13 #include <linux/rtc.h>
14 #include <linux/spinlock.h>
15
16 #define RTC_BASE        0xb0000000
17 #define RTC_SEC1        (RTC_BASE + 0)
18 #define RTC_SEC10       (RTC_BASE + 1)
19 #define RTC_MIN1        (RTC_BASE + 2)
20 #define RTC_MIN10       (RTC_BASE + 3)
21 #define RTC_HOU1        (RTC_BASE + 4)
22 #define RTC_HOU10       (RTC_BASE + 5)
23 #define RTC_WEE1        (RTC_BASE + 6)
24 #define RTC_DAY1        (RTC_BASE + 7)
25 #define RTC_DAY10       (RTC_BASE + 8)
26 #define RTC_MON1        (RTC_BASE + 9)
27 #define RTC_MON10       (RTC_BASE + 10)
28 #define RTC_YEA1        (RTC_BASE + 11)
29 #define RTC_YEA10       (RTC_BASE + 12)
30 #define RTC_YEA100      (RTC_BASE + 13)
31 #define RTC_YEA1000     (RTC_BASE + 14)
32 #define RTC_CTL         (RTC_BASE + 15)
33 #define RTC_BUSY        1
34 #define RTC_STOP        2
35
36 #ifndef BCD_TO_BIN
37 #define BCD_TO_BIN(val) ((val)=((val)&15) + ((val)>>4)*10)
38 #endif
39
40 #ifndef BIN_TO_BCD
41 #define BIN_TO_BCD(val) ((val)=(((val)/10)<<4) + (val)%10)
42 #endif
43
44 extern void (*rtc_get_time)(struct timespec *);
45 extern int (*rtc_set_time)(const time_t);
46 extern spinlock_t rtc_lock;
47
48 unsigned long get_cmos_time(void)
49 {
50         unsigned int year, mon, day, hour, min, sec;
51
52         spin_lock(&rtc_lock);
53  again:
54         do {
55                 sec  = (ctrl_inb(RTC_SEC1) & 0xf) + (ctrl_inb(RTC_SEC10) & 0x7) * 10;
56                 min  = (ctrl_inb(RTC_MIN1) & 0xf) + (ctrl_inb(RTC_MIN10) & 0xf) * 10;
57                 hour = (ctrl_inb(RTC_HOU1) & 0xf) + (ctrl_inb(RTC_HOU10) & 0xf) * 10;
58                 day  = (ctrl_inb(RTC_DAY1) & 0xf) + (ctrl_inb(RTC_DAY10) & 0xf) * 10;
59                 mon  = (ctrl_inb(RTC_MON1) & 0xf) + (ctrl_inb(RTC_MON10) & 0xf) * 10;
60                 year = (ctrl_inb(RTC_YEA1) & 0xf) + (ctrl_inb(RTC_YEA10) & 0xf) * 10
61                      + (ctrl_inb(RTC_YEA100 ) & 0xf) * 100
62                      + (ctrl_inb(RTC_YEA1000) & 0xf) * 1000;
63         } while (sec != (ctrl_inb(RTC_SEC1) & 0xf) + (ctrl_inb(RTC_SEC10) & 0x7) * 10);
64         if (year == 0 || mon < 1 || mon > 12 || day > 31 || day < 1 ||
65             hour > 23 || min > 59 || sec > 59) {
66                 printk(KERN_ERR
67                        "SH-03 RTC: invalid value, resetting to 1 Jan 2000\n");
68                 printk("year=%d, mon=%d, day=%d, hour=%d, min=%d, sec=%d\n",
69                        year, mon, day, hour, min, sec);
70
71                 ctrl_outb(0, RTC_SEC1); ctrl_outb(0, RTC_SEC10);
72                 ctrl_outb(0, RTC_MIN1); ctrl_outb(0, RTC_MIN10);
73                 ctrl_outb(0, RTC_HOU1); ctrl_outb(0, RTC_HOU10);
74                 ctrl_outb(6, RTC_WEE1);
75                 ctrl_outb(1, RTC_DAY1); ctrl_outb(0, RTC_DAY10);
76                 ctrl_outb(1, RTC_MON1); ctrl_outb(0, RTC_MON10);
77                 ctrl_outb(0, RTC_YEA1); ctrl_outb(0, RTC_YEA10);
78                 ctrl_outb(0, RTC_YEA100);
79                 ctrl_outb(2, RTC_YEA1000);
80                 ctrl_outb(0, RTC_CTL);
81                 goto again;
82         }
83
84         spin_unlock(&rtc_lock);
85         return mktime(year, mon, day, hour, min, sec);
86 }
87
88 void sh03_rtc_gettimeofday(struct timespec *tv)
89 {
90
91         tv->tv_sec = get_cmos_time();
92         tv->tv_nsec = 0;
93 }
94
95 static int set_rtc_mmss(unsigned long nowtime)
96 {
97         int retval = 0;
98         int real_seconds, real_minutes, cmos_minutes;
99         int i;
100
101         /* gets recalled with irq locally disabled */
102         spin_lock(&rtc_lock);
103         for (i = 0 ; i < 1000000 ; i++) /* may take up to 1 second... */
104                 if (!(ctrl_inb(RTC_CTL) & RTC_BUSY))
105                         break;
106         cmos_minutes = (ctrl_inb(RTC_MIN1) & 0xf) + (ctrl_inb(RTC_MIN10) & 0xf) * 10;
107         real_seconds = nowtime % 60;
108         real_minutes = nowtime / 60;
109         if (((abs(real_minutes - cmos_minutes) + 15)/30) & 1)
110                 real_minutes += 30;             /* correct for half hour time zone */
111         real_minutes %= 60;
112
113         if (abs(real_minutes - cmos_minutes) < 30) {
114                 ctrl_outb(real_seconds % 10, RTC_SEC1);
115                 ctrl_outb(real_seconds / 10, RTC_SEC10);
116                 ctrl_outb(real_minutes % 10, RTC_MIN1);
117                 ctrl_outb(real_minutes / 10, RTC_MIN10);
118         } else {
119                 printk(KERN_WARNING
120                        "set_rtc_mmss: can't update from %d to %d\n",
121                        cmos_minutes, real_minutes);
122                 retval = -1;
123         }
124         spin_unlock(&rtc_lock);
125
126         return retval;
127 }
128
129 int sh03_rtc_settimeofday(const time_t secs)
130 {
131         unsigned long nowtime = secs;
132
133         return set_rtc_mmss(nowtime);
134 }
135
136 void sh03_time_init(void)
137 {
138         rtc_get_time = sh03_rtc_gettimeofday;
139         rtc_set_time = sh03_rtc_settimeofday;
140 }