test/riprel.pl

   1 #!/usr/bin/perl
   2
   3 print "\tbits 64\n";
   4
   5 foreach $mode ('abs', 'rel') {
   6     print "\n\tdefault $mode\n\n";
   7
   8     foreach $so ('', 'fs:', 'es:') {
   9         foreach $rq ('', 'abs ', 'rel ') {
  10             foreach $ao ('', 'a64 ', 'a32 ') {
  11                 foreach $sq ('', 'dword ', 'qword ') {
  12                     foreach $v ('foo', '0xaaaaaaaaaaaaaaaa', '0xbbbbbbbb',
  13                                 '0xffffffffcccccccc') {
  14                         foreach $r (    'al', 'bl', 'ax', 'bx', 'eax', 'ebx', 'rax', 'rbx') {
  15                             print "\tmov $r,[$ao$rq$sq$so$v]\n";
  16                         }
  17                     }
  18                     print "\n";
  19                 }
  20             }
  21         }
  22     }
  23 }
  24
  25 print "\nfoo:\n";