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 $sq ('', 'dword ', 'qword ') {
  11                 foreach $v ('foo', '0xaaaaaaaaaaaaaaaa', '0xbbbbbbbb',
  12                             '0xffffffffcccccccc') {
  13                     foreach $r ('al', 'bl', 'ax', 'bx', 'eax', 'ebx', 'rax', 'rbx') {
  14                         print "\tmov $r,[$rq$sq$so$v]\n";
  15                     }
  16                 }
  17                 print "\n";
  18             }
  19         }
  20     }
  21 }
  22
  23 print "\nfoo:\n";
  24
  25