FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Don Dez 1 00:00:24 CET 2005


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
 



Mehr Informationen über die CVS-List Mailingliste