1*872cfa20SBreno Matheus Lima#! /usr/bin/perl -w 2*872cfa20SBreno Matheus Limause strict; 3*872cfa20SBreno Matheus Limaopen(my $out, '>:raw', 'ivt.bin') or die "Unable to open: $!"; 4*872cfa20SBreno Matheus Limaprint $out pack("V", 0x412000D1); # Signature 5*872cfa20SBreno Matheus Limaprint $out pack("V", 0x80800000); # Load Address (*load_address) 6*872cfa20SBreno Matheus Limaprint $out pack("V", 0x0); # Reserved 7*872cfa20SBreno Matheus Limaprint $out pack("V", 0x0); # DCD pointer 8*872cfa20SBreno Matheus Limaprint $out pack("V", 0x0); # Boot Data 9*872cfa20SBreno Matheus Limaprint $out pack("V", 0x80EEA000); # Self Pointer (*ivt) 10*872cfa20SBreno Matheus Limaprint $out pack("V", 0x80EEA020); # CSF Pointer (*csf) 11*872cfa20SBreno Matheus Limaprint $out pack("V", 0x0); # Reserved 12*872cfa20SBreno Matheus Limaclose($out); 13