| Breno Matheus Lima | d1981bc | 2019-01-23 19:29:59 +0000 | [diff] [blame] | 1 | #! /usr/bin/perl -w |
| 2 | use strict; |
| 3 | open(my $out, '>:raw', 'ivt.bin') or die "Unable to open: $!"; |
| 4 | print $out pack("V", 0x412000D1); # Signature |
| 5 | print $out pack("V", 0x80800000); # Load Address (*load_address) |
| 6 | print $out pack("V", 0x0); # Reserved |
| 7 | print $out pack("V", 0x0); # DCD pointer |
| 8 | print $out pack("V", 0x0); # Boot Data |
| 9 | print $out pack("V", 0x80EEA000); # Self Pointer (*ivt) |
| 10 | print $out pack("V", 0x80EEA020); # CSF Pointer (*csf) |
| 11 | print $out pack("V", 0x0); # Reserved |
| 12 | close($out); |