Lines Matching refs:mod
635 my ($mod,$args) = @_;
636 my $orig = "ldd$mod\t$args";
645 $opcode|=(1<<5) if ($mod =~ /^,m/);
646 $opcode|=(1<<13) if ($mod =~ /^,mb/);
653 my ($mod,$args) = @_;
654 my $orig = "std$mod\t$args";
664 my ($mod,$args) = @_;
665 my $orig = "extrd$mod\t$args";
679 $opcode |= (1<<13) if ($mod =~ /,\**=/);
686 my ($mod,$args) = @_;
687 my $orig = "shrpd$mod\t$args";
703 my ($mod,$args) = @_;
704 my $orig = "depd$mod\t$args";
719 my ($mnemonic,$mod,$args)=@_;
722 ref($opcode) eq 'CODE' ? &$opcode($mod,$args) : "\t$mnemonic$mod\t$args";
