home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c100 / 5.ddi / PCTECH.ZIP / REBOOT.SRC < prev    next >
Encoding:
Text File  |  1989-07-15  |  299 b   |  10 lines
  1. PROCEDURE Reboot(Warm : Boolean);
  2.  
  3. BEGIN
  4.   { Warm = True triggers warm boot with no memory test: }
  5.   IF Warm THEN MEMW[$0040:$0072] := $1234
  6.   { Warm = False triggers cold boot with full memory test: }
  7.     ELSE MEMW[$0040:$0072] := 0;
  8.   INLINE($EA/$00/$00/$FF/$FF);    { JMP FFFF:0 }
  9. END;
  10.