/*
 * (C) 2003 Linux Networx, SuSE Linux AG
 * (C) 2004 Tyan Computer
 */
#include <console/console.h>
#include <device/device.h>
#include <device/pci.h>
#include <device/pci_ids.h>
#include <device/pci_ops.h>
#include <pc80/mc146818rtc.h>
#include <pc80/isa-dma.h>
#include <arch/io.h>
#include "i82801dbm.h"



#define NMI_OFF 0

void i82801dbm_enable_ioapic( struct device *dev) 
{
        uint32_t dword;
        volatile uint32_t *ioapic_sba = (volatile uint32_t *)0xfec00000;
        volatile uint32_t *ioapic_sbd = (volatile uint32_t *)0xfec00010;

        dword = pci_read_config32(dev, GEN_CNTL);
        dword |= (3 << 7); /* enable ioapic */
        dword |= (1 <<13); /* coprocessor error enable */
        dword |= (1 << 1); /* delay transaction enable */
        dword |= (1 << 2); /* DMA collection buf enable */
        pci_write_config32(dev, GEN_CNTL, dword);
        printk_debug("ioapic southbridge enabled %x\n",dword);
        *ioapic_sba=0;
        *ioapic_sbd=(2<<24);
        //lyh *ioapic_sba=3;
        //lyh *ioapic_sbd=1;    
        *ioapic_sba=0;
        dword=*ioapic_sbd;
        printk_debug("Southbridge apic id = %x\n",dword);
        if(dword!=(2<<24))
                for(;;);
        //lyh *ioapic_sba=3;
        //lyh dword=*ioapic_sbd;
        //lyh printk_debug("Southbridge apic DT = %x\n",dword);
        //lyh if(dword!=1)
        //lyh   for(;;);


}
void i82801dbm_enable_serial_irqs( struct device *dev)
{
        pci_write_config8(dev, SERIRQ_CNTL, (1 << 7)|(1 << 6)|((21 - 17) << 2)|(0<< 0));
}
void i82801dbm_lpc_route_dma( struct device *dev, uint8_t mask) 
{
        uint16_t word;
        int i;
        word = pci_read_config16(dev, PCI_DMA_CFG);
        word &= ((1 << 10) - (1 << 8));
        for(i = 0; i < 8; i++) {
                if (i == 4)
                        continue;
                word |= ((mask & (1 << i))? 3:1) << (i*2);
        }
        pci_write_config16(dev, PCI_DMA_CFG, word);
}
void i82801dbm_rtc_init(struct device *dev)
{
        uint8_t byte;
        uint32_t dword;
        int rtc_failed;
        byte = pci_read_config8(dev, GEN_PMCON_3);
        rtc_failed = byte & RTC_FAILED;
        if (rtc_failed) {
                byte &= ~(1 << 1); /* preserve the power fail state */
                pci_write_config8(dev, GEN_PMCON_3, byte);
        }
        dword = pci_read_config32(dev, GEN_STS);
        rtc_failed |= dword & (1 << 2);
        rtc_init(rtc_failed);
}


void i82801dbm_1f0_misc(struct device *dev)
{
        pci_write_config16(dev, PCICMD, 0x014f);
        pci_write_config32(dev, PMBASE, 0x00001001);
        pci_write_config8(dev, ACPI_CNTL, 0x10);
        pci_write_config32(dev, GPIO_BASE, 0x00001181);
        pci_write_config8(dev, GPIO_CNTL, 0x10);
        pci_write_config32(dev, PIRQA_ROUT, 0x0A05030B);
        pci_write_config8(dev, PIRQE_ROUT, 0x07);
        pci_write_config8(dev, RTC_CONF, 0x04);
        pci_write_config8(dev, COM_DEC, 0x10);  //lyh E0->
        pci_write_config16(dev, LPC_EN, 0x000F);  //LYH 000D->
}

