Explorar o código

+ added System.SelectorInc to the msdos rtl (BP7 compatibility)

git-svn-id: trunk@27497 -
nickysn %!s(int64=11) %!d(string=hai) anos
pai
achega
626000e50d
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      rtl/msdos/system.pp

+ 3 - 0
rtl/msdos/system.pp

@@ -47,6 +47,9 @@ const
   segA000: Word = $A000;
   segB000: Word = $B000;
   segB800: Word = $B800;
+{ The value that needs to be added to the segment to move the pointer by
+  64K bytes (BP7 compatibility) }
+  SelectorInc: Word = $1000;
 
 var
 { Mem[] support }