| /*----------------------------------------------------------------------+ |
| * |
| * This source code has been made available to you by IBM on an AS-IS |
| * basis. Anyone receiving this source is licensed under IBM |
| * copyrights to use it in any way he or she deems fit, including |
| * copying it, modifying it, compiling it, and redistributing it either |
| * with or without modifications. No license under IBM patents or |
| * patent applications is to be implied by the copyright license. |
| * |
| * Any user of this software should understand that IBM cannot provide |
| * technical support for this software and will not be responsible for |
| * any consequences resulting from the use of this software. |
| * |
| * Any person who transfers this source code or any derivative work |
| * must include the IBM copyright notice, this paragraph, and the |
| * preceding two paragraphs in the transferred software. |
| * |
| * COPYRIGHT I B M CORPORATION 1995 |
| * LICENSED MATERIAL - PROGRAM PROPERTY OF I B M |
| *----------------------------------------------------------------------- |
| */ |
| |
| #include <config.h> |
| #include <ppc4xx.h> |
| #include "config.h" |
| |
| #define _LINUX_CONFIG_H 1 /* avoid reading Linux autoconf.h file */ |
| #define FPGA_BRDC 0xF0300004 |
| |
| #include <ppc_asm.tmpl> |
| #include <ppc_defs.h> |
| |
| #include <asm/cache.h> |
| #include <asm/mmu.h> |
| |
| #include "exbitgen.h" |
| |
| /* IIC declarations (This is an extract from 405gp_i2c.h, which also contains some */ |
| /* c-code declarations and consequently can't be included here). */ |
| /* (Possibly to be solved somehow else). */ |
| /*--------------------------------------------------------------------- */ |
| #define I2C_REGISTERS_BASE_ADDRESS 0xEF600500 |
| #define IIC_MDBUF (I2C_REGISTERS_BASE_ADDRESS+IICMDBUF) |
| #define IIC_SDBUF (I2C_REGISTERS_BASE_ADDRESS+IICSDBUF) |
| #define IIC_LMADR (I2C_REGISTERS_BASE_ADDRESS+IICLMADR) |
| #define IIC_HMADR (I2C_REGISTERS_BASE_ADDRESS+IICHMADR) |
| #define IIC_CNTL (I2C_REGISTERS_BASE_ADDRESS+IICCNTL) |
| #define IIC_MDCNTL (I2C_REGISTERS_BASE_ADDRESS+IICMDCNTL) |
| #define IIC_STS (I2C_REGISTERS_BASE_ADDRESS+IICSTS) |
| #define IIC_EXTSTS (I2C_REGISTERS_BASE_ADDRESS+IICEXTSTS) |
| #define IIC_LSADR (I2C_REGISTERS_BASE_ADDRESS+IICLSADR) |
| #define IIC_HSADR (I2C_REGISTERS_BASE_ADDRESS+IICHSADR) |
| #define IIC_CLKDIV (I2C_REGISTERS_BASE_ADDRESS+IICCLKDIV) |
| #define IIC_INTRMSK (I2C_REGISTERS_BASE_ADDRESS+IICINTRMSK) |
| #define IIC_XFRCNT (I2C_REGISTERS_BASE_ADDRESS+IICXFRCNT) |
| #define IIC_XTCNTLSS (I2C_REGISTERS_BASE_ADDRESS+IICXTCNTLSS) |
| #define IIC_DIRECTCNTL (I2C_REGISTERS_BASE_ADDRESS+IICDIRECTCNTL) |
| |
| /* MDCNTL Register Bit definition */ |
| #define IIC_MDCNTL_HSCL 0x01 |
| #define IIC_MDCNTL_EUBS 0x02 |
| #define IIC_MDCNTL_FMDB 0x40 |
| #define IIC_MDCNTL_FSDB 0x80 |
| |
| /* CNTL Register Bit definition */ |
| #define IIC_CNTL_PT 0x01 |
| #define IIC_CNTL_READ 0x02 |
| #define IIC_CNTL_CHT 0x04 |
| |
| /* STS Register Bit definition */ |
| #define IIC_STS_PT 0X01 |
| #define IIC_STS_ERR 0X04 |
| #define IIC_STS_MDBS 0X20 |
| |
| /* EXTSTS Register Bit definition */ |
| #define IIC_EXTSTS_XFRA 0X01 |
| #define IIC_EXTSTS_ICT 0X02 |
| #define IIC_EXTSTS_LA 0X04 |
| |
| /* LED codes used for inditing progress and errors during read of DIMM SPD. */ |
| /*--------------------------------------------------------------------- */ |
| #define LED_SDRAM_CODE_1 0xef |
| #define LED_SDRAM_CODE_2 0xee |
| #define LED_SDRAM_CODE_3 0xed |
| #define LED_SDRAM_CODE_4 0xec |
| #define LED_SDRAM_CODE_5 0xeb |
| #define LED_SDRAM_CODE_6 0xea |
| #define LED_SDRAM_CODE_7 0xe9 |
| #define LED_SDRAM_CODE_8 0xe8 |
| #define LED_SDRAM_CODE_9 0xe7 |
| #define LED_SDRAM_CODE_10 0xe6 |
| #define LED_SDRAM_CODE_11 0xe5 |
| #define LED_SDRAM_CODE_12 0xe4 |
| #define LED_SDRAM_CODE_13 0xe3 |
| #define LED_SDRAM_CODE_14 0xe2 |
| #define LED_SDRAM_CODE_15 0xe1 |
| #define LED_SDRAM_CODE_16 0xe0 |
| |
| |
| #define TIMEBASE_10PS (1000000000 / CONFIG_SYS_CLK_FREQ) * 100 |
| |
| #define FLASH_8bit_AP 0x9B015480 |
| #define FLASH_8bit_CR 0xFFF18000 /* 1MB(min), 8bit, R/W */ |
| |
| #define FLASH_32bit_AP 0x9B015480 |
| #define FLASH_32bit_CR 0xFFE3C000 /* 2MB, 32bit, R/W */ |
| |
| |
| #define WDCR_EBC(reg,val) addi r4,0,reg;\ |
| mtdcr ebccfga,r4;\ |
| addis r4,0,val@h;\ |
| ori r4,r4,val@l;\ |
| mtdcr ebccfgd,r4 |
| |
| /*--------------------------------------------------------------------- |
| * Function: ext_bus_cntlr_init |
| * Description: Initializes the External Bus Controller for the external |
| * peripherals. IMPORTANT: For pass1 this code must run from |
| * cache since you can not reliably change a peripheral banks |
| * timing register (pbxap) while running code from that bank. |
| * For ex., since we are running from ROM on bank 0, we can NOT |
| * execute the code that modifies bank 0 timings from ROM, so |
| * we run it from cache. |
| * Bank 0 - Boot flash |
| * Bank 1-4 - application flash |
| * Bank 5 - CPLD |
| * Bank 6 - not used |
| * Bank 7 - Heathrow chip |
| *--------------------------------------------------------------------- |
| */ |
| .globl ext_bus_cntlr_init |
| ext_bus_cntlr_init: |
| mflr r4 /* save link register */ |
| bl ..getAddr |
| ..getAddr: |
| mflr r3 /* get address of ..getAddr */ |
| mtlr r4 /* restore link register */ |
| addi r4,0,14 /* set ctr to 10; used to prefetch */ |
| mtctr r4 /* 10 cache lines to fit this function */ |
| /* in cache (gives us 8x10=80 instrctns) */ |
| ..ebcloop: |
| icbt r0,r3 /* prefetch cache line for addr in r3 */ |
| addi r3,r3,32 /* move to next cache line */ |
| bdnz ..ebcloop /* continue for 10 cache lines */ |
| |
| mflr r31 /* save link register */ |
| |
| /*----------------------------------------------------------- |
| * Delay to ensure all accesses to ROM are complete before changing |
| * bank 0 timings. 200usec should be enough. |
| * 200,000,000 (cycles/sec) X .000200 (sec) = 0x9C40 cycles |
| *----------------------------------------------------------- |
| */ |
| |
| addis r3,0,0x0 |
| ori r3,r3,0xA000 /* ensure 200usec have passed since reset */ |
| mtctr r3 |
| ..spinlp: |
| bdnz ..spinlp /* spin loop */ |
| |
| /*--------------------------------------------------------------- |
| * Memory Bank 0 (Boot Flash) initialization |
| *--------------------------------------------------------------- |
| */ |
| WDCR_EBC(pb0ap, FLASH_32bit_AP) |
| WDCR_EBC(pb0cr, 0xffe38000) |
| /*pnc WDCR_EBC(pb0cr, FLASH_32bit_CR) */ |
| |
| /*--------------------------------------------------------------- |
| * Memory Bank 5 (CPLD) initialization |
| *--------------------------------------------------------------- |
| */ |
| WDCR_EBC(pb5ap, 0x01010040) |
| /*jsa recommendation: WDCR_EBC(pb5ap, 0x00010040) */ |
| WDCR_EBC(pb5cr, 0x10038000) |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 6 (not used) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb6cr, 0x00000000) |
| |
| /* Read HW ID to determine whether old H2 board or new generic CPU board */ |
| addis r3, 0, HW_ID_ADDR@h |
| ori r3, r3, HW_ID_ADDR@l |
| lbz r3,0x0000(r3) |
| cmpi 0, r3, 1 /* if (HW_ID==1) */ |
| beq setup_h2evalboard /* then jump */ |
| cmpi 0, r3, 2 /* if (HW_ID==2) */ |
| beq setup_genieboard /* then jump */ |
| cmpi 0, r3, 3 /* if (HW_ID==3) */ |
| beq setup_genieboard /* then jump */ |
| |
| setup_genieboard: |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 1 (Application Flash) initialization for generic CPU board */ |
| /*--------------------------------------------------------------- */ |
| /* WDCR_EBC(pb1ap, 0x7b015480) /###* T.B.M. */ |
| /* WDCR_EBC(pb1ap, 0x7F8FFE80) /###* T.B.M. */ |
| WDCR_EBC(pb1ap, 0x9b015480) /* hlb-20020207: burst 8 bit 6 cycles */ |
| |
| /* WDCR_EBC(pb1cr, 0x20098000) /###* 16 MB */ |
| WDCR_EBC(pb1cr, 0x200B8000) /* 32 MB */ |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 4 (Onboard FPGA) initialization for generic CPU board */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb4ap, 0x01010000) /* */ |
| WDCR_EBC(pb4cr, 0x1021c000) /* */ |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 7 (Heathrow chip on Reference board) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb7ap, 0x200ffe80) /* No Ready, many wait states (let reflections die out) */ |
| WDCR_EBC(pb7cr, 0X4001A000) |
| |
| bl setup_continue |
| |
| |
| setup_h2evalboard: |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 1 (Application Flash) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb1ap, 0x7b015480) /* T.B.M. */ |
| /*3010 WDCR_EBC(pb1ap, 0x7F8FFE80) /###* T.B.M. */ |
| WDCR_EBC(pb1cr, 0x20058000) |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 2 (Application Flash) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb2ap, 0x7b015480) /* T.B.M. */ |
| /*3010 WDCR_EBC(pb2ap, 0x7F8FFE80) /###* T.B.M. */ |
| WDCR_EBC(pb2cr, 0x20458000) |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 3 (Application Flash) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb3ap, 0x7b015480) /* T.B.M. */ |
| /*3010 WDCR_EBC(pb3ap, 0x7F8FFE80) /###* T.B.M. */ |
| WDCR_EBC(pb3cr, 0x20858000) |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 4 (Application Flash) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb4ap, 0x7b015480) /* T.B.M. */ |
| /*3010 WDCR_EBC(pb4ap, 0x7F8FFE80) /###* T.B.M. */ |
| WDCR_EBC(pb4cr, 0x20C58000) |
| |
| /*--------------------------------------------------------------- */ |
| /* Memory Bank 7 (Heathrow chip) initialization */ |
| /*--------------------------------------------------------------- */ |
| WDCR_EBC(pb7ap, 0x02000280) /* No Ready, 4 wait states */ |
| WDCR_EBC(pb7cr, 0X4001A000) |
| |
| setup_continue: |
| |
| |
| mtlr r31 /* restore lr */ |
| nop /* pass2 DCR errata #8 */ |
| blr |
| |
| /*--------------------------------------------------------------------- */ |
| /* Function: sdram_init */ |
| /* Description: Configures SDRAM memory banks. */ |
| /*--------------------------------------------------------------------- */ |
| .globl sdram_init |
| |
| sdram_init: |
| #if CFG_MONITOR_BASE < CFG_FLASH_BASE |
| blr |
| #else |
| mflr r31 |
| |
| /* output SDRAM code on LEDs */ |
| addi r4, 0, LED_SDRAM_CODE_1 |
| addis r5, 0, 0x1000 |
| ori r5, r5, 0x0001 |
| stb r4,0(r5) |
| eieio |
| |
| /* Read contents of spd */ |
| /*--------------------- */ |
| bl read_spd |
| |
| /*----------------------------------------------------------- */ |
| /* */ |
| /* */ |
| /* Update SDRAM timing register */ |
| /* */ |
| /* */ |
| /*----------------------------------------------------------- */ |
| |
| /* Read PLL feedback divider and calculate clock period of local bus in */ |
| /* granularity of 10 ps. Save clock period in r30 */ |
| /*-------------------------------------------------------------- */ |
| mfdcr r4, pllmd |
| addi r9, 0, 25 |
| srw r4, r4, r9 |
| andi. r4, r4, 0x07 |
| addis r5, 0, TIMEBASE_10PS@h |
| ori r5, r5, TIMEBASE_10PS@l |
| divwu r30, r5, r4 |
| |
| /* Determine CASL */ |
| /*--------------- */ |
| bl find_casl /* Returns CASL in r3 */ |
| |
| /* Calc trp_clocks = (trp * 100 + (clk - 1)) / clk */ |
| /* (trp read from byte 27 in granularity of 1 ns) */ |
| /*------------------------------------------------ */ |
| mulli r16, r16, 100 |
| add r16, r16, r30 |
| addi r6, 0, 1 |
| subf r16, r6, r16 |
| divwu r16, r16, r30 |
| |
| /* Calc trcd_clocks = (trcd * 100 + (clk - 1) ) / clk */ |
| /* (trcd read from byte 29 in granularity of 1 ns) */ |
| /*--------------------------------------------------- */ |
| mulli r17, r17, 100 |
| add r17, r17, r30 |
| addi r6, 0, 1 |
| subf r17, r6, r17 |
| divwu r17, r17, r30 |
| |
| /* Calc tras_clocks = (tras * 100 + (clk - 1) ) / clk */ |
| /* (tras read from byte 30 in granularity of 1 ns) */ |
| /*--------------------------------------------------- */ |
| mulli r18, r18, 100 |
| add r18, r18, r30 |
| addi r6, 0, 1 |
| subf r18, r6, r18 |
| divwu r18, r18, r30 |
| |
| /* Calc trc_clocks = trp_clocks + tras_clocks */ |
| /*------------------------------------------- */ |
| add r18, r18, r16 |
| |
| /* CASL value */ |
| /*----------- */ |
| addi r9, 0, 23 |
| slw r4, r3, r9 |
| |
| /* PTA = trp_clocks - 1 */ |
| /*--------------------- */ |
| addi r6, 0, 1 |
| subf r5, r6, r16 |
| addi r9, 0, 18 |
| slw r5, r5, r9 |
| or r4, r4, r5 |
| |
| /* CTP = trc_clocks - trp_clocks - trcd_clocks - 1 */ |
| /*------------------------------------------------ */ |
| addi r5, r18, 0 |
| subf r5, r16, r5 |
| subf r5, r17, r5 |
| addi r6, 0, 1 |
| subf r5, r6, r5 |
| addi r9, 0, 16 |
| slw r5, r5, r9 |
| or r4, r4, r5 |
| |
| /* LDF = 1 */ |
| /*-------- */ |
| ori r4, r4, 0x4000 |
| |
| /* RFTA = trc_clocks - 4 */ |
| /*---------------------- */ |
| addi r6, 0, 4 |
| subf r5, r6, r18 |
| addi r9, 0, 2 |
| slw r5, r5, r9 |
| or r4, r4, r5 |
| |
| /* RCD = trcd_clocks - 1 */ |
| /*---------------------- */ |
| addi r6, 0, 1 |
| subf r5, r6, r17 |
| or r4, r4, r5 |
| |
| /*----------------------------------------------------------- */ |
| /* Set SDTR1 */ |
| /*----------------------------------------------------------- */ |
| addi r5,0,mem_sdtr1 |
| mtdcr memcfga,r5 |
| mtdcr memcfgd,r4 |
| |
| /*----------------------------------------------------------- */ |
| /* */ |
| /* */ |
| /* Update memory bank 0-3 configuration registers */ |
| /* */ |
| /* */ |
| /*----------------------------------------------------------- */ |
| |
| /* Build contents of configuration register for bank 0 into r6 */ |
| /*------------------------------------------------------------ */ |
| bl find_mode /* returns addressing mode in r3 */ |
| addi r29, r3, 0 /* save mode temporarily in r29 */ |
| bl find_size_code /* returns size code in r3 */ |
| addi r9, 0, 17 /* bit offset of size code in configuration register */ |
| slw r3, r3, r9 /* */ |
| addi r9, 0, 13 /* bit offset of addressing mode in configuration register */ |
| slw r29, r29, r9 /* */ |
| or r3, r29, r3 /* merge size code and addressing mode */ |
| ori r6, r3, CFG_SDRAM_BASE + 1 /* insert base address and enable bank */ |
| |
| /* Calculate banksize r15 = (density << 22) / 2 */ |
| /*--------------------------------------------- */ |
| addi r9, 0, 21 |
| slw r15, r15, r9 |
| |
| /* Set SDRAM bank 0 register and adjust r6 for next bank */ |
| /*------------------------------------------------------ */ |
| addi r7,0,mem_mb0cf |
| mtdcr memcfga,r7 |
| mtdcr memcfgd,r6 |
| |
| add r6, r6, r15 /* add bank size to base address for next bank */ |
| |
| /* If two rows/banks then set SDRAM bank 1 register and adjust r6 for next bank */ |
| /*---------------------------------------------------------------------------- */ |
| cmpi 0, r12, 2 |
| bne b1skip |
| |
| addi r7,0,mem_mb1cf |
| mtdcr memcfga,r7 |
| mtdcr memcfgd,r6 |
| |
| add r6, r6, r15 /* add bank size to base address for next bank */ |
| |
| /* Set SDRAM bank 2 register and adjust r6 for next bank */ |
| /*------------------------------------------------------ */ |
| b1skip: addi r7,0,mem_mb2cf |
| mtdcr memcfga,r7 |
| mtdcr memcfgd,r6 |
| |
| add r6, r6, r15 /* add bank size to base address for next bank */ |
| |
| /* If two rows/banks then set SDRAM bank 3 register */ |
| /*------------------------------------------------ */ |
| cmpi 0, r12, 2 |
| bne b3skip |
| |
| addi r7,0,mem_mb3cf |
| mtdcr memcfga,r7 |
| mtdcr memcfgd,r6 |
| b3skip: |
| |
| /*----------------------------------------------------------- */ |
| /* Set RTR */ |
| /*----------------------------------------------------------- */ |
| cmpi 0, r30, 1600 |
| bge rtr_1 |
| addis r7, 0, 0x05F0 /* RTR value for 100Mhz */ |
| bl rtr_2 |
| rtr_1: addis r7, 0, 0x03F8 |
| rtr_2: addi r4,0,mem_rtr |
| mtdcr memcfga,r4 |
| mtdcr memcfgd,r7 |
| |
| /*----------------------------------------------------------- */ |
| /* Delay to ensure 200usec have elapsed since reset. Assume worst */ |
| /* case that the core is running 200Mhz: */ |
| /* 200,000,000 (cycles/sec) X .000200 (sec) = 0x9C40 cycles */ |
| /*----------------------------------------------------------- */ |
| addis r3,0,0x0000 |
| ori r3,r3,0xA000 /* ensure 200usec have passed since reset */ |
| mtctr r3 |
| ..spinlp2: |
| bdnz ..spinlp2 /* spin loop */ |
| |
| /*----------------------------------------------------------- */ |
| /* Set memory controller options reg, MCOPT1. */ |
| /* Set DC_EN to '1' and BRD_PRF to '01' for 16 byte PLB Burst */ |
| /* read/prefetch. */ |
| /*----------------------------------------------------------- */ |
| addi r4,0,mem_mcopt1 |
| mtdcr memcfga,r4 |
| addis r4,0,0x80C0 /* set DC_EN=1 */ |
| ori r4,r4,0x0000 |
| mtdcr memcfgd,r4 |
| |
| |
| /*----------------------------------------------------------- */ |
| /* Delay to ensure 10msec have elapsed since reset. This is */ |
| /* required for the MPC952 to stabalize. Assume worst */ |
| /* case that the core is running 200Mhz: */ |
| /* 200,000,000 (cycles/sec) X .010 (sec) = 0x1E8480 cycles */ |
| /* This delay should occur before accessing SDRAM. */ |
| /*----------------------------------------------------------- */ |
| addis r3,0,0x001E |
| ori r3,r3,0x8480 /* ensure 10msec have passed since reset */ |
| mtctr r3 |
| ..spinlp3: |
| bdnz ..spinlp3 /* spin loop */ |
| |
| /* output SDRAM code on LEDs */ |
| addi r4, 0, LED_SDRAM_CODE_16 |
| addis r5, 0, 0x1000 |
| ori r5, r5, 0x0001 |
| stb r4,0(r5) |
| eieio |
| |
| mtlr r31 /* restore lr */ |
| blr |
| |
| /*--------------------------------------------------------------------- */ |
| /* Function: read_spd */ |
| /* Description: Reads contents of SPD and saves parameters to be used for */ |
| /* configuration in dedicated registers (see code below). */ |
| /*--------------------------------------------------------------------- */ |
| |
| #define WRITE_I2C(reg,val) \ |
| addi r3,0,val;\ |
| addis r4, 0, 0xef60;\ |
| ori r4, r4, 0x0500 + reg;\ |
| stb r3, 0(r4);\ |
| eieio |
| |
| #define READ_I2C(reg) \ |
| addis r3, 0, 0xef60;\ |
| ori r3, r3, 0x0500 + reg;\ |
| lbz r3, 0x0000(r3);\ |
| eieio |
| |
| read_spd: |
| |
| mflr r5 |
| |
| /* Initialize i2c */ |
| /*--------------- */ |
| WRITE_I2C(IICLMADR, 0x00) /* clear lo master address */ |
| WRITE_I2C(IICHMADR, 0x00) /* clear hi master address */ |
| WRITE_I2C(IICLSADR, 0x00) /* clear lo slave address */ |
| WRITE_I2C(IICHSADR, 0x00) /* clear hi slave address */ |
| WRITE_I2C(IICSTS, 0x08) /* update status register */ |
| WRITE_I2C(IICEXTSTS, 0x8f) |
| WRITE_I2C(IICCLKDIV, 0x05) |
| WRITE_I2C(IICINTRMSK, 0x00) /* no interrupts */ |
| WRITE_I2C(IICXFRCNT, 0x00) /* clear transfer count */ |
| WRITE_I2C(IICXTCNTLSS, 0xf0) /* clear extended control & stat */ |
| WRITE_I2C(IICMDCNTL, IIC_MDCNTL_FSDB | IIC_MDCNTL_FMDB) /* mode control */ |
| READ_I2C(IICMDCNTL) |
| ori r3, r3, IIC_MDCNTL_EUBS | IIC_MDCNTL_HSCL |
| WRITE_I2C(IICMDCNTL, r3) /* mode control */ |
| WRITE_I2C(IICCNTL, 0x00) /* clear control reg */ |
| |
| /* Wait until initialization completed */ |
| /*------------------------------------ */ |
| bl wait_i2c_transfer_done |
| |
| WRITE_I2C(IICHMADR, 0x00) /* 7-bit addressing */ |
| WRITE_I2C(IICLMADR, SDRAM_SPD_WRITE_ADDRESS) |
| |
| /* Write 0 into buffer(start address) */ |
| /*----------------------------------- */ |
| WRITE_I2C(IICMDBUF, 0x00); |
| |
| /* Wait a little */ |
| /*-------------- */ |
| addis r3,0,0x0000 |
| ori r3,r3,0xA000 |
| mtctr r3 |
| in02: bdnz in02 |
| |
| /* Issue write command */ |
| /*-------------------- */ |
| WRITE_I2C(IICCNTL, IIC_CNTL_PT) |
| bl wait_i2c_transfer_done |
| |
| /* Read 128 bytes */ |
| /*--------------- */ |
| addi r7, 0, 0 /* byte counter in r7 */ |
| addi r8, 0, 0 /* checksum in r8 */ |
| rdlp: |
| /* issue read command */ |
| /*------------------- */ |
| cmpi 0, r7, 127 |
| blt rd01 |
| WRITE_I2C(IICCNTL, IIC_CNTL_READ | IIC_CNTL_PT) |
| bl rd02 |
| rd01: WRITE_I2C(IICCNTL, IIC_CNTL_READ | IIC_CNTL_CHT | IIC_CNTL_PT) |
| rd02: bl wait_i2c_transfer_done |
| |
| /* Fetch byte from buffer */ |
| /*----------------------- */ |
| READ_I2C(IICMDBUF) |
| |
| /* Retrieve parameters that are going to be used during configuration. */ |
| /* Save them in dedicated registers. */ |
| /*------------------------------------------------------------ */ |
| cmpi 0, r7, 3 /* Save byte 3 in r10 */ |
| bne rd10 |
| addi r10, r3, 0 |
| rd10: cmpi 0, r7, 4 /* Save byte 4 in r11 */ |
| bne rd11 |
| addi r11, r3, 0 |
| rd11: cmpi 0, r7, 5 /* Save byte 5 in r12 */ |
| bne rd12 |
| addi r12, r3, 0 |
| rd12: cmpi 0, r7, 17 /* Save byte 17 in r13 */ |
| bne rd13 |
| addi r13, r3, 0 |
| rd13: cmpi 0, r7, 18 /* Save byte 18 in r14 */ |
| bne rd14 |
| addi r14, r3, 0 |
| rd14: cmpi 0, r7, 31 /* Save byte 31 in r15 */ |
| bne rd15 |
| addi r15, r3, 0 |
| rd15: cmpi 0, r7, 27 /* Save byte 27 in r16 */ |
| bne rd16 |
| addi r16, r3, 0 |
| rd16: cmpi 0, r7, 29 /* Save byte 29 in r17 */ |
| bne rd17 |
| addi r17, r3, 0 |
| rd17: cmpi 0, r7, 30 /* Save byte 30 in r18 */ |
| bne rd18 |
| addi r18, r3, 0 |
| rd18: cmpi 0, r7, 9 /* Save byte 9 in r19 */ |
| bne rd19 |
| addi r19, r3, 0 |
| rd19: cmpi 0, r7, 23 /* Save byte 23 in r20 */ |
| bne rd20 |
| addi r20, r3, 0 |
| rd20: cmpi 0, r7, 25 /* Save byte 25 in r21 */ |
| bne rd21 |
| addi r21, r3, 0 |
| rd21: |
| |
| /* Calculate checksum of the first 63 bytes */ |
| /*----------------------------------------- */ |
| cmpi 0, r7, 63 |
| bgt rd31 |
| beq rd30 |
| add r8, r8, r3 |
| bl rd31 |
| |
| /* Verify checksum at byte 63 */ |
| /*--------------------------- */ |
| rd30: andi. r8, r8, 0xff /* use only 8 bits */ |
| cmp 0, r8, r3 |
| beq rd31 |
| addi r4, 0, LED_SDRAM_CODE_8 |
| addis r5, 0, 0x1000 |
| ori r5, r5, 0x0001 |
| stb r4,0(r5) |
| eieio |
| rderr: bl rderr |
| |
| rd31: |
| |
| /* Increment byte counter and check whether all bytes have been read. */ |
| /*------------------------------------------------------------------- */ |
| addi r7, r7, 1 |
| cmpi 0, r7, 127 |
| bgt rd05 |
| bl rdlp |
| rd05: |
| mtlr r5 /* restore lr */ |
| blr |
| |
| wait_i2c_transfer_done: |
| mflr r6 |
| wt01: READ_I2C(IICSTS) |
| andi. r4, r3, IIC_STS_PT |
| cmpi 0, r4, IIC_STS_PT |
| beq wt01 |
| mtlr r6 /* restore lr */ |
| blr |
| |
| /*--------------------------------------------------------------------- */ |
| /* Function: find_mode */ |
| /* Description: Determines addressing mode to be used dependent on */ |
| /* number of rows (r10 = byte 3 from SPD), number of columns (r11 = */ |
| /* byte 4 from SPD) and number of banks (r13 = byte 17 from SPD). */ |
| /* mode is returned in r3. */ |
| /* (It would be nicer having a table, pnc). */ |
| /*--------------------------------------------------------------------- */ |
| find_mode: |
| |
| mflr r5 |
| |
| cmpi 0, r10, 11 |
| bne fm01 |
| cmpi 0, r11, 9 |
| bne fm01 |
| cmpi 0, r13, 2 |
| bne fm01 |
| addi r3, 0, 1 |
| bl fmfound |
| |
| fm01: cmpi 0, r10, 11 |
| bne fm02 |
| cmpi 0, r11, 10 |
| bne fm02 |
| cmpi 0, r13, 2 |
| bne fm02 |
| addi r3, 0, 1 |
| bl fmfound |
| |
| fm02: cmpi 0, r10, 12 |
| bne fm03 |
| cmpi 0, r11, 9 |
| bne fm03 |
| cmpi 0, r13, 4 |
| bne fm03 |
| addi r3, 0, 2 |
| bl fmfound |
| |
| fm03: cmpi 0, r10, 12 |
| bne fm04 |
| cmpi 0, r11, 10 |
| bne fm04 |
| cmpi 0, r13, 4 |
| bne fm04 |
| addi r3, 0, 2 |
| bl fmfound |
| |
| fm04: cmpi 0, r10, 13 |
| bne fm05 |
| cmpi 0, r11, 9 |
| bne fm05 |
| cmpi 0, r13, 4 |
| bne fm05 |
| addi r3, 0, 3 |
| bl fmfound |
| |
| fm05: cmpi 0, r10, 13 |
| bne fm06 |
| cmpi 0, r11, 10 |
| bne fm06 |
| cmpi 0, r13, 4 |
| bne fm06 |
| addi r3, 0, 3 |
| bl fmfound |
| |
| fm06: cmpi 0, r10, 13 |
| bne fm07 |
| cmpi 0, r11, 11 |
| bne fm07 |
| cmpi 0, r13, 4 |
| bne fm07 |
| addi r3, 0, 3 |
| bl fmfound |
| |
| fm07: cmpi 0, r10, 12 |
| bne fm08 |
| cmpi 0, r11, 8 |
| bne fm08 |
| cmpi 0, r13, 2 |
| bne fm08 |
| addi r3, 0, 4 |
| bl fmfound |
| |
| fm08: cmpi 0, r10, 12 |
| bne fm09 |
| cmpi 0, r11, 8 |
| bne fm09 |
| cmpi 0, r13, 4 |
| bne fm09 |
| addi r3, 0, 4 |
| bl fmfound |
| |
| fm09: cmpi 0, r10, 11 |
| bne fm10 |
| cmpi 0, r11, 8 |
| bne fm10 |
| cmpi 0, r13, 2 |
| bne fm10 |
| addi r3, 0, 5 |
| bl fmfound |
| |
| fm10: cmpi 0, r10, 11 |
| bne fm11 |
| cmpi 0, r11, 8 |
| bne fm11 |
| cmpi 0, r13, 4 |
| bne fm11 |
| addi r3, 0, 5 |
| bl fmfound |
| |
| fm11: cmpi 0, r10, 13 |
| bne fm12 |
| cmpi 0, r11, 8 |
| bne fm12 |
| cmpi 0, r13, 2 |
| bne fm12 |
| addi r3, 0, 6 |
| bl fmfound |
| |
| fm12: cmpi 0, r10, 13 |
| bne fm13 |
| cmpi 0, r11, 8 |
| bne fm13 |
| cmpi 0, r13, 4 |
| bne fm13 |
| addi r3, 0, 6 |
| bl fmfound |
| |
| fm13: cmpi 0, r10, 13 |
| bne fm14 |
| cmpi 0, r11, 9 |
| bne fm14 |
| cmpi 0, r13, 2 |
| bne fm14 |
| addi r3, 0, 7 |
| bl fmfound |
| |
| fm14: cmpi 0, r10, 13 |
| bne fm15 |
| cmpi 0, r11, 10 |
| bne fm15 |
| cmpi 0, r13, 2 |
| bne fm15 |
| addi r3, 0, 7 |
| bl fmfound |
| |
| fm15: |
| /* not found, error code to be issued on LEDs */ |
| addi r7, 0, LED_SDRAM_CODE_2 |
| addis r6, 0, 0x1000 |
| ori r6, r6, 0x0001 |
| stb r7,0(r6) |
| eieio |
| fmerr: bl fmerr |
| |
| fmfound:addi r6, 0, 1 |
| subf r3, r6, r3 |
| |
| mtlr r5 /* restore lr */ |
| blr |
| |
| /*--------------------------------------------------------------------- */ |
| /* Function: find_size_code */ |
| /* Description: Determines size code to be used in configuring SDRAM controller */ |
| /* dependent on density (r15 = byte 31 from SPD) */ |
| /*--------------------------------------------------------------------- */ |
| find_size_code: |
| |
| mflr r5 |
| |
| addi r3, r15, 0 /* density */ |
| addi r7, 0, 0 |
| fs01: andi. r6, r3, 0x01 |
| cmpi 0, r6, 1 |
| beq fs04 |
| |
| addi r7, r7, 1 |
| cmpi 0, r7, 7 |
| bge fs02 |
| addi r9, 0, 1 |
| srw r3, r3, r9 |
| bl fs01 |
| |
| /* not found, error code to be issued on LEDs */ |
| fs02: addi r4, 0, LED_SDRAM_CODE_3 |
| addis r8, 0, 0x1000 |
| ori r8, r8, 0x0001 |
| stb r4,0(r8) |
| eieio |
| fs03: bl fs03 |
| |
| fs04: addi r3, r7, 0 |
| cmpi 0, r3, 0 |
| beq fs05 |
| addi r6, 0, 1 |
| subf r3, r6, r3 |
| fs05: |
| mtlr r5 /* restore lr */ |
| blr |
| |
| /*--------------------------------------------------------------------- */ |
| /* Function: find_casl */ |
| /* Description: Determines CAS latency */ |
| /*--------------------------------------------------------------------- */ |
| find_casl: |
| |
| mflr r5 |
| |
| andi. r14, r14, 0x7f /* r14 holds supported CAS latencies */ |
| addi r3, 0, 0xff /* preset determined CASL */ |
| addi r4, 0, 6 /* Start at bit 6 of supported CAS latencies */ |
| addi r2, 0, 0 /* Start finding highest CAS latency */ |
| |
| fc01: srw r6, r14, r4 /* */ |
| andi. r6, r6, 0x01 /* */ |
| cmpi 0, r6, 1 /* Check bit for current latency */ |
| bne fc06 /* If not supported, go to next */ |
| |
| cmpi 0, r2, 2 /* Check if third-highest latency */ |
| bge fc04 /* If so, go calculate with another format */ |
| |
| cmpi 0, r2, 0 /* Check if highest latency */ |
| bgt fc02 /* */ |
| addi r7, r19, 0 /* SDRAM cycle time for highest CAS latenty */ |
| |
| bl fc03 |
| fc02: |
| addi r7, r20, 0 /* SDRAM cycle time for next-highest CAS latenty */ |
| fc03: |
| addi r8, r7, 0 |
| addi r9, 0, 4 |
| srw r7, r7, r9 |
| andi. r7, r7, 0x0f |
| mulli r7, r7, 100 |
| andi. r8, r8, 0x0f |
| mulli r8, r8, 10 |
| add r7, r7, r8 |
| cmp 0, r7, r30 |
| bgt fc05 |
| addi r3, r2, 0 |
| bl fc05 |
| fc04: |
| addi r7, r21, 0 /* SDRAM cycle time for third-highest CAS latenty */ |
| addi r8, r7, 0 |
| addi r9, 0, 2 |
| srw r7, r7, r9 |
| andi. r7, r7, 0x3f |
| mulli r7, r7, 100 |
| andi. r8, r8, 0x03 |
| mulli r8, r8, 25 |
| add r7, r7, r8 |
| |
| cmp 0, r7, r30 |
| bgt fc05 |
| addi r3, r2, 0 |
| |
| fc05: addi r2, r2, 1 /* next latency */ |
| cmpi 0, r2, 3 |
| bge fc07 |
| fc06: addi r6, 0, 1 |
| subf r4, r6, r4 |
| cmpi 0, r4, 0 |
| bne fc01 |
| |
| fc07: |
| |
| mtlr r5 /* restore lr */ |
| blr |
| #endif |
| |
| |
| /* Peripheral Bank 1 Access Parameters */ |
| /* 0 BME = 1 ; burstmode enabled */ |
| /* " 1:8" TWT=00110110 ;Transfer wait (details below) */ |
| /* 1:5 FWT=00110 ; first wait = 6 cycles */ |
| /* 6:8 BWT=110 ; burst wait = 6 cycles */ |
| /* 9:11 000 ; reserved */ |
| /* 12:13 CSN=00 ; chip select on timing = 0 */ |
| /* 14:15 OEN=01 ; output enable */ |
| /* 16:17 WBN=01 ; write byte enable on timing 1 cycle */ |
| /* 18:19 WBF=01 ; write byte enable off timing 1 cycle */ |
| /* 20:22 TH=010 ; transfer hold = 2 cycles */ |
| /* 23 RE=0 ; ready enable = disabled */ |
| /* 24 SOR=1 ; sample on ready = same PerClk */ |
| /* 25 BEM=0 ; byte enable mode = only for write cycles */ |
| /* 26 PEN=0 ; parity enable = disable */ |
| /* 27:31 00000 ;reserved */ |
| /* */ |
| /* 1 + 00110 + 110 + 000 + 00 + 01 + 01 + 01 + 010 + 0 + 1 + 0 + 0 + 00000 = 0x9b015480 */ |
| /* */ |
| /* */ |
| /* Code for BDI probe: */ |
| /* */ |
| /* WDCR 18 0x00000011 ;Select PB1AP */ |
| /* WDCR 19 0x1b015480 ;PB1AP: Flash */ |
| /* */ |
| /* Peripheral Bank 0 Access Parameters */ |
| /* 0:11 BAS=0x200 ; base address select = 0x200 * 0x100000 (1MB) = */ |
| /* 12:14 BS=100 ; bank size = 16MB (100) / 32MB (101) */ |
| /* 15:16 BU=11 ; bank usage = read/write */ |
| /* 17:18 BW=00 ; bus width = 8-bit */ |
| /* 19:31 ; reserved */ |
| /* */ |
| /* 0x200 + 100 + 11 + 00 + 0 0000 0000 0000 = 0x20098000 */ |
| /* WDCR 18 0x00000001 ;Select PB1CR */ |
| /* WDCR 19 0x20098000 ;PB1CR: 1MB at 0x00100000, r/w, 8bit */ |
| |
| /* For CPLD */ |
| /* 0 + 00000 + 010 + 000 + 00 + 01 + 00 + 00 + 000 + 0 + 0 + 1 + 0 + 00000 */ |
| /* WDCR_EBC(pb5ap, 0x01010040) */ |
| /*jsa recommendation: WDCR_EBC(pb5ap, 0x00010040) */ |
| /* WDCR_EBC(pb5cr, 0X10018000) */ |
| /* Access parms */ |
| /* 100 3 8 0 0 0 */ |
| /* 0x100 + 001 + 11 + 00 + 0 0000 0000 0000 = 0x10038000 */ |
| /* Address : 0x10000000 */ |
| /* Size: 2 MB */ |
| /* Usage: read/write */ |
| /* Width: 32 bit */ |
| |
| /* For Genie onboard fpga 32 bit interface */ |
| /* 0 1 0 1 0 0 0 0 */ |
| /* 0 + 00000 + 010 + 000 + 00 + 01 + 00 + 00 + 000 + 0 + 0 + 0 + 0 + 00000 */ |
| /* 0x01010000 */ |
| /* Access parms */ |
| /* 102 1 c 0 0 0 */ |
| /* 0x102 + 000 + 11 + 10 + 0 0000 0000 0000 = 0x1021c000 */ |
| /* Address : 0x10200000 */ |
| /* Size: 2 MB */ |
| /* Usage: read/write */ |
| /* Width: 32 bit */ |
| |
| /* Walnut fpga pb7ap */ |
| /* 0 1 8 1 5 2 8 0 */ |
| /* 0 + 00000 + 011 + 000 + 00 + 01 + 01 + 01 + 001 + 0 + 1 + 0 + 0 + 00000 */ |
| /* Walnut fpga pb7cr */ |
| /* 0xF0318000 */ |
| /* */ |