home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / pascal / 6437 < prev    next >
Encoding:
Internet Message Format  |  1992-11-09  |  1.2 KB
  1. Path: sparky!uunet!psgrain!hippo!catpe!f61.n7101.z5.fidonet.org!Shane.Greyvenstein
  2. From: Shane.Greyvenstein@f61.n7101.z5.fidonet.org (Shane Greyvenstein)
  3. Sender: ufgate@catpe.alt.za (newsout1.26)
  4. Newsgroups: comp.lang.pascal
  5. Subject: rebooting computers in programs
  6. Message-ID: <2793.2AFD5B90@catpe.alt.za>
  7. Date: Sun, 08 Nov 92 11:34:06 GMT
  8. Organization: FidoNet node 5:7101/61 - Pyramid, Pretoria
  9. Lines: 34
  10.  
  11. Hello jeff!
  12.  
  13. In a msg of <06 Nov 92>, jeff gramowski writes to All:
  14.  
  15.  ->      I need to find a way to have my computer reboot at the end
  16.  -> of one of my programs.  I have tried to use the Intr($19,regs)
  17.  -> comand in turbo   pascal 6.0 and it only caused the computer to
  18.  -> freeze up.  I need the computer to act like the Ctrl-alt-del keys
  19.  -> have been pushed.
  20.  
  21. procedure RESET_SYSTEM;  assembler;
  22.  
  23. asm
  24.   mov ax,40
  25.   mov ds,ax
  26.   mov word ptr[72],1234
  27.   mov ax,$FFFF
  28.   push ax
  29.   xor ax,ax
  30.   push ax
  31.   retf
  32. end;
  33.  
  34.  -> Please send your information to jygi_ss@uhura.cc.rochester.edu.
  35.  
  36. Sorry, I don't know how to send it via the above  :-)
  37.  
  38. Kindest regards,
  39. Shane
  40.  
  41. --  
  42. INTERNET: Shane.Greyvenstein@f61.n7101.z5.fidonet.org
  43. via:  THE CATALYST BBS in Port Elizabeth, South Africa.
  44.        (catpe.alt.za)   +27-41-34-1122 HST or +27-41-34-2859, V32bis & HST.
  45.