DarkMachine писал(а):Похоже будут переписывать новый компиль на самом же повер-е. (или собираются )
Потом инкрементальные версии и получим версии под линукс и мак-ось --- если сделают...
У меня ссылка не открывается. А что там за инфа?jangle писал(а):https://vimeo.com/user3509148/review/31 ... 39bfc77cad
include \masm32\MasmBasic\MasmBasic.inc ; download
Init
elements=512
PrintCpu 0
NanoTimer()
Dim matrix(elements,elements) As REAL8
For_ ct=0 To elements-1
For_ ecx=0 To elements-1
Rand(-12345.6789, 12345.6789, matrix(ct, ecx))
Next
Next
PrintLine NanoTimer$(), Str$(" for generating %i random doubles", matrix(?))
NanoTimer()
Dim out$() ; create a zstring array
Let edi=New$(16*elements) ; prepare for long numbers, e.g. 12345.6789
For_ ct=0 To elements-1
push edi
For_ ecx=0 To elements-1
invoke MbCopy, edi, Str$("%9f\t", matrix(ct, ecx)), -2
xchg eax, edi
Next
and dword ptr [edi-1], 0
pop edi
Let out$(ct)=edi
Next
PrintLine NanoTimer$(), Str$(" for %i strings", ct)
Store "Matrix.txt", out$() ; save to disk
Inkey "wanna see the result? (y)"
If_ eax=="y" Then ShEx "Matrix.txt" ; show it in Notepad etc
EndOfCode
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 16