# ---------------------------------------------------------------------------- # ATMEL Microcontroller # ---------------------------------------------------------------------------- # Copyright (c) 2015, Atmel Corporation # # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions are met: # # - Redistributions of source code must retain the above copyright notice, # this list of conditions and the disclaimer below. # # Atmel's name may not be used to endorse or promote products derived from # this software without specific prior written permission. # # DISCLAIMER: THIS SOFTWARE IS PROVIDED BY ATMEL "AS IS" AND ANY EXPRESS OR # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT ARE # DISCLAIMED. IN NO EVENT SHALL ATMEL BE LIABLE FOR ANY DIRECT, INDIRECT, # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, # OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # ---------------------------------------------------------------------------- ################################################################################ # Script data ################################################################################ # DBGU address for rm9200, 9260/9g20, 9261/9g10, 9rl, 9x5 set at91_base_dbgu0 0xfffff200 # DBGU address for 9263, 9g45, sama5d3 set at91_base_dbgu1 0xffffee00 # DBGU address for sama5d4 set at91_base_dbgu2 0xfc069000 set arch_exid_offset 0x44 # arch id set arch_id_at91sam9g20 0x019905a0 set arch_id_at91sam9g45 0x819b05a0 set arch_id_at91sam9x5 0x819a05a0 set arch_id_at91sam9n12 0x819a07a0 set arch_id_sama5d3 0x8a5c07c0 ## Find out at91sam9x5 variant to load the corresponding dtb file array set at91sam9x5_variant { 0x00000000 at91sam9g15 0x00000001 at91sam9g35 0x00000002 at91sam9x35 0x00000003 at91sam9g25 0x00000004 at91sam9x25 } ## Find out sama5d3 variant to load the corresponding dtb file array set sama5d3_variant { 0x00444300 sama5d31 0x00414300 sama5d33 0x00414301 sama5d34 0x00584300 sama5d35 0x00004301 sama5d36 } ## Find out sama5d4 variant array set sama5d4_variant { 0x00000001 sama5d41 0x00000002 sama5d42 0x00000003 sama5d43 0x00000004 sama5d44 } ################################################################################ # proc uboot_env: Convert u-boot variables in a string ready to be flashed # in the region reserved for environment variables ################################################################################ proc set_uboot_env {nameOfLstOfVar} { upvar $nameOfLstOfVar lstOfVar # sector size is the size defined in u-boot CFG_ENV_SIZE set sectorSize [expr 0x20000 - 5] set strEnv [join $lstOfVar "\0"] while {[string length $strEnv] < $sectorSize} { append strEnv "\0" } # \0 between crc and strEnv is the flag value for redundant environment set strCrc [binary format i [::vfs::crc $strEnv]] return "$strCrc\0$strEnv" } ################################################################################ proc find_variant_name {boardType} { global at91_base_dbgu0 global at91_base_dbgu1 global at91_base_dbgu2 global arch_exid_offset global at91sam9x5_variant global sama5d3_variant global sama5d4_variant set socName "none" switch $boardType { at91sam9x5ek { set exidAddr [expr {$at91_base_dbgu0 + $arch_exid_offset}] set chip_variant [format "0x%08x" [read_int $exidAddr]] foreach {key value} [array get at91sam9x5_variant] { if {$key == $chip_variant} { set socName "$value" break; } } } sama5d3xek { set exidAddr [expr {$at91_base_dbgu1 + $arch_exid_offset}] set chip_variant [format "0x%08x" [read_int $exidAddr]] foreach {key value} [array get sama5d3_variant] { #puts "-I- === $chip_variant ? $key ($value) ===" if {$key == $chip_variant} { set socName "$value" break; } } } sama5d3_xplained { set exidAddr [expr {$at91_base_dbgu1 + $arch_exid_offset}] set chip_variant [format "0x%08x" [read_int $exidAddr]] foreach {key value} [array get sama5d3_variant] { #puts "-I- === $chip_variant ? $key ($value) ===" if {$key == $chip_variant} { set socName "$value" break; } } } sama5d4ek { set exidAddr [expr {$at91_base_dbgu2 + $arch_exid_offset}] set chip_variant [format "0x%08x" [read_int $exidAddr]] foreach {key value} [array get sama5d4_variant] { #puts "-I- === $chip_variant ? $key ($value) ===" if {$key == $chip_variant} { set socName "$value" break; } } } sama5d4_xplained { set exidAddr [expr {$at91_base_dbgu2 + $arch_exid_offset}] set chip_variant [format "0x%08x" [read_int $exidAddr]] foreach {key value} [array get sama5d4_variant] { #puts "-I- === $chip_variant ? $key ($value) ===" if {$key == $chip_variant} { set socName "$value" break; } } } } return "$socName" } proc find_variant_ecc {boardType} { set eccType "none" switch $boardType { at91sam9x5ek { set eccType 0xc0c00405 } at91sam9n12ek { set eccType 0xc0c00405 } sama5d3xek { set eccType 0xc0902405 } sama5d3_xplained { set eccType 0xc0902405 } sama5d4ek { set eccType 0xc1e04e07 } sama5d4_xplained { set eccType 0xc1e04e07 } } puts "-I- === eccType is $eccType ===" return $eccType } proc get_kernel_load_addr {boardType} { set kernel_load_addr 0x22000000 switch $boardType { at91sam9m10g45ek { set kernel_load_addr 0x72000000 } } return $kernel_load_addr } proc get_dtb_load_addr {boardType} { set dtb_load_addr 0x21000000 switch $boardType { at91sam9m10g45ek { set dtb_load_addr 0x71000000 } } return $dtb_load_addr } ################################################################################ # Main script: Load the linux demo in NandFlash, # Update the environment variables ################################################################################ ################################################################################ # check for proper variable initialization if {! [info exists boardFamily]} { puts "-I- === Parsing script arguments ===" if {! [info exists env(O)]} { puts "-E- === Binaries path not defined ===" exit } set bootstrapFile "$env(O)/at91bootstrap.bin" set ubootFile "$env(O)/u-boot.bin" set kernelFile "$env(O)/zImage" set rootfsFile "$env(O)/rootfs.ubi" set build_uboot_env "yes" set i 1 foreach arg $::argv { puts "argument $i is $arg" switch $i { 4 { set boardFamily $arg } 5 { set dtbFile "$env(O)/$arg" } 6 { set videoMode $arg } } incr i } } puts "-I- === Board Family is $boardFamily ===" set pmeccConfig [find_variant_ecc $boardFamily] ## Now check for the needed files if {! [file exists $bootstrapFile]} { puts "-E- === AT91Bootstrap file not found ===" exit } if {! [file exists $ubootFile]} { puts "-E- === U-Boot file not found ===" exit } if {! [file exists $kernelFile]} { puts "-E- === Linux kernel file not found ===" exit } if {! [file exists $dtbFile]} { puts "-E- === Device Tree binary: $dtbFile file not found ===" exit } if {! [file exists $rootfsFile]} { puts "-E- === Rootfs file not found ===" exit } ## NandFlash Mapping set bootStrapAddr 0x00000000 set ubootAddr 0x00040000 set ubootEnvAddr 0x000c0000 set dtbAddr 0x00180000 set kernelAddr 0x00200000 set rootfsAddr 0x00800000 ## u-boot variable set kernelLoadAddr [get_kernel_load_addr $boardFamily] set dtbLoadAddr [get_dtb_load_addr $boardFamily] ## NandFlash Mapping set kernelSize [format "0x%08X" [file size $kernelFile]] set dtbSize [format "0x%08X" [file size $dtbFile]] set bootCmd "bootcmd=nand read $dtbLoadAddr $dtbAddr $dtbSize; nand read $kernelLoadAddr $kernelAddr $kernelSize; bootz $kernelLoadAddr - $dtbLoadAddr" set rootfsSize [format "0x%08X" [file size $rootfsFile]] lappend u_boot_variables \ "bootdelay=1" \ "baudrate=115200" \ "stdin=serial" \ "stdout=serial" \ "stderr=serial" \ "bootargs=console=ttyS0,115200 mtdparts=atmel_nand:256k(bootstrap)ro,512k(uboot)ro,256k(env),256k(env_redundant),256k(spare),512k(dtb),6M(kernel)ro,-(rootfs) rootfstype=ubifs ubi.mtd=7 root=ubi0:rootfs rw $videoMode" \ "$bootCmd" ## Additional files to load set ubootEnvFile "ubootEnvtFileNandFlash.bin" ## Start flashing procedure ################################################## puts "-I- === Initialize the NAND access ===" NANDFLASH::Init if {$pmeccConfig != "none"} { puts "-I- === Enable PMECC OS Parameters ===" NANDFLASH::NandHeaderValue HEADER $pmeccConfig } puts "-I- === Erase all the NAND flash blocs and test the erasing ===" NANDFLASH::EraseAllNandFlash puts "-I- === Load AT91Bootstrap in the first sector ===" if {$pmeccConfig != "none"} { NANDFLASH::SendBootFilePmeccCmd $bootstrapFile } else { NANDFLASH::sendBootFile $bootstrapFile } puts "-I- === Load u-boot in the next sectors ===" send_file {NandFlash} "$ubootFile" $ubootAddr 0 if {$build_uboot_env == "yes"} { puts "-I- === Load the u-boot environment variables ===" set fh [open "$ubootEnvFile" w] fconfigure $fh -translation binary puts -nonewline $fh [set_uboot_env u_boot_variables] close $fh send_file {NandFlash} "$ubootEnvFile" $ubootEnvAddr 0 } puts "-I- === Load the Kernel image and device tree database ===" send_file {NandFlash} "$dtbFile" $dtbAddr 0 send_file {NandFlash} "$kernelFile" $kernelAddr 0 if {$pmeccConfig != "none"} { puts "-I- === Enable trimffs ===" NANDFLASH::NandSetTrimffs 1 } puts "-I- === Load the linux file system ===" send_file {NandFlash} "$rootfsFile" $rootfsAddr 0 puts "-I- === DONE. ==="