29 (defined($lb{$_[0]})) || die "$_[0] does not have a 'low byte'\n";
35 (defined($hb{$_[0]})) || die "$_[0] does not have a 'high byte'\n";
41 local($addr,$reg1,$reg2,$idx)=@_;
43 local($ret)="DWORD PTR ";
46 if ($addr =~ /^(.+)\+(.+)$/)
51 elsif ($addr =~ /^[_a-zA-Z]/)
56 $reg1="$regs{$reg1}" if defined($regs{$reg1});
57 $reg2="$regs{$reg2}" if defined($regs{$reg2});
58 $ret.=$addr if ($addr ne "") && ($addr ne 0);
62 $t="*$idx" if ($idx != 0);
63 $ret.="[$reg2$t+$reg1]";
72 sub main'mov { &out2("mov",@_); }
73 sub main'movb { &out2("mov",@_); }
74 sub main'and { &out2("and",@_); }
75 sub main'or { &out2("or",@_); }
76 sub main'shl { &out2("shl",@_); }
77 sub main'shr { &out2("shr",@_); }
78 sub main'xor { &out2("xor",@_); }
79 sub main'add { &out2("add",@_); }
80 sub main'sub { &out2("sub",@_); }
81 sub main'rotl { &out2("rol",@_); }
82 sub main'rotr { &out2("ror",@_); }
83 sub main'exch { &out2("xchg",@_); }
84 sub main'cmp { &out2("cmp",@_); }
85 sub main'dec { &out1("dec",@_); }
86 sub main'jmp { &out1("jmp",@_); }
87 sub main'je { &out1("je",@_); }
88 sub main'jz { &out1("jz",@_); }
89 sub main'jnz { &out1("jnz",@_); }
90 sub main'push { &out1("push",@_); }
91 sub main'call { &out1("call",'_'.$_[0]); }
96 local($name,$p1,$p2)=@_;
123 $p =~ s/0x([0-9A-Fa-f]+)/0$1h/;
138 sub main'function_begin
140 local($func,$num,$extra)=@_;
157 sub main'function_end
174 sub main'function_end_A
187 sub main'function_end_B
208 return(&main'DWP($stack+$num*4,"esp","",0));
215 return(&main'DWP($stack+$params+$num*4,"esp","",0));
228 if (!defined($label{$_[0]}))
230 $label{$_[0]}="\$${label}${_[0]}";
233 return($label{$_[0]});
238 if (!defined($label{$_[0]}))
240 $label{$_[0]}="${label}${_[0]}";
243 print "$label{$_[0]}:\n";