static void enable_hpet(struct device *dev)
{
	const unsigned long hpet_address = 0xfed0000;

        uint32_t dword;
	uint32_t code = (0 & 0x3);
        
        dword = pci_read_config32(dev, GEN_CNTL);
        dword |= (1 << 17); /* enable hpet */
	/*Bits [16:15]Memory Address Range
	00 FED0_0000h - FED0_03FFh
	01 FED0_1000h - FED0_13FFh
	10 FED0_2000h - FED0_23FFh
	11 FED0_3000h - FED0_33FFh*/

        dword &= ~(3 << 15); /* clear it */
	dword |= (code<<15);

	printk_debug("enabling HPET @0x%x\n", hpet_address | (code <<12) );
}

static void lpc_init(struct device *dev)
{
	uint8_t byte;
	int pwr_on=-1;
	int nmi_option;

	/* IO APIC initialization */
	i82801dbm_enable_ioapic(dev);

	i82801dbm_enable_serial_irqs(dev);

#ifdef SUSPICIOUS_LOOKING_CODE	
	// The ICH-4 datasheet does not mention this configuration register. 
	// This code may have been inherited (incorrectly) from code for the AMD 766 southbridge,
	// which *does* support this functionality.

	/* posted memory write enable */
	byte = pci_read_config8(dev, 0x46);
	pci_write_config8(dev, 0x46, byte | (1<<0)); 
#endif

	/* power after power fail */
	        /* FIXME this doesn't work! */
        /* Which state do we want to goto after g3 (power restored)?
         * 0 == S0 Full On
         * 1 == S5 Soft Off
         */
        pci_write_config8(dev, GEN_PMCON_3, pwr_on?0:1);
        printk_info("set power %s after power fail\n", pwr_on?"on":"off");
#if 0
	/* Enable Error reporting */
	/* Set up sync flood detected */
	byte = pci_read_config8(dev, 0x47);
	byte |= (1 << 1);
	pci_write_config8(dev, 0x47, byte);
#endif

	/* Set up NMI on errors */
    byte = inb(0x61);
    byte &= ~(1 << 3); /* IOCHK# NMI Enable */
    byte &= ~(1 << 2); /* PCI SERR# Enable */
    outb(byte, 0x61);
    byte = inb(0x70);
	nmi_option = NMI_OFF;
	get_option(&nmi_option, "nmi");
	if (nmi_option) {			
        byte &= ~(1 << 7); /* set NMI */
        outb(byte, 0x70);
	}
	
	/* Initialize the real time clock */
	i82801dbm_rtc_init(dev);

	i82801dbm_lpc_route_dma(dev, 0xff);

	/* Initialize isa dma */
	isa_dma_init();

	i82801dbm_1f0_misc(dev);
	/* Initialize the High Precision Event Timers */
	enable_hpet(dev);
}

static void i82801dbm_lpc_read_resources(device_t dev)
{
	struct resource *res;

	/* Get the normal pci resources of this device */
	pci_dev_read_resources(dev);

	/* Add an extra subtractive resource for both memory and I/O */
	res = new_resource(dev, IOINDEX_SUBTRACTIVE(0, 0));
	res->flags = IORESOURCE_IO | IORESOURCE_SUBTRACTIVE | IORESOURCE_ASSIGNED;

	res = new_resource(dev, IOINDEX_SUBTRACTIVE(1, 0));
	res->flags = IORESOURCE_MEM | IORESOURCE_SUBTRACTIVE | IORESOURCE_ASSIGNED;
}

static void i82801dbm_lpc_enable_resources(device_t dev)
{
	pci_dev_enable_resources(dev);
	enable_childrens_resources(dev);
}

static struct device_operations lpc_ops  = {
	.read_resources   = i82801dbm_lpc_read_resources,
	.set_resources    = pci_dev_set_resources,
	.enable_resources = i82801dbm_lpc_enable_resources,
	.init             = lpc_init,
	.scan_bus         = scan_static_bus,
	.enable           = i82801dbm_enable,
};

static struct pci_driver lpc_driver __pci_driver = {
	.ops    = &lpc_ops,
	.vendor = PCI_VENDOR_ID_INTEL,
	.device = PCI_DEVICE_ID_INTEL_82801DBM_1F0,
};
