🚀 go-pugleaf

Et voila', my Reset.

{$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
{$M 1024,0,1008}

procedure cls; assembler;
  asm
  mov ah, 06h    {cancella video}
  mov al, 0
  mov bh ,7
  mov ch, 0
  mov cl, 0
  mov dh, 25
  mov dl, 80
  int 10h
  mov ah, 0Fh    {legge pagina video in bh}
  int 10h
  mov ah, 02     {fissa posizione cursore}
  mov dh, 1
  mov dl, 0
  int 10h
  end;

procedure NoTestMemory; assembler;
  asm
  CLI
  MOV AX, 40
  MOV DS, AX
  MOV WORD PTR [$0072], $1234
  END;

var i: byte absolute $0:$0417;
begin
cls;
writeln ('*** SYSTEM RESET *** by Alessandro Oddera');
writeln ('    RESET/H for Hard Reset');
{i:= (i or 32) ;} { accende NumLock}
{if ( paramstr(1)<> '/h') OR (paramstr(1) <> '/H' ) then 
NoTestMemory;}
{
asm JMP $FFFF
DS
}

inline ($EA /$00 /$00 /$FF /$FF);  {Jmp FFFF:0000}

{
inline ($FA /$B8 /$40 /$00  /$8E /$D8 /$C7 /$06  /$72 /$0
0 /$34
/$12  /$EA /$00 /$00 /$FF /$FF);
}
{
asm
INT 17
INT 18
INT 25
end;
}

writeln ('Non Lo Scrivero'' mai');
end.


sstrader@ix.netcom.com (Scott Strader ) wrote:

>In <4h46en$r9b@mn5.swip.net> m-27103@mailbox.swipnet.se (Walter Lam) 
>writes: 

>>
>>Does anyone know where I can get the source code, or executable for a PC 
>>reboot program under Windows?  I've got one for dos, but it doesn't work 
>>under windows/windows 95......
>>
>>Thanks in Advance
>>
>>

>Look at the API funciton ExitWindowsEx().

>Scott S.
>sstrader@ix.netcom.com

/-------------------------------------------------------\
| NetSlide 2.0 - SLD & RND Autocad & Netscape Viever    | 
| for Windows 3.1, 95 and NT. Aim your Web browser at   | 
| http://www.archserver.unige.it/caadge/ao/homeao.htm   | 
| to get your own copy!                                 | 
\-------------------------------------------------------/