9 $align=($main'aout)?"4":"16";
10 $under=($main'aout or $main'coff)?"_":"";
12 $com_start="#" if ($main'aout or $main'coff);
14 sub main'asm_init_output { @out=(); }  subroutine
16 sub main'get_labels { return(@labels); }  subroutine
19 if ($main'cpp)
92 sub main'HB  subroutine
119 sub main'QWP  subroutine
124 sub main'BP  subroutine
129 sub main'BC  subroutine
156 sub main'mov	{ &out2("movl",@_); }  subroutine
158 sub main'and	{ &out2("andl",@_); }  subroutine
160 sub main'shl	{ &out2("sall",@_); }  subroutine
162 sub main'xor	{ &out2("xorl",@_); }  subroutine
164 sub main'add	{ &out2($_[0]=~/%[a-d][lh]/?"addb":"addl",@_); }  subroutine
166 sub main'sub	{ &out2("subl",@_); }  subroutine
168 sub main'rotl	{ &out2("roll",@_); }  subroutine
170 sub main'exch	{ &out2($_[0]=~/%[a-d][lh]/?"xchgb":"xchgl",@_); }  subroutine
172 sub main'lea	{ &out2("leal",@_); }  subroutine
174 sub main'div	{ &out1("divl",@_); }  subroutine
176 sub main'jmp_ptr { &out1p("jmp",@_); }  subroutine
178 sub main'jle	{ &out1("jle",@_); }  subroutine
180 sub main'jnz	{ &out1("jnz",@_); }  subroutine
182 sub main'jge	{ &out1("jge",@_); }  subroutine
184 sub main'ja	{ &out1("ja",@_); }  subroutine
186 sub main'jb	{ &out1("jb",@_); }  subroutine
188 sub main'jc	{ &out1("jc",@_); }  subroutine
190 sub main'jno	{ &out1("jno",@_); }  subroutine
192 sub main'inc	{ &out1($_[0]=~/%[a-d][hl]/?"incb":"incl",@_); }  subroutine
194 sub main'pop	{ &out1("popl",@_); $stack-=4; }  subroutine
196 sub main'popf	{ &out0("popfl"); $stack-=4; }  subroutine
198 sub main'call	{	my $pre=$under;  subroutine
204 sub main'nop	{ &out0("nop"); }  subroutine
206 sub main'bt	{ &out2("btl",@_); }  subroutine
208 sub main'cpuid	{ &out0(".byte\t0x0f,0xa2"); }  subroutine
210 sub main'halt	{ &out0("hlt"); }  subroutine
212 sub main'neg	{ &out1("negl",@_); }  subroutine
216 sub main'emms	{ &out0("emms"); }  subroutine
218 sub main'movq	{ &out2("movq",@_); }  subroutine
220 sub main'movdqa	{ &out2("movdqa",@_); }  subroutine
222 sub main'movq2dq{ &out2("movq2dq",@_); }  subroutine
224 sub main'pmuludq{ &out2("pmuludq",@_); }  subroutine
226 sub main'psllq	{ &out2("psllq",@_); }  subroutine
228 sub main'por	{ &out2("por",@_); }  subroutine
232 sub main'bswap  subroutine
236 		&main'comment("bswapl @_");
237 		&main'exch(main'HB(@_),main'LB(@_));
238 		&main'rotr(@_,16);
239 		&main'exch(main'HB(@_),main'LB(@_));
266 		&main'comment("$name $p2 $p1");
329 sub main'file  subroutine
343 	&main'external_label($func);
353 	elsif ($main'coff)
355 	elsif ($main'aout and !$main'pic)
375 	&main'external_label($func);
385 	elsif ($main'coff)
387 	elsif ($main'aout and !$main'pic)
411 	if ($main'cpp)
413 	elsif ($main'coff or $main'aout)
435 sub main'function_end_B  subroutine
444         elsif ($main'coff or $main'aout)
452 sub main'wparam  subroutine
459 sub main'stack_push  subroutine
466 sub main'stack_pop  subroutine
473 sub main'swtmp  subroutine
486 sub main'comment  subroutine
503 sub main'public_label  subroutine
519 sub main'set_label  subroutine
534 sub main'file_end  subroutine
551 		&main'picmeup("edx","OPENSSL_ia32cap_P");
596 sub main'align  subroutine
609 sub main'puts  subroutine
613 	&main'call('puts');
621 sub main'putx  subroutine
625 	&main'push('$Lstring' . ++$constl);
627 	&main'add("esp",8);
642 			&main'push('$Lstring' . ++$constl);
653 				&main'push($_[$i]);
659 	&main'add("esp",4*@_);
666 	&main'push("edx");
668 	&main'push("eax");
674 	&main'pop("ecx");
676 	&main'popf();
682 	if ($main'cpp)
696 	elsif ($main'pic && ($main'elf || $main'aout))
698 		&main'call(&main'label("PIC_me_up"));
699 		&main'set_label("PIC_me_up");
701 		&main'add($dst,"\$${under}_GLOBAL_OFFSET_TABLE_+[.-".
703 		&main'mov($dst,&main'DWP($under.$sym."\@GOT",$dst));
707 		&main'lea($dst,&main'DWP($sym));
711 sub main'blindpop { &out1("popl",@_); }  subroutine
717 	if ($main'elf)
734 	elsif ($main'aout)