{ **** UBPFD *********** by delphibase.endimus.com ****
>>
Зависимости: нет
Автор: Gua, <a href="mailto:fbsdd@ukr.net">fbsdd@ukr.net</a>, ICQ:1411585495, Simferopol
Copyright:
Дата: 03 мая 2002 г.
***************************************************** }
type
 TVendor = array[0..11] of char;
 .........................
function GetCPUVendor: TVendor; assembler; register;
asm
 PUSH EBX {Save affected register}
 PUSH EDI
 MOV EDI,EAX {@Result (TVendor)}
 MOV EAX,0
 DW $A20F {CPUID Command}
 MOV EAX,EBX
 XCHG EBX,ECX {save ECX result}
 MOV ECX,4
@1:
 STOSB
 SHR EAX,8
 LOOP @1
 MOV EAX,EDX
 MOV ECX,4
@2:
 STOSB
 SHR EAX,8
 LOOP @2
 MOV EAX,EBX
 MOV ECX,4
@3:
 STOSB
 SHR EAX,8
 LOOP @3
 POP EDI {Restore registers}
 POP EBX
end;