Чтение данных из CMOS

[Terran]

Всем привет! У меня ситуация следующая. Есть код написанный на Делфи с ассемблерной вставкой для чтения данных из CMOS .

Function Readcmos(I: Byte): Byte;
Var
Zn: Byte;
Begin
Asm
Mov al,i
Out 70h, Al
Wait
Xor Ax,Ax
In Al,71h
Wait
Mov Zn, Al
End;
Result:=Zn;
End;

При выполнении этого кода выскакивает ошибка “Privileged instruction” и код дальше не выполняется. В компиляторе указывается строка “Out 70h, Al” и выводится сообщение “Project ... raised exception class EPrivilege with message “Privileged instruction” .”
Я этот код писал в Паскале и он там хорошо работает. Но хотелось бы что бы он работал в обычном приложении (не консольном). Подскажите, пожалуйста, в чём может быть проблема и как её решить? Есть мнение, что этот код будет работать в Ring0.

[Аватар]

Интересно, доступ к портам - привелигированная команда и из пользовательского приложения нельзя ее использовать под виндой. А как вам на паскале это удалось?

[rpy3uH]

если паскаль досовкий типа Turbo Pascal 7.0 то там будет работать. а в Delphi не будет

[Serge_Bliznykov]

как вам на паскале это удалось?

на Паскаль это действительно работает. (кстати, как и чтение биос)

я не специалист, но думаю, что винда при создании виртуальной среды (при запуске DOS программ) эмулирует и основные области памяти, в т.ч. числе и доступ к CMOS/BIOS через порты)...

Хотите, проверьте у себя (программка на TurboPascal + компилённый exeшник в архиве прилагаются)...

а по сути вопроса - думаю, что из под Windows без ring0 в порты не залезешь.. ну, или ещё, думаю, можно драйвером проблему решить. (меня не спрашивайте как.. я не знаю... посмотрите, для начала "MiTeC System Information Component Suite" - там биос точно читается, может и CMOS можно прочитать...)

____________
Добавлено

Но хотелось бы что бы он работал в обычном приложении (не консольном).

а может быть, если уж ОЧЕНЬ надо, сделать "костыли" - вызывать в нужный момент DOS exeшник и читать из сформированного им файла?. Конечно, это кривая кривизна, но, на 99% будет работать (только учтите, что при запуске дос программы будет запускаться виртуальная дос машина + возможны проблемы на какой-нибудь Windows 8....

[Terran]

если паскаль досовкий типа Turbo Pascal 7.0 то там будет работать. а в Delphi не будет

Вы правы. Я запускал на Turbo Pascal 7.0. Попробую ещё поэкспериментировать.

[veniside]

> на 99% будет работать ... возможны проблемы на какой-нибудь Windows 8

и на 100% реальны проблемы под любой 64-битной ОС, т.к. 16-ти битный код там просто не выполнится ни в каком виде.

[Аватар]

Драйвер giveio.sys - на каком то из форумов попадалось, якобы умеет обращаться к CMOS