include mpcp.inc

.data
value DWORD 10
str1 BYTE "%d",13,10,0

.code

primo PROTO n:DWORD

primo PROC uses ebx esi P1:DWORD
      mov ebx,P1
	  shr ebx,1
	  mov ecx,2
	  mov esi,1
	  .IF(esi)
	  .WHILE(ecx<=ebx)
	  xor edx,edx
	  mov eax,P1
	  div ecx
	  cmp edx,0
	  je falso
	  inc ecx
	  .ENDW
	  jmp verdade
	  .ENDIF
falso:  mov eax,0
        jmp fim
verdade:mov eax,1
fim:       ret
primo ENDP

main:
         invoke primo,value
	 invoke printf,offset str1,eax
	 invoke _getch
	 invoke ExitProcess,0
end main