include 'win32a.inc'
  format PE console 4.0

section '.text' code readable executable

    rdtsc               ; in case you cant execute rdtsc in user-mode, then use time functions.
    not       eax
    mov       [next],eax
    mov       ebx,numbers
    xor       esi,esi
    not       esi
  generate:
    inc       esi
    test      esi,400h
    jnz       bye       ; i dont think any prng will hit this jump.
    call      rand      ; i dont really like calling rand, i would just put rand code here instead.
    xor       edi,edi
    not       edi
  check_for_duplicates:
    inc       edi
    cmp       eax,[ebx+edi*4]
    jz        duplicate_found
    cmp       esi,edi
    ja        check_for_duplicates
    mov       [ebx+esi*4],eax
    jmp       short generate
  duplicate_found:
    cinvoke   sprintf,formatted,text,eax,esi,edi
    mov       ebx,eax
    invoke    GetStdHandle,STD_OUTPUT_HANDLE
    invoke    WriteFile,eax,formatted,ebx,temp,0
  bye:
    xor       eax,eax
    ret

  rand:
    mov       eax,[next]
    imul      eax,1103515245
    add       eax,12345
    mov       [next],eax
    shr       eax,10h
    and       eax,7FFFh
    ret

section '.data' data readable writeable

  temp dd 0
  next dd 1
  numbers rd 400h
  text db 'duplicated number %d, found in iteration %d, first copy was found in iteration %d.',0
  formatted rb 200h

section '.idata' import data readable writeable

  library kernel32,'kernel32.dll',\
          ntdll,'ntdll.dll'

  import kernel32,\
         WriteFile,'WriteFile',\
         GetStdHandle,'GetStdHandle'

  import ntdll,\
         sprintf,'sprintf'

section '.reloc' fixups data readable discardable    

check for any duplicates

    rdrand eax