6 $under=($main'netware)?'':'_';
29 sub main'asm_get_output { return(@out); }  subroutine
32 sub main'external_label  subroutine
41 sub main'LB  subroutine
53 sub main'BP  subroutine
63 sub main'QWP  subroutine
70 	return (($main'mwerks)?"":"BYTE ")."@_";
75 	return (($main'mwerks)?"":"DWORD ")."@_";
82 	&main'sub("esp",$num*4);
89 	&main'add("esp",$num*4);
139 sub main'mov	{ &out2("mov",@_); }  subroutine
141 sub main'and	{ &out2("and",@_); }  subroutine
143 sub main'shl	{ &out2("shl",@_); }  subroutine
145 sub main'xor	{ &out2("xor",@_); }  subroutine
147 sub main'add	{ &out2("add",@_); }  subroutine
149 sub main'sub	{ &out2("sub",@_); }  subroutine
151 sub main'rotl	{ &out2("rol",@_); }  subroutine
153 sub main'exch	{ &out2("xchg",@_); }  subroutine
155 sub main'lea	{ &out2("lea",@_); }  subroutine
157 sub main'div	{ &out1("div",@_); }  subroutine
159 sub main'inc	{ &out1("inc",@_); }  subroutine
161 sub main'jmp_ptr { &out1p("jmp",@_); }  subroutine
165 sub main'je	{ &out1("je $near",@_); }  subroutine
167 sub main'jz	{ &out1("jz $near",@_); }  subroutine
169 sub main'jl	{ &out1("jl $near",@_); }  subroutine
171 sub main'jae	{ &out1("jae $near",@_); }  subroutine
173 sub main'jbe	{ &out1("jbe $near",@_); }  subroutine
175 sub main'jnc	{ &out1("jnc $near",@_); }  subroutine
177 sub main'jne	{ &out1("jne $near",@_); }  subroutine
180 sub main'push	{ &out1("push",@_); $stack+=4; }  subroutine
182 sub main'pushf	{ &out0("pushfd"); $stack+=4; }  subroutine
184 sub main'bswap	{ &out1("bswap",@_); &using486(); }  subroutine
186 sub main'call	{ &out1("call",($_[0]=~/^\@L/?'':$under).$_[0]); }  subroutine
188 sub main'nop	{ &out0("nop"); }  subroutine
190 sub main'bt	{ &out2("bt",@_); }  subroutine
192 sub main'cpuid	{ &out0("cpuid"); }  subroutine
194 sub main'halt	{ &out0("hlt"); }  subroutine
196 sub main'neg	{ &out1("neg",@_); }  subroutine
200 sub main'emms	{ &out0("emms"); }  subroutine
202 sub main'movq	{ &out2("movq",@_); }  subroutine
204 sub main'movdqa	{ &out2("movdqa",@_); }  subroutine
206 sub main'movq2dq{ &out2("movq2dq",@_); }  subroutine
208 sub main'pmuludq{ &out2("pmuludq",@_); }  subroutine
210 sub main'psllq	{ &out2("psllq",@_); }  subroutine
212 sub main'por	{ &out2("por",@_); }  subroutine
221 	if (!$main'mwerks and $name eq "lea")
265 	if ($main'mwerks)	{ push(@out,".section\t.text\n"); }
295 sub main'function_begin_B  subroutine
322 sub main'function_end_B  subroutine
342 sub main'file_end  subroutine
350 	return(&main'DWP($stack+$num*4,"esp","",0));
355 	return(&main'DWP($_[0]*4,"esp","",0));
366 sub main'comment  subroutine
380 sub main'label  subroutine
399 		main'align($_[1]);
406 	push(@out,(($main'mwerks)?".long\t":"DD\t").join(',',@_)."\n");
411 	push(@out,".") if ($main'mwerks);
426 	&main'lea($dst,&main'DWP($sym));
429 sub main'blindpop { &out1("pop",@_); }  subroutine
434 	if ($main'win32)