assembly

assembly.pl

# for each integer from 1 to 1000
# mov ecx, 3
  my $ecx = 3;
  
# mov esi, 3
  my $esi = 3;
# mov edi, 3
  my $edi = 5;

# xor ebx, ebx
  my $ebx = 0; # sum

zero:
# mov eax, ecx
  my $eax = $ecx;

# xor edx, edx
# div esi
  my $edx = $eax div $esi;
   
# test edx, edx
# je _yes
  goto yes if $edx;

# mov eax, ecx
  $eax = $ecx;

# xor edx, edx
# div edi
  $edx = $eax div $edi;

# test edx, edx
# jne _no
  goto no unless $edx;

yes:
# add ebx, ecx
  $ebx += $ecx;

no:
# inc ecx
  $ecx++;
# cmp ecx, 1000
# jne _0
  goto zero if $ecx != 1000;