🚀 go-pugleaf

Wojtas wrote:
>> czemu robisz dw zamiast po prostu cpuid, taki stary masz asembler?
>
> na kazdej stronie jaką widzialem to tak bylo...
> a czasem nawet:
> DB 00001111b, 10100010b
> lub:
> db $0F, $A2
>
>> przede wszystkim niepotrzebnie zapisujesz do pamięci, takie operacje
>> się wykonuje bezpośrednio na rejestrze.
> wiem, ale już sam nie wiedziałem co robić to zacząłem kombinować...
>
> Coś mi nadal nie działa:
>
> function isHTT : boolean; //nazwa na razie nie ważna
> var
>  bit : byte;
> begin
> asm
>   push esi
>   push ebx
>
>   mov eax, 1
>   cpuid
>   bt edx, 31; Bit to 3DNow!
>   jc @jestht
>
>   mov bit, 0
>   jmp @koniec
>
>   @jestht:
>   mov bit, 1
>
>   @koniec:
>
>   pop ebx
>   pop esi
> end;
>   messagebox(0, pchar(inttostr(bit)), '', 0);
> end;
>
> domyślam się że niepotrzebna jest zmienna Bit bo wynik będzie
> wartością zwracaną przez funkcję - ale ten wynik jest błedny...
>
> pokazuje 1... a mój procek to Celeron D więc nie ma 3DNow!
>
> sprawdzałem Bit Test dla FPU (Bit 0) i też nie bardzo działa...
>
> co do etykiet - próbuję już wszystkiego.

zobacz to (piszę na sucho, nie sprawdzałem):

function isHTT : boolean; assembler; //nazwa na razie nie ważna
asm
  push ebx
  mov eax,1
  cpuid
  bt edx,31
  jc @jestht
  xor al,al
  jmp @koniec
 @jestht:
  mov al,1
 @koniec:
  pop ebx
end;

wersja bez skoków:


function isHTT : boolean; assembler; //nazwa na razie nie ważna
asm
  push ebx
  mov eax,1
  cpuid
  bt edx,31
  mov al,0     // nie zmieniać na xor ani sub (flagi!)
  rcl al,1
  pop ebx
end;


-- 
Azarien