mirror of https://github.com/acidanthera/audk.git
212 lines
4.9 KiB
Plaintext
212 lines
4.9 KiB
Plaintext
//
|
|
// Copyright (c) 2008 - 2009, Apple Inc. All rights reserved.<BR>
|
|
//
|
|
// This program and the accompanying materials
|
|
// are licensed and made available under the terms and conditions of the BSD License
|
|
// which accompanies this distribution. The full text of the license may be found at
|
|
// http://opensource.org/licenses/bsd-license.php
|
|
//
|
|
// THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.
|
|
//
|
|
|
|
ENTRY &ram_start &ram_size
|
|
|
|
;If system is running then stop the execution so we can load symbols.
|
|
break
|
|
|
|
;Reset all windows
|
|
WINPAGE.RESET
|
|
|
|
;Create AREA to display the symbols we are loading.
|
|
AREA.Reset
|
|
AREA.Create SYMBOL 300. 100.
|
|
AREA.View SYMBOL
|
|
AREA.Select SYMBOL
|
|
SYS.Option BE OFF
|
|
|
|
;Added based on suggestion from Lauterbach support.
|
|
MMU.TABLEWALK ON
|
|
MMU.ON
|
|
|
|
;Load symbols.
|
|
GOSUB load_symbols &ram_start &ram_size
|
|
|
|
;Open some windows and enable semihosting.
|
|
TOOLBAR ON
|
|
STATUSBAR ON
|
|
WINPAGE.RESET
|
|
|
|
WINCLEAR
|
|
WINPOS 0.0 17.0 72. 13. 0. 0. W000
|
|
SYStem
|
|
|
|
WINPOS 0.0 0.0 110. 55. 13. 1. W001
|
|
WINTABS 10. 10. 25. 62.
|
|
Data.List
|
|
|
|
WINPAGE.SELECT P000
|
|
|
|
//Enable semihosting
|
|
System.Option.BigEndian OFF
|
|
|
|
tronchip.set swi on // ARM9/10/11 variant
|
|
|
|
// configure and open semihosting channel
|
|
winpos 50% 50% 50% 50%
|
|
term.heapinfo 0 0x20000 0x30000 0x20000
|
|
term.method armswi
|
|
term.mode string
|
|
term.gate
|
|
|
|
WINPOS 115.0 0. 70. 35. 0. 1. W002
|
|
Var.Local %HEX
|
|
|
|
WINPOS 115.10 45. 48. 9. 0. 0. W003
|
|
Register
|
|
|
|
END
|
|
|
|
find_system_table:
|
|
ENTRY &mem_start &mem_size
|
|
&mem_ptr=&mem_start+&mem_size
|
|
RPT
|
|
(
|
|
&mem_ptr=&mem_ptr-0x400000 // 4 MB
|
|
&word1=Data.LONG(D:&mem_ptr)
|
|
&word2=Data.LONG(D:&mem_ptr+0x04)
|
|
IF &word1==0x20494249
|
|
(
|
|
IF &word2==0x54535953
|
|
(
|
|
&result=Data.LONG(D:&mem_ptr+0x08)
|
|
RETURN &result
|
|
)
|
|
)
|
|
)
|
|
WHILE &mem_ptr>&mem_start
|
|
&result=0
|
|
RETURN &result
|
|
|
|
compare_guid:
|
|
ENTRY &guid
|
|
IF Data.LONG(D:&guid)==0x49152E77
|
|
(
|
|
IF Data.LONG(D:&guid+0x04)==0x47641ADA
|
|
(
|
|
IF Data.LONG(D:&guid+0x08)==0xFE7AA2B7
|
|
(
|
|
IF Data.LONG(D:&guid+0x0C)==0x8B5ED9FE
|
|
(
|
|
RETURN 0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
RETURN 1
|
|
|
|
find_debug_info_table_header:
|
|
ENTRY &system_table
|
|
&config_table_entries=Data.LONG(D:&system_table+0x40)
|
|
&config_table_pointer=Data.LONG(D:&system_table+0x44)
|
|
RPT &config_table_entries
|
|
(
|
|
GOSUB compare_guid &config_table_pointer
|
|
ENTRY &result
|
|
IF &result==0
|
|
(
|
|
&result=Data.LONG(D:&config_table_pointer+0x10)
|
|
RETURN &result
|
|
)
|
|
&config_table_pointer=&config_table_pointer+0x14
|
|
)
|
|
RETURN 0;
|
|
|
|
valid_pe_header:
|
|
ENTRY &header
|
|
IF Data.BYTE(D:&header+0x00)==0x4D
|
|
(
|
|
IF Data.BYTE(D:&header+0x01)==0x5A
|
|
(
|
|
IF Data.BYTE(D:&header+0x80)==0x50
|
|
(
|
|
IF Data.BYTE(D:&header+0x81)==0x45
|
|
(
|
|
RETURN 1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
RETURN 0
|
|
|
|
get_file_string:
|
|
ENTRY &stringOffset
|
|
|
|
local &string
|
|
|
|
&more_string=data.string(d:&stringOffset)
|
|
|
|
if (string.len("&more_string")>=128.)
|
|
(
|
|
&string="&string"+"&more_string"
|
|
&stringOffset=&stringOffset+string.len("&more_string")
|
|
|
|
//Get remaining file string
|
|
GOSUB get_file_string &stringOffset
|
|
ENTRY &more_string
|
|
&string="&string"+"&more_string"
|
|
)
|
|
else
|
|
(
|
|
&string="&string"+"&more_string"
|
|
&more_string=""
|
|
)
|
|
RETURN &string
|
|
|
|
load_symbol_file:
|
|
ENTRY &header &load_address
|
|
GOSUB valid_pe_header &header
|
|
ENTRY &result
|
|
|
|
IF &result==1
|
|
(
|
|
&debugOffset=Data.LONG(D:&header+0x0128)
|
|
&stringOffset=&header+&debugOffset+0x002C
|
|
|
|
GOSUB get_file_string &stringOffset
|
|
ENTRY &filestring
|
|
|
|
PRINT "&filestring 0x" &load_address
|
|
TDIAG Data.load.elf &filestring &load_address /nocode /noclear
|
|
)
|
|
RETURN
|
|
|
|
pe_headersize:
|
|
ENTRY &header;
|
|
RETURN Data.LONG(D:&header+0x00AC)
|
|
|
|
load_symbols:
|
|
ENTRY &mem_start &mem_size
|
|
GOSUB find_system_table &mem_start &mem_size
|
|
ENTRY &system_table
|
|
GOSUB find_debug_info_table_header &system_table
|
|
ENTRY &debug_info_table_header
|
|
&debug_info_table=Data.LONG(D:&debug_info_table_header+0x08)
|
|
&debug_info_table_size=Data.LONG(D:&debug_info_table_header+0x04)
|
|
&index=0
|
|
RPT &debug_info_table_size
|
|
(
|
|
&debug_image_info=Data.LONG(D:&debug_info_table+&index)
|
|
IF &debug_image_info==0
|
|
RETURN
|
|
&loaded_image_protocol=Data.LONG(D:&debug_image_info+0x04);
|
|
&image_base=Data.LONG(D:&loaded_image_protocol+0x20);
|
|
GOSUB pe_headersize &image_base
|
|
ENTRY &header_size
|
|
&image_load_address=&image_base+&header_size
|
|
GOSUB load_symbol_file &image_base &image_load_address
|
|
&index=&index+0x4
|
|
)
|
|
|
|
RETURN
|