Lines Matching refs:opcode
104 { package opcode; # pick up opcodes
231 die if (opcode->mnemonic() ne "mov");
232 opcode->mnemonic("lea");
287 (opcode->mnemonic() =~ /^v?mov([qd])$/) && ($sz=$1) ||
288 (opcode->mnemonic() =~ /^v?pinsr([qdwb])$/) && ($sz=$1) ||
289 (opcode->mnemonic() =~ /^vpbroadcast([qdwb])$/) && ($sz=$1) ||
290 (opcode->mnemonic() =~ /^vinsert[fi]128$/) && ($sz="x");
430 if ($nasm && opcode->mnemonic()=~m/^j(?![re]cxz)/) {
443 my %opcode = # lea 2f-1f(%rip),%dst; 1: nop; 2:
462 $line=sprintf "0x%x,0x90000000",$opcode{$1};
668 local *opcode=shift;
673 push @opcode,($rex|0x40) if ($rex);
682 my @opcode=(0x66);
686 rex(\@opcode,$src,$dst,0x8);
687 push @opcode,0x0f,0x7e;
688 push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M
689 @opcode;
693 rex(\@opcode,$src,$dst,0x8);
694 push @opcode,0x0f,0x6e;
695 push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M
696 @opcode;
704 my @opcode=(0x66);
710 rex(\@opcode,$src,$dst);
711 push @opcode,0x0f,0x3a,0x16;
712 push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M
713 push @opcode,$imm;
714 @opcode;
722 my @opcode=(0x66);
728 rex(\@opcode,$dst,$src);
729 push @opcode,0x0f,0x3a,0x22;
730 push @opcode,0xc0|(($dst&7)<<3)|($src&7); # ModR/M
731 push @opcode,$imm;
732 @opcode;
740 my @opcode=(0x66);
741 rex(\@opcode,$2,$1);
742 push @opcode,0x0f,0x38,0x00;
743 push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M
744 @opcode;
752 my @opcode=(0x66);
753 rex(\@opcode,$3,$2);
754 push @opcode,0x0f,0x3a,0x0f;
755 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M
756 push @opcode,$1;
757 @opcode;
765 my @opcode=(0x66);
766 rex(\@opcode,$3,$2);
767 push @opcode,0x0f,0x3a,0x44;
768 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M
770 push @opcode,$c=~/^0/?oct($c):$c;
771 @opcode;
779 my @opcode=();
782 rex(\@opcode,0,$1,8);
783 push @opcode,0x0f,0xc7,0xf0|($dst&7);
784 @opcode;
792 my @opcode=();
795 rex(\@opcode,0,$1,8);
796 push @opcode,0x0f,0xc7,0xf8|($dst&7);
797 @opcode;
804 local *opcode=shift;
811 push @opcode,$rxb;
816 my @opcode=(0x8f);
817 rxb(\@opcode,$3,$2,-1,0x08);
818 push @opcode,0x78,0xc2;
819 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M
821 push @opcode,$c=~/^0/?oct($c):$c;
822 @opcode;
830 my @opcode=(0x8f);
831 rxb(\@opcode,$3,$2,-1,0x08);
832 push @opcode,0x78,0xc3;
833 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M
835 push @opcode,$c=~/^0/?oct($c):$c;
836 @opcode;
864 undef $opcode;
871 } elsif ($opcode=opcode->re(\$line)) {
872 my $asm = eval("\$".$opcode->mnemonic());
883 if ($arg=register->re(\$line)) { opcode->size($arg->size()); }
898 my $sz=opcode->size();
901 $insn = $opcode->out($#args>=1?$args[$#args]->size():$sz);
905 $insn = $opcode->out();
915 undef $sz if ($nasm && $opcode->mnemonic() eq "lea");
919 printf "\t%s",$opcode->out();