Index: freexp/clip.pas
===================================================================
RCS file: /server/cvs/freexp/clip.pas,v
retrieving revision 1.33
retrieving revision 1.35
diff -u -r1.33 -r1.35
--- freexp/clip.pas 1 Jan 2005 11:16:27 -0000 1.33
+++ freexp/clip.pas 30 Nov 2005 18:45:52 -0000 1.35
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: clip.pas,v 1.33 2005/01/01 11:16:27 mw Exp $ }
+{ $Id: clip.pas,v 1.35 2005/11/30 18:45:52 mw Exp $ }
{$I XPDEFINE.INC }
{$O+,F+}
@@ -183,11 +183,16 @@
StrS(DOSEMU_VersionPos[3]) + '.' + StrS(DOSEMU_VersionPos[2]);
end;
+Function AT : Boolean;
+{ in: - }
+{out: True/False, if the machine is (at least) an AT}
+begin
+ AT := MEM[$F000 : $FFFE] = $FC;
+end;
+
function DOSBOX: boolean;
-var
- DOSBOX_MAGIC: longint absolute $F000:$FFE0;
begin
- if DOSBOX_MAGIC=0 then DOSBOX:=true else DOSBOX:=false;
+ if ((Test8086>1) and (AT=false)) then DOSBOX:=true else DOSBOX:=false;
end;
{ -------------------------------------------------------- }
@@ -795,6 +800,13 @@
end.
{
$Log: clip.pas,v $
+ Revision 1.35 2005/11/30 18:45:52 mw
+ MW: - Nochmalige Steiergung der Zuverlässigkeit der DOSBOX-Erkennung
+
+ Revision 1.34 2005/11/30 17:15:20 mw
+ MW: - Änderung der DOSBOX-Testadresse um die Erkennung zuverlässiger zu
+ gestalten (Manche regulären BIOSe wurden als DOSBOX erkannt.
+
Revision 1.33 2005/01/01 11:16:27 mw
MW: - Willkommen im Jahr 2005
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
