/*
 * (C) Copyright 2005
 * Sangmoon Kim, Etin Systems. dogoil@etinsys.com.
 *
 * See file CREDITS for list of people who contributed to this
 * project.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA 02111-1307 USA
 */

#include <common.h>
#include <mpc824x.h>
#include <pci.h>
#include <i2c.h>
#include <netdev.h>
#include <asm/processor.h>
#include <asm/mmu.h>

int checkboard(void)
{
        puts ("Board: KVME080\n");
        return 0;
}

unsigned long setdram(int m, int row, int col, int bank)
{
        int i;
        unsigned long start, end;
        uint32_t mccr1;
        uint32_t mear1 = 0, emear1 = 0, msar1 = 0, emsar1 = 0;
        uint32_t mear2 = 0, emear2 = 0, msar2 = 0, emsar2 = 0;
        uint8_t mber = 0;

        CONFIG_READ_WORD(MCCR1, mccr1);
        mccr1 &= 0xffff0000;

        start = CONFIG_SYS_SDRAM_BASE;
        end = start + (1 << (col + row + 3) ) * bank - 1;

        for (i = 0; i < m; i++) {
                mccr1 |= ((row == 13)? 2 : (bank == 4)? 0 : 3) << i * 2;
                if (i < 4) {
                        msar1  |= ((start >> 20) & 0xff) << i * 8;
                        emsar1 |= ((start >> 28) & 0xff) << i * 8;
                        mear1  |= ((end >> 20) & 0xff) << i * 8;
                        emear1 |= ((end >> 28) & 0xff) << i * 8;
                } else {
                        msar2  |= ((start >> 20) & 0xff) << (i-4) * 8;
                        emsar2 |= ((start >> 28) & 0xff) << (i-4) * 8;
                        mear2  |= ((end >> 20) & 0xff) << (i-4) * 8;
                        emear2 |= ((end >> 28) & 0xff) << (i-4) * 8;
                }
                mber |= 1 << i;
                start += (1 << (col + row + 3) ) * bank;
                end += (1 << (col + row + 3) ) * bank;
        }
        for (; i < 8; i++) {
                if (i < 4) {
                        msar1  |= 0xff << i * 8;
                        emsar1 |= 0x30 << i * 8;
                        mear1  |= 0xff << i * 8;
                        emear1 |= 0x30 << i * 8;
                } else {
                        msar2  |= 0xff << (i-4) * 8;
                        emsar2 |= 0x30 << (i-4) * 8;
                        mear2  |= 0xff << (i-4) * 8;
                        emear2 |= 0x30 << (i-4) * 8;
                }
        }

        CONFIG_WRITE_WORD(MCCR1, mccr1);
        CONFIG_WRITE_WORD(MSAR1, msar1);
        CONFIG_WRITE_WORD(EMSAR1, emsar1);
        CONFIG_WRITE_WORD(MEAR1, mear1);
        CONFIG_WRITE_WORD(EMEAR1, emear1);
        CONFIG_WRITE_WORD(MSAR2, msar2);
        CONFIG_WRITE_WORD(EMSAR2, emsar2);
        CONFIG_WRITE_WORD(MEAR2, mear2);
        CONFIG_WRITE_WORD(EMEAR2, emear2);
        CONFIG_WRITE_BYTE(MBER, mber);

        return (1 << (col + row + 3) ) * bank * m;
}

phys_size_t initdram(int board_type)
{
        unsigned int msr;
        long int size = 0;

        msr = mfmsr();
        mtmsr(msr & ~(MSR_IR | MSR_DR));
        mtspr(IBAT2L, CONFIG_SYS_IBAT0L + 0x10000000);
        mtspr(IBAT2U, CONFIG_SYS_IBAT0U + 0x10000000);
        mtspr(DBAT2L, CONFIG_SYS_DBAT0L + 0x10000000);
        mtspr(DBAT2U, CONFIG_SYS_DBAT0U + 0x10000000);
        mtmsr(msr);

        if (setdram(2,13,10,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x20000000))
                size = 0x20000000;      /* 512MB */
        else if (setdram(1,13,10,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x10000000))
                size = 0x10000000;      /* 256MB */
        else if (setdram(2,13,9,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x10000000))
                size = 0x10000000;      /* 256MB */
        else if (setdram(1,13,9,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x08000000))
                size = 0x08000000;      /* 128MB */
        else if (setdram(2,12,9,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x08000000))
                size = 0x08000000;      /* 128MB */
        else if (setdram(1,12,9,4) == get_ram_size(CONFIG_SYS_SDRAM_BASE, 0x04000000))
                size = 0x04000000;      /* 64MB */

        msr = mfmsr();
        mtmsr(msr & ~(MSR_IR | MSR_DR));
        mtspr(IBAT2L, CONFIG_SYS_IBAT2L);
        mtspr(IBAT2U, CONFIG_SYS_IBAT2U);
        mtspr(DBAT2L, CONFIG_SYS_DBAT2L);
        mtspr(DBAT2U, CONFIG_SYS_DBAT2U);
        mtmsr(msr);

        return size;
}

struct pci_controller hose;

void pci_init_board(void)
{
        pci_mpc824x_init(&hose);
}

int board_early_init_f(void)
{
        *(volatile unsigned char *)(0xff080120) = 0xfb;

        return 0;
}

int board_early_init_r(void)
{
        unsigned int msr;

        CONFIG_WRITE_WORD(ERCR1, 0x95ff8000);
        CONFIG_WRITE_WORD(ERCR3, 0x0c00000e);
        CONFIG_WRITE_WORD(ERCR4, 0x0800000e);

        msr = mfmsr();
        mtmsr(msr & ~(MSR_IR | MSR_DR));
        mtspr(IBAT1L, 0x70000000 | BATL_PP_10 | BATL_CACHEINHIBIT);
        mtspr(IBAT1U, 0x70000000 | BATU_BL_256M | BATU_VS | BATU_VP);
        mtspr(DBAT1L, 0x70000000 | BATL_PP_10 | BATL_CACHEINHIBIT);
        mtspr(DBAT1U, 0x70000000 | BATU_BL_256M | BATU_VS | BATU_VP);
        mtmsr(msr);

        return 0;
}

extern int multiverse_init(void);

int misc_init_r(void)
{
        multiverse_init();
        return 0;
}

void *nvram_read(void *dest, const long src, size_t count)
{
        volatile uchar *d = (volatile uchar*) dest;
        volatile uchar *s = (volatile uchar*) src;
        while(count--) {
                *d++ = *s++;
                asm volatile("sync");
        }
        return dest;
}

void nvram_write(long dest, const void *src, size_t count)
{
        volatile uchar *d = (volatile uchar*)dest;
        volatile uchar *s = (volatile uchar*)src;
        while(count--) {
                *d++ = *s++;
                asm volatile("sync");
        }
}

int board_eth_init(bd_t *bis)
{
        return pci_eth_init(bis);
}