; zedd151's simple prime number generator for 64 bit machines
; jump paths courtesy of zedds 'jump_path v0.1sa' - qe plugin
; 'sa' means its not quite ready for release into the wild!
; assemble using batch file: 'makeit.bat'
include \masm32\include64\masm64rt.inc
.data
pTbl dq 0
arrsize dq 10000000
curnumber dq 0
.code
start proc
invoke GlobalAlloc, GPTR, arrsize
cmp rax, 0
jz noarray ; >--------------------------------->v
;
mov pTbl, rax ;
;
mov rsi, pTbl ;
xor rax, rax ;
;
mov rcx, 0100010001000100h ;
@@: ; <------------------------<^ ;
mov qword ptr [rsi+rax], rcx ; ;
; ;
add rax, 8 ; ;
cmp rax, arrsize ; ;
jl @b ; >---------------------->^ ;
;
xor rax, rax ;
mov byte ptr [rsi+rax+2], 1 ;
mov curnumber, 3 ;
add rax, curnumber ;
;
@@: ; <--------------------<^ ;
add rax, curnumber ; ;
cmp rax, arrsize ; ;
jae done1 ; >------------------>v ;
cmp byte ptr [rsi+rax], 0 ; ; ;
jz @b ; > ----------------->^ ; ;
mov byte ptr [rsi+rax], 0 ; ; ;
jmp @b ; >----------------->^ ; ;
; ; ;
done1: ; <---------------------<v ;
inc curnumber ; ;
mov rax, curnumber ; ;
cmp rax, arrsize ; ;
jae done2 ; >------------------>v ;
xor rax, rax ; ; ;
add rax, curnumber ; ; ;
jmp @b ; >----------------->^ ; ;
; ;
done2: ; <---------------------<v ;
;
mov rdi, 2 ;
@@: ; <------------------------<^ ;
cmp byte ptr [rsi+rdi], 1 ; ;
jnz noprint ; >------------>v ; ;
mov rax, str$(rdi) ; ; ;
conout rax, lf ; ; ;
; ; ;
noprint: ; <---------------<v ; ;
inc rdi ; ;
cmp rdi, arrsize ; ;
jl @b ; >---------------------->^ ;
invoke GlobalFree, pTbl ;
fn MessageBoxA, 0, "Prime Array Created", "Success", 0
invoke ExitProcess, 0 ;
;
noarray: ; <-----------------------------------<v
fn MessageBoxA, 0, "Not Enough Memory", "ERROR", 0
invoke ExitProcess, 0
start endp
end