Lines Matching refs:mod
906 my ($mod,$args) = @_;
907 my $orig = "ldd$mod\t$args";
916 $opcode|=(1<<5) if ($mod =~ /^,m/);
917 $opcode|=(1<<13) if ($mod =~ /^,mb/);
924 my ($mod,$args) = @_;
925 my $orig = "std$mod\t$args";
930 $opcode|=(1<<5) if ($mod =~ /^,m/);
931 $opcode|=(1<<13) if ($mod =~ /^,mb/);
938 my ($mod,$args) = @_;
939 my $orig = "extrd$mod\t$args";
953 $opcode |= (1<<13) if ($mod =~ /,\**=/);
960 my ($mod,$args) = @_;
961 my $orig = "shrpd$mod\t$args";
973 my ($mod,$args) = @_;
974 my $orig = "sub$mod\t$args";
976 if ($mod eq ",db" && $args =~ /%r([0-9]+),%r([0-9]+),%r([0-9]+)/) {
987 my ($mnemonic,$mod,$args)=@_;
990 ref($opcode) eq 'CODE' ? &$opcode($mod,$args) : "\t$mnemonic$mod\t$args";
