Lines Matching refs:_
14 { my ($opcode,@arg)=@_;
33 sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
34 sub ::call_ptr { &::emit("call",@_); }
35 sub ::jmp_ptr { &::emit("jmp",@_); }
39 { my($size,$addr,$reg1,$reg2,$idx)=@_;
72 sub ::BP { &get_mem("BYTE",@_); }
73 sub ::WP { &get_mem("WORD",@_); }
74 sub ::DWP { &get_mem("DWORD",@_); }
75 sub ::QWP { &get_mem("QWORD",@_); }
76 sub ::BC { "@_"; }
77 sub ::DWC { "@_"; }
149 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
155 { foreach(@_)
156 { push(@out, "EXTERN\t".&::LABEL($_,$nmdecor.$_).":NEAR\n"); }
160 { push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
163 { push(@out,("DB\t").join(',',splice(@_,0,16))."\n") while(@_); }
166 { push(@out,("DW\t").join(',',splice(@_,0,8))."\n") while(@_); }
169 { push(@out,("DD\t").join(',',splice(@_,0,4))."\n") while(@_); }
175 { my($dst,$sym)=@_;