* set DL=0 in dos.setverify for compatibility with DOS 2.x

git-svn-id: trunk@42149 -

rtl/msdos/dos.pp

@@ -316,6 +316,7 @@ end;
 procedure setverify(verify : boolean);
 begin
   dosregs.ah:=$2e;
+  dosregs.dl:=0;
   dosregs.al:=ord(verify);
   msdos(dosregs);
 end;