From aab6df13bafbb2a236e7f901c6558d7a99e48d04 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 30 Mar 2013 13:05:30 +0000
Subject: [PATCH] * use Seg() instead of DSeg in the msdos rtl

git-svn-id: branches/i8086@24072 -
---
 rtl/msdos/sysfile.inc | 4 ++--
 rtl/msdos/system.pp   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/msdos/sysfile.inc b/rtl/msdos/sysfile.inc
index b134c513b6..5429550f33 100644
--- a/rtl/msdos/sysfile.inc
+++ b/rtl/msdos/sysfile.inc
@@ -39,7 +39,7 @@ begin
   regs.AH := $40;
   regs.BX := h;
   regs.CX := len;
-  regs.DS := DSeg;
+  regs.DS := Seg(addr^);
   regs.DX := Ofs(addr^);
   MsDos(regs);
   if (regs.Flags and fCarry) <> 0 then
@@ -58,7 +58,7 @@ begin
   regs.AH := $3F;
   regs.BX := h;
   regs.CX := len;
-  regs.DS := DSeg;
+  regs.DS := Seg(addr^);
   regs.DX := Ofs(addr^);
   MsDos(regs);
   if (regs.Flags and FCarry) <> 0 then
diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp
index e87c516a0c..1d3e626213 100644
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@@ -154,10 +154,10 @@ begin
   RootName:='C:\';
 { Call 'Get Volume Information' ($71A0) }
   regs.AX:=$71a0;
-  regs.ES:=DSeg;
+  regs.ES:=Seg(buf);
   regs.DI:=Ofs(buf);
   regs.CX:=32;
-  regs.DS:=DSeg;
+  regs.DS:=Seg(RootName^);
   regs.DX:=Ofs(RootName^);
   MsDos_Carry(regs);
 { If carryflag=0 and LFN API bit in ebx is set then use Long file names }