Lines Matching refs:_
21 { my ($opcode,@arg)=@_;
40 sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
41 sub ::call_ptr { &::emit("call",@_); }
42 sub ::jmp_ptr { &::emit("jmp",@_); }
46 { my($size,$addr,$reg1,$reg2,$idx)=@_;
79 sub ::BP { &get_mem("BYTE",@_); }
80 sub ::WP { &get_mem("WORD",@_); }
81 sub ::DWP { &get_mem("DWORD",@_); }
82 sub ::QWP { &get_mem("QWORD",@_); }
83 sub ::BC { "@_"; }
84 sub ::DWC { "@_"; }
155 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
161 { foreach(@_)
162 { push(@out, "EXTERN\t".&::LABEL($_,$nmdecor.$_).":NEAR\n"); }
166 { push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
169 { push(@out,("DB\t").join(',',splice(@_,0,16))."\n") while(@_); }
172 { push(@out,("DW\t").join(',',splice(@_,0,8))."\n") while(@_); }
175 { push(@out,("DD\t").join(',',splice(@_,0,4))."\n") while(@_); }
181 { my($dst,$sym)=@_;
