Lines Matching refs:mod
640 my ($mod,$args) = @_;
641 my $orig = "ldd$mod\t$args";
650 $opcode|=(1<<5) if ($mod =~ /^,m/);
651 $opcode|=(1<<13) if ($mod =~ /^,mb/);
658 my ($mod,$args) = @_;
659 my $orig = "std$mod\t$args";
669 my ($mod,$args) = @_;
670 my $orig = "extrd$mod\t$args";
684 $opcode |= (1<<13) if ($mod =~ /,\**=/);
691 my ($mod,$args) = @_;
692 my $orig = "shrpd$mod\t$args";
708 my ($mod,$args) = @_;
709 my $orig = "depd$mod\t$args";
724 my ($mnemonic,$mod,$args)=@_;
727 ref($opcode) eq 'CODE' ? &$opcode($mod,$args) : "\t$mnemonic$mod\t$args";
