home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / misc.swg / 0014_REBOOT3.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  350 b   |  20 lines
  1. {
  2. REYNIR STEFANSSON
  3.  
  4. For anyone wondering how to reboot a PClone from Within Turbo Pascal:
  5. The Inline code is a far jump to the restart vector at $FFFF:0.
  6. }
  7.  
  8. Procedure ColdStart;
  9. begin
  10.    MemW[$40:$72] := 0;
  11.    Inline($EA/0/0/$FF/$FF);
  12. end;
  13.  
  14. Procedure WarmStart;
  15. begin
  16.    MemW[$40:$72] := $1234;
  17.    Inline($EA/0/0/$FF/$FF);
  18. end;
  19.  
  20.