Lines Matching refs:mod
694 my ($mod,$args) = @_;
695 my $orig = "ldd$mod\t$args";
699 $opcode|=(1<<3) if ($mod =~ /^,m/);
700 $opcode|=(1<<2) if ($mod =~ /^,mb/);
707 my ($mod,$args) = @_;
708 my $orig = "std$mod\t$args";
718 my ($mod,$args) = @_;
719 my $orig = "extrd$mod\t$args";
733 $opcode |= (1<<13) if ($mod =~ /,\**=/);
740 my ($mod,$args) = @_;
741 my $orig = "shrpd$mod\t$args";
757 my ($mnemonic,$mod,$args)=@_;
760 ref($opcode) eq 'CODE' ? &$opcode($mod,$args) : "\t$mnemonic$mod\t$args";
