[PATCH] M68k: Mark Sun-3 NCR5380 SCSI broken
[linux-2.6.git] / arch / m68k / mac / misc.c
1 /*
2  * Miscellaneous Mac68K-specific stuff
3  */
4
5 #include <linux/config.h>
6 #include <linux/types.h>
7 #include <linux/errno.h>
8 #include <linux/miscdevice.h>
9 #include <linux/kernel.h>
10 #include <linux/delay.h>
11 #include <linux/sched.h>
12 #include <linux/slab.h>
13 #include <linux/time.h>
14 #include <linux/rtc.h>
15 #include <linux/mm.h>
16
17 #include <linux/adb.h>
18 #include <linux/cuda.h>
19 #include <linux/pmu.h>
20
21 #include <asm/uaccess.h>
22 #include <asm/io.h>
23 #include <asm/rtc.h>
24 #include <asm/system.h>
25 #include <asm/segment.h>
26 #include <asm/setup.h>
27 #include <asm/macintosh.h>
28 #include <asm/mac_via.h>
29 #include <asm/mac_oss.h>
30
31 #define BOOTINFO_COMPAT_1_0
32 #include <asm/bootinfo.h>
33 #include <asm/machdep.h>
34
35 /* Offset between Unix time (1970-based) and Mac time (1904-based) */
36
37 #define RTC_OFFSET 2082844800
38
39 extern struct mac_booter_data mac_bi_data;
40 static void (*rom_reset)(void);
41
42 #ifdef CONFIG_ADB
43 /*
44  * Return the current time as the number of seconds since January 1, 1904.
45  */
46
47 static long adb_read_time(void)
48 {
49         volatile struct adb_request req;
50         long time;
51
52         adb_request((struct adb_request *) &req, NULL,
53                         ADBREQ_RAW|ADBREQ_SYNC,
54                         2, CUDA_PACKET, CUDA_GET_TIME);
55
56         time = (req.reply[3] << 24) | (req.reply[4] << 16)
57                 | (req.reply[5] << 8) | req.reply[6];
58         return time - RTC_OFFSET;
59 }
60
61 /*
62  * Set the current system time
63  */
64
65 static void adb_write_time(long data)
66 {
67         volatile struct adb_request req;
68
69         data += RTC_OFFSET;
70
71         adb_request((struct adb_request *) &req, NULL,
72                         ADBREQ_RAW|ADBREQ_SYNC,
73                         6, CUDA_PACKET, CUDA_SET_TIME,
74                         (data >> 24) & 0xFF, (data >> 16) & 0xFF,
75                         (data >> 8) & 0xFF, data & 0xFF);
76 }
77
78 /*
79  * Get a byte from the NVRAM
80  */
81
82 static __u8 adb_read_pram(int offset)
83 {
84         volatile struct adb_request req;
85
86         adb_request((struct adb_request *) &req, NULL,
87                         ADBREQ_RAW|ADBREQ_SYNC,
88                         4, CUDA_PACKET, CUDA_GET_PRAM,
89                         (offset >> 8) & 0xFF, offset & 0xFF);
90         return req.reply[3];
91 }
92
93 /*
94  * Write a byte to the NVRAM
95  */
96
97 static void adb_write_pram(int offset, __u8 data)
98 {
99         volatile struct adb_request req;
100
101         adb_request((struct adb_request *) &req, NULL,
102                         ADBREQ_RAW|ADBREQ_SYNC,
103                         5, CUDA_PACKET, CUDA_SET_PRAM,
104                         (offset >> 8) & 0xFF, offset & 0xFF,
105                         data);
106 }
107 #endif /* CONFIG_ADB */
108
109 /*
110  * VIA PRAM/RTC access routines
111  *
112  * Must be called with interrupts disabled and
113  * the RTC should be enabled.
114  */
115
116 static __u8 via_pram_readbyte(void)
117 {
118         int     i,reg;
119         __u8    data;
120
121         reg = via1[vBufB] & ~VIA1B_vRTCClk;
122
123         /* Set the RTC data line to be an input. */
124
125         via1[vDirB] &= ~VIA1B_vRTCData;
126
127         /* The bits of the byte come out in MSB order */
128
129         data = 0;
130         for (i = 0 ; i < 8 ; i++) {
131                 via1[vBufB] = reg;
132                 via1[vBufB] = reg | VIA1B_vRTCClk;
133                 data = (data << 1) | (via1[vBufB] & VIA1B_vRTCData);
134         }
135
136         /* Return RTC data line to output state */
137
138         via1[vDirB] |= VIA1B_vRTCData;
139
140         return data;
141 }
142
143 static void via_pram_writebyte(__u8 data)
144 {
145         int     i,reg,bit;
146
147         reg = via1[vBufB] & ~(VIA1B_vRTCClk | VIA1B_vRTCData);
148
149         /* The bits of the byte go in in MSB order */
150
151         for (i = 0 ; i < 8 ; i++) {
152                 bit = data & 0x80? 1 : 0;
153                 data <<= 1;
154                 via1[vBufB] = reg | bit;
155                 via1[vBufB] = reg | bit | VIA1B_vRTCClk;
156         }
157 }
158
159 /*
160  * Execute a VIA PRAM/RTC command. For read commands
161  * data should point to a one-byte buffer for the
162  * resulting data. For write commands it should point
163  * to the data byte to for the command.
164  *
165  * This function disables all interrupts while running.
166  */
167
168 static void via_pram_command(int command, __u8 *data)
169 {
170         unsigned long flags;
171         int     is_read;
172
173         local_irq_save(flags);
174
175         /* Enable the RTC and make sure the strobe line is high */
176
177         via1[vBufB] = (via1[vBufB] | VIA1B_vRTCClk) & ~VIA1B_vRTCEnb;
178
179         if (command & 0xFF00) {         /* extended (two-byte) command */
180                 via_pram_writebyte((command & 0xFF00) >> 8);
181                 via_pram_writebyte(command & 0xFF);
182                 is_read = command & 0x8000;
183         } else {                        /* one-byte command */
184                 via_pram_writebyte(command);
185                 is_read = command & 0x80;
186         }
187         if (is_read) {
188                 *data = via_pram_readbyte();
189         } else {
190                 via_pram_writebyte(*data);
191         }
192
193         /* All done, disable the RTC */
194
195         via1[vBufB] |= VIA1B_vRTCEnb;
196
197         local_irq_restore(flags);
198 }
199
200 static __u8 via_read_pram(int offset)
201 {
202         return 0;
203 }
204
205 static void via_write_pram(int offset, __u8 data)
206 {
207 }
208
209 /*
210  * Return the current time in seconds since January 1, 1904.
211  *
212  * This only works on machines with the VIA-based PRAM/RTC, which
213  * is basically any machine with Mac II-style ADB.
214  */
215
216 static long via_read_time(void)
217 {
218         union {
219                 __u8  cdata[4];
220                 long  idata;
221         } result, last_result;
222         int     ct;
223
224         /*
225          * The NetBSD guys say to loop until you get the same reading
226          * twice in a row.
227          */
228
229         ct = 0;
230         do {
231                 if (++ct > 10) {
232                         printk("via_read_time: couldn't get valid time, "
233                                "last read = 0x%08lx and 0x%08lx\n",
234                                last_result.idata, result.idata);
235                         break;
236                 }
237
238                 last_result.idata = result.idata;
239                 result.idata = 0;
240
241                 via_pram_command(0x81, &result.cdata[3]);
242                 via_pram_command(0x85, &result.cdata[2]);
243                 via_pram_command(0x89, &result.cdata[1]);
244                 via_pram_command(0x8D, &result.cdata[0]);
245         } while (result.idata != last_result.idata);
246
247         return result.idata - RTC_OFFSET;
248 }
249
250 /*
251  * Set the current time to a number of seconds since January 1, 1904.
252  *
253  * This only works on machines with the VIA-based PRAM/RTC, which
254  * is basically any machine with Mac II-style ADB.
255  */
256
257 static void via_write_time(long time)
258 {
259         union {
260                 __u8  cdata[4];
261                 long  idata;
262         } data;
263         __u8    temp;
264
265         /* Clear the write protect bit */
266
267         temp = 0x55;
268         via_pram_command(0x35, &temp);
269
270         data.idata = time + RTC_OFFSET;
271         via_pram_command(0x01, &data.cdata[3]);
272         via_pram_command(0x05, &data.cdata[2]);
273         via_pram_command(0x09, &data.cdata[1]);
274         via_pram_command(0x0D, &data.cdata[0]);
275
276         /* Set the write protect bit */
277
278         temp = 0xD5;
279         via_pram_command(0x35, &temp);
280 }
281
282 static void via_shutdown(void)
283 {
284         if (rbv_present) {
285                 via2[rBufB] &= ~0x04;
286         } else {
287                 /* Direction of vDirB is output */
288                 via2[vDirB] |= 0x04;
289                 /* Send a value of 0 on that line */
290                 via2[vBufB] &= ~0x04;
291                 mdelay(1000);
292         }
293 }
294
295 /*
296  * FIXME: not sure how this is supposed to work exactly...
297  */
298
299 static void oss_shutdown(void)
300 {
301         oss->rom_ctrl = OSS_POWEROFF;
302 }
303
304 #ifdef CONFIG_ADB_CUDA
305
306 static void cuda_restart(void)
307 {
308         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
309                         2, CUDA_PACKET, CUDA_RESET_SYSTEM);
310 }
311
312 static void cuda_shutdown(void)
313 {
314         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
315                         2, CUDA_PACKET, CUDA_POWERDOWN);
316 }
317
318 #endif /* CONFIG_ADB_CUDA */
319
320 #ifdef CONFIG_ADB_PMU
321
322 void pmu_restart(void)
323 {
324         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
325                         3, PMU_PACKET, PMU_SET_INTR_MASK,
326                         PMU_INT_ADB|PMU_INT_TICK);
327
328         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
329                         2, PMU_PACKET, PMU_RESET);
330 }
331
332 void pmu_shutdown(void)
333 {
334         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
335                         3, PMU_PACKET, PMU_SET_INTR_MASK,
336                         PMU_INT_ADB|PMU_INT_TICK);
337
338         adb_request(NULL, NULL, ADBREQ_RAW|ADBREQ_SYNC,
339                         6, PMU_PACKET, PMU_SHUTDOWN,
340                         'M', 'A', 'T', 'T');
341 }
342
343 #endif /* CONFIG_ADB_PMU */
344
345 /*
346  *-------------------------------------------------------------------
347  * Below this point are the generic routines; they'll dispatch to the
348  * correct routine for the hardware on which we're running.
349  *-------------------------------------------------------------------
350  */
351
352 void mac_pram_read(int offset, __u8 *buffer, int len)
353 {
354         __u8 (*func)(int) = NULL;
355         int i;
356
357         if (macintosh_config->adb_type == MAC_ADB_IISI ||
358             macintosh_config->adb_type == MAC_ADB_PB1 ||
359             macintosh_config->adb_type == MAC_ADB_PB2 ||
360             macintosh_config->adb_type == MAC_ADB_CUDA) {
361 #ifdef CONFIG_ADB
362                 func = adb_read_pram;
363 #else
364                 return;
365 #endif
366         } else {
367                 func = via_read_pram;
368         }
369         for (i = 0 ; i < len ; i++) {
370                 buffer[i] = (*func)(offset++);
371         }
372 }
373
374 void mac_pram_write(int offset, __u8 *buffer, int len)
375 {
376         void (*func)(int, __u8) = NULL;
377         int i;
378
379         if (macintosh_config->adb_type == MAC_ADB_IISI ||
380             macintosh_config->adb_type == MAC_ADB_PB1 ||
381             macintosh_config->adb_type == MAC_ADB_PB2 ||
382             macintosh_config->adb_type == MAC_ADB_CUDA) {
383 #ifdef CONFIG_ADB
384                 func = adb_write_pram;
385 #else
386                 return;
387 #endif
388         } else {
389                 func = via_write_pram;
390         }
391         for (i = 0 ; i < len ; i++) {
392                 (*func)(offset++, buffer[i]);
393         }
394 }
395
396 void mac_poweroff(void)
397 {
398         /*
399          * MAC_ADB_IISI may need to be moved up here if it doesn't actually
400          * work using the ADB packet method.  --David Kilzer
401          */
402
403         if (oss_present) {
404                 oss_shutdown();
405         } else if (macintosh_config->adb_type == MAC_ADB_II) {
406                 via_shutdown();
407 #ifdef CONFIG_ADB_CUDA
408         } else if (macintosh_config->adb_type == MAC_ADB_CUDA) {
409                 cuda_shutdown();
410 #endif
411 #ifdef CONFIG_ADB_PMU
412         } else if (macintosh_config->adb_type == MAC_ADB_PB1
413                 || macintosh_config->adb_type == MAC_ADB_PB2) {
414                 pmu_shutdown();
415 #endif
416         }
417         local_irq_enable();
418         printk("It is now safe to turn off your Macintosh.\n");
419         while(1);
420 }
421
422 void mac_reset(void)
423 {
424         if (macintosh_config->adb_type == MAC_ADB_II) {
425                 unsigned long flags;
426
427                 /* need ROMBASE in booter */
428                 /* indeed, plus need to MAP THE ROM !! */
429
430                 if (mac_bi_data.rombase == 0)
431                         mac_bi_data.rombase = 0x40800000;
432
433                 /* works on some */
434                 rom_reset = (void *) (mac_bi_data.rombase + 0xa);
435
436                 if (macintosh_config->ident == MAC_MODEL_SE30) {
437                         /*
438                          * MSch: Machines known to crash on ROM reset ...
439                          */
440                 } else {
441                         local_irq_save(flags);
442
443                         rom_reset();
444
445                         local_irq_restore(flags);
446                 }
447 #ifdef CONFIG_ADB_CUDA
448         } else if (macintosh_config->adb_type == MAC_ADB_CUDA) {
449                 cuda_restart();
450 #endif
451 #ifdef CONFIG_ADB_PMU
452         } else if (macintosh_config->adb_type == MAC_ADB_PB1
453                 || macintosh_config->adb_type == MAC_ADB_PB2) {
454                 pmu_restart();
455 #endif
456         } else if (CPU_IS_030) {
457
458                 /* 030-specific reset routine.  The idea is general, but the
459                  * specific registers to reset are '030-specific.  Until I
460                  * have a non-030 machine, I can't test anything else.
461                  *  -- C. Scott Ananian <cananian@alumni.princeton.edu>
462                  */
463
464                 unsigned long rombase = 0x40000000;
465
466                 /* make a 1-to-1 mapping, using the transparent tran. reg. */
467                 unsigned long virt = (unsigned long) mac_reset;
468                 unsigned long phys = virt_to_phys(mac_reset);
469                 unsigned long offset = phys-virt;
470                 local_irq_disable(); /* lets not screw this up, ok? */
471                 __asm__ __volatile__(".chip 68030\n\t"
472                                      "pmove %0,%/tt0\n\t"
473                                      ".chip 68k"
474                                      : : "m" ((phys&0xFF000000)|0x8777));
475                 /* Now jump to physical address so we can disable MMU */
476                 __asm__ __volatile__(
477                     ".chip 68030\n\t"
478                     "lea %/pc@(1f),%/a0\n\t"
479                     "addl %0,%/a0\n\t"/* fixup target address and stack ptr */
480                     "addl %0,%/sp\n\t"
481                     "pflusha\n\t"
482                     "jmp %/a0@\n\t" /* jump into physical memory */
483                     "0:.long 0\n\t" /* a constant zero. */
484                     /* OK.  Now reset everything and jump to reset vector. */
485                     "1:\n\t"
486                     "lea %/pc@(0b),%/a0\n\t"
487                     "pmove %/a0@, %/tc\n\t" /* disable mmu */
488                     "pmove %/a0@, %/tt0\n\t" /* disable tt0 */
489                     "pmove %/a0@, %/tt1\n\t" /* disable tt1 */
490                     "movel #0, %/a0\n\t"
491                     "movec %/a0, %/vbr\n\t" /* clear vector base register */
492                     "movec %/a0, %/cacr\n\t" /* disable caches */
493                     "movel #0x0808,%/a0\n\t"
494                     "movec %/a0, %/cacr\n\t" /* flush i&d caches */
495                     "movew #0x2700,%/sr\n\t" /* set up status register */
496                     "movel %1@(0x0),%/a0\n\t"/* load interrupt stack pointer */
497                     "movec %/a0, %/isp\n\t"
498                     "movel %1@(0x4),%/a0\n\t" /* load reset vector */
499                     "reset\n\t" /* reset external devices */
500                     "jmp %/a0@\n\t" /* jump to the reset vector */
501                     ".chip 68k"
502                     : : "r" (offset), "a" (rombase) : "a0");
503         }
504
505         /* should never get here */
506         local_irq_enable();
507         printk ("Restart failed.  Please restart manually.\n");
508         while(1);
509 }
510
511 /*
512  * This function translates seconds since 1970 into a proper date.
513  *
514  * Algorithm cribbed from glibc2.1, __offtime().
515  */
516 #define SECS_PER_MINUTE (60)
517 #define SECS_PER_HOUR  (SECS_PER_MINUTE * 60)
518 #define SECS_PER_DAY   (SECS_PER_HOUR * 24)
519
520 static void unmktime(unsigned long time, long offset,
521                      int *yearp, int *monp, int *dayp,
522                      int *hourp, int *minp, int *secp)
523 {
524         /* How many days come before each month (0-12).  */
525         static const unsigned short int __mon_yday[2][13] =
526         {
527                 /* Normal years.  */
528                 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
529                 /* Leap years.  */
530                 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
531         };
532         long int days, rem, y, wday, yday;
533         const unsigned short int *ip;
534
535         days = time / SECS_PER_DAY;
536         rem = time % SECS_PER_DAY;
537         rem += offset;
538         while (rem < 0) {
539                 rem += SECS_PER_DAY;
540                 --days;
541         }
542         while (rem >= SECS_PER_DAY) {
543                 rem -= SECS_PER_DAY;
544                 ++days;
545         }
546         *hourp = rem / SECS_PER_HOUR;
547         rem %= SECS_PER_HOUR;
548         *minp = rem / SECS_PER_MINUTE;
549         *secp = rem % SECS_PER_MINUTE;
550         /* January 1, 1970 was a Thursday. */
551         wday = (4 + days) % 7; /* Day in the week. Not currently used */
552         if (wday < 0) wday += 7;
553         y = 1970;
554
555 #define DIV(a, b) ((a) / (b) - ((a) % (b) < 0))
556 #define LEAPS_THRU_END_OF(y) (DIV (y, 4) - DIV (y, 100) + DIV (y, 400))
557 #define __isleap(year)  \
558   ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
559
560         while (days < 0 || days >= (__isleap (y) ? 366 : 365))
561         {
562                 /* Guess a corrected year, assuming 365 days per year.  */
563                 long int yg = y + days / 365 - (days % 365 < 0);
564
565                 /* Adjust DAYS and Y to match the guessed year.  */
566                 days -= ((yg - y) * 365
567                          + LEAPS_THRU_END_OF (yg - 1)
568                          - LEAPS_THRU_END_OF (y - 1));
569                 y = yg;
570         }
571         *yearp = y - 1900;
572         yday = days; /* day in the year.  Not currently used. */
573         ip = __mon_yday[__isleap(y)];
574         for (y = 11; days < (long int) ip[y]; --y)
575                 continue;
576         days -= ip[y];
577         *monp = y;
578         *dayp = days + 1; /* day in the month */
579         return;
580 }
581
582 /*
583  * Read/write the hardware clock.
584  */
585
586 int mac_hwclk(int op, struct rtc_time *t)
587 {
588         unsigned long now;
589
590         if (!op) { /* read */
591                 if (macintosh_config->adb_type == MAC_ADB_II) {
592                         now = via_read_time();
593                 } else
594 #ifdef CONFIG_ADB
595                 if ((macintosh_config->adb_type == MAC_ADB_IISI) ||
596                            (macintosh_config->adb_type == MAC_ADB_PB1) ||
597                            (macintosh_config->adb_type == MAC_ADB_PB2) ||
598                            (macintosh_config->adb_type == MAC_ADB_CUDA)) {
599                         now = adb_read_time();
600                 } else
601 #endif
602                 if (macintosh_config->adb_type == MAC_ADB_IOP) {
603                         now = via_read_time();
604                 } else {
605                         now = 0;
606                 }
607
608                 t->tm_wday = 0;
609                 unmktime(now, 0,
610                          &t->tm_year, &t->tm_mon, &t->tm_mday,
611                          &t->tm_hour, &t->tm_min, &t->tm_sec);
612                 printk("mac_hwclk: read %04d-%02d-%-2d %02d:%02d:%02d\n",
613                         t->tm_year + 1900, t->tm_mon + 1, t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec);
614         } else { /* write */
615                 printk("mac_hwclk: tried to write %04d-%02d-%-2d %02d:%02d:%02d\n",
616                         t->tm_year + 1900, t->tm_mon + 1, t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec);
617
618 #if 0   /* it trashes my rtc */
619                 now = mktime(t->tm_year + 1900, t->tm_mon + 1, t->tm_mday,
620                              t->tm_hour, t->tm_min, t->tm_sec);
621
622                 if (macintosh_config->adb_type == MAC_ADB_II) {
623                         via_write_time(now);
624                 } else if ((macintosh_config->adb_type == MAC_ADB_IISI) ||
625                            (macintosh_config->adb_type == MAC_ADB_PB1) ||
626                            (macintosh_config->adb_type == MAC_ADB_PB2) ||
627                            (macintosh_config->adb_type == MAC_ADB_CUDA)) {
628                         adb_write_time(now);
629                 } else if (macintosh_config->adb_type == MAC_ADB_IOP) {
630                         via_write_time(now);
631                 }
632 #endif
633         }
634         return 0;
635 }
636
637 /*
638  * Set minutes/seconds in the hardware clock
639  */
640
641 int mac_set_clock_mmss (unsigned long nowtime)
642 {
643         struct rtc_time now;
644
645         mac_hwclk(0, &now);
646         now.tm_sec = nowtime % 60;
647         now.tm_min = (nowtime / 60) % 60;
648         mac_hwclk(1, &now);
649
650         return 0;
651 }