From 88fe359644988a14b0fb8812bb93017fe080cc9c Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 16 Mar 2013 14:00:32 +0000
Subject: [PATCH] + added several necessary system unit routines

git-svn-id: branches/i8086@23864 -
---
 rtl/msdos/system.pp | 56 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp
index fc96012b70..e076618ff6 100644
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@@ -87,6 +87,7 @@ begin
 end;
 {$endif not FULL_RTL}
 
+
 procedure DebugWrite(const S: string);
 begin
   asm
@@ -110,4 +111,59 @@ begin
   DebugWrite(#13#10);
 end;
 
+{*****************************************************************************
+                              ParamStr/Randomize
+*****************************************************************************}
+
+function paramcount : longint;
+begin
+  paramcount := 0;
+end;
+
+
+function paramstr(l : longint) : string;
+begin
+  paramstr := '';
+end;
+
+procedure randomize;
+begin
+end;
+
+{*****************************************************************************
+                         System Dependent Exit code
+*****************************************************************************}
+
+procedure system_exit;
+begin
+  asm
+    mov al, byte [exitcode]
+    mov ah, 4Ch
+    int 21h
+  end;
+end;
+
+{*****************************************************************************
+                         SystemUnit Initialization
+*****************************************************************************}
+
+procedure SysInitStdIO;
+begin
+{  OpenStdIO(Input,fmInput,StdInputHandle);
+  OpenStdIO(Output,fmOutput,StdOutputHandle);
+  OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
+  OpenStdIO(StdOut,fmOutput,StdOutputHandle);
+  OpenStdIO(StdErr,fmOutput,StdErrorHandle);}
+end;
+
+function GetProcessID: SizeUInt;
+begin
+  GetProcessID := 1;
+end;
+
+function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
+begin
+  result := stklen;
+end;
+
 end.