summaryrefslogtreecommitdiff
path: root/board/imgtec/malta/flash-malta-boot.tcl
blob: 0eedf07acecab57fa612a6e662c2d0fed23e79ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#
# Copyright (C) 2013 Imagination Technologies
#
# Programs a MIPS Malta boot flash with a flat binary image.
#
# SPDX-License-Identifier:	GPL-2.0+
#

proc flash-boot { binfile } {
  puts "flash monitor binary $binfile"
  config Coherent on
  config CoherencyDuringLoad on

  if {[endian]=="big"} {
    puts "CPU in BE mode"
    flash device sharp_16x32_be;
  } else {
    puts "CPU in LE mode"
    flash device sharp_16x32;
  }

  flash clear all;
  flash set 0xBE000000..0xBE0FFFFF
  flash erase sector 0xbe000000;
  flash erase sector 0xbe020000;
  flash erase sector 0xbe040000;
  flash erase sector 0xbe060000;
  flash erase sector 0xbe080000;
  flash erase sector 0xbe0a0000;
  flash erase sector 0xbe0c0000;
  flash erase sector 0xbe0e0000;
  puts "finished erasing boot flash";

  puts "programming flash, please be patient"
  load bin 0xbe000000 $binfile size4

  flash clear all
  config CoherencyDuringLoad off
  puts "finished programming boot flash";
}