Lines Matching refs:_
25 { if ($opcode =~ m/^j/o && $#_==0) # optimize jumps
26 { $_[0] = "NEAR $_[0]"; }
27 elsif ($opcode eq "lea" && $#_==1) # wipe storage qualifier from lea
28 { $_[1] =~ s/^[^\[]*\[/\[/o; }
29 elsif ($opcode eq "clflush" && $#_==0)
30 { $_[0] =~ s/^[^\[]*\[/\[/o; }
32 &::emit($opcode,@_);
38 sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
39 sub ::call_ptr { &::emit("call",@_); }
40 sub ::jmp_ptr { &::emit("jmp",@_); }
43 { my($size,$addr,$reg1,$reg2,$idx)=@_;
79 sub ::BP { &get_mem("BYTE",@_); }
80 sub ::DWP { &get_mem("DWORD",@_); }
81 sub ::WP { &get_mem("WORD",@_); }
82 sub ::QWP { &get_mem("",@_); }
83 sub ::BC { (($::mwerks)?"":"BYTE ")."@_"; }
84 sub ::DWC { (($::mwerks)?"":"DWORD ")."@_"; }
138 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
141 { foreach(@_)
142 { push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
146 { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
149 { push(@out,(($::mwerks)?".byte\t":"db\t").join(',',@_)."\n"); }
151 { push(@out,(($::mwerks)?".word\t":"dw\t").join(',',@_)."\n"); }
153 { push(@out,(($::mwerks)?".long\t":"dd\t").join(',',@_)."\n"); }
159 { my($dst,$sym)=@_;
