From 0791422c1ed99d123c3543559c3222950601d037 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 12 Jan 2016 20:06:28 +0000
Subject: [PATCH]  * Fix compilation of crt unit for msdos tiny memory model

git-svn-id: trunk@32930 -
---
 packages/rtl-console/src/msdos/crt.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/rtl-console/src/msdos/crt.pp b/packages/rtl-console/src/msdos/crt.pp
index e631e2ca92..d99f4413ad 100644
--- a/packages/rtl-console/src/msdos/crt.pp
+++ b/packages/rtl-console/src/msdos/crt.pp
@@ -472,8 +472,8 @@ LInitDel1:
         mov     dx, $FFFF
         call    DelayLoop
 
-        mov     [DelayCnt], ax
-        mov     [DelayCnt + 2], dx
+        mov     word ptr [DelayCnt], ax
+        mov     word ptr [DelayCnt + 2], dx
   end ['AX','BX','DX', 'DI'];
   DelayCnt := -DelayCnt div $55;
 end;
@@ -490,10 +490,10 @@ asm
         mov     cx, MS
         test    cx, cx
         jz      LDelay2
-        mov     si, [DelayCnt + 2]
+        mov     si, word ptr [DelayCnt + 2]
         mov     bx, es:[di]
 LDelay1:
-        mov     ax, [DelayCnt]
+        mov     ax, word ptr [DelayCnt]
         mov     dx, si
         call    DelayLoop
         loop    LDelay1