;Szita
    mov byte [szamok], 0h ;1 nem prim
    xor eax, eax
    mov al, [parameter]
    mov byte [szamok+eax], 1h
    ; kov prim megkeresese

prim_keres:
    mov ecx, 0h
prim_keres_loop:
    inc ecx
    cmp byte [szamok+ecx-1], 0h
    je prim_keres_loop

    ; talalt primet vagy vegigment
    cmp cx, [parameter]
    je  end ; ha nincs tobb akkor kilepunk, egyebkent primet talalt

    ; megvan a prim, minden primediket 0-ra kell allitani.
    mov eax, ecx
nemprim_loop:
    mov byte [szamok+eax], 0h
    add eax, ecx
    cmp ax, [parameter]
    jle nemprim_loop

    jmp prim_keres

end: