ASM Community

;===============================================

INCLUDE Irvine32.inc



;unsigned int a[65000];

;for(unsigned int counter=0;counter<65000;counter++)

; a[counter]=0;

;

; unsigned int a[65000];

; for (counter=2;counter<10;counter++){

;  unsigned int rotation=2,position=0;

;  while ((position=rotation*counter)<65000){

;    a[position]=1;

;    rotation++;

;  }

; }

;

;for(counter=0;counter<100;counter++)

; if (a[counter]==0) cout<<endl<<counter<<" : "<<a[counter];

;

;return 0;

;

;

;

;

; al -> counter

; bl -> rotation

; ax receives al * bl





.data

	buffer word 0ffffh dup (0);		;array of 65535 elements initialized with zero



	filename	db "PRIMES.TXT", 0	;filename

	fileHandle	dd ?			;handle to output file

	bytesWritten	dd ?			;number of bytes written



	errMsg		db "Error Creating File!", 0dh, 0ah,0



	bufSize = ($ - buffer)			;buffer size



.code

	main PROC



	lea esi, buffer				;Load Effective Address buffer

	

	mov al, 2 				;counter, should go from 2 to 9

	mov dx, 1



	



	.REPEAT



		mov bl, 2

		mul bl



		.WHILE (ax < lengthof buffer)

			push eax

			mov ebx,esi

			add eax,ebx

			mov esi,eax

			add [esi], dx			

			pop eax

			pop ebx

			inc bl

			mul bl

		.ENDW

	

		inc al



	.UNTIL(al >= 10)





	create_file:

	  INVOKE CreateFile,			;create file

	  	ADDR filename, 			;ptr to filename

		GENERIC_WRITE, 			;access mode

		DO_NOT_SHARE, 			;share mode

		NULL,				;share mode

		CREATE_ALWAYS, 			;creation disposition 

		FILE_ATTRIBUTE_NORMAL, 		;flags and attribute	

		0				;handle to template file



	  mov fileHandle, eax



	.IF eax == INVALID_HANDLE_VALUE		;if error occurs		

		lea edx, errMsg			;Load Effective Address errMsg

		call WriteString		;write to console

		jmp QuitNow			;Exit program

	.ENDIF					;end if





	write:

	  INVOKE WriteFile,			;write text to file

	  	fileHandle,			;file handle

		ADDR buffer,			;buffer pointer

		bufSize,			;number of bytes to write

		ADDR bytesWritten,		;number of bytes written

		0				;overlapped execution flag





	finish_write:

	  INVOKE CloseHandle, fileHandle	;close file

		

	





	QuitNow:

	  INVOKE ExitProcess, 0



main ENDP

END main