Author |
Topic: Parallel Assembly (Read 1245 times) |
|
svein
New Member
member is offline
Posts: 15
|
 |
Re: Parallel Assembly
« Reply #13 on: Jun 22nd, 2017, 6:12pm » |
|
Ric:
This might get you started, don't know who wrote it.
Disregard the middle bit (system info).
Code: REM!WC MAXIMUM_PROCESSORS = 32 CREATE_SUSPENDED = &4 INFINITE = &FFFFFFFF _TRUE = 1 A% = 1 B% = 1 :\ \\ assemble two different (pointless) routines to increment A% and B% \ DIM code 50, L%-1 FOR pass=8 TO 10 STEP 2 P% = code [ OPT pass .ThreadProc1 inc dword [^A%] cmp dword [^A%],0 jne ThreadProc1 ret .ThreadProc2 inc dword [^B%] cmp dword [^B%],0 jne ThreadProc2 ret ] NEXT :\ \\ Declare SYSTEM_INFO structure \ DIM _SYSTEM_INFO{ wProcessorArchitecture%, \ Only lower word if valid: high word is wReserved - was dwOemID \ dwPageSize%, \ \ lpMinimumApplicationAddress%, \ \ lpMaximumApplicationAddress%, \ \ dwActiveProcessorMask%, \ \ dwNumberOfProcessors%, \ \ dwProcessorType%, \ \ dwAllocationGranulatiry%, \ \ wProcessorLevel{l&,h&}, \ \ wProcessorRevision{l&,h&} } SYS "GetSystemInfo", _SYSTEM_INFO{} PRINT "Number of processors available: ";_SYSTEM_INFO.dwNumberOfProcessors% :\ \\ Create the threads and store their handles in an array \ DIM hThread%(1) :\ \\ ON ERROR and ON CLOSE to cleanup thread handles \ ON ERROR PROCCleanup:REPORT:END ON CLOSE PROCCleanup:QUIT :\ \\ Create the threads in a suspended state \ SYS "CreateThread", 0, 1024, ThreadProc1, 0, CREATE_SUSPENDED, 0 TO hThread%(0) IF hThread%(0) = 0 THEN ERROR,"Failed to create Thread 1." SYS "CreateThread", 0, 1024, ThreadProc2, 0, CREATE_SUSPENDED, 0 TO hThread%(1) IF hThread%(1) = 0 THEN ERROR,"Failed to create Thread 2." :\ \\ Get the current ideal processor for each thread \ SYS "SetThreadIdealProcessor", hThread%(0), MAXIMUM_PROCESSORS TO current0% PRINT "Thread 1 is currently on : ";current0% SYS "SetThreadIdealProcessor", hThread%(1), MAXIMUM_PROCESSORS TO current1% PRINT "Thread 2 is currently on : ";current1% IF current0% = current1% AND _SYSTEM_INFO.dwNumberOfProcessors%>1 THEN SYS "SetThreadIdealProcessor", hThread%(1), 1 TO R% IF R%=-1 THEN PRINT"Couldn't change the processor for the 2nd thread." ENDIF :\ \\ Wait a bit, check out Task Manager maybe... \ PRINT "Waiting....." WAIT 500 PRINT "Starting threads." PRINT A%,B% :\ \\ |||Fry||| those processors \ SYS "ResumeThread", hThread%(0) SYS "ResumeThread", hThread%(1) :\ \\ Wait until both threads have stopped and then exit \ SYS "WaitForMultipleObjects", 2, ^hThread%(0), _TRUE, INFINITE TO R% PRINT A%,B% PROCCleanup END :\ \\ Close the thread objects \ DEFPROCCleanup FOR I%=0 TO 1 IF hThread%(I%) THEN SYS "CloseHandle", hThread%(I%) : hThread%(I%) = 0 NEXT ENDPROC
Svein
|
|
 Logged
|
|
|
|
Richard Russell
Administrator
member is offline
Posts: 803
|
|
Re: Parallel Assembly
« Reply #14 on: Jun 22nd, 2017, 7:51pm » |
|
on Jun 22nd, 2017, 6:12pm, svein wrote:| This might get you started, don't know who wrote it. |
|
It's important to note this comment:
Code: \\ |||Fry||| those processors
... and it certainly does! I would be very cautious about running this program unless you are confident about the efficiency of your CPU's cooling system!
Another thing to note is that, as it stands, the program cannot be terminated other than by using Task Manager (which will kill the BB4W IDE at the same time); the threads would exit eventually but only after 2^32 loops!
I wonder if the original author thought that closing a thread's handle terminates the thread (there's an ON CLOSE handler that closes both thread handles) but it doesn't. In fact it's perfectly OK to close a thread's handle immediately after it has been started; it won't affect anything unless the handle is needed later.
I would prefer to adapt the program so that the threads are forced to terminate on clicking Close, which can be achieved by changing the last few lines as follows:
Code: REM Wait until both threads have stopped and then exit REPEAT SYS "WaitForMultipleObjects", 2, ^hThread%(0), _TRUE, 100 TO R% UNTIL R% <> 258 PRINT A%,B% PROCCleanup END REM Close the thread objects DEFPROCCleanup A% = TRUE : B% = TRUE FOR I%=0 TO 1 IF hThread%(I%) THEN SYS "CloseHandle", hThread%(I%) : hThread%(I%) = 0 NEXT ENDPROC
My final suggestion would be to give careful thought to whether 'SetThreadIdealProcessor' or 'SetThreadAffinityMask' is most appropriate for your program.
Richard.
|
|
Logged
|
|
|
|
Ric
New Member
member is offline
Posts: 30
|
|
Re: Parallel Assembly
« Reply #15 on: Jun 23rd, 2017, 5:33pm » |
|
Thanks guys, I have managed to create the style of code I was after which works very similar to the last two posts. I have had to go off on a tangent, but will be back to this at a later date.
Ric
|
|
Logged
|
You can't succeed without failing a few times first, CHIN UP.
|
|
|
|
