Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Тут промелькивал вопрос про серийный номер камня   Найти похожие ветки 

 
han_malign ©   (2003-06-20 12:29) [0]

никак не пойму где туплю, но какая то непонятка вышла:
program cpu_;
{$APPTYPE CONSOLE}
uses Windows,
Utils in "..\Common\utils.pas";
var id,id1: array[0..2]of dword;
begin
asm
push EBX
mov eax,3
db $0F,$A2//CPUID opcode
mov dword ptr id[2],ebx//least significant (Transmeta Crusoe processors only)
mov dword ptr id[1],ecx
mov dword ptr id[0],edx//most significant

mov dword ptr id1[0],ebx
mov dword ptr id1[1],ecx
mov dword ptr id1[2],edx
pop EBX
end;
Writeln(HexDword(id[0])+HexDword(id[1])+HexDword(id[2]));
Writeln(HexDword(id1[0])+HexDword(id1[1])+HexDword(id1[2]));
end.

- самое непонятное в том, что оно выдает
0C04084100000000 00000000
08410000 00000C0400000000


Как??????


 
han_malign ©   (2003-06-20 13:20) [1]

Вот так и узнаешь, что в BASM смещение всегда побайтовое...
program cpu_;
{$APPTYPE CONSOLE}
uses Windows,
Utils in "..\Common\utils.pas";
var id: array[ 0..2]of dword;
begin
asm
push EBX
mov eax,3
db $0F,$A2//CPUID opcode
mov dword ptr id[ 0],ebx//(Transmeta Crusoe processors only)
mov dword ptr id[ 4],ecx
mov dword ptr id[ 8],edx
pop EBX
end;
Writeln(HexDword(id[ 0])+HexDword(id[ 1])+HexDword(id[ 2]));
end.
- так катит..., похоже дело, как всегда, в прямом приведении типов (dword (ptr id)[1])...



Страницы: 1 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
9-19940
Сергей Чурсин
2002-07-20 21:50
2003.07.07
Кто знает интересные сайты по собственно game design ?


1-20153
agressor
2003-06-25 01:57
2003.07.07
Подмена системных цветов


3-19975
GavAl
2003-06-12 17:05
2003.07.07
Эксорт (Импорт) данных в 1С


14-20264
Жека
2003-06-20 00:51
2003.07.07
Регистрация УИН в ICQ


1-20131
autootvetchik
2003-06-24 11:28
2003.07.07
HotKey в ActionList