Lines Matching refs:opcode
25 { my $opcode = $AUTOLOAD;
27 die "more than 4 arguments passed to $opcode" if ($#_>3);
29 $opcode =~ s/.*:://;
30 if ($opcode =~ /^push/) { $stack+=4; }
31 elsif ($opcode =~ /^pop/) { $stack-=4; }
33 &generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";
37 { my $opcode=shift;
39 if ($#_==-1) { push(@out,"\t$opcode\n"); }
40 else { push(@out,"\t$opcode\t".join(',',@_)."\n"); }
150 local *opcode=shift;
157 push @opcode,$rxb;
163 { my @opcode=(0x8f);
164 rxb(\@opcode,$1,$2,-1,0x08);
165 push @opcode,0x78,0xc2;
166 push @opcode,0xc0|($2&7)|(($1&7)<<3); # ModR/M
168 push @opcode,$c=~/^0/?oct($c):$c;
169 &::data_byte(@opcode);