home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9101 / utils / boots / reboot.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-10-07  |  812 b   |  29 lines
  1. (*--------------------------------------------------------*)
  2. (*                      REBOOT.PAS                        *)
  3. (* (C) 1990, 1991 Jörg Braun, Ulrich Schmitz & DMV-Verlag *)
  4. (*--------------------------------------------------------*)
  5.  
  6. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  7. {$IFDEF VER60} {$X-,G-} {$ENDIF}
  8.  
  9. UNIT Reboot;
  10.  
  11. INTERFACE
  12.  
  13. PROCEDURE Warmboot;
  14.  
  15. IMPLEMENTATION
  16.  
  17. PROCEDURE Warmboot;
  18. BEGIN
  19.   MemW[$0040:$0072] := $1234;     (* Warmstart-Kennung    *)
  20.   IF Mem[$F000:$FEEE] = $FC THEN  (*    PC-ID-Byte für AT *)
  21.     INLINE($B0/$FE/$BA/$64/$00/$EE/$FE); (*      AMI-BIOS *)
  22.   INLINE($EA/$00/$00/$FF/$FF);  (* IBM, Phoenix, XTs, ... *)
  23. END;
  24.  
  25. END.
  26.  
  27. (*--------------------------------------------------------*)
  28. (*                   Ende von REBOOT.PAS                  *)
  29.