* PS1 system unit: moved constants that should be public to the interface part

rtl/ps1/system.pp

@@ -16,18 +16,6 @@ interface
 
 {$endif FPUNONE}
 
-var
-  argc:longint=0;
-  argv:PPAnsiChar;
-  envp:PPAnsiChar;
-
-implementation
-
-procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
-procedure _free(p: pointer); external name 'free2';
-function _malloc(l: dword): pointer; external name 'malloc2';
-
-
 const
     maxExitCode = 255;
     AllowDirectorySeparators : set of AnsiChar = ['\','/'];
@@ -46,6 +34,17 @@ const
     FileNameCaseSensitive = true;
     sLineBreak = #13;
 
+var
+  argc:longint=0;
+  argv:PPAnsiChar;
+  envp:PPAnsiChar;
+
+implementation
+
+procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
+procedure _free(p: pointer); external name 'free2';
+function _malloc(l: dword): pointer; external name 'malloc2';
+
 {I ../mips/setjump.inc}
 {$I system.inc}