在uboot阶段,使用网口下载内核程序到开发板上面,需要输入下载命令,很容易出错,效率低下,可以使用脚本一键下载;
工具SecureCRT
工具栏上面“脚本”->“执行”,选择对应的文件,点击执行即可;
下面我们来分析一下,脚本内容,以及如何具体实现的;
设置uboot参数;
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
crt.Screen.Send " setenv ethaddr EE:AB:C1:D2:E6:C6 " & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send " setenv ipaddr 192.168.1.100" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "setenv serverip 192.168.1.108" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send " setenv eth1addr AA:AB:C1:D2:E6:C6 " & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send " setenv ipaddr1 192.168.2.100" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "saveenv" & chr(13)
End Sub
从sub Main开始执行语句
crt.Screen.Send " setenv ethaddr EE:AB:C1:D2:E6:C6 " 引号里面为命令行语句
& chr(13) 代表回车键
crt.Screen.WaitForString "=> " 等待指令执行完,uboot会出现提示符
下载uboot程序脚本:
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
crt.Screen.Send "tftp 0x21f00000 u-boot.bin" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand erase 0x40000 0xC0000" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand write.trimffs 0x21f00000 0x40000 0xC0000" & chr(13)
crt.Screen.WaitForString "=> "
End Sub
下载内核脚本:
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
crt.Screen.Send "tftp 0x21f00000 at91-sama5d3_xplained.dtb" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand erase 0x180000 0x80000" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand write 0x21f00000 0x180000 0x80000" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "tftp 0x21f00000 zImage" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand erase 0x200000 0x600000" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand write 0x21f00000 0x200000 0x600000" & chr(13)
crt.Screen.WaitForString "=> "
End Sub
下载文件系统:
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
crt.Screen.Send "tftp 0x21f00000 rootfs.ubi" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand erase 0x800000 0xa000000" & chr(13)
crt.Screen.WaitForString "=> "
crt.Screen.Send "nand write.trimffs 0x21f00000 0x800000 0xa000000" & chr(13)
crt.Screen.WaitForString "=> "
End Sub
关注微信公众号,回复“uboot脚本”,免费下载脚本文件;