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