TURBO PASCAL

Q:> 2.4.2 Как осуществить холодную перезагрузку?

A:> Попробуйте вот это

Procedure ColdBoot;
Begin
InLine
($B8/$40/$00
/$8E/$D8
/$89/$C3
/$B8/$00/$00
/$A3/$72/$00
/$EA/$00/$00/$FF/$FF);
End;

или как более "паскалевский" вариант.

procedure ColdBoolt1;
Begin
MemW[$40:$72] := 0;
Inline($EA/00/00/$FF/$FF);
End;

Hа самом это одно и то же...

На первую страницу

(с)Все права защищены