From 0f205470bc843c003d02ca13c27fe007774e8d06 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 31 May 2019 13:58:19 +0000
Subject: [PATCH] * set DL=0 in dos.setverify for compatibility with DOS 2.x

git-svn-id: trunk@42149 -
---
 rtl/msdos/dos.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/msdos/dos.pp b/rtl/msdos/dos.pp
index c61ae39f8c..8979a7f384 100644
--- a/rtl/msdos/dos.pp
+++ b/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;