home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
DOOG
/
387SXBUG.ZIP
/
387SXBUG.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-02-21
|
1KB
|
44 lines
{ Turbo Pascal 5.5 source code }
{$A-,B-,D-,E-,F+,I-,L-,N+,O-,R-,S-,V-}
{$M 1024,0,0}
VAR
x: Extended;
PROCEDURE CheckError;
BEGIN
IF ExitCode=205 THEN BEGIN
Writeln(#13'System responds as expected. Problem not found.');
ErrorAddr:=nil;
ExitCode:=0
END
END;
BEGIN
WriteLn;
WriteLn('There seem to be quite a number of 80386sx machines equiped with');
WriteLn('an Intel 80387sx mathematical co-processor that show an unusual');
WriteLn('behaviour: these systems crash under specific circumstances that');
WriteLn('don''t cause crashes on other computers.');
WriteLn;
WriteLn('This program tests your system. Be warned, especially when using');
WriteLn('a multitasker, that a cold boot might be necessary after running');
WriteLn('the program. Use it at your own risk.');
WriteLn;
WriteLn('Email');
WriteLn('Bitnet: Haket@HDETUD52 / Verheijen@HDETUD52');
WriteLn('Internet: Haket@tudsv1.tudelft.nl / Verheijen@tudsv1.tudelft.nl');
WriteLn('Fidonet: Arno Haket 2:512/100.15');
WriteLn;
Write('<Enter> to continue, <Ctrl-C> to stop...');
ReadLn;
WriteLn;
IF Test8087<>3 THEN WriteLn('80387 co-processor not detected.')
ELSE BEGIN
ExitProc:=@CheckError;
Write('System crashed! Hardware bug found...');
x:=Exp(11357)
END
END.