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