sys/arch/hpcmips/tx/tx39.c

   1 /*      $NetBSD: tx39.c,v 1.39 2008/04/28 20:23:21 martin Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1999, 2000 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by UCHIYAMA Yasushi.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 __KERNEL_RCSID(0, "$NetBSD: tx39.c,v 1.39 2008/04/28 20:23:21 martin Exp $");
  34
  35 #include "opt_vr41xx.h"
  36 #include "opt_tx39xx.h"
  37 #include "m38813c.h"
  38 #include "tc5165buf.h"
  39
  40 #include <sys/param.h>
  41 #include <sys/systm.h>
  42
  43 #include <uvm/uvm_extern.h>
  44
  45 #include <mips/cache.h>
  46
  47 #include <machine/locore.h>   /* cpu_id */
  48 #include <machine/bootinfo.h> /* bootinfo */
  49 #include <machine/sysconf.h>  /* platform */
  50
  51 #include <machine/platid.h>
  52 #include <machine/platid_mask.h>
  53
  54 #include <machine/bus.h>
  55
  56 #include <hpcmips/tx/tx39biureg.h>
  57 #include <hpcmips/tx/tx39reg.h>
  58 #include <hpcmips/tx/tx39var.h>
  59 #ifdef TX391X
  60 #include <hpcmips/tx/tx3912videovar.h>
  61 #endif
  62
  63 #include <sys/termios.h>
  64 #include <sys/ttydefaults.h>
  65 #include <hpcmips/tx/tx39uartvar.h>
  66 #ifndef CONSPEED
  67 #define CONSPEED TTYDEF_SPEED
  68 #endif
  69
  70 /* console keyboard */
  71 #if NM38813C > 0
  72 #include <hpcmips/dev/m38813cvar.h>
  73 #endif
  74 #if NTC5165BUF > 0
  75 #include <hpcmips/dev/tc5165bufvar.h>
  76 #endif
  77
  78 struct tx_chipset_tag tx_chipset;
  79
  80 void    tx_init(void);
  81 #if defined(VR41XX) && defined(TX39XX)
  82 #define TX_INTR tx_intr
  83 #else
  84 #define TX_INTR cpu_intr        /* locore_mips3 directly call this */
  85 #endif
  86
  87 extern void TX_INTR(u_int32_t, u_int32_t, u_int32_t, u_int32_t);
  88
  89 void    tx39clock_cpuspeed(int *, int *);
  90
  91 /* TX39-specific initialization vector */
  92 void    tx_cons_init(void);
  93 void    tx_fb_init(void **);
  94 void    tx_mem_init(paddr_t);
  95 void    tx_find_dram(paddr_t, paddr_t);
  96 void    tx_reboot(int, char *);
  97
  98 void
  99 tx_init(void)
 100 {
 101         tx_chipset_tag_t tc;
 102         int model, rev;
 103         int cpuclock;
 104
 105         tc = tx_conf_get_tag();
 106         /*
 107          * Platform Specific Function Hooks
 108          */
 109         platform.cpu_intr       = TX_INTR;
 110         platform.cpu_idle       = NULL; /* not implemented yet */
 111         platform.cons_init      = tx_cons_init;
 112         platform.fb_init        = tx_fb_init;
 113         platform.mem_init       = tx_mem_init;
 114         platform.reboot         = tx_reboot;
 115
 116
 117         model = MIPS_PRID_REV(cpu_id);
 118
 119         switch (model) {
 120         default:
 121                 /* Unknown TOSHIBA TX39-series */
 122                 sprintf(cpu_name, "Unknown TOSHIBA TX39-series %x", model);
 123                 break;
 124         case TMPR3912:
 125                 tx39clock_cpuspeed(&cpuclock, &cpuspeed);
 126
 127                 sprintf(cpu_name, "TOSHIBA TMPR3912 %d.%02d MHz",
 128                     cpuclock / 1000000, (cpuclock % 1000000) / 10000);
 129                 tc->tc_chipset = __TX391X;
 130                 break;
 131         case TMPR3922:
 132                 tx39clock_cpuspeed(&cpuclock, &cpuspeed);
 133                 rev = tx_conf_read(tc, TX3922_REVISION_REG);
 134
 135                 sprintf(cpu_name, "TOSHIBA TMPR3922 rev. %x.%x "
 136                     "%d.%02d MHz", (rev >> 4) & 0xf, rev & 0xf,
 137                     cpuclock / 1000000, (cpuclock % 1000000) / 10000);
 138                 tc->tc_chipset = __TX392X;
 139                 break;
 140         }
 141 }
 142
 143 void
 144 tx_fb_init(void **kernend)
 145 {
 146 #ifdef TX391X
 147         paddr_t fb_end;
 148
 149         fb_end = MIPS_KSEG0_TO_PHYS(mem_clusters[0].start +
 150             mem_clusters[0].size - 1);
 151         tx3912video_init(MIPS_KSEG0_TO_PHYS(*kernend), &fb_end);
 152
 153         /* Skip V-RAM area */
 154         *kernend = (void *)MIPS_PHYS_TO_KSEG0(fb_end);
 155 #endif /* TX391X */
 156 #ifdef TX392X
 157         /*
 158          *  Plum V-RAM isn't accessible until pmap_bootstrap,
 159          * at this time, frame buffer device is disabled.
 160          */
 161         bootinfo->fb_addr = 0;
 162 #endif /* TX392X */
 163 }
 164
 165 void
 166 tx_mem_init(paddr_t kernend)
 167 {
 168
 169         mem_clusters[0].start = 0;
 170         mem_clusters[0].size = kernend;
 171         mem_cluster_cnt = 1;
 172         /* search DRAM bank 0 */
 173         tx_find_dram(kernend, 0x02000000);
 174
 175         /* search DRAM bank 1 */
 176         tx_find_dram(0x02000000, 0x04000000);
 177 }
 178
 179 void
 180 tx_find_dram(paddr_t start, paddr_t end)
 181 {
 182         char *page, *startaddr, *endaddr;
 183         u_int32_t magic0, magic1;
 184 #define MAGIC0          (*(volatile u_int32_t *)(page + 0))
 185 #define MAGIC1          (*(volatile u_int32_t *)(page + 4))
 186
 187         startaddr = (char *)MIPS_PHYS_TO_KSEG1(start);
 188         endaddr = (char *)MIPS_PHYS_TO_KSEG1(end);
 189
 190         page = startaddr;
 191         if (badaddr(page, 4))
 192                 return;
 193
 194         do {
 195                 magic0 = random();
 196                 magic1 = random();
 197         } while (MAGIC0 == magic0 || MAGIC0 == magic1);
 198
 199         MAGIC0 = magic0;
 200         MAGIC1 = magic1;
 201         wbflush();
 202
 203         if (MAGIC0 != magic0 || MAGIC1 != magic1)
 204                 return;
 205
 206         for (page += PAGE_SIZE; page < endaddr; page += PAGE_SIZE) {
 207                 if (badaddr(page, 4))
 208                         return;
 209                 if (MAGIC0 == magic0 &&
 210                     MAGIC1 == magic1) {
 211                         goto memend_found;
 212                 }
 213         }
 214
 215         /* check for 32MByte memory */
 216         page -= PAGE_SIZE;
 217         MAGIC0 = magic0;
 218         MAGIC1 = magic1;
 219         wbflush();
 220         if (MAGIC0 != magic0 || MAGIC1 != magic1)
 221                 return; /* no memory in this bank */
 222
 223  memend_found:
 224         mem_clusters[mem_cluster_cnt].start = start;
 225         mem_clusters[mem_cluster_cnt].size = page - startaddr;
 226
 227         /* skip kernel area */
 228         if (mem_cluster_cnt == 1)
 229                 mem_clusters[mem_cluster_cnt].size -= start;
 230
 231         mem_cluster_cnt++;
 232 #undef MAGIC0
 233 #undef MAGIC1
 234 }
 235
 236 void
 237 tx_reboot(int howto, char *bootstr)
 238 {
 239
 240         goto *(u_int32_t *)MIPS_RESET_EXC_VEC;
 241 }
 242
 243 void
 244 tx_cons_init(void)
 245 {
 246         int slot;
 247 #define CONSPLATIDMATCH(p)                                              \
 248         platid_match(&platid, &platid_mask_MACH_##p)
 249
 250 #ifdef SERIALCONSSLOT
 251         slot = SERIALCONSSLOT;
 252 #else
 253         slot = TX39_UARTA;
 254 #endif
 255         if (bootinfo->bi_cnuse & BI_CNUSE_SERIAL) {
 256                 if(txcom_cnattach(slot, CONSPEED,
 257                     (TTYDEF_CFLAG & ~(CSIZE | PARENB)) | CS8)) {
 258                         panic("tx_cons_init: can't attach serial console.");
 259                 }
 260         } else {
 261 #if NM38813C > 0
 262                 if(CONSPLATIDMATCH(VICTOR_INTERLINK) &&
 263                     m38813c_cnattach(TX39_SYSADDR_CARD1)) {
 264                         goto panic;
 265                 }
 266 #endif
 267 #if NTC5165BUF > 0
 268                 if(CONSPLATIDMATCH(COMPAQ_C) &&
 269                     tc5165buf_cnattach(TX39_SYSADDR_CS3)) {
 270                         goto panic;
 271                 }
 272
 273                 if(CONSPLATIDMATCH(SHARP_TELIOS) &&
 274                     tc5165buf_cnattach(TX39_SYSADDR_CS1)) {
 275                         goto panic;
 276                 }
 277
 278                 if(CONSPLATIDMATCH(SHARP_MOBILON) &&
 279                     tc5165buf_cnattach(TX39_SYSADDR_MCS0)) {
 280                         goto panic;
 281                 }
 282 #endif
 283         }
 284
 285         return;
 286  panic:
 287         panic("tx_cons_init: can't init console");
 288         /* NOTREACHED */
 289 }
 290
 291 void
 292 tx_conf_register_intr(tx_chipset_tag_t t, void *intrt)
 293 {
 294
 295         KASSERT(t == &tx_chipset);
 296         tx_chipset.tc_intrt = intrt;
 297 }
 298
 299 void
 300 tx_conf_register_power(tx_chipset_tag_t t, void *powert)
 301 {
 302
 303         KASSERT(t == &tx_chipset);
 304         tx_chipset.tc_powert = powert;
 305 }
 306
 307 void
 308 tx_conf_register_clock(tx_chipset_tag_t t, void *clockt)
 309 {
 310
 311         KASSERT(t == &tx_chipset);
 312         tx_chipset.tc_clockt = clockt;
 313 }
 314
 315 void
 316 tx_conf_register_sound(tx_chipset_tag_t t, void *soundt)
 317 {
 318
 319         KASSERT(t == &tx_chipset);
 320         tx_chipset.tc_soundt = soundt;
 321 }
 322
 323 void
 324 tx_conf_register_video(tx_chipset_tag_t t, void *videot)
 325 {
 326
 327         KASSERT(t == &tx_chipset);
 328         tx_chipset.tc_videot = videot;
 329 }