Lines Matching refs:mod
902 my ($mod,$args) = @_;
903 my $orig = "ldd$mod\t$args";
912 $opcode|=(1<<5) if ($mod =~ /^,m/);
913 $opcode|=(1<<13) if ($mod =~ /^,mb/);
920 my ($mod,$args) = @_;
921 my $orig = "std$mod\t$args";
926 $opcode|=(1<<5) if ($mod =~ /^,m/);
927 $opcode|=(1<<13) if ($mod =~ /^,mb/);
934 my ($mod,$args) = @_;
935 my $orig = "extrd$mod\t$args";
949 $opcode |= (1<<13) if ($mod =~ /,\**=/);
956 my ($mod,$args) = @_;
957 my $orig = "shrpd$mod\t$args";
969 my ($mod,$args) = @_;
970 my $orig = "sub$mod\t$args";
972 if ($mod eq ",db" && $args =~ /%r([0-9]+),%r([0-9]+),%r([0-9]+)/) {
983 my ($mnemonic,$mod,$args)=@_;
986 ref($opcode) eq 'CODE' ? &$opcode($mod,$args) : "\t$mnemonic$mod\t$args";