From 40630a7cde56f138e5ef0e7b5ddbe7028e5a8343 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 1 Jun 2013 19:23:25 +0000
Subject: [PATCH] * slight accuracy improvement in crt.delay for i8086-msdos

git-svn-id: trunk@24749 -
---
 rtl/msdos/crt.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/msdos/crt.pp b/rtl/msdos/crt.pp
index fce7ee2bb3..9a9ff62b93 100644
--- a/rtl/msdos/crt.pp
+++ b/rtl/msdos/crt.pp
@@ -454,16 +454,16 @@ label
 asm
         mov     ax, $40
         mov     es, ax
-        mov     di, $6c
+        xor     di, di
 
         mov     cx, MS
         test    cx, cx
         jz      LDelay2
         mov     si, [DelayCnt + 2]
+        mov     bx, es:[di]
 LDelay1:
         mov     ax, [DelayCnt]
         mov     dx, si
-        mov     bx, es:[di]
         call    DelayLoop
         loop    LDelay1
 LDelay2: