Lines Matching refs:_
18 { if ($opcode =~ m/^j/o && $#_==0) # optimize jumps
19 { $_[0] = "NEAR $_[0]"; }
20 elsif ($opcode eq "lea" && $#_==1) # wipe storage qualifier from lea
21 { $_[1] =~ s/^[^\[]*\[/\[/o; }
22 elsif ($opcode eq "clflush" && $#_==0)
23 { $_[0] =~ s/^[^\[]*\[/\[/o; }
25 &::emit($opcode,@_);
31 sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
32 sub ::call_ptr { &::emit("call",@_); }
33 sub ::jmp_ptr { &::emit("jmp",@_); }
36 { my($size,$addr,$reg1,$reg2,$idx)=@_;
72 sub ::BP { &get_mem("BYTE",@_); }
73 sub ::DWP { &get_mem("DWORD",@_); }
74 sub ::WP { &get_mem("WORD",@_); }
75 sub ::QWP { &get_mem("",@_); }
76 sub ::BC { (($::mwerks)?"":"BYTE ")."@_"; }
77 sub ::DWC { (($::mwerks)?"":"DWORD ")."@_"; }
139 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
142 { foreach(@_)
143 { push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
147 { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
150 { push(@out,(($::mwerks)?".byte\t":"db\t").join(',',@_)."\n"); }
152 { push(@out,(($::mwerks)?".word\t":"dw\t").join(',',@_)."\n"); }
154 { push(@out,(($::mwerks)?".long\t":"dd\t").join(',',@_)."\n"); }
160 { my($dst,$sym)=@_;