Lines Matching refs:mbr
60 my $mbr = '';
66 $mbr .= chr(hex($byte));
69 return $mbr;
146 print STDERR " -i specify the MBR ID\n";
174 # Print the MBR and partition table
175 $mbr = get_hex_data();
176 if ( length($mbr) > 440 ) {
177 die "$0: Bad MBR code\n";
180 $mbr .= "\0" x (440 - length($mbr));
186 $mbr .= pack("V", $id); # Offset 440: MBR ID
187 $mbr .= "\0\0"; # Offset 446: actual partition table
189 print OUTPUT $mbr;
