crypto/openssl/crypto/perlasm/x86ms.pl

   1 #!/usr/local/bin/perl
   2
   3 package x86ms;
   4
   5 $label="L000";
   6
   7 %lb=(   'eax',  'al',
   8         'ebx',  'bl',
   9         'ecx',  'cl',
  10         'edx',  'dl',
  11         'ax',   'al',
  12         'bx',   'bl',
  13         'cx',   'cl',
  14         'dx',   'dl',
  15         );
  16
  17 %hb=(   'eax',  'ah',
  18         'ebx',  'bh',
  19         'ecx',  'ch',
  20         'edx',  'dh',
  21         'ax',   'ah',
  22         'bx',   'bh',
  23         'cx',   'ch',
  24         'dx',   'dh',
  25         );
  26
  27 sub main'asm_init_output { @out=(); }
  28 sub main'asm_get_output { return(@out); }
  29 sub main'get_labels { return(@labels); }
  30 sub main'external_label
  31 {
  32         push(@labels,@_);
  33         foreach (@_) {
  34                 push(@out, "EXTRN\t_$_:DWORD\n");
  35         }
  36 }
  37
  38 sub main'LB
  39         {
  40         (defined($lb{$_[0]})) || die "$_[0] does not have a 'low byte'\n";
  41         return($lb{$_[0]});
  42         }
  43
  44 sub main'HB
  45         {
  46         (defined($hb{$_[0]})) || die "$_[0] does not have a 'high byte'\n";
  47         return($hb{$_[0]});
  48         }
  49
  50 sub main'BP
  51         {
  52         &get_mem("BYTE",@_);
  53         }
  54
  55 sub main'DWP
  56         {
  57         &get_mem("DWORD",@_);
  58         }
  59
  60 sub main'QWP
  61         {
  62         &get_mem("QWORD",@_);
  63         }
  64
  65 sub main'BC
  66         {
  67         return @_;
  68         }
  69
  70 sub main'DWC
  71         {
  72         return @_;
  73         }
  74
  75 sub main'stack_push
  76         {
  77         local($num)=@_;
  78         $stack+=$num*4;
  79         &main'sub("esp",$num*4);
  80         }
  81
  82 sub main'stack_pop
  83         {
  84         local($num)=@_;
  85         $stack-=$num*4;
  86         &main'add("esp",$num*4);
  87         }
  88
  89 sub get_mem
  90         {
  91         local($size,$addr,$reg1,$reg2,$idx)=@_;
  92         local($t,$post);
  93         local($ret)="$size PTR ";
  94
  95         $addr =~ s/^\s+//;
  96         if ($addr =~ /^(.+)\+(.+)$/)
  97                 {
  98                 $reg2=&conv($1);
  99                 $addr="_$2";
 100                 }
 101         elsif ($addr =~ /^[_a-z][_a-z0-9]*$/i)
 102                 {
 103                 $addr="_$addr";
 104                 }
 105
 106         if ($addr =~ /^.+\-.+$/) { $addr="($addr)"; }
 107
 108         $reg1="$regs{$reg1}" if defined($regs{$reg1});
 109         $reg2="$regs{$reg2}" if defined($regs{$reg2});
 110         if (($addr ne "") && ($addr ne 0))
 111                 {
 112                 if ($addr !~ /^-/)
 113                         { $ret.=$addr; }
 114                 else    { $post=$addr; }
 115                 }
 116         if ($reg2 ne "")
 117                 {
 118                 $t="";
 119                 $t="*$idx" if ($idx != 0);
 120                 $reg1="+".$reg1 if ("$reg1$post" ne "");
 121                 $ret.="[$reg2$t$reg1$post]";
 122                 }
 123         else
 124                 {
 125                 $ret.="[$reg1$post]"
 126                 }
 127         $ret =~ s/\[\]//;       # in case $addr was the only argument
 128         return($ret);
 129         }
 130
 131 sub main'mov    { &out2("mov",@_); }
 132 sub main'movb   { &out2("mov",@_); }
 133 sub main'and    { &out2("and",@_); }
 134 sub main'or     { &out2("or",@_); }
 135 sub main'shl    { &out2("shl",@_); }
 136 sub main'shr    { &out2("shr",@_); }
 137 sub main'xor    { &out2("xor",@_); }
 138 sub main'xorb   { &out2("xor",@_); }
 139 sub main'add    { &out2("add",@_); }
 140 sub main'adc    { &out2("adc",@_); }
 141 sub main'sub    { &out2("sub",@_); }
 142 sub main'sbb    { &out2("sbb",@_); }
 143 sub main'rotl   { &out2("rol",@_); }
 144 sub main'rotr   { &out2("ror",@_); }
 145 sub main'exch   { &out2("xchg",@_); }
 146 sub main'cmp    { &out2("cmp",@_); }
 147 sub main'lea    { &out2("lea",@_); }
 148 sub main'mul    { &out1("mul",@_); }
 149 sub main'imul   { &out2("imul",@_); }
 150 sub main'div    { &out1("div",@_); }
 151 sub main'dec    { &out1("dec",@_); }
 152 sub main'inc    { &out1("inc",@_); }
 153 sub main'jmp    { &out1("jmp",@_); }
 154 sub main'jmp_ptr { &out1p("jmp",@_); }
 155 sub main'je     { &out1("je",@_); }
 156 sub main'jle    { &out1("jle",@_); }
 157 sub main'jz     { &out1("jz",@_); }
 158 sub main'jge    { &out1("jge",@_); }
 159 sub main'jl     { &out1("jl",@_); }
 160 sub main'ja     { &out1("ja",@_); }
 161 sub main'jae    { &out1("jae",@_); }
 162 sub main'jb     { &out1("jb",@_); }
 163 sub main'jbe    { &out1("jbe",@_); }
 164 sub main'jc     { &out1("jc",@_); }
 165 sub main'jnc    { &out1("jnc",@_); }
 166 sub main'jnz    { &out1("jnz",@_); }
 167 sub main'jne    { &out1("jne",@_); }
 168 sub main'jno    { &out1("jno",@_); }
 169 sub main'push   { &out1("push",@_); $stack+=4; }
 170 sub main'pop    { &out1("pop",@_); $stack-=4; }
 171 sub main'pushf  { &out0("pushfd"); $stack+=4; }
 172 sub main'popf   { &out0("popfd"); $stack-=4; }
 173 sub main'bswap  { &out1("bswap",@_); &using486(); }
 174 sub main'not    { &out1("not",@_); }
 175 sub main'call   { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); }
 176 sub main'call_ptr { &out1p("call",@_); }
 177 sub main'ret    { &out0("ret"); }
 178 sub main'nop    { &out0("nop"); }
 179 sub main'test   { &out2("test",@_); }
 180 sub main'bt     { &out2("bt",@_); }
 181 sub main'leave  { &out0("leave"); }
 182 sub main'cpuid  { &out0("DW\t0A20Fh"); }
 183 sub main'rdtsc  { &out0("DW\t0310Fh"); }
 184 sub main'halt   { &out0("hlt"); }
 185 sub main'movz   { &out2("movzx",@_); }
 186 sub main'neg    { &out1("neg",@_); }
 187 sub main'cld    { &out0("cld"); }
 188
 189 # SSE2
 190 sub main'emms   { &out0("emms"); }
 191 sub main'movd   { &out2("movd",@_); }
 192 sub main'movq   { &out2("movq",@_); }
 193 sub main'movdqu { &out2("movdqu",@_); }
 194 sub main'movdqa { &out2("movdqa",@_); }
 195 sub main'movdq2q{ &out2("movdq2q",@_); }
 196 sub main'movq2dq{ &out2("movq2dq",@_); }
 197 sub main'paddq  { &out2("paddq",@_); }
 198 sub main'pmuludq{ &out2("pmuludq",@_); }
 199 sub main'psrlq  { &out2("psrlq",@_); }
 200 sub main'psllq  { &out2("psllq",@_); }
 201 sub main'pxor   { &out2("pxor",@_); }
 202 sub main'por    { &out2("por",@_); }
 203 sub main'pand   { &out2("pand",@_); }
 204
 205 sub out2
 206         {
 207         local($name,$p1,$p2)=@_;
 208         local($l,$t,$line);
 209
 210         $line="\t$name\t";
 211         $t=&conv($p1).",";
 212         $l=length($t);
 213         $line.="$t";
 214         $l=4-($l+9)/8;
 215         $line.="\t" x $l;
 216         $line.=&conv($p2);
 217         if ($line=~/\bxmm[0-7]\b/i) { $line=~s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i; }
 218         push(@out,$line."\n");
 219         }
 220
 221 sub out0
 222         {
 223         local($name)=@_;
 224
 225         push(@out,"\t$name\n");
 226         }
 227
 228 sub out1
 229         {
 230         local($name,$p1)=@_;
 231         local($l,$t);
 232
 233         push(@out,"\t$name\t".&conv($p1)."\n");
 234         }
 235
 236 sub conv
 237         {
 238         local($p)=@_;
 239
 240         $p =~ s/0x([0-9A-Fa-f]+)/0$1h/;
 241         return $p;
 242         }
 243
 244 sub using486
 245         {
 246         return if $using486;
 247         $using486++;
 248         grep(s/\.386/\.486/,@out);
 249         }
 250
 251 sub main'file
 252         {
 253         local($file)=@_;
 254
 255         local($tmp)=<<"EOF";
 256         TITLE   $file.asm
 257         .386
 258 .model  FLAT
 259 _TEXT\$ SEGMENT PAGE 'CODE'
 260
 261 EOF
 262         push(@out,$tmp);
 263         }
 264
 265 sub main'function_begin
 266         {
 267         local($func,$extra)=@_;
 268
 269         push(@labels,$func);
 270
 271         local($tmp)=<<"EOF";
 272 PUBLIC  _$func
 273 $extra
 274 _$func PROC NEAR
 275         push    ebp
 276         push    ebx
 277         push    esi
 278         push    edi
 279 EOF
 280         push(@out,$tmp);
 281         $stack=20;
 282         }
 283
 284 sub main'function_begin_B
 285         {
 286         local($func,$extra)=@_;
 287
 288         local($tmp)=<<"EOF";
 289 PUBLIC  _$func
 290 $extra
 291 _$func PROC NEAR
 292 EOF
 293         push(@out,$tmp);
 294         $stack=4;
 295         }
 296
 297 sub main'function_end
 298         {
 299         local($func)=@_;
 300
 301         local($tmp)=<<"EOF";
 302         pop     edi
 303         pop     esi
 304         pop     ebx
 305         pop     ebp
 306         ret
 307 _$func ENDP
 308 EOF
 309         push(@out,$tmp);
 310         $stack=0;
 311         %label=();
 312         }
 313
 314 sub main'function_end_B
 315         {
 316         local($func)=@_;
 317
 318         local($tmp)=<<"EOF";
 319 _$func ENDP
 320 EOF
 321         push(@out,$tmp);
 322         $stack=0;
 323         %label=();
 324         }
 325
 326 sub main'function_end_A
 327         {
 328         local($func)=@_;
 329
 330         local($tmp)=<<"EOF";
 331         pop     edi
 332         pop     esi
 333         pop     ebx
 334         pop     ebp
 335         ret
 336 EOF
 337         push(@out,$tmp);
 338         }
 339
 340 sub main'file_end
 341         {
 342         # try to detect if SSE2 or MMX extensions were used...
 343         my $xmmheader=<<___;
 344 .686
 345 .XMM
 346 IF \@Version LT 800
 347 XMMWORD STRUCT 16
 348         DQ  2 dup (?)
 349 XMMWORD ENDS
 350 ENDIF
 351 ___
 352         if (grep {/\b[x]?mm[0-7]\b/i} @out) {
 353                 grep {s/\.[3-7]86/$xmmheader/} @out;
 354                 }
 355         push(@out,"_TEXT\$      ENDS\n");
 356         push(@out,"END\n");
 357         }
 358
 359 sub main'wparam
 360         {
 361         local($num)=@_;
 362
 363         return(&main'DWP($stack+$num*4,"esp","",0));
 364         }
 365
 366 sub main'swtmp
 367         {
 368         return(&main'DWP($_[0]*4,"esp","",0));
 369         }
 370
 371 # Should use swtmp, which is above esp.  Linix can trash the stack above esp
 372 #sub main'wtmp
 373 #       {
 374 #       local($num)=@_;
 375 #
 376 #       return(&main'DWP(-(($num+1)*4),"esp","",0));
 377 #       }
 378
 379 sub main'comment
 380         {
 381         foreach (@_)
 382                 {
 383                 push(@out,"\t; $_\n");
 384                 }
 385         }
 386
 387 sub main'public_label
 388         {
 389         $label{$_[0]}="_$_[0]"  if (!defined($label{$_[0]}));
 390         push(@out,"PUBLIC\t$label{$_[0]}\n");
 391         }
 392
 393 sub main'label
 394         {
 395         if (!defined($label{$_[0]}))
 396                 {
 397                 $label{$_[0]}="\$${label}${_[0]}";
 398                 $label++;
 399                 }
 400         return($label{$_[0]});
 401         }
 402
 403 sub main'set_label
 404         {
 405         if (!defined($label{$_[0]}))
 406                 {
 407                 $label{$_[0]}="\$${label}${_[0]}";
 408                 $label++;
 409                 }
 410         if ($_[1]!=0 && $_[1]>1)
 411                 {
 412                 main'align($_[1]);
 413                 }
 414         if((defined $_[2]) && ($_[2] == 1))
 415                 {
 416                 push(@out,"$label{$_[0]}::\n");
 417                 }
 418         elsif ($label{$_[0]} !~ /^\$/)
 419                 {
 420                 push(@out,"$label{$_[0]}\tLABEL PTR\n");
 421                 }
 422         else
 423                 {
 424                 push(@out,"$label{$_[0]}:\n");
 425                 }
 426         }
 427
 428 sub main'data_byte
 429         {
 430         push(@out,"\tDB\t".join(',',@_)."\n");
 431         }
 432
 433 sub main'data_word
 434         {
 435         push(@out,"\tDD\t".join(',',@_)."\n");
 436         }
 437
 438 sub main'align
 439         {
 440         push(@out,"\tALIGN\t$_[0]\n");
 441         }
 442
 443 sub out1p
 444         {
 445         local($name,$p1)=@_;
 446         local($l,$t);
 447
 448         push(@out,"\t$name\t".&conv($p1)."\n");
 449         }
 450
 451 sub main'picmeup
 452         {
 453         local($dst,$sym)=@_;
 454         &main'lea($dst,&main'DWP($sym));
 455         }
 456
 457 sub main'blindpop { &out1("pop",@_); }
 458
 459 sub main'initseg
 460         {
 461         local($f)=@_;
 462         local($tmp)=<<___;
 463 OPTION  DOTNAME
 464 .CRT\$XCU       SEGMENT DWORD PUBLIC 'DATA'
 465 EXTRN   _$f:NEAR
 466 DD      _$f
 467 .CRT\$XCU       ENDS
 468 ___
 469         push(@out,$tmp);
 470         }
 471
 472 1;