mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-22 14:52:39 +03:00
bb2bbc6b91
git-svn-id: svn://kolibrios.org@4364 a494cfbc-eb01-0410-851d-a64ba20cac60
12 lines
227 B
Perl
Executable File
12 lines
227 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
die "Usage: makeopv.pl <opcode> <flags> <value>\n" if (@ARGV != 3);
|
|
|
|
my ($opcode, $flags, $value) = @ARGV;
|
|
|
|
printf("0x%.8x\n", oct($opcode) | oct($flags) << 10 | oct($value) << 18);
|
|
|