#!/usr/bin/perl -w

my @regs = 
  ('%eax', '%ecx', '%edx', '%ebx', '%esp', '%ebp', '%esi', '%edi');

my @regs_no_esp = 
  ('%eax', '%ecx', '%edx', '%ebx', '%ebp', '%esi', '%edi');

print ".text\n";


sub gen1{
  my $tmpl = shift;
  foreach my $r1 (@regs){
      my $x = $tmpl;
      $x =~ s/r1/$r1/g;
      print $x;
  }
}




sub gen2{
  my $tmpl = shift;
  foreach my $r1 (@regs){
    foreach my $r2 (@regs){
      my $x = $tmpl;
      $x =~ s/r1/$r1/g;
      $x =~ s/r2/$r2/g;
      print $x;
    }
  }
}

sub gen3{
  my $tmpl = shift;
  foreach my $r1 (@regs){
      foreach my $r3 (@regs_no_esp){
    foreach my $r2 (@regs){
        my $x = $tmpl;
        $x =~ s/r1/$r1/g;
        $x =~ s/r2/$r2/g;
        $x =~ s/r3/$r3/g;
        print $x;
      }
    }
  }
}

gen1 "movl \$27, 4(r1)\n";
gen1 "movl \$27, 4000(r1)\n";

#gen1 "movb \$0, 4(r1)\n";
#gen1 "movb -2(r1), %ah\n";

#gen2 "xorl r1,r2\n";

#gen3 "movl (r2,r3), r1\n";


#print "sete %al\n";
#print "sete %cl\n";
#print "sete %dl\n";
#print "sete %bl\n";
#print "sete %ah\n";
#print "sete %ch\n";
#print "sete %dh\n";
#print "sete %bh\n";

#gen1 "pop r1\n";
#gen1 "pop 12(r1)\n";
#gen1 "pop 10000(r1)\n";
#print "pushl \$0x5\n";
#print "pushl \$0x500\n";
#gen1 "pushl r1\n";
#gen1 "pushl 1(r1)\n";
#gen1 "pushl 1000(r1)\n";
#gen2 "orl 12(r2), r1\n";
#gen1 "orl \$0x400, r1\n";
#gen1 "cmpl \$0x4, r1\n";
#gen2 "cmpl 12(r2), r1\n";
#gen1 "cmpl \$0x400, 12(r1)\n";
#gen1 "cmpl \$0x4, 12000(r1)\n";
#gen1 "cmpl \$0x400, 12(r1)\n";
#gen2 "cmp r2, r1\n";
#gen1 "cmp \$0x312, r1\n";
#gen1 "cmp \$0x3, r1\n";
#gen2 "imull 0x10(r2), r1\n";
#gen2 "imull r2, r1\n";
#gen1 "imull \$0x1010, r1\n";
#gen1 "imull \$0x1000, r1\n";
#print "movl \$10, -1(%esp)\n";
#gen1 "jmp *-3(r1)\n";
#print "jmp L1+0x8\n";
#print "L1:\n";
#print "jmp .+0x8000\n";
#gen1 "negl r1\n";
#gen1 "notl r1\n";
#gen2 "andl 0x1200(r2), r1\n";
#gen2 "andl r1, r2\n";
#gen1 "andl \$0x10, r1\n";
#gen1 "sarl \$1, r1\n";
#gen1 "sarl %cl, r1\n";
#gen1 "sarl \$9, r1\n";
#gen2 "addl 0x10(r2), r1\n";
#gen2 "addl 0x100(r2), r1\n";
#gen1 "addl \$0x12, 0x10(r1)\n";
#gen1 "addl \$0x12, 0x100(r1)\n";
#gen1 "addl \$0x120, 0x10(r1)\n";
#gen1 "addl \$0x120, 0x100(r1)\n";
#gen2 "addl r1, r2\n";
#gen1 "addl \$0x10, r1\n";
#gen1 "addl \$0x1000, r1\n